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 ---[H[J[2J[HMDPOST54 696 printed Oct 16, 2024@17:44:21 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 ;
