ONC2PS09.m

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 ---ONC2PS09   1169     printed  Apr 09, 2024@21:29:49                                                                                                                                                                                                    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