Routine: LRBLJRB

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

Package	Total	Caller Graph
Lab Service	1	LRBLIRB

Entry Points

External References

Name	Field # of Occurrence
^%DT	ASK+1, ASK+3, D
^LRU	ASK+1
D^LRU	ASK+4, ASK+5
F^LRU	HDR+1
L^LRU	QUE
M^LRU	HDR
S^LRU	QUE
SSN^LRU	X+4
V^LRU	END
YN^LRU	LRBLJRB+5
BEG^LRUTL	ASK+7
END^LRUTL	QUE+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?20,"UNIT issue book" Line Location: LRBLJRB+4
Function Call: WRITE	Prompt: !!,"Delete issue book entries over 31 days " Line Location: LRBLJRB+5
Function Call: WRITE	Prompt: !!?15,"1. Print issue book entries by date",!?15,"2. Print issue book entries by patient" Line Location: LRBLJRB+6
Function Call: READ	Prompt: "Select 1 or 2: " Formatting: ! Timeout: DTIME Variable: LRA Line Location: ASK+0
Function Call: WRITE	Prompt: $C(7)," Enter a '1' or '2'.",! Line Location: ASK+0
Function Call: WRITE	Prompt: H(10) Line Location: ASK+1
Function Call: WRITE	Prompt: H(10) Line Location: ASK+3
Function Call: WRITE	Prompt: !,T,?12,$P(W,"^"),?25,M,?30,$P(G,"^",2),?34,V,?38,$E($P(G,"^",5),1,12),?51,$E($P(G,"^",6),1,19),?71,$E(L,1,8) Line Location: X+2
Function Call: WRITE	Prompt: !,"TRANSFUSION SERVICE Unit issue book" Line Location: HDR+1
Function Call: WRITE	Prompt: !,"Mo/Da TIME",?12,"Unit ID",?24,"Prod",?29,"Insp",?34,"By",?38,"Issued to",?51,"Patient",?71,"Location" Line Location: H1+0
Function Call: WRITE	Prompt: ?81,"Patient SSN" Condition for execution: IOM>80 Line Location: H1+0
Function Call: WRITE	Prompt: !?53,"SSN" Condition for execution: IOM<81 Line Location: H1+0
Function Call: WRITE	Prompt: !,LR("%") Line Location: H1+0
Function Call: WRITE	Prompt: !,"Mo/Da TIME",?12,"Unit ID",?24,"Prod",?29,"Insp",?34,"By",?38,"Issued to",?51,"Patient",?71,"Location" Line Location: H1+1
Function Call: WRITE	Prompt: ?81,"Patient HRCN" Condition for execution: IOM>80 Line Location: H1+1
Function Call: WRITE	Prompt: !?53,"HRCN" Condition for execution: IOM<81 Line Location: H1+1
Function Call: WRITE	Prompt: !,LR("%") Line Location: H1+1
Function Call: WRITE	Prompt: "." Line Location: D+0
Function Call: WRITE	Prompt: $C(7),!!,"Deletion completed.",! Line Location: D+1
Function Call: WRITE	Prompt: !,"-----------------------------------------",!,"Totals",?36,$J(T,5) Line Location: SUM+1
Function Call: WRITE	Prompt: !?8,L,?20,$J(L(L),5) Line Location: SUM+2
Function Call: WRITE	Prompt: " (",$P(^LAB(66,X,0),"^"),")" Condition for execution: X Line Location: SUM+2
Function Call: WRITE	Prompt: ?(IOM-15),$J(X*100/Y,4,1),"% returned" Line Location: G+0
Function Call: WRITE	Prompt: !,"Unit counts by location from ",LRSTR," to ",LRLST,!,LR("%") Line Location: H+0

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	X+4
^LAB(66 - [#66]	X, SUM+2
^LRD(65 - [#65]	QUE+1, X, W!, W+2, D!
^TMP($J	QUE!, QUE+2, W+1, W+2
^VA(200 - [#200]	X

Name	Field # of Occurrence
^(	QUE+2
^(0	X, X+4
^(3	X

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LRBLJRB+5*
%DT	ASK+1!, ASK+3!, D*
%DT("A"	ASK+1, ASK+3
%DT(0	ASK+1*
>> A	QUE+1, QUE+2, W+1, W+2, D, SUM, SUM+2*, A
>> B	QUE+1, QUE+2, X, W, W+1, W+2, A*
>> C	QUE+1, QUE+2, X, W, W+1, W+2
>> DFN	X+4*
DT	ASK+1, ASK+3
DTIME	ASK
>> E	QUE+1*
>> F	QUE+1*
G	QUE+2!, X, X+2, W+2
G(	X+5*, SUM, A
G("BLOOD BANK	" , SUM+2, G
G(6	W+2*
>> H(10	ASK+1, ASK+3
>> HRCN	X+4
>> I	QUE+2*
IO	QUE
IOF	QUE+3
IOM	X+4, H1+1, G
IOSL	X+1, SUM+2, A
IOST	QUE+3, HDR
>> J	QUE+2*
>> L	X, X+2, X+5, SUM+2*, G
>> L(	SUM+2, A*, G
>> LR("%"	H1+1, H
>> LR("F"	QUE*, HDR
>> LR("Q"	QUE+2, QUE+3, X+1, HDR, H1+1, SUM, SUM+2, A, H
>> LRA	ASK, QUE+2, W+1
>> LRDPF	X+4*
>> LRLDT	ASK+4, ASK+5, ASK+6, QUE+1
>> LRLST	ASK+4, ASK+5, H
>> LRSDT	ASK+2, ASK+4, ASK+5, ASK+6*, QUE+1
>> LRSTR	ASK+5*, H
>> M	X, X+2, X+5, A
>> POP	ASK+7
>> SSN	X+4*
>> T	X, X+2, T, SUM*, SUM+1
>> V	X*, X+2
>> W	X*, X+2
>> X	ASK+1, ASK+3, ASK+4, X+2, X+4, D, SUM+2, G
>> Y	ASK+1, ASK+2, ASK+3, ASK+4, ASK+5, D, G
>> Z	SUM*, A
>> ZTRTN	ASK+7*
>> ZTSK	ASK+7

Customize PDF page

Package: Lab Service

Routine: LRBLJRB

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	Comments	DBIA/ICR reference
A
END
HDR
G
H
SUM
H1	;D HDR Q:LR("Q") W !,"Mo/Da TIME",?12,"Unit ID",?24,"Prod",?29,"Insp",?34,"By",?38,"Issued to",?51,"Patient",?71,"Location" W:IOM>80 ?81,"Patient SSN" W:IOM<81 !?53,"SSN" W !,LR("%") Q
QUE
T
W
ASK
X
D

Name	Line Occurrences
A	SUM
ASK	ASK
D	LRBLJRB+5
END	LRBLJRB+4, LRBLJRB+5, ASK, ASK+2, ASK+4, ASK+7, QUE+3
G	SUM+2
H	SUM, SUM+2, A
H1	QUE, X+1
HDR	H1+1, H
SUM	QUE+3
T	X
W	QUE+1
X	QUE+2