TIU374P ;SLC/TP - Post Installation Tasks ;Aug 13, 2025@10:50:12
;;1.0;TEXT INTEGRATION UTILITIES;**374**;Jun 20, 1997;Build 11
;;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.374.4",.TIUERR)
I TIUERR=0 D BMES^XPDUTL(" TIU*1.0*374 Post Install complete") Q
D BMES^XPDUTL("Error: "_$P(TIUERR,U,2))
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIU374P 834 printed Jan 29, 2026@15:37:29 Page 2
TIU374P ;SLC/TP - Post Installation Tasks ;Aug 13, 2025@10:50:12
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**374**;Jun 20, 1997;Build 11
+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.374.4",.TIUERR)
+9 IF TIUERR=0
DO BMES^XPDUTL(" TIU*1.0*374 Post Install complete")
QUIT
+10 DO BMES^XPDUTL("Error: "_$PIECE(TIUERR,U,2))
+11 ;
+12 QUIT
