Routine: LRBLDPA1

Package	Total	Call Graph
VA Fileman	4	FIELD^DID $$EXTERNAL^DILFD ^DIWP ^DIWW
Lab Service	3	(,A,C,P)^LRBLDPA2 ^LRBLDPAW (D,F,M)^LRU

Package	Total	Caller Graph
Lab Service	3	LRBLDPA LRBLDPA2 LRBLDPAW

Entry Points

External References

Name	Field # of Occurrence
FIELD^DID	W, W+3, W+4, W+5
$$EXTERNAL^DILFD	S+1
^DIWP	LRBLDPA1+6, LRBLDPA1+10
^DIWW	LRBLDPA1+7, LRBLDPA1+11
^LRBLDPA2	W+10
A^LRBLDPA2	LRBLDPA1+11
C^LRBLDPA2	LRBLDPA1+13
P^LRBLDPA2	W+5
^LRBLDPAW	LRBLDPA1+21
D^LRU	LRBLDPA1+4, LRBLDPA1+9, LRBLDPA1+18, W, W+2
F^LRU	H+1
M^LRU	H

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: LRBLDPA1+8
Function Call: WRITE	Prompt: "PERMANENT DEFERRAL: ",Y Condition for execution: X]"" Line Location: LRBLDPA1+8
Function Call: WRITE	Prompt: ?29,"DEFERRAL ENTER/EDIT: ",X Condition for execution: X]"" Line Location: LRBLDPA1+8
Function Call: WRITE	Prompt: !,"PERMANENT DEFERRAL DATE CHANGE: ",Y Line Location: LRBLDPA1+9
Function Call: WRITE	Prompt: !!,"SCHEDULING/RECALL: " Line Location: LRBLDPA1+13
Function Call: WRITE	Prompt: !?19 Line Location: LRBLDPA1+13
Function Call: WRITE	Prompt: ! Condition for execution: E>1 Line Location: LRBLDPA1+15
Function Call: WRITE	Prompt: ?19,F(E) Line Location: LRBLDPA1+15
Function Call: WRITE	Prompt: !!?3,"APHERESIS: ",Y,?28,"CUMULATIVE DONATIONS: ",$P(LRX,U,7) Line Location: LRBLDPA1+16
Function Call: WRITE	Prompt: !,"TOTAL AWARDS: ",$P(LRX,U,8),?34,"GIVE NEW AWARD: " Line Location: LRBLDPA1+17
Function Call: WRITE	Prompt: Y Line Location: LRBLDPA1+17
Function Call: WRITE	Prompt: !?2,"DEMOG EDIT: ",X Line Location: LRBLDPA1+18
Function Call: WRITE	Prompt: ?45,"DATE REG/EDITED: ",Y Line Location: LRBLDPA1+18
Function Call: WRITE	Prompt: !!?3,"ADDRESS: ",$P(X,U)," ",$P(X,U,2) Line Location: LRBLDPA1+19
Function Call: WRITE	Prompt: !?12,Y Condition for execution: Y]"" Line Location: LRBLDPA1+19
Function Call: WRITE	Prompt: !?12,$P(X,U,4),", " Line Location: LRBLDPA1+19
Function Call: WRITE	Prompt: !?12,$P(X,U,4),", " Line Location: LRBLDPA1+19
Function Call: WRITE	Prompt: !,"HOME PHONE: ",$P(X,U,7),?38,"WORK PHONE: ",$P(X,U,8) Line Location: LRBLDPA1+20
Function Call: WRITE	Prompt: D:LRN=1 Line Location: LRBLDPA1+21
Function Call: WRITE	Prompt: Q:LR("Q") Line Location: LRBLDPA1+22
Function Call: WRITE	Prompt: S Line Location: W+0
Function Call: WRITE	Prompt: !!,NAME,": ",Y Line Location: W+0
Function Call: WRITE	Prompt: ?40,"DONATION CODE: ",Y Line Location: W+1
Function Call: WRITE	Prompt: !,"COLLECTION SITE: ",X Line Location: W+1
Function Call: WRITE	Prompt: !,"COLLECTION SITE: ",X Line Location: W+1
Function Call: WRITE	Prompt: !,"ARRIVAL/APPT TIME: ",Y,?40,"ENTER/EDIT: " Line Location: W+2
Function Call: WRITE	Prompt: X Line Location: W+2
Function Call: WRITE	Prompt: !,NAME,": ",Y Line Location: W+3
Function Call: WRITE	Prompt: !,NAME,": ",Y Line Location: W+4
Function Call: WRITE	Prompt: !,NAME,": ",$P(X,U)," ",$P(X,U,9) Line Location: W+5
Function Call: WRITE	Prompt: ?40,"DONOR REACTION: ",X Line Location: W+6
Function Call: WRITE	Prompt: !,"UNIT ID: ",$P(LRX,U,4) Condition for execution: $P(LRX,U,4)]"" Line Location: W+8
Function Call: WRITE	Prompt: ?40,"PRIMARY BAG: " Line Location: W+8
Function Call: WRITE	Prompt: Y Line Location: W+8
Function Call: WRITE	Prompt: !,"ANTICOAGULANT: ",Y,?40,"BAG LOT #: ",$P(LRZ,U,10) Line Location: W+9
Function Call: WRITE	Prompt: !," BLOOD DONOR: ",PNM,?45,"DOB: ",LRDOB,!?9,"SEX: ",SEX,?42,"ABO/RH: ",LRABO," ",LRRH,! Line Location: H+1
Function Call: WRITE	Prompt: !!,"GROUP AFFILIATION:" Line Location: H1+0

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
65.54	FIELD^DID

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(5 - [#5]	LRBLDPA1+19
^LAB(65.4 - [#65.4]	G
^LRE - [#65.5]	LRBLDPA1+4, LRBLDPA1+6, LRBLDPA1+10, LRBLDPA1+12, LRBLDPA1+14, LRBLDPA1+17, LRBLDPA1+19, LRBLDPA1+21, LRBLDPA1+22, W+7 , W+8
^TMP($J	LRBLDPA1+6!, LRBLDPA1+10!
^VA(200 - [#200]	V

Label References

Name	Line Occurrences
G	LRBLDPA1+14, W+1, W+6, W+7
H	LRBLDPA1+5, LRBLDPA1+6, LRBLDPA1+7, LRBLDPA1+10, LRBLDPA1+11, LRBLDPA1+14, LRBLDPA1+16, LRBLDPA1+20, LRBLDPA1+22, M , H1
H1	LRBLDPA1+15
M	W+2, W+4, W+7, W+8
S	LRBLDPA1+4, LRBLDPA1+8, LRBLDPA1+12, LRBLDPA1+16, LRBLDPA1+17, W+1, W+3, W+4, W+8, W+9
V	LRBLDPA1+8, LRBLDPA1+18, W+2
W	LRBLDPA1+21, LRBLDPA1+22

Naked Globals

Name	Field # of Occurrence
^(	LRBLDPA1+6, LRBLDPA1+10, LRBLDPA1+22, W+7
^(0	LRBLDPA1+19, G, V
^(1	LRBLDPA1+19
^(2	W+8
^(3	LRBLDPA1+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	LRBLDPA1+12, LRBLDPA1+14, LRBLDPA1+21, LRBLDPA1+22, W+7, W+8
>> B	LRBLDPA1+22*
>> C	W+7*
>> E	LRBLDPA1+12, LRBLDPA1+14, LRBLDPA1+15, W+7
F	LRBLDPA1+12!, LRBLDPA1+14!
F(	LRBLDPA1+12, LRBLDPA1+14, LRBLDPA1+15
F(1	LRBLDPA1+12, LRBLDPA1+13, LRBLDPA1+14, LRBLDPA1+15
F(2	LRBLDPA1+13
>> G	LRBLDPA1+12*
IOSL	LRBLDPA1+6, LRBLDPA1+7, LRBLDPA1+10, LRBLDPA1+11, LRBLDPA1+14, LRBLDPA1+15, LRBLDPA1+16, LRBLDPA1+20, LRBLDPA1+22, M
IOST	H
>> LR	LRBLDPA1+4, LRBLDPA1+6, LRBLDPA1+10, LRBLDPA1+12, LRBLDPA1+14, LRBLDPA1+17, LRBLDPA1+19, LRBLDPA1+21, LRBLDPA1+22, W+7 , W+8
>> LR("F"	LRBLDPA1+5*, H
>> LR("Q"	LRBLDPA1+6, LRBLDPA1+7, LRBLDPA1+10, LRBLDPA1+11, LRBLDPA1+12, LRBLDPA1+14, LRBLDPA1+15, LRBLDPA1+16, LRBLDPA1+20, LRBLDPA1+22 , W+2, W+4, W+7, W+8, M+1, H, H1
>> LRA	LRBLDPA1+6, LRBLDPA1+10, W+7*
>> LRABO	LRBLDPA1+4*, H+1
LRDOB	LRBLDPA1+4~*, H+1
>> LRE	LRBLDPA1+6, LRBLDPA1+10
>> LRF	LRBLDPA1+4, LRBLDPA1+12, LRBLDPA1+16, LRBLDPA1+21, LRBLDPA1+22*, S+1
>> LRI	LRBLDPA1+21
>> LRJ	LRBLDPA1+6, LRBLDPA1+7, LRBLDPA1+10, LRBLDPA1+11
>> LRM	M*, M+1
>> LRN	LRBLDPA1+21
>> LRRH	LRBLDPA1+4*, H+1
>> LRX	LRBLDPA1+4, LRBLDPA1+5, LRBLDPA1+8, LRBLDPA1+9, LRBLDPA1+16, LRBLDPA1+17, LRBLDPA1+18, LRBLDPA1+21, LRBLDPA1+22*, W , W+1, W+2, W+3, W+4, W+5, W+6, W+8
>> LRY	W*, M+1
>> LRZ	W+8*, W+9
NAME	LRBLDPA1+4~, W, W+3, W+4, W+5
NAME("LABEL"	W, W+3, W+4, W+5
>> PNM	LRBLDPA1+4*, H+1
>> SEX	LRBLDPA1+4*, H+1
>> SSN	LRBLDPA1+4*
U	LRBLDPA1+4, LRBLDPA1+5, LRBLDPA1+8, LRBLDPA1+9, LRBLDPA1+12, LRBLDPA1+16, LRBLDPA1+17, LRBLDPA1+18, LRBLDPA1+19, LRBLDPA1+20 , W+1, W+2, W+3, W+4, W+5, W+6, W+8, W+9, G, V
>> X	LRBLDPA1+4, LRBLDPA1+5, LRBLDPA1+6, LRBLDPA1+8, LRBLDPA1+10, LRBLDPA1+12, LRBLDPA1+13, LRBLDPA1+14, LRBLDPA1+16, LRBLDPA1+17 , LRBLDPA1+18, LRBLDPA1+19, LRBLDPA1+20, W+1, W+2, W+3, W+4, W+5, W+6, W+7* , W+8, W+9, G, V, S*, S+1
>> X(3	LRBLDPA1+14, W+7, G*
>> Y	LRBLDPA1+4, LRBLDPA1+8, LRBLDPA1+9, LRBLDPA1+12, LRBLDPA1+16, LRBLDPA1+17, LRBLDPA1+18, LRBLDPA1+19, W, W+1 , W+2, W+3, W+4, W+8, W+9, S, S+1
>> Z	LRBLDPA1+4, LRBLDPA1+8, LRBLDPA1+12, LRBLDPA1+16, LRBLDPA1+17, W+1, W+3, W+4, W+8, W+9 , S+1

Customize PDF page

Package: Lab Service

Routine: LRBLDPA1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
G
H
H1
M
S
W
V