Routine: LRBLJT

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

Package

Total

Call Graph

VA Fileman

^%DT ^DIC ^DIE

Lab Service

(B,D,F,L,M,S,V)^LRU (BEG,END)^LRUTL

Kernel

^%ZIS

Package	Total	Caller Graph
Lab Service	1	LRBLRIT

Package

Total

Caller Graph

Lab Service

LRBLRIT

Name	Field # of Occurrence
^%DT	LRBLJT+4
^%ZIS	LRBLJT+5
^DIC	N
^DIE	N
B^LRU	LRBLJT+6
D^LRU	LRBLJT+4, DATE, FIN+1
F^LRU	H+1
L^LRU	QUE
M^LRU	H
S^LRU	QUE
V^LRU	END
BEG^LRUTL	LRBLJT+8
END^LRUTL	OUT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,?18,"BLOOD PRODUCTS: ITEMIZED TRANSACTIONS LIST" Line Location: LRBLJT+5
Function Call: WRITE	Prompt: !!,?69,"--------",!,"Total unit count (all components): ",Z,?50,"Total",?60,"cost",?69,$J(Z(1),8,2) Line Location: QUE+2
Function Call: WRITE	Prompt: !,A,?5,"= ",$S($D(^LAB(66,LRC(A),0)):$P(^(0),"^"),1:"???") Line Location: QUE+3
Function Call: WRITE	Prompt: !!,"Supplier: ",S,! Line Location: WRT+0
Function Call: WRITE	Prompt: !!,C(1) Line Location: C+0
Function Call: WRITE	Prompt: ! Condition for execution: B Line Location: DATE+0
Function Call: WRITE	Prompt: ?10,R(1) Line Location: DATE+0
Function Call: WRITE	Prompt: !?69,"--------",!?50,C(1),?60,"cost",?69,$J(Z(3),8,2) Line Location: DATE+1
Function Call: WRITE	Prompt: ! Condition for execution: E Line Location: L+0
Function Call: WRITE	Prompt: ?24,L Line Location: L+0
Function Call: WRITE	Prompt: ?40,L(1),?51,$P(W,"^",2),?53,$E($P(W,"^",3),1) Line Location: FIN+0
Function Call: WRITE	Prompt: ?55,Y,?71,$J(Z(6),6) Line Location: FIN+1
Function Call: WRITE	Prompt: ?78,V Line Location: FIN+1
Function Call: WRITE	Prompt: !,"BLOOD BANK INVOICES (from ",LRSTR," to ",LRLST,")" Line Location: H+1
Function Call: WRITE	Prompt: !,LR("%") Line Location: H+1
Function Call: WRITE	Prompt: !,"COMPONENT",?14,"DATE",?24,"INVOICE#",?33,"COUNT",?40,"UNIT NO",?51,"TYPE",?58,"EXP DATE",?71,"AMOUNT",?78,"D",!,LR("%") Line Location: H+2
Function Call: WRITE	Prompt: !!,"Supplier: ",S,! Line Location: H1+0
Function Call: WRITE	Prompt: !!,C(1) Line Location: H2+0
Function Call: WRITE	Prompt: ?10,R(1) Line Location: H3+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: EDC+0
Routine Call	DIE Line Location: N
Routine Call	DIC Line Location: N
Routine Call	%ZIS Line Location: LRBLJT+5

Name	Line Occurrences (* Changed, ! Killed)
^LAB(66 - [#66]	QUE+3, C
^LRD(65 - [#65]	QUE+1, SET+1
^TMP($J	QUE!, OUT!, SET+1*, WRT, C, DATE, L, U

Name	Line Occurrences
C	WRT
DATE	C
EDC	LRBLJT+6, EDC
END	LRBLJT+4, LRBLJT+6, LRBLJT+8, OUT
FIN	U
H	QUE+3, WRT, H1
H1	C, H2
H2	DATE, H3
H3	L, FIN
L	DATE
N	N
OUT	QUE+2, QUE+3
SET	QUE+1
U	L
WRT	QUE+2

Name	Field # of Occurrence
^(	U
^(0	QUE+1, QUE+3, C
^(4	SET+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	LRBLJT+4*
>> A	QUE+3, C
>> A(1	QUE+3, WRT
>> B	QUE+1, DATE
>> C	C*, DATE, L, U
>> C(1	C*, DATE+1, H2
DA	N*!
DIC	N*!
DIC("A"	N*
DIC(0	N*
DIE	N*!
DQ	N!
DR	N*!
DTIME	EDC
>> E	L*
>> F	U*, FIN
IO	QUE
IOF	LRBLJT+5
>> IOP	LRBLJT+5*
IOSL	QUE+3, WRT, C, DATE, L, FIN
IOST	H
>> L	L*, U
>> L(1	U*, FIN
>> LR("%"	H+1, H+2
>> LR("F"	WRT*, H
>> LR("Q"	QUE+2, QUE+3, WRT, C, DATE, DATE+1, L, U, FIN, H , H1, H2, H3
>> LRA	QUE+1*, SET+1
>> LRB	QUE+3*, H+1
>> LRC(	QUE+3, C*
>> LRH(0	LRBLJT+4*
>> LRI	SET*, SET+1
>> LRLDT	LRBLJT+7*, QUE+1
>> LRLST	H+1
>> LRSDT	LRBLJT+7, QUE+1
>> LRSTR	H+1
>> N	SET*, SET+1
>> POP	LRBLJT+8
>> R	SET, SET+1, DATE, L, U
>> R(1	DATE*, H3
>> S	WRT*, C, DATE, L, U, H1
U	EDC, N
>> V	FIN+1*
>> W	QUE+1, SET, SET+1, U, FIN, FIN+1
>> X	LRBLJT+4, EDC, N
>> Y	LRBLJT+4, LRBLJT+6, DATE, FIN+1, N
>> Z	QUE, QUE+2, SET+1
>> Z(1	QUE+2, WRT, FIN+1
>> Z(3	DATE, DATE+1, FIN+1
>> Z(5	DATE, FIN
>> Z(6	FIN*, FIN+1
>> ZTRTN	LRBLJT+8*
>> ZTSK	LRBLJT+8

Customize PDF page

Package: Lab Service

Routine: LRBLJT

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: