Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ONC2PR18

ONC2PR18.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. K ^ONCO(160.16) ;delete 160.16 and bring back in patch 18 build
  1. K ^ONCO(160.2) ;delete 160.2 and bring back in patch 18 build
  1. K ^ONCO(164) ;delete 164 and bring back in patch 18 build
  1. K ^ONCO(164.44) ;delete 164.44 and bring back in patch 18 build
  1. K ^ONCO(164.46) ;delete 164.46 and bring back in patch 18 build
  1. K ^ONCO(165.9) ;delete 165.9 and bring back in patch 18 build
  1. K ^ONCO(169.3) ;delete 169.3 and bring back in patch 18 build
  1. ;
  1. D USERV ;update url (development or production)
  1. Q
  1. ;
  1. USERV ;Update url to Production or Development server
  1. N ONCSYS
  1. S ONCSYS=$$PROD^XUPROD()
  1. S DA=$O(^XOB(18.12,"B","ONCO WEB SERVER",""))
  1. ;production url
  1. I ONCSYS D
  1. .S DIE="^XOB(18.12,",DR=".04///^S X=""vaww.vaccra.registries.domain.ext""" D ^DIE
  1. .W !,"Oncology Web Server is updated to Production url...",!
  1. ;development url
  1. I 'ONCSYS D
  1. .S DIE="^XOB(18.12,",DR=".04///^S X=""vaww.dev.vaccra.registries.domain.ext""" D ^DIE
  1. .W !,"Oncology Web Server is updated to Development url...",!
  1. Q