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 Dec 13, 2024@02:38:19 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
