ORAMP489 ;HPS/DM - Post Installation Tasks ; 10/22/18 2:29pm
;;3.0;ORDER ENTRY/RESULTS REPORTING;**489**;Dec 17, 1997;Build 4
;;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("OR*3.0*489 Post install starting....updating Parameters...")
;
; Update ORAM GUI VERSION with new build number for AntiCoagulate.exe.
D EN^XPAR("SYS","ORAM GUI VERSION",,"1.0.489.2")
;
D MES^XPDUTL(" OR*3.0*489 Post Init complete")
;
Q
ROLLBACK ;
D MES^XPDUTL("OR*3.0*489 Rollback starting....updating Parameters...")
;
; Revert ORAM GUI VERSION to previous build number for AntiCoagulate.exe.
D EN^XPAR("SYS","ORAM GUI VERSION",,"@")
D DEL^XPAR("SYS","ORAM GUI VERSION")
;
D MES^XPDUTL(" OR*3.0*489 Rollback complete")
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORAMP489 954 printed Dec 13, 2024@02:27:01 Page 2
ORAMP489 ;HPS/DM - Post Installation Tasks ; 10/22/18 2:29pm
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**489**;Dec 17, 1997;Build 4
+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("OR*3.0*489 Post install starting....updating Parameters...")
+3 ;
+4 ; Update ORAM GUI VERSION with new build number for AntiCoagulate.exe.
+5 DO EN^XPAR("SYS","ORAM GUI VERSION",,"1.0.489.2")
+6 ;
+7 DO MES^XPDUTL(" OR*3.0*489 Post Init complete")
+8 ;
+9 QUIT
ROLLBACK ;
+1 DO MES^XPDUTL("OR*3.0*489 Rollback starting....updating Parameters...")
+2 ;
+3 ; Revert ORAM GUI VERSION to previous build number for AntiCoagulate.exe.
+4 DO EN^XPAR("SYS","ORAM GUI VERSION",,"@")
+5 DO DEL^XPAR("SYS","ORAM GUI VERSION")
+6 ;
+7 DO MES^XPDUTL(" OR*3.0*489 Rollback complete")
+8 ;
+9 QUIT
