MDPOST54.m

MDPOST54 ; MNTVBB/DK - POST INSTALLATION TASKS ;Apr 4, 2018@11:53

 ;;1.0;CLINICAL PROCEDURES;**54**;Apr 01, 2004;Build 14

 ;;Per VA Directive 6402, this routine should not be modified.

 ;

 ; This routine uses the following IAs:

 ;  #10141       - MES^XPDUTL  Kernal  (supported)

 ;  #2263        - EN^XPAR     Kernal  (supported)

 ;

 Q

EN ; Update version number

 ;

 ;

 ; Installing commands in the command file...

 D MES^XPDUTL(" Post install starting....updating Parameters...")

 ;

 ; Update MD PARAMETERS with new build numbers for executables.  

 D EN^XPAR("SYS","MD PARAMETERS","VERSION_CPCONSOLE","1.0.54.2")

 ;

 D MES^XPDUTL(" MD*1.0*54 Post Init complete")

 ;

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MDPOST54   696     printed  Apr 09, 2024@20:49:08                                                                                                                                                                                                     Page 2

MDPOST54  ; MNTVBB/DK - POST INSTALLATION TASKS ;Apr 4, 2018@11:53

 +1       ;;1.0;CLINICAL PROCEDURES;**54**;Apr 01, 2004;Build 14

 +2       ;;Per VA Directive 6402, this routine should not be modified.

 +3       ;

 +4       ; This routine uses the following IAs:

 +5       ;  #10141       - MES^XPDUTL  Kernal  (supported)

 +6       ;  #2263        - EN^XPAR     Kernal  (supported)

 +7       ;

 +8        QUIT 

EN        ; Update version number

 +1       ;

 +2       ;

 +3       ; Installing commands in the command file...

 +4        DO MES^XPDUTL(" Post install starting....updating Parameters...")

 +5       ;

 +6       ; Update MD PARAMETERS with new build numbers for executables.  

 +7        DO EN^XPAR("SYS","MD PARAMETERS","VERSION_CPCONSOLE","1.0.54.2")

 +8       ;

 +9        DO MES^XPDUTL(" MD*1.0*54 Post Init complete")

 +10      ;

 +11       QUIT 

 +12      ;