Routine: LRBLJLG1

Package	Total	Call Graph
Lab Service	5	EN^LRBLDC ^LRBLJLG1 KK^LRBLU ^LRBLW (D,YN)^LRU
VA Fileman	2	C^%DTC ^DIE

Package	Total	Caller Graph
Lab Service	2	LRBLJLG LRBLJLG1

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,P," Source: ",LRW," Invoice: ",LRI,!,"Review:",?12,"Unit",?25,"ABO/Rh",?32,"Expiration date (*=Expired or expires today)" Line Location: LRBLJLG1+3
Function Call: WRITE	Prompt: !?5,$J(X,3),")",?12,$P(LRL(X),"^",2),?25,$P(LRL(X),"^",3),?28,$P(LRL(X),"^",4),?32 Line Location: LRBLJLG1+4
Function Call: WRITE	Prompt: Y,$P(LRL(X),"^",6) Line Location: LRBLJLG1+4
Function Call: READ	Timeout: DTIME Variable: LRE Line Location: ASK+0
Function Call: WRITE	Prompt: $C(7),! Line Location: ASK+0
Function Call: WRITE	Prompt: $C(7),!,"No entering '^' during this edit !!" Line Location: DIE+2
Function Call: WRITE	Prompt: " Enter a number from 1 to ",A Line Location: H+0
Function Call: WRITE	Prompt: $C(7)," Sorry, that unit exists in inventory." Line Location: CK+1
Function Call: WRITE	Prompt: $C(7),!!?4,"Expiration date exceeds allowable limit !",! Line Location: A+0
Routine Call	DIE Line Location: DIE+2

FileNo	Call Tags
^LRD(65 - [#65]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(65	CK+2, CK+3
^DIC(4 - [#4]	EN1+1
^LAB(66 - [#66]	EN+1
^LRD(65 - [#65]	LRBLJLG1+5, DIE, DIE+4, CK+1, EN1+2, Z, Z+1!, Z+2, Z+3
^LRO(69.2 - [#69.2]	DIE+5, FIX

Name	Field # of Occurrence
>> %	LRBLJLG1+5, EN1+2
>> A	LRBLJLG1+4, LRBLJLG1+5, ASK, FIX+1, FIX+2, H, Z
B	FIX+1!
B(	FIX+1*, FIX+2!
>> C	CK+1*, EN1+2, Z, Z+1, Z+2, Z+3
DA	DIE*, DIE+3, DIE+4, DIE+5!, CK+1
DIE	DIE*, DIE+5!
DR	DIE+1*, DIE+5!
DTIME	ASK
DUZ	Z+2
IOF	LRBLJLG1+3
>> LR(65	DIE*, DIE+4
>> LRA	DIE+5
>> LRAA	DIE+5, FIX
>> LRABO	DIE+5
LRB	END!
LRB(3	EN+2*, EN+3
LRB(6	EN+1, EN+3, END
LRB(7	EN+1*, EN+2, EN+3
>> LRC	DIE+5, EN+1
>> LRCAPA	LRBLJLG1+5
>> LRE	ASK*, DIE, DIE+5, FIX, CK, CK+1
>> LRF	CK, CK+1, CK+2, CK+3
>> LRH	DIE+5
>> LRI	LRBLJLG1+3, Z+2
>> LRK	EN+2, Z+1, Z+2
LRL	LRBLJLG1+3, WRK*, FIX+2!
LRL(	LRBLJLG1+4, DIE, DIE+5, WRK, FIX!, FIX+1, FIX+2, CK, CK+1
>> LRO	CK*, CK+1, CK+3
>> LRP	DIE+5, EN1+2*
>> LRRH	DIE+5
>> LRS	END*
>> LRW	LRBLJLG1+3
>> LRX	WRK*
>> P	LRBLJLG1+3
U	DIE, DIE+4, Z+1
>> W	EN1+2*, Z+1
>> W(11	Z+1*
>> W(5	Z+1*, Z+2
>> X	LRBLJLG1+4, DIE+4, FIX, FIX+1, EN+3, CK+1, CK+3, EN1+1, Z, Z+1
>> X1	EN+2*
>> X2	EN+2*
>> Y	LRBLJLG1+4, DIE+2, CK+4
>> Y(0	EN1+1
>> Z	EN+3, Z+1, Z+2*, Z+3
>> Z(0	EN+3*
>> Z(4	Z+1*, Z+3
>> Z(6	Z+1*, Z+3