TIU157PS.m

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 ---TIU157PS   507     printed  Apr 09, 2024@21:43:54                                                                                                                                                                                                     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