DVBC240P ;ALB/BG;PATCH 240 POST INSTALL ; 1/26/22 8:16am
;;2.7;AMIE;**240**;Apr 10, 1995;Build 15
;Per VHA Directive 6402 this routine should not be modified
;Updates Capri Minimum version
Q
;
PMAIN ;-- update DVBAB CAPRI MINIMUM VERSION Parameter.
;
N DVBERR,DVBERR2
D BMES^XPDUTL("*************************************************")
D BMES^XPDUTL("Start DVBAB CAPRI Minimum Version Parameter Update")
S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI MINIMUM VERSION","CAPRI GUI V2.7*240.1*1*A*3220415*1.3*1.3")
D UPDMSG("CAPRI Minimum Version",DVBERR)
D BMES^XPDUTL("End DVBAB CAPRI Minimum Version Parameter Updates")
D MES^XPDUTL("**************************************************")
Q
ENXPAR(DVBENT,DVBPAR,DVBVAL) ;
;
N DVBERR
D EN^XPAR(DVBENT,DVBPAR,1,DVBVAL,.DVBERR)
Q DVBERR
;
;
UPDMSG(DVBPAR,DVBERR) ;
;
I DVBERR D
. D MES^XPDUTL(DVBPAR_" update FAILURE.")
. D MES^XPDUTL(" Failure reason: "_DVBERR)
E D
. D MES^XPDUTL(DVBPAR_" Update Successful")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBC240P 1011 printed Dec 13, 2024@01:43:12 Page 2
DVBC240P ;ALB/BG;PATCH 240 POST INSTALL ; 1/26/22 8:16am
+1 ;;2.7;AMIE;**240**;Apr 10, 1995;Build 15
+2 ;Per VHA Directive 6402 this routine should not be modified
+3 ;Updates Capri Minimum version
+4 QUIT
+5 ;
PMAIN ;-- update DVBAB CAPRI MINIMUM VERSION Parameter.
+1 ;
+2 NEW DVBERR,DVBERR2
+3 DO BMES^XPDUTL("*************************************************")
+4 DO BMES^XPDUTL("Start DVBAB CAPRI Minimum Version Parameter Update")
+5 SET DVBERR=$$ENXPAR("PKG","DVBAB CAPRI MINIMUM VERSION","CAPRI GUI V2.7*240.1*1*A*3220415*1.3*1.3")
+6 DO UPDMSG("CAPRI Minimum Version",DVBERR)
+7 DO BMES^XPDUTL("End DVBAB CAPRI Minimum Version Parameter Updates")
+8 DO MES^XPDUTL("**************************************************")
+9 QUIT
ENXPAR(DVBENT,DVBPAR,DVBVAL) ;
+1 ;
+2 NEW DVBERR
+3 DO EN^XPAR(DVBENT,DVBPAR,1,DVBVAL,.DVBERR)
+4 QUIT DVBERR
+5 ;
+6 ;
UPDMSG(DVBPAR,DVBERR) ;
+1 ;
+2 IF DVBERR
Begin DoDot:1
+3 DO MES^XPDUTL(DVBPAR_" update FAILURE.")
+4 DO MES^XPDUTL(" Failure reason: "_DVBERR)
End DoDot:1
+5 IF '$TEST
Begin DoDot:1
+6 DO MES^XPDUTL(DVBPAR_" Update Successful")
End DoDot:1
+7 QUIT
+8 ;
