Routine: LRBLPBR1

Package	Total	Call Graph
Lab Service	2	(D,F,M)^LRU DD^LRX

Package	Total	Caller Graph
Lab Service	2	LRBLPBR LRBLSUM

Entry Points

External References

Name	Field # of Occurrence
D^LRU	N+3
F^LRU	H+1
M^LRU	H
DD^LRX	T

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?4 Condition for execution: $X>(IOM-15) Line Location: LRBLPBR1+6
Function Call: WRITE	Prompt: $P(^LAB(61.3,LR(9),0),"^"),"; " Line Location: LRBLPBR1+6
Function Call: WRITE	Prompt: !?4,T Line Location: LRBLPBR1+8
Function Call: WRITE	Prompt: ! Line Location: FT+0
Function Call: WRITE	Prompt: !,LR("%") Line Location: FT+1
Function Call: WRITE	Prompt: !,N,?31,$P(LR,"^",2),?45,DOB,?56,$J($P(LR,"^",3),2),?59,$P(LR,"^",4),!,"Location: ",G,?39,"Physician: ",LRMD,!,"CUMULATIVE BLOOD BANK TEST REPORT",?50,"PERMANENT COPY",!,"(discard earlier copies)" Line Location: FT+2
Function Call: WRITE	Prompt: S Line Location: W+0
Function Call: WRITE	Prompt: ?21,$J($P(X,"^"),2) Line Location: W+0
Function Call: WRITE	Prompt: ?21,$J($P(X,"^"),2) Line Location: W+0
Function Call: WRITE	Prompt: ?(30+$S(H=4:5,H=6:10,H=9:15,1:0)),$S(Y="N":"Neg",Y="P":"Pos",H=9&(Y="I"):"Invalid",1:Y) Line Location: W+1
Function Call: WRITE	Prompt: ?62,$S(Y="N":"Neg",Y="P":"Pos",1:Y) Line Location: W+2
Function Call: WRITE	Prompt: !,LRN(X),":",LRN(X,3) Line Location: W+3
Function Call: WRITE	Prompt: !,"ELUATE ANTIBODY: ",$S($D(^LAB(61.3,J,0)):$P(^(0),"^"),1:J) Line Location: W+4
Function Call: WRITE	Prompt: !,"SERUM ANTIBODY IDENTIFIED: ",$S($D(^LAB(61.3,J,0)):$P(^(0),"^"),1:J) Line Location: W+5
Function Call: WRITE	Prompt: !,LRN(8),":",J(1) Line Location: W+6
Function Call: WRITE	Prompt: !?8,J(1) Line Location: W+7
Function Call: WRITE	Prompt: !,"No UNITS assigned/xmatched",! Line Location: C+1
Function Call: WRITE	Prompt: ! Line Location: C+2
Function Call: WRITE	Prompt: "No component requests",! Line Location: C+3
Function Call: WRITE	Prompt: !,$J(B,2),")",?4,$P(F,"^"),?15,$E($P(M,"^"),1,19),?36,$P(F,"^",7)_" "_$P(F,"^",8),?43 Line Location: N+3
Function Call: WRITE	Prompt: Y,?64,L Line Location: N+3
Function Call: WRITE	Prompt: !,$E($P(^LAB(66,+F,0),"^"),1,26),?26,$J($P(F,"^",4),2),?31 Line Location: L+1
Function Call: WRITE	Prompt: T,?48 Line Location: L+1
Function Call: WRITE	Prompt: T,?48 Line Location: L+1
Function Call: WRITE	Prompt: !?20,"BLOOD BANK TEST REPORT",!,LR("%") Line Location: H+1
Function Call: WRITE	Prompt: !?10,"Patient",?34,"HRCN",?43,"Birth Date",?55,"ABO",?59,"Rh",!,?10,"-------",?34,"---",?43,"----------",?55,"---",?59,"--" Line Location: H+3
Function Call: WRITE	Prompt: !,N,?31,$P(LR,"^",2),?44,T,?56,$J($P(LR,"^",3),2),?59,$P(LR,"^",4),!! Line Location: H+4
Function Call: WRITE	Prompt: !!?4,"Antibodies identified (cond't from pg ",LR(2)-1,")" Line Location: H1+0
Function Call: WRITE	Prompt: !!,?30,"\|---",?39,"AHG(direct)",?55,"---\|",?62,"\|-AHG(indirect)-\|",!?4,"Date/time",?20,"ABO",?24,"Rh",?30,"POLY",?35,"IgG",?40,"C3",?45,"Interpretation",?62,"(Antibody screen)" Line Location: DT+0
Function Call: WRITE	Prompt: !?4,"---------",?20,"---",?24,"--",?30,"----",?35,"---",?40,"---",?45,"--------------",?62,"-----------------" Line Location: DT+1
Function Call: WRITE	Prompt: !!?6,"Unit assigned/xmatched:",?46,"Exp date",?64,"Loc" Line Location: H3+0
Function Call: WRITE	Prompt: !,"Component requests",?25,"Units",?32,"Request date",?48,"Date wanted",?65,"Requestor",?77,"By" Line Location: R+0

