Routine: LRBLPR1

Package	Total	Call Graph
Lab Service	2	H^LRBLPR D^LRU
VA Fileman	2	^DIWP ^DIWW

Package	Total	Caller Graph
Lab Service	2	LRBLPR LRBLPRA

Entry Points

External References

Name	Field # of Occurrence
^DIWP	LRBLPR1+3
^DIWW	LRBLPR1+4
H^LRBLPR	LRBLPR1+3, H1, H2, H3, H4
D^LRU	S+1, R+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?4 Condition for execution: $X>(IOM-15) Line Location: LRBLPR1+6
Function Call: WRITE	Prompt: " ",$P(^LAB(61.3,LR(9),0),"^") Line Location: LRBLPR1+6
Function Call: WRITE	Prompt: ! Line Location: LRBLPR1+8
Function Call: WRITE	Prompt: !,"Accession Number",?24,"Date/time",?40,"ABO",?44,"Rh",?48,"AHG(D)",?55,"AHG(I)" Line Location: V+0
Function Call: WRITE	Prompt: !,$J($P(LR(5),"^",6),15),?24,T Line Location: V+1
Function Call: WRITE	Prompt: ?41,$J($P(LR(10),"^"),2),?44,$P(LR(11),"^"),?51,$P(LR(0),"^",9),?58,$P(LR(6),"^") Line Location: W+1
Function Call: WRITE	Prompt: !?20,$E(X,1,59) Line Location: W+2
Function Call: WRITE	Prompt: !?40,$E(X,60,80) Line Location: W+2
Function Call: WRITE	Prompt: !?20,$E(X,1,59) Line Location: W+3
Function Call: WRITE	Prompt: !?40,$E(X,60,80) Condition for execution: $L(X)>59 Line Location: W+3
Function Call: WRITE	Prompt: !?20,$E(X,1,59) Line Location: W+4
Function Call: WRITE	Prompt: !?40,$E(X,60,80) Condition for execution: $L(X)>59 Line Location: W+4
Function Call: WRITE	Prompt: !?20,"Serum antibody: ",$P(^(0),"^") Line Location: W+5
Function Call: WRITE	Prompt: !?20,"Eluate antibody: ",$P(^LAB(61.3,E,0),"^") Line Location: W+6
Function Call: WRITE	Prompt: !?8,LRE Line Location: W+7
Function Call: WRITE	Prompt: !,LRP,?31,$P(LR(4),"^",2),?42,"[See previous page (Pg ",LRQ-1,")]" Line Location: H+0
Function Call: WRITE	Prompt: !?4,"Antibodies identified (cond't): " Line Location: H1+0
Function Call: WRITE	Prompt: !?4,"Date/time",?20,"ABO",?24,"Rh",?28,"AHG(D)",?35,"AHG(I)" Line Location: H2+0
Function Call: WRITE	Prompt: !,"TRANSFUSION REACTIONS WITH UNIT IDENTIFIED",?51,"UNIT ID",?66,"COMPONENT" Line Location: H3+0
Function Call: WRITE	Prompt: !,"TRANSFUSION REACTIONS WITHOUT UNIT IDENTIFIED" Line Location: H4+0
Function Call: WRITE	Prompt: ! Line Location: S+1
Function Call: WRITE	Prompt: !,Y,?21,$P($G(^LAB(65.4,+$P(LR(1.9),U,2),0)),U) Line Location: S+1
Function Call: WRITE	Prompt: !,B(1) Line Location: A+0
Function Call: WRITE	Prompt: !,Y,?21,$P($G(^LAB(65.4,C,0)),U),?51,$P(LR(1.9),U,3),?69,$P($G(^LAB(66,+$P(LR(1.9),U,2),0)),U,2) Line Location: R+1
Function Call: WRITE	Prompt: !,B(2) Line Location: R+2

Name	Line Occurrences (* Changed, ! Killed)
^LAB(61.3 - [#61.3]	LRBLPR1+6, W+5, W+6
^LAB(65.4 - [#65.4]	S+1, R+1
^LAB(66 - [#66]	R+1
^LR - [#63]	LRBLPR1+3, LRBLPR1+6, LRBLPR1+7, V+1, W, W+4, W+5, W+6, W+7, S+1 , A, R, R+2
^LR("AB"	S, R!
^UTILITY($J	E!

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	V+1, S, S+1*, A, R, R+2
>> B	S, S+1, A*
>> B(1	A, R+2
>> B(2	R+2*
>> C	S*, R, R+1
>> DIWF	E*
>> DIWL	E*
>> DIWR	E*
>> E	W+2, W+4, W+5, W+6, W+7*
IOM	LRBLPR1+6, E
IOSL	LRBLPR1+3, LRBLPR1+6, V+1, W+2, W+3, W+4, W+5, W+6, W+7, A , R+2
>> LR(	W+2, S+1, R, R+1
>> LR("Q"	LRBLPR1+3, LRBLPR1+4, LRBLPR1+5, LRBLPR1+6, LRBLPR1+7, V+1, W+2, W+3, W+4, W+5 , W+6, W+7, H, H1, H2, H3, H4, S, S+1, A , R+2
>> LR(0	W*, W+1, W+3
>> LR(10	W*, W+1
>> LR(11	W*, W+1
>> LR(4	H
>> LR(5	V+1*
>> LR(6	W*, W+1
>> LR(8	LRBLPR1+7, V+1
>> LR(9	LRBLPR1+3, LRBLPR1+6
>> LRA	S, R+1
>> LRDFN	LRBLPR1+3, LRBLPR1+6, LRBLPR1+7, V+1, W, W+4, W+5, W+6, W+7, S , S+1, A, R, R+2
>> LRE	W+7*
>> LRI	V+1*, W, W+4, W+5, W+6, W+7
>> LRP	H
>> LRQ	H
>> LRSS	LRBLPR1+7, V+1, W, W+4, W+5, W+6, W+7
>> LRZ	LRBLPR1+3*, LRBLPR1+4
>> T	V+1, T
U	S+1, R+1
>> X	LRBLPR1+3, W+2, W+3, W+4, W+5*
>> Y	S+1, R, R+1

Customize PDF page

Package: Lab Service

Routine: LRBLPR1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
A	S+1
E	LRBLPR1+3
H	LRBLPR1+3, H1, H2, H3, H4
H1	LRBLPR1+6
H2	V+1, W+2, W+3, W+4, W+5, W+6, W+7
H3	R+2
H4	A
R	S
S	LRBLPR1+5
T	V+1
V	LRBLPR1+7
W	V+1

Name	Comments	DBIA/ICR reference
A
E
H2
H
H1
H4
H3
S
R
T
W
V