- 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 ---[H[J[2J[HONC2PR18 1155 printed Jan 18, 2025@03:22:51 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