TIUFZZ60.m

TIUFZZ60 ; SLC/MAM - Post Patch TIU*1*17 Cleanup. Scratch.  Reindexes B xref in TIU DOCUMENT DEFINITION FILE ;8/27/97  14:02

 ;;1.0;TEXT INTEGRATION UTILITIES;**17**;Jun 20, 1997

 ;

RINDEX ; Reindex B xref for file 8925.1 after changing to 60 chars with

 ;patch TIU*1*17.  Done in Post Install.

 N DA,DIK,NAME

 W !!,"Reindexing Document Definition File, 'B' Cross-reference",!!

 S DA=0,DIK="^TIU(8925.1,",DIK(1)=".01^B"

 F  S DA=$O(^TIU(8925.1,DA)) Q:'DA  W:DA#100=1 "." D

 . S NAME=$P($G(^TIU(8925.1,DA,0)),U) Q:NAME=""

 . K ^TIU(8925.1,"B",$E(NAME,1,30),DA)

 . D EN1^DIK

 Q

 ;

TIUFZZ60  ; SLC/MAM - Post Patch TIU*1*17 Cleanup. Scratch.  Reindexes B xref in TIU DOCUMENT DEFINITION FILE ;8/27/97  14:02

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;**17**;Jun 20, 1997

 +2       ;

RINDEX    ; Reindex B xref for file 8925.1 after changing to 60 chars with

 +1       ;patch TIU*1*17.  Done in Post Install.

 +2        NEW DA,DIK,NAME

 +3        WRITE !!,"Reindexing Document Definition File, 'B' Cross-reference",!!

 +4        SET DA=0

           SET DIK="^TIU(8925.1,"

           SET DIK(1)=".01^B"

 +5        FOR 

               SET DA=$ORDER(^TIU(8925.1,DA))

               IF 'DA

                   QUIT 

               IF DA#100=1

                   WRITE "."

               Begin DoDot:1

 +6                SET NAME=$PIECE($GET(^TIU(8925.1,DA,0)),U)

                   IF NAME=""

                       QUIT 

 +7                KILL ^TIU(8925.1,"B",$EXTRACT(NAME,1,30),DA)

 +8                DO EN1^DIK

               End DoDot:1

 +9        QUIT 

 +10      ;