Routine: LRBLJW

Package	Total	Call Graph
VA Fileman	3	^DIC ^DIWP ^DIWW
Lab Service	2	(F,L,M,S,V,YN)^LRU (,BEG,END)^LRUTL

Package	Total	Caller Graph
Lab Service	1	LRBLIW

Entry Points

External References

Name	Field # of Occurrence
^DIC	C
^DIWP	FT+2
^DIWW	FT+3
F^LRU	H+1
L^LRU	QUE
M^LRU	H
S^LRU	QUE
V^LRU	END
YN^LRU	LRBLJW+5, LRBLJW+6, LRBLJW+8, C+1, C+2
^LRUTL	LRBLJW+3
BEG^LRUTL	LRBLJW+9
END^LRUTL	QUE+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?24,"PRINT ABO/RH INVENTORY WORKSHEET",!! Line Location: LRBLJW+4
Function Call: WRITE	Prompt: !,"List ABO/Rh worksheet entries " Line Location: LRBLJW+5
Function Call: WRITE	Prompt: !,"Add/delete ABO/Rh worksheet entries " Line Location: LRBLJW+6
Function Call: WRITE	Prompt: $C(7),!!,"THERE ARE NO ENTRIES TO PRINT !" Line Location: LRBLJW+7
Function Call: WRITE	Prompt: !!,"Save list for repeat printing " Line Location: LRBLJW+8
Function Call: WRITE	Prompt: !,$J(C,3),")",?5,$P(LRI,"^"),?19,$J($P(LRI,"^",7),2),?23,$P(LRI,"^",8),?27,"\|",?38,"\|",?43,"\| \| \| \| \| \| \| \|",!,LR("%") Line Location: WRK+0
Function Call: WRITE	Prompt: ! Line Location: C+0
Function Call: WRITE	Prompt: $C(7),!!,"I can't add this to the worksheet now ",!!,"Someone else is editing this record",!! Line Location: C+4
Function Call: WRITE	Prompt: $C(7),!!,"I can't delete this from the worksheet now",!!,"Someone else is editing this record",!! Line Location: D+0
Function Call: WRITE	Prompt: W:C#2=1 Line Location: W+0
Function Call: WRITE	Prompt: ! Condition for execution: C#2=1 Line Location: W+0
Function Call: WRITE	Prompt: ?40 Condition for execution: C#2=0 Line Location: W+0
Function Call: WRITE	Prompt: $J(C,2),") ",$P(LRI,"^")," ",$J($P(LRI,"^",7),2)," ",$P(LRI,"^",8) Line Location: W+0
Function Call: WRITE	Prompt: !,"Invoice #: ",F Line Location: INV+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: M+0
Function Call: WRITE	Prompt: !,LRO(68)," INVENTORY ABO/Rh TESTING WORKSHEET" Line Location: H+1
Function Call: WRITE	Prompt: !,"Incubator temp:",?28,"Reagent rack:",!,"Num",?5,"Donor ID",?18,"\|Supplier",?27,"\|VA interp",?38,"\| \|---ANTI----\|Rh\| \|Du\|" Line Location: H+2
Function Call: WRITE	Prompt: !?18,"\|ABO Rh",?27,"\| ABO Rh",?38,"\|tech",?42,"\|A \|B \|AB\| D\|Ct\|Du\|Ct\|",!,LR("%") Line Location: H+3
Function Call: WRITE	Prompt: !!,"INVENTORY WORKSHEET must be an entry in the LAB LETTER FILE (65.9)",!,"to print legend." Line Location: FT+0
Routine Call	DIC Line Location: C

Name	Line Occurrences (* Changed, ! Killed)
^LAB(65.9 - [#65.9]	FT, FT+1, FT+2
^LRD(65 - [#65]	S
^LRO(69.2 - [#69.2]	LRBLJW+3, LRBLJW+5, LRBLJW+7, QUE+1!, S, C+1, C+3, C+4, C+5*, D , D+1!
^TMP($J	LRBLJW+5!, S*, L+1, FT+1!

Name	Field # of Occurrence
^(	L+1
^(0	LRBLJW+3, S, C+3, C+5, D+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LRBLJW+5, LRBLJW+6, LRBLJW+8, C+1, C+2*
>> A	L, L+1
>> B	L+1*
>> C	WRK, L, L+1, W
>> C(3	QUE*
DIC	C*!
DIC("A"	C*
DIC("S"	C*
DIC(0	C*
>> DIWF	FT+1*
>> DIWL	FT+1*
>> DIWR	FT+1*
DTIME	M
>> E	L*
>> F	L, L+1, INV
>> G	L+1*
>> I	L+1*
IO	QUE
IOM	FT+1
IOSL	WRK, FT+1, FT+2
IOST	H
>> LR	S, C, C+1, C+5, D+1
>> LR("%"	WRK, H+3
>> LR("F"	QUE*, H
>> LR("M"	LRBLJW+3*
>> LR("Q"	LRBLJW+5, WRK, L+1, INV, M, H, FT+1, FT+2, FT+3
>> LRA	FT+2*
>> LRAA	LRBLJW+3, LRBLJW+5, LRBLJW+7, QUE+1, S, C+1, C+3, C+4, C+5, D , D+1
>> LRI	WRK, L+1, W, FT, FT+1, FT+2
>> LRN	QUE+1*, L+1
>> LRO(68	H+1
>> LRZ	FT+2*, FT+3
>> POP	LRBLJW+9
>> S	LRBLJW+8*, QUE+1
U	C, C+1, C+2, C+5, D+1, M, FT+1
>> X	LRBLJW+3, S, C, C+5, D+1, M, FT+1, FT+2*
>> X(1	D+1*
>> Y	LRBLJW+3, C, C+1, C+2
>> ZTRTN	LRBLJW+9*
>> ZTSK	LRBLJW+9

Customize PDF page

Package: Lab Service

Routine: LRBLJW

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
@(	L+1
C	LRBLJW+6, C+1, C+2, C+4, C+6
D	C+1
END	LRBLJW+3, LRBLJW+9, QUE+1
FT	QUE+1
H	QUE, H1, FT+1, FT+2
H1	WRK
INV	L+1, H1
L	LRBLJW+5, QUE+1
M	W
S	L