Routine: LRUMDF

Package	Total	Call Graph
Lab Service	3	(F,K,L,M,RX,V,YN)^LRU L^LRUMD (BEG,END)^LRUTL
VA Fileman	2	%XY^%RCR ^DIC

Package	Total	Caller Graph
Lab Service	1	LRUMDL

Entry Points

External References

Name	Field # of Occurrence
%XY^%RCR	I+1
^DIC	H, I
F^LRU	HDR+1
K^LRU	E+1, C+1, K
L^LRU	QUE
M^LRU	HDR
RX^LRU	C
V^LRU	OUT
YN^LRU	R, N
L^LRUMD	LRUMDF+4
BEG^LRUTL	P
END^LRUTL	QUE+1

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Line Location: ASK+0
Function Call: WRITE	Prompt: !,"(E)nter/edit a test (D)elete a test list (R)emove all test lists",!,"(P)rint test lists",! Line Location: ASK+0
Function Call: WRITE	Prompt: $C(7) Line Location: ASK+1
Function Call: WRITE	Prompt: !?6,"Test order#:",?21,1,?29,2,?37,3,?45,4,?53,5,?61,6,?69,7 Line Location: L+0
Function Call: WRITE	Prompt: !,"-----------------\|-------\|-------\|-------\|-------\|-------\|-------\|-------\|" Line Location: Z+0
Function Call: READ	Prompt: "Select list number to delete: " Formatting: ! Timeout: DTIME Variable: X Line Location: D+0
Function Call: WRITE	Prompt: $C(7),!,"Enter the test list number",! Line Location: D+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: E+0
Function Call: WRITE	Prompt: " ",N(L,O),"// " Line Location: E+0
Function Call: WRITE	Prompt: !?3,"SURE YOU WANT TO DELETE ? " Line Location: C+0
Function Call: WRITE	Prompt: " <NOTHING DELETED>" Line Location: C+0
Function Call: WRITE	Prompt: !,LR("%") Line Location: QUE+1
Function Call: WRITE	Prompt: !,"You have no test lists. Instead of creating your own",!,"would you prefer to copy another user's lists " Line Location: N+0
Function Call: WRITE	Prompt: ! Line Location: H+0
Function Call: READ	Timeout: DTIME Line Location: A+0
Function Call: WRITE	Prompt: G Line Location: A+0
Function Call: WRITE	Prompt: W Line Location: W+0
Function Call: WRITE	Prompt: !!?3,"Enter test list number (1-99) then a ',' then test order number (1-7)",!,"[Entering 2,3 would put the test selected in test list 2 and test order 3]",! Line Location: W+0
Function Call: WRITE	Prompt: @IOF Line Location: F+0
Function Call: WRITE	Prompt: ?10+(B*8),N(A,B),$E(" ",1,7-$L(N(A,B))),"\|" Line Location: F1+1
Function Call: WRITE	Prompt: $C(7),!,$P(Y,"^",2)," has no test lists." Line Location: I+0
Function Call: WRITE	Prompt: @IOF Line Location: HDR+0
Function Call: WRITE	Prompt: !,"Test list for ",$P(^VA(200,DUZ,0),U),!,LR("%") Line Location: HDR+1
Routine Call	DIC Line Location: H I

Name	Line Occurrences (* Changed, ! Killed)
^DD("SITE"	QUE
^LAB(60 - [#60]	F1
^LRO(69.2 - [#69.2]	R!, D+1!, G, G+1, G+2*, END, K!, F1, I, I+1
^VA(200 - [#200]	HDR+1

Name	Field # of Occurrence
^(	F1
^(0	D+1, G, G+1, G+2, K, F1, I+1
^(60	R*

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	R, C, N*
>> %X	I+1*
>> %Y	I+1*
>> A	F1, F1+1
>> B	F1, F1+1
>> C	LRUMDF+5, F1, F1+1
DIC	H!, I!
DIC("S"	H*
DIC(0	E+1, C+1, T, I
DTIME	ASK, D, E, A
DUZ	END, HDR+1
IO	QUE
IOF	F, HDR
IOSL	F1+1
IOST	HDR
>> L	E, G, G+1, G+2, A*, K
>> L(	F1*
>> LR("%"	QUE+1, HDR+1
>> LR("F"	QUE*
>> LR("Q"	Z, QUE, F1+1, HDR
>> LRAA	R, D+1, G, G+1, G+2, END, K, F1, I, I+1
>> LRQ	LRUMDF+4, QUE
>> LRQ(1	QUE*
>> N(	D, E, F1*, F1+1
>> O	E, G+1, G+2, A*, K
>> POP	P
>> T	E+1, C+1, T*, G+1, G+2
U	ASK, D, E, B, H, A, F1, HDR+1
>> X	ASK, ASK+1, D, D+1, E, E+1, C, C+1, T, B , H, A, END, K, I*
>> X(1	D+1, K
>> Y	LRUMDF+4, H, END*, I
>> Z	G, G+2, END*, END+1
>> ZTRTN	P*
>> ZTSK	P

Customize PDF page

Package: Lab Service

Routine: LRUMDF

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	Line Occurrences
A	E, B, A
ASK	ASK+1
B	T
C	E
D	ASK+1, D
E	ASK+1, E, E+1
END	P, N, T
F	LRUMDF+4, E+1, C+1, K
F1	QUE+1
G	E+1, C+1
H	E+1, C+1, T
HDR	QUE, F1+1
I	N, I
K	C
L	F1+1
LRUMDF	D, D+1, END+1
N	LRUMDF+5
OUT	QUE+1
P	ASK+1
R	ASK+1
T	T
W	A
Z	LRUMDF+5, L, E+1, C+1, K, F1+1