CRHD8PST.m

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 ---CRHD8PST   736     printed  Apr 09, 2024@21:40:24                                                                                                                                                                                                     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      ;