Routine: LRBLTA

Package	Total	Call Graph
Lab Service	3	^LRBLTA1 (B,DT,F,L,M,S,SSN,V,YN)^LRU (BEG,END)^LRUTL

Package	Total	Caller Graph
Lab Service	2	LRBLTA LRBLTA1

Entry Points

Name	Comments	DBIA/ICR reference
A
C	;S LRI=0 F S LRI=$O(^TMP($J,LRR,LRC,LRDFN,LRI)) Q:'LRI!(LR("Q")) S LRX=^(LRI) D:$Y>(IOSL-6) H2 Q:LR("Q") W !,SSN,?5,LRP,?36 S Y=+LRX D DT^LRU W Y,?67,$P(LRX,"^",2)
B
END
H2
H
H1
N	;S X=^LR(LRDFN,0),Y=$P(X,"^",3),X=$P(X,"^",2),X=^DIC(X,0,"GL"),X=@(X_Y_",0)"),LRP=$P(X,"^"),SSN=$E($P(X,"^",9),6,9) Q
S
QUE
OUT

External References

Name	Field # of Occurrence
^LRBLTA1	OUT
B^LRU	LRBLTA+4
DT^LRU	C+1
F^LRU	H+2
L^LRU	QUE+1
M^LRU	H
S^LRU	QUE+1
SSN^LRU	N+1
V^LRU	END
YN^LRU	LRBLTA+4
BEG^LRUTL	LRBLTA+5
END^LRUTL	OUT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"List patients " Line Location: LRBLTA+4
Function Call: WRITE	Prompt: ! Line Location: LRBLTA+4
Function Call: WRITE	Prompt: !!,LRR(1),?31,$J(^TMP($J,LRR),4) Line Location: QUE+3
Function Call: WRITE	Prompt: ! Line Location: QUE+4
Function Call: WRITE	Prompt: !,A,?5,"= ",^TMP($J,"B",A) Line Location: QUE+4
Function Call: WRITE	Prompt: !?41,LRE,?51,$J(^TMP($J,LRR,LRC),4) Line Location: A+0
Function Call: WRITE	Prompt: !,SSN,?5,LRP,?36 Line Location: C+0
Function Call: WRITE	Prompt: Y,?67,$P(LRX,"^",2) Line Location: C+0
Function Call: WRITE	Prompt: !,HRCN,?5,LRP,?36 Line Location: C+1
Function Call: WRITE	Prompt: Y,?67,$P(LRX,"^",2) Line Location: C+1
Function Call: WRITE	Prompt: !,"TRANSFUSION REACTION COUNTS FROM ",LRSTR," TO ",LRLST,!,"REACTION",?31,"COUNT",?41,"COMPONENT",?51,"SUBCOUNT" Line Location: H+1
Function Call: WRITE	Prompt: !,"SSN",?5,"Patient",?36,"Transfusion Date",?67,"Unit ID" Condition for execution: LRF Line Location: H+1
Function Call: WRITE	Prompt: !,LR("%") Line Location: H+1
Function Call: WRITE	Prompt: !,"TRANSFUSION REACTION COUNTS FROM ",LRSTR," TO ",LRLST,!,"REACTION",?31,"COUNT",?41,"COMPONENT",?51,"SUBCOUNT" Line Location: H+2
Function Call: WRITE	Prompt: !,"HRCN",?10,"Patient",?36,"Transfusion Date",?67,"Unit ID" Condition for execution: LRF Line Location: H+2
Function Call: WRITE	Prompt: !,LR("%") Line Location: H+2
Function Call: WRITE	Prompt: !,LRR(1) Line Location: H1+0
Function Call: WRITE	Prompt: ?41,LRE Line Location: H2+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	N+1
^LAB(65.4 - [#65.4]	QUE+3
^LAB(66 - [#66]	A
^LR - [#63]	S, N+1
^LR("AB"	QUE+2
^TMP($J	QUE!, QUE+3, QUE+4, S+1, S+2, A*, B, C+1

Label References

Name	Line Occurrences
A	QUE+3
B	A
C	B
END	LRBLTA+4, LRBLTA+5, OUT
H	QUE+1, QUE+3, QUE+4, H1
H1	A, H2
H2	C+1
N	B
OUT	QUE+4
S	QUE+2

Naked Globals

Name	Field # of Occurrence
^(	S+1, S+2, C+1
^(0	A

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LRBLTA+4*
>> A	QUE+4*
>> C	S*, S+2
>> DFN	N+1*
>> HRCN	C+1
IO	QUE
IOSL	QUE+3, QUE+4, A, C+1
IOST	H
>> LR("%"	H+2
>> LR("F"	QUE+1*, H
>> LR("Q"	QUE+3, QUE+4, OUT, A, B, C+1, H, H1, H2
>> LRC	A*, B, C+1
>> LRDFN	QUE+2, S, S+2, B, C+1, N+1
>> LRE	A*, H2
>> LRF	LRBLTA+4*, S+2, A, H+2
>> LRI	QUE+2, S, S+2, C+1
>> LRLDT	QUE*, QUE+2
>> LRLST	H+2
>> LRP	C+1, N+1*
>> LRR	QUE+2, QUE+3, S+1, S+2, A, B, C+1
>> LRR(1	QUE+3*, H1
>> LRSDT	QUE*, QUE+2
>> LRSTR	H+2
>> LRX	C+1*
>> POP	LRBLTA+5
>> SSN	N+1*
U	QUE+3, A
>> X	S, S+2, N+1
>> Y	LRBLTA+4, C+1, N+1
>> ZTRTN	LRBLTA+5*
>> ZTSK	LRBLTA+5

Customize PDF page

Package: Lab Service

Routine: LRBLTA

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: