Routine: LRBLDPA2

Package	Total	Call Graph
Lab Service	2	(H,M,S,V)^LRBLDPA1 D^LRU
VA Fileman	1	FIELD^DID

Package	Total	Caller Graph
Lab Service	1	LRBLDPA1

Entry Points

External References

Name	Field # of Occurrence
FIELD^DID	T+1, T+3
H^LRBLDPA1	L
M^LRBLDPA1	LRBLDPA2+9, LRBLDPA2+10, LRBLDPA2+12, LRBLDPA2+15, T, R+3
S^LRBLDPA1	LRBLDPA2+8, LRBLDPA2+10, LRBLDPA2+11, LRBLDPA2+12, LRBLDPA2+13, T+1, R+2, A+5
V^LRBLDPA1	LRBLDPA2+6, LRBLDPA2+10, LRBLDPA2+11, LRBLDPA2+12, LRBLDPA2+13, T+2, R+1, R+2
D^LRU	LRBLDPA2+3, LRBLDPA2+4, R

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"COLLECTION STARTED: ",Y Line Location: LRBLDPA2+3
Function Call: WRITE	Prompt: ?40,"COMPLETED: ",Y Line Location: LRBLDPA2+3
Function Call: WRITE	Prompt: !?9,"PROCESSED: ",Y,?40,"COLLECTION WT(gm): ",$P(LRZ,U,5) Line Location: LRBLDPA2+4
Function Call: WRITE	Prompt: !,"EMPTY PRIMARY UNIT(gm): ",$P(LRZ,U,6),?40,"COLLECTION VOL(ml): ",$P(LRZ,U,7) Line Location: LRBLDPA2+5
Function Call: WRITE	Prompt: !,"PROCESSING TECH: ",X Line Location: LRBLDPA2+6
Function Call: WRITE	Prompt: !,"COLLECTION DISPOSITION: ",Y Line Location: LRBLDPA2+8
Function Call: WRITE	Prompt: !,"COLLECTION DISPOSITION COMMENT:" Condition for execution: E=1 Line Location: LRBLDPA2+9
Function Call: WRITE	Prompt: !?3,LRA Line Location: LRBLDPA2+9
Function Call: WRITE	Prompt: !,"ABO INTERPRETATION: ",Y Line Location: LRBLDPA2+10
Function Call: WRITE	Prompt: ?40,"TECH: ",X Line Location: LRBLDPA2+10
Function Call: WRITE	Prompt: ?40,"TECH: ",X Line Location: LRBLDPA2+10
Function Call: WRITE	Prompt: !,"ABO RECHECK: ",Y Line Location: LRBLDPA2+11
Function Call: WRITE	Prompt: ?40,"RECHECH TECH: ",X Line Location: LRBLDPA2+11
Function Call: WRITE	Prompt: ?40,"RECHECH TECH: ",X Line Location: LRBLDPA2+11
Function Call: WRITE	Prompt: !,"RH INTERPRETATION: ",Y Line Location: LRBLDPA2+12
Function Call: WRITE	Prompt: ?40,"TECH: ",X Line Location: LRBLDPA2+12
Function Call: WRITE	Prompt: ?40,"TECH: ",X Line Location: LRBLDPA2+12
Function Call: WRITE	Prompt: !,"RH RECHECK: ",Y Line Location: LRBLDPA2+13
Function Call: WRITE	Prompt: ?40,"RECHECH TECH: ",X Line Location: LRBLDPA2+13
Function Call: WRITE	Prompt: ?40,"RECHECH TECH: ",X Line Location: LRBLDPA2+13
Function Call: WRITE	Prompt: !!,"COMPONENT PREPARED:" Condition for execution: E=1 Line Location: LRBLDPA2+15
Function Call: WRITE	Prompt: !?3,$S($D(^LAB(66,X,0)):$P(^(0),U),1:X) Line Location: LRBLDPA2+15
Function Call: WRITE	Prompt: !,NAME,": ",Y Line Location: T+1
Function Call: WRITE	Prompt: ?40,"TECH: ",X Line Location: T+2
Function Call: WRITE	Prompt: !,NAME,": ",$P(I,U,3) Line Location: T+3
Function Call: WRITE	Prompt: ?40,"DISPOSITION DATE: ",Y Line Location: R+0
Function Call: WRITE	Prompt: !,"DATE STORED: ",Y Line Location: R+0
Function Call: WRITE	Prompt: !,"DATE STORED: ",Y Line Location: R+0
Function Call: WRITE	Prompt: !,"COMPONENT VOL(ml): ",$P(LRA,U,5) Line Location: R+1
Function Call: WRITE	Prompt: ?40,"LABELING TECH:",X Line Location: R+1
Function Call: WRITE	Prompt: !,"DISPOSITION TECH:",X Line Location: R+2
Function Call: WRITE	Prompt: ?40,"DISPOSITION: ",Y Line Location: R+2
Function Call: WRITE	Prompt: !,"COMPONENT DISPOSITION COMMENT:" Condition for execution: G=1 Line Location: R+3
Function Call: WRITE	Prompt: !,LRB Line Location: R+3
Function Call: WRITE	Prompt: !,"Antigen(s) present",?40,"\| Antigen(s) absent",! Line Location: A+3
Function Call: WRITE	Prompt: ! Condition for execution: E>1 Line Location: A+3
Function Call: WRITE	Prompt: ?40,"\|" Line Location: A+3
Function Call: WRITE	Prompt: ! Line Location: A+4
Function Call: WRITE	Prompt: !,"CMV ANTIBODY: ",Y Line Location: A+5
Function Call: WRITE	Prompt: X Line Location: C+1
Function Call: WRITE	Prompt: !?3,$P(^LAB(61.3,B,0),U) Line Location: L+0
Function Call: WRITE	Prompt: !?5,$P(LRB,U,2) Condition for execution: $P(LRB,U,2)]"" Line Location: L+0

