SDES884P ;ALB/MGD - SD*5.3*884 Post Init Routine ; Jun 07, 2024
;;5.3;SCHEDULING;**884**;AUG 13, 1993;Build 1
;;Per VHA Directive 6402, this routine should not be modified
;
; Reference to WEB SERVER (#18.12) IN ICR #6171
; Reference to PARAMETER DEFINITION (#8989.51) IN ICR #3985
Q
;
EN ;
D VSS
Q
;
;
VSS ; Execute post install logic to add needed file entries for VVS interface
N FDA,SDCNTXTRT,SDSRVC,SDSTA3N,DESCRIPTION,PPARAMDEFIEN,TPARAMDEFIEN,WEBSERVMULT
;
; ==========
; Add Production WEB SERVICE entry
D BMES^XPDUTL(">> Updating WEB SERVICE (#18.02) file...")
S SDSRVC="SD VVS WEB SERVICE"
S SDCNTXTRT="/vvs/v3/vista/appointments/cancellations/"
D REGREST^XOBWLIB(SDSRVC,SDCNTXTRT) ; REGREST^XOBWLIB handles all messaging.
;
; Add Test WEB SERVICE entry
S SDSRVC="SD VVS WEB SERVICE TEST"
S SDCNTXTRT="/vvs/v3/vista/appointments/cancellations/"
D REGREST^XOBWLIB(SDSRVC,SDCNTXTRT) ; REGREST^XOBWLIB handles all messaging.
;
; ==========
; Add Production WEB SERVER entry
D BMES^XPDUTL(">> Updating WEB SERVER (#18.12) file...")
S SDSTA3N=+$$STA^XUAF4($$KSP^XUPARAM("INST"))
K FDA,NEWIEN,MSGROOT
S FDA(18.12,"?+1,",.01)="SD VVS WEB SERVER" ; NAME
S FDA(18.12,"?+1,",.04)="staff.mobile.domain.ext" ; SERVER
S FDA(18.12,"?+1,",.06)="ENABLED" ; STATUS 1-ENABLED / 0-DISABLED
S FDA(18.12,"?+1,",.07)=10 ; DEFAULT HTTP TIMEOUT - time is seconds
S FDA(18.12,"?+1,",3.01)="TRUE" ; SSL ENABLED
S FDA(18.12,"?+1,",3.02)="encrypt_only_tlsv12" ; SSL CONFIGURATION
S FDA(18.12,"?+1,",3.03)=443 ; SSL PORT
;
D UPDATE^DIE("E","FDA","NEWIEN","MSGROOT")
I $D(MSGROOT("DIERR")) D BMES^XPDUTL($G(MSGROOT("DIERR",1,"TEXT",1)))
I '$D(MSGROOT("DIERR")) D
. K FDA
. S WEBSERVMULT=NEWIEN(1)
. S FDA(18.121,"?+1,"_WEBSERVMULT_",",.01)="SD VVS WEB SERVICE"
. S FDA(18.121,"?+1,"_WEBSERVMULT_",",.06)="ENABLED"
. D UPDATE^DIE("E","FDA","NEWIEN","MSGROOT")
. I $D(MSGROOT("DIERR")) D BMES^XPDUTL($G(MSGROOT("DIERR",1,"TEXT",1)))
. I '$D(MSGROOT("DIERR")) D BMES^XPDUTL(" SD VVS WEB SERVER successfully filed for station "_SDSTA3N)
;
; Add Test WEB SERVER entry
K FDA,NEWIEN,MSGROOT
S FDA(18.12,"?+1,",.01)="SD VVS WEB SERVER TEST" ; NAME
S FDA(18.12,"?+1,",.04)="staff.apps-staging.domain.ext" ; SERVER
S FDA(18.12,"?+1,",.06)="ENABLED" ; STATUS 1-ENABLED / 0-DISABLED
S FDA(18.12,"?+1,",.07)=10 ; DEFAULT HTTP TIMEOUT - time is seconds
S FDA(18.12,"?+1,",3.01)="TRUE" ; SSL ENABLED
S FDA(18.12,"?+1,",3.02)="encrypt_only_tlsv12" ; SSL CONFIGURATION
S FDA(18.12,"?+1,",3.03)=443 ; SSL PORT
;
D UPDATE^DIE("E","FDA","NEWIEN","MSGROOT")
I $D(MSGROOT("DIERR")) D BMES^XPDUTL($G(MSGROOT("DIERR",1,"TEXT",1)))
I '$D(MSGROOT("DIERR")) D
. K FDA
. S WEBSERVMULT=NEWIEN(1)
. S FDA(18.121,"?+1,"_WEBSERVMULT_",",.01)="SD VVS WEB SERVICE TEST"
. S FDA(18.121,"?+1,"_WEBSERVMULT_",",.06)="ENABLED"
. D UPDATE^DIE("E","FDA","NEWIEN","MSGROOT")
. I $D(MSGROOT("DIERR")) D BMES^XPDUTL($G(MSGROOT("DIERR",1,"TEXT",1)))
. I '$D(MSGROOT("DIERR")) D BMES^XPDUTL(" SD VVS WEB SERVER TEST successfully filed for station "_SDSTA3N)
;
; ==========
; Add Production entry to PARAMETER (#8989.5) file
D BMES^XPDUTL(">> Updating PARAMETER (#8989.5) file...")
N ENTITY,PARAMETER,INSTANCE,SDKEY
S ENTITY="PKG.SCHEDULING"
S PARAMETER="SD-VVS-CANCEL-KEY"
S INSTANCE=1
S SDKEY=$$B64ENCD^XUSHSH($$AESENCR^XUSHSH("0e537e16-c42d-4897-aa73-2d5edffc0a30","3ncr4pt55SK3y"))
D ADD^XPAR(ENTITY,PARAMETER,INSTANCE,SDKEY,"MSGROOT")
I $D(MSGROOT("DIERR")) D BMES^XPDUTL($G(MSGROOT("DIERR",1,"TEXT",1)))
I '$D(MSGROOT("DIERR")) D BMES^XPDUTL(" SD-VVS-CANCEL-KEY successfully filed for station "_SDSTA3N)
;
; Reset Production PROHIBIT EDITING to Yes
K FDA,NEWIEN,MSGROOT
S PPARAMDEFIEN=$$FIND1^DIC(8989.51,"","X","SD-VVS-CANCEL-KEY")
I PPARAMDEFIEN D
. S FDA(8989.51,PPARAMDEFIEN_",",.06)="Yes" ; PROHIBIT EDITING - 1:Yes
. D UPDATE^DIE("E","FDA","NEWIEN","MSGROOT")
. I $D(MSGROOT("DIERR")) D BMES^XPDUTL($G(MSGROOT("DIERR",1,"TEXT",1)))
. I '$D(MSGROOT("DIERR")) D BMES^XPDUTL(" SD-VVS-CANCEL-KEY set to No Editing for station "_SDSTA3N)
;
; ==========
; Add Test entry to PARAMETERS (#8989.5) file
S ENTITY="PKG.SCHEDULING"
S PARAMETER="SD-VVS-CANCEL-KEY-TEST"
S INSTANCE=1
S SDKEY=$$B64ENCD^XUSHSH($$AESENCR^XUSHSH("ab6373ef-749f-42b5-8920-2ee809140724","3ncr4pt55SK3y"))
D ADD^XPAR(ENTITY,PARAMETER,INSTANCE,SDKEY,"MSGROOT")
I $D(MSGROOT("DIERR")) D BMES^XPDUTL($G(MSGROOT("DIERR",1,"TEXT",1)))
I '$D(MSGROOT("DIERR")) D BMES^XPDUTL(" SD-VVS-CANCEL-KEY-TEST successfully filed for station "_SDSTA3N)
;
; Reset Test PROHIBIT EDITING to Yes
K FDA,NEWIEN,MSGROOT
S TPARAMDEFIEN=$$FIND1^DIC(8989.51,"","X","SD-VVS-CANCEL-KEY-TEST")
I TPARAMDEFIEN D
. S FDA(8989.51,TPARAMDEFIEN_",",.06)="Yes" ; PROHIBIT EDITING - 1:Yes
. D UPDATE^DIE("E","FDA","NEWIEN","MSGROOT")
. I $D(MSGROOT("DIERR")) D BMES^XPDUTL($G(MSGROOT("DIERR",1,"TEXT",1)))
. I '$D(MSGROOT("DIERR")) D BMES^XPDUTL(" SD-VVS-CANCEL-KEY-TEST set to No Editing for station "_SDSTA3N)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDES884P 5322 printed Oct 16, 2024@18:55:54 Page 2
SDES884P ;ALB/MGD - SD*5.3*884 Post Init Routine ; Jun 07, 2024
+1 ;;5.3;SCHEDULING;**884**;AUG 13, 1993;Build 1
+2 ;;Per VHA Directive 6402, this routine should not be modified
+3 ;
+4 ; Reference to WEB SERVER (#18.12) IN ICR #6171
+5 ; Reference to PARAMETER DEFINITION (#8989.51) IN ICR #3985
+6 QUIT
+7 ;
EN ;
+1 DO VSS
+2 QUIT
+3 ;
+4 ;
VSS ; Execute post install logic to add needed file entries for VVS interface
+1 NEW FDA,SDCNTXTRT,SDSRVC,SDSTA3N,DESCRIPTION,PPARAMDEFIEN,TPARAMDEFIEN,WEBSERVMULT
+2 ;
+3 ; ==========
+4 ; Add Production WEB SERVICE entry
+5 DO BMES^XPDUTL(">> Updating WEB SERVICE (#18.02) file...")
+6 SET SDSRVC="SD VVS WEB SERVICE"
+7 SET SDCNTXTRT="/vvs/v3/vista/appointments/cancellations/"
+8 ; REGREST^XOBWLIB handles all messaging.
DO REGREST^XOBWLIB(SDSRVC,SDCNTXTRT)
+9 ;
+10 ; Add Test WEB SERVICE entry
+11 SET SDSRVC="SD VVS WEB SERVICE TEST"
+12 SET SDCNTXTRT="/vvs/v3/vista/appointments/cancellations/"
+13 ; REGREST^XOBWLIB handles all messaging.
DO REGREST^XOBWLIB(SDSRVC,SDCNTXTRT)
+14 ;
+15 ; ==========
+16 ; Add Production WEB SERVER entry
+17 DO BMES^XPDUTL(">> Updating WEB SERVER (#18.12) file...")
+18 SET SDSTA3N=+$$STA^XUAF4($$KSP^XUPARAM("INST"))
+19 KILL FDA,NEWIEN,MSGROOT
+20 ; NAME
SET FDA(18.12,"?+1,",.01)="SD VVS WEB SERVER"
+21 ; SERVER
SET FDA(18.12,"?+1,",.04)="staff.mobile.domain.ext"
+22 ; STATUS 1-ENABLED / 0-DISABLED
SET FDA(18.12,"?+1,",.06)="ENABLED"
+23 ; DEFAULT HTTP TIMEOUT - time is seconds
SET FDA(18.12,"?+1,",.07)=10
+24 ; SSL ENABLED
SET FDA(18.12,"?+1,",3.01)="TRUE"
+25 ; SSL CONFIGURATION
SET FDA(18.12,"?+1,",3.02)="encrypt_only_tlsv12"
+26 ; SSL PORT
SET FDA(18.12,"?+1,",3.03)=443
+27 ;
+28 DO UPDATE^DIE("E","FDA","NEWIEN","MSGROOT")
+29 IF $DATA(MSGROOT("DIERR"))
DO BMES^XPDUTL($GET(MSGROOT("DIERR",1,"TEXT",1)))
+30 IF '$DATA(MSGROOT("DIERR"))
Begin DoDot:1
+31 KILL FDA
+32 SET WEBSERVMULT=NEWIEN(1)
+33 SET FDA(18.121,"?+1,"_WEBSERVMULT_",",.01)="SD VVS WEB SERVICE"
+34 SET FDA(18.121,"?+1,"_WEBSERVMULT_",",.06)="ENABLED"
+35 DO UPDATE^DIE("E","FDA","NEWIEN","MSGROOT")
+36 IF $DATA(MSGROOT("DIERR"))
DO BMES^XPDUTL($GET(MSGROOT("DIERR",1,"TEXT",1)))
+37 IF '$DATA(MSGROOT("DIERR"))
DO BMES^XPDUTL(" SD VVS WEB SERVER successfully filed for station "_SDSTA3N)
End DoDot:1
+38 ;
+39 ; Add Test WEB SERVER entry
+40 KILL FDA,NEWIEN,MSGROOT
+41 ; NAME
SET FDA(18.12,"?+1,",.01)="SD VVS WEB SERVER TEST"
+42 ; SERVER
SET FDA(18.12,"?+1,",.04)="staff.apps-staging.domain.ext"
+43 ; STATUS 1-ENABLED / 0-DISABLED
SET FDA(18.12,"?+1,",.06)="ENABLED"
+44 ; DEFAULT HTTP TIMEOUT - time is seconds
SET FDA(18.12,"?+1,",.07)=10
+45 ; SSL ENABLED
SET FDA(18.12,"?+1,",3.01)="TRUE"
+46 ; SSL CONFIGURATION
SET FDA(18.12,"?+1,",3.02)="encrypt_only_tlsv12"
+47 ; SSL PORT
SET FDA(18.12,"?+1,",3.03)=443
+48 ;
+49 DO UPDATE^DIE("E","FDA","NEWIEN","MSGROOT")
+50 IF $DATA(MSGROOT("DIERR"))
DO BMES^XPDUTL($GET(MSGROOT("DIERR",1,"TEXT",1)))
+51 IF '$DATA(MSGROOT("DIERR"))
Begin DoDot:1
+52 KILL FDA
+53 SET WEBSERVMULT=NEWIEN(1)
+54 SET FDA(18.121,"?+1,"_WEBSERVMULT_",",.01)="SD VVS WEB SERVICE TEST"
+55 SET FDA(18.121,"?+1,"_WEBSERVMULT_",",.06)="ENABLED"
+56 DO UPDATE^DIE("E","FDA","NEWIEN","MSGROOT")
+57 IF $DATA(MSGROOT("DIERR"))
DO BMES^XPDUTL($GET(MSGROOT("DIERR",1,"TEXT",1)))
+58 IF '$DATA(MSGROOT("DIERR"))
DO BMES^XPDUTL(" SD VVS WEB SERVER TEST successfully filed for station "_SDSTA3N)
End DoDot:1
+59 ;
+60 ; ==========
+61 ; Add Production entry to PARAMETER (#8989.5) file
+62 DO BMES^XPDUTL(">> Updating PARAMETER (#8989.5) file...")
+63 NEW ENTITY,PARAMETER,INSTANCE,SDKEY
+64 SET ENTITY="PKG.SCHEDULING"
+65 SET PARAMETER="SD-VVS-CANCEL-KEY"
+66 SET INSTANCE=1
+67 SET SDKEY=$$B64ENCD^XUSHSH($$AESENCR^XUSHSH("0e537e16-c42d-4897-aa73-2d5edffc0a30","3ncr4pt55SK3y"))
+68 DO ADD^XPAR(ENTITY,PARAMETER,INSTANCE,SDKEY,"MSGROOT")
+69 IF $DATA(MSGROOT("DIERR"))
DO BMES^XPDUTL($GET(MSGROOT("DIERR",1,"TEXT",1)))
+70 IF '$DATA(MSGROOT("DIERR"))
DO BMES^XPDUTL(" SD-VVS-CANCEL-KEY successfully filed for station "_SDSTA3N)
+71 ;
+72 ; Reset Production PROHIBIT EDITING to Yes
+73 KILL FDA,NEWIEN,MSGROOT
+74 SET PPARAMDEFIEN=$$FIND1^DIC(8989.51,"","X","SD-VVS-CANCEL-KEY")
+75 IF PPARAMDEFIEN
Begin DoDot:1
+76 ; PROHIBIT EDITING - 1:Yes
SET FDA(8989.51,PPARAMDEFIEN_",",.06)="Yes"
+77 DO UPDATE^DIE("E","FDA","NEWIEN","MSGROOT")
+78 IF $DATA(MSGROOT("DIERR"))
DO BMES^XPDUTL($GET(MSGROOT("DIERR",1,"TEXT",1)))
+79 IF '$DATA(MSGROOT("DIERR"))
DO BMES^XPDUTL(" SD-VVS-CANCEL-KEY set to No Editing for station "_SDSTA3N)
End DoDot:1
+80 ;
+81 ; ==========
+82 ; Add Test entry to PARAMETERS (#8989.5) file
+83 SET ENTITY="PKG.SCHEDULING"
+84 SET PARAMETER="SD-VVS-CANCEL-KEY-TEST"
+85 SET INSTANCE=1
+86 SET SDKEY=$$B64ENCD^XUSHSH($$AESENCR^XUSHSH("ab6373ef-749f-42b5-8920-2ee809140724","3ncr4pt55SK3y"))
+87 DO ADD^XPAR(ENTITY,PARAMETER,INSTANCE,SDKEY,"MSGROOT")
+88 IF $DATA(MSGROOT("DIERR"))
DO BMES^XPDUTL($GET(MSGROOT("DIERR",1,"TEXT",1)))
+89 IF '$DATA(MSGROOT("DIERR"))
DO BMES^XPDUTL(" SD-VVS-CANCEL-KEY-TEST successfully filed for station "_SDSTA3N)
+90 ;
+91 ; Reset Test PROHIBIT EDITING to Yes
+92 KILL FDA,NEWIEN,MSGROOT
+93 SET TPARAMDEFIEN=$$FIND1^DIC(8989.51,"","X","SD-VVS-CANCEL-KEY-TEST")
+94 IF TPARAMDEFIEN
Begin DoDot:1
+95 ; PROHIBIT EDITING - 1:Yes
SET FDA(8989.51,TPARAMDEFIEN_",",.06)="Yes"
+96 DO UPDATE^DIE("E","FDA","NEWIEN","MSGROOT")
+97 IF $DATA(MSGROOT("DIERR"))
DO BMES^XPDUTL($GET(MSGROOT("DIERR",1,"TEXT",1)))
+98 IF '$DATA(MSGROOT("DIERR"))
DO BMES^XPDUTL(" SD-VVS-CANCEL-KEY-TEST set to No Editing for station "_SDSTA3N)
End DoDot:1
+99 QUIT
