Routine: LRAPQAT

Package	Total	Call Graph
Lab Service	5	A^LRAPD ^LRAPQAT1 (B,D,F,L,M,S,SSN,V,XR,YN)^LRU (,Q)^LRUB (BEG,END)^LRUTL

Package	Total	Caller Graph
Lab Service	1	LRAPQAT

Entry Points

External References

Name	Field # of Occurrence
A^LRAPD	LRAPQAT+3
^LRAPQAT1	QUE+6
B^LRU	LRAPQAT+5
D^LRU	D
F^LRU	H2+1
L^LRU	QUE
M^LRU	H2
S^LRU	QUE
SSN^LRU	B+1
V^LRU	END
XR^LRU	QUE
YN^LRU	LRAPQAT+6, W
^LRUB	A
Q^LRUB	C+1
BEG^LRUTL	LRAPQAT+7
END^LRUTL	QUE+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: LRAPQAT+4
Function Call: WRITE	Prompt: ! Line Location: LRAPQAT+5
Function Call: WRITE	Prompt: !!,"Also print cumulative path data summaries " Line Location: LRAPQAT+6
Function Call: WRITE	Prompt: !!,"TC Code: ",LRA," ",LRM(LRA,0) Line Location: QUE+2
Function Call: WRITE	Prompt: !,LR("%") Line Location: QUE+3
Function Call: WRITE	Prompt: !!?15,"No Accesions in Time period" Line Location: QUE+3
Function Call: WRITE	Prompt: !!?10,"TC Code",?20,"Count",?30,"% of Accessions" Line Location: QUE+4
Function Call: WRITE	Prompt: !?12,LRA,?20,$J(LRM(LRA),5),?35,$J(LRM(LRA)*100/LRZ,5,2) Line Location: QUE+4
Function Call: WRITE	Prompt: !?20,"-----",!,"Total",?20,$J(LRZ,5),! Line Location: QUE+5
Function Call: WRITE	Prompt: !,"TC Code: ",LRA,?12,LRM(LRA,0) Line Location: QUE+5
Function Call: WRITE	Prompt: !,LRP,?32,$P(LRX,"^"),?46,$J(LRE,5),?62 Line Location: D+0
Function Call: WRITE	Prompt: Y Line Location: D+0
Function Call: READ	Timeout: DTIME Variable: Z Line Location: ASK+0
Function Call: WRITE	Prompt: $C(7),!!?18,"Only numbers 0,1,2,3,4,5,6,7,8 or 9 allowed.",!?18,"A repeat selection replaces the original one.",! Line Location: ASK+0
Function Call: READ	Timeout: DTIME Variable: X(1) Line Location: C+0
Function Call: WRITE	Prompt: $C(7),!,"You must enter an identifying comment <SELECTION DELETED>",! Line Location: C+0
Function Call: WRITE	Prompt: $C(7),!,"Deletion not allowed" Line Location: C+2
Function Call: WRITE	Prompt: $C(7),!!,"Enter free text 2-68 characters." Line Location: C+3
Function Call: WRITE	Prompt: !,LRO(68)," -TC Code Search from ",LRSTR," to ",LRLST Line Location: H2+1
Function Call: WRITE	Prompt: !,"Patient",?35,"SSN",?45,"Acc#",?60,"Date obtained",!,LR("%") Line Location: H+0
Function Call: WRITE	Prompt: !,"Patient",?35,"HRCN",?45,"Acc#",?60,"Date obtained",!,LR("%") Line Location: H+1
Function Call: WRITE	Prompt: !!,"TC Code: ",LRA," ",LRM(LRA,0) Line Location: H1+0
Function Call: WRITE	Prompt: W Line Location: W+0
Function Call: WRITE	Prompt: !!?10,LRO(68)," (",LRABV,") -TC CODE SEARCH",!!,"This report may take a while and should be queued to print at non-peak hours.",!?32,"OK to continue " Line Location: W+0

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	B+1
^LR - [#63]	QUE+1, B+1
^TMP("LRAP"	P, B+1*, END!
^TMP($J	QUE!, Y, D, X, X+1

Name	Field # of Occurrence
^(	P
^(0	QUE+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LRAPQAT+3, LRAPQAT+6, W
>> A	X*, X+1
>> B	LRAPQAT+4, LRAPQAT+5, ASK, C
DTIME	ASK, C
>> HRCN	B+1
IO	QUE
IOSL	QUE+2, D
IOST	H2
>> L	A*
>> L(1	A, C+1
>> LR	B+1*
>> LR("%"	QUE+3, H+1
>> LR("F"	QUE*, H2
>> LR("Q"	QUE+2, QUE+3, QUE+4, Y, D, H2
>> LRA	LRAPQAT+5, QUE+1, QUE+2, QUE+4, QUE+5*, Y, D, H1
>> LRABV	QUE+1, W
>> LRB	QUE+2, QUE+4, QUE+5*
>> LRC	P*
>> LRD	Y*, D
>> LRDFN	QUE+1, P, Y, D, X, X+1, B+1
>> LRDPF	B+1*
>> LRE	D*
>> LRF	D*
>> LRG	LRAPQAT+6*, QUE+6
>> LRI	QUE+1*
>> LRLDT	LRAPQAT+5*, QUE+1
>> LRLST	H2+1
>> LRM(	QUE+2, QUE+4, QUE+5, X+1, C!, C+4, H1
>> LRM("NONE"	QUE, X
>> LRO(68	H2+1, W
>> LRP	QUE+2, P, D
>> LRQ(9	QUE*
>> LRSDT	LRAPQAT+5
>> LRSS	QUE+1
>> LRSTR	H2+1
>> LRX	QUE+1, P, D
>> LRXR	QUE+1
>> LRZ	QUE, QUE+3, QUE+4, QUE+5, X
>> POP	LRAPQAT+7
>> SSN	B+1*
U	LRAPQAT+4, QUE+1, ASK, C
>> X	QUE+1, X, X+1, B+1, A*, C, C+1
>> X(1	C, C+1, C+2, C+3, C+4
>> Y	LRAPQAT+3, LRAPQAT+5, QUE+1, D, X, X+1, B+1*
>> Z	LRAPQAT+4, ASK*, A, C, C+4
>> ZTRTN	LRAPQAT+7*
>> ZTSK	LRAPQAT+7

Customize PDF page

Package: Lab Service

Routine: LRAPQAT

Information

Source Information

Call Graph

Call Graph Total: 5

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
C
B	;S X=^LR(LRDFN,0),Y=$P(X,"^",3),(LRDPF,LR)=$P(X,"^",2),X=^DIC(LR,0,"GL"),X=@(X_Y_",0)"),SSN=$P(X,"^",9) D SSN^LRU S ^TMP("LRAP",$J,$P(X,"^"),LRDFN)=SSN_"^"_$S(LR=2:Y,1:"")_"^"_$P(X,"^",3)_"^"_$P(X,"^",2) Q
END
D
H2
H	;D H2 W !,"Patient",?35,"SSN",?45,"Acc#",?60,"Date obtained",!,LR("%") Q
H1
ASK
P
QUE
W
Y
X

Name	Line Occurrences
A	C+1, C+2, C+3
ASK	LRAPQAT+4, ASK, C
B	X, X+1
D	Y
END	LRAPQAT+3, LRAPQAT+5, LRAPQAT+6, LRAPQAT+7, QUE+6
H	QUE, QUE+2, H1
H1	D
H2	QUE+3, H+1
P	QUE+2
W	LRAPQAT+3
X	QUE+1
Y	P