Routine: LRBLAA

Package	Total	Call Graph
Lab Service	4	^LRBLAA1 CK^LRBLPUS (B,DT,F,L,M,S,SSN,V,YN)^LRU (BEG,END)^LRUTL

Package	Total	Caller Graph
Lab Service	2	LRBLAA LRBLAA1

Entry Points

External References

Name	Field # of Occurrence
^LRBLAA1	QUE+2
CK^LRBLPUS	LRBLAA+3
B^LRU	LRBLAA+5
DT^LRU	W+2
F^LRU	H+1
L^LRU	QUE
M^LRU	H
S^LRU	QUE
SSN^LRU	W+1
V^LRU	END
YN^LRU	LRBLAA+6
BEG^LRUTL	LRBLAA+7
END^LRUTL	QUE+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"Crossmatch:Transfusion Report by Treating Specialty and Physician",! Line Location: LRBLAA+4
Function Call: WRITE	Prompt: !!,"Print only summary of crossmatches and transfusions " Line Location: LRBLAA+6
Function Call: WRITE	Prompt: ! Line Location: LRBLAA+7
Function Call: WRITE	Prompt: !!,"ALL TREATING SPECIALTIES",?32,"Total Xm'd:",?43,$J(LRL,4),?52,"Tx'd:",?55,$J(LRM,4),?65,"C/T: " Line Location: QUE+1
Function Call: WRITE	Prompt: $S(LRM:$J(LRL/LRM,5,3),1:"NA") Line Location: QUE+1
Function Call: WRITE	Prompt: !!!,A,?32,"Units Xm'd:",?43,$J(LRJ,4),?52,"Tx'd:",?55,$J(LRT,4),?65,"C/T: " Line Location: M+1
Function Call: WRITE	Prompt: $S(LRT:$J(LRJ/LRT,5,3),1:"NA") Line Location: M+1
Function Call: WRITE	Prompt: !!,B,?32,"Units Xm'd:",?43,$J(LRK,4),?52,"Tx'd:",?55,$J(LRD,4),?65,"C/T: " Line Location: P+1
Function Call: WRITE	Prompt: $S(LRD:$J(LRK/LRD,5,3),1:"NA") Line Location: P+1
Function Call: WRITE	Prompt: ;I Line Location: W+0
Function Call: WRITE	Prompt: !,LRP,?32,SSN Line Location: W+0
Function Call: WRITE	Prompt: !,LRP,?32,HRCN Line Location: W+1
Function Call: WRITE	Prompt: !,LRY,?19,$P(LRE,"^",4),?20,$P(LRE,"^",3),?35,$P(LRE,"^",2),?38,X Condition for execution: LRF Line Location: V+0
Function Call: WRITE	Prompt: ?60,$E($P($G(^DIC(4,+$P($G(^LRD(65,G,0)),U,16),0)),U),1,19) Line Location: V+0
Function Call: WRITE	Prompt: !,LRO(68)," CROSSMATCH:TRANSFUSIONS (from: ",LRSTR," to ",LRLST,")" Line Location: H+1
Function Call: WRITE	Prompt: !,LR("%") Line Location: H+4
Function Call: WRITE	Prompt: !?20,"TREATING SPECIALTY: ",A Line Location: H1+0
Function Call: WRITE	Prompt: !?29,"PHYSICIAN: ",B Line Location: H2+0
Function Call: WRITE	Prompt: !,LRP,?32,SSN,?45,"(Cont'd from pg ",LRQ-1,")" Line Location: H3+0
Function Call: WRITE	Prompt: !,LRP,?32,HRCN,?45,"(Cont'd from pg ",LRQ-1,")" Line Location: H3+1
Function Call: WRITE	Prompt: !,"This report includes the following administrative categories:",!,"WHOLE BLOOD, RBC, FROZEN RBC, DEGLYC RBC, LEUCODEPLETED RBC, and WASHED RBC." Line Location: A+0
Function Call: WRITE	Prompt: !!,"The following abbreviations are used to indicate crossmatch results:",!,"C=COMPATIBLE",!,"CD=COMPATIBLE, DON'T TRANSFUSE",!,"CF=COMPATIBLE, FURTHER STUDY NEEDED",!,"I=INCOMPATIBLE, UNSAFE TO TRANSFUSE" Line Location: B+0
Function Call: WRITE	Prompt: !,"IG=INCOMPATIBLE, GIVE WITH BLOOD BANK DIRECTOR APPROVAL",!,"CD, CF, and I are not included in crossmatch-transfusion calculations.",!,LR("%") Line Location: B+1

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	W+1
^DIC(4 - [#4]	V
^LAB(66 - [#66]	SET
^LAB(69.9 - [#69.9]	QUE
^LR - [#63]	W+1
^LRD(65 - [#65]	C, V, SET
^TMP($J	QUE!, C+1, M, M+1, P, P+1, W+2, U, SET+1*

Name	Field # of Occurrence
^(	U
^(8	SET

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LRBLAA+6*
>> A	C, C+1, M, M+1, P, P+1, W+2, U, H1
>> A(1	C+1*
>> B	C, M, P, P+1, W+2, U, SET, H2
>> B(1	M*
>> C	SET*
>> DFN	W+1*
DUZ(2	QUE
>> F	W+2*, U
>> G	U*, V
>> HRCN	W+1, H3+1
>> I	C*, SET, SET+1
IO	QUE
IOF	QUE+3
IOSL	M, M+1, P, U
IOST	QUE+3, H
>> LR("%"	H+4, B+1
>> LR("F"	QUE*, H
>> LR("M"	QUE*, V
>> LR("Q"	QUE+1, QUE+2, C+1, M, M+1, P, P+1, W+2, U, H , H1, H2, H3+1
>> LRD	M, P+1, V+1
>> LRDFN	P*, W+1, W+2, U
>> LRDPF	W+1*
>> LRE	U*, V
>> LRF	LRBLAA+6*, QUE, QUE+1, QUE+2, C+1, M, M+1, P, P+1, W+1 , U, V
>> LRJ	C+1, M+1, V+1
>> LRK	M, P+1, V+1
>> LRL	QUE, QUE+1, V+1
>> LRLDT	LRBLAA+5*, C
>> LRLST	H+1
>> LRM	QUE, QUE+1, V+1
>> LRO(68	H+1
>> LRP	W+1*, H3+1
>> LRQ	H3+1
>> LRQ(2	QUE, QUE+2, H+3
>> LRSDT	LRBLAA+5*, C
>> LRSTR	H+1
>> LRT	C+1, M+1, V+1
>> LRY	W+2*, V
>> M	SET*, SET+1
>> P	C*, SET, SET+1
>> POP	LRBLAA+7
>> SSN	W+1*
>> T	SET*, SET+1
U	QUE, V
>> V	SET*, SET+1
>> X	W+1, U, V, V+1, SET*, SET+1
>> Y	LRBLAA+3, LRBLAA+5, W+1, W+2, U, V+1, SET, SET+1
>> Z	SET*, SET+1
>> ZTRTN	LRBLAA+7*
>> ZTSK	LRBLAA+7

Customize PDF page

Package: Lab Service

Routine: LRBLAA

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:

Name	Comments	DBIA/ICR reference
A
C
SET
END
H3	;D H2 Q:LR("Q") W !,LRP,?32,SSN,?45,"(Cont'd from pg ",LRQ-1,")" Q
H2
H
H1
M
P
B
QUE
W	;I LRF S X=^LR(LRDFN,0),Y=$P(X,"^",3),(LRDPF,X)=$P(X,"^",2),X=^DIC(X,0,"GL"),X=@(X_Y_",0)"),LRP=$P(X,"^"),SSN=$P(X,"^",9) D SSN^LRU W !,LRP,?32,SSN
V
U

Name	Line Occurrences
A	QUE+2, B
B	QUE
C	QUE+1
END	LRBLAA+3, LRBLAA+5, LRBLAA+6, LRBLAA+7, QUE+3
H	QUE, QUE+2, C+1, M+1, H1
H1	M, H2
H2	P, H3+1
H3	U
M	C+1
P	M
SET	C
U	W+2
V	U
W	P