DVBC243P.m

DVBC243P ;ALB/BG - PATCH DVBA*2.7*243 POST-INSTALL ROUTINE; SEP 7, 2022@16:20 ; 1/18/23 2:01pm

 ;;2.7;AMIE;**243**;Apr 10, 1995;Build 13

 ; Per VHA Directive 6402 this routine should not be modified

 ; Reference to SUPPORTED PARAMETER TOOL ENTRY POINTS in ICR #2263

 Q

 ;

VUPDATE ; MINIMUM AND PREVIOUS CAPRI VERSION UPDATES

 N DVBVER

 D MES^XPDUTL("Patch DVBA*2.7*243 post install started")

 S DVBVER=$$ENXPAR("PKG","DVBAB CAPRI MINIMUM VERSION","CAPRI GUI V2.7*243.7*1*A*3230323*1.3*1.3")

 D UPDMSG("CAPRI MINIMUM VERSION",DVBVER)

 S DVBVER=$$ENXPAR("PKG","DVBAB CAPRI PREVIOUS VERSION","DVBA*2.7*242.8")

 D UPDMSG("DVBAB CAPRI PREVIOUS VERSION",DVBVER)

 D BMES^XPDUTL("Patch DVBA*2.7*243 post install finished")

 Q

 ;

ENXPAR(DVBENT,DVBPAR,DVBVAL) ;

 N DVBVER

 D EN^XPAR(DVBENT,DVBPAR,1,DVBVAL,.DVBVER)

 Q DVBVER

 ;

UPDMSG(DVBPAR,DVBVER) ;

 I DVBVER D

 . D BMES^XPDUTL(DVBPAR_" Update FAILURE.")

 . D MES^XPDUTL("  Failure reason: "_DVBVER)

 E  D

 . D BMES^XPDUTL(DVBPAR_" Updated Successfully")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DVBC243P   1029     printed  Apr 09, 2024@20:50:46                                                                                                                                                                                                    Page 2

DVBC243P  ;ALB/BG - PATCH DVBA*2.7*243 POST-INSTALL ROUTINE; SEP 7, 2022@16:20 ; 1/18/23 2:01pm

 +1       ;;2.7;AMIE;**243**;Apr 10, 1995;Build 13

 +2       ; Per VHA Directive 6402 this routine should not be modified

 +3       ; Reference to SUPPORTED PARAMETER TOOL ENTRY POINTS in ICR #2263

 +4        QUIT 

 +5       ;

VUPDATE   ; MINIMUM AND PREVIOUS CAPRI VERSION UPDATES

 +1        NEW DVBVER

 +2        DO MES^XPDUTL("Patch DVBA*2.7*243 post install started")

 +3        SET DVBVER=$$ENXPAR("PKG","DVBAB CAPRI MINIMUM VERSION","CAPRI GUI V2.7*243.7*1*A*3230323*1.3*1.3")

 +4        DO UPDMSG("CAPRI MINIMUM VERSION",DVBVER)

 +5        SET DVBVER=$$ENXPAR("PKG","DVBAB CAPRI PREVIOUS VERSION","DVBA*2.7*242.8")

 +6        DO UPDMSG("DVBAB CAPRI PREVIOUS VERSION",DVBVER)

 +7        DO BMES^XPDUTL("Patch DVBA*2.7*243 post install finished")

 +8        QUIT 

 +9       ;

ENXPAR(DVBENT,DVBPAR,DVBVAL) ;

 +1        NEW DVBVER

 +2        DO EN^XPAR(DVBENT,DVBPAR,1,DVBVAL,.DVBVER)

 +3        QUIT DVBVER

 +4       ;

UPDMSG(DVBPAR,DVBVER) ;

 +1        IF DVBVER

               Begin DoDot:1

 +2                DO BMES^XPDUTL(DVBPAR_" Update FAILURE.")

 +3                DO MES^XPDUTL("  Failure reason: "_DVBVER)

               End DoDot:1

 +4       IF '$TEST

               Begin DoDot:1

 +5                DO BMES^XPDUTL(DVBPAR_" Updated Successfully")

               End DoDot:1

 +6        QUIT