ONC2PR16.m

ONC2PR16 ;ALBANY OIFO/RTK - Pre-Install Routine for Patch ONC*2.2*16 ;02/01/23

 ;;2.2;ONCOLOGY;**16**;Jul 31, 2013;Build 5

 ;

WSERV ; create web server and service

 N ONC,ONIEN,ONCSIEN,ONERVIEN,ONRVIEN

 ; QUIT if the web service already exists

 I $$FIND1^DIC(18.02,,"B","ONCO VACCR WEB SERVICE") D  Q

 .W !!,"ONCO VACCR WEB SERVICE already exists..."

 .D USERV

 .Q

 ; set up the web service

 S ONC(18.02,"+1,",.01)="ONCO VACCR WEB SERVICE"

 S ONC(18.02,"+1,",.02)=2

 D UPDATE^DIE("E","ONC","ONIEN") K ONC

 ;Create Web Server

WSERV1 S ONCSIEN=$O(ONIEN(0)),ONCSIEN=$G(ONIEN(ONCSIEN)) Q:'ONCSIEN

 S ONC(18.12,"+1,",.01)="ONCO WEB SERVER"

 S ONC(18.12,"+1,",.03)=443

 S ONC(18.12,"+1,",.04)="vaww.vaccra.registries.domain.ext"

 S ONC(18.12,"+1,",.06)=1

 S ONC(18.12,"+1,",.07)=30

 S ONC(18.12,"+1,",1.01)=0

 S ONC(18.12,"+1,",3.01)=1

 S ONC(18.12,"+1,",3.02)="encrypt_only_tlsv12"

 S ONC(18.12,"+1,",3.03)=443

 D UPDATE^DIE("E","ONC","ONRVIEN","ONCERR") K ONC

WSERV2 S IENROOT1=$O(ONRVIEN(0)) Q:'IENROOT1

 S IENROOT1=$G(ONRVIEN(1)),MULTIEN=0

 K IENROOT,MSGROOT,ONC

 S VICEIEN=0 F  S VICEIEN=$O(^XOB(18.12,IENROOT1,100,"B",VICEIEN)) Q:'VICEIEN  I $$GET1^DIQ(18.02,VICEIEN,.01)="ONCO VACCR WEB SERVICE" S MULTIEN=VICEIEN Q

 S MULTIEN=$S(MULTIEN:MULTIEN,1:"+1")

 S ONC(18.121,MULTIEN_","_IENROOT1_",",.01)="ONCO VACCR WEB SERVICE"

 S ONC(18.121,MULTIEN_","_IENROOT1_",",.06)="ENABLED"

 D UPDATE^DIE("E","ONC","IENROOT","MSGROOT")

 ;

 D UPDATE^DIE("E","ONC",,"ERR") K ONC

 W !,"Oncology web service and server is installed",!

 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.vaccra.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.vaccra.registries.domain.ext""" D ^DIE

 ;W !,"Oncology Web Server is updated to Development url...",!

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ONC2PR16   2004     printed  Apr 09, 2024@21:28:36                                                                                                                                                                                                    Page 2

ONC2PR16  ;ALBANY OIFO/RTK - Pre-Install Routine for Patch ONC*2.2*16 ;02/01/23

 +1       ;;2.2;ONCOLOGY;**16**;Jul 31, 2013;Build 5

 +2       ;

WSERV     ; create web server and service

 +1        NEW ONC,ONIEN,ONCSIEN,ONERVIEN,ONRVIEN

 +2       ; QUIT if the web service already exists

 +3        IF $$FIND1^DIC(18.02,,"B","ONCO VACCR WEB SERVICE")

               Begin DoDot:1

 +4                WRITE !!,"ONCO VACCR WEB SERVICE already exists..."

 +5                DO USERV

 +6                QUIT 

               End DoDot:1

               QUIT 

 +7       ; set up the web service

 +8        SET ONC(18.02,"+1,",.01)="ONCO VACCR WEB SERVICE"

 +9        SET ONC(18.02,"+1,",.02)=2

 +10       DO UPDATE^DIE("E","ONC","ONIEN")

           KILL ONC

 +11      ;Create Web Server

WSERV1     SET ONCSIEN=$ORDER(ONIEN(0))

           SET ONCSIEN=$GET(ONIEN(ONCSIEN))

           if 'ONCSIEN

               QUIT 

 +1        SET ONC(18.12,"+1,",.01)="ONCO WEB SERVER"

 +2        SET ONC(18.12,"+1,",.03)=443

 +3        SET ONC(18.12,"+1,",.04)="vaww.vaccra.registries.domain.ext"

 +4        SET ONC(18.12,"+1,",.06)=1

 +5        SET ONC(18.12,"+1,",.07)=30

 +6        SET ONC(18.12,"+1,",1.01)=0

 +7        SET ONC(18.12,"+1,",3.01)=1

 +8        SET ONC(18.12,"+1,",3.02)="encrypt_only_tlsv12"

 +9        SET ONC(18.12,"+1,",3.03)=443

 +10       DO UPDATE^DIE("E","ONC","ONRVIEN","ONCERR")

           KILL ONC

WSERV2     SET IENROOT1=$ORDER(ONRVIEN(0))

           if 'IENROOT1

               QUIT 

 +1        SET IENROOT1=$GET(ONRVIEN(1))

           SET MULTIEN=0

 +2        KILL IENROOT,MSGROOT,ONC

 +3        SET VICEIEN=0

           FOR 

               SET VICEIEN=$ORDER(^XOB(18.12,IENROOT1,100,"B",VICEIEN))

               if 'VICEIEN

                   QUIT 

               IF $$GET1^DIQ(18.02,VICEIEN,.01)="ONCO VACCR WEB SERVICE"

                   SET MULTIEN=VICEIEN

                   QUIT 

 +4        SET MULTIEN=$SELECT(MULTIEN:MULTIEN,1:"+1")

 +5        SET ONC(18.121,MULTIEN_","_IENROOT1_",",.01)="ONCO VACCR WEB SERVICE"

 +6        SET ONC(18.121,MULTIEN_","_IENROOT1_",",.06)="ENABLED"

 +7        DO UPDATE^DIE("E","ONC","IENROOT","MSGROOT")

 +8       ;

 +9        DO UPDATE^DIE("E","ONC",,"ERR")

           KILL ONC

 +10       WRITE !,"Oncology web service and server is installed",!

 +11       QUIT 

 +12      ;

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.vaccra.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.vaccra.registries.domain.ext""" D ^DIE

 +7       ;W !,"Oncology Web Server is updated to Development url...",!

 +8        QUIT