DVBA205P ;ALB/RRA - PATCH DVBA*2.7*205 POST-INSTALL ;5/14/2012
;;2.7;AMIE;**205**;Apr 10, 1995;Build 1
;
Q ;NO DIRECT ENTRY
;
POST ; Main entry point for post-int item
; "DVBAB CAPRI JLV URL" parameters
;
N DVBERR
S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI JLV URL","https://jlv.domain.ext/JLV/Login/loginParam?loginSource=CAPRI")
D UPDMSG("DVBAB CAPRI JLV 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[HDVBA205P 1084 printed Dec 13, 2024@01:39:28 Page 2
DVBA205P ;ALB/RRA - PATCH DVBA*2.7*205 POST-INSTALL ;5/14/2012
+1 ;;2.7;AMIE;**205**;Apr 10, 1995;Build 1
+2 ;
+3 ;NO DIRECT ENTRY
QUIT
+4 ;
POST ; Main entry point for post-int item
+1 ; "DVBAB CAPRI JLV URL" parameters
+2 ;
+3 NEW DVBERR
+4 SET DVBERR=$$ENXPAR("PKG","DVBAB CAPRI JLV URL","https://jlv.domain.ext/JLV/Login/loginParam?loginSource=CAPRI")
+5 DO UPDMSG("DVBAB CAPRI JLV URL",DVBERR)
+6 QUIT
+7 ;
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
+14 ;
