Routine: LRBLDRR1

Information

LRBLDRR1 ;AVAMC/REG/CYM - LABEL-RELEASE COMPONENTS COND'T ;11/5/97 09:28 ;

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Lab Service	5	(A,T)^LRBLB (,EN)^LRBLDRR2 ^LRBLW SET^LRBLWD YN^LRU
VA FileMan	1	^%DT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
Lab Service	3	LRBLDRR LRBLJDA LRBLPED2

Entry Points

Name	Comments	DBIA/ICR reference
A
X
B
B1
B2
B3
F
L
EN	;from LRBLJD,LRBLPED2
FRE

External References

Name	Field # of Occurrence
^%DT	X+6
A^LRBLB	X
T^LRBLB	X+1
^LRBLDRR2	A+7, A+10, X+4
EN^LRBLDRR2	A+4
^LRBLW	X+17
SET^LRBLWD	L
YN^LRU	A+4, A+7, A+13, X+4

Interaction Calls

Name	Line Occurrences
Function Call: READ	Variable: X Timeout: DTIME Line Location: A+0
Function Call: WRITE	Prompt: !!,"Select COMPONENT by number (",B," choice",$S(B=1:"",1:"s"),"): " Line Location: A+0
Function Call: WRITE	Prompt: $C(7),!?5,"Enter a number up to ",B Line Location: A+1
Function Call: WRITE	Prompt: " ",$P(F(X),U,4) Line Location: A+2
Function Call: WRITE	Prompt: $C(7),!,"No Date/time Stored &/or Expiration date entered." Line Location: A+2
Function Call: WRITE	Prompt: !,"Do you want to delete DISPOSITION " Line Location: A+4
Function Call: WRITE	Prompt: !,"Component already released to inventory" Line Location: A+5
Function Call: WRITE	Prompt: !,"QUARANTINE or DISCARD component " Line Location: A+7
Function Call: WRITE	Prompt: !!?15,$C(7),"Component should not be released- Unit quarantined.",! Line Location: A+10
Function Call: WRITE	Prompt: $C(7),!!,"Testing not completed. OK to continue " Line Location: A+13
Function Call: WRITE	Prompt: !,$C(7),"Since you labeled component someone else must release to inventory" Line Location: A+14
Function Call: WRITE	Prompt: $C(7),!,"No expiration date entered for component" Line Location: A+15
Function Call: READ	Formatting: !?14 Prompt: "ABO/Rh LABEL: " Variable: X Timeout: DTIME Line Location: X+0
Function Call: WRITE	Prompt: !,$C(7),"No such ABO/Rh bar code",! Line Location: X+0
Function Call: WRITE	Prompt: $C(7),!!,"ABO/Rh label does NOT match ABO/Rh of unit",! Line Location: X+2
Function Call: WRITE	Prompt: $C(7),!,"Cannot release autologous unit without assigning unit to a patient." Line Location: X+3
Function Call: WRITE	Prompt: !,"OK to release component " Line Location: X+4
Function Call: WRITE	Prompt: !,"Component in inventory" Line Location: X+5
Function Call: WRITE	Prompt: $C(7),!!,"I can't do this now... Someone else has this record. Try again later...",!! Line Location: X+6
Function Call: WRITE	Prompt: $C(7),!,"I cannot ADD the Antigen typings to the Inventory file. Someone else is editing this record...",!!,"Use the Inventory-Unit Phenotyping option to enter typing results ",!! Line Location: B+0
Function Call: WRITE	Prompt: $C(7),!,"I cannot DELETE the Antigen typings from the Inventory file. Someone else is editing this record...",!!,"Use the Inventory-Unit Phenotyping option to enter typing results",!! Line Location: B1+0
Function Call: WRITE	Prompt: $C(7),!,"I cannot ADD the HLA Antigen typings to the Inventory file. Someone else is editing this record...",!!,"Use the Inventory-Unit Phenotyping option to enter typing results ",!! Line Location: B2+0
Function Call: WRITE	Prompt: $C(7),!,"I cannot DELETE the HLA Antigen typings from the Inventory file. Someone else is editing this record...",!!,"Use the Inventory-Unit Phenotyping option to enter typing results ",!! Line Location: B3+0
Function Call: WRITE	Prompt: $C(7),!!,"I cannot add this unit to the ABO/Rh Testing Worksheet",!!,"Please be sure to add it manually when requesting the worksheet.",!! Line Location: EN+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(69.9 - [#69.9]	X+13
^LRD(65 - [#65]	X+5, X+6, X+7, X+10, X+11, X+12, X+13, X+15, B, B+1 , B+2, B+3, B1, B1+1, B1+2, B1+3, B2, B2+1, B2+2, B2+3 , B3, B3+1, B3+2*, B3+3
^LRE - [#65.5]	A+10, A+15, X+3, X+9, X+14, X+15, B+1, B1+1, B2+1, B3+1 , L, FRE
^LRO(69.2 - [#69.2]	EN+1, EN+2*
^XUSEC("LRBLSUPER"	A+4

Label References

Name	Line Occurrences
A	A+1
B	X+16
B1	B
B2	B1
B3	B2
EN	F
F	B3
FRE	A, A+2, A+4, A+5, A+7, A+10, A+13, A+14, A+15, X+3 , X+4, X+5, L+1
L	A+7
X	X, X+1, X+2

Naked Globals

Name	Field # of Occurrence
^(	EN+2*
^(0	X+10, X+14, EN+2*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	A+4, A+7, A+13, X+4, L*
>> %DT	X+6*
>> A	A+8, A+9, A+11, A+12, X+16, B+1, B1+1, B2+1, B3+1*
>> A(1	A+8, A+9
>> B	A, A+1, X+7, B+1, B+2, B1+1, B1+2, B2+1, B2+2, B3+1* , B3+2
>> C	A+3*, A+15, X+5, X+9, X+10, X+11, X+14
>> C(9	A+3*, X+16
DTIME	A, X
DUZ	A+4, A+14, X+14, L
DUZ(2	X+10, X+11
>> E	A+15*, X+10, X+11, X+14
>> F(	A+2, A+3, A+4, A+5, A+6, L
>> LR	A+7, A+14, X
>> LR(2	X
>> LRA	X+15, F
>> LRAA	EN+1, EN+2
>> LRABO	X*, X+1, X+2
>> LRB(	A+8, A+9
>> LRCAPA	X+16, X+17, L
>> LRG	X+5, X+10, X+11, X+13
>> LRH(	A+9, A+12
>> LRI	A+10, A+15, X+3, X+9, X+14, X+15, L, FRE
>> LRJ(	A+8, A+9, A+11, A+12
>> LRK	X+10*
>> LRQ	A+10, A+15, X+3, X+9, X+14, X+15, B+1, B1+1, B2+1, B3+1 , L, FRE
>> LRQ("D"	X+12
>> LRQ("S"	A+10, X+12
>> LRQ("X"	A+10, A+13, X+10, X+12
>> LRRH	X+2
LRT	X+16*, X+17!
LRT(	X+16*
>> LRV	X+10
>> LRW("LG"	X+16
>> LRX	X+7*, X+10, X+11, X+12, X+13, X+15, B, B+1, B+2, B+3 , B1, B1+1, B1+2, B1+3, B2, B2+1, B2+2, B2+3, B3, B3+1 , B3+2, B3+3, EN+2
NODE	X+8~, X+9*
U	A, A+2, A+4, A+5, A+6, X, X+7, X+9, X+10, X+14
>> V(10	X+10
>> V(11	X+10
>> V(12	X+2
VOL	X+8~, X+9*, X+10
X	A, A+1, A+2, A+3, A+4, A+5, A+6, A+8, A+9, A+10 , A+11, A+12, A+13, X!, X+1, X+2, X+3, X+6, X+10, X+13* , X+14*, L
>> Y	X+10, X+11, X+14, L, EN+2
>> Y(1	A+6*, A+7, A+14

Customize PDF page

Package: Lab Service