|
Last change
on this file since 636 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
451 bytes
|
| Line | |
|---|
| 1 | TIUPS211 ; 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
|
|---|
| 3 | MAIN ; 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.
