Routine: LRBLJSH

Package	Total	Call Graph
Lab Service	2	(B,D,F,L,M,S,V)^LRU (BEG,END)^LRUTL
VA Fileman	2	^DIWP ^DIWW
Kernel	1	^%ZIS

Package	Total	Caller Graph
Lab Service	1	LRBLISH

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	LRBLJSH+5
^DIWP	E+1
^DIWW	E+2
B^LRU	LRBLJSH+6
D^LRU	W
F^LRU	H+1
L^LRU	QUE
M^LRU	H
S^LRU	QUE
V^LRU	END
BEG^LRUTL	D+1
END^LRUTL	QUE+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"SHIPPING INVOICE must be an entry in the LAB LETTER FILE (65.9)." Line Location: LRBLJSH+4
Function Call: WRITE	Prompt: @IOF,?18,"INVOICE FOR SHIPMENT OF BLOOD COMPONENTS" Line Location: LRBLJSH+5
Function Call: READ	Prompt: "Enter SHIPPING INVOICE#: " Formatting: !! Timeout: DTIME Variable: X Line Location: I+0
Function Call: WRITE	Prompt: $C(7)," Enter invoice # (2-10 characters)" Line Location: I+0
Function Call: READ	Prompt: "Enter name to appear on invoice: " Formatting: !! Timeout: DTIME Variable: X Line Location: A+0
Function Call: WRITE	Prompt: $C(7)," Must have a name. Enter '^' to quit" Line Location: A+0
Function Call: READ	Prompt: "Enter address line 1: " Formatting: !! Timeout: DTIME Variable: X Line Location: B+0
Function Call: READ	Prompt: "Enter address line 2: " Formatting: ! Timeout: DTIME Variable: X Line Location: C+0
Function Call: READ	Prompt: "Enter address line 3: " Formatting: ! Timeout: DTIME Variable: X Line Location: D+0
Function Call: WRITE	Prompt: !,LR("%"),!,"Total unit count (all components): ",Z Line Location: QUE+2
Function Call: WRITE	Prompt: !!,"Component: " Line Location: WRT+0
Function Call: WRITE	Prompt: C(1) Line Location: WRT+0
Function Call: WRITE	Prompt: " (",C(20),")" Condition for execution: C(20)]"" Line Location: WRT+0
Function Call: WRITE	Prompt: D:$Y>(IOSL-6) Line Location: W+0
Function Call: WRITE	Prompt: !,$J(V,5) Line Location: W+0
Function Call: WRITE	Prompt: " Pos/Incomplete Tests" Condition for execution: $P($G(^LRD(65,+$P(W,"^",2),8)),"^",2) Line Location: W+0
Function Call: WRITE	Prompt: ?28,$J(A,2),?32,R,?38,I,?53,Y Line Location: W+0
Function Call: WRITE	Prompt: !?25,LR(X) Condition for execution: LR(X)]"" Line Location: H+1
Function Call: WRITE	Prompt: !?28,"ABO",?32,"Rh",?38,"UNIT ID",?53,"Expiration date",!,LR("%") Line Location: H1+0
Function Call: WRITE	Prompt: !!,"Component: ",C(1) Line Location: H2+0
Function Call: WRITE	Prompt: " (",C(20),")" Condition for execution: C(20)]"" Line Location: H2+0
Function Call: WRITE	Prompt: ! Line Location: H2+0
Function Call: WRITE	Prompt: !,LR("%"),!!! Line Location: H3+0
Function Call: WRITE	Prompt: !,$C(7),"Entry must be less than 31 characters with no control characters." Line Location: CK+0
Function Call: WRITE	Prompt: !,LR("%") Line Location: E+0
Routine Call	%ZIS Line Location: LRBLJSH+5

Name	Line Occurrences (* Changed, ! Killed)
^DD(65	I
^LAB(65.9 - [#65.9]	LRBLJSH+4, E, E+1
^LAB(66 - [#66]	WRT
^LRD(65 - [#65]	QUE+1, W
^TMP($J	QUE!, QUE+2!, SET*, WRT, ABO, E!

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	ABO*, W
>> B	QUE+1, ABO
>> C	WRT*, ABO
>> C(1	WRT*, H2
>> C(20	WRT*, H2
>> DIWF	E*
>> DIWL	E*
>> DIWR	E*
DTIME	LRBLJSH+4*, I, A, B, C, D
>> E	ABO*
>> F	ABO*
>> I	ABO*, W
IO	QUE
IOF	LRBLJSH+5
IOM	E
>> IOP	LRBLJSH+5*
IOSL	QUE+2, WRT, W, E, E+1
IOST	H
>> LR	A*, H+1
>> LR(	H+1
>> LR("%"	QUE+2, H1, H3, E
>> LR("F"	WRT*, H
>> LR("Q"	QUE+2, WRT, ABO, W, H, H1, H2, H3, E, E+1 , E+2
>> LR(1	B*
>> LR(2	C*
>> LR(3	D*
>> LRA	QUE+1, SET, E+1
>> LRB	I*, QUE+1, H+1
>> LRI	LRBLJSH+4*, E, E+1
>> LRLDT	LRBLJSH+6*, QUE+1
>> LRSDT	LRBLJSH+6, QUE+1
>> LRZ	E+1*, E+2
>> POP	D+1
>> R	ABO*, W
U	I, A, B, C, D, E
>> V	WRT, W
>> W	QUE+1, SET, ABO, W
X	I, A, B, C, D, H+1, CK!, E, E+1
>> Y	LRBLJSH+6, W*
>> Z	QUE, QUE+2, W
>> ZTRTN	D+1*
>> ZTSK	D+1

Customize PDF page

Package: Lab Service

Routine: LRBLJSH

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	Line Occurrences
A	A
ABO	WRT
B	B
C	C
CK	A, B, C, D
D	D
E	QUE+3
END	LRBLJSH+4, LRBLJSH+6, I, A, B, C, D, D+1, QUE+3
H	QUE+2, H1, H3, E
H1	WRT, H2
H2	W
H3	E+1
I	I
SET	QUE+1
W	ABO
WRT	QUE+2