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 ---[H[J[2J[HTIUPS211 462 printed Dec 13, 2024@02:44:16 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