Routine: LRBLJDP

Package	Total	Call Graph
Lab Service	3	B^LRBLU (DT,F,L,M,S,V)^LRU (,BEG,END)^LRUTL

Package

Total

Call Graph

Lab Service

B^LRBLU (DT,F,L,M,S,V)^LRU (,BEG,END)^LRUTL

Package	Total	Caller Graph
Lab Service	1	LRBLIDU

Package

Total

Caller Graph

Lab Service

LRBLIDU

Name	Field # of Occurrence
B^LRBLU	ASK+1
DT^LRU	T, W+1
F^LRU	HDR+1
L^LRU	QUE
M^LRU	HDR
S^LRU	QUE
V^LRU	END
^LRUTL	LRBLJDP+3
BEG^LRUTL	ASK+2
END^LRUTL	QUE+4

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "Select DISPOSITION: " Formatting: !! Timeout: DTIME Variable: X Line Location: ASK+0
Function Call: WRITE	Prompt: !!,LRC(1) Line Location: QUE+2
Function Call: WRITE	Prompt: !,$P(^LAB(66,LRL,0),"^"),?41,$J(LRM(LRL),5) Line Location: QUE+3
Function Call: WRITE	Prompt: ?30,$P(LRE,"^",2) Line Location: W+0
Function Call: WRITE	Prompt: ?30,$E($P(^LRD(65,LRI,4),"^",5),1,30) Condition for execution: LRD="S"!(LRD="R") Line Location: W+0
Function Call: WRITE	Prompt: ?61,$J($P(LRE,"^",7),2),$S(R="POS":"+",R="NEG":"-",1:"") Line Location: W+1
Function Call: WRITE	Prompt: ?65,Y Condition for execution: LRD'="S"&(LRD'="R") Line Location: W+1
Function Call: WRITE	Prompt: ?69,$P(LRE,"^",13) Condition for execution: LRD="S"!(LRD="R") Line Location: W+1
Function Call: WRITE	Prompt: !?3,LRF Line Location: W+3
Function Call: WRITE	Prompt: !,"BLOOD BANK ",LRAA(4) Line Location: HDR+1
Function Call: WRITE	Prompt: !,"UNIT DISPOSITION: ",LRD(1)," (from ",LRSTR," to ",LRLST,")" Line Location: HDR+2
Function Call: WRITE	Prompt: !,"UNIT ID",?15,"DISP DATE",?30,$S(LRD="MO":"MODIFY TO",LRD="S"!(LRD="R"):"SHIPPED TO",1:"SOURCE") Line Location: H+0
Function Call: WRITE	Prompt: ?65,"DATE RECEIVED" Condition for execution: LRD'="MO" ?58,"ABO/Rh" W:LRD'="S"&(LRD'="R")&(LRD'="MO") Line Location: H+1
Function Call: WRITE	Prompt: ?67,"UNIT ID" Condition for execution: LRD="MO" Line Location: H+1
Function Call: WRITE	Prompt: ?69,"INVOICE" Condition for execution: LRD="S"!(LRD="R") Line Location: H+1
Function Call: WRITE	Prompt: !,LR("%") Line Location: H+1
Function Call: WRITE	Prompt: !,"COMPONENT: ",LRC(1),! Line Location: H1+0
Function Call: WRITE	Prompt: !,LRA,?15,LRY," (Continued from pg ",LRQ-1,")",! Line Location: H2+0
Function Call: WRITE	Prompt: !!,"Select from:" Line Location: SEL+0
Function Call: WRITE	Prompt: !?3,X,?6,"for",?10,LR(X) Line Location: SEL+0

Name	Line Occurrences (* Changed, ! Killed)
^DD(65	LRBLJDP+3
^LAB(66 - [#66]	QUE+2, QUE+3, A
^LRD(65 - [#65]	QUE+1, T, W, W+2, W+3, S!, S+1
^TMP($J	QUE!, QUE+2, T, S+1*

Name	Line Occurrences
A	W+2
ASK	ASK
END	LRBLJDP+3, ASK, ASK+1, ASK+2, QUE+4
H	QUE, QUE+2, H1
H1	W, H2
H2	W+2, W+3
HDR	QUE+3, H
S	QUE+1
SEL	ASK
T	QUE+2
W	T

Name	Field # of Occurrence
^(	T, W+2, W+3

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	QUE+1, SEL
DTIME	ASK
DUZ(2	S+1
IO	QUE
IOSL	QUE+2, QUE+3, W, W+2, W+3
IOST	HDR
LR	LRBLJDP+3!
LR(	LRBLJDP+3*, ASK, ASK+1, SEL
LR("%"	H+1
LR("F"	QUE*, HDR
LR("Q"	QUE+2, QUE+3, T, W, W+2, W+3, HDR, H, H1, H2
LR("T"	LRBLJDP+4!
>> LRA	T*, W, H2
>> LRAA(4	HDR+1
>> LRB	T*
>> LRC	QUE+2*, T
>> LRC(1	QUE+2*, H1
>> LRD	ASK+1*, QUE+3, W, W+1, W+2, S+1, H, H+1
>> LRD(1	ASK+1*, HDR+2
>> LRE	T*, W, W+1
>> LRF	W+2, W+3, A
>> LRG	W+2*, A
>> LRI	QUE+1, T, W, W+2, W+3, S, S+1
>> LRL	QUE+3, W+2, W+3*
>> LRLDT	ASK+1*, QUE+1
>> LRLST	HDR+2
>> LRM	W+2*, A
>> LRM(	QUE+3, A*
>> LRO	QUE+1, T, S, S+1
>> LRQ	H2
>> LRSDT	ASK+1*, QUE+1
>> LRSTR	HDR+2
>> LRY	T*, W, H2
>> POP	ASK+2
>> R	W+1*
U	LRBLJDP+3, ASK
>> X	LRBLJDP+3, ASK, ASK+1, SEL*
>> Y	LRBLJDP+3, ASK+1, T, W+1, S+1
>> Z	LRBLJDP+3*
>> ZTRTN	ASK+2*
>> ZTSK	ASK+2

Customize PDF page

Package: Lab Service

Routine: LRBLJDP

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: