Routine: LRBLJC

Information

LRBLJC ; IHS/DIR/FJE - COMPONENT DISPOSITION LIST 09:10 ; [ 2/18/93 ]

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Lab Service	3	HLP^LRBLJB (B,D,L,S,SSN,V)^LRU (BEG,END)^LRUTL
VA Fileman	3	^%DT ^%DTC ^DIC

Entry Points

Name	Comments	DBIA/ICR reference
A
B
END
D
F
H2
H
H1	;D H W !,LRP," ",SSN Q
ABO
Y
S
QUE
T
W	;D:$Y>(IOSL-6) H W !!,LRP," ",SSN
ASK
OUT

External References

Name	Field # of Occurrence
^%DT	H
^%DTC	F, Y
^DIC	LRBLJC+5
HLP^LRBLJB	ASK
B^LRU	ASK+1
D^LRU	H
L^LRU	QUE
S^LRU	QUE
SSN^LRU	QUE+5
V^LRU	END
BEG^LRUTL	ASK+1
END^LRUTL	OUT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?20,"COMPONENT DISPOSITION BY DATE UNIT RECEIVED" Line Location: LRBLJC+4
Function Call: WRITE	Prompt: ! Line Location: LRBLJC+5
Function Call: READ	Prompt: "Select ABO Group: " Formatting: ! Timeout: DTIME Variable: X Line Location: ABO+0
Function Call: WRITE	Prompt: $C(7)," Enter A, B, AB or O" Line Location: ABO+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"Select (T)ransfusions or (A)ll other dispositions: " Line Location: ASK+0
Function Call: WRITE	Prompt: !?11,LRD Line Location: D+0
Function Call: WRITE	Prompt: !?45,LRC Line Location: F+0
Function Call: WRITE	Prompt: ?65,$J(X,5) Line Location: F+0
Function Call: WRITE	Prompt: ;D:$Y>(IOSL-6) Line Location: W+0
Function Call: WRITE	Prompt: !!,LRP," ",SSN Line Location: W+0
Function Call: WRITE	Prompt: !!,LRP," ",HRCN Line Location: W+1
Function Call: WRITE	Prompt: !?11,$S(LRW="T":$P(^LRD(65,LRI,6),"^",3),1:LRX),?45,LRE,?65,$J(X,5) Line Location: Y+1
Function Call: WRITE	Prompt: @IOF,Y," ",LRQ(1),?(IOM-10),"Pg: ",LRQ,!,LRM(1),?45,"ABO Group: ",LRABO Line Location: H+0
Function Call: WRITE	Prompt: !,$S(LRW="T":"Transfusions",1:"")," (Units received from ",LRSTR," to ",LRLST,")",!?11,$S(LRW="T":"Treating Specialty",1:"Disposition"),?45,"Unit ID",?60,"Days in inventory",!,LR("%") Line Location: H+1
Function Call: WRITE	Prompt: !,LRP," ",SSN Line Location: H1+0
Function Call: WRITE	Prompt: !,LRP," ",HRCN Line Location: H1+1
Function Call: WRITE	Prompt: !,LRE Line Location: H2+0
Routine Call	DIC Line Location: LRBLJC+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(65	QUE
^DIC - [#1]	QUE+3
^LR - [#63]	QUE+3, QUE+5
^LRD(65 - [#65]	QUE+1, F, Y, Y+1, B!, B+1, T, S
^TMP($J	QUE!, QUE+3, QUE+5, D, F, W+2, S

Label References

Name	Line Occurrences
@(	B+1
ABO	ABO
ASK	ASK
B	QUE+1
D	QUE+2
END	LRBLJC+4, LRBLJC+5, ABO, ASK, ASK+1, OUT
F	D
H	QUE, D, W+1, H1+1, H2
H1	Y
H2	F
OUT	D+1
S	A
W	QUE+5
Y	W+2

Naked Globals

Name	Field # of Occurrence
^(	QUE+5
^(0	F, Y
^(4	B+1
^(6	T

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	H*
>> A	QUE+3*
>> DFN	QUE+5*
DIC	LRBLJC+5*!
DIC("A"	LRBLJC+5*
DIC(0	LRBLJC+5*
DTIME	ABO, ASK
>> HRCN	W+1, H1+1
IO	QUE
IOF	H
IOM	H
IOSL	D, F, W+1, Y
>> LR("%"	H+1
>> LRA	QUE+1, QUE+5, F*, B
>> LRABO	ABO+1*, B+1, H
>> LRC	F*
>> LRD	D*
>> LRDFN	QUE+5*, W+2
>> LRDPF	QUE+5*
>> LRE	D, F, W+2, Y+1, H2
>> LRF	D, W+2
>> LRI	QUE+1, F, W+2*, Y, Y+1, B, B+1, T, S
>> LRLDT	QUE*, QUE+1
>> LRLST	H+1
>> LRM	LRBLJC+5*, B+1
>> LRM(1	LRBLJC+5*, H
>> LRP	QUE+5*, W+1, H1+1
>> LRQ	H*
>> LRQ(1	H
>> LRS	QUE*, D, Y
>> LRSDT	QUE*, QUE+1
>> LRSTR	H+1
>> LRW	ASK+1*, QUE, QUE+2, Y, Y+1, B+1, H+1
>> LRX	Y*, Y+1
>> LRY	B+1*, A
>> POP	ASK+1
>> SSN	QUE+5*
U	LRBLJC+5, ABO, ASK, QUE, QUE+5
>> X	ABO, ABO+1, ASK, ASK+1, QUE+3, D, F, Y, Y+1, B+1* , T, S, A, H*
>> X1	F, Y
>> X2	F, Y
>> Y	LRBLJC+5, ASK+1, QUE+3*, H
>> Z	S*
>> ZTRTN	ASK+1*
>> ZTSK	ASK+1

Customize PDF page

Package: Lab Service

Routine: LRBLJC

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: