MDPOST61 ;Post Installation Tasks ; 4/30/18 8:41am
;;1.0;CLINICAL PROCEDURES;**61**;Apr 01, 2004;Build 1
;;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 ;
; Installing commands in the command file...
D MES^XPDUTL("MD*1.0*61 Post install starting....updating Parameters...")
;
; CP Flowsheets
; Update MD PARAMETERS with new build numbers for executables.
D EN^XPAR("SYS","MD PARAMETERS","VERSION_CPFLOWSHEETS","1.0.61.1")
;
D MES^XPDUTL(" MD*1.0*61 Post Init complete")
;
Q
ROLLBACK ;
D MES^XPDUTL("MD*1.0*61 Rollback starting....updating Parameters...")
;
; CP Flowsheets
; Update MD PARAMETERS with previous build numbers for executables.
D EN^XPAR("SYS","MD PARAMETERS","VERSION_CPFLOWSHEETS","1.0.58.1")
;
D MES^XPDUTL(" MD*1.0*61 Rollback complete")
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMDPOST61 956 printed Dec 13, 2024@01:43:32 Page 2
MDPOST61 ;Post Installation Tasks ; 4/30/18 8:41am
+1 ;;1.0;CLINICAL PROCEDURES;**61**;Apr 01, 2004;Build 1
+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 ;
+1 ; Installing commands in the command file...
+2 DO MES^XPDUTL("MD*1.0*61 Post install starting....updating Parameters...")
+3 ;
+4 ; CP Flowsheets
+5 ; Update MD PARAMETERS with new build numbers for executables.
+6 DO EN^XPAR("SYS","MD PARAMETERS","VERSION_CPFLOWSHEETS","1.0.61.1")
+7 ;
+8 DO MES^XPDUTL(" MD*1.0*61 Post Init complete")
+9 ;
+10 QUIT
ROLLBACK ;
+1 DO MES^XPDUTL("MD*1.0*61 Rollback starting....updating Parameters...")
+2 ;
+3 ; CP Flowsheets
+4 ; Update MD PARAMETERS with previous build numbers for executables.
+5 DO EN^XPAR("SYS","MD PARAMETERS","VERSION_CPFLOWSHEETS","1.0.58.1")
+6 ;
+7 DO MES^XPDUTL(" MD*1.0*61 Rollback complete")
+8 ;
+9 QUIT
