Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Source | Call Graph | Entry Points | External References | Interaction Calls | Global Variables Directly Accessed | Label References | Naked Globals | Local Variables | All

Print Page as PDF

Routine: LRBLJC

Package: Lab Service

Routine: LRBLJC

Information

LRBLJC ;AVAMC/REG - COMPONENT DISPOSITION LIST ;2/18/93 09:10

Source Information

Source file <LRBLJC.m>

Call Graph

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
ABO
ASK
QUE
OUT
D
F
W
Y
B
T
S
A
H
H1
H2
END

External References

Name	Field # of Occurrence
^%DT	H
^%DTC	F, Y
^DIC	LRBLJC+4
HLP^LRBLJB	ASK
B^LRU	ASK+1
D^LRU	H
L^LRU	QUE
S^LRU	QUE
SSN^LRU	QUE+4
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+3
Function Call: WRITE	Prompt: ! Line Location: LRBLJC+4
Function Call: READ	Formatting: ! Prompt: "Select ABO Group: " Variable: X Timeout: DTIME Line Location: ABO+0
Function Call: WRITE	Prompt: $C(7)," Enter A, B, AB or O" Line Location: ABO+0
Function Call: READ	Variable: X Timeout: DTIME 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: !?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: !,LRE Line Location: H2+0
Routine Call	DIC Line Location: LRBLJC+4

Global Variables Directly Accessed

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

Label References

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

Naked Globals

Name	Field # of Occurrence
^(	QUE+4
^(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*
DIC	LRBLJC+4*!
DIC("A"	LRBLJC+4*
DIC(0	LRBLJC+4*
DTIME	ABO, ASK
IO	QUE
IOF	H
IOM	H
IOSL	D, F, W, Y
>> LR("%"	H+1
>> LRA	QUE+1, QUE+4, F*, B
>> LRABO	ABO+1*, B+1, H
>> LRC	F*
>> LRD	D*
>> LRDFN	QUE+4*, W+1
>> LRDPF	QUE+4*
>> LRE	D, F, W+1, Y+1, H2
>> LRF	D, W+1
>> LRI	QUE+1, F, W+1*, Y, Y+1, B, B+1, T, S
>> LRLDT	QUE*, QUE+1
>> LRLST	H+1
>> LRM	LRBLJC+4*, B+1
>> LRM(1	LRBLJC+4*, H
>> LRP	QUE+4*, W, H1
>> 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+4*, W, H1
U	LRBLJC+4, ABO, ASK, QUE, QUE+4
>> 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+4, ASK+1, QUE+3*, H
>> Z	S*
>> ZTRTN	ASK+1*
>> ZTSK	ASK+1

Info | Source | Call Graph | Entry Points | External References | Interaction Calls | Global Variables Directly Accessed | Label References | Naked Globals | Local Variables | All