Name	Line Occurrences (* Changed, ! Killed)
^LAB(61.3 - [#61.3]	LRBLPBR1+6, W+4, W+5
^LAB(66 - [#66]	N+3, L, L+1
^LR - [#63]	LRBLPBR1+6, LRBLPBR1+8, W, W+1, W+2, W+4, W+5, W+6, W+7, C+2 , L!*
^LRD(65 - [#65]	C, N+1!, N+2
^VA(200 - [#200]	L+1

Name	Field # of Occurrence
^(	LRBLPBR1+8, W+6, W+7, C+2, N+2
^(0	W+4, W+5, L+1
^(10	W
^(11	W
^(2	W+1
^(3	N+2
^(6	W+2

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	LRBLPBR1+8, C, C+2*, N+1, N+2
>> B	C, C+1, C+2, C+3, N, N+3
>> DOB	FT+2, H+4*
>> F	C+2, N+2, N+3, L, L+1
>> G	FT+2
>> H	W+1*
IOM	LRBLPBR1+6
IOSL	LRBLPBR1+6, LRBLPBR1+7, LRBLPBR1+8, FT, W+4, W+5, W+6, W+7, N+3
IOST	H
>> J	W+4, W+5, W+6, W+7
>> J(1	W+6, W+7
>> L	N+2, N+3
>> LR	LRBLPBR1+5, FT+2, H+4
>> LR("%"	FT+1, H+1
>> LR("F"	LRBLPBR1+5*, H
>> LR("Q"	LRBLPBR1+6, LRBLPBR1+7, LRBLPBR1+8, FT, W+4, W+5, W+6, W+7, C, C+1 , C+2, C+3, N+3, H, H1, H2, H3
>> LR(2	LRBLPBR1+5*, H1
>> LR(5	LRBLPBR1+8*
>> LR(9	LRBLPBR1+6*
>> LRDFN	LRBLPBR1+6, LRBLPBR1+8, W, W+1, W+2, W+4, W+5, W+6, W+7, C , C+2, N+1, L
>> LRI	LRBLPBR1+8*, W, W+1, W+2, W+4, W+5, W+6, W+7
>> LRMD	LRBLPBR1+5*, FT+2
>> LRN(	W, W+1, W+3
>> LRN(2	LRBLPBR1+7
>> LRN(8	W+6
>> LRSS	LRBLPBR1+8, W, W+1, W+2, W+4, W+5, W+6, W+7
>> M	N+3*
>> N	FT+2, H+4
>> T	LRBLPBR1+8, T, L+1, H+4
>> X	FT, W, W+1, W+2, W+3, L
>> X(1	L*
>> Y	W+1, W+2, T, N+3

Customize PDF page

Package: Lab Service

Routine: LRBLPBR1

Information

Source Information

Call Graph

Call Graph Total: 2

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
C	LRBLPBR1+7
DT	LRBLPBR1+8, H2
FT	LRBLPBR1+6, LRBLPBR1+7, H2
H	LRBLPBR1+5, LRBLPBR1+7, W+4, W+5, W+6, W+7, H1, H2, H3
H1	LRBLPBR1+6
H2	LRBLPBR1+8
H3	N+3
L	C+2
N	C
R	C+2
T	LRBLPBR1+8, L+1, H+4
W	LRBLPBR1+8

Name	Comments	DBIA/ICR reference
C
FT
H2
H
H1
L
N
R
T
W
H3
DT