- DVBC226P ;ALB/BG;PATCH 226 POST INSTALL ; 5/25/21 11:48am
- ;;2.7;AMIE;**226**;Apr 10, 1995;Build 18
- ;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*226.10*1*A*3210815*1.3*1.3")
- 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[HDVBC226P 1048 printed Feb 18, 2025@23:09:31 Page 2
- DVBC226P ;ALB/BG;PATCH 226 POST INSTALL ; 5/25/21 11:48am
- +1 ;;2.7;AMIE;**226**;Apr 10, 1995;Build 18
- +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*226.10*1*A*3210815*1.3*1.3")
- +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 ;