- 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 Feb 18, 2025@23:05:51 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 ;