DVBA192P ;ALB/RTW - DVBA CAPRI PATCH 192 POST INSTALL ROUTINE; 07/09/2015 12:13 PM
;;2.7;AMIE;**192**;Apr 10, 1995;Build 15
;This routine updates the AMIE 290 report parameters
D PARAM,END
Q
END ;
K DVBENT,DVBERR,DVBAL
Q
;
PARAM ; new URL http://vaww.demo.domain.ext/dmareports.asp
S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI VICAP URL","http://vaww.demo.domain.ext/dmareports.asp")
D UPDMSG("DVBAB CAPRI VICAP URL",DVBERR)
Q
ENXPAR(DVBENT,DVBPAR,DVBVAL) ;Update Parameter values
;
; Input:
; DVBENT - Parameter Entity
; DVBPAR - Parameter Name
; DVBVAL - Parameter Value
;
; Output:
; Function value - returns "0" on success;
; otherwise returns error#^errortext
;
N DVBERR
D EN^XPAR(DVBENT,DVBPAR,1,DVBVAL,.DVBERR)
Q DVBERR
;
UPDMSG(DVBPAR,DVBERR) ;display update message
;
; Input:
; DVBPAR - Parameter Name
; DVBERR - Parameter Update result
;
; Output: none
;
I DVBERR D
. D MES^XPDUTL(DVBPAR_" update FAILURE.")
. D MES^XPDUTL(" Failure reason: "_DVBERR)
E D
. D MES^XPDUTL(DVBPAR_" update SUCCESS.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBA192P 1127 printed Dec 13, 2024@01:39:27 Page 2
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
+2 ;This routine updates the AMIE 290 report parameters
+3 DO PARAM
DO END
+4 QUIT
END ;
+1 KILL DVBENT,DVBERR,DVBAL
+2 QUIT
+3 ;
PARAM ; new URL http://vaww.demo.domain.ext/dmareports.asp
+1 SET DVBERR=$$ENXPAR("PKG","DVBAB CAPRI VICAP URL","http://vaww.demo.domain.ext/dmareports.asp")
+2 DO UPDMSG("DVBAB CAPRI VICAP URL",DVBERR)
+3 QUIT
ENXPAR(DVBENT,DVBPAR,DVBVAL) ;Update Parameter values
+1 ;
+2 ; Input:
+3 ; DVBENT - Parameter Entity
+4 ; DVBPAR - Parameter Name
+5 ; DVBVAL - Parameter Value
+6 ;
+7 ; Output:
+8 ; Function value - returns "0" on success;
+9 ; otherwise returns error#^errortext
+10 ;
+11 NEW DVBERR
+12 DO EN^XPAR(DVBENT,DVBPAR,1,DVBVAL,.DVBERR)
+13 QUIT DVBERR
+14 ;
UPDMSG(DVBPAR,DVBERR) ;display update message
+1 ;
+2 ; Input:
+3 ; DVBPAR - Parameter Name
+4 ; DVBERR - Parameter Update result
+5 ;
+6 ; Output: none
+7 ;
+8 IF DVBERR
Begin DoDot:1
+9 DO MES^XPDUTL(DVBPAR_" update FAILURE.")
+10 DO MES^XPDUTL(" Failure reason: "_DVBERR)
End DoDot:1
+11 IF '$TEST
Begin DoDot:1
+12 DO MES^XPDUTL(DVBPAR_" update SUCCESS.")
End DoDot:1
+13 QUIT
