LEXRXXT2 ;ISL/KER - Repair/Re-Index - Task (cont) ;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") SACC 2.3.2.5.1
; ^XTMP("LEXRX") SACC 2.3.2.5.2
;
; External References
; None
;
; Local Variables NEWed or KILLed Elsewhere
; LEXFI File number NEWed/KILLed by LEXRX
; ZTQUEUED Task flag NEWed/KILLed by Taskman
; ZTREQ Task Request NEWed/KILLed by Taskman
; ZTSK Task Number NEWed/KILLed by Taskman
;
Q
ALLT ; - Tasked Repair/Re-Index all Lexicon Files
K ^TMP("LEXRX",$J)
N LEXDES,LEXNAM,LEXFMT,LEXS,LEXT,LEXTC,LEXTSK,LEXSUBJ,LEXSET
S (LEXSUBJ,LEXT)="Repair/re-index all of the Lexicon files"
S LEXSET="",LEXNAM="LEXRXALL"
S LEXTC=$$UPD^LEXRXXT3(LEXNAM,LEXT) G:+LEXTC=1 ET
S LEXFMT=3,LEXTSK=0
S:+($G(ZTSK))>0 LEXTSK=+ZTSK
D BEG^LEXRXXM,EN^LEXRXA,EN^LEXRXB,EN^LEXRXC,EN^LEXRXD
D EN^LEXRXE,EN^LEXRXF,EN^LEXRXG,EN^LEXRXS,END^LEXRXXM
D SEND^LEXRXXS,PRG
G ET
Q
MAJT ; - Tasked Repair all Lookup Related Lexicon Files
K ^TMP("LEXRX",$J)
N LEXDES,LEXNAM,LEXFMT,LEXS,LEXT,LEXTC,LEXTSK,LEXSUBJ,LEXSET
S (LEXSUBJ,LEXT)="Repair the major Lexicon files"
S LEXSET="",LEXNAM="LEXRXMAJ"
S LEXTC=$$UPD^LEXRXXT3(LEXNAM,LEXT) G:+LEXTC=1 ET
S LEXFMT=1,LEXTSK=0
S:+($G(ZTSK))>0 LEXTSK=+ZTSK
D BEG^LEXRXXM,EN^LEXRXA,EN^LEXRXB,EN^LEXRXC,EN^LEXRXD
D EN^LEXRXE,EN^LEXRXF,EN^LEXRXG,END^LEXRXXM
D SEND^LEXRXXS,PRG S LEXTC=$$UPD^LEXRXXT3(LEXNAM)
G ET
Q
SUPT ; - Tasked Re-Index all Supporting Lexicon Files
K ^TMP("LEXRX",$J)
N LEXDES,LEXNAM,LEXFMT,LEXS,LEXT,LEXTC,LEXTSK,LEXSUBJ,LEXSET
S (LEXSUBJ,LEXT)="Re-indexing the supporting Lexicon files"
S LEXSET="",LEXNAM="LEXRXSUP"
S LEXTC=$$UPD^LEXRXXT3(LEXNAM,LEXT) G:+LEXTC=1 ET
S LEXFMT=2,LEXTSK=0
S:+($G(ZTSK))>0 LEXTSK=+ZTSK
D BEG^LEXRXXM,EN^LEXRXS,END^LEXRXXM
D SEND^LEXRXXS,PRG S LEXTC=$$UPD^LEXRXXT3(LEXNAM)
G ET
Q
ONET ; - Tasked Repair/Re-Index one file
K ^TMP("LEXRX",$J)
N LEXDES,LEXNAM,LEXFMT,LEXS,LEXT,LEXTC,LEXTY,LEXTSK,LEXFN
N LEXSUBJ,LEXSET S LEXFI=+($G(LEXFI)) G:LEXFI'>0 ET
G:$E(LEXFI,1,3)'=757 ET G:'$D(^LEX(+LEXFI))&('$D(^LEXT(+LEXFI))) ET
S LEXFN=$$FN^LEXRXXM(LEXFI) G:'$L(LEXFN) ET S LEXTY=""
S:"^757^757.001^757.01^757.02^757.1^757.21^757.33^"[("^"_LEXFI_"^") LEXTY="Repair",LEXFMT=1
S:'$L(LEXTY) LEXTY="Re-Index",LEXFMT=2
S LEXT=LEXTY,LEXT=LEXT_" the "_LEXFN_" file #"_LEXFI
S LEXSET="",LEXSUBJ=LEXT,LEXNAM="LEXRXONE"
S LEXTC=$$UPD^LEXRXXT3(LEXNAM,LEXT) G:+LEXTC=1 ET
S LEXFMT=2,LEXTSK=0 S:+($G(ZTSK))>0 LEXTSK=+ZTSK
I LEXFI>0 D
. N LEXTAG,LEXENT S LEXTAG="R"_$TR(LEXFI,".","")
. S LEXENT=$T(@LEXTAG) Q:'$L(LEXENT)
. K LEXQ D BEG^LEXRXXM,@LEXTAG,END^LEXRXXM,SEND^LEXRXXS
D PRG S LEXTC=$$UPD^LEXRXXT3(LEXNAM)
G ET
Q
SET ; - Tasked Set Logic Only
K ^TMP("LEXRX",$J)
N LEXDES,LEXNAM,LEXFMT,LEXS,LEXT,LEXTC,LEXTY,LEXTSK,LEXFN
N LEXSUBJ,LEXSET,LEXFIX,LEXQ S LEXQ="" S LEXFI=+($G(LEXFI)) G:LEXFI'>0 ET
G:$E(LEXFI,1,3)'=757 ET G:'$D(^LEX(+LEXFI))&('$D(^LEXT(+LEXFI))) ET
S LEXFN=$$FN^LEXRXXM(LEXFI) G:'$L(LEXFN) ET
S LEXT="Re-Index file #"_LEXFI_", Set Logic Only"
S LEXSET="",LEXSUBJ=LEXT,LEXNAM="LEXRXSET"
S LEXTSK=0 S:+($G(ZTSK))>0 LEXTSK=+ZTSK
I LEXFI>0 D
. N LEXTAG,LEXENT,LEXSET
. S LEXTAG="S"_$TR(LEXFI,".",""),LEXENT=$T(@LEXTAG)
. I '$L(LEXENT) S LEXTAG="R"_$TR(LEXFI,".",""),LEXENT=$T(@LEXTAG)
. Q:'$L(LEXENT) K LEXFIX S LEXSET="",LEXQ="" D @LEXTAG
K ^TMP("LEXRX",$J),^XTMP(LEXNAM)
G ET
Q
FIX ; - Tasked Set Logic Only with Fix
K ^TMP("LEXRX",$J)
N LEXDES,LEXNAM,LEXFMT,LEXS,LEXT,LEXTC,LEXTY,LEXTSK,LEXFN
N LEXSUBJ,LEXSET,LEXFIX,LEXQ S LEXQ="" S LEXFI=+($G(LEXFI)) G:LEXFI'>0 ET
G:$E(LEXFI,1,3)'=757 ET G:'$D(^LEX(+LEXFI))&('$D(^LEXT(+LEXFI))) ET
Q:"^757.001^757.21^757.33^"'[("^"_LEXFI_"^")
S LEXFN=$$FN^LEXRXXM(LEXFI) G:'$L(LEXFN) ET
S LEXT="Fix/Re-Index file #"_LEXFI_", Set Logic Only"
S LEXSET="",LEXSUBJ=LEXT,LEXNAM="LEXRXFIX"
S LEXTSK=0 S:+($G(ZTSK))>0 LEXTSK=+ZTSK
I LEXFI>0 D
. N LEXTAG,LEXENT
. S LEXTAG="F"_$TR(LEXFI,".",""),LEXENT=$T(@LEXTAG)
. Q:'$L(LEXENT) K LEXFIX S LEXSET="",LEXQ="" D @LEXTAG
K ^TMP("LEXRX",$J),^XTMP(LEXNAM)
G ET
Q
;
R ; Repair/Re-index
R757 ; File #757
N LEXSET S LEXSET="" K LEXQ D R757^LEXRXA Q
R757001 ; File #757.001
N LEXSET S LEXSET="" K LEXQ D R757001^LEXRXB Q
R75701 ; File #757.01
N LEXSET S LEXSET="" K LEXQ D R75701^LEXRXC Q
R75702 ; File #757.02
N LEXSET S LEXSET="" K LEXQ D R75702^LEXRXD Q
R7571 ; File #757.1
N LEXSET S LEXSET="" K LEXQ D R7571^LEXRXE Q
R75721 ; File #757.21
N LEXSET S LEXSET="" K LEXQ D R75721^LEXRXF Q
R75733 ; File #757.33
N LEXSET S LEXSET="" K LEXQ D R75733^LEXRXG Q
R757011 ; File #757.011
D R757011^LEXRXS Q
R757014 ; File #757.014
D R757014^LEXRXS Q
R75703 ; File #757.03
D R75703^LEXRXS Q
R75704 ; File #757.04
D R75704^LEXRXS Q
R75705 ; File #757.05
D R75705^LEXRXS Q
R75706 ; File #757.06
D R75706^LEXRXS Q
R75707 ; File #757.07
D R75707^LEXRXS Q
R757071 ; File #757.071
D R757071^LEXRXS Q
R75711 ; File #757.11
D R75711^LEXRXS Q
R75712 ; File #757.12
D R75712^LEXRXS Q
R75713 ; File #757.13
D R75713^LEXRXS2 Q
R75714 ; File #757.14
D R75714^LEXRXS2 Q
R7573 ; File #757.3
D R7573^LEXRXS2 Q
R75731 ; File #757.31
D R75731^LEXRXS2 Q
R75732 ; File #757.32
D R75732^LEXRXS2 Q
R7574 ; File #757.4
D R7574^LEXRXS2 Q
R75741 ; File #757.41
D R75741^LEXRXS2 Q
R7572 ; File #757.2
D R7572^LEXRXS2 Q
;
S ; Set Logic Only
S757 ; File #757
N LEXSET,LEXQ S (LEXSET,LEXQ)="" D SET^LEXRXA Q
S757001 ; File #757.001
N LEXSET,LEXQ S (LEXSET,LEXQ)="" D SET^LEXRXB Q
S75701 ; File #757.01
N LEXSET,LEXQ S (LEXSET,LEXQ)="" D SET^LEXRXC Q
S75702 ; File #757.02
N LEXSET,LEXQ S (LEXSET,LEXQ)="" D SET^LEXRXD Q
S7571 ; File #757.1
N LEXSET,LEXQ S (LEXSET,LEXQ)="" D SET^LEXRXE Q
S75721 ; File #757.21
N LEXSET,LEXQ S (LEXSET,LEXQ)="" D SET^LEXRXF Q
S75733 ; File #757.33
N LEXSET,LEXQ S (LEXSET,LEXQ)="" D SET^LEXRXG Q
;
F ; Repair/Re-index/Fixi
F757001 ; File #757.001
N LEXSET,LEXFIX,LEXQ S (LEXSET,LEXFIX,LEXQ)="" D SET^LEXRXB Q
F75721 ; File #757.21
N LEXSET,LEXFIX,LEXQ S (LEXSET,LEXFIX,LEXQ)="" D SET^LEXRXF Q
F75733 ; File #757.33
N LEXSET,LEXFIX,LEXQ S (LEXSET,LEXFIX,LEXQ)="" D SET^LEXRXG Q
;
; Miscellaneous
ET ; End Task
S:$D(ZTQUEUED) ZTREQ="@"
Q
PRG ; Purge
K ^TMP("LEXRX",$J,"D"),^TMP("LEXRX",$J,"E"),^TMP("LEXRX",$J,"R",1),^TMP("LEXRX",$J,"R",2)
K ^TMP("LEXRX",$J,"T"),^TMP("LEXRX",$J,"P") K ^XTMP(LEXNAM)
Q
SX(LEXNAM) ; Show XTMP
S LEXNAM=$G(LEXNAM) Q:'$L(LEXNAM)
N LEXNN,LEXNC S LEXNN="^XTMP("""_LEXNAM_""")",LEXNC="^XTMP("""_LEXNAM_""","
F S LEXNN=$Q(@LEXNN) Q:'$L(LEXNN)!(LEXNN'[LEXNC) W !,LEXNN,"=",@LEXNN
Q
CLR ; Clear
K LEXFI,ZTQUEUED,ZTREQ,ZTSK
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLEXRXXT2 7078 printed Dec 13, 2024@02:09:33 Page 2
LEXRXXT2 ;ISL/KER - Repair/Re-Index - Task (cont) ;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") SACC 2.3.2.5.1
+7 ; ^XTMP("LEXRX") SACC 2.3.2.5.2
+8 ;
+9 ; External References
+10 ; None
+11 ;
+12 ; Local Variables NEWed or KILLed Elsewhere
+13 ; LEXFI File number NEWed/KILLed by LEXRX
+14 ; ZTQUEUED Task flag NEWed/KILLed by Taskman
+15 ; ZTREQ Task Request NEWed/KILLed by Taskman
+16 ; ZTSK Task Number NEWed/KILLed by Taskman
+17 ;
+18 QUIT
ALLT ; - Tasked Repair/Re-Index all Lexicon Files
+1 KILL ^TMP("LEXRX",$JOB)
+2 NEW LEXDES,LEXNAM,LEXFMT,LEXS,LEXT,LEXTC,LEXTSK,LEXSUBJ,LEXSET
+3 SET (LEXSUBJ,LEXT)="Repair/re-index all of the Lexicon files"
+4 SET LEXSET=""
SET LEXNAM="LEXRXALL"
+5 SET LEXTC=$$UPD^LEXRXXT3(LEXNAM,LEXT)
if +LEXTC=1
GOTO ET
+6 SET LEXFMT=3
SET LEXTSK=0
+7 if +($GET(ZTSK))>0
SET LEXTSK=+ZTSK
+8 DO BEG^LEXRXXM
DO EN^LEXRXA
DO EN^LEXRXB
DO EN^LEXRXC
DO EN^LEXRXD
+9 DO EN^LEXRXE
DO EN^LEXRXF
DO EN^LEXRXG
DO EN^LEXRXS
DO END^LEXRXXM
+10 DO SEND^LEXRXXS
DO PRG
+11 GOTO ET
+12 QUIT
MAJT ; - Tasked Repair all Lookup Related Lexicon Files
+1 KILL ^TMP("LEXRX",$JOB)
+2 NEW LEXDES,LEXNAM,LEXFMT,LEXS,LEXT,LEXTC,LEXTSK,LEXSUBJ,LEXSET
+3 SET (LEXSUBJ,LEXT)="Repair the major Lexicon files"
+4 SET LEXSET=""
SET LEXNAM="LEXRXMAJ"
+5 SET LEXTC=$$UPD^LEXRXXT3(LEXNAM,LEXT)
if +LEXTC=1
GOTO ET
+6 SET LEXFMT=1
SET LEXTSK=0
+7 if +($GET(ZTSK))>0
SET LEXTSK=+ZTSK
+8 DO BEG^LEXRXXM
DO EN^LEXRXA
DO EN^LEXRXB
DO EN^LEXRXC
DO EN^LEXRXD
+9 DO EN^LEXRXE
DO EN^LEXRXF
DO EN^LEXRXG
DO END^LEXRXXM
+10 DO SEND^LEXRXXS
DO PRG
SET LEXTC=$$UPD^LEXRXXT3(LEXNAM)
+11 GOTO ET
+12 QUIT
SUPT ; - Tasked Re-Index all Supporting Lexicon Files
+1 KILL ^TMP("LEXRX",$JOB)
+2 NEW LEXDES,LEXNAM,LEXFMT,LEXS,LEXT,LEXTC,LEXTSK,LEXSUBJ,LEXSET
+3 SET (LEXSUBJ,LEXT)="Re-indexing the supporting Lexicon files"
+4 SET LEXSET=""
SET LEXNAM="LEXRXSUP"
+5 SET LEXTC=$$UPD^LEXRXXT3(LEXNAM,LEXT)
if +LEXTC=1
GOTO ET
+6 SET LEXFMT=2
SET LEXTSK=0
+7 if +($GET(ZTSK))>0
SET LEXTSK=+ZTSK
+8 DO BEG^LEXRXXM
DO EN^LEXRXS
DO END^LEXRXXM
+9 DO SEND^LEXRXXS
DO PRG
SET LEXTC=$$UPD^LEXRXXT3(LEXNAM)
+10 GOTO ET
+11 QUIT
ONET ; - Tasked Repair/Re-Index one file
+1 KILL ^TMP("LEXRX",$JOB)
+2 NEW LEXDES,LEXNAM,LEXFMT,LEXS,LEXT,LEXTC,LEXTY,LEXTSK,LEXFN
+3 NEW LEXSUBJ,LEXSET
SET LEXFI=+($GET(LEXFI))
if LEXFI'>0
GOTO ET
+4 if $EXTRACT(LEXFI,1,3)'=757
GOTO ET
if '$DATA(^LEX(+LEXFI))&('$DATA(^LEXT(+LEXFI)))
GOTO ET
+5 SET LEXFN=$$FN^LEXRXXM(LEXFI)
if '$LENGTH(LEXFN)
GOTO ET
SET LEXTY=""
+6 if "^757^757.001^757.01^757.02^757.1^757.21^757.33^"[("^"_LEXFI_"^")
SET LEXTY="Repair"
SET LEXFMT=1
+7 if '$LENGTH(LEXTY)
SET LEXTY="Re-Index"
SET LEXFMT=2
+8 SET LEXT=LEXTY
SET LEXT=LEXT_" the "_LEXFN_" file #"_LEXFI
+9 SET LEXSET=""
SET LEXSUBJ=LEXT
SET LEXNAM="LEXRXONE"
+10 SET LEXTC=$$UPD^LEXRXXT3(LEXNAM,LEXT)
if +LEXTC=1
GOTO ET
+11 SET LEXFMT=2
SET LEXTSK=0
if +($GET(ZTSK))>0
SET LEXTSK=+ZTSK
+12 IF LEXFI>0
Begin DoDot:1
+13 NEW LEXTAG,LEXENT
SET LEXTAG="R"_$TRANSLATE(LEXFI,".","")
+14 SET LEXENT=$TEXT(@LEXTAG)
if '$LENGTH(LEXENT)
QUIT
+15 KILL LEXQ
DO BEG^LEXRXXM
DO @LEXTAG
DO END^LEXRXXM
DO SEND^LEXRXXS
End DoDot:1
+16 DO PRG
SET LEXTC=$$UPD^LEXRXXT3(LEXNAM)
+17 GOTO ET
+18 QUIT
SET ; - Tasked Set Logic Only
+1 KILL ^TMP("LEXRX",$JOB)
+2 NEW LEXDES,LEXNAM,LEXFMT,LEXS,LEXT,LEXTC,LEXTY,LEXTSK,LEXFN
+3 NEW LEXSUBJ,LEXSET,LEXFIX,LEXQ
SET LEXQ=""
SET LEXFI=+($GET(LEXFI))
if LEXFI'>0
GOTO ET
+4 if $EXTRACT(LEXFI,1,3)'=757
GOTO ET
if '$DATA(^LEX(+LEXFI))&('$DATA(^LEXT(+LEXFI)))
GOTO ET
+5 SET LEXFN=$$FN^LEXRXXM(LEXFI)
if '$LENGTH(LEXFN)
GOTO ET
+6 SET LEXT="Re-Index file #"_LEXFI_", Set Logic Only"
+7 SET LEXSET=""
SET LEXSUBJ=LEXT
SET LEXNAM="LEXRXSET"
+8 SET LEXTSK=0
if +($GET(ZTSK))>0
SET LEXTSK=+ZTSK
+9 IF LEXFI>0
Begin DoDot:1
+10 NEW LEXTAG,LEXENT,LEXSET
+11 SET LEXTAG="S"_$TRANSLATE(LEXFI,".","")
SET LEXENT=$TEXT(@LEXTAG)
+12 IF '$LENGTH(LEXENT)
SET LEXTAG="R"_$TRANSLATE(LEXFI,".","")
SET LEXENT=$TEXT(@LEXTAG)
+13 if '$LENGTH(LEXENT)
QUIT
KILL LEXFIX
SET LEXSET=""
SET LEXQ=""
DO @LEXTAG
End DoDot:1
+14 KILL ^TMP("LEXRX",$JOB),^XTMP(LEXNAM)
+15 GOTO ET
+16 QUIT
FIX ; - Tasked Set Logic Only with Fix
+1 KILL ^TMP("LEXRX",$JOB)
+2 NEW LEXDES,LEXNAM,LEXFMT,LEXS,LEXT,LEXTC,LEXTY,LEXTSK,LEXFN
+3 NEW LEXSUBJ,LEXSET,LEXFIX,LEXQ
SET LEXQ=""
SET LEXFI=+($GET(LEXFI))
if LEXFI'>0
GOTO ET
+4 if $EXTRACT(LEXFI,1,3)'=757
GOTO ET
if '$DATA(^LEX(+LEXFI))&('$DATA(^LEXT(+LEXFI)))
GOTO ET
+5 if "^757.001^757.21^757.33^"'[("^"_LEXFI_"^")
QUIT
+6 SET LEXFN=$$FN^LEXRXXM(LEXFI)
if '$LENGTH(LEXFN)
GOTO ET
+7 SET LEXT="Fix/Re-Index file #"_LEXFI_", Set Logic Only"
+8 SET LEXSET=""
SET LEXSUBJ=LEXT
SET LEXNAM="LEXRXFIX"
+9 SET LEXTSK=0
if +($GET(ZTSK))>0
SET LEXTSK=+ZTSK
+10 IF LEXFI>0
Begin DoDot:1
+11 NEW LEXTAG,LEXENT
+12 SET LEXTAG="F"_$TRANSLATE(LEXFI,".","")
SET LEXENT=$TEXT(@LEXTAG)
+13 if '$LENGTH(LEXENT)
QUIT
KILL LEXFIX
SET LEXSET=""
SET LEXQ=""
DO @LEXTAG
End DoDot:1
+14 KILL ^TMP("LEXRX",$JOB),^XTMP(LEXNAM)
+15 GOTO ET
+16 QUIT
+17 ;
R ; Repair/Re-index
R757 ; File #757
+1 NEW LEXSET
SET LEXSET=""
KILL LEXQ
DO R757^LEXRXA
QUIT
R757001 ; File #757.001
+1 NEW LEXSET
SET LEXSET=""
KILL LEXQ
DO R757001^LEXRXB
QUIT
R75701 ; File #757.01
+1 NEW LEXSET
SET LEXSET=""
KILL LEXQ
DO R75701^LEXRXC
QUIT
R75702 ; File #757.02
+1 NEW LEXSET
SET LEXSET=""
KILL LEXQ
DO R75702^LEXRXD
QUIT
R7571 ; File #757.1
+1 NEW LEXSET
SET LEXSET=""
KILL LEXQ
DO R7571^LEXRXE
QUIT
R75721 ; File #757.21
+1 NEW LEXSET
SET LEXSET=""
KILL LEXQ
DO R75721^LEXRXF
QUIT
R75733 ; File #757.33
+1 NEW LEXSET
SET LEXSET=""
KILL LEXQ
DO R75733^LEXRXG
QUIT
R757011 ; File #757.011
+1 DO R757011^LEXRXS
QUIT
R757014 ; File #757.014
+1 DO R757014^LEXRXS
QUIT
R75703 ; File #757.03
+1 DO R75703^LEXRXS
QUIT
R75704 ; File #757.04
+1 DO R75704^LEXRXS
QUIT
R75705 ; File #757.05
+1 DO R75705^LEXRXS
QUIT
R75706 ; File #757.06
+1 DO R75706^LEXRXS
QUIT
R75707 ; File #757.07
+1 DO R75707^LEXRXS
QUIT
R757071 ; File #757.071
+1 DO R757071^LEXRXS
QUIT
R75711 ; File #757.11
+1 DO R75711^LEXRXS
QUIT
R75712 ; File #757.12
+1 DO R75712^LEXRXS
QUIT
R75713 ; File #757.13
+1 DO R75713^LEXRXS2
QUIT
R75714 ; File #757.14
+1 DO R75714^LEXRXS2
QUIT
R7573 ; File #757.3
+1 DO R7573^LEXRXS2
QUIT
R75731 ; File #757.31
+1 DO R75731^LEXRXS2
QUIT
R75732 ; File #757.32
+1 DO R75732^LEXRXS2
QUIT
R7574 ; File #757.4
+1 DO R7574^LEXRXS2
QUIT
R75741 ; File #757.41
+1 DO R75741^LEXRXS2
QUIT
R7572 ; File #757.2
+1 DO R7572^LEXRXS2
QUIT
+2 ;
S ; Set Logic Only
S757 ; File #757
+1 NEW LEXSET,LEXQ
SET (LEXSET,LEXQ)=""
DO SET^LEXRXA
QUIT
S757001 ; File #757.001
+1 NEW LEXSET,LEXQ
SET (LEXSET,LEXQ)=""
DO SET^LEXRXB
QUIT
S75701 ; File #757.01
+1 NEW LEXSET,LEXQ
SET (LEXSET,LEXQ)=""
DO SET^LEXRXC
QUIT
S75702 ; File #757.02
+1 NEW LEXSET,LEXQ
SET (LEXSET,LEXQ)=""
DO SET^LEXRXD
QUIT
S7571 ; File #757.1
+1 NEW LEXSET,LEXQ
SET (LEXSET,LEXQ)=""
DO SET^LEXRXE
QUIT
S75721 ; File #757.21
+1 NEW LEXSET,LEXQ
SET (LEXSET,LEXQ)=""
DO SET^LEXRXF
QUIT
S75733 ; File #757.33
+1 NEW LEXSET,LEXQ
SET (LEXSET,LEXQ)=""
DO SET^LEXRXG
QUIT
+2 ;
F ; Repair/Re-index/Fixi
F757001 ; File #757.001
+1 NEW LEXSET,LEXFIX,LEXQ
SET (LEXSET,LEXFIX,LEXQ)=""
DO SET^LEXRXB
QUIT
F75721 ; File #757.21
+1 NEW LEXSET,LEXFIX,LEXQ
SET (LEXSET,LEXFIX,LEXQ)=""
DO SET^LEXRXF
QUIT
F75733 ; File #757.33
+1 NEW LEXSET,LEXFIX,LEXQ
SET (LEXSET,LEXFIX,LEXQ)=""
DO SET^LEXRXG
QUIT
+2 ;
+3 ; Miscellaneous
ET ; End Task
+1 if $DATA(ZTQUEUED)
SET ZTREQ="@"
+2 QUIT
PRG ; Purge
+1 KILL ^TMP("LEXRX",$JOB,"D"),^TMP("LEXRX",$JOB,"E"),^TMP("LEXRX",$JOB,"R",1),^TMP("LEXRX",$JOB,"R",2)
+2 KILL ^TMP("LEXRX",$JOB,"T"),^TMP("LEXRX",$JOB,"P")
KILL ^XTMP(LEXNAM)
+3 QUIT
SX(LEXNAM) ; Show XTMP
+1 SET LEXNAM=$GET(LEXNAM)
if '$LENGTH(LEXNAM)
QUIT
+2 NEW LEXNN,LEXNC
SET LEXNN="^XTMP("""_LEXNAM_""")"
SET LEXNC="^XTMP("""_LEXNAM_""","
+3 FOR
SET LEXNN=$QUERY(@LEXNN)
if '$LENGTH(LEXNN)!(LEXNN'[LEXNC)
QUIT
WRITE !,LEXNN,"=",@LEXNN
+4 QUIT
CLR ; Clear
+1 KILL LEXFI,ZTQUEUED,ZTREQ,ZTSK
+2 QUIT
