Routine: ONC2PS14

ONC2PS14 ;HINES OIFO/RTK - Post-Install Routine for Patch ONC*2.2*14 ;01/04/22

 ;;2.2;ONCOLOGY;**14**;Jul 31, 2013;Build 8

 D SET38001

 N RC

 ;DC production server Patch ##

 ;S RC=$$UPDCSURL^ONCSAPIU("http://127.0.0.1:83/cgi_bin/oncsrv.exe")

 ;DC PRODUCTION SERVER V21

 S RC=$$UPDCSURL^ONCSAPIU("http://127.0.0.1:86/cgi_bin/oncsrv.exe")

 ;test server uRL V21

 ;S RC=$$UPDCSURL^ONCSAPIU("http://127.0.0.1:81/cgi_bin/oncsrv.exe")

SET38001 ;Set the value for field 3800.1 for 2018+ cases

 N ONCDXVP,IEN,ONCGRIEN,ONCSKNM

 S ONCDXVP=3171231 F  S ONCDXVP=$O(^ONCO(165.5,"ADX",ONCDXVP)) Q:ONCDXVP'>0  D

 .S IEN=0 F  S IEN=$O(^ONCO(165.5,"ADX",ONCDXVP,IEN)) Q:IEN'>0  D

 ..S ONCZSCMA=$P($G(^ONCO(165.5,IEN,"SSD1")),"^",1) I ONCZSCMA="" Q

 ..S ONCGRIEN=$O(^ONCO(164.44,"C",ONCZSCMA,"")) I ONCGRIEN="" Q

 ..S ONCSKNM=$O(^ONCO(164.44,ONCGRIEN,1,"B",ONCZSCMA,"")) I ONCSKNM="" Q

 ..S $P(^ONCO(165.5,IEN,"SSD5"),"^",6)=$P($G(^ONCO(164.44,ONCGRIEN,1,ONCSKNM,0)),U,1)_": "_$E($P($G(^ONCO(164.44,ONCGRIEN,1,ONCSKNM,0)),U,2),1,60)

..Q

.Q

 K ONCZSCMA Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONC2PS14   1070     printed  Apr 09, 2024@21:30:02                                                                                                                                                                                                    Page 2

ONC2PS14  ;HINES OIFO/RTK - Post-Install Routine for Patch ONC*2.2*14 ;01/04/22

 +1       ;;2.2;ONCOLOGY;**14**;Jul 31, 2013;Build 8

 +2       ;

 +3        DO SET38001

 +4        NEW RC

 +5       ;DC production server Patch ##

 +6       ;S RC=$$UPDCSURL^ONCSAPIU("http://127.0.0.1:83/cgi_bin/oncsrv.exe")

 +7       ;DC PRODUCTION SERVER V21

 +8        SET RC=$$UPDCSURL^ONCSAPIU("http://127.0.0.1:86/cgi_bin/oncsrv.exe")

 +9       ;test server uRL V21

 +10      ;S RC=$$UPDCSURL^ONCSAPIU("http://127.0.0.1:81/cgi_bin/oncsrv.exe")

 +11       QUIT

 +12      ;

SET38001  ;Set the value for field 3800.1 for 2018+ cases

 +1        NEW ONCDXVP,IEN,ONCGRIEN,ONCSKNM

 +2        SET ONCDXVP=3171231

FOR

               SET ONCDXVP=$ORDER(^ONCO(165.5,"ADX",ONCDXVP))

               if ONCDXVP'>0

                   QUIT

               Begin DoDot:1

 +3                SET IEN=0

FOR

                       SET IEN=$ORDER(^ONCO(165.5,"ADX",ONCDXVP,IEN))

                       if IEN'>0

                           QUIT

                       Begin DoDot:2

 +4                        SET ONCZSCMA=$PIECE($GET(^ONCO(165.5,IEN,"SSD1")),"^",1)

                           IF ONCZSCMA=""

                               QUIT

 +5                        SET ONCGRIEN=$ORDER(^ONCO(164.44,"C",ONCZSCMA,""))

                           IF ONCGRIEN=""

                               QUIT

 +6                        SET ONCSKNM=$ORDER(^ONCO(164.44,ONCGRIEN,1,"B",ONCZSCMA,""))

                           IF ONCSKNM=""

                               QUIT

 +7                        SET $PIECE(^ONCO(165.5,IEN,"SSD5"),"^",6)=$PIECE($GET(^ONCO(164.44,ONCGRIEN,1,ONCSKNM,0)),U,1)_": "_$EXTRACT($PIECE($GET(^ONCO(164.44,ONCGRIEN,1,ONCSKNM,0)),U,2),1,60)

 +8                        QUIT

                       End DoDot:2

 +9                QUIT

               End DoDot:1

 +10       KILL ONCZSCMA

           QUIT

ONC2PS14.m