Routine: LRBLPD

Package	Total	Call Graph
Lab Service	3	(B,D,F,L,M,S,SSN,V,YN)^LRU (,EN,R)^LRUL (,BEG,END)^LRUTL
VA Fileman	2	^DIWP ^DIWW

Package

Total

Call Graph

Lab Service

(B,D,F,L,M,S,SSN,V,YN)^LRU (,EN,R)^LRUL (,BEG,END)^LRUTL

VA Fileman

^DIWP ^DIWW

Package	Total	Caller Graph
Lab Service	1	LRBLQDR

Package

Total

Caller Graph

Lab Service

LRBLQDR

External References

Name	Field # of Occurrence
^DIWP	LOOP+5
^DIWW	LOOP+6
B^LRU	LRBLPD+9
D^LRU	N
F^LRU	H+2
L^LRU	QUE
M^LRU	H
S^LRU	QUE
SSN^LRU	LOOP+1
V^LRU	END
YN^LRU	LRBLPD+7, LRBLPD+8
^LRUL	LRBLPD+5
EN^LRUL	QUE+3
R^LRUL	LRBLPD+5, LRBLPD+10
^LRUTL	LRBLPD+4
BEG^LRUTL	LRBLPD+10
END^LRUTL	QUE+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"MUST BE BLOOD BANK" Line Location: LRBLPD+4
Function Call: WRITE	Prompt: !,"List all blood components " Line Location: LRBLPD+7
Function Call: WRITE	Prompt: !,"List only total number of units for each component " Line Location: LRBLPD+8
Function Call: WRITE	Prompt: ! Line Location: LOOP+3
Function Call: WRITE	Prompt: !,"Total ",$S($D(LRF(A)):LRF(A),1:"?"),": ",LRT Condition for execution: LRT Line Location: LOOP+3
Function Call: WRITE	Prompt: " on record for specified period.",! Line Location: LOOP+4
Function Call: WRITE	Prompt: ! Line Location: LOOP+6
Function Call: WRITE	Prompt: ! Line Location: LOOP+6
Function Call: WRITE	Prompt: ! Condition for execution: B Line Location: LOOP+6
Function Call: WRITE	Prompt: ?21,$P(^LAB(61.3,A,0),"^") Line Location: LOOP+6
Function Call: WRITE	Prompt: !?13,$J(B,2),?18,$P(LRG(B),"^",2) Line Location: ASK+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASK+1
Function Call: WRITE	Prompt: $C(7),!!,"Select a NUMBER from 1 to ",A Line Location: ASK+1
Function Call: WRITE	Prompt: ?18,$P(LRG(X),"^",2) Line Location: ASK+2
Function Call: WRITE	Prompt: !,$P(X,"^",4),?18,$E($P(M,"^"),1,30) Line Location: O+1
Function Call: WRITE	Prompt: ?45,"(",X(7),"/",X(10),")" Line Location: O+1
Function Call: WRITE	Prompt: ?54,$P(X,"^",6)_" "_$P(X,"^",7),?60,Y Line Location: O+2
Function Call: WRITE	Prompt: !?6,^(E,0) Line Location: O+3
Function Call: WRITE	Prompt: !,"TRANSFUSION SERVICE/BLOOD BANK REPORT from ",LRSTR," to ",LRLST,!,"PATIENT: ",LRP," ",SSN," ",$J(LRPABO,2)," ",LRPRH Line Location: H+1
Function Call: WRITE	Prompt: !,"TRANSFUSION SERVICE/BLOOD BANK REPORT from ",LRSTR," to ",LRLST,!,"PATIENT: ",LRP," ",HRCN," ",$J(LRPABO,2)," ",LRPRH Line Location: H+2
Function Call: WRITE	Prompt: !,"Components Transfused" Condition for execution: LRJ Line Location: H+3
Function Call: WRITE	Prompt: !,LR("%") Line Location: H+3

Name	Line Occurrences (* Changed, ! Killed)
^DD(66	LRBLPD+6
^LAB(61.3 - [#61.3]	LOOP+6
^LAB(66 - [#66]	SET, O
^LR - [#63]	LOOP+1, LOOP+2, LOOP+5, LOOP+6, SET, O+3
^LRO(69.2 - [#69.2]	LRBLPD+5, QUE+2, LOOP+1
^TMP($J	LOOP+1!, LOOP+3, LOOP+5!, SET+1*, N

Name	Line Occurrences
ASK	LRBLPD+7, ASK+1
END	LRBLPD+4, LRBLPD+5, LRBLPD+7, LRBLPD+8, LRBLPD+9, LRBLPD+10, QUE+3
H	LOOP+1, LOOP+3, LOOP+5, LOOP+6, N, O+3
LOOP	QUE+2
N	LOOP+3
O	N
SET	LOOP+2

Name	Field # of Occurrence
^(	LOOP+5, N, O+3
^(0	SET, O

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LRBLPD+7, LRBLPD+8
>> A	LRBLPD+6, LOOP+3, LOOP+5, LOOP+6, ASK*, ASK+1, N
>> B	LRBLPD+6, LOOP+2, LOOP+3, LOOP+4, LOOP+5, LOOP+6, SET+1, ASK
>> C	LRBLPD+6, LOOP+6, N*
>> DFN	LOOP+1*
DIC	LRBLPD+10!
DIE	LRBLPD+10!
>> DIWF	QUE+1*
>> DIWL	QUE+1*
>> DIWR	QUE+1*
DR	LRBLPD+10!
DTIME	ASK+1
DUZ	LRBLPD+5, QUE+2, LOOP+1
>> E	O+3*
>> F	O+3*
>> HRCN	H+2
IO	QUE
IOM	QUE+1
IOSL	LOOP+3, LOOP+5, LOOP+6, N, O+3
IOST	H
>> LR("%"	H+3
>> LR("F"	LOOP+1*, H
>> LR("Q"	QUE+2, LOOP+3, LOOP+4, LOOP+5, LOOP+6, N, O+3, H
>> LRAA	LRBLPD+5, QUE+2, LOOP+1
>> LRC(	QUE+1*, LOOP+6
>> LRC(1	QUE+1*
>> LRDFN	QUE+2*, LOOP+1, LOOP+2, LOOP+5, LOOP+6, SET, O+3
>> LRDPF	LOOP+1*
>> LRE	LRBLPD+7*, LOOP+4, SET
>> LRF	LRBLPD+7, LOOP+4, SET, ASK, ASK+2
>> LRF(	LRBLPD+6*, LOOP+3, LOOP+4
>> LRF(1	LRBLPD+6*
>> LRG(	LRBLPD+6*, ASK, ASK+2
>> LRG(1	LRBLPD+6*
>> LRI	LOOP+2, SET, SET+1, N, O+3
>> LRJ	LRBLPD+8*, O+1, H+3
>> LRLDT	LRBLPD+9*, LOOP+2
>> LRLST	H+2
>> LRP	QUE+2*, H+2
>> LRP(1	QUE+2*
>> LRPABO	LOOP+1*, H+2
>> LRPRH	LOOP+1*, H+2
>> LRQ	LRBLPD+5, LOOP+1
>> LRSDT	LRBLPD+9*, LOOP+2
>> LRSS	LRBLPD+4
>> LRSTR	H+2
>> LRT	LOOP+3, O
>> LRX	LOOP+5*
>> M	O*, O+1
>> POP	LRBLPD+10
>> SSN	LOOP+1*
U	LRBLPD+6, LOOP+1, ASK+1, N, O
>> X	LRBLPD+4, LRBLPD+6, LOOP+1, LOOP+5, SET, SET+1, ASK+1, ASK+2, N*, O , O+1, O+2
>> X(1	O*
>> X(10	O*, O+1
>> X(7	O*, O+1
>> Y	LRBLPD+4, LRBLPD+9, SET, N, O+2
>> Z	SET*, SET+1
>> ZTRTN	LRBLPD+10*
>> ZTSK	LRBLPD+10

Customize PDF page

Package: Lab Service

Routine: LRBLPD

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
SET
END
H
O
N
QUE
ASK
LOOP	;K ^TMP($J) S LRQ=0,SSN=$P(^LRO(69.2,LRAA,7,DUZ,1,LRDFN,0),"^",10),X=^LR(LRDFN,0),LRPABO=$P(X,"^",5),LRPRH=$P(X,"^",6),LRDPF=$P(X,U,2) D H S LR("F")=1