DVBC240P.m

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 ---DVBC240P   1011     printed  Feb 18, 2025@23:09:35                                                                                                                                                                                                    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       ;