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 ---[H[J[2J[HONC2PR17 1104 printed Dec 13, 2024@02:21:40 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
