LEXRXXT.m

LEXRXXT ;ISL/KER - Repair/Re-Index - Task ;05/23/2017

 ;;2.0;LEXICON UTILITY;**81,103**;Sep 23, 1996;Build 2

 ;               

 ; Global Variables

 ;    ^LEX(               SACC 1.3

 ;    ^LEXT(              SACC 1.3

 ;    ^TMP("LEXRX",$J)    SACC 2.3.2.5.1

 ;    ^XTMP("LEXRX")      SACC 2.3.2.5.2 

 ;               

 ; External References

 ;    HOME^%ZIS           ICR  10086

 ;    ^%ZTLOAD            ICR  10063

 ;    $$FMDIFF^XLFDT      ICR  10103

 ;    $$NOW^XLFDT         ICR  10103

 ;               

 ; Local Variables NEWed or KILLed Elsewhere

 ;     LEXAMSO    User Selection  NEWed/KILLed by LEXRX

 ;     LEXFI      File number     NEWed/KILLed by LEXRX

 ;     LEXINS     Install Flag    NEWed/KILLed by Post-Install

 ;     LEXOK      Continue flag   NEWed/KILLed by LEXRX

 ;               

 Q

ALL ; Repair/Re-Index all Lexicon Files

 Q:+($G(LEXOK))'>0  Q:$G(LEXAMSO)'="A"  N X,Y,ZTQUEUED,ZTREQ,ZTSK

 N ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTPRI,LEXI,LEXU,LEXNAM

 N LEXC,LEXL,LEXENV,LEXTSK,LEXMSG,LEXSUBJ

 S LEXNAM="LEXRXALL" I $D(^XTMP(LEXNAM,0)) D PROG(LEXNAM) Q

 K ^TMP("LEXRX",$J) S LEXENV=$$ENV^LEXRXXM Q:+LEXENV'>0

 S LEXSUBJ="Lexicon - Repair/Re-Index All Files"

 S ZTRTN="ALLT^LEXRXXT2",ZTDESC="Lexicon Index Repair/Re-Index"

 S ZTPRI=4,ZTIO="",ZTDTH=$H S:$D(LEXINS) ZTSAVE("LEXINS")=""

 S ZTSAVE("DUZ")="",ZTSAVE("LEXAMSO")="",ZTSAVE("LEXSUBJ")=""

 S LEXMSG="When the task completes a message will be sent"

 S LEXMSG=LEXMSG_" to you reporting the results."

 D ^%ZTLOAD K LEXTSK I +($G(ZTSK))>0&('$D(LEXINS)) D

 . S LEXTSK(1)="A task has been created to repair the cross-references"

 . S LEXTSK(2)="in the major Lexicon files and to re-index the cross-"

 . S LEXTSK(3)="references of the supporting Lexicon files.  This "

 . S LEXTSK(4)="will take several hours, however, users may be on the "

 . S LEXTSK(5)="system during this time. (Task #"_+($G(ZTSK))_"). "

 . S:$L($G(LEXMSG)) LEXTSK(6)=LEXMSG

 I $O(LEXTSK(0))>0&('$D(LEXINS)) D PR^LEXU(.LEXTSK,70)

 I '$D(LEXINS) S LEXI=0 F  S LEXI=$O(LEXTSK(LEXI)) Q:+LEXI'>0  D

 . S LEXC=$$TM^LEXRXXM($G(LEXTSK(LEXI))) W:'$D(LEXINS) !,"  ",LEXC

 D HOME^%ZIS K ZTDESC,ZTDTH,ZTIO,ZTRTN S LEXI=0

 W:+($G(ZTSK))>0&('$D(LEXINS)) ! H:+($G(ZTSK))>0&('$D(LEXINS)) 1 K ZTSK

 Q

MAJ ; Repair/Re-Index all Lookup Related Lexicon Files

 Q:+($G(LEXOK))'>0  Q:$G(LEXAMSO)'="M"

 N X,Y,ZTQUEUED,ZTREQ,ZTSK,ZTPRI,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,LEXI

 N LEXU,LEXC,LEXL,LEXENV,LEXTSK,LEXMSG,LEXSUBJ,LEXNAM

 S LEXNAM="LEXRXMAJ" I $D(^XTMP(LEXNAM,0)) D PROG(LEXNAM) Q

 S LEXSUBJ="Lexicon - Repair Major Files (larger files)"

 K ^TMP("LEXRX",$J) S LEXENV=$$ENV^LEXRXXM Q:+LEXENV'>0

 S ZTRTN="MAJT^LEXRXXT2",ZTDESC="Lexicon Look-up Index Repair"

 S ZTPRI=4,ZTIO="",ZTDTH=$H,ZTSAVE("DUZ")="",ZTSAVE("LEXAMSO")=""

 S ZTSAVE("LEXSUBJ")="" S:$D(LEXINS) ZTSAVE("LEXINS")=""

 S LEXMSG="When the task completes a message will be sent"

 S LEXMSG=LEXMSG_" to you reporting the results."

 D ^%ZTLOAD K LEXTSK I +($G(ZTSK))>0&('$D(LEXINS)) D

 . S LEXTSK(1)="A task has been created to repair the "

 . S LEXTSK(2)="cross-references of the major files in the Lexicon "

 . S LEXTSK(3)="(Task #"_+($G(ZTSK))_")."

 . S:$L($G(LEXMSG)) LEXTSK(4)=LEXMSG

 I $O(LEXTSK(0))>0&('$D(LEXINS)) D PR^LEXU(.LEXTSK,70)

 I '$D(LEXINS) S LEXI=0 F  S LEXI=$O(LEXTSK(LEXI)) Q:+LEXI'>0  D

 . S LEXC=$$TM^LEXRXXM($G(LEXTSK(LEXI))) W:'$D(LEXINS) !,"  ",LEXC

 D HOME^%ZIS K ZTDESC,ZTDTH,ZTIO,ZTRTN S LEXI=0

 W:+($G(ZTSK))>0&('$D(LEXINS)) ! H:+($G(ZTSK))>0&('$D(LEXINS)) 1 K ZTSK

 Q

SUP ; Re-Index all Supporting Lexicon Files (non-Lookup Related)

 Q:+($G(LEXOK))'>0  Q:$G(LEXAMSO)'="S"  N X,Y,ZTQUEUED,ZTREQ,ZTSK

 N ZTDESC,ZTDTH,ZTIO,ZTPRI,ZTRTN,ZTSAVE,LEXI,LEXU,LEXC,LEXL,LEXENV

 N LEXTSK,LEXMSG,LEXSUBJ,LEXNAM

 S LEXNAM="LEXRXSUP" I $D(^XTMP(LEXNAM,0)) D PROG(LEXNAM) Q

 S LEXSUBJ="Lexicon - Re-Index Supporting Files (smaller files)"

 K ^TMP("LEXRX",$J) S LEXENV=$$ENV^LEXRXXM Q:+LEXENV'>0

 S ZTRTN="SUPT^LEXRXXT2",ZTDESC="Lexicon Look-up Index Repair"

 S ZTPRI=4,ZTIO="",ZTDTH=$H,ZTSAVE("DUZ")="",ZTSAVE("LEXAMSO")=""

 S ZTSAVE("LEXSUBJ")="" S:$D(LEXINS) ZTSAVE("LEXINS")=""

 S LEXMSG="When the task completes a message will be sent"

 S LEXMSG=LEXMSG_" to you reporting the results."

 D ^%ZTLOAD K LEXTSK I +($G(ZTSK))>0&('$D(LEXINS)) D

 . S LEXTSK(1)="A task has been created to re-index the "

 . S LEXTSK(2)="cross-references of the supporting files in the "

 . S LEXTSK(3)="Lexicon (Task #"_+($G(ZTSK))_")."

 . S:$L($G(LEXMSG)) LEXTSK(4)=LEXMSG

 I $O(LEXTSK(0))>0&('$D(LEXINS)) D PR^LEXU(.LEXTSK,70)

 I '$D(LEXINS) S LEXI=0 F  S LEXI=$O(LEXTSK(LEXI)) Q:+LEXI'>0  D

 . S LEXC=$$TM^LEXRXXM($G(LEXTSK(LEXI))) W:'$D(LEXINS) !,"  ",LEXC

 D HOME^%ZIS K ZTDESC,ZTDTH,ZTIO,ZTRTN S LEXI=0

 W:+($G(ZTSK))>0&('$D(LEXINS)) ! H:+($G(ZTSK))>0&('$D(LEXINS)) 1 K ZTSK

 Q

ONE ; Repair/Re-Index one file X

 Q:+($G(LEXOK))'>0  Q:$G(LEXAMSO)'="O"  Q:'$L($G(LEXFI))

 S LEXFI=$G(LEXFI) Q:'$D(^LEX(LEXFI))&('$D(^LEXT(LEXFI)))

 N Y,ZTQUEUED,ZTREQ,ZTSK,ZTPRI,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,LEXI,LEXU

 N LEXC,LEXL,LEXENV,LEXTY,LEXUTY,LEXTSK,LEXMSG,LEXFN,LEXSUBJ,LEXNAM

 S LEXNAM="LEXRXONE" I $D(^XTMP(LEXNAM,0)) D PROG(LEXNAM) Q

 S LEXENV=$$ENV^LEXRXXM Q:+LEXENV'>0  S LEXTY=""

 I "^757^757.001^757.01^757.02^757.1^757.21^757.33^"[("^"_LEXFI_"^") D

 . S LEXTY="repair",LEXUTY="Repair"

 S:'$L(LEXTY) LEXTY="re-index",LEXUTY="Re-Index"

 S LEXFN=$$FN^LEXRXXM(LEXFI)

 S LEXSUBJ="Lexicon - "_LEXUTY_" the "_LEXFN_" file #"_LEXFI

 S ZTRTN="ONET^LEXRXXT2",ZTIO="",ZTDTH=$H,ZTPRI=4

 S ZTDESC="Lexicon Index Repair/Re-Index file "_LEXFI

 S:$D(LEXINS) ZTSAVE("LEXINS")=""

 S ZTSAVE("DUZ")="",ZTSAVE("LEXFI")="",ZTSAVE("LEXAMSO")=""

 S ZTSAVE("LEXSUBJ")="",ZTSAVE("LEXTY")="",ZTSAVE("LEXFN")=""

 S LEXMSG="When the task completes a message will be sent"

 S LEXMSG=LEXMSG_" to you reporting the results."

 D ^%ZTLOAD I +($G(ZTSK))>0&('$D(LEXINS)) D

 . S LEXTSK(1)="A task has been created to "_LEXTY_" the "

 . S LEXTSK(2)="cross-references in "_$S($L(LEXFN):"the ",1:"Lexicon ")

 . S LEXTSK(3)=$S($L(LEXFN):LEXFN,1:"")_" file #"_LEXFI_" "

 . S LEXTSK(4)="(Task #"_+($G(ZTSK))_")."

 . S:$L($G(LEXMSG)) LEXTSK(5)=LEXMSG

 I $O(LEXTSK(0))>0&('$D(LEXINS)) D PR^LEXU(.LEXTSK,70)

 I '$D(LEXINS) S LEXI=0 F  S LEXI=$O(LEXTSK(LEXI)) Q:+LEXI'>0  D

 . S LEXC=$$TM^LEXRXXM($G(LEXTSK(LEXI))) W:'$D(LEXINS) !,"  ",LEXC

 D HOME^%ZIS K ZTDESC,ZTDTH,ZTIO,ZTRTN S LEXI=0

 W:+($G(ZTSK))>0&('$D(LEXINS)) ! H:+($G(ZTSK))>0&('$D(LEXINS)) 1 K ZTSK

 Q

SET ; Set Logic Only

 Q:+($G(LEXFI))'>0  S LEXFI=+($G(LEXFI))

 Q:'$D(^LEX(LEXFI))&('$D(^LEXT(LEXFI)))

 N Y,ZTQUEUED,ZTREQ,ZTSK,ZTDESC,ZTDTH,ZTPRI,ZTIO,ZTRTN,ZTSAVE,LEXI,LEXU

 N LEXC,LEXL,LEXENV,LEXTY,LEXUTY,LEXTSK,LEXMSG,LEXFN,LEXSUBJ,LEXNAM

 N LEXQ,LEXSET S LEXNAM="LEXRXSET" S LEXENV=$$ENV^LEXRXXM Q:+LEXENV'>0

 S LEXQ="",ZTRTN="SET^LEXRXXT2",ZTIO="",ZTDTH=$H,LEXSET=""

 S ZTDESC="Re-Index file "_LEXFI_", Set Logic Only"

 S:$D(LEXINS) ZTSAVE("LEXINS")="" S ZTPRI=4

 S ZTSAVE("DUZ")="",ZTSAVE("LEXFI")="",ZTSAVE("LEXQ")=""

 S ZTSAVE("LEXSET")="" D ^%ZTLOAD I +($G(ZTSK))>0&('$D(LEXINS)) D

 . W !," Re-Index file "_LEXFI_", Set Logic Only (Task #"

 . W +($G(ZTSK)),")"

 D HOME^%ZIS K ZTDESC,ZTDTH,ZTIO,ZTRTN

 W:+($G(ZTSK))>0&('$D(LEXINS)) ! H:+($G(ZTSK))>0&('$D(LEXINS)) 1 K ZTSK

 Q

FIX ; Fix File and Execure Set Logic Only

 Q:+($G(LEXFI))'>0  S LEXFI=+($G(LEXFI))

 Q:'$D(^LEX(LEXFI))&('$D(^LEXT(LEXFI)))

 Q:"^757.001^757.21^757.33^"'[("^"_LEXFI_"^")

 N Y,ZTQUEUED,ZTREQ,ZTSK,ZTDESC,ZTPRI,ZTDTH,ZTIO,ZTRTN,ZTSAVE,LEXI,LEXU

 N LEXC,LEXL,LEXENV,LEXTY,LEXUTY,LEXTSK,LEXMSG,LEXFN,LEXSUBJ,LEXNAM

 N LEXQ,LEXSET,LEXFIX S LEXNAM="LEXRXFIX" S LEXENV=$$ENV^LEXRXXM

 Q:+LEXENV'>0  S LEXQ="",ZTRTN="FIX^LEXRXXT2",ZTIO="",ZTDTH=$H,ZTPRI=4

 S ZTDESC="Re-Index file "_LEXFI_", Set Logic Only"

 S (LEXSET,LEXFIX)="" S:$D(LEXINS) ZTSAVE("LEXINS")=""

 S ZTSAVE("DUZ")="",ZTSAVE("LEXFI")="",ZTSAVE("LEXQ")=""

 S ZTSAVE("LEXNAM")="",ZTSAVE("LEXSET")="",ZTSAVE("LEXFIX")=""

 D ^%ZTLOAD I +($G(ZTSK))>0&('$D(LEXINS)) D

 . W !," Fix/Re-Index file "_LEXFI_", Set Logic Only (Task #"

 . W +($G(ZTSK)),")"

 D HOME^%ZIS K ZTDESC,ZTDTH,ZTIO,ZTRTN

 W:+($G(ZTSK))>0&('$D(LEXINS)) ! H:+($G(ZTSK))>0&('$D(LEXINS)) 1 K ZTSK

 Q

 ;              

 ; Miscellaneous

PROG(X) ;   Progress

 N LEXNAME S LEXNAM=$G(X)  Q:'$L(LEXNAM)  Q:'$D(^XTMP(LEXNAM,0))

 N LEXBEG,LEXBEGE,LEXBEGD,LEXUPD,LEXUPDE,LEXUPDD,LEXDES,LEXACT,LEXCUR

 N LEXTSK,LEXNOW,LEXND S LEXNOW=$$NOW^XLFDT,LEXND=$G(^XTMP(LEXNAM,0))

 S LEXBEG=$P(LEXND,"^",3),LEXDES=$P(LEXND,"^",4)

 S LEXTSK=$G(^XTMP(LEXNAM,1)),LEXND=$G(^XTMP(LEXNAM,2))

 S LEXUPD=$P(LEXND,"^",1),LEXACT=$P(LEXND,"^",2)

 S LEXBEGE=$$ED^LEXRXXM(LEXBEG),LEXUPDE=$$ED^LEXRXXM(LEXUPD)

 S LEXBEGD=$$FMDIFF^XLFDT(LEXNOW,LEXBEG,3)

 S LEXUPDD=$$FMDIFF^XLFDT(LEXNOW,LEXBEG,3)

 S:$E(LEXBEGD,1)=" "&($E(LEXBEGD,3)=":") LEXBEGD=$TR(LEXBEGD," ","0")

 S:$E(LEXUPDD,1)=" "&($E(LEXUPDD,3)=":") LEXUPDD=$TR(LEXUPDD," ","0")

 W !!," Repair/Re-Index is in progress "

 I $L(LEXBEGE),$L(LEXDES) W !,?4,LEXDES,?49,"Started:  ",LEXBEGE

 I $L(LEXUPDE),$L(LEXACT) W !,?5,LEXACT,?49,"Current:  ",LEXUPDE

 I $L(LEXBEGD) W !,?49,"Running:  ",LEXBEGD

 Q

CLR ;   Clear

 K LEXAMSO,LEXFI,LEXINS,LEXOK

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LEXRXXT   9232     printed  Apr 23, 2025@18:23:43                                                                                                                                                                                                     Page 2

LEXRXXT   ;ISL/KER - Repair/Re-Index - Task ;05/23/2017

 +1       ;;2.0;LEXICON UTILITY;**81,103**;Sep 23, 1996;Build 2

 +2       ;               

 +3       ; Global Variables

 +4       ;    ^LEX(               SACC 1.3

 +5       ;    ^LEXT(              SACC 1.3

 +6       ;    ^TMP("LEXRX",$J)    SACC 2.3.2.5.1

 +7       ;    ^XTMP("LEXRX")      SACC 2.3.2.5.2 

 +8       ;               

 +9       ; External References

 +10      ;    HOME^%ZIS           ICR  10086

 +11      ;    ^%ZTLOAD            ICR  10063

 +12      ;    $$FMDIFF^XLFDT      ICR  10103

 +13      ;    $$NOW^XLFDT         ICR  10103

 +14      ;               

 +15      ; Local Variables NEWed or KILLed Elsewhere

 +16      ;     LEXAMSO    User Selection  NEWed/KILLed by LEXRX

 +17      ;     LEXFI      File number     NEWed/KILLed by LEXRX

 +18      ;     LEXINS     Install Flag    NEWed/KILLed by Post-Install

 +19      ;     LEXOK      Continue flag   NEWed/KILLed by LEXRX

 +20      ;               

 +21       QUIT 

ALL       ; Repair/Re-Index all Lexicon Files

 +1        if +($GET(LEXOK))'>0

               QUIT 

           if $GET(LEXAMSO)'="A"

               QUIT 

           NEW X,Y,ZTQUEUED,ZTREQ,ZTSK

 +2        NEW ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTPRI,LEXI,LEXU,LEXNAM

 +3        NEW LEXC,LEXL,LEXENV,LEXTSK,LEXMSG,LEXSUBJ

 +4        SET LEXNAM="LEXRXALL"

           IF $DATA(^XTMP(LEXNAM,0))

               DO PROG(LEXNAM)

               QUIT 

 +5        KILL ^TMP("LEXRX",$JOB)

           SET LEXENV=$$ENV^LEXRXXM

           if +LEXENV'>0

               QUIT 

 +6        SET LEXSUBJ="Lexicon - Repair/Re-Index All Files"

 +7        SET ZTRTN="ALLT^LEXRXXT2"

           SET ZTDESC="Lexicon Index Repair/Re-Index"

 +8        SET ZTPRI=4

           SET ZTIO=""

           SET ZTDTH=$HOROLOG

           if $DATA(LEXINS)

               SET ZTSAVE("LEXINS")=""

 +9        SET ZTSAVE("DUZ")=""

           SET ZTSAVE("LEXAMSO")=""

           SET ZTSAVE("LEXSUBJ")=""

 +10       SET LEXMSG="When the task completes a message will be sent"

 +11       SET LEXMSG=LEXMSG_" to you reporting the results."

 +12       DO ^%ZTLOAD

           KILL LEXTSK

           IF +($GET(ZTSK))>0&('$DATA(LEXINS))

               Begin DoDot:1

 +13               SET LEXTSK(1)="A task has been created to repair the cross-references"

 +14               SET LEXTSK(2)="in the major Lexicon files and to re-index the cross-"

 +15               SET LEXTSK(3)="references of the supporting Lexicon files.  This "

 +16               SET LEXTSK(4)="will take several hours, however, users may be on the "

 +17               SET LEXTSK(5)="system during this time. (Task #"_+($GET(ZTSK))_"). "

 +18               if $LENGTH($GET(LEXMSG))

                       SET LEXTSK(6)=LEXMSG

               End DoDot:1

 +19       IF $ORDER(LEXTSK(0))>0&('$DATA(LEXINS))

               DO PR^LEXU(.LEXTSK,70)

 +20       IF '$DATA(LEXINS)

               SET LEXI=0

               FOR 

                   SET LEXI=$ORDER(LEXTSK(LEXI))

                   if +LEXI'>0

                       QUIT 

                   Begin DoDot:1

 +21                   SET LEXC=$$TM^LEXRXXM($GET(LEXTSK(LEXI)))

                       if '$DATA(LEXINS)

                           WRITE !,"  ",LEXC

                   End DoDot:1

 +22       DO HOME^%ZIS

           KILL ZTDESC,ZTDTH,ZTIO,ZTRTN

           SET LEXI=0

 +23       if +($GET(ZTSK))>0&('$DATA(LEXINS))

               WRITE !

           if +($GET(ZTSK))>0&('$DATA(LEXINS))

               HANG 1

           KILL ZTSK

 +24       QUIT 

MAJ       ; Repair/Re-Index all Lookup Related Lexicon Files

 +1        if +($GET(LEXOK))'>0

               QUIT 

           if $GET(LEXAMSO)'="M"

               QUIT 

 +2        NEW X,Y,ZTQUEUED,ZTREQ,ZTSK,ZTPRI,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,LEXI

 +3        NEW LEXU,LEXC,LEXL,LEXENV,LEXTSK,LEXMSG,LEXSUBJ,LEXNAM

 +4        SET LEXNAM="LEXRXMAJ"

           IF $DATA(^XTMP(LEXNAM,0))

               DO PROG(LEXNAM)

               QUIT 

 +5        SET LEXSUBJ="Lexicon - Repair Major Files (larger files)"

 +6        KILL ^TMP("LEXRX",$JOB)

           SET LEXENV=$$ENV^LEXRXXM

           if +LEXENV'>0

               QUIT 

 +7        SET ZTRTN="MAJT^LEXRXXT2"

           SET ZTDESC="Lexicon Look-up Index Repair"

 +8        SET ZTPRI=4

           SET ZTIO=""

           SET ZTDTH=$HOROLOG

           SET ZTSAVE("DUZ")=""

           SET ZTSAVE("LEXAMSO")=""

 +9        SET ZTSAVE("LEXSUBJ")=""

           if $DATA(LEXINS)

               SET ZTSAVE("LEXINS")=""

 +10       SET LEXMSG="When the task completes a message will be sent"

 +11       SET LEXMSG=LEXMSG_" to you reporting the results."

 +12       DO ^%ZTLOAD

           KILL LEXTSK

           IF +($GET(ZTSK))>0&('$DATA(LEXINS))

               Begin DoDot:1

 +13               SET LEXTSK(1)="A task has been created to repair the "

 +14               SET LEXTSK(2)="cross-references of the major files in the Lexicon "

 +15               SET LEXTSK(3)="(Task #"_+($GET(ZTSK))_")."

 +16               if $LENGTH($GET(LEXMSG))

                       SET LEXTSK(4)=LEXMSG

               End DoDot:1

 +17       IF $ORDER(LEXTSK(0))>0&('$DATA(LEXINS))

               DO PR^LEXU(.LEXTSK,70)

 +18       IF '$DATA(LEXINS)

               SET LEXI=0

               FOR 

                   SET LEXI=$ORDER(LEXTSK(LEXI))

                   if +LEXI'>0

                       QUIT 

                   Begin DoDot:1

 +19                   SET LEXC=$$TM^LEXRXXM($GET(LEXTSK(LEXI)))

                       if '$DATA(LEXINS)

                           WRITE !,"  ",LEXC

                   End DoDot:1

 +20       DO HOME^%ZIS

           KILL ZTDESC,ZTDTH,ZTIO,ZTRTN

           SET LEXI=0

 +21       if +($GET(ZTSK))>0&('$DATA(LEXINS))

               WRITE !

           if +($GET(ZTSK))>0&('$DATA(LEXINS))

               HANG 1

           KILL ZTSK

 +22       QUIT 

SUP       ; Re-Index all Supporting Lexicon Files (non-Lookup Related)

 +1        if +($GET(LEXOK))'>0

               QUIT 

           if $GET(LEXAMSO)'="S"

               QUIT 

           NEW X,Y,ZTQUEUED,ZTREQ,ZTSK

 +2        NEW ZTDESC,ZTDTH,ZTIO,ZTPRI,ZTRTN,ZTSAVE,LEXI,LEXU,LEXC,LEXL,LEXENV

 +3        NEW LEXTSK,LEXMSG,LEXSUBJ,LEXNAM

 +4        SET LEXNAM="LEXRXSUP"

           IF $DATA(^XTMP(LEXNAM,0))

               DO PROG(LEXNAM)

               QUIT 

 +5        SET LEXSUBJ="Lexicon - Re-Index Supporting Files (smaller files)"

 +6        KILL ^TMP("LEXRX",$JOB)

           SET LEXENV=$$ENV^LEXRXXM

           if +LEXENV'>0

               QUIT 

 +7        SET ZTRTN="SUPT^LEXRXXT2"

           SET ZTDESC="Lexicon Look-up Index Repair"

 +8        SET ZTPRI=4

           SET ZTIO=""

           SET ZTDTH=$HOROLOG

           SET ZTSAVE("DUZ")=""

           SET ZTSAVE("LEXAMSO")=""

 +9        SET ZTSAVE("LEXSUBJ")=""

           if $DATA(LEXINS)

               SET ZTSAVE("LEXINS")=""

 +10       SET LEXMSG="When the task completes a message will be sent"

 +11       SET LEXMSG=LEXMSG_" to you reporting the results."

 +12       DO ^%ZTLOAD

           KILL LEXTSK

           IF +($GET(ZTSK))>0&('$DATA(LEXINS))

               Begin DoDot:1

 +13               SET LEXTSK(1)="A task has been created to re-index the "

 +14               SET LEXTSK(2)="cross-references of the supporting files in the "

 +15               SET LEXTSK(3)="Lexicon (Task #"_+($GET(ZTSK))_")."

 +16               if $LENGTH($GET(LEXMSG))

                       SET LEXTSK(4)=LEXMSG

               End DoDot:1

 +17       IF $ORDER(LEXTSK(0))>0&('$DATA(LEXINS))

               DO PR^LEXU(.LEXTSK,70)

 +18       IF '$DATA(LEXINS)

               SET LEXI=0

               FOR 

                   SET LEXI=$ORDER(LEXTSK(LEXI))

                   if +LEXI'>0

                       QUIT 

                   Begin DoDot:1

 +19                   SET LEXC=$$TM^LEXRXXM($GET(LEXTSK(LEXI)))

                       if '$DATA(LEXINS)

                           WRITE !,"  ",LEXC

                   End DoDot:1

 +20       DO HOME^%ZIS

           KILL ZTDESC,ZTDTH,ZTIO,ZTRTN

           SET LEXI=0

 +21       if +($GET(ZTSK))>0&('$DATA(LEXINS))

               WRITE !

           if +($GET(ZTSK))>0&('$DATA(LEXINS))

               HANG 1

           KILL ZTSK

 +22       QUIT 

ONE       ; Repair/Re-Index one file X

 +1        if +($GET(LEXOK))'>0

               QUIT 

           if $GET(LEXAMSO)'="O"

               QUIT 

           if '$LENGTH($GET(LEXFI))

               QUIT 

 +2        SET LEXFI=$GET(LEXFI)

           if '$DATA(^LEX(LEXFI))&('$DATA(^LEXT(LEXFI)))

               QUIT 

 +3        NEW Y,ZTQUEUED,ZTREQ,ZTSK,ZTPRI,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,LEXI,LEXU

 +4        NEW LEXC,LEXL,LEXENV,LEXTY,LEXUTY,LEXTSK,LEXMSG,LEXFN,LEXSUBJ,LEXNAM

 +5        SET LEXNAM="LEXRXONE"

           IF $DATA(^XTMP(LEXNAM,0))

               DO PROG(LEXNAM)

               QUIT 

 +6        SET LEXENV=$$ENV^LEXRXXM

           if +LEXENV'>0

               QUIT 

           SET LEXTY=""

 +7        IF "^757^757.001^757.01^757.02^757.1^757.21^757.33^"[("^"_LEXFI_"^")

               Begin DoDot:1

 +8                SET LEXTY="repair"

                   SET LEXUTY="Repair"

               End DoDot:1

 +9        if '$LENGTH(LEXTY)

               SET LEXTY="re-index"

               SET LEXUTY="Re-Index"

 +10       SET LEXFN=$$FN^LEXRXXM(LEXFI)

 +11       SET LEXSUBJ="Lexicon - "_LEXUTY_" the "_LEXFN_" file #"_LEXFI

 +12       SET ZTRTN="ONET^LEXRXXT2"

           SET ZTIO=""

           SET ZTDTH=$HOROLOG

           SET ZTPRI=4

 +13       SET ZTDESC="Lexicon Index Repair/Re-Index file "_LEXFI

 +14       if $DATA(LEXINS)

               SET ZTSAVE("LEXINS")=""

 +15       SET ZTSAVE("DUZ")=""

           SET ZTSAVE("LEXFI")=""

           SET ZTSAVE("LEXAMSO")=""

 +16       SET ZTSAVE("LEXSUBJ")=""

           SET ZTSAVE("LEXTY")=""

           SET ZTSAVE("LEXFN")=""

 +17       SET LEXMSG="When the task completes a message will be sent"

 +18       SET LEXMSG=LEXMSG_" to you reporting the results."

 +19       DO ^%ZTLOAD

           IF +($GET(ZTSK))>0&('$DATA(LEXINS))

               Begin DoDot:1

 +20               SET LEXTSK(1)="A task has been created to "_LEXTY_" the "

 +21               SET LEXTSK(2)="cross-references in "_$SELECT($LENGTH(LEXFN):"the ",1:"Lexicon ")

 +22               SET LEXTSK(3)=$SELECT($LENGTH(LEXFN):LEXFN,1:"")_" file #"_LEXFI_" "

 +23               SET LEXTSK(4)="(Task #"_+($GET(ZTSK))_")."

 +24               if $LENGTH($GET(LEXMSG))

                       SET LEXTSK(5)=LEXMSG

               End DoDot:1

 +25       IF $ORDER(LEXTSK(0))>0&('$DATA(LEXINS))

               DO PR^LEXU(.LEXTSK,70)

 +26       IF '$DATA(LEXINS)

               SET LEXI=0

               FOR 

                   SET LEXI=$ORDER(LEXTSK(LEXI))

                   if +LEXI'>0

                       QUIT 

                   Begin DoDot:1

 +27                   SET LEXC=$$TM^LEXRXXM($GET(LEXTSK(LEXI)))

                       if '$DATA(LEXINS)

                           WRITE !,"  ",LEXC

                   End DoDot:1

 +28       DO HOME^%ZIS

           KILL ZTDESC,ZTDTH,ZTIO,ZTRTN

           SET LEXI=0

 +29       if +($GET(ZTSK))>0&('$DATA(LEXINS))

               WRITE !

           if +($GET(ZTSK))>0&('$DATA(LEXINS))

               HANG 1

           KILL ZTSK

 +30       QUIT 

SET       ; Set Logic Only

 +1        if +($GET(LEXFI))'>0

               QUIT 

           SET LEXFI=+($GET(LEXFI))

 +2        if '$DATA(^LEX(LEXFI))&('$DATA(^LEXT(LEXFI)))

               QUIT 

 +3        NEW Y,ZTQUEUED,ZTREQ,ZTSK,ZTDESC,ZTDTH,ZTPRI,ZTIO,ZTRTN,ZTSAVE,LEXI,LEXU

 +4        NEW LEXC,LEXL,LEXENV,LEXTY,LEXUTY,LEXTSK,LEXMSG,LEXFN,LEXSUBJ,LEXNAM

 +5        NEW LEXQ,LEXSET

           SET LEXNAM="LEXRXSET"

           SET LEXENV=$$ENV^LEXRXXM

           if +LEXENV'>0

               QUIT 

 +6        SET LEXQ=""

           SET ZTRTN="SET^LEXRXXT2"

           SET ZTIO=""

           SET ZTDTH=$HOROLOG

           SET LEXSET=""

 +7        SET ZTDESC="Re-Index file "_LEXFI_", Set Logic Only"

 +8        if $DATA(LEXINS)

               SET ZTSAVE("LEXINS")=""

           SET ZTPRI=4

 +9        SET ZTSAVE("DUZ")=""

           SET ZTSAVE("LEXFI")=""

           SET ZTSAVE("LEXQ")=""

 +10       SET ZTSAVE("LEXSET")=""

           DO ^%ZTLOAD

           IF +($GET(ZTSK))>0&('$DATA(LEXINS))

               Begin DoDot:1

 +11               WRITE !," Re-Index file "_LEXFI_", Set Logic Only (Task #"

 +12               WRITE +($GET(ZTSK)),")"

               End DoDot:1

 +13       DO HOME^%ZIS

           KILL ZTDESC,ZTDTH,ZTIO,ZTRTN

 +14       if +($GET(ZTSK))>0&('$DATA(LEXINS))

               WRITE !

           if +($GET(ZTSK))>0&('$DATA(LEXINS))

               HANG 1

           KILL ZTSK

 +15       QUIT 

FIX       ; Fix File and Execure Set Logic Only

 +1        if +($GET(LEXFI))'>0

               QUIT 

           SET LEXFI=+($GET(LEXFI))

 +2        if '$DATA(^LEX(LEXFI))&('$DATA(^LEXT(LEXFI)))

               QUIT 

 +3        if "^757.001^757.21^757.33^"'[("^"_LEXFI_"^")

               QUIT 

 +4        NEW Y,ZTQUEUED,ZTREQ,ZTSK,ZTDESC,ZTPRI,ZTDTH,ZTIO,ZTRTN,ZTSAVE,LEXI,LEXU

 +5        NEW LEXC,LEXL,LEXENV,LEXTY,LEXUTY,LEXTSK,LEXMSG,LEXFN,LEXSUBJ,LEXNAM

 +6        NEW LEXQ,LEXSET,LEXFIX

           SET LEXNAM="LEXRXFIX"

           SET LEXENV=$$ENV^LEXRXXM

 +7        if +LEXENV'>0

               QUIT 

           SET LEXQ=""

           SET ZTRTN="FIX^LEXRXXT2"

           SET ZTIO=""

           SET ZTDTH=$HOROLOG

           SET ZTPRI=4

 +8        SET ZTDESC="Re-Index file "_LEXFI_", Set Logic Only"

 +9        SET (LEXSET,LEXFIX)=""

           if $DATA(LEXINS)

               SET ZTSAVE("LEXINS")=""

 +10       SET ZTSAVE("DUZ")=""

           SET ZTSAVE("LEXFI")=""

           SET ZTSAVE("LEXQ")=""

 +11       SET ZTSAVE("LEXNAM")=""

           SET ZTSAVE("LEXSET")=""

           SET ZTSAVE("LEXFIX")=""

 +12       DO ^%ZTLOAD

           IF +($GET(ZTSK))>0&('$DATA(LEXINS))

               Begin DoDot:1

 +13               WRITE !," Fix/Re-Index file "_LEXFI_", Set Logic Only (Task #"

 +14               WRITE +($GET(ZTSK)),")"

               End DoDot:1

 +15       DO HOME^%ZIS

           KILL ZTDESC,ZTDTH,ZTIO,ZTRTN

 +16       if +($GET(ZTSK))>0&('$DATA(LEXINS))

               WRITE !

           if +($GET(ZTSK))>0&('$DATA(LEXINS))

               HANG 1

           KILL ZTSK

 +17       QUIT 

 +18      ;              

 +19      ; Miscellaneous

PROG(X)   ;   Progress

 +1        NEW LEXNAME

           SET LEXNAM=$GET(X)

           if '$LENGTH(LEXNAM)

               QUIT 

           if '$DATA(^XTMP(LEXNAM,0))

               QUIT 

 +2        NEW LEXBEG,LEXBEGE,LEXBEGD,LEXUPD,LEXUPDE,LEXUPDD,LEXDES,LEXACT,LEXCUR

 +3        NEW LEXTSK,LEXNOW,LEXND

           SET LEXNOW=$$NOW^XLFDT

           SET LEXND=$GET(^XTMP(LEXNAM,0))

 +4        SET LEXBEG=$PIECE(LEXND,"^",3)

           SET LEXDES=$PIECE(LEXND,"^",4)

 +5        SET LEXTSK=$GET(^XTMP(LEXNAM,1))

           SET LEXND=$GET(^XTMP(LEXNAM,2))

 +6        SET LEXUPD=$PIECE(LEXND,"^",1)

           SET LEXACT=$PIECE(LEXND,"^",2)

 +7        SET LEXBEGE=$$ED^LEXRXXM(LEXBEG)

           SET LEXUPDE=$$ED^LEXRXXM(LEXUPD)

 +8        SET LEXBEGD=$$FMDIFF^XLFDT(LEXNOW,LEXBEG,3)

 +9        SET LEXUPDD=$$FMDIFF^XLFDT(LEXNOW,LEXBEG,3)

 +10       if $EXTRACT(LEXBEGD,1)=" "&($EXTRACT(LEXBEGD,3)="

               SET LEXBEGD=$TRANSLATE(LEXBEGD," ","0")

 +11       if $EXTRACT(LEXUPDD,1)=" "&($EXTRACT(LEXUPDD,3)="

               SET LEXUPDD=$TRANSLATE(LEXUPDD," ","0")

 +12       WRITE !!," Repair/Re-Index is in progress "

 +13       IF $LENGTH(LEXBEGE)

               IF $LENGTH(LEXDES)

                   WRITE !,?4,LEXDES,?49,"Started:  ",LEXBEGE

 +14       IF $LENGTH(LEXUPDE)

               IF $LENGTH(LEXACT)

                   WRITE !,?5,LEXACT,?49,"Current:  ",LEXUPDE

 +15       IF $LENGTH(LEXBEGD)

               WRITE !,?49,"Running:  ",LEXBEGD

 +16       QUIT 

CLR       ;   Clear

 +1        KILL LEXAMSO,LEXFI,LEXINS,LEXOK

 +2        QUIT