DVB254P2 ;ALB/CP/BG - PATCH DVBA*2.7*254 POST-INSTALL ROUTINE; MAY 28, 2025@16:20 ; 5/29/25 9:13am
;;2.7;AMIE;**254**;Apr 10, 1995;Build 41
; Per VHA Directive 6402 this routine should not be modified
; Reference to SUPPORTED PARAMETER TOOL ENTRY POINTS in ICR #2263
Q
;
PARAM ; ;update parameter value in test vs prod CAPRI:19209 bg
N DVBVER,DVBI,DVBDATA,DVBPAR,DVBINST,DVBNAME,DVBVALUE,DVBPKG,DVBRESET
F DVBI=1:1 S DVBDATA=$P($T(PARCHK+DVBI),";;",2) Q:DVBDATA["$EXIT" D
. S DVBRESET=""
. S DVBNAME=$P(DVBDATA,U,1)
. S DVBINST=$P(DVBDATA,U,2)
. S DVBVALUE=$P(DVBDATA,U,3)
. S DVBPKG="PKG.AUTOMATED MED INFO EXCHANGE"
. S DVBPAR=$$GET^XPAR(DVBPKG,DVBNAME,DVBINST,"E")
. I DVBPAR'=DVBVALUE S DVBRESET=1 D EN^XPAR(DVBPKG,DVBNAME,DVBINST,DVBVALUE,.DVBVER)
. D UPDMSG
. Q
Q
;
UPDMSG ;
I $G(DVBVER) D
. D BMES^XPDUTL(DVBNAME_" Update FAILURE.")
. D MES^XPDUTL(" Failure reason: "_DVBVER)
I $G(DVBRESET)=1 D
. D BMES^XPDUTL(DVBNAME_" Updated Successfully")
I $G(DVBRESET)'=1 D
. D BMES^XPDUTL("Update not required for "_DVBNAME)
Q
PARCHK ;
;;DVBAB CAPRI ALLOW OLD VERSION^1^NO
;;DVBAB CAPRI HIA UPDATE URL^1^http://vaww.domain.ext/hia/Downloads.htm
;;DVBAB CAPRI CDEFOLD TOKEN^1^2x6kXBtW82TdqFQEKaC75k44vUHjHGnq
;;DVBAB CAPRI CMT SSN VAR^1^5
;;DVBAB CAPRI CMT SSN VAR^2^_VETERANSSOCIALSECURITYNUMBER,_CLAIMANTVETERANSSOCIALSECURITYNUMBER,_PATIENTVETERANSSOCIALSECURITYNUMBER,_2SOCIALSECURITYNUMBER,_SOCIALSECURITYNUMBER,_SSN
;;DVBAB CAPRI CMT SSN VAR^3^_FIRSTNAME!_MIDDLEINITIAL!_LASTNAME,_NAMEOFVETERAN,_NAMEOFCLAIMANTVETERAN,_NAMEOFPATIENTVETERAN,_NAME
;;DVBAB CAPRI CMT SSN VAR^4^DATEOFEXAMINATIONMMDDYYYY,DATE,DATEOFEXAMINATION
;;DVBAB CAPRI CMT TOGGLE^1^1
;;DVBAB CAPRI DOC LIBRARY^1^https://www.domain.ext/vdl/application.asp?appid=133
;;DVBAB CAPRI EFOLDER LOCATION^1^SPOKANE
;;DVBAB CAPRI GITHUB APP ID^1^297672
;;DVBAB CAPRI GITHUB ERROR DATE^1^2/28/2023
;;DVBAB CAPRI GITHUB INSTALL ID^1^34553682
;;DVBAB CAPRI GITHUB LINK^1^https://github.com/department-of-veterans-affairs/dbq-cmt-iepd
;;DVBAB CAPRI INVALID CHARACTERS^1^32,63
;;DVBAB CAPRI INVALID CHARACTERS^2^1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,127,160
;;DVBAB CAPRI INVALID CHARACTERS^3^128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,144,145,146,147,148,149,150
;;DVBAB CAPRI JLV URL^1^https://jlv.domain.ext/JLV/Login/loginParam?loginSource=CAPRI
;;DVBAB CAPRI NEWS SERVER URL^1^https://dvagov.sharepoint.com/:t:/r/sites/OITEPMOCAPRICOMM/Shared%20Documents/CAPRI%20Announcements/
;;DVBAB CAPRI NF CLIENT^1^463b2348-85aa-40ba-81c8-af57fd0da97d@e95f1b23-abaf-45ee-821d-b7ab251ab3bf
;;DVBAB CAPRI NF DRIVEID URL^1^https://graph.microsoft.com/v1.0/sites/{{SITEID}}/drives
;;DVBAB CAPRI NF FILEINFO URL^1^https://graph.microsoft.com/v1.0/drives/{{DRIVEID}}//root:/CAPRI Announcements:/children(''{{FILENAME}}'')
;;DVBAB CAPRI NF SITEID URL^1^https://graph.microsoft.com/v1.0/sites/dvagov.sharepoint.com:/sites/OITEPMOCAPRICOMM
;;DVBAB CAPRI NF TENANT^1^e95f1b23-abaf-45ee-821d-b7ab251ab3bf
;;DVBAB CAPRI NF TOKEN^1^hst8Q~Nv9H3NNUPjCMi2UVrojQMoCTATbLpU6chC
;;DVBAB CAPRI NF TOKEN URL^1^https://login.microsoftonline.com/{{TENANTID}}/oauth2/v2.0/token
;;DVBAB CAPRI PDF SIG FLD NAMES^1^S=AEXAMINERSSIGNATURE
;;DVBAB CAPRI PDF SIG FLD NAMES^2^N=BEXAMINERSPRINTEDNAME
;;DVBAB CAPRI PDF SIG FLD NAMES^3^D=CDATESIGNED
;;DVBAB CAPRI PDF SIG FLD NAMES^4^A=GEXAMINERSADDRESS
;;DVBAB CAPRI PDF SIG FLD NAMES^5^S=SOCIALWORKERSSIGNATURE
;;DVBAB CAPRI PDF SIG FLD NAMES^6^N=SOCIALWORKERSPRINTEDNAME
;;DVBAB CAPRI PDF SIG FLD NAMES^7^D=DATESIGNED
;;DVBAB CAPRI PDF SIG FLD NAMES^8^A=SOCIALWORKERSADDRESS
;;DVBAB CAPRI PDF SIG FLD NAMES^9^A=EXAMININGLOCATIONFACILITYORADDRESS
;;DVBAB CAPRI PDF SIG FLD NAMES^10^D=YYYYMMDD
;;DVBAB CAPRI PDF SIG FLD NAMES^11^N=PRINTEDNAME
;;DVBAB CAPRI PDF SIG FLD NAMES^12^S=SIGNATURE
;;DVBAB CAPRI PDF SIG FLD NAMES^13^A=FPSYCHIATRISTPSYCHOLOGISTEXAMINERADDRESS
;;DVBAB CAPRI PDF SIG FLD NAMES^14^N=BPSYCHIATRISTPSYCHOLOGISTEXAMINERPRINTEDNAME
;;DVBAB CAPRI PDF SIG FLD NAMES^15^S=APSYCHIATRISTPSYCHOLOGISTEXAMINERSIGNATURETITLE
;;DVBAB CAPRI PDF SIG FLD NAMES^16^A=GPSYCHIATRISTPSYCHOLOGISTEXAMINERADDRESS
;;DVBAB CAPRI PDF SIG FLD NAMES^19^A=ADDRESSOFMEDICALFACILITYNUMBERANDSTREETORRURALRO
;;DVBAB CAPRI PDF SIG FLD NAMES^20^D=DATESIGNEDMMDDYYYY
;;DVBAB CAPRI PDF SIG FLD NAMES^21^N=PRINTEDNAMEOFEXAMINER
;;DVBAB CAPRI PDF SIG FLD NAMES^22^X=DBQSEPARATIONHEALTHASSESSMENT_528_SIGNATURE
;;DVBAB CAPRI PDF SIG FLD NAMES^23^X=DBQSEPARATIONHEALTHASSESSMENT_527_PRINTEDNAME
;;DVBAB CAPRI PDF SIG FLD NAMES^17^A=FEXAMINERSADDRESS
;;DVBAB CAPRI PDF SIG FLD NAMES^18^S=SIGNATUREOFEXAMINERREQUIRED
;;DVBAB CAPRI PDF SIG FLD NAMES^24^A=EXAMINERSADDRESS
;;DVBAB CAPRI PDF SIG FLD NAMES^25^N=EXAMINERSPRINTEDNAME
;;DVBAB CAPRI PDF SIG FLD NAMES^26^S=EXAMINERSSIGNATURE
;;DVBAB CAPRI PIV ACTIVE^1^YES
;;DVBAB CAPRI PIV URL^1^https://vefs-claimevidence.prod8.bip.domain.ext/
;;DVBAB CAPRI PN TOGGLE^1^0
;;DVBAB CAPRI PROXY ACTIVE^1^YES
;;DVBAB CAPRI PROXY URL^1^https://capriauthsvrprod.domain.ext:7003
;;DVBAB CAPRI SECURITY TOGGLE^1^3
;;DVBAB CAPRI SP IEPD INFO^1^https://graph.microsoft.com/v1.0/drives/{{DRIVEID}}//root:/IEPD:/children(''{{FILENAME}}'')
;;DVBAB CAPRI VHA TITLE^1^C&P SECTION CHIEF*SUPERVISOR*LEAD PHYSICIAN MD*PROGRAM ANALYST*C&P MANAGER*C&P SUPERVISOR*IDES PROGRAM MANAGER*C&P COORDINATOR
;;DVBAB CAPRI VICAP URL^1^http://vaww.demo.domain.ext/dmareports.asp
;;DVBAB CAPRI VIRTUALVA PROD URL^1^https://vbaphiprdwlsappa.vba.domain.ext:7002/VABFI/services/vva?wsdl
;;DVBAB CAPRI VIRTUALVA TEST URL^1^https://vbaphitstwlsappa.vba.domain.ext:7002/VABFI/services/vva
;;DVBAB CAPRI VLER DAS CH3 URL^1^https://CAPRIAuthSvrTest.domain.ext:7003/CapriProxyServlet
;;DVBAB CAPRI VLER DAS PROD URL^1^https://capriauthsvrprod.domain.ext:7003/dbq
;;DVBAB CAPRI VVA PROD PASSWD^1^Passw0rd1
;;DVBAB CAPRI VVA PROD TOKEN^1^Username-1
;;DVBAB CAPRI VVA TEST PASSWD^1^XXXXX
;;DVBAB CAPRI VVA TEST TOKEN^1^Username-1
;;DVBAB CAPRI VVA USER^1^CAPRI
;;DVBAB PIV RESOURCE^1^api/v1/rest/files
;;DVBAB PROXY RESOURCE^1^clinical-document
;;DVBAB TRANSMISSION PRIORITY^1^PIV
;;$EXIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVB254P2 6316 printed Sep 23, 2025@19:33:37 Page 2
DVB254P2 ;ALB/CP/BG - PATCH DVBA*2.7*254 POST-INSTALL ROUTINE; MAY 28, 2025@16:20 ; 5/29/25 9:13am
+1 ;;2.7;AMIE;**254**;Apr 10, 1995;Build 41
+2 ; Per VHA Directive 6402 this routine should not be modified
+3 ; Reference to SUPPORTED PARAMETER TOOL ENTRY POINTS in ICR #2263
+4 QUIT
+5 ;
PARAM ; ;update parameter value in test vs prod CAPRI:19209 bg
+1 NEW DVBVER,DVBI,DVBDATA,DVBPAR,DVBINST,DVBNAME,DVBVALUE,DVBPKG,DVBRESET
+2 FOR DVBI=1:1
SET DVBDATA=$PIECE($TEXT(PARCHK+DVBI),";;",2)
if DVBDATA["$EXIT"
QUIT
Begin DoDot:1
+3 SET DVBRESET=""
+4 SET DVBNAME=$PIECE(DVBDATA,U,1)
+5 SET DVBINST=$PIECE(DVBDATA,U,2)
+6 SET DVBVALUE=$PIECE(DVBDATA,U,3)
+7 SET DVBPKG="PKG.AUTOMATED MED INFO EXCHANGE"
+8 SET DVBPAR=$$GET^XPAR(DVBPKG,DVBNAME,DVBINST,"E")
+9 IF DVBPAR'=DVBVALUE
SET DVBRESET=1
DO EN^XPAR(DVBPKG,DVBNAME,DVBINST,DVBVALUE,.DVBVER)
+10 DO UPDMSG
+11 QUIT
End DoDot:1
+12 QUIT
+13 ;
UPDMSG ;
+1 IF $GET(DVBVER)
Begin DoDot:1
+2 DO BMES^XPDUTL(DVBNAME_" Update FAILURE.")
+3 DO MES^XPDUTL(" Failure reason: "_DVBVER)
End DoDot:1
+4 IF $GET(DVBRESET)=1
Begin DoDot:1
+5 DO BMES^XPDUTL(DVBNAME_" Updated Successfully")
End DoDot:1
+6 IF $GET(DVBRESET)'=1
Begin DoDot:1
+7 DO BMES^XPDUTL("Update not required for "_DVBNAME)
End DoDot:1
+8 QUIT
PARCHK ;
+1 ;;DVBAB CAPRI ALLOW OLD VERSION^1^NO
+2 ;;DVBAB CAPRI HIA UPDATE URL^1^http://vaww.domain.ext/hia/Downloads.htm
+3 ;;DVBAB CAPRI CDEFOLD TOKEN^1^2x6kXBtW82TdqFQEKaC75k44vUHjHGnq
+4 ;;DVBAB CAPRI CMT SSN VAR^1^5
+5 ;;DVBAB CAPRI CMT SSN VAR^2^_VETERANSSOCIALSECURITYNUMBER,_CLAIMANTVETERANSSOCIALSECURITYNUMBER,_PATIENTVETERANSSOCIALSECURITYNUMBER,_2SOCIALSECURITYNUMBER,_SOCIALSECURITYNUMBER,_SSN
+6 ;;DVBAB CAPRI CMT SSN VAR^3^_FIRSTNAME!_MIDDLEINITIAL!_LASTNAME,_NAMEOFVETERAN,_NAMEOFCLAIMANTVETERAN,_NAMEOFPATIENTVETERAN,_NAME
+7 ;;DVBAB CAPRI CMT SSN VAR^4^DATEOFEXAMINATIONMMDDYYYY,DATE,DATEOFEXAMINATION
+8 ;;DVBAB CAPRI CMT TOGGLE^1^1
+9 ;;DVBAB CAPRI DOC LIBRARY^1^https://www.domain.ext/vdl/application.asp?appid=133
+10 ;;DVBAB CAPRI EFOLDER LOCATION^1^SPOKANE
+11 ;;DVBAB CAPRI GITHUB APP ID^1^297672
+12 ;;DVBAB CAPRI GITHUB ERROR DATE^1^2/28/2023
+13 ;;DVBAB CAPRI GITHUB INSTALL ID^1^34553682
+14 ;;DVBAB CAPRI GITHUB LINK^1^https://github.com/department-of-veterans-affairs/dbq-cmt-iepd
+15 ;;DVBAB CAPRI INVALID CHARACTERS^1^32,63
+16 ;;DVBAB CAPRI INVALID CHARACTERS^2^1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,127,160
+17 ;;DVBAB CAPRI INVALID CHARACTERS^3^128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,144,145,146,147,148,149,150
+18 ;;DVBAB CAPRI JLV URL^1^https://jlv.domain.ext/JLV/Login/loginParam?loginSource=CAPRI
+19 ;;DVBAB CAPRI NEWS SERVER URL^1^https://dvagov.sharepoint.com/:t:/r/sites/OITEPMOCAPRICOMM/Shared%20Documents/CAPRI%20Announcements/
+20 ;;DVBAB CAPRI NF CLIENT^1^463b2348-85aa-40ba-81c8-af57fd0da97d@e95f1b23-abaf-45ee-821d-b7ab251ab3bf
+21 ;;DVBAB CAPRI NF DRIVEID URL^1^https://graph.microsoft.com/v1.0/sites/{{SITEID}}/drives
+22 ;;DVBAB CAPRI NF FILEINFO URL^1^https://graph.microsoft.com/v1.0/drives/{{DRIVEID}}//root:/CAPRI Announcements:/children(''{{FILENAME}}'')
+23 ;;DVBAB CAPRI NF SITEID URL^1^https://graph.microsoft.com/v1.0/sites/dvagov.sharepoint.com:/sites/OITEPMOCAPRICOMM
+24 ;;DVBAB CAPRI NF TENANT^1^e95f1b23-abaf-45ee-821d-b7ab251ab3bf
+25 ;;DVBAB CAPRI NF TOKEN^1^hst8Q~Nv9H3NNUPjCMi2UVrojQMoCTATbLpU6chC
+26 ;;DVBAB CAPRI NF TOKEN URL^1^https://login.microsoftonline.com/{{TENANTID}}/oauth2/v2.0/token
+27 ;;DVBAB CAPRI PDF SIG FLD NAMES^1^S=AEXAMINERSSIGNATURE
+28 ;;DVBAB CAPRI PDF SIG FLD NAMES^2^N=BEXAMINERSPRINTEDNAME
+29 ;;DVBAB CAPRI PDF SIG FLD NAMES^3^D=CDATESIGNED
+30 ;;DVBAB CAPRI PDF SIG FLD NAMES^4^A=GEXAMINERSADDRESS
+31 ;;DVBAB CAPRI PDF SIG FLD NAMES^5^S=SOCIALWORKERSSIGNATURE
+32 ;;DVBAB CAPRI PDF SIG FLD NAMES^6^N=SOCIALWORKERSPRINTEDNAME
+33 ;;DVBAB CAPRI PDF SIG FLD NAMES^7^D=DATESIGNED
+34 ;;DVBAB CAPRI PDF SIG FLD NAMES^8^A=SOCIALWORKERSADDRESS
+35 ;;DVBAB CAPRI PDF SIG FLD NAMES^9^A=EXAMININGLOCATIONFACILITYORADDRESS
+36 ;;DVBAB CAPRI PDF SIG FLD NAMES^10^D=YYYYMMDD
+37 ;;DVBAB CAPRI PDF SIG FLD NAMES^11^N=PRINTEDNAME
+38 ;;DVBAB CAPRI PDF SIG FLD NAMES^12^S=SIGNATURE
+39 ;;DVBAB CAPRI PDF SIG FLD NAMES^13^A=FPSYCHIATRISTPSYCHOLOGISTEXAMINERADDRESS
+40 ;;DVBAB CAPRI PDF SIG FLD NAMES^14^N=BPSYCHIATRISTPSYCHOLOGISTEXAMINERPRINTEDNAME
+41 ;;DVBAB CAPRI PDF SIG FLD NAMES^15^S=APSYCHIATRISTPSYCHOLOGISTEXAMINERSIGNATURETITLE
+42 ;;DVBAB CAPRI PDF SIG FLD NAMES^16^A=GPSYCHIATRISTPSYCHOLOGISTEXAMINERADDRESS
+43 ;;DVBAB CAPRI PDF SIG FLD NAMES^19^A=ADDRESSOFMEDICALFACILITYNUMBERANDSTREETORRURALRO
+44 ;;DVBAB CAPRI PDF SIG FLD NAMES^20^D=DATESIGNEDMMDDYYYY
+45 ;;DVBAB CAPRI PDF SIG FLD NAMES^21^N=PRINTEDNAMEOFEXAMINER
+46 ;;DVBAB CAPRI PDF SIG FLD NAMES^22^X=DBQSEPARATIONHEALTHASSESSMENT_528_SIGNATURE
+47 ;;DVBAB CAPRI PDF SIG FLD NAMES^23^X=DBQSEPARATIONHEALTHASSESSMENT_527_PRINTEDNAME
+48 ;;DVBAB CAPRI PDF SIG FLD NAMES^17^A=FEXAMINERSADDRESS
+49 ;;DVBAB CAPRI PDF SIG FLD NAMES^18^S=SIGNATUREOFEXAMINERREQUIRED
+50 ;;DVBAB CAPRI PDF SIG FLD NAMES^24^A=EXAMINERSADDRESS
+51 ;;DVBAB CAPRI PDF SIG FLD NAMES^25^N=EXAMINERSPRINTEDNAME
+52 ;;DVBAB CAPRI PDF SIG FLD NAMES^26^S=EXAMINERSSIGNATURE
+53 ;;DVBAB CAPRI PIV ACTIVE^1^YES
+54 ;;DVBAB CAPRI PIV URL^1^https://vefs-claimevidence.prod8.bip.domain.ext/
+55 ;;DVBAB CAPRI PN TOGGLE^1^0
+56 ;;DVBAB CAPRI PROXY ACTIVE^1^YES
+57 ;;DVBAB CAPRI PROXY URL^1^https://capriauthsvrprod.domain.ext:7003
+58 ;;DVBAB CAPRI SECURITY TOGGLE^1^3
+59 ;;DVBAB CAPRI SP IEPD INFO^1^https://graph.microsoft.com/v1.0/drives/{{DRIVEID}}//root:/IEPD:/children(''{{FILENAME}}'')
+60 ;;DVBAB CAPRI VHA TITLE^1^C&P SECTION CHIEF*SUPERVISOR*LEAD PHYSICIAN MD*PROGRAM ANALYST*C&P MANAGER*C&P SUPERVISOR*IDES PROGRAM MANAGER*C&P COORDINATOR
+61 ;;DVBAB CAPRI VICAP URL^1^http://vaww.demo.domain.ext/dmareports.asp
+62 ;;DVBAB CAPRI VIRTUALVA PROD URL^1^https://vbaphiprdwlsappa.vba.domain.ext:7002/VABFI/services/vva?wsdl
+63 ;;DVBAB CAPRI VIRTUALVA TEST URL^1^https://vbaphitstwlsappa.vba.domain.ext:7002/VABFI/services/vva
+64 ;;DVBAB CAPRI VLER DAS CH3 URL^1^https://CAPRIAuthSvrTest.domain.ext:7003/CapriProxyServlet
+65 ;;DVBAB CAPRI VLER DAS PROD URL^1^https://capriauthsvrprod.domain.ext:7003/dbq
+66 ;;DVBAB CAPRI VVA PROD PASSWD^1^Passw0rd1
+67 ;;DVBAB CAPRI VVA PROD TOKEN^1^Username-1
+68 ;;DVBAB CAPRI VVA TEST PASSWD^1^XXXXX
+69 ;;DVBAB CAPRI VVA TEST TOKEN^1^Username-1
+70 ;;DVBAB CAPRI VVA USER^1^CAPRI
+71 ;;DVBAB PIV RESOURCE^1^api/v1/rest/files
+72 ;;DVBAB PROXY RESOURCE^1^clinical-document
+73 ;;DVBAB TRANSMISSION PRIORITY^1^PIV
+74 ;;$EXIT
