TIU311P ;MNTVBB/RRA - Post Installation Tasks;02/01/17
;;1.0;TEXT INTEGRATION UTILITIES;**311**;Jun 20, 1997;Build 13
;;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 ADD^XPAR("SYS","TIU MED GUI VERSION",1,"2.3.311.6",.TIUERR)
I +$G(TIUERR) D
. D BMES^XPDUTL(" "_TIUERR)
. D BMES^XPDUTL(" ....Parameter not added ")
;
D BMES^XPDUTL(" TIU*1.0*311 Post Install complete")
;
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIU311P 882 printed Nov 22, 2024@17:48:32 Page 2
TIU311P ;MNTVBB/RRA - Post Installation Tasks;02/01/17
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**311**;Jun 20, 1997;Build 13
+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 ADD^XPAR("SYS","TIU MED GUI VERSION",1,"2.3.311.6",.TIUERR)
+9 IF +$GET(TIUERR)
Begin DoDot:1
+10 DO BMES^XPDUTL(" "_TIUERR)
+11 DO BMES^XPDUTL(" ....Parameter not added ")
End DoDot:1
+12 ;
+13 DO BMES^XPDUTL(" TIU*1.0*311 Post Install complete")
+14 ;
+15 QUIT
+16 ;
