Routine: LRBLPD1

Package	Total	Call Graph
VA Fileman	4	^%DT ^%DTC ^DIWP ^DIWW
Lab Service	2	(D,L,S,SSN,V)^LRU ^LRUTL

Package	Total	Caller Graph
Lab Service	1	LRAPS3
Order Entry Results Reporting	1	ORWRP16

Entry Points

Name	Comments	DBIA/ICR reference
SET	;
OERR	;
H
N
S
INI	;
CLEAN	;
MORE

External References

Name	Field # of Occurrence
^%DT	H
^%DTC	INI+7
^DIWP	OERR+7
^DIWW	OERR+8
D^LRU	OERR+9, H, INI+7, INI+8
L^LRU	OERR+5
S^LRU	OERR+5
SSN^LRU	INI+2
V^LRU	SET+1
^LRUTL	SET+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No Lab Data for: "_$P(^(0),"^") Line Location: OERR+1
Function Call: WRITE	Prompt: !,"No Lab Data for: "_$P(^DPT(DFN,0),"^") Line Location: OERR+2
Function Call: WRITE	Prompt: @IOF,!,LRP," ",SSN,?46,$J(LRPABO,2),?49,LRPRH Line Location: OERR+6
Function Call: WRITE	Prompt: MORE Condition for execution: 'B C(C) W:B ! W ?21,$P(^LAB(61.3,A,0),"^") D:$Y>A(1)!'$Y Line Location: OERR+8
Function Call: WRITE	Prompt: !,"No transfused units on record",! Line Location: OERR+10
Function Call: WRITE	Prompt: !,$J(B,3),")",?6,$P(X,"^",3),?18,$E($P(M,"^"),1,30) Line Location: N+2
Function Call: WRITE	Prompt: ?45,"(",X(7),"/",X(10),")" Line Location: N+2
Function Call: WRITE	Prompt: ?54,$P(X,"^",5)_" "_$P(X,"^",6),?60,Y Line Location: N+3
Function Call: READ	Prompt: "^ TO STOP: " Formatting: ! Timeout: DTIME Variable: A(2) Line Location: MORE+0
Function Call: WRITE	Prompt: $C(13),$J("",15),$C(13) Line Location: MORE+1
Function Call: WRITE	Prompt: @IOF,!,Y,?22,LRQ(1),?(IOM-10),"Pg: ",LRQ Line Location: H+0
Function Call: WRITE	Prompt: !,"LABORATORY SERVICE" Line Location: H+1
Function Call: WRITE	Prompt: !,LRP," ",SSN,?46,$J(LRPABO,2),?49,LRPRH Line Location: H+2
Function Call: WRITE	Prompt: $C(7),!!,"MUST BE BLOOD BANK" Line Location: SET+3
Function Call: WRITE	Prompt: $C(7),!!,?34,"",LRLLOC,"",! Line Location: INI+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	INI+1
^DIC(45.7 - [#45.7]	INI+6
^DPT - [#2]	OERR+1, OERR+2
^LAB(61.3 - [#61.3]	OERR+8
^LAB(66 - [#66]	N+1
^LR - [#63]	OERR+2, OERR+7, OERR+8, OERR+9, N+4, INI+2, INI+5, INI+8*
^VA(200 - [#200]	INI+4

Label References

Name	Line Occurrences
H	OERR+5, MORE
INI	OERR+3
MORE	OERR+7, OERR+8, OERR+9, N+4
N	OERR+9
S	OERR+7, OERR+8, OERR+9

Naked Globals

Name	Field # of Occurrence
^(	OERR+7, N+4, INI+2, INI+6, INI+8
^(0	OERR+1, INI+4, INI+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	H*
A	OERR+7, OERR+8, OERR+9, N+4, MORE, S*, CLEAN+1!
A(1	OERR+5, OERR+6, OERR+7, OERR+8, OERR+9, N+4, MORE+1, H+2
A(2	OERR+7, OERR+8, OERR+9, OERR+10, N+4, MORE, S
AGE	CLEAN+1!, INI+7*
B	OERR+7, OERR+8, OERR+9*, OERR+10, N, N+2, CLEAN+1!
C	OERR+8*, CLEAN+1!
C(	OERR+4*, OERR+8
C(1	OERR+4*
DFN	OERR+1, OERR+2, CLEAN+1!, INI+2, INI+6, INI+8
>> DIWF	OERR+4*
>> DIWL	OERR+4*
>> DIWR	OERR+4*
DOB	CLEAN+1!, INI+1, INI+2, INI+7*
DT	INI+7
DTIME	MORE
>> E	N+4*
>> F	N+4*
I	CLEAN+1!
IOF	OERR+6, H
IOM	OERR+4, H
IOSL	OERR+6, H+2
IOST	OERR+5, OERR+6, MORE
LR	CLEAN+1!
LRAA	CLEAN+1!
LRABV	CLEAN+1!
LRAD	CLEAN+1!
LRADM	CLEAN+1!, INI+1*
LRADX	CLEAN+1!, INI+1*
LRAWRD	CLEAN+1!, INI+1*
LRAX	CLEAN+1!
LRCAPLOC	CLEAN+1!
LRDFN	OERR+2*, OERR+7, OERR+8, OERR+9, N+4, CLEAN+1!, INI+2, INI+5, INI+8
LRDPAF	CLEAN+1!
LRDPF	OERR+2*, CLEAN+1!, INI+1
LREXP	INI+1!, INI+8*
LRFNAM	CLEAN+1!, INI+1*
LRH	CLEAN+1!
>> LRLLOC	INI+2, INI+3, INI+8*
LRMD	CLEAN+1!, INI+1, INI+4
LRMD(1	INI+1, INI+4
LROLLOC	CLEAN+1!
LRP	OERR+6, H+2, CLEAN+1!, INI+2*
LRPABO	OERR+6, H+2, CLEAN+1!, INI+5*
LRPARAM	CLEAN+1!
LRPF	CLEAN+1!, INI+1*, INI+2, INI+6, INI+8
LRPFN	CLEAN+1!, INI+1*
LRPRH	OERR+6, H+2, CLEAN+1!, INI+5*
LRQ	OERR+3, H, CLEAN+1!
LRQ(1	H
LRS	CLEAN+1!, INI+1, INI+6
LRS(1	INI+1, INI+6
LRSF	CLEAN+1!
LRSS	SET+3, CLEAN+1!, INI+5
LRSVC	CLEAN+1!, INI+1, INI+6
LRU	CLEAN+1!
LRWHO	CLEAN+1!
>> M	N+1*, N+2
N	CLEAN+1!
>> OREND	SET+2, SET+3
P	CLEAN+1!
R	CLEAN+1!
SEX	CLEAN+1!, INI+2*
SSN	OERR+6, H+2, CLEAN+1!, INI+2*
X	OERR+7, OERR+9, N+1, N+2, N+3, H, SET+1, CLEAN+1!, INI+2, INI+4 , INI+5, INI+7
X(1	N+1*
X(10	N+1*, N+2
X(7	N+1*, N+2
>> X1	INI+7*
>> X2	INI+7*
Y	OERR+9, N+3, H, SET+2, CLEAN+1!, INI+2, INI+7, INI+8

Customize PDF page

Package: Lab Service

Routine: LRBLPD1

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: