Routine: LRBLJPP

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

Package

Total

Call Graph

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

C^%DTC ^DIC

Package	Total	Caller Graph
Lab Service	1	LRBLJPP1

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Platelet transfusions from one date received to another." Line Location: LRBLJPP+4
Function Call: WRITE	Prompt: $C(7),!,"BLOOD must be an entry in TOPOGRAPHY file (#61)",! Line Location: LRBLJPP+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: LRBLJPP+6
Function Call: WRITE	Prompt: $C(7),!,"No tests selected." Line Location: LRBLJPP+8
Function Call: WRITE	Prompt: Line Location: W+0
Function Call: WRITE	Prompt: !,T Line Location: P+0
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+0
Function Call: WRITE	Prompt: !?32 Condition for execution: $X>(IOM-9) Line Location: P+2
Function Call: WRITE	Prompt: ?32+(8*X(1)) Line Location: P+2
Function Call: WRITE	Prompt: $J(^(B),5) Line Location: P+2
Function Call: WRITE	Prompt: !,"Mo/Da TIME",?12,"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: !!,LRP,?31,SSN,?45,"DOB: ",DOB Line Location: H1+0
Function Call: WRITE	Prompt: !!,LRP,?31,HRCN,?45,"DOB: ",DOB Line Location: H1+1
Routine Call	DIC Line Location: LRBLJPP+7

FileNo	Call Tags
^LRO(69.2 - [#69.2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	WRT
^LAB(60 - [#60]	S
^LAB(61 - [#61]	LRBLJPP+5, S+1
^LAB(66 - [#66]	QUE+1, P
^LR - [#63]	A, B, WRT, WRT+2, W+2
^LRD(65 - [#65]	QUE+1, A
^LRO(69.2 - [#69.2]	LRBLJPP+6
^TMP($J	QUE!, QUE+3, A, B, WRT*, WRT+2, W+1, P, P+1, P+2

Name	Line Occurrences
A	QUE+1
B	QUE+3
END	LRBLJPP+5, LRBLJPP+6, LRBLJPP+8, LRBLJPP+9, QUE+4
H	QUE, W+1, H1+1
H1	P, P+2
P	W+1
S	LRBLJPP+7
T	W+1
W	WRT+2
WRT	QUE+4

Name	Field # of Occurrence
>> A	B, WRT, W+1*, P, P+1, P+2
>> B	QUE+1, B, P+2*
>> DFN	WRT+2, W+2
>> DIC	LRBLJPP+7*
>> DIC(0	LRBLJPP+7*
>> DOB	WRT+2*, W+1, H1+1
>> HRCN	W+1, H1+1
IO	QUE, QUE+4
IO(0	QUE+4
IOF	QUE+4
IOM	P+2, H+2
IOSL	W+1, P, P+2
IOST	QUE, H
>> LR("%"	H+3
>> LR("F"	QUE*, H
>> LR("Q"	WRT+2, W+1, P, P+2, H, H1+1
>> LRA	LRBLJPP+7, LRBLJPP+8, LRBLJPP+9, WRT+2, S+1
>> LRAA	LRBLJPP+6
>> LRB	LRBLJPP+9, QUE+1
>> LRDFN	QUE+3, A, B, WRT+2*, W+1, W+2, P, P+1, P+2
>> LRDPF	WRT+2*
>> LRE	LRBLJPP+9*, QUE+1
>> LRI	QUE+1*, A
>> LRLDT	LRBLJPP+9, QUE+2*, B
>> LRP	WRT+2*, W+1, H1+1
>> LRS	LRBLJPP+5*, LRBLJPP+6
>> LRS(	B, S+1*
>> LRSDT	LRBLJPP+9, QUE+2*, B
>> LRT(	S+1*, H+2
>> LRT(0	LRBLJPP+9*, B, P+2, H+2
>> LRV(	B, S+1*
>> LRX	WRT+2*
>> POP	LRBLJPP+9
>> Q	P*
>> SSN	WRT+2*
>> T	W+1, P, T
U	WRT+2
>> W	LRBLJPP+7*, S, S+1
>> X	LRBLJPP+5, QUE+2, A, B, WRT, W+2, S, S+1, H+2*
>> X(1	P+2, S, S+1, H+2*
>> X1	QUE+2*
>> X2	QUE+2*
>> Y	LRBLJPP+5, LRBLJPP+7, LRBLJPP+9, QUE+1, A, WRT, WRT+2*, S, S+1
>> Y(0	LRBLJPP+7
>> Z	B, S, S+1
>> ZTRTN	LRBLJPP+9*
>> ZTSK	LRBLJPP+9

Information

Name	Comments	DBIA/ICR reference
A
B
END
H
H1	;D H Q:LR("Q") W !!,LRP,?31,SSN,?45,"DOB: ",DOB Q
S
P
WRT
QUE
T
W	;D:$Y>(IOSL-6) H Q:LR("Q") W !!,LRP,?31,SSN,?45,"DOB: ",DOB F A=0:0 S A=$O(^TMP($J,LRDFN,A)) Q:'A!(LR("Q")) S T=+^(A,0) D T,P