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

DVBC226P.m

Go to the documentation of this file.
  1. DVBC226P ;ALB/BG;PATCH 226 POST INSTALL ; 5/25/21 11:48am
  1. ;;2.7;AMIE;**226**;Apr 10, 1995;Build 18
  1. ;Per VHA Directive 6402 this routine should not be modified
  1. ;Updates Capri Minimum version
  1. Q
  1. ;
  1. PMAIN ;-- update DVBAB CAPRI MINIMUM VERSION Parameter.
  1. ;
  1. N DVBERR
  1. W !!,"*************************************************"
  1. W !!,"Start DVBAB CAPRI Minimum Version Parameter Update"
  1. W !,"-------------------------",!
  1. ;
  1. S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI MINIMUM VERSION","CAPRI GUI V2.7*226.10*1*A*3210815*1.3*1.3")
  1. D UPDMSG("CAPRI Minimum Version",DVBERR)
  1. ;
  1. W !!,"-------------------------"
  1. W !,"End DVBAB CAPRI Minimum Version Parameter Updates"
  1. W !,"****************************************************",!!
  1. Q
  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_" Update Successful")
  1. Q
  1. ;