Routine: LRUER

Information

LRUER ;AVAMC/REG/CYM - ERROR TRACKING ;2/18/98 07:03 ;

Source Information

Source file <LRUER.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Lab Service	2	(B,F,L,M,SSN,V,YN)^LRU (BEG,END)^LRUTL
Kernel	1	$$FMTE^XLFDT

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Lab Service	1	LRUER

Entry Points

External References

Name	Field # of Occurrence
B^LRU	ASK+6
F^LRU	H+3
L^LRU	QUE+4
M^LRU	H
SSN^LRU	P+4
V^LRU	END
YN^LRU	ASK+4, ASK+7, ASK+8
BEG^LRUTL	ASK+9
END^LRUTL	QUE+10
$$FMTE^XLFDT	P

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"List accessions with deleted comments " Line Location: ASK+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASK+3
Function Call: WRITE	Prompt: !!,"List accessions with deleted comments " Line Location: ASK+4
Function Call: WRITE	Prompt: !!,"Do you want list of tests ordered for each accession with errors " Line Location: ASK+7
Function Call: WRITE	Prompt: !!,"New page for each accession area " Line Location: ASK+8
Function Call: WRITE	Prompt: ! Line Location: ASK+9
Function Call: WRITE	Prompt: !!,LRA_" "_LRB,?14,LRDATE,?34,LRP," ",SSN(1),?67,LRS Line Location: P+2
Function Call: WRITE	Prompt: !!,LRA_" "_LRB,?14,LRDATE,?34,LRP," ",HRCN,?67,LRS Line Location: P+5
Function Call: WRITE	Prompt: !?5,B(1) Line Location: P+7
Function Call: WRITE	Prompt: !?5,$P(^LR(LRDFN,"CH",LRI,1,"AC",B,C),"^",3) Line Location: P1+0
Function Call: WRITE	Prompt: ! Condition for execution: $X>60 Line Location: P1+0
Function Call: WRITE	Prompt: " (deleted by ",$S($P(X,"^",2)]"":$P(X,"^",2),1:$P(X,",")),")" Line Location: P1+0
Function Call: WRITE	Prompt: ! Line Location: B+0
Function Call: WRITE	Prompt: "Test(s) ordered:" Condition for execution: E=1 Line Location: B+0
Function Call: WRITE	Prompt: ?18,$P($G(^LAB(60,C,0)),"^"),?49,"Tech: ",J Line Location: B+0
Function Call: WRITE	Prompt: !,LRC(1) Line Location: H+1
Function Call: WRITE	Prompt: ! Condition for execution: $L(LRC(1))>44 Line Location: H+1
Function Call: WRITE	Prompt: " From: ",LRSTR," To: ",LRLST,!,"Acc #",?14,"Date/Time",?34,"Name/SSN",?67,"Specimen",!,LR("%") Line Location: H+1
Function Call: WRITE	Prompt: !,LRC(1) Line Location: H+3
Function Call: WRITE	Prompt: ! Condition for execution: $L(LRC(1))>44 Line Location: H+3
Function Call: WRITE	Prompt: " From: ",LRSTR," To: ",LRLST,!,"Acc #",?14,"Date/Time",?34,"Name/HRCN",?67,"Specimen",!,LR("%") Line Location: H+3
Function Call: WRITE	Prompt: !,LRA," ",LRB,?14,LRDATE,?34,LRP," ",SSN(1)," ",LRS Line Location: H1+0
Function Call: WRITE	Prompt: !,LRA," ",LRB,?14,LRDATE,?34,LRP," ",HRCN," ",LRS Line Location: H1+2
Function Call: WRITE	Prompt: !,"Test(s) ordered:" Line Location: H2+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("SITE"	QUE+3
^DIC - [#1]	P+4
^LAB(60 - [#60]	TST+2, B
^LAB(61 - [#61]	X
^LR - [#63]	QUE+9, A, A+2, SET, P+4, P+7, P+8, P1
^LRO(68 - [#68]	TST, TST+2
^LRO(69 - [#69]	QUE+5, QUE+7
^TMP("LRDFN"	QUE+2!, QUE+8*, QUE+9, QUE+10!
^TMP($J	QUE+2!, SET*, W, W1, X
^VA(200 - [#200]	P1, B

Label References

Name	Line Occurrences
A	QUE+9
ASK	ASK+3
B	TST+2
END	ASK+3, ASK+4, ASK+6, ASK+7, ASK+8, ASK+9, QUE+10
H	QUE+4, W, P+5, H1+2
H1	P+7, P+8, H2
H2	B
P	X
P1	P+8
SET	A, A+2
TST	P+5
W	QUE+10
W1	W
X	W1

Naked Globals

Name	Field # of Occurrence
^(	QUE+7, X, P+7, TST+2

Local Variables

Name	Field # of Occurrence
>> %	ASK+4, ASK+7, ASK+8*
A	QUE+1~, QUE+9, W
B	QUE+1~, QUE+5, QUE+7, A+2, W, P+7, P+8*, P1
B(1	P+7*
C	QUE+1~, P+8, P1, TST+2, B
D	QUE+1~
>> DFN	P+4*
DTIME	ASK+3
E	QUE+1~, P+8, TST+2, B, H2
E(1	TST+2*
G	QUE+1~, TST, TST+1, TST+2
>> HRCN	P+5, H1+2
I	QUE+6~, QUE+7*
IO	QUE
IOSL	P+5, P+7, P+8, B
IOST	H
J	QUE+1~, B*
>> LR(	TST*, TST+2
>> LR("%"	H+3
>> LR("F"	QUE+4*, H
>> LR("Q"	QUE+3*, W, W1, X, P+5, P+7, P+8, TST+2, B, H , H1+2, H2
>> LRA	W*, W1, X, P+5, TST, TST+2, H1+2
>> LRB	W*, W1, X, P+5, TST, TST+1, H1+2
>> LRC	W*
>> LRC(1	ASK+4*, A+2, H+3
>> LRC(2	ASK+4*, A
>> LRC(3	ASK+4*, A+2
>> LRDATE	P*, P+5, H1+2
LRDFN	QUE+1~, QUE+9, A, A+2, SET, W1, X, P+4, P+7, P+8 , P1
>> LRDPF	P+4*
>> LRE	ASK+6*, QUE+5
>> LRF	ASK+7*, P+5
>> LRI	QUE+9, A, A+2, SET, X, P+7, P+8, P1
>> LRL	ASK+8*, W
>> LRLDT	ASK+6*, QUE+9
>> LRLST	H+3
>> LRP	P+4*, P+5, H1+2
>> LRQ	QUE+3*
>> LRQ(1	QUE+3*
>> LRS	ASK+6, QUE+5, X, P+5, H1+2
>> LRSDT	ASK+6*, QUE+9
>> LRSTR	H+3
>> LRT	W1*, X, P, TST
LRX	QUE+1~, TST+2*, B
>> POP	ASK+9
>> SSN	P+4*
U	ASK+3, TST+2, B
V	QUE+1~, P+4*
X	ASK+3, ASK+4, QUE+1~, QUE+6~, QUE+7, QUE+8, SET, X, P+4, P1 , TST*, TST+1
Y	ASK+6, QUE+1~, SET, P+4
Z	QUE+1~, TST*, TST+2
>> ZTRTN	ASK+9*
>> ZTSK	ASK+9

Customize PDF page

Package: Lab Service

Routine: LRUER

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
A
SET
END
W
H1	; D H Q:LR("Q") W !,LRA," ",LRB,?14,LRDATE,?34,LRP," ",SSN(1)," ",LRS Q ; ----- BEGIN IHS/MSC/MKK - LR5.21031 - Restoring LR5.21018 changes
H2
H
B
P
P1
QUE
W1
ASK	; W !!?5,"Find accessions with comments containing",!?20,"1. reported incorrectly as",!?20,"2. specimen rejected",!?5,"Select 1 or 2: " R X:DTIME G:X=""!(X[U) END I +X'=X!(X<1)!(X>2) G ASK ; S LRC(2)="",LRC(1)=$S(X=1:"reported incorrectly as",X=2:"specimen rejected",1:"") W !!,"List accessions with deleted comments " S %=2 D YN^LRU G:%<1 END S:%=1 LRC(2)=1 ; ------ BEGIN IHS/OIT/MKK - LR5.21030
X
TST

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed