MDPOST49.m

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

 ;;1.0;CLINICAL PROCEDURES;**49**;Apr 01, 2004;Build 2

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

 ;

 ; This routine uses the following IAs:

 ; IA# 10141  MES^XPDUTL      Kernel

 ; IA# 2263 [Supported] XPAR Utilities

 ;

 Q

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

 ;

 N MDK,MDKLST

 ; 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 VERSION CHK","CPUSER.EXE:1.0.49.0",1)

 D EN^XPAR("SYS","MD CRC VALUES","CPUSER.EXE:1.0.49.0","948B05D2")

 ;

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

 ;

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MDPOST49   766     printed  Apr 09, 2024@20:47:49                                                                                                                                                                                                     Page 2

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

 +1       ;;1.0;CLINICAL PROCEDURES;**49**;Apr 01, 2004;Build 2

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

 +3       ;

 +4       ; This routine uses the following IAs:

 +5       ; IA# 10141  MES^XPDUTL      Kernel

 +6       ; IA# 2263 [Supported] XPAR Utilities

 +7       ;

 +8        QUIT 

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

 +1       ;

 +2        NEW MDK,MDKLST

 +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 VERSION CHK","CPUSER.EXE:1.0.49.0",1)

 +8        DO EN^XPAR("SYS","MD CRC VALUES","CPUSER.EXE:1.0.49.0","948B05D2")

 +9       ;

 +10       DO MES^XPDUTL(" MD*1.0*49 Post Init complete")

 +11      ;

 +12       QUIT 

 +13      ;