DVBC224P.m

DVBC224P ;ALB/BG;PATCH 224 POST INSTALL ; 12/2/20 12:48pm

 ;;2.7;AMIE;**224**;Apr 10, 1995 ;Build 12

 ;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*224.3*1*A*3210205*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 ---DVBC224P   1048     printed  Apr 23, 2025@17:57:34                                                                                                                                                                                                    Page 2

DVBC224P  ;ALB/BG;PATCH 224 POST INSTALL ; 12/2/20 12:48pm

 +1       ;;2.7;AMIE;**224**;Apr 10, 1995 ;Build 12

 +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*224.3*1*A*3210205*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       ;