TIU311P.m

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 ---TIU311P   882     printed  Apr 09, 2024@21:41:56                                                                                                                                                                                                      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      ;