ONC2PS09 ;Hines OIFO/RTK - Post-Install Routine for Patch ONC*2.2*9 ;03/27/18
;;2.2;ONCOLOGY;**9**;Jul 31, 2013;Build 3
;
;N RC
;DC production server.
;S RC=$$UPDCSURL^ONCSAPIU("http://127.0.0.1:1757/cgi_bin/oncsrv.exe")
;DC test server, comment out for final release.
;S RC=$$UPDCSURL^ONCSAPIU("http://127.0.0.1:1755/cgi_bin/oncsrv.exe")
;
D XRF1693
Q
;
;Re-Index the "B", "C" and "D" cross-references on File #169.3
XRF1693 ;
D BMES^XPDUTL("Re-indexing 'B', 'C' and 'D' cross-references of File #169.3...")
N DIK
S DIK="^ONCO(169.3,",DIK(1)=".01^B"
D ENALL2^DIK ;Kill existing "B" cross-reference.
D ENALL^DIK ;Re-create "B" cross-reference.
S DIK="^ONCO(169.3,",DIK(1)="1^D"
D ENALL2^DIK ;Kill existing "D" cross-reference.
D ENALL^DIK ;Re-create "D" cross-reference.
;next do x-ref on .01 of SYNONYM (field #2) subfile
S IEN=0 F S IEN=$O(^ONCO(169.3,IEN)) Q:IEN'>0 D
.I '$D(^ONCO(169.3,IEN,1)) Q
.S DIK="^ONCO(169.3,IEN,1,",DIK(1)=".01^C",DA(1)=IEN D ENALL2^DIK
.S DIK="^ONCO(169.3,IEN,1,",DIK(1)=".01^C",DA(1)=IEN D ENALL^DIK
;
D BMES^XPDUTL("Done Re-indexing the File #169.3 cross-references...")
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONC2PS09 1169 printed Nov 22, 2024@17:31:50 Page 2
ONC2PS09 ;Hines OIFO/RTK - Post-Install Routine for Patch ONC*2.2*9 ;03/27/18
+1 ;;2.2;ONCOLOGY;**9**;Jul 31, 2013;Build 3
+2 ;
+3 ;N RC
+4 ;DC production server.
+5 ;S RC=$$UPDCSURL^ONCSAPIU("http://127.0.0.1:1757/cgi_bin/oncsrv.exe")
+6 ;DC test server, comment out for final release.
+7 ;S RC=$$UPDCSURL^ONCSAPIU("http://127.0.0.1:1755/cgi_bin/oncsrv.exe")
+8 ;
+9 DO XRF1693
+10 QUIT
+11 ;
+12 ;Re-Index the "B", "C" and "D" cross-references on File #169.3
XRF1693 ;
+1 DO BMES^XPDUTL("Re-indexing 'B', 'C' and 'D' cross-references of File #169.3...")
+2 NEW DIK
+3 SET DIK="^ONCO(169.3,"
SET DIK(1)=".01^B"
+4 ;Kill existing "B" cross-reference.
DO ENALL2^DIK
+5 ;Re-create "B" cross-reference.
DO ENALL^DIK
+6 SET DIK="^ONCO(169.3,"
SET DIK(1)="1^D"
+7 ;Kill existing "D" cross-reference.
DO ENALL2^DIK
+8 ;Re-create "D" cross-reference.
DO ENALL^DIK
+9 ;next do x-ref on .01 of SYNONYM (field #2) subfile
+10 SET IEN=0
FOR
SET IEN=$ORDER(^ONCO(169.3,IEN))
if IEN'>0
QUIT
Begin DoDot:1
+11 IF '$DATA(^ONCO(169.3,IEN,1))
QUIT
+12 SET DIK="^ONCO(169.3,IEN,1,"
SET DIK(1)=".01^C"
SET DA(1)=IEN
DO ENALL2^DIK
+13 SET DIK="^ONCO(169.3,IEN,1,"
SET DIK(1)=".01^C"
SET DA(1)=IEN
DO ENALL^DIK
End DoDot:1
+14 ;
+15 DO BMES^XPDUTL("Done Re-indexing the File #169.3 cross-references...")
+16 ;
+17 QUIT
