ONC2PR18.m

ONC2PR18 ;HINES OIFO/RTK - Pre-Install Routine for Patch ONC*2.2*18 ;07/25/23

 ;;2.2;ONCOLOGY;**18**;Jul 31, 2013;Build 5

 ;

 K ^ONCO(160.16)  ;delete 160.16 and bring back in patch 18 build

 K ^ONCO(160.2)  ;delete 160.2 and bring back in patch 18 build

 K ^ONCO(164)  ;delete 164 and bring back in patch 18 build

 K ^ONCO(164.44)  ;delete 164.44 and bring back in patch 18 build

 K ^ONCO(164.46)  ;delete 164.46 and bring back in patch 18 build

 K ^ONCO(165.9)  ;delete 165.9 and bring back in patch 18 build

 K ^ONCO(169.3)  ;delete 169.3 and bring back in patch 18 build

 ;

 D USERV ;update url (development or production)

 Q

 ;

USERV ;Update url to Production or Development server

 N ONCSYS

 S ONCSYS=$$PROD^XUPROD()

 S DA=$O(^XOB(18.12,"B","ONCO WEB SERVER",""))

 ;production url

 I ONCSYS D

 .S DIE="^XOB(18.12,",DR=".04///^S X=""vaww.vaccra.registries.domain.ext""" D ^DIE

 .W !,"Oncology Web Server is updated to Production url...",!

 ;development url

 I 'ONCSYS D

 .S DIE="^XOB(18.12,",DR=".04///^S X=""vaww.dev.vaccra.registries.domain.ext""" D ^DIE

 .W !,"Oncology Web Server is updated to Development url...",!

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ONC2PR18   1155     printed  May 21, 2024@02:21:17                                                                                                                                                                                                    Page 2

ONC2PR18  ;HINES OIFO/RTK - Pre-Install Routine for Patch ONC*2.2*18 ;07/25/23

 +1       ;;2.2;ONCOLOGY;**18**;Jul 31, 2013;Build 5

 +2       ;

 +3       ;delete 160.16 and bring back in patch 18 build

           KILL ^ONCO(160.16)

 +4       ;delete 160.2 and bring back in patch 18 build

           KILL ^ONCO(160.2)

 +5       ;delete 164 and bring back in patch 18 build

           KILL ^ONCO(164)

 +6       ;delete 164.44 and bring back in patch 18 build

           KILL ^ONCO(164.44)

 +7       ;delete 164.46 and bring back in patch 18 build

           KILL ^ONCO(164.46)

 +8       ;delete 165.9 and bring back in patch 18 build

           KILL ^ONCO(165.9)

 +9       ;delete 169.3 and bring back in patch 18 build

           KILL ^ONCO(169.3)

 +10      ;

 +11      ;update url (development or production)

           DO USERV

 +12       QUIT 

 +13      ;

USERV     ;Update url to Production or Development server

 +1        NEW ONCSYS

 +2        SET ONCSYS=$$PROD^XUPROD()

 +3        SET DA=$ORDER(^XOB(18.12,"B","ONCO WEB SERVER",""))

 +4       ;production url

 +5        IF ONCSYS

               Begin DoDot:1

 +6                SET DIE="^XOB(18.12,"

                   SET DR=".04///^S X=""vaww.vaccra.registries.domain.ext"""

                   DO ^DIE

 +7                WRITE !,"Oncology Web Server is updated to Production url...",!

               End DoDot:1

 +8       ;development url

 +9        IF 'ONCSYS

               Begin DoDot:1

 +10               SET DIE="^XOB(18.12,"

                   SET DR=".04///^S X=""vaww.dev.vaccra.registries.domain.ext"""

                   DO ^DIE

 +11               WRITE !,"Oncology Web Server is updated to Development url...",!

               End DoDot:1

 +12       QUIT