source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIU157PS.m@ 724

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

initial load of WorldVistAEHR

File size: 495 bytes
Line 
1TIU157PS ; SLC/JMH - Patch 157 post-install routine ; [11/18/04 10:36am]
2 ;;1.0;TEXT INTEGRATION UTILITIES;**157**;Jun 20, 1997
3REINDEX ;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.