MDPOST94 ;HPSC/MWA - POST INSTALLATION TASKS ;Jan 20, 2026@14:33
;;1.0;CLINICAL PROCEDURES;**94**;Sept 20, 2018;Build 6
;;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
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.94.5")
D EN^XPAR("SYS","MD PARAMETERS","VERSION_CPFLOWSHEETS","1.0.94.5")
;
D MES^XPDUTL(" MD*1.0*94 Post Init complete")
Q
;
ROLLBACK ;Rollback code
D MES^XPDUTL(" Rollback starting....updating Parameters...")
;
; Rollback MD PARAMETERS with old build numbers for executables.
D EN^XPAR("SYS","MD PARAMETERS","VERSION_CPCONSOLE","1.0.86.2")
D EN^XPAR("SYS","MD PARAMETERS","VERSION_CPFLOWSHEETS","1.0.87.1")
;
D MES^XPDUTL(" MD*1.0*94 rollback to MD*1.0*86 complete")
D MES^XPDUTL(" MD*1.0*94 rollback to MD*1.0*87 complete")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMDPOST94 1129 printed Sep 17, 2026@20:28:50 Page 2
MDPOST94 ;HPSC/MWA - POST INSTALLATION TASKS ;Jan 20, 2026@14:33
+1 ;;1.0;CLINICAL PROCEDURES;**94**;Sept 20, 2018;Build 6
+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 DO MES^XPDUTL(" Post install starting....updating Parameters...")
+2 ;
+3 ; Update MD PARAMETERS with new build numbers for executables.
+4 DO EN^XPAR("SYS","MD PARAMETERS","VERSION_CPCONSOLE","1.0.94.5")
+5 DO EN^XPAR("SYS","MD PARAMETERS","VERSION_CPFLOWSHEETS","1.0.94.5")
+6 ;
+7 DO MES^XPDUTL(" MD*1.0*94 Post Init complete")
+8 QUIT
+9 ;
ROLLBACK ;Rollback code
+1 DO MES^XPDUTL(" Rollback starting....updating Parameters...")
+2 ;
+3 ; Rollback MD PARAMETERS with old build numbers for executables.
+4 DO EN^XPAR("SYS","MD PARAMETERS","VERSION_CPCONSOLE","1.0.86.2")
+5 DO EN^XPAR("SYS","MD PARAMETERS","VERSION_CPFLOWSHEETS","1.0.87.1")
+6 ;
+7 DO MES^XPDUTL(" MD*1.0*94 rollback to MD*1.0*86 complete")
+8 DO MES^XPDUTL(" MD*1.0*94 rollback to MD*1.0*87 complete")
+9 QUIT
