source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUPS17.m@ 1766

Last change on this file since 1766 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 938 bytes
Line 
1TIUPS17 ; 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
3MAIN ; 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
15XREF(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
20XRDONE() ; 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
Note: See TracBrowser for help on using the repository browser.