23 lines
759 B
Mathematica
23 lines
759 B
Mathematica
TIUPS115 ; SLC/JER - Post-install for TIU*1*115 ;4/20/2001 16:19
|
|
;;1.0;Text Integration Utilities;**115**;Jun 20, 1997
|
|
MAIN ; Control Subroutine
|
|
N TIUDA,TIUCNT,XPDIDTOT S (TIUCNT,TIUDA)=0
|
|
; Remove the existing ACL x-ref
|
|
K ^TIU(8925.1,"ACL")
|
|
D BMES^XPDUTL("BUILDING NEW ""ACL"" CROSS-REFERENCE ON FILE 8925.1")
|
|
S XPDIDTOT=$P(^TIU(8925.1,0),U,4),XPDIDVT=+$G(XPDIDVT)
|
|
D UPDATE^XPDID(0)
|
|
F S TIUDA=$O(^TIU(8925.1,TIUDA)) Q:+TIUDA'>0 D
|
|
. D XREF(TIUDA) S TIUCNT=+$G(TIUCNT)+1
|
|
. I '(TIUCNT#10) D UPDATE^XPDID(TIUCNT)
|
|
Q
|
|
XREF(DA) ; Call EN1^DIK to build "ACL" cross-reference on ^TIU(8925.1,
|
|
N DIK
|
|
S DIK="^TIU(8925.1,",DIK(1)=".01^ACL"
|
|
D EN1^DIK
|
|
S DIK="^TIU(8925.1,",DIK(1)=".02^ACL02"
|
|
D EN1^DIK
|
|
S DIK="^TIU(8925.1,",DIK(1)=".03^ACL03"
|
|
D EN1^DIK
|
|
Q
|