Routine: LRBLPC

Package	Total	Call Graph
Lab Service	4	(,SET)^LRBLPC1 ^LRDPA (B,D,F,L,M,S,V,WAIT)^LRU (,BEG,END)^LRUTL

Package

Total

Call Graph

Lab Service

(,SET)^LRBLPC1 ^LRDPA (B,D,F,L,M,S,V,WAIT)^LRU (,BEG,END)^LRUTL

Package	Total	Caller Graph
Lab Service	2	LRBLPC1 LRBLPCH

Package

Total

Caller Graph

Lab Service

LRBLPC1 LRBLPCH

Name	Field # of Occurrence
^LRBLPC1	W+2
SET^LRBLPC1	LRBLPC+12, LRBLPC+13
^LRDPA	LRBLPC+11
B^LRU	LRBLPC+12
D^LRU	W
F^LRU	H+1
L^LRU	QUE
M^LRU	H
S^LRU	QUE
V^LRU	LRBLPC+4, END
WAIT^LRU	QUE
^LRUTL	LRBLPC+6
BEG^LRUTL	LRBLPC+13
END^LRUTL	QUE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?14,"Print transfusions & hematology data for a patient" Line Location: LRBLPC+4
Function Call: WRITE	Prompt: $C(7),!,"BLOOD or PERIPHERAL BLOOD must be an entry in TOPOGRAPHY file (#61)",! Line Location: LRBLPC+5
Function Call: WRITE	Prompt: $C(7),!!,"Must have tests to print entered in the",!,"'Tests for inclusion in transfusion report option' in",!,"Blood bank supervisor menu",! Line Location: LRBLPC+7
Function Call: WRITE	Prompt: !,"Choice: ",LRA Line Location: LRBLPC+11
Function Call: WRITE	Prompt: !,T Line Location: P+1
Function Call: WRITE	Prompt: ?15,$E($P(^LAB(66,+Q,0),"^"),1,25),$S($P(Q,"^",6):"("_$P(Q,"^",6)_")",1:"") Condition for execution: Q Line Location: P+1
Function Call: WRITE	Prompt: !?32 Condition for execution: $X>(IOM-9) Line Location: P+3
Function Call: WRITE	Prompt: ?32+(8*X(1)) Line Location: P+3
Function Call: WRITE	Prompt: $J(^(B),5) Line Location: P+3
Function Call: WRITE	Prompt: !,"TRANSFUSION/HEMATOLOGY RESULTS",!,W(2),?31,W(10),?45,"DOB: ",W(4),!,"Location:",?12,W(5),!,"Mo/Da/Yr TIME",?15,"Blood component" Line Location: H+1
Function Call: WRITE	Prompt: !?32 Condition for execution: $X>(IOM-8) Line Location: H+2
Function Call: WRITE	Prompt: ?32+(8*X(1)),$P(LRT(X),"^",7) Line Location: H+2
Function Call: WRITE	Prompt: !,LR("%") Line Location: H+3
Function Call: WRITE	Prompt: $C(7),!!?10,"Cannot use this option until your last report is completed.",!,"If the report was queued and never printed it must be removed from the" Line Location: OUT+0
Function Call: WRITE	Prompt: !,"list of queued reports (see your LIM). Also have your blood bank supervisor",!,"delete your patient list for transfusion & hematology data." Line Location: OUT+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	G+2
^LAB(60 - [#60]	S
^LAB(61 - [#61]	LRBLPC+5, S+1
^LAB(66 - [#66]	P+1
^LR - [#63]	A, A+1
^LRO(69.2 - [#69.2]	LRBLPC+6, LRBLPC+8, LRBLPC+9, LRBLPC+10!, LRBLPC+11, QUE+1, QUE+2!, WRT
^TMP($J	QUE!, A, A+1, W+1, P+1, P+2, P+3

Name	Line Occurrences
A	QUE+1
END	LRBLPC+5, LRBLPC+6, LRBLPC+7, LRBLPC+12, LRBLPC+13, QUE+2, OUT+1
G	LRBLPC+11
H	W, P
OUT	LRBLPC+9
P	W+1
S	LRBLPC+6
T	W+1
W	WRT
WRT	QUE+2

Name	Field # of Occurrence
^(	LRBLPC+6, LRBLPC+8, LRBLPC+11, A, A+1*, W+1, P+1, P+3, S, G+2
^(0	LRBLPC+8, LRBLPC+11, S, G+2
^(1	S

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	LRBLPC+6, A, A+1, WRT, W+1*, P+1, P+2, P+3, S+1
>> B	LRBLPC+6, LRBLPC+7, A+1, P+3*
>> DFN	W*, W+2, G+2
DIC	LRBLPC+11!
>> DPF	G
DT	LRBLPC+10
DUZ	LRBLPC+8, LRBLPC+9, LRBLPC+10, LRBLPC+11, QUE+1, QUE+2, WRT
DUZ(2	G+2
IO	QUE
IOF	QUE+2
IOM	P+3, H+2
IOSL	P
IOST	QUE, QUE+2, H
>> LR("%"	H+3
>> LR("F"	W*, H
>> LR("Q"	WRT, W, W+1, P, H
>> LRA	LRBLPC+11*, LRBLPC+12
>> LRAA	LRBLPC+6, LRBLPC+8, LRBLPC+9, LRBLPC+10, LRBLPC+11, QUE+1, QUE+2, WRT
>> LRDFN	LRBLPC+11, QUE+1, A, A+1, WRT, W+1, P+1, P+2, P+3
LRDPAF	LRBLPC+6!
>> LRDPF	G*
>> LRLDT	LRBLPC+13*, A, A+1
>> LRPF	G*, G+2
>> LRS	LRBLPC+5*, LRBLPC+6
>> LRS(	A+1, S+1*
>> LRSDT	LRBLPC+13*, A, A+1
>> LRT(	A+1, P+3, S+1*, H+2
>> LRT(0	LRBLPC+7*
>> LRV(	A+1, S+1*
>> N	WRT*
>> POP	LRBLPC+13
>> Q	P+1*
>> T	W+1, P+1, T
U	G+2
>> W	LRBLPC+6, WRT, W, S, S+1
>> W(10	W*, H+1
>> W(2	W*, H+1
>> W(4	W*, H+1
>> W(5	W*, H+1
>> X	LRBLPC+6, LRBLPC+8, LRBLPC+11, A, A+1, S, S+1, H+2*
>> X(1	P+3, S, S+1, H+2*
>> Y	LRBLPC+6, LRBLPC+12, W, S, S+1, G+2*
>> Y(0	LRBLPC+11, G+2*
>> Z	A+1, S, S+1
>> ZTRTN	LRBLPC+13*
>> ZTSK	LRBLPC+13

Customize PDF page

Package: Lab Service

Routine: LRBLPC

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: