Routine: LRBLPTR

Package	Total	Call Graph
Lab Service	4	^LRBLPTR1 B^LRBLU (D,F,L,M,S,SSN,V,YN)^LRU (BEG,END)^LRUTL
VA Fileman	1	C^%DTC

Package

Total

Call Graph

Lab Service

^LRBLPTR1 B^LRBLU (D,F,L,M,S,SSN,V,YN)^LRU (BEG,END)^LRUTL

VA Fileman

C^%DTC

Package	Total	Caller Graph
Lab Service	1	LRBLITR

Package

Total

Caller Graph

Lab Service

LRBLITR

Entry Points

Name	Field # of Occurrence
C^%DTC	W+3
^LRBLPTR1	OUT
B^LRBLU	LRBLPTR+5
D^LRU	B
F^LRU	H+1
L^LRU	QUE
M^LRU	H
S^LRU	QUE
SSN^LRU	PT+1
V^LRU	END
YN^LRU	LRBLPTR+6
BEG^LRUTL	LRBLPTR+7
END^LRUTL	OUT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?30,"Transfusion data report" Line Location: LRBLPTR+4
Function Call: WRITE	Prompt: !!,"Also print transfusions with hematology results " Line Location: LRBLPTR+6
Function Call: WRITE	Prompt: Line Location: QUE+4
Function Call: WRITE	Prompt: !?2,$P(X,"^",2),?8,"=",$P(X,"^") Line Location: QUE+5
Function Call: WRITE	Prompt: ;D:$Y>(IOSL-6) Line Location: W+0
Function Call: WRITE	Prompt: !!,"Patient: ",LRP,?41,"SSN: ",SSN Line Location: W+0
Function Call: WRITE	Prompt: !!,"Patient: ",LRP,?41,"HRCN: ",HRCN Line Location: W+1
Function Call: WRITE	Prompt: !,$P(W,"^"),?13,C(1),?18,$P(W,"^",8),?23,$P(W,"^",9),?28,$P(W,"^",2),?43,$P(W,"^",4),?46,$P(W,"^",5),?52,$P(W,"^",6),?62,$P(W,"^",3),?77,$P(W,"^",7) Line Location: P+0
Function Call: WRITE	Prompt: D:$Y>(IOSL-6) Line Location: P+2
Function Call: WRITE	Prompt: !?2,W(1) Line Location: P+2
Function Call: WRITE	Prompt: !,Y,?21,LRR Line Location: B+0
Function Call: WRITE	Prompt: !,B(1) Line Location: A+0
Function Call: WRITE	Prompt: !,"TRANSFUSION DATA REPORT FROM ",LRSTR," TO ",LRLST Line Location: H+1
Function Call: WRITE	Prompt: !,"Unit ID",?13,"Comp",?19,"(#)",?23,"(ml)",?28,"Relocated",?43,"CK",?46,"By",?52,"Location",?62,"Transfused",?77,"RXN" Line Location: H+2
Function Call: WRITE	Prompt: !,LR("%") Line Location: H+3
Function Call: WRITE	Prompt: !!,"Patient: ",LRP,?41,"SSN: ",SSN Line Location: H1+0
Function Call: WRITE	Prompt: !!,"Patient: ",LRP,?41,"HRCN: ",HRCN Line Location: H1+1
Function Call: WRITE	Prompt: !,LRK,?21,LRR Line Location: H2+0
Function Call: WRITE	Prompt: !,"TRANSFUSION REACTIONS WITHOUT UNIT IDENTIFIED" Line Location: L+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	PT+1
^LAB(65.4 - [#65.4]	P+1, B
^LAB(66 - [#66]	QUE+5, W+2
^LR - [#63]	W+1, PT+1, B, A
^LRD(65 - [#65]	QUE+1, P+2, SET!, SET+1
^TMP("LRBL"	QUE!, W+3*
^TMP($J	QUE!, QUE+2, QUE+4, W+2, W1, SET+3, PT+1
^VA(200 - [#200]	SET+2

Name	Line Occurrences
A	B
B	W+1
D	SET+2
END	LRBLPTR+4, LRBLPTR+5, LRBLPTR+6, LRBLPTR+7, OUT
H	QUE, QUE+5, W+1, H1+1
H1	P, P+2, B, H2
H2	A
L	B, H2
OUT	QUE+5
P	W1
PT	QUE+2
SET	QUE+1
W	QUE+4
W1	W+2

Name	Field # of Occurrence
^(	QUE+4, W1, P+2, SET+1, B, A
^(0	QUE+1, P+1, SET+2
^(4	QUE+1
^(6	QUE+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LRBLPTR+6*
>> A	QUE+5, B, A
>> B	A*
>> B(1	A*
>> C	QUE+1, W+2, W1, SET+3, B*
>> C(1	W+2*, P
>> DFN	PT+1*
>> HRCN	QUE+4*, W+1, PT+1, H1+1
IO	QUE
IOSL	QUE+5, W+1, P, P+2, B, A
IOST	H
>> J	SET+2*, SET+3
>> L	SET+2*, SET+3
>> LR(	B*
>> LR("%"	QUE+5, H+3
>> LR("F"	QUE*, H
>> LR("Q"	QUE+4, QUE+5, OUT, W+1, W+2, W1, P, P+2, B, A , H, H1+1, H2
>> LRC(	QUE+5, W+2*
>> LRD	QUE+1, W+2, W1, W1+1, SET, SET+2, SET+3
>> LRDPF	PT+1*
>> LRE	W+1, W+2, W+3, W1+1
>> LRF	W+1, W+3, W1+1
>> LRG	LRBLPTR+5, LRBLPTR+6, OUT, W+3, W1+1
>> LRI	QUE+1, W1, P+2, SET, SET+1, SET+3
>> LRJ	W+2*
>> LRK	B*, H2
>> LRLDT	LRBLPTR+5*, QUE+1
>> LRLST	H+1
>> LRP	QUE+4, W+1, W+3, PT+1, H1+1
>> LRR	B*, H2
>> LRSDT	LRBLPTR+5*, QUE+1
>> LRSTR	H+1
>> P	QUE+2, QUE+4, W+1, W+2, W+3, W1, PT+1, B, A
>> POP	LRBLPTR+7
>> SSN	PT+1*
U	PT+1, B
>> W	W1, P, P+1, P+2
>> W(0	QUE+1*, SET+3
>> W(1	P+2*
>> W(3	SET+1*, SET+2
>> W(4	QUE+1*, SET, SET+3
>> W(6	QUE+1*, SET+3
>> X	QUE+5, W+3, SET+3, PT+1*
>> X1	W+3*
>> X2	W+3*
>> Y	LRBLPTR+5, SET+2, SET+3, PT+1, B, D
>> Y(1	SET+2*, SET+3
>> Y(2	SET+2*, SET+3
>> ZTRTN	LRBLPTR+7*
>> ZTSK	LRBLPTR+7

Customize PDF page

Package: Lab Service

Routine: LRBLPTR

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
A
SET
END
W	;D:$Y>(IOSL-6) H Q:LR("Q") S (LRE,LRF)="" W !!,"Patient: ",LRP,?41,"SSN: ",SSN D:$O(^LR(P,1.9,0)) B Q:LR("Q")
PT	;S X=^LR(P,0),Y=$P(X,"^",3),LRDPF=$P(X,U,2),X=^DIC(LRDPF,0,"GL"),Y=@(X_Y_",0)"),LRP=$P(Y,"^"),SSN=$P(Y,"^",9) D SSN^LRU S ^TMP($J,"B",LRP,P)=SSN Q
H2
H
H1	;D H Q:LR("Q") W !!,"Patient: ",LRP,?41,"SSN: ",SSN Q
L
D
P
B
QUE
W1
OUT