TIUPS211.m

TIUPS211 ; SLC/JER - Post-install Routine for Patch TIU*1*211 ; 4/5/06

 ;;1.0;TEXT INTEGRATION UTILITIES;**211**;Jun 20, 1997;Build 26

MAIN ; main subroutine

 N TIUDOMDA,SUCCESS S SUCCESS=0

 D BMES^XPDUTL("Invoking VUID Seeding Process...")

 S SUCCESS=$$GETIEN^HDISVF09("TIU",.TIUDOMDA)

 I 'SUCCESS D  Q

 . D BMES^XPDUTL("Domain ""TIU"" not found...Exiting Post-install.")

 D EN^HDISVCMR(TIUDOMDA,"")

 D BMES^XPDUTL("Process successfully queued!")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---TIUPS211   462     printed  Apr 09, 2024@21:41:51                                                                                                                                                                                                     Page 2

TIUPS211  ; SLC/JER - Post-install Routine for Patch TIU*1*211 ; 4/5/06

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;**211**;Jun 20, 1997;Build 26

MAIN      ; main subroutine

 +1        NEW TIUDOMDA,SUCCESS

           SET SUCCESS=0

 +2        DO BMES^XPDUTL("Invoking VUID Seeding Process...")

 +3        SET SUCCESS=$$GETIEN^HDISVF09("TIU",.TIUDOMDA)

 +4        IF 'SUCCESS

               Begin DoDot:1

 +5                DO BMES^XPDUTL("Domain ""TIU"" not found...Exiting Post-install.")

               End DoDot:1

               QUIT 

 +6        DO EN^HDISVCMR(TIUDOMDA,"")

 +7        DO BMES^XPDUTL("Process successfully queued!")

 +8        QUIT