| 1 | TIUPS17 ; SLC/JER - Post-install for TIU*1*7 and TIU*1*51 ;1/12/99@11:33:48
|
|---|
| 2 | ;;1.0;Text Integration Utilities;**7,51**;Jun 20, 1997
|
|---|
| 3 | MAIN ; Control Subroutine
|
|---|
| 4 | N TIUDA,TIUCNT,XPDIDTOT S (TIUCNT,TIUDA)=0
|
|---|
| 5 | ; If "ACL" cross-reference has already been built, then exit
|
|---|
| 6 | ; I +$$XRDONE Q ** RESTORE THIS AFTER TEST v3 **
|
|---|
| 7 | K ^TIU(8925.1,"ACL") ; Remove the existing ACL x-ref
|
|---|
| 8 | D BMES^XPDUTL("BUILDING NEW ""ACL"" CROSS-REFERENCE ON FILE 8925.1")
|
|---|
| 9 | S XPDIDTOT=$P(^TIU(8925.1,0),U,4)
|
|---|
| 10 | D UPDATE^XPDID(0)
|
|---|
| 11 | F S TIUDA=$O(^TIU(8925.1,TIUDA)) Q:+TIUDA'>0 D
|
|---|
| 12 | . D XREF(TIUDA) S TIUCNT=+$G(TIUCNT)+1
|
|---|
| 13 | . I '(TIUCNT#10) D UPDATE^XPDID(TIUCNT)
|
|---|
| 14 | Q
|
|---|
| 15 | XREF(DA) ; Call EN1^DIK to build "ACL" cross-reference on ^TIU(8925.1,
|
|---|
| 16 | N DIK
|
|---|
| 17 | S DIK="^TIU(8925.1,",DIK(1)=".01^ACL"
|
|---|
| 18 | D EN1^DIK
|
|---|
| 19 | Q
|
|---|
| 20 | XRDONE() ; Determine whether last entry in 8925.1 has been x-refed
|
|---|
| 21 | N TIULNM,TIUY S TIULNM="",TIUY=0
|
|---|
| 22 | S TIULNM=$O(^TIU(8925.1,"ACL",38,TIULNM),-1)
|
|---|
| 23 | I TIULNM]"WARN" S TIUY=1
|
|---|
| 24 | Q TIUY
|
|---|
