Routine: LRBLJI

Package	Total	Call Graph
Lab Service	2	(F,L,M,S,V)^LRU (BEG,END)^LRUTL
Kernel	1	^%ZISC

Package	Total	Caller Graph
Lab Service	1	LRBLII

Entry Points

External References

Name	Field # of Occurrence
^%ZISC	LRBLJI+5
F^LRU	H+1
L^LRU	QUE+1
M^LRU	H
S^LRU	QUE+1
V^LRU	END
BEG^LRUTL	LRBLJI+5
END^LRUTL	QUE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?17,"Check inventory file entries for missing data.",!! Line Location: LRBLJI+4
Function Call: WRITE	Prompt: !! Line Location: LRBLJI+5
Function Call: WRITE	Prompt: @IOF Condition for execution: $E(IOST,1,2)="P-" Line Location: LRBLJI+5
Function Call: WRITE	Prompt: !!,"Done." Line Location: QUE+2
Function Call: WRITE	Prompt: !! Line Location: QUE+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $E(IOST,1,2)="P-" Line Location: QUE+2
Function Call: WRITE	Prompt: !,"IFN: ",LRI," 0th subscript missing- Database degradation!" Line Location: C+0
Function Call: WRITE	Prompt: Q:LR("Q") Line Location: C+2
Function Call: WRITE	Prompt: !,"""B"" Cross reference required re-setting" Line Location: C+2
Function Call: WRITE	Prompt: Q:LR("Q") Line Location: C+3
Function Call: WRITE	Prompt: !,"SOURCE missing" Line Location: C+3
Function Call: WRITE	Prompt: Q:LR("Q") Line Location: C+4
Function Call: WRITE	Prompt: !,"DATE/TIME RECEIVED missing" Line Location: C+4
Function Call: WRITE	Prompt: Q:LR("Q") Line Location: C+5
Function Call: WRITE	Prompt: !,"INVOICE# missing" Line Location: C+5
Function Call: WRITE	Prompt: Q:LR("Q") Line Location: C+6
Function Call: WRITE	Prompt: !,"EXPIRATION DATE/TIME missing" Line Location: C+6
Function Call: WRITE	Prompt: Q:LR("Q") Line Location: C+7
Function Call: WRITE	Prompt: !,"DISPOSITION DATE present but DISPOSITION missing" Line Location: C+7
Function Call: WRITE	Prompt: Q:LR("Q") Line Location: C+8
Function Call: WRITE	Prompt: !,"DISPOSITION DATE missing" Line Location: C+8
Function Call: WRITE	Prompt: Q:LR("Q") Line Location: C+9
Function Call: WRITE	Prompt: !,"DISPOSITION ENTERING PERSON missing" Line Location: C+9
Function Call: WRITE	Prompt: Q:LR("Q") Line Location: C+10
Function Call: WRITE	Prompt: !,"MODIFIED TO/FROM missing" Line Location: C+10
Function Call: WRITE	Prompt: Q:LR("Q") Line Location: C+11
Function Call: WRITE	Prompt: !,"MODIFIED TO/FROM missing" Line Location: C+11
Function Call: WRITE	Prompt: W:X]"" Line Location: W+0
Function Call: WRITE	Prompt: X Condition for execution: X]"" Line Location: W+0
Function Call: WRITE	Prompt: "Component missing" Line Location: W+0
Function Call: WRITE	Prompt: !?20,"Missing data from Blood Bank Inventory File",!,LR("%") Line Location: H+1

Name	Comments	DBIA/ICR reference
C
END
D
H
K
QUE
W
LRCKF	; Entry point for check all laboratory files option Routine LRCKF

Name	Line Occurrences (* Changed, ! Killed)
^DD(65	D
^LAB(66 - [#66]	C+11, W, D+1
^LRD(65 - [#65]	QUE+1, C+1, C+2, C+10, C+11, K!, K+1!, D+1!

Name	Field # of Occurrence
^(	QUE+1
^(0	QUE+1, C+11, W, K
^(2	D
^(4	QUE+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> C	D+1*
>> DA	K, K+1, D+1
IO	QUE
IOF	LRBLJI+5, QUE+2
IOSL	W
IOST	LRBLJI+5, QUE+2, H
>> LR	C*, C+1, C+2, W
>> LR("%"	W, H+1
>> LR("F"	QUE+1*, H
>> LR("Q"	QUE+1, C+2, C+3, C+4, C+5, C+6, C+7, C+8, C+9, C+10 , C+11, W, H
>> LRA	K, K+1
LRB	QUE+1!, W*
>> LRF	D*
>> LRI	QUE+1*, C, C+1, C+2, C+10, C+11, W
>> POP	LRBLJI+5
>> S	D+1*
>> W	QUE+1*, C, C+3, C+4, C+5, C+6, C+11, W
>> W(4	QUE+1*, C+7, C+8, C+9, C+10
>> X	C+11, W, K, K+1, D+1
>> X(1	C+1*
>> Y	D+1*
>> ZTQUEUED	QUE
>> ZTREQ	QUE*
>> ZTRTN	LRBLJI+5*
>> ZTSK	LRBLJI+5

Customize PDF page

Package: Lab Service

Routine: LRBLJI

Information

Source Information

Call Graph

Call Graph Total: 3

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
C	QUE+1
D	K
END	LRBLJI+4, LRBLJI+5, QUE+2, LRCKF+1
H	QUE+1, W
K	QUE+2
QUE	LRBLJI+5, LRCKF+1
W	C+2, C+3, C+4, C+5, C+6, C+7, C+8, C+9, C+10, C+11