Routine: LRBLTX

Information

LRBLTX ; IHS/DIR/FJE - TESTS FOR TX RELATED DISORDERS 2/17/88 20:59 ;

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Lab Service	2	(K,RX,V,YN)^LRU ^LRUTL
VA Fileman	2	^DIC ^DIE

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Lab Service	1	LRBLTX

Entry Points

Name	Comments	DBIA/ICR reference
A
C
B
E
D
G
F
H
K
L
R
END
T
W
ASK
SET
Z
OUT

External References

Name	Field # of Occurrence
^DIC	H
^DIE	SET
K^LRU	E+1, C+1, K
RX^LRU	C
V^LRU	OUT
YN^LRU	R
^LRUTL	LRBLTX+4

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",! 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: " Specimen: ",LRT(2)," Value: ",LRT(3),!,$P(L(L,O),"^",4),"// " 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: ! 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: F+2
Routine Call	DIE Line Location: SET
Routine Call	DIC Line Location: H

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LRO(69.2 - [#69.2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	F+1
^LAB(61 - [#61]	E
^LRO(69.2 - [#69.2]	LRBLTX+5, LRBLTX+6, R!, D+1!, G, G+1, G+2, SET+1!, END, K! , F+1

Label References

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	T
F	LRBLTX+7, E+1, C+1, K
G	E+1, C+1
H	E+1, C+1, T
K	C
L	F+2
LRBLTX	D, D+1, END+1
OUT	LRBLTX+4, END+1
R	ASK+1
SET	G+1
T	LRBLTX+7, T
W	A
Z	LRBLTX+7, L, E+1, C+1, K, F+2

Naked Globals

Name	Field # of Occurrence
^(	F+1
^(0	LRBLTX+5, LRBLTX+6, D+1, G, G+1, G+2, SET+1, K, F+1
^(60	R*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	R, C
>> A	F+1, F+2
>> B	F+1, F+2
>> C	LRBLTX+7, F+1, F+2
DA	SET*, SET+1, SET+2!
DA(1	SET*
DA(2	SET*
DIC	SET+2!, H*!
DIC("S"	H*
DIC(0	E+1, C+1, T*
DIE	SET*, SET+2!
DR	SET*, SET+2!
DTIME	ASK, D, E, A
IOF	F
>> L	E, G, G+1, G+2, SET, SET+1, A*, K
>> L(	E, F+1*
>> LRAA	LRBLTX+5, LRBLTX+6, R, D+1, G, G+1, G+2, SET, SET+1, END , K, F+1
>> LRAA(2	LRBLTX+5
>> LRT(2	E, SET, H*
>> LRT(3	E, SET, H*
>> N(	D, E, F+1*, F+2
>> O	E, G+1, G+2, SET, A*, K
>> T	E+1, C+1, T*, G+1, G+2
U	ASK, D, E, B, H, A, F+1
X	LRBLTX+4, LRBLTX+5, ASK, ASK+1, D, D+1, E, E+1, C, C+1 , T, B, SET+1, SET+2!, H, A, END, K*
X(1	D+1, SET+1, K*
Y	LRBLTX+4, SET+1, SET+2!, H, END*
>> Z	G, G+2, END*, END+1

Customize PDF page

Package: Lab Service

Routine: LRBLTX

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: