DVBC223P.m

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 ---DVBC223P   1040     printed  Apr 09, 2024@20:54:08                                                                                                                                                                                                    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       ;