DVBC223P ;ALB/BG;PATCH 223 POST INSTALL ; 10/20/20 4:06pm
;;2.7;AMIE;**223**;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
W !!,"*************************************************"
W !!,"Start DVBAB CAPRI Minimum Version Parameter Update"
W !,"-------------------------",!
;
S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI MINIMUM VERSION","CAPRI GUI V2.7*223.6*1*A*3201117")
D UPDMSG("CAPRI Minimum Version",DVBERR)
;
W !!,"-------------------------"
W !,"End DVBAB CAPRI Minimum Version Parameter Updates"
W !,"****************************************************",!!
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[HDVBC223P 1040 printed Nov 22, 2024@16:53:19 Page 2
DVBC223P ;ALB/BG;PATCH 223 POST INSTALL ; 10/20/20 4:06pm
+1 ;;2.7;AMIE;**223**;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
+3 WRITE !!,"*************************************************"
+4 WRITE !!,"Start DVBAB CAPRI Minimum Version Parameter Update"
+5 WRITE !,"-------------------------",!
+6 ;
+7 SET DVBERR=$$ENXPAR("PKG","DVBAB CAPRI MINIMUM VERSION","CAPRI GUI V2.7*223.6*1*A*3201117")
+8 DO UPDMSG("CAPRI Minimum Version",DVBERR)
+9 ;
+10 WRITE !!,"-------------------------"
+11 WRITE !,"End DVBAB CAPRI Minimum Version Parameter Updates"
+12 WRITE !,"****************************************************",!!
+13 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 ;
