- 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 Jan 18, 2025@03:39 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 ;