source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUPS211.m@ 862

Last change on this file since 862 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 451 bytes
RevLine 
[613]1TIUPS211 ; SLC/JER - Post-install Routine for Patch TIU*1*211 ; 4/5/06
2 ;;1.0;TEXT INTEGRATION UTILITIES;**211**;Jun 20, 1997;Build 26
3MAIN ; main subroutine
4 N TIUDOMDA,SUCCESS S SUCCESS=0
5 D BMES^XPDUTL("Invoking VUID Seeding Process...")
6 S SUCCESS=$$GETIEN^HDISVF09("TIU",.TIUDOMDA)
7 I 'SUCCESS D Q
8 . D BMES^XPDUTL("Domain ""TIU"" not found...Exiting Post-install.")
9 D EN^HDISVCMR(TIUDOMDA,"")
10 D BMES^XPDUTL("Process successfully queued!")
11 Q
Note: See TracBrowser for help on using the repository browser.