- TIU157PS ; SLC/JMH - Patch 157 post-install routine ; [11/18/04 10:36am]
- ;;1.0;TEXT INTEGRATION UTILITIES;**157**;Jun 20, 1997
- REINDEX ;reindex the new "AC" index on file 8925.7
- N TIUD0
- S TIUD0=0
- I $O(^TIU(8925.7,"AC","")) Q
- F S TIUD0=$O(^TIU(8925.7,TIUD0)) Q:'TIUD0 D
- . N TIUDOC S TIUDOC=+$G(^TIU(8925.7,TIUD0,0)) Q:'TIUDOC
- . Q:'+$G(^TIU(8925,TIUDOC,0))
- . N TIUDT S TIUDT=$P($G(^TIU(8925.7,TIUD0,0)),U,4) Q:TIUDT
- . S ^TIU(8925.7,"AC",$P($G(^TIU(8925,TIUDOC,12)),U),$G(TIUDOC))=""
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIU157PS 507 printed Feb 19, 2025@00:04:47 Page 2
- TIU157PS ; SLC/JMH - Patch 157 post-install routine ; [11/18/04 10:36am]
- +1 ;;1.0;TEXT INTEGRATION UTILITIES;**157**;Jun 20, 1997
- REINDEX ;reindex the new "AC" index on file 8925.7
- +1 NEW TIUD0
- +2 SET TIUD0=0
- +3 IF $ORDER(^TIU(8925.7,"AC",""))
- QUIT
- +4 FOR
- SET TIUD0=$ORDER(^TIU(8925.7,TIUD0))
- if 'TIUD0
- QUIT
- Begin DoDot:1
- +5 NEW TIUDOC
- SET TIUDOC=+$GET(^TIU(8925.7,TIUD0,0))
- if 'TIUDOC
- QUIT
- +6 if '+$GET(^TIU(8925,TIUDOC,0))
- QUIT
- +7 NEW TIUDT
- SET TIUDT=$PIECE($GET(^TIU(8925.7,TIUD0,0)),U,4)
- if TIUDT
- QUIT
- +8 SET ^TIU(8925.7,"AC",$PIECE($GET(^TIU(8925,TIUDOC,12)),U),$GET(TIUDOC))=""
- End DoDot:1
- +9 QUIT