Last change
on this file since 1726 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
759 bytes
|
Rev | Line | |
---|
[613] | 1 | TIUPS115 ; SLC/JER - Post-install for TIU*1*115 ;4/20/2001 16:19
|
---|
| 2 | ;;1.0;Text Integration Utilities;**115**;Jun 20, 1997
|
---|
| 3 | MAIN ; Control Subroutine
|
---|
| 4 | N TIUDA,TIUCNT,XPDIDTOT S (TIUCNT,TIUDA)=0
|
---|
| 5 | ; Remove the existing ACL x-ref
|
---|
| 6 | K ^TIU(8925.1,"ACL")
|
---|
| 7 | D BMES^XPDUTL("BUILDING NEW ""ACL"" CROSS-REFERENCE ON FILE 8925.1")
|
---|
| 8 | S XPDIDTOT=$P(^TIU(8925.1,0),U,4),XPDIDVT=+$G(XPDIDVT)
|
---|
| 9 | D UPDATE^XPDID(0)
|
---|
| 10 | F S TIUDA=$O(^TIU(8925.1,TIUDA)) Q:+TIUDA'>0 D
|
---|
| 11 | . D XREF(TIUDA) S TIUCNT=+$G(TIUCNT)+1
|
---|
| 12 | . I '(TIUCNT#10) D UPDATE^XPDID(TIUCNT)
|
---|
| 13 | Q
|
---|
| 14 | XREF(DA) ; Call EN1^DIK to build "ACL" cross-reference on ^TIU(8925.1,
|
---|
| 15 | N DIK
|
---|
| 16 | S DIK="^TIU(8925.1,",DIK(1)=".01^ACL"
|
---|
| 17 | D EN1^DIK
|
---|
| 18 | S DIK="^TIU(8925.1,",DIK(1)=".02^ACL02"
|
---|
| 19 | D EN1^DIK
|
---|
| 20 | S DIK="^TIU(8925.1,",DIK(1)=".03^ACL03"
|
---|
| 21 | D EN1^DIK
|
---|
| 22 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.