DVBC238P ;ALB/BG - PATCH 238 POST INSTALL ; 7/27/22 9:04am
;;2.7;AMIE;**238**;Apr 10, 1995;Build 16
;Per VHA Directive 6402 this routine should not be modified
;#1157 - $$ADD^XPDMENU (supported)
;Updates Capri Minimum version, parameters and adds options
Q
;
PMAIN ;-- update DVBAB CAPRI MINIMUM VERSION Parameter.
D MES^XPDUTL("Patch DVBA*2.7*238 post install started")
N DVBERR,DVBMENU,DVBOPT,DVBOR,DVBSYN
S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI MINIMUM VERSION","CAPRI GUI V2.7*238.2*1*A*3220815*1.3*1.3")
D UPDMSG("CAPRI MINIMUM VERSION",DVBERR)
S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI PREVIOUS VERSION","DVBA*2.7*240.1")
D UPDMSG("DVBAB CAPRI PREVIOUS VERSION",DVBERR)
K DVBERR S DVBMENU="DVBA C MEDICAL ADM REPORT MENU",DVBOPT="DVBA METRICS DATA REPORT",DVBOR=11,DVBSYN=11
S DVBERR=$$ADD^XPDMENU(DVBMENU,DVBOPT,DVBSYN,DVBOR)
I DVBERR=0 D MES^XPDUTL("Error adding option")
I DVBERR=1 D MES^XPDUTL("DVBA METRICS DATA REPORT added")
K DVBERR S DVBMENU="DVBA C MEDICAL ADM REPORT MENU",DVBOPT="DVBA METRICS DATA PURGE",DVBOR=12,DVBSYN=12
S DVBERR=$$ADD^XPDMENU(DVBMENU,DVBOPT,DVBSYN,DVBOR)
I DVBERR=0 D MES^XPDUTL("Error adding option")
I DVBERR=1 D MES^XPDUTL("DVBA METRICS DATA PURGE added")
S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI VLER DAS PROD URL","https://capriauthsvrprod.domain.ext:7003/dbq")
D UPDMSG("DVBAB CAPRI VLER DAS PROD URL",DVBERR)
D SECKEY^DVBCP238
D MES^XPDUTL("Patch DVBA*2.7*238 post install finished")
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_" Updated Successfully")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBC238P 1782 printed Dec 13, 2024@01:43:11 Page 2
DVBC238P ;ALB/BG - PATCH 238 POST INSTALL ; 7/27/22 9:04am
+1 ;;2.7;AMIE;**238**;Apr 10, 1995;Build 16
+2 ;Per VHA Directive 6402 this routine should not be modified
+3 ;#1157 - $$ADD^XPDMENU (supported)
+4 ;Updates Capri Minimum version, parameters and adds options
+5 QUIT
+6 ;
PMAIN ;-- update DVBAB CAPRI MINIMUM VERSION Parameter.
+1 DO MES^XPDUTL("Patch DVBA*2.7*238 post install started")
+2 NEW DVBERR,DVBMENU,DVBOPT,DVBOR,DVBSYN
+3 SET DVBERR=$$ENXPAR("PKG","DVBAB CAPRI MINIMUM VERSION","CAPRI GUI V2.7*238.2*1*A*3220815*1.3*1.3")
+4 DO UPDMSG("CAPRI MINIMUM VERSION",DVBERR)
+5 SET DVBERR=$$ENXPAR("PKG","DVBAB CAPRI PREVIOUS VERSION","DVBA*2.7*240.1")
+6 DO UPDMSG("DVBAB CAPRI PREVIOUS VERSION",DVBERR)
+7 KILL DVBERR
SET DVBMENU="DVBA C MEDICAL ADM REPORT MENU"
SET DVBOPT="DVBA METRICS DATA REPORT"
SET DVBOR=11
SET DVBSYN=11
+8 SET DVBERR=$$ADD^XPDMENU(DVBMENU,DVBOPT,DVBSYN,DVBOR)
+9 IF DVBERR=0
DO MES^XPDUTL("Error adding option")
+10 IF DVBERR=1
DO MES^XPDUTL("DVBA METRICS DATA REPORT added")
+11 KILL DVBERR
SET DVBMENU="DVBA C MEDICAL ADM REPORT MENU"
SET DVBOPT="DVBA METRICS DATA PURGE"
SET DVBOR=12
SET DVBSYN=12
+12 SET DVBERR=$$ADD^XPDMENU(DVBMENU,DVBOPT,DVBSYN,DVBOR)
+13 IF DVBERR=0
DO MES^XPDUTL("Error adding option")
+14 IF DVBERR=1
DO MES^XPDUTL("DVBA METRICS DATA PURGE added")
+15 SET DVBERR=$$ENXPAR("PKG","DVBAB CAPRI VLER DAS PROD URL","https://capriauthsvrprod.domain.ext:7003/dbq")
+16 DO UPDMSG("DVBAB CAPRI VLER DAS PROD URL",DVBERR)
+17 DO SECKEY^DVBCP238
+18 DO MES^XPDUTL("Patch DVBA*2.7*238 post install finished")
+19 QUIT
+20 ;
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_" Updated Successfully")
End DoDot:1
+7 QUIT
+8 ;
