Routine: LRBLJLG

Package	Total	Call Graph
Lab Service	6	(A,BAR,D,P,T,U)^LRBLB (,EN,EN1)^LRBLJLG1 S^LRBLW (V,YN)^LRU ^LRUTL X^LRUWK
VA Fileman	5	^%DT ^DIC FIELD^DID ^DIE ^DIK

Package	Total	Caller Graph
Lab Service	1	LRBLILR

Entry Points

External References

Name	Field # of Occurrence
^%DT	D, ED+1
^DIC	C+2, C+4, E+7
FIELD^DID	I+1, I+2, C+6, C+7
^DIE	ED+15, ED+16
^DIK	ED+16
A^LRBLB	A
BAR^LRBLB	LRBLJLG+5
D^LRBLB	ED
P^LRBLB	C+1
T^LRBLB	A+1
U^LRBLB	E+1
^LRBLJLG1	E
EN^LRBLJLG1	C+5
EN1^LRBLJLG1	E+9
S^LRBLW	LRBLJLG+6
V^LRU	END
YN^LRU	E+10
^LRUTL	LRBLJLG+4
X^LRUWK	LRBLJLG+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!,"I need to know the name of your site (In the INSTITUTION file)." Line Location: LRBLJLG+3
Function Call: WRITE	Prompt: !!?28,"Blood Component Log-In",!!?15,"Division: ",LRAA(4) Line Location: LRBLJLG+5
Function Call: READ	Prompt: "Enter INVOICE (or order) NUMBER: " Formatting: !! Timeout: DTIME Variable: X Line Location: I+0
Function Call: WRITE	Prompt: !!,$C(7),HLP Line Location: I+2
Function Call: READ	Prompt: "DATE/TIME RECEIVED: NOW// " Formatting: ! Timeout: DTIME Variable: X Line Location: D+0
Function Call: WRITE	Prompt: $C(7),!,"Must enter a TIME. Future DATE/TIME not allowed.",! Line Location: D+0
Function Call: READ	Prompt: "Select BLOOD COMPONENT: " Formatting: ! Timeout: DTIME Variable: X Line Location: C+0
Function Call: WRITE	Prompt: !!,"Invoice number: ",LRI Line Location: C+0
Function Call: WRITE	Prompt: $C(7),!,"Code not entered in BLOOD PRODUCT file or not product label.",! Line Location: C+1
Function Call: WRITE	Prompt: ! Line Location: C+2
Function Call: WRITE	Prompt: $C(7),!!,"Must have at least one supplier for this component",!,"Please have appropriate person enter supplier(s) in ",$P(^LAB(66,0),U)," FILE (#66)",! Line Location: C+3
Function Call: READ	Prompt: "UNIT ID: " Formatting: !!?13 Timeout: DTIME Variable: X Line Location: E+0
Function Call: WRITE	Prompt: $C(7)," No spaces allowed." Line Location: E+2
Function Call: WRITE	Prompt: $C(7)," Enter the Unit ID Without the Prefix" Line Location: E+3
Function Call: WRITE	Prompt: !!,$C(7),HLP Line Location: E+5
Function Call: WRITE	Prompt: $C(7),!!,"I might have that unit already in inventory. Let's try that again ",! Line Location: E+8
Function Call: WRITE	Prompt: $C(7),!,$P(^LAB(66,LRC,0),U)," already in inventory with same Unit ID !" Line Location: E+9
Function Call: WRITE	Prompt: $C(7),!,"Entry in INVENTORY file.",!,"Add ",P," for this DONOR ID# " Line Location: E+10
Function Call: READ	Prompt: "ABO/Rh: " Formatting: !?14 Timeout: DTIME Variable: X Line Location: A+0
Function Call: WRITE	Prompt: !,$C(7),"No such ABO/Rh bar code",!! Line Location: A+0
Function Call: READ	Prompt: "EXPIRATION DATE/TIME: " Formatting: ! Timeout: DTIME Variable: X Line Location: ED+0
Function Call: WRITE	Prompt: $C(7),!,"Not Date bar code",! Line Location: ED+0
Function Call: WRITE	Prompt: $C(7),!?4,"Expiration date exceeds allowable limit !" Line Location: ED+2
Function Call: WRITE	Prompt: $C(7),!!,"We can't do this right now...",!!,"Someone else is creating a new entry in the INVENTORY file ",!!,"Try again..",!! Line Location: ED+3
Function Call: WRITE	Prompt: $C(7),!!,"I think someone else is trying to log this unit in" Line Location: ED+7
Function Call: WRITE	Prompt: $C(7),!!,"Can't do this now...",!!,"Looks like 2 of you are creating the same record.",!!,"Try again..." Line Location: ED+10
Function Call: WRITE	Prompt: $C(7),!!,"Entry deleted." Line Location: ED+16
Function Call: WRITE	Prompt: $C(7),!!,"I can't add this to the ABO/Rh typing worksheet",!!,"Someone else is editing that worksheet",!!,"Add this unit Manually when printing the ABO/Rh typing worksheet",!! Line Location: S+1
Function Call: WRITE	Prompt: $C(7),!!,"Answer prompt. To quit enter '^' and unit will be deleted.",! Line Location: H+0
Routine Call	DIE Line Location: ED+15 ED+16
Routine Call	DIC Line Location: C+2 C+4 E+7

