MDPOST51.m

MDPOST51 ;MNTVBB/RRA - Post Installation Tasks;01/07/17

 ;;1.0;CLINICAL PROCEDURES;**51**;Apr 01, 2004;Build 8

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

 ;

 ; This routine uses the following IAs:

 ;  #10141       - MES^XPDUTL                   Kernel                         (supported)

 ;  #2263        - EN^XPAR                      Kernel                         (supported)

 ;

 Q

EN ; Post installation tasks to bring Legacy CP up to snuff

 ;

 ;

 ; 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_CPFLOWSHEETS","1.0.51.6")

 ;

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

 ;

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MDPOST51   802     printed  Apr 09, 2024@20:47:46                                                                                                                                                                                                     Page 2

MDPOST51  ;MNTVBB/RRA - Post Installation Tasks;01/07/17

 +1       ;;1.0;CLINICAL PROCEDURES;**51**;Apr 01, 2004;Build 8

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

 +3       ;

 +4       ; This routine uses the following IAs:

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

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

 +7       ;

 +8        QUIT 

EN        ; Post installation tasks to bring Legacy CP up to snuff

 +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_CPFLOWSHEETS","1.0.51.6")

 +8       ;

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

 +10      ;

 +11       QUIT 

 +12      ;