Name	Comments	DBIA/ICR reference
A	;donor antigen list from LRBLDPA1
C
L
P
R
T

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	P
^LAB(61.3 - [#61.3]	A+1, A+2, L
^LAB(66 - [#66]	LRBLDPA2+15
^LR - [#63]	P
^LRE - [#65.5]	LRBLDPA2+9, LRBLDPA2+10, LRBLDPA2+12, LRBLDPA2+15, T+1, R+3, A+1, A+2, L

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	LRBLDPA2+9, LRBLDPA2+10, LRBLDPA2+12, LRBLDPA2+15, T+1, R+3, A+4*, L
>> B	A+1, A+2, L*
>> C	LRBLDPA2+9, LRBLDPA2+15, R+3, L*
>> E	LRBLDPA2+9, LRBLDPA2+15, A+1, A+2, A+3*
>> F	R+3*
>> F(	A+1*, A+3
>> F(1	A+1*, A+3
>> G	R+3, A+1, A+2*
>> I	LRBLDPA2+10, LRBLDPA2+11, LRBLDPA2+12, LRBLDPA2+13, T+1, T+2, T+3, A+1, A+2*
IOSL	L
>> J(	A+2*, A+3
>> J(1	A+2*, A+3
>> K	A+2, A+3
>> LR	LRBLDPA2+9, LRBLDPA2+10, LRBLDPA2+12, LRBLDPA2+15, T+1, R+3, A+1, A+2, L
>> LR("Q"	LRBLDPA2+9, LRBLDPA2+10, LRBLDPA2+12, LRBLDPA2+14, LRBLDPA2+15, T, R+3, A+4, A+5, L
>> LRA	LRBLDPA2+9, LRBLDPA2+15, R, R+1, R+2
>> LRB	R+3, L
>> LRF	LRBLDPA2+15, A+5
>> LRX	LRBLDPA2+7, LRBLDPA2+8, A+5
>> LRZ	LRBLDPA2+3, LRBLDPA2+4, LRBLDPA2+5, LRBLDPA2+6, LRBLDPA2+14*, T+1, T+3
>> NAME	T+1, T+3
>> NAME("LABEL"	T+1, T+3
U	LRBLDPA2+3, LRBLDPA2+4, LRBLDPA2+5, LRBLDPA2+6, LRBLDPA2+7, LRBLDPA2+8, LRBLDPA2+10, LRBLDPA2+11, LRBLDPA2+12, LRBLDPA2+13 , LRBLDPA2+15, T+1, T+2, T+3, R, R+1, R+2, A+5, L, P
>> V	A+1, A+2
>> X	LRBLDPA2+6, LRBLDPA2+8, LRBLDPA2+10, LRBLDPA2+11, LRBLDPA2+12, LRBLDPA2+13, LRBLDPA2+15, T+1, T+2, R+1 , R+2, A+3, A+5, C, C+1, P*
>> Y	LRBLDPA2+3, LRBLDPA2+4, LRBLDPA2+8, LRBLDPA2+10, LRBLDPA2+11, LRBLDPA2+12, LRBLDPA2+13, T+1, R, R+2 , A+5, C, P*
>> Z	LRBLDPA2+8, LRBLDPA2+10, LRBLDPA2+11, LRBLDPA2+12, LRBLDPA2+13, T+1, R+2, A+5

Customize PDF page

Package: Lab Service

Routine: LRBLDPA2

Information

Source Information

Call Graph

Call Graph Total: 3

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:

Name	Field # of Occurrence
^(	LRBLDPA2+9, LRBLDPA2+15, T+1, R+3, L
^(0	LRBLDPA2+15
^(10	LRBLDPA2+10
^(11	LRBLDPA2+12