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

DVBA192P.m

Go to the documentation of this file. 
  1. DVBA192P ;ALB/RTW - DVBA CAPRI PATCH 192 POST INSTALL ROUTINE; 07/09/2015  12:13 PM
  1.  ;;2.7;AMIE;**192**;Apr 10, 1995;Build 15
  1.  ;This routine updates the AMIE 290 report parameters
  1.  D PARAM,END
  1.  Q
  1. END ;
  1.  K DVBENT,DVBERR,DVBAL
  1.  Q
  1.  ;
  1. PARAM ; new URL http://vaww.demo.domain.ext/dmareports.asp
  1.  S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI VICAP URL","http://vaww.demo.domain.ext/dmareports.asp")
  1.  D UPDMSG("DVBAB CAPRI VICAP URL",DVBERR)
  1.  Q
  1. ENXPAR(DVBENT,DVBPAR,DVBVAL) ;Update Parameter values
  1.  ;
  1.  ;  Input:
  1.  ;    DVBENT - Parameter Entity
  1.  ;    DVBPAR - Parameter Name
  1.  ;    DVBVAL - Parameter Value
  1.  ;
  1.  ;  Output:
  1.  ;    Function value - returns "0" on success;
  1.  ;                     otherwise returns error#^errortext
  1.  ;
  1.  N DVBERR
  1.  D EN^XPAR(DVBENT,DVBPAR,1,DVBVAL,.DVBERR)
  1.  Q DVBERR
  1.  ;
  1. UPDMSG(DVBPAR,DVBERR) ;display update message
  1.  ;
  1.  ;  Input:
  1.  ;    DVBPAR - Parameter Name
  1.  ;    DVBERR - Parameter Update result
  1.  ;
  1.  ;  Output: none
  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 SUCCESS.")
  1.  Q