ONC2PR22 ;HINES OIFO/RTK - Pre-Install Routine for Patch ONC*2.2*22 ;04/30/25
;;2.2;ONCOLOGY;**22**;Jul 31, 2013;Build 6
;
K ^ONCO(160.16) ;delete 160.16 and bring back in patch 22 build
K ^ONCO(164.44) ;delete 164.44 and bring back in patch 22 build
K ^ONCO(165.8) ;delete 165.8 and bring back in patch 22 build
K ^ONCO(165.9) ;delete 165.9 and bring back in patch 22 build
;
D USERV
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=""va-reg-prod-apim.reg.vaec.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=""va-reg-devtest-apim.reg.vaec.domain.ext""" D ^DIE
.S DIE="^XOB(18.12,",DR=".04///^S X=""va-reg-preprod-apim.reg.vaec.domain.ext""" D ^DIE
.W !,"Oncology Web Server is updated to Development/Pre-Prod url...",!
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONC2PR22 1027 printed Jan 29, 2026@15:20:19 Page 2
ONC2PR22 ;HINES OIFO/RTK - Pre-Install Routine for Patch ONC*2.2*22 ;04/30/25
+1 ;;2.2;ONCOLOGY;**22**;Jul 31, 2013;Build 6
+2 ;
+3 ;delete 160.16 and bring back in patch 22 build
KILL ^ONCO(160.16)
+4 ;delete 164.44 and bring back in patch 22 build
KILL ^ONCO(164.44)
+5 ;delete 165.8 and bring back in patch 22 build
KILL ^ONCO(165.8)
+6 ;delete 165.9 and bring back in patch 22 build
KILL ^ONCO(165.9)
+7 ;
+8 DO USERV
+9 QUIT
+10 ;
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=""va-reg-prod-apim.reg.vaec.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 ;S DIE="^XOB(18.12,",DR=".04///^S X=""va-reg-devtest-apim.reg.vaec.domain.ext""" D ^DIE
+11 SET DIE="^XOB(18.12,"
SET DR=".04///^S X=""va-reg-preprod-apim.reg.vaec.domain.ext"""
DO ^DIE
+12 WRITE !,"Oncology Web Server is updated to Development/Pre-Prod url...",!
End DoDot:1
+13 QUIT
