Routine: LRBLDL

Package	Total	Call Graph
Lab Service	3	^LRBLDL1 (D,F,H,H1,L,M,S,V,YN)^LRU (,BEG,END)^LRUTL
VA Fileman	2	^%DT ^DIC

Package

Total

Call Graph

^LRBLDL1 (D,F,H,H1,L,M,S,V,YN)^LRU (,BEG,END)^LRUTL

^%DT ^DIC

Name	Field # of Occurrence
^%DT	LRBLDL+6
^DIC	LRBLDL+8
^LRBLDL1	I+4
D^LRU	LRBLDL+6, W+1
F^LRU	H+1
H^LRU	S+1
H1^LRU	F+1
L^LRU	QUE
M^LRU	H
S^LRU	QUE
V^LRU	END
YN^LRU	LRBLDL+7
^LRUTL	LRBLDL+4
BEG^LRUTL	L+1, I+3
END^LRUTL	QUE+2

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!?28,"BLOOD DONOR LISTS/LABELS" Line Location: LRBLDL+5
Function Call: WRITE	Prompt: !!,"DONORS FROM A SPECIFIC GROUP AFFILIATION " Line Location: LRBLDL+7
Function Call: READ	Prompt: "START WITH BLOOD DONOR NAME: FIRST// " Formatting: !! Timeout: DTIME Variable: X Line Location: S+0
Function Call: READ	Prompt: "GO TO BLOOD DONOR NAME: LAST// " Formatting: ! Timeout: DTIME Variable: X Line Location: F+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: L+0
Function Call: WRITE	Prompt: !!?14,"1. PRINT DONOR LIST",!?14,"2. PRINT DONOR LABELS",!,"Select (1-2): " Line Location: L+0
Function Call: WRITE	Prompt: $C(7),!,"Enter the number 1 or the number 2" Line Location: L+0
Function Call: WRITE	Prompt: !,P Line Location: W+1
Function Call: WRITE	Prompt: ?31,$E(Y,1,12) Line Location: W+1
Function Call: WRITE	Prompt: W Line Location: W+1
Function Call: WRITE	Prompt: ?45,$E($P(^(0),"^",3),1,30) Line Location: W+1
Function Call: WRITE	Prompt: !?45,$E($P(^(0),"^",3),1,30) Line Location: W+3
Function Call: WRITE	Prompt: !,LRAA(1),!,LR(2)," NO DONATIONS SINCE ",LRSTR Line Location: H+1
Function Call: WRITE	Prompt: !,"Donor",?31,"Last donation",?55,"Group" Line Location: H+2
Function Call: WRITE	Prompt: ?76,"Home phone",?93,"Work phone" Condition for execution: IOM>118 Line Location: H+2
Function Call: WRITE	Prompt: !?5,"Home phone",?25,"Work phone" Condition for execution: IOM<119 Line Location: H+2
Function Call: WRITE	Prompt: !,LR("%") Line Location: H+2
Function Call: WRITE	Prompt: !!?33,"REMEMBER TO",!?13,"ALIGN THE PRINT HEAD ON THE FIRST LINE OF THE LABEL" Line Location: B+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: I+0
Function Call: WRITE	Prompt: ! Line Location: I+4
Routine Call	DIC Line Location: LRBLDL+8

Name	Line Occurrences (* Changed, ! Killed)
^DD(69.2	I+1
^LAB(65.4 - [#65.4]	W+1, W+3
^LRE - [#65.5]	QUE+1, W, W+2, W+3
^LRE("B"	QUE+1
^LRO(69.2 - [#69.2]	B

Name	Line Occurrences
B	L+1
END	LRBLDL+4, LRBLDL+6, LRBLDL+7, LRBLDL+8, S, F, L+1, QUE+2, I+3
F	F+1
H	QUE, W
I	I+1
L	S, F, L
S	S+1
W	QUE+1

Name	Field # of Occurrence
^(	QUE+1
^(0	W+1, W+3, B
^(1	W+2
^(3	I+1
^(4	I+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LRBLDL+7*, LRBLDL+8
%DT	LRBLDL+6*!
%DT("A"	LRBLDL+6*
%DT(0	LRBLDL+6*
>> A	QUE+1*
>> B	W+3*
DIC	LRBLDL+8*!
DIC("A"	LRBLDL+8*
DIC("S"	LRBLDL+8*
DIC(0	LRBLDL+8*
DTIME	S, F, L, I
>> I	QUE+1*, W, W+2, W+3
IO	QUE
IOF	LRBLDL+5
IOM	W+2, H+2
IOSL	W
IOST	H
>> LR	LRBLDL+6, LRBLDL+8, W
>> LR("%"	H+2
>> LR("F"	QUE*, H
>> LR("Q"	QUE+1, W, W+3, H
>> LR(1	B, I, I+2
>> LR(2	LRBLDL+6, LRBLDL+8, H+1
>> LRAA	B
>> LRAA(1	H+1
>> LRSDT	LRBLDL+6*, QUE+1
>> LRSTR	LRBLDL+6*, H+1
>> O	W+2*
>> P	QUE+1*, W+1
>> P(1	S, S+2, QUE+1
>> P(2	S, F, F+2*, QUE+1
>> POP	L+1, I+3
U	LRBLDL+8, S, F, L, I
>> W	QUE+1*, W, W+1
>> W(7	W*, W+1, W+3
>> X	LRBLDL+4, LRBLDL+8, S, S+1, S+2, F, F+1, F+2, L, L+1 , W+2, I, I+1, I+2
>> X(1	S+2*
>> Y	LRBLDL+4, LRBLDL+6, LRBLDL+8, W+1, W+2
>> ZTRTN	L+1, I+3
>> ZTSK	L+1, I+3

Customize PDF page

Package: Lab Service

Routine: LRBLDL

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
B
END
F
I
H
L
S
QUE
W