DVBC250P ;ALB/BG - PATCH DVBA*2.7*250 POST-INSTALL ROUTINE; SEP 20, 2023@10:20 ; 10/24/23 2:31pm
;;2.7;AMIE;**250**;Apr 10, 1995;Build 19
; Per VHA Directive 6402 this routine should not be modified
; Reference to SUPPORTED PARAMETER TOOL ENTRY POINTS in ICR #2263
Q
;
VUPDATE ; MINIMUM AND PREVIOUS CAPRI VERSION UPDATES
N DVBVER
D MES^XPDUTL("Patch DVBA*2.7*250 post install started")
S DVBVER=$$ENXPAR("PKG","DVBAB CAPRI NF TOKEN URL","https://login.microsoftonline.com/{{TENANTID}}/oauth2/v2.0/token")
D UPDMSG("DVBAB CAPRI NF TOKEN URL",DVBVER)
S DVBVER=$$ENXPAR("PKG","DVBAB CAPRI NF SITEID URL","https://graph.microsoft.com/v1.0/sites/dvagov.sharepoint.com:/sites/OITEPMOCAPRICOMM")
D UPDMSG("DVBAB CAPRI NF SITEID URL",DVBVER)
S DVBVER=$$ENXPAR("PKG","DVBAB CAPRI NF DRIVEID URL","https://graph.microsoft.com/v1.0/sites/{{SITEID}}/drives")
D UPDMSG("DVBAB CAPRI NF DRIVEID URL",DVBVER)
S DVBVER=$$ENXPAR("PKG","DVBAB CAPRI NF FILEINFO URL","https://graph.microsoft.com/v1.0/drives/{{DRIVEID}}//root:/CAPRI Announcements:/children(''{{FILENAME}}'')")
D UPDMSG("DVBAB CAPRI NF FILEINFO URL",DVBVER)
S DVBVER=$$ENXPAR("PKG","DVBAB CAPRI MINIMUM VERSION","CAPRI GUI V2.7*250.7*1*A*3240105*1.3*1.3")
D UPDMSG("CAPRI MINIMUM VERSION",DVBVER)
S DVBVER=$$ENXPAR("PKG","DVBAB CAPRI PREVIOUS VERSION","DVBA*2.7*243.7")
D UPDMSG("DVBAB CAPRI PREVIOUS VERSION",DVBVER)
S DVBVER=$$ENXPAR("PKG","DVBAB CAPRI NF CLIENT","463b2348-85aa-40ba-81c8-af57fd0da97d@e95f1b23-abaf-45ee-821d-b7ab251ab3bf")
D UPDMSG("DVBAB CAPRI NF CLIENT",DVBVER)
S DVBVER=$$ENXPAR("PKG","DVBAB CAPRI NF TENANT","e95f1b23-abaf-45ee-821d-b7ab251ab3bf")
D UPDMSG("DVBAB CAPRI NF TENANT",DVBVER)
S DVBVER=$$ENXPAR("PKG","DVBAB CAPRI NF TOKEN","7xB8Q~74JE5Eh~5g3mn2ZNxbWSvtYkjnwWjfJbbw")
D UPDMSG("DVBAB CAPRI NF TOKEN",DVBVER)
D BMES^XPDUTL("Patch DVBA*2.7*250 post install finished")
Q
;
ENXPAR(DVBENT,DVBPAR,DVBVAL) ;
N DVBVER
D EN^XPAR(DVBENT,DVBPAR,1,DVBVAL,.DVBVER)
Q DVBVER
;
UPDMSG(DVBPAR,DVBVER) ;
I DVBVER D
. D BMES^XPDUTL(DVBPAR_" Update FAILURE.")
. D MES^XPDUTL(" Failure reason: "_DVBVER)
E D
. D BMES^XPDUTL(DVBPAR_" Updated Successfully")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBC250P 2203 printed Sep 23, 2025@19:19:15 Page 2
DVBC250P ;ALB/BG - PATCH DVBA*2.7*250 POST-INSTALL ROUTINE; SEP 20, 2023@10:20 ; 10/24/23 2:31pm
+1 ;;2.7;AMIE;**250**;Apr 10, 1995;Build 19
+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 ;
VUPDATE ; MINIMUM AND PREVIOUS CAPRI VERSION UPDATES
+1 NEW DVBVER
+2 DO MES^XPDUTL("Patch DVBA*2.7*250 post install started")
+3 SET DVBVER=$$ENXPAR("PKG","DVBAB CAPRI NF TOKEN URL","https://login.microsoftonline.com/{{TENANTID}}/oauth2/v2.0/token")
+4 DO UPDMSG("DVBAB CAPRI NF TOKEN URL",DVBVER)
+5 SET DVBVER=$$ENXPAR("PKG","DVBAB CAPRI NF SITEID URL","https://graph.microsoft.com/v1.0/sites/dvagov.sharepoint.com:/sites/OITEPMOCAPRICOMM")
+6 DO UPDMSG("DVBAB CAPRI NF SITEID URL",DVBVER)
+7 SET DVBVER=$$ENXPAR("PKG","DVBAB CAPRI NF DRIVEID URL","https://graph.microsoft.com/v1.0/sites/{{SITEID}}/drives")
+8 DO UPDMSG("DVBAB CAPRI NF DRIVEID URL",DVBVER)
+9 SET DVBVER=$$ENXPAR("PKG","DVBAB CAPRI NF FILEINFO URL","https://graph.microsoft.com/v1.0/drives/{{DRIVEID}}//root:/CAPRI Announcements:/children(''{{FILENAME}}'')")
+10 DO UPDMSG("DVBAB CAPRI NF FILEINFO URL",DVBVER)
+11 SET DVBVER=$$ENXPAR("PKG","DVBAB CAPRI MINIMUM VERSION","CAPRI GUI V2.7*250.7*1*A*3240105*1.3*1.3")
+12 DO UPDMSG("CAPRI MINIMUM VERSION",DVBVER)
+13 SET DVBVER=$$ENXPAR("PKG","DVBAB CAPRI PREVIOUS VERSION","DVBA*2.7*243.7")
+14 DO UPDMSG("DVBAB CAPRI PREVIOUS VERSION",DVBVER)
+15 SET DVBVER=$$ENXPAR("PKG","DVBAB CAPRI NF CLIENT","463b2348-85aa-40ba-81c8-af57fd0da97d@e95f1b23-abaf-45ee-821d-b7ab251ab3bf")
+16 DO UPDMSG("DVBAB CAPRI NF CLIENT",DVBVER)
+17 SET DVBVER=$$ENXPAR("PKG","DVBAB CAPRI NF TENANT","e95f1b23-abaf-45ee-821d-b7ab251ab3bf")
+18 DO UPDMSG("DVBAB CAPRI NF TENANT",DVBVER)
+19 SET DVBVER=$$ENXPAR("PKG","DVBAB CAPRI NF TOKEN","7xB8Q~74JE5Eh~5g3mn2ZNxbWSvtYkjnwWjfJbbw")
+20 DO UPDMSG("DVBAB CAPRI NF TOKEN",DVBVER)
+21 DO BMES^XPDUTL("Patch DVBA*2.7*250 post install finished")
+22 QUIT
+23 ;
ENXPAR(DVBENT,DVBPAR,DVBVAL) ;
+1 NEW DVBVER
+2 DO EN^XPAR(DVBENT,DVBPAR,1,DVBVAL,.DVBVER)
+3 QUIT DVBVER
+4 ;
UPDMSG(DVBPAR,DVBVER) ;
+1 IF DVBVER
Begin DoDot:1
+2 DO BMES^XPDUTL(DVBPAR_" Update FAILURE.")
+3 DO MES^XPDUTL(" Failure reason: "_DVBVER)
End DoDot:1
+4 IF '$TEST
Begin DoDot:1
+5 DO BMES^XPDUTL(DVBPAR_" Updated Successfully")
End DoDot:1
+6 QUIT
