DVBA143P ;ALB/RPM - PATCH DVBA*2.7*143 POST-INSTALL ;10/08/2009
;;2.7;AMIE;**143**;Apr 10, 1995;Build 4
;
Q ;NO DIRECT ENTRY
;
ENV ;Main entry point for Environment check point.
;
Q
;
;
PRE ;Main entry point for Pre-init items.
;
Q
;
;
POST ;Main entry point for Post-init items.
;
N DVBERR
D BMES^XPDUTL("*************************")
D MES^XPDUTL("Start Parameter Updates")
D MES^XPDUTL("*************************")
;
S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI ALLOW OLD VERSION","NO")
D UPDMSG("DVBAB CAPRI ALLOW OLD VERSION",DVBERR)
;
S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI HIA UPDATE URL","http://vaww.domain.ext/hia/Downloads.htm")
D UPDMSG("DVBAB CAPRI HIA UPDATE URL",DVBERR)
;
S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI MINIMUM VERSION","CAPRI GUI V2.7*123*0*A")
D UPDMSG("DVBAB CAPRI MINIMUM VERSION",DVBERR)
;
D MES^XPDUTL("*************************")
D MES^XPDUTL("End Parameter Updates")
D MES^XPDUTL("*************************")
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[HDVBA143P 1684 printed Dec 13, 2024@01:39 Page 2
DVBA143P ;ALB/RPM - PATCH DVBA*2.7*143 POST-INSTALL ;10/08/2009
+1 ;;2.7;AMIE;**143**;Apr 10, 1995;Build 4
+2 ;
+3 ;NO DIRECT ENTRY
QUIT
+4 ;
ENV ;Main entry point for Environment check point.
+1 ;
+2 QUIT
+3 ;
+4 ;
PRE ;Main entry point for Pre-init items.
+1 ;
+2 QUIT
+3 ;
+4 ;
POST ;Main entry point for Post-init items.
+1 ;
+2 NEW DVBERR
+3 DO BMES^XPDUTL("*************************")
+4 DO MES^XPDUTL("Start Parameter Updates")
+5 DO MES^XPDUTL("*************************")
+6 ;
+7 SET DVBERR=$$ENXPAR("PKG","DVBAB CAPRI ALLOW OLD VERSION","NO")
+8 DO UPDMSG("DVBAB CAPRI ALLOW OLD VERSION",DVBERR)
+9 ;
+10 SET DVBERR=$$ENXPAR("PKG","DVBAB CAPRI HIA UPDATE URL","http://vaww.domain.ext/hia/Downloads.htm")
+11 DO UPDMSG("DVBAB CAPRI HIA UPDATE URL",DVBERR)
+12 ;
+13 SET DVBERR=$$ENXPAR("PKG","DVBAB CAPRI MINIMUM VERSION","CAPRI GUI V2.7*123*0*A")
+14 DO UPDMSG("DVBAB CAPRI MINIMUM VERSION",DVBERR)
+15 ;
+16 DO MES^XPDUTL("*************************")
+17 DO MES^XPDUTL("End Parameter Updates")
+18 DO MES^XPDUTL("*************************")
+19 QUIT
+20 ;
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
