Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
495 bytes
|
Rev | Line | |
---|
[613] | 1 | TIU157PS ; SLC/JMH - Patch 157 post-install routine ; [11/18/04 10:36am]
|
---|
| 2 | ;;1.0;TEXT INTEGRATION UTILITIES;**157**;Jun 20, 1997
|
---|
| 3 | REINDEX ;reindex the new "AC" index on file 8925.7
|
---|
| 4 | N TIUD0
|
---|
| 5 | S TIUD0=0
|
---|
| 6 | I $O(^TIU(8925.7,"AC","")) Q
|
---|
| 7 | F S TIUD0=$O(^TIU(8925.7,TIUD0)) Q:'TIUD0 D
|
---|
| 8 | . N TIUDOC S TIUDOC=+$G(^TIU(8925.7,TIUD0,0)) Q:'TIUDOC
|
---|
| 9 | . Q:'+$G(^TIU(8925,TIUDOC,0))
|
---|
| 10 | . N TIUDT S TIUDT=$P($G(^TIU(8925.7,TIUD0,0)),U,4) Q:TIUDT
|
---|
| 11 | . S ^TIU(8925.7,"AC",$P($G(^TIU(8925,TIUDOC,12)),U),$G(TIUDOC))=""
|
---|
| 12 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.