ONC2PS23 ;HINES OIFO/RTK - Post-Install Routine for Patch ONC*2.2*23 ;02/11/26
;;2.2;ONCOLOGY;**23**;Jul 31, 2013;Build 6
;
D NEWDEV,NEWDEV2,SETMIG
Q
;
NEWDEV ;add new device "ORIS-HFS" to the Device (#3.5) file
N ONC,ONIEN,ONCSIEN,ONERVIEN,ONRVIEN
; QUIT if the "ORIS-HFS" device already exists
I $$FIND1^DIC(3.5,,"B","ORIS-HFS") D Q
.D BMES^XPDUTL("ORIS-HFS already exists...")
.Q
;
; If it doesn't exist, go ahead and set up the new device
K DD,DO
S DIC="^%ZIS(1,",DIC(0)="Z" S X="ORIS-HFS" D FILE^DICN
S ONCDVIEN=$O(^%ZIS(1,"B","ORIS-HFS",""))
I ONCDVIEN="" Q
S DA=ONCDVIEN,ONCOPPAR="""NWS"""
S DIE="^%ZIS(1,"
S DR=".02///^S X=""ORIS-HFS"";1///^S X=""/tmp/onc2oris.utility.txt"";1.95///^S X=1;2///^S X=""HFS"";3///^S X=16;4///^S X=1;5///^S X=1;5.1///^S X=1;5.2///^S X=0;19///^S X=ONCOPPAR;51///^S X=79"
D ^DIE
;
I $$FIND1^DIC(3.5,,"B","ORIS-HFS") D
.D BMES^XPDUTL("ORIS-HFS installed...")
Q
;
NEWDEV2 ;add new device "ORIS-HFS-SCHEDULED" to the Device (#3.5) file
N ONC,ONIEN,ONCSIEN,ONERVIEN,ONRVIEN
; QUIT if the "ORIS-HFS-SCHEDULED" device already exists
I $$FIND1^DIC(3.5,,"B","ORIS-HFS-SCHEDULED") D Q
.D BMES^XPDUTL("ORIS-HFS-SCHEDULED already exists...")
.Q
;
; If it doesn't exist, go ahead and set up the new device
K DD,DO
S DIC="^%ZIS(1,",DIC(0)="Z" S X="ORIS-HFS-SCHEDULED" D FILE^DICN
S ONCDVIEN=$O(^%ZIS(1,"B","ORIS-HFS-SCHEDULED",""))
I ONCDVIEN="" Q
S DA=ONCDVIEN,ONCOPPAR="""NWS"""
S DIE="^%ZIS(1,"
S DR=".02///^S X=""ORIS-HFS-SCHEDULED"";1///^S X=""/tmp/onc2oris.scheduler.txt"";1.95///^S X=1;2///^S X=""HFS"";3///^S X=16;4///^S X=1;5///^S X=1;5.1///^S X=1;5.2///^S X=0;19///^S X=ONCOPPAR;51///^S X=79"
D ^DIE
;
I $$FIND1^DIC(3.5,,"B","ORIS-HFS-SCHEDULED") D
.D BMES^XPDUTL("ORIS-HFS-SCHEDULED installed...")
Q
;
SETMIG ;set data migration field in the Oncology Site Parameters file
D BMES^XPDUTL("Set data migration parameters...")
F ONCSPIEN=0:0 S ONCSPIEN=$O(^ONCO(160.1,ONCSPIEN)) Q:ONCSPIEN'>0 D
.S ^ONCO(160.1,ONCSPIEN,"ACCESSKEY")="accessKey:IPIMNInMMZP19hU9"
.S ^ONCO(160.1,ONCSPIEN,"SVPATH")="https://oris.domain.ext/jsonupload"
.;S ^ONCO(160.1,ONCSPIEN,"ACCESSKEY")="accessKey:8dJ451Br9KLPoi912"
.;S ^ONCO(160.1,ONCSPIEN,"SVPATH")="https://test.oris.domain.ext/jsonupload"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONC2PS23 2319 printed Jul 22, 2026@15:29:59 Page 2
ONC2PS23 ;HINES OIFO/RTK - Post-Install Routine for Patch ONC*2.2*23 ;02/11/26
+1 ;;2.2;ONCOLOGY;**23**;Jul 31, 2013;Build 6
+2 ;
+3 DO NEWDEV
DO NEWDEV2
DO SETMIG
+4 QUIT
+5 ;
NEWDEV ;add new device "ORIS-HFS" to the Device (#3.5) file
+1 NEW ONC,ONIEN,ONCSIEN,ONERVIEN,ONRVIEN
+2 ; QUIT if the "ORIS-HFS" device already exists
+3 IF $$FIND1^DIC(3.5,,"B","ORIS-HFS")
Begin DoDot:1
+4 DO BMES^XPDUTL("ORIS-HFS already exists...")
+5 QUIT
End DoDot:1
QUIT
+6 ;
+7 ; If it doesn't exist, go ahead and set up the new device
+8 KILL DD,DO
+9 SET DIC="^%ZIS(1,"
SET DIC(0)="Z"
SET X="ORIS-HFS"
DO FILE^DICN
+10 SET ONCDVIEN=$ORDER(^%ZIS(1,"B","ORIS-HFS",""))
+11 IF ONCDVIEN=""
QUIT
+12 SET DA=ONCDVIEN
SET ONCOPPAR="""NWS"""
+13 SET DIE="^%ZIS(1,"
+14 SET DR=".02///^S X=""ORIS-HFS"";1///^S X=""/tmp/onc2oris.utility.txt"";1.95///^S X=1;2///^S X=""HFS"";3///^S X=16;4///^S X=1;5///^S X=1;5.1///^S X=1;5.2///^S X=0;19///^S X=ONCOPPAR;51///^S X=79"
+15 DO ^DIE
+16 ;
+17 IF $$FIND1^DIC(3.5,,"B","ORIS-HFS")
Begin DoDot:1
+18 DO BMES^XPDUTL("ORIS-HFS installed...")
End DoDot:1
+19 QUIT
+20 ;
NEWDEV2 ;add new device "ORIS-HFS-SCHEDULED" to the Device (#3.5) file
+1 NEW ONC,ONIEN,ONCSIEN,ONERVIEN,ONRVIEN
+2 ; QUIT if the "ORIS-HFS-SCHEDULED" device already exists
+3 IF $$FIND1^DIC(3.5,,"B","ORIS-HFS-SCHEDULED")
Begin DoDot:1
+4 DO BMES^XPDUTL("ORIS-HFS-SCHEDULED already exists...")
+5 QUIT
End DoDot:1
QUIT
+6 ;
+7 ; If it doesn't exist, go ahead and set up the new device
+8 KILL DD,DO
+9 SET DIC="^%ZIS(1,"
SET DIC(0)="Z"
SET X="ORIS-HFS-SCHEDULED"
DO FILE^DICN
+10 SET ONCDVIEN=$ORDER(^%ZIS(1,"B","ORIS-HFS-SCHEDULED",""))
+11 IF ONCDVIEN=""
QUIT
+12 SET DA=ONCDVIEN
SET ONCOPPAR="""NWS"""
+13 SET DIE="^%ZIS(1,"
+14 SET DR=".02///^S X=""ORIS-HFS-SCHEDULED"";1///^S X=""/tmp/onc2oris.scheduler.txt"";1.95///^S X=1;2///^S X=""HFS"";3///^S X=16;4///^S X=1;5///^S X=1;5.1///^S X=1;5.2///^S X=0;19///^S X=ONCOPPAR;51///^S X=79"
+15 DO ^DIE
+16 ;
+17 IF $$FIND1^DIC(3.5,,"B","ORIS-HFS-SCHEDULED")
Begin DoDot:1
+18 DO BMES^XPDUTL("ORIS-HFS-SCHEDULED installed...")
End DoDot:1
+19 QUIT
+20 ;
SETMIG ;set data migration field in the Oncology Site Parameters file
+1 DO BMES^XPDUTL("Set data migration parameters...")
+2 FOR ONCSPIEN=0:0
SET ONCSPIEN=$ORDER(^ONCO(160.1,ONCSPIEN))
if ONCSPIEN'>0
QUIT
Begin DoDot:1
+3 SET ^ONCO(160.1,ONCSPIEN,"ACCESSKEY")="accessKey:IPIMNInMMZP19hU9"
+4 SET ^ONCO(160.1,ONCSPIEN,"SVPATH")="https://oris.domain.ext/jsonupload"
+5 ;S ^ONCO(160.1,ONCSPIEN,"ACCESSKEY")="accessKey:8dJ451Br9KLPoi912"
+6 ;S ^ONCO(160.1,ONCSPIEN,"SVPATH")="https://test.oris.domain.ext/jsonupload"
End DoDot:1
+7 QUIT
