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 | Caller Graph | Entry Points | External References | Interaction Calls | Global Variables Directly Accessed | Label References | Naked Globals | Local Variables | All

Print Page as PDF

Routine: LRBLJB

Package: Lab Service

Routine: LRBLJB

Information

LRBLJB ; IHS/DIR/FJE - AUTOLOGOUS UNIT DISPOSITION LIST 09:08 ; [ 2/18/93 ]

Source Information

Source file <LRBLJB.m>

Call Graph

Call Graph Total: 4

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

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Lab Service	2	LRBLJB LRBLJC

Entry Points

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

External References

Name	Field # of Occurrence
^%DT	H
^%DTC	Y
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	QUE+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?10,"LIST OF AUTOLOGOUS UNIT DISPOSITIONS BY DATE UNIT RECEIVED" Line Location: LRBLJB+4
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: !! Line Location: QUE+5
Function Call: WRITE	Prompt: !?3,LRA,?7," = ",LRD(LRA),?50,"(",$J(LRD(LRA,1),3)," units)" Line Location: QUE+5
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: !?3,LRD,?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 Line Location: H+0
Function Call: WRITE	Prompt: !,"Autologous ",$S(LRW="T":"Transfusions",1:"")," (Units received from ",LRSTR," to ",LRLST,")",!,"Component",?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: !!,"Enter 'T' for a list of autologous transfusions or",!,"enter 'A' for a list of all dispositions except transfusions",!,"for autologous units." Line Location: HLP+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(65	QUE
^DIC - [#1]	QUE+2
^LAB(66 - [#66]	X
^LR - [#63]	QUE+2, QUE+4
^LRD(65 - [#65]	QUE+1, Y, Y+1, T, S, A
^TMP($J	QUE!, QUE+2, QUE+4, W+2, X+1, S

Label References

Name	Line Occurrences
@(	QUE+1
ASK	ASK
END	LRBLJB+4, ASK, ASK+1, QUE+6
H	QUE, QUE+5, W+1, H1+1
H1	Y
HLP	ASK
S	A
W	QUE+4
X	W+2
Y	X+1

Naked Globals

Name	Field # of Occurrence
^(	QUE+4
^(0	X, Y
^(4	A
^(6	T
^(8	QUE+1, A

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	H*
>> A	QUE+2*
>> DFN	QUE+4*
DTIME	ASK
>> HRCN	W+1, H1+1
IO	QUE
IOF	H
IOM	H
IOSL	QUE+5, W+1, Y
>> LR("%"	H+1
>> LRA	QUE+1, QUE+4, QUE+5*
>> LRB	QUE+5*
>> LRC	W+2*, X, X+1
>> LRD	W+2, X, Y, Y+1
>> LRD(	QUE+5, X, Y
>> LRDFN	QUE+4*, W+2, X+1
>> LRDPF	QUE+4*
>> LRE	X+1*, Y+1
>> LRF	X+1*
>> LRI	QUE+1, X+1, Y, Y+1, T, S, A
>> LRLDT	QUE*, QUE+1
>> LRLST	H+1
>> LRP	QUE+4*, W+1, H1+1
>> LRQ	H*
>> LRQ(1	H
>> LRS	QUE*, Y
>> LRSDT	QUE*, QUE+1
>> LRSTR	H+1
>> LRW	ASK+1*, QUE, QUE+1, Y, Y+1, H+1
>> LRX	Y*, Y+1
>> POP	ASK+1
>> SSN	QUE+4*
U	ASK, QUE, QUE+4
>> X	ASK, ASK+1, QUE+2, X, Y, Y+1, T, S, A, H*
>> X1	Y*
>> X2	Y*
>> Y	ASK+1, QUE+2, S, H
>> Z	S*
>> ZTRTN	ASK+1*
>> ZTSK	ASK+1

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