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

DVBA205P.m

Go to the documentation of this file.
  1. DVBA205P ;ALB/RRA - PATCH DVBA*2.7*205 POST-INSTALL ;5/14/2012
  1. ;;2.7;AMIE;**205**;Apr 10, 1995;Build 1
  1. ;
  1. Q ;NO DIRECT ENTRY
  1. ;
  1. POST ; Main entry point for post-int item
  1. ; "DVBAB CAPRI JLV URL" parameters
  1. ;
  1. N DVBERR
  1. S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI JLV URL","https://jlv.domain.ext/JLV/Login/loginParam?loginSource=CAPRI")
  1. D UPDMSG("DVBAB CAPRI JLV URL",DVBERR)
  1. Q
  1. ;
  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
  1. ;