Routine: LRBLDRR

Package	Total	Call Graph
Lab Service	9	(BAR,U)^LRBLB (,FRE)^LRBLDRR1 EN1^LRBLDRR2 D^LRBLU S^LRBLWD (D,SSN,V,YN)^LRU ^LRUMSG ^LRUTL X^LRUWK
VA Fileman	3	^DIC MIX^DIC1 FIELD^DID

Package	Total	Caller Graph
Lab Service	2	LRBLDED LRBLDRR

Entry Points

External References

Name	Field # of Occurrence
^DIC	ASK
MIX^DIC1	P+1
FIELD^DID	LRBLDRR+8, LRBLDRR+9, LRBLDRR+11, LRBLDRR+12
BAR^LRBLB	LRBLDRR+6
U^LRBLB	P
^LRBLDRR1	REST+25
FRE^LRBLDRR1	REST+14, REST+18, REST+21, SUPER
EN1^LRBLDRR2	REST+15
D^LRBLU	LRBLDRR+3
S^LRBLWD	LRBLDRR+4, LRBLDRR+5
D^LRU	S, REST+22
SSN^LRU	REST+10
V^LRU	E
YN^LRU	LRBLDRR+6, SUPER
^LRUMSG	SUPER+2
^LRUTL	LRBLDRR+3
X^LRUWK	LRBLDRR+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?20,"Review-label-release components",!!?20,LRAA(4),! Line Location: LRBLDRR+6
Function Call: WRITE	Prompt: !!?15,"STANDARD UNIT ID LABELING " Line Location: LRBLDRR+6
Function Call: READ	Prompt: "Select UNIT FOR LABEL/RELEASE: " Formatting: !! Timeout: DTIME Variable: X Line Location: P+0
Function Call: WRITE	Prompt: ! Line Location: P+1
Function Call: WRITE	Prompt: !,$C(7),"Someone else is editing this entry! " Line Location: P+3
Function Call: WRITE	Prompt: @IOF Line Location: REST+7
Function Call: WRITE	Prompt: $C(7) Line Location: REST+7
Function Call: WRITE	Prompt: "For: " Line Location: REST+8
Function Call: WRITE	Prompt: $P(X,"^")," ",SSN Line Location: REST+8
Function Call: WRITE	Prompt: $S(LRQ("S")="A":"AUTOLOGOUS ",LRQ("S")="D":"DIRECTED ",1:" ") Line Location: REST+9
Function Call: WRITE	Prompt: "For: " Line Location: REST+10
Function Call: WRITE	Prompt: $P(X,"^")," ",HRCN Line Location: REST+10
Function Call: WRITE	Prompt: ?53,"Unit: ",LRG Line Location: REST+11
Function Call: WRITE	Prompt: !,"Unit testing:",?70,"Tech" Line Location: REST+12
Function Call: WRITE	Prompt: $C(7),!,"Must perform ABO/Rh testing !!",! Line Location: REST+14
Function Call: WRITE	Prompt: $C(7),!,"Donor ABO (",LRQ(5),") is different from unit ABO (",LRJ(10),"). Resolve discrepancy." Line Location: REST+16
Function Call: WRITE	Prompt: $C(7),!,"Donor Rh (",LRQ(6),") is different from unit Rh (",$E(LRJ(11),1,3),"). Resolve discrepancy." Line Location: REST+17
Function Call: WRITE	Prompt: $C(7),!!,"No components prepared !",! Line Location: REST+21
Function Call: WRITE	Prompt: !!,"Donation: ",LRJ(1),?36,"Collection completed: ",Y,!?5,"Component",?36,"Date/time stored",?58,"Expiration date" Line Location: REST+22
Function Call: WRITE	Prompt: !,$J(A,2),".",?5,$P(F(A),U,4),?27,$S(L=2:"Discard",L=1:"Quarant",$P(F(A),U,3)]"":"released",$P(F(A),U,2)]"":"labeled",1:""),?36,$P(F(A),U,5),?58,$P(F(A),U,6) Line Location: REST+23
Function Call: WRITE	Prompt: $C(7),!!,LRN(6.1),": ",LRJ(6.1) Line Location: REST+24
Function Call: WRITE	Prompt: !!,"If you continue with label/release of ",LRG," a message will be",!,"sent to all users holding the blood bank supervisor's key.",!,"Do you want to continue with label/release of ",LRG Line Location: SUPER+0
Function Call: WRITE	Prompt: W Line Location: W+0
Function Call: WRITE	Prompt: !?5,LRN(A),?36,": ",LRJ(A),?70,$S(LRE(A)="":"",$D(^VA(200,LRE(A),0)):$P(^(0),"^",2),1:LRE(A)) Line Location: W+0
Function Call: WRITE	Prompt: !?5,LRN(A),?36,": ",LRJ(A),?70,$S(LRE(A)="":"",$D(^VA(200,LRE(A),0)):$P(^(0),"^",2),1:LRE(A)) Line Location: W+0
Routine Call	DIC Line Location: ASK

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LRE - [#65.5]	Classic Fileman Calls
65.54	FIELD^DID

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	REST+10
^LAB(66 - [#66]	S
^LAB(69.9 - [#69.9]	LRBLDRR+5
^LR - [#63]	REST+10
^LRE - [#65.5]	P+3, P+4, REST, REST+2, REST+3, REST+20, ASK+1
^LRE("C"	P+3
^VA(200 - [#200]	W
^XUSEC("LRBLSUPER"	REST+18

Label References

Name	Line Occurrences
ASK	P+2
E	LRBLDRR+3, LRBLDRR+4, LRBLDRR+6, P+1
P	P+1, P+2, P+3, P+4
REST	P+2, P+4
S	REST+20
SUPER	REST+19
W	REST+12, REST+13

Naked Globals

Name	Field # of Occurrence
^(	REST, REST+2, REST+3, REST+20
^(0	LRBLDRR+5, W
^(2	REST
^(5	REST

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LRBLDRR+6, SUPER
>> A	LRBLDRR+7, LRBLDRR+8, LRBLDRR+9, LRBLDRR+10, LRBLDRR+11, LRBLDRR+12, S, S+1, REST, REST+1 , REST+2, REST+3, REST+5, REST+6, REST+12, REST+13, REST+15, REST+20, REST+22, REST+23 , W
>> B	S+1, REST+2, REST+3, REST+5, REST+6, REST+20, REST+21, REST+23
>> D	P+1*
>> DFN	REST+10*
DIC	P+1!, ASK!
DIC("A"	ASK*
DIC(0	P+1, ASK
DTIME	P
DUZ	REST+18
F	S*, S+1, REST+20!
F(	S+1*, REST+23
>> HRCN	REST+10
IOF	REST+7
>> L	REST+23*
>> LR	LRBLDRR+6, P
>> LR("KEY"	SUPER+1*
>> LR("M"	LRBLDRR+3*
>> LR("SUB"	SUPER+1*
>> LR("TXT"	SUPER+1*
>> LR(3	LRBLDRR+6*
>> LRA	LRBLDRR+5*, REST+15
>> LRAA(4	LRBLDRR+6
>> LRB(	LRBLDRR+8, LRBLDRR+11, REST+5, REST+6
>> LRB("POINTER"	LRBLDRR+8, LRBLDRR+11
>> LRCAPA	LRBLDRR+4, LRBLDRR+5
LRD	REST+16, REST+17, REST+18, REST+19!
>> LRDPF	REST+10*
>> LRE(	REST+1, REST+2, REST+3*, W
>> LRG	P+4, REST+11, SUPER, SUPER+1, ASK+1
>> LRH(	LRBLDRR+10, REST+3, REST+6, REST+13
>> LRI	P+3, P+4, REST, REST+2, REST+3, REST+20, ASK+1
>> LRJ(	REST, REST+1, REST+2, REST+3, REST+4, REST+5, REST+6*, REST+24, W
>> LRJ(1	REST+4*, REST+22
>> LRJ(10	REST+4, REST+14, REST+16
>> LRJ(11	REST+4, REST+14, REST+17
>> LRN(	LRBLDRR+9, LRBLDRR+12, REST+24, W
>> LRN("LABEL"	LRBLDRR+9, LRBLDRR+12
>> LRQ	P+3, P+4, REST, REST+2, REST+3, REST+20, ASK, ASK+1
>> LRQ("D"	REST*, REST+10
>> LRQ("S"	REST*, REST+7, REST+9
>> LRQ("X"	P+1*
>> LRQ(5	P+1*, REST+16
>> LRQ(6	P+1*, REST+17
LRT	LRBLDRR+4!
>> LRV	REST*
>> LRW(	REST+1, REST+2, REST+3*, W
LRY	REST+19!, SUPER*
>> S	S*, S+1
>> SSN	REST+10*
>> T	REST*, REST+22
U	P+1, REST+3, REST+23, ASK+1
>> V	REST+4*, REST+24
>> V(10	REST+4*
>> V(11	REST+4*
>> V(12	REST+4*
>> W	REST+4*
>> X	LRBLDRR+3, LRBLDRR+4, P, P+1, P+2, P+3, S, S+1, REST, REST+4 , REST+5, REST+6, REST+10, REST+20, ASK
>> Y	LRBLDRR+3, LRBLDRR+4, LRBLDRR+5, P+1, P+2, P+3, S, S+1, REST+10, REST+22* , ASK*, ASK+1
>> Y(0	P+1

Customize PDF page

Package: Lab Service

Routine: LRBLDRR

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: