TIU315P ;HPS/CWB - Post Installation Tasks;MAR 3, 2017@3:47pm
;;1.0;TEXT INTEGRATION UTILITIES;**315**;Jun 20, 1997;Build 10
;;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 ;
;
N TIUERR
S TIUERR=""
; Installing commands in the command file...
D MES^XPDUTL(" Post install starting....updating Parameters...")
;
; ADD TIU MED GUI VERSION with new build numbers for executables.
D EN^XPAR("SYS","TIU MED GUI VERSION",1,"2.3.315.1")
D BMES^XPDUTL(" TIU*1.0*315 Post Install complete")
;
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIU315P 775 printed Dec 13, 2024@02:38:34 Page 2
TIU315P ;HPS/CWB - Post Installation Tasks;MAR 3, 2017@3:47pm
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**315**;Jun 20, 1997;Build 10
+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 ;
+2 NEW TIUERR
+3 SET TIUERR=""
+4 ; Installing commands in the command file...
+5 DO MES^XPDUTL(" Post install starting....updating Parameters...")
+6 ;
+7 ; ADD TIU MED GUI VERSION with new build numbers for executables.
+8 DO EN^XPAR("SYS","TIU MED GUI VERSION",1,"2.3.315.1")
+9 DO BMES^XPDUTL(" TIU*1.0*315 Post Install complete")
+10 ;
+11 QUIT
+12 ;
