- 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 Mar 13, 2025@20:43:40 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
