- 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 Feb 19, 2025@00:05:01 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 ;
