Routine: LRBLTXA

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

Package

Total

Call Graph

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

C^%DTC

Package	Total	Caller Graph
Lab Service	2	LRBLPC1 LRBLTXA

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Search for possible transfusion related disorders" Line Location: LRBLTXA+4
Function Call: WRITE	Prompt: !,LR("%") Line Location: QUE+5
Function Call: WRITE	Prompt: !,A,?5,"= ",LR("D",A) Line Location: QUE+5
Function Call: WRITE	Prompt: ?(16+(X*8)),$J($P(^(+L(LR,X)),"^"),7) Line Location: M+3
Function Call: WRITE	Prompt: " ",Y,":",E(F,G) Line Location: A+1
Function Call: WRITE	Prompt: ?(16+(X*8)),$J(N(LR,X),7) Line Location: C+0
Function Call: WRITE	Prompt: !,"BLOOD BANK SEARCH FOR TRANSFUSION RELATED DISORDERS",!?24,"FROM ",LRSTR," TO ",LRLST,!,LR("%") Line Location: H+1
Function Call: WRITE	Prompt: !,LRP," SSN:",SSN," Loc: ",$P(LRP(1),"^",2) Line Location: H2+0
Function Call: WRITE	Prompt: !,LRP," HRCN:",HRCN," Loc: ",$P(LRP(1),"^",2) Line Location: H2+1

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	P
^LAB(60 - [#60]	QUE+1
^LAB(61 - [#61]	QUE, M+2
^LAB(66 - [#66]	A+1
^LR - [#63]	QUE+2, QUE+4, T, B, M+3, A, P
^LRO(69 - [#69]	QUE+2
^LRO(69.2 - [#69.2]	QUE+1
^TMP($J	QUE!, QUE+4, P+1*

Name	Field # of Occurrence
^(	QUE+1, QUE+4, T, B, M+3, A, P
^(0	QUE+1, QUE+4

Name	Field # of Occurrence
>> A	QUE+1, QUE+2, QUE+4, QUE+5
>> B	QUE+1, QUE+2, QUE+5, W, B, M+4*, P, P+1
>> C	QUE+1*
>> DFN	QUE+4, T+1, M, P*, P+1
E	A*, A+2!
E(	A*, A+1
>> F	A, A+1
>> G	A, A+1
>> HRCN	M+2, H1+1, H2+1
IO	QUE
IOSL	QUE+5, M, A+1
IOST	H
>> J	LRBLTXA+5, QUE+2, B, L, L+1, L+2
>> J(2	W, B, M
>> L	P*, P+1
>> L(	QUE+1*, W, B, M+3
>> LR	W*, B, M+3, C
>> LR("%"	QUE+5, T+2, H+1
>> LR("D"	QUE, QUE+5, A+1
>> LR("F"	QUE*, H
>> LR("Q"	QUE+4, QUE+5, T, W, M, A, A+1, H, H1+1, H2+1
>> LRAA	QUE+1
>> LRDFN	QUE+4*, T, B, M+3, A
>> LRDPF	QUE+4*
>> LRI	T*, B, M+3
>> LRJ	LRBLTXA+5*, T
>> LRLDT	LRBLTXA+5, QUE+2
>> LRLST	H+1
>> LRP	QUE+4*, T+1, M+2, H1+1, H2+1
>> LRP(1	QUE+4*, T+1, M, M+2, H1+1, H2+1
>> LRSDT	LRBLTXA+5*, T
>> LRSTR	H+1
>> LRT	LRBLTXA+5*, QUE+2, A
>> N(	QUE+1*, C
>> POP	LRBLTXA+6
>> SSN	QUE+4*
>> T	QUE+2, T, B, M+2
>> T(1	T*, M+2
U	QUE+4
>> W(1	T, T+1, T+2, M, M+2, H1+1
>> W(10	T+1*
>> W(2	T+1*
>> W(4	T+1, M, P*, P+1
>> W(5	T+1*
>> X	LRBLTXA+4, LRBLTXA+5, T, B, L, L+1, L+2, M+3, A, A+1 , C, P, P+1
>> X1	LRBLTXA+5*
>> X2	LRBLTXA+5*
>> Y	LRBLTXA+4, LRBLTXA+5, T, A+1, P*
>> Z(2	QUE*, M+2
>> Z(3	QUE*, M+2
>> Z(5	QUE*, M+2
>> ZTRTN	LRBLTXA+6*
>> ZTSK	LRBLTXA+6

Information

Name	Comments	DBIA/ICR reference
A
C
B
END
H2	;D H Q:LR("Q") W !,LRP," SSN:",SSN," Loc: ",$P(LRP(1),"^",2) Q
H
H1	;D H Q:LR("Q") W:W(1)>1 !,LRP," SSN:",SSN," Loc: ",$P(LRP(1),"^",2) D:W(1)>1 C Q
M
L
P
QUE
T
W