Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DVBC238P

DVBC238P.m

Go to the documentation of this file.
  1. DVBC238P ;ALB/BG - PATCH 238 POST INSTALL ; 7/27/22 9:04am
  1. ;;2.7;AMIE;**238**;Apr 10, 1995;Build 16
  1. ;Per VHA Directive 6402 this routine should not be modified
  1. ;#1157 - $$ADD^XPDMENU (supported)
  1. ;Updates Capri Minimum version, parameters and adds options
  1. Q
  1. ;
  1. PMAIN ;-- update DVBAB CAPRI MINIMUM VERSION Parameter.
  1. D MES^XPDUTL("Patch DVBA*2.7*238 post install started")
  1. N DVBERR,DVBMENU,DVBOPT,DVBOR,DVBSYN
  1. S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI MINIMUM VERSION","CAPRI GUI V2.7*238.2*1*A*3220815*1.3*1.3")
  1. D UPDMSG("CAPRI MINIMUM VERSION",DVBERR)
  1. S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI PREVIOUS VERSION","DVBA*2.7*240.1")
  1. D UPDMSG("DVBAB CAPRI PREVIOUS VERSION",DVBERR)
  1. K DVBERR S DVBMENU="DVBA C MEDICAL ADM REPORT MENU",DVBOPT="DVBA METRICS DATA REPORT",DVBOR=11,DVBSYN=11
  1. S DVBERR=$$ADD^XPDMENU(DVBMENU,DVBOPT,DVBSYN,DVBOR)
  1. I DVBERR=0 D MES^XPDUTL("Error adding option")
  1. I DVBERR=1 D MES^XPDUTL("DVBA METRICS DATA REPORT added")
  1. K DVBERR S DVBMENU="DVBA C MEDICAL ADM REPORT MENU",DVBOPT="DVBA METRICS DATA PURGE",DVBOR=12,DVBSYN=12
  1. S DVBERR=$$ADD^XPDMENU(DVBMENU,DVBOPT,DVBSYN,DVBOR)
  1. I DVBERR=0 D MES^XPDUTL("Error adding option")
  1. I DVBERR=1 D MES^XPDUTL("DVBA METRICS DATA PURGE added")
  1. S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI VLER DAS PROD URL","https://capriauthsvrprod.domain.ext:7003/dbq")
  1. D UPDMSG("DVBAB CAPRI VLER DAS PROD URL",DVBERR)
  1. D SECKEY^DVBCP238
  1. D MES^XPDUTL("Patch DVBA*2.7*238 post install finished")
  1. Q
  1. ;
  1. ENXPAR(DVBENT,DVBPAR,DVBVAL) ;
  1. ;
  1. N DVBERR
  1. D EN^XPAR(DVBENT,DVBPAR,1,DVBVAL,.DVBERR)
  1. Q DVBERR
  1. ;
  1. ;
  1. UPDMSG(DVBPAR,DVBERR) ;
  1. ;
  1. I DVBERR D
  1. . D MES^XPDUTL(DVBPAR_" Update FAILURE.")
  1. . D MES^XPDUTL(" Failure reason: "_DVBERR)
  1. E D
  1. . D MES^XPDUTL(DVBPAR_" Updated Successfully")
  1. Q
  1. ;