CRHD8PST ; HIOFO/FT - FIX PARAMETER SETTINGS ; 5/10/19 2:29pm
;;1.0;CRHD;****;Jan 28, 2008;Build 14
Q
; This routine uses the following IAs:
; #10141 - MES^XPDUTL Kernel (supported)
; #2263 - EN^XPAR Kernel (supported)
;
Q
EN ; main entry point
;
N CRHDERR
S CRHDERR=""
; Installing commands in the command file...
D MES^XPDUTL(" Post install starting....updating Parameters...")
;
; ADD CRHD GUI VERSION with new build numbers for executables.
D EN^XPAR("SYS","CRHD GUI VERSION",1,"1.0.8.3",.CRHDERR)
I +$G(CRHDERR) D
. D BMES^XPDUTL(" "_CRHDERR)
. D BMES^XPDUTL(" ....Parameter not added ")
;
D BMES^XPDUTL(" CRHD*1.0*8 Post Install complete")
K CRHDERR
;
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HCRHD8PST 736 printed Dec 13, 2024@02:37:53 Page 2
CRHD8PST ; HIOFO/FT - FIX PARAMETER SETTINGS ; 5/10/19 2:29pm
+1 ;;1.0;CRHD;****;Jan 28, 2008;Build 14
+2 QUIT
+3 ; This routine uses the following IAs:
+4 ; #10141 - MES^XPDUTL Kernel (supported)
+5 ; #2263 - EN^XPAR Kernel (supported)
+6 ;
+7 QUIT
EN ; main entry point
+1 ;
+2 NEW CRHDERR
+3 SET CRHDERR=""
+4 ; Installing commands in the command file...
+5 DO MES^XPDUTL(" Post install starting....updating Parameters...")
+6 ;
+7 ; ADD CRHD GUI VERSION with new build numbers for executables.
+8 DO EN^XPAR("SYS","CRHD GUI VERSION",1,"1.0.8.3",.CRHDERR)
+9 IF +$GET(CRHDERR)
Begin DoDot:1
+10 DO BMES^XPDUTL(" "_CRHDERR)
+11 DO BMES^XPDUTL(" ....Parameter not added ")
End DoDot:1
+12 ;
+13 DO BMES^XPDUTL(" CRHD*1.0*8 Post Install complete")
+14 KILL CRHDERR
+15 ;
+16 QUIT
+17 ;
