Routine: LRBLB

Package	Total	Call Graph
Lab Service	1	D^LRU
VA Fileman	1	^%DT

Package	Total	Caller Graph
Lab Service	9	LRBLDC LRBLDRR LRBLDRR1 LRBLJCK LRBLJD LRBLJLG LRBLJM LRBLPED LRBLPUS
Surgery	1	SRBLOOD

Entry Points

Name	Comments	DBIA/ICR reference
BAR	;TEST BAR CODE READER	ICR #2332 Status: Active Usage: Private
62	;;A POS;620
66	;;A;660
84	;;AB POS;840
G	;;
28	;;AB NEG;280
6	;;A NEG;060
A	;ABO/RH GROUPING
C
D	;DATE CODE
AG
H
77	;;B;770
P	;PRODUCT CODE
S
R	;FDA REG #
U	;from LRBLDRR, LRBLJLG
T	;from LRBLDRR1, LRBLJLG
W
X
95	;;O NEG;950
17	;;B NEG;170
55	;;O;550
51	;;O POS;510
88	;;AB;880
73	;;B POS;730

External References

Name	Field # of Occurrence
^%DT	D+2
D^LRU	D+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: W Line Location: W+0
Function Call: WRITE	Prompt: ?32,"(Bar code)" Line Location: W+0
Function Call: WRITE	Prompt: W Line Location: U+1
Function Call: WRITE	Prompt: ?45,"UNIT ID: ",X Line Location: U+1
Function Call: WRITE	Prompt: W Line Location: A+1
Function Call: WRITE	Prompt: ?46,"ABO/Rh: ",X Line Location: A+1
Function Call: WRITE	Prompt: W Line Location: C+1
Function Call: WRITE	Prompt: !?24,P Line Location: C+1
Function Call: WRITE	Prompt: !?2,Y,")",?5,$P(X(Y),U,2) Line Location: C+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: H+0
Function Call: WRITE	Prompt: !,"CHOOSE 1-",A,": " Line Location: H+0
Function Call: WRITE	Prompt: $C(7) Line Location: H+1
Function Call: WRITE	Prompt: W Line Location: H+2
Function Call: WRITE	Prompt: ?25,P Line Location: H+2
Function Call: WRITE	Prompt: W Line Location: R+1
Function Call: WRITE	Prompt: !?2,"Registration number: ",X Line Location: R+1
Function Call: WRITE	Prompt: W Line Location: D+3
Function Call: WRITE	Prompt: ?44,"Exp date: ",Y Line Location: D+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: BAR+1
Function Call: WRITE	Prompt: !!?28,"To use BAR CODE READER",!?15,"Pass reader wand over a GROUP-TYPE (ABO/Rh) label",!?25,"=> " Line Location: BAR+1
Function Call: WRITE	Prompt: " (bar code)" Line Location: BAR+1
Function Call: WRITE	Prompt: $C(7),!!?28,"Not a GROUP-TYPE label",!?15,"Press <RETURN> key if BAR CODE READER is not used",! Line Location: BAR+3
Function Call: WRITE	Prompt: " ",$P($T(G+A),";",3) Line Location: BAR+4
Function Call: WRITE	Prompt: $E(Y(1),$L(X)+1,$L(Y(1))) Line Location: T+4
Function Call: WRITE	Prompt: !?2,Y,")",?5,Y(Y) Line Location: T+5
Function Call: READ	Timeout: DTIME Variable: X Line Location: AG+0
Function Call: WRITE	Prompt: !,"CHOOSE 1-",A,": " Line Location: AG+0
Function Call: WRITE	Prompt: $C(7) Line Location: AG+1
Function Call: WRITE	Prompt: " ",Y(X) Line Location: AG+2
Function Call: WRITE	Prompt: !!,"Select from (NA=not applicable): " Line Location: S+0
Function Call: WRITE	Prompt: !?15,$P($T(G+A),";",3) Line Location: S+0

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	D+2*
>> A	X, U+1, A+1, P+1, C, C+1, C+2, C+3, H, H+1 , R+1, BAR+2, T+1, T+3, T+4, T+5, AG, AG+1, S
>> B	X, U+1, P+1, R+1
DTIME	H, BAR+1, AG
>> LR	X, BAR+1, BAR+2, BAR+3
>> LR(2	BAR+2*
>> LR(3	U+1
>> LRABO	A+1, T+4, AG+2*
>> LRJ	C+1, H+2
>> LRRH	A+1, T+4, AG+2*
>> LRV	C+1, H+2
>> P	C+1, H+2
U	C+1, C+2, H, H+2
>> W(4	C+1, H+2
>> W(6	D+2*
>> W(9	C+1, H+2
X	X, U+1, A+1!, P+1, C, C+1, C+3!, H!, H+1, H+2* , R+1, D+1, D+2!, BAR+1, BAR+2, BAR+4!, T+1, T+2!, T+4, AG*! , AG+1, AG+2
X(	C, C+2, H+2, T+1, T+3!
X(1	C+1, BAR+2*
Y	P+1, C, C+2, D+2, D+3, BAR+2, T+1, T+3!, T+5*
Y(	T+3*, T+5, AG+2
Y(1	T+4

Customize PDF page

Package: Lab Service

Routine: LRBLB

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Line Occurrences
AG	AG+1
BAR	BAR+3
C	P+1
H	H+1
S	T+2
W	U+1, A+1, P+1, R+1, D+3
X	U+1, A+1, P+1, R+1, D+1