Routine: LRBLDAA

Information

LRBLDAA ; IHS/DIR/AAB - DONOR/DEFERRAL LETTERS 6/28/96 19:11 ;

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Lab Service	4	(EN1,SET)^LRBLDAL EN1^LRBLY (V,YN)^LRU (BEG,END)^LRUTL
VA Fileman	3	^%DT ^DIC FIELD^DID

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Lab Service	1	LRBLDA

Entry Points

Name	Comments	DBIA/ICR reference
A
B
END
R1
F
M
A1
P
S
R
QUE
T
W
ASK
D

External References

Name	Field # of Occurrence
^%DT	P+1
^DIC	A1, R1+1
FIELD^DID	T
EN1^LRBLDAL	B+1
SET^LRBLDAL	B+1
EN1^LRBLY	LRBLDAA+3
V^LRU	END
YN^LRU	D+1
BEG^LRUTL	P+2
END^LRUTL	QUE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?29,"Post-visit letter list",! Line Location: LRBLDAA+4
Function Call: WRITE	Prompt: ?25,"There ",$S(X>1:"are ",1:"is "),X," donor",$S(X>1:"s",1:"")," on the list",! Line Location: LRBLDAA+4
Function Call: WRITE	Prompt: !?25,"1. Add a donor to the list",!?25,"2. Remove a donor from the list",!?25,"3. Show the donors in the list",!?25,"4. Delete the donor letter list",!?25,"5. Print the donor letters" Line Location: ASK+0
Function Call: READ	Timeout: DTIME Line Location: ASK+1
Function Call: WRITE	Prompt: $C(7),!!,"Select a number from 1 to 5",! Line Location: ASK+1
Function Call: WRITE	Prompt: " Print post-visit donor letters" Line Location: P+0
Function Call: WRITE	Prompt: $C(7),!,"There are no letters to print." Line Location: P+0
Function Call: WRITE	Prompt: " Add a donor to the list" Line Location: A+0
Function Call: WRITE	Prompt: " Remove a donor from list" Line Location: R+0
Function Call: WRITE	Prompt: !,"All donors have been removed from the list." Line Location: R1+0
Function Call: WRITE	Prompt: ! Line Location: R1+1
Function Call: WRITE	Prompt: " Show the donors in the list" Line Location: S+0
Function Call: WRITE	Prompt: $C(7),!,"There are no blood donors in the list." Line Location: S+0
Function Call: READ	Prompt: "Enter return to continue: " Formatting: ! Timeout: DTIME Variable: X Line Location: M+0
Function Call: WRITE	Prompt: $C(13),$J("",80),$C(13) Line Location: M+0
Function Call: WRITE	Prompt: " Delete the donor letter list" Line Location: D+0
Function Call: WRITE	Prompt: $C(7),!,"There is no list to delete." Line Location: D+0
Routine Call	DIC Line Location: A1 R1+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(65.9 - [#65.9]	T
^LRE - [#65.5]	QUE+1, B
^LRO(69.2 - [#69.2]	LRBLDAA+3, QUE+1, A1+1, A1+2*, R1+2!, S+1, D+1!, F

Label References

Name	Line Occurrences
@(	ASK+3
A1	A1+1, A1+2
ASK	ASK+1
B	QUE+1
END	ASK+1, P+1, P+2, QUE+2
F	P, R1, S, D
LRBLDAA	ASK+3, P
M	W
P	ASK+3
R1	R1+2
T	QUE
W	S+1

Naked Globals

Name	Field # of Occurrence
^(	B
^(0	QUE+1, A1+2, R1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	D+1*
%DT	P+1*!
%DT("A"	P+1*
>> A(1	S+1, W, M
DIC	A1!, R1+1!
DIC("A"	A1, R1+1
DIC("S"	A1*
DIC(0	A1, R1+1
DTIME	ASK+1, M
IO	QUE
IOF	S+1
>> L	S+1*, W
>> L(	W*
>> LRA	QUE+1*
>> LRAA	LRBLDAA+3, QUE+1, A1+1, A1+2, R1+2, S+1, D+1, F
>> LRI	QUE+1*, B
>> LRL	B+1*
>> LRP	QUE+1, A1+1, A1+2, R1+1*, R1+2
>> LRSDT	P+1*, B
>> LRW	B*
>> LRX	ASK+2*, ASK+3
>> LRY	B*, B+1
>> LRY(	B+1, T*
>> P	S+1*, W
>> POP	P+2
>> R	S+1*, W
U	ASK+1, A1+1, R1+1
>> X	LRBLDAA+3, LRBLDAA+4, ASK+1, ASK+2, P, A1+1, A1+2, R1, R1+1, R1+2 , S, S+1, M, D, T, F
>> X("POINTER"	T
>> X(1	R1+2*
>> Y	P+1, A1, A1+1, A1+2, R1+1, R1+2, T*
>> Z	T*
>> Z(1	T*
>> Z(2	T*
>> Z(3	T*
>> ZTRTN	P+2*
>> ZTSK	P+2

Customize PDF page

Package: Lab Service

Routine: LRBLDAA

Information

Source Information

Call Graph

Call Graph Total: 7

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: