ORAMP600 ;SLC/SLP - Post Installation Tasks ;Jul 31, 2023@09:25
;;3.0;ORDER ENTRY/RESULTS REPORTING;**600**;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*600 Post install starting....")
;
D MES^XPDUTL("Updating parameters...")
; Update ORAM GUI VERSION with new build number for AntiCoagulate.exe.
D EN^XPAR("SYS","ORAM GUI VERSION",,"1.0.600.2")
D MES^XPDUTL("Parameters updated.")
;
D MES^XPDUTL("OR*3.0*600 Post install complete")
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORAMP600 709 printed Dec 13, 2024@02:27:06 Page 2
ORAMP600 ;SLC/SLP - Post Installation Tasks ;Jul 31, 2023@09:25
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**600**;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*600 Post install starting....")
+3 ;
+4 DO MES^XPDUTL("Updating parameters...")
+5 ; Update ORAM GUI VERSION with new build number for AntiCoagulate.exe.
+6 DO EN^XPAR("SYS","ORAM GUI VERSION",,"1.0.600.2")
+7 DO MES^XPDUTL("Parameters updated.")
+8 ;
+9 DO MES^XPDUTL("OR*3.0*600 Post install complete")
+10 ;
+11 QUIT
