ONC2PR17.m

ONC2PR17 ;HINES OIFO/RTK - Pre-Install Routine for Patch ONC*2.2*17 ;02/14/23

 ;;2.2;ONCOLOGY;**17**;Jul 31, 2013;Build 6

 ;

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

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

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

 K ^ONCO(165.8)  ;delete 165.8 and bring back in patch 17 build

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

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

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

 ;

 D USERV ;update url (development or production)

 Q

 ;

USERV ;Update url to Production or Development server

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

 ;production url

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

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

 ;development url

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

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

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ONC2PR17   1104     printed  Sep 02, 2024@19:06:57                                                                                                                                                                                                    Page 2

ONC2PR17  ;HINES OIFO/RTK - Pre-Install Routine for Patch ONC*2.2*17 ;02/14/23

 +1       ;;2.2;ONCOLOGY;**17**;Jul 31, 2013;Build 6

 +2       ;

 +3       ;delete 160.16 and bring back in the patch 17 build

           KILL ^ONCO(160.16)

 +4       ;delete 164.44 and bring back in the patch 17 build

           KILL ^ONCO(164.44)

 +5       ;delete 164.46 and bring back in the patch 17 build

           KILL ^ONCO(164.46)

 +6       ;delete 165.8 and bring back in patch 17 build

           KILL ^ONCO(165.8)

 +7       ;delete 165.9 and bring back in patch 17 build

           KILL ^ONCO(165.9)

 +8       ;delete 169.3 and bring back in patch 17 build

           KILL ^ONCO(169.3)

 +9       ;delete 160.2 and bring back in patch 17 build

           KILL ^ONCO(160.2)

 +10      ;

 +11      ;update url (development or production)

           DO USERV

 +12       QUIT 

 +13      ;

USERV     ;Update url to Production or Development server

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

 +2       ;production url

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

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

           DO ^DIE

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

 +5       ;development url

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

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

 +8        QUIT