Name	Line Occurrences (* Changed, ! Killed)
^LAB(66 - [#66]	C+3, E+9
^LRD(65 - [#65]	E+8, E+9, ED+3, ED+5, ED+6, ED+7, ED+9, ED+10, ED+11, ED+12 , ED+13, ED+14*
^LRO(69.2 - [#69.2]	S, S+1, S+2, S+3*

Name	Line Occurrences
A	A, A+1
C	C+1, C+2, C+3, C+4, E
D	D
E	E+2, E+3, E+4, E+5, E+8, E+9, E+10, A, ED, ED+1 , ED+3, ED+8, ED+10, ED+16, ED+17
ED	E+10, ED, ED+1, ED+2
END	LRBLJLG+3, LRBLJLG+4, LRBLJLG+6, I, D
I	I+3, C, C+2
S	ED+17

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	E+10*
%DT	D!, ED+1!
%DT(0	D*
>> C	E+8, E+9
>> DA	C+6, E+7, ED+9*, ED+10, ED+11, ED+13, ED+14, ED+17, S+3
DIC	C+2!, C+4!, E+7*!
DIC("B"	C+4*
DIC("S"	C+2*
DIC(0	C+2, C+4, E+7*
>> DIE	ED+14*
>> DIE("NO^"	ED+14*
DIK	ED+16*!
>> DR	ED+15, ED+16
DTIME	I, D, C, E, A, ED
DUZ	ED+15
DUZ(2	LRBLJLG+3, ED+15
HLP	I+1~, I+2, C+6~, C+7, E+5
HLP("HELP-PROMPT"	I+2, C+7
IPTR	I+1~, C+6~, E+4
IPTR("INPUT T	RANSFORM" , I+1, C+6
>> LR	C+1, E+1, A, ED
>> LR("M"	LRBLJLG+4*
>> LR(1	C+4*, E+6
>> LR(2	C+1, E+1, A, ED
>> LR(3	C+4*
>> LR(4	C+4*, ED+13
>> LRA	ED*, ED+17
>> LRAA	S, S+1, S+2, S+3
>> LRAA(4	LRBLJLG+5
>> LRABO	E+10, A, A+1, ED+15, ED+17
>> LRC	C, C+2, C+3, C+4, E+8, E+9, ED+6, ED+15, ED+17
>> LRCAPA	LRBLJLG+6
LRDPAF	LRBLJLG+4!
>> LRH	ED, ED+1, ED+2, ED+15, ED+17
>> LRI	I*, C, ED+15
>> LRJ	C+2*, ED+16
>> LRK	D*, ED+15
LRL	C!, ED+17
LRL(	ED+17*
>> LRM	C+4*, ED+15
>> LRP	E+7*, ED+5, ED+11, ED+13, ED+14, ED+17
>> LRR	C+2*, ED+17
>> LRRH	E+10, A, ED+15, ED+17
>> LRS	ED+2
>> LRV	C+2*, ED+15
>> LRW	C+4*, ED+15
>> P	C+2*, E+10
TYPE	ED+4, ED+6, ED+7!
U	I, D, C, C+2, C+3, C+4, E, E+9, E+10, A , ED, ED+6
UNIT	ED+4, ED+5, ED+6, ED+7!, ED+8
>> W	E+7*, E+10
X	LRBLJLG+4, LRBLJLG+6, I, I+1!, I+2, I+3, D, C!, C+1, C+2 , C+4, E, E+1, E+2, E+3, E+4!, E+5, E+6, E+7, E+8 , E+9, A!, A+1, ED, ED+1, S+2*, S+3
X(1	C+3*, C+4
Y	LRBLJLG+4, D, C+2, C+4!, E+7, E+8, E+9!, E+10, ED+1, ED+16
Y(0	C+2, C+4, E+7, E+9, E+10!
>> Z	C+2*

Customize PDF page

Package: Lab Service

Routine: LRBLJLG

Information

Source Information

Call Graph

Call Graph Total: 11

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	Comments	DBIA/ICR reference
A
C
E
D
I
ED
S
H
END