- 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 Feb 18, 2025@23:09:34 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 ;