DVBA165P ;ALB/RPM - PATCH DVBA*2.7*165 POST-INSTALL ; 12/2/10 4:19pm
;;2.7;AMIE;**165**;Apr 10, 1995;Build 3
;
Q ;NO DIRECT ENTRY
;
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 MINIMUM VERSION","CAPRI GUI V2.7*149*1*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)
I 'DVBERR D
. D MES^XPDUTL(DVBPAR_" update SUCCESS.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBA165P 1418 printed Sep 23, 2025@19:15:09 Page 2
DVBA165P ;ALB/RPM - PATCH DVBA*2.7*165 POST-INSTALL ; 12/2/10 4:19pm
+1 ;;2.7;AMIE;**165**;Apr 10, 1995;Build 3
+2 ;
+3 ;NO DIRECT ENTRY
QUIT
+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 MINIMUM VERSION","CAPRI GUI V2.7*149*1*A")
+11 DO UPDMSG("DVBAB CAPRI MINIMUM VERSION",DVBERR)
+12 ;
+13 DO MES^XPDUTL("*************************")
+14 DO MES^XPDUTL("End Parameter Updates")
+15 DO MES^XPDUTL("*************************")
+16 QUIT
+17 ;
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 'DVBERR
Begin DoDot:1
+12 DO MES^XPDUTL(DVBPAR_" update SUCCESS.")
End DoDot:1
+13 QUIT
