Routine: LRBLDT

Package	Total	Call Graph
Lab Service	7	(D,DT)^LRBLU EN^LRBLW (S,SET)^LRBLWD (D,V,YN)^LRU ^LRUMSG ^LRUTL X^LRUWK
VA Fileman	5	^DIC MIX^DIC1 FIELD^DID ^DIE $$EXTERNAL^DILFD

Package	Total	Caller Graph
Lab Service	1	LRBLDT

Entry Points

External References

Name	Field # of Occurrence
^DIC	ASK
MIX^DIC1	DNR
FIELD^DID	MSG+1, W
^DIE	REST+4
$$EXTERNAL^DILFD	REST+5, MSG+2
D^LRBLU	LRBLDT+3
DT^LRBLU	LRBLDT+4
EN^LRBLW	LRBLDT+4
S^LRBLWD	LRBLDT+4
SET^LRBLWD	REST+8
D^LRU	REST+3
V^LRU	LRBLDT+3, END
YN^LRU	SHOW, SHOW+2, R
^LRUMSG	MSG+4
^LRUTL	LRBLDT+3
X^LRUWK	LRBLDT+4

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: SEL+0
Function Call: WRITE	Prompt: !!,"Select test(s) by number: " Line Location: SEL+0
Function Call: WRITE	Prompt: !,"Enter one or more of the above numbers",!,"For 2 or more selections separate each with a ',' (ex. 12,13,15)",!,"Enter 'ALL' for all tests." Line Location: SEL+0
Function Call: WRITE	Prompt: $C(7),!,"No CONTROL CHARACTERS, LETTERS or more than 200 characters allowed." Line Location: SEL+2
Function Call: WRITE	Prompt: $C(7),!,"START with a NUMBER !!",! Line Location: SEL+3
Function Call: WRITE	Prompt: $C(7),!,"None of the listed tests selected, try again " Line Location: SHOW+0
Function Call: WRITE	Prompt: !,$J(A,3),") ",LRF(A) Line Location: SHOW+1
Function Call: WRITE	Prompt: !!,"Enter TEST COMMENT(s) " Line Location: SHOW+2
Function Call: WRITE	Prompt: ! Line Location: DNR+0
Function Call: WRITE	Prompt: $C(7),!!,"Complete DONOR ID must be entered (ex. If ID=H12345 then H123 unacceptable)." Line Location: DNR+1
Function Call: WRITE	Prompt: $C(7)," ",X," does not exist, try again" Line Location: DNR+3
Function Call: WRITE	Prompt: !!,$C(7),"Someone else is editing this record." Line Location: DNR+4
Function Call: WRITE	Prompt: !!,"UNIT#:",LRQ(1)," ABO:",W(5)," Rh:",W(6)," Donation date:",Y Line Location: REST+3
Function Call: WRITE	Prompt: $C(7),!?35,"Must have UNIT # to proceed." Line Location: REST+3
Function Call: WRITE	Prompt: ! Line Location: REST+4
Function Call: WRITE	Prompt: !,"One or more components were released. You may not edit existing test results." Line Location: REST+7
Function Call: WRITE	Prompt: $C(7),!!,LR("TXT",2,0) Line Location: MSG+4
Function Call: WRITE	Prompt: Q Line Location: SC+0
Function Call: WRITE	Prompt: Q Line Location: SC+1
Function Call: WRITE	Prompt: D Line Location: W+0
Function Call: WRITE	Prompt: !,$J(A,3),") ",LRA(A) Line Location: W+0
Routine Call	DIE Line Location: REST+4
Routine Call	DIC Line Location: ASK

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

Name	Line Occurrences (* Changed, ! Killed)
^LRE - [#65.5]	DNR+4, DNR+5, REST+2, REST+3, REST+5, ASK+1, CKRL, MSG+1
^LRE("AT"	R*, D!
^LRE("C"	DNR+3, REST+1
^XUSEC("LRBLSUPER"	REST+7, S+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LRBLDT+4, SHOW, SHOW+2, R*
>> A	LRBLDT+5, SHOW+1, REST+5, R, D, ALL, CKRL*, SC, SC+1, W
>> B	REST+5*
>> D	DNR*
DA	DNR!, REST+4*
DIC	DNR!, ASK!
DIC("A"	DNR, ASK
DIC("B"	DNR*
DIC(0	DNR, ASK
DIE	REST+4*!
DR	REST+4*!
DTIME	SEL
DUZ	REST+7, S+1
>> LR(	REST+4*, REST+8
>> LR("KEY"	MSG*
>> LR("SUB"	MSG*
>> LR("TXT"	REST+5, MSG, MSG+3*, MSG+4
>> LRA(	SEL+4, REST+5, ALL, W*
>> LRA("LABEL"	W
>> LRB	SEL+4, SHOW+2, DNR, REST+1*
LRC	SHOW+2*!
>> LRCAPA	LRBLDT+4, REST+8
>> LRF	SHOW
>> LRF(	SEL+4, SHOW+1, R, ALL
>> LRH(	SC+1
>> LRI	DNR+3, DNR+4, DNR+5, REST+3, REST+5, ASK+1, R, D, CKRL, MSG+1
>> LRK	LRBLDT+4
>> LRK("LRK"	LRBLDT+4*
>> LRM	S+1
>> LRQ	DNR+3, DNR+4, DNR+5, REST+2, REST+3, REST+4, REST+5, ASK, ASK+1, R , D, CKRL, MSG+1
>> LRQ(1	DNR+5, REST+3, ASK+1, R, D, MSG
LRR	DNR!, REST+5, REST+7, S+1, CKRL*
>> LRV	SEL+4*
LRZ	DNR!, REST+5*, REST+6!
NAME	MSG+1~*, MSG+3
NAME("LABEL"	MSG+1
TYPE	MSG+1~, MSG+2*, MSG+3
U	SEL, DNR, REST+2, S+1, ASK+1, MSG+1
>> W(5	REST+2*, REST+3
>> W(6	REST+2*, REST+3
>> X	LRBLDT+3, LRBLDT+4, SEL, SEL+1, SEL+2, SEL+3, SEL+4, DNR, DNR+2, DNR+3 , REST, REST+1, REST+2, REST+5, MSG+1, MSG+2
>> X(1	REST*
>> X(2	REST*, REST+1
>> X(3	REST*
>> Y	LRBLDT+3, LRBLDT+4, SEL+4, DNR+1, DNR+2, DNR+3, REST+3, REST+5, REST+8, S+1 , ASK, ASK+1
>> Z	S+1

Customize PDF page

Package: Lab Service

Routine: LRBLDT

Information

Source Information

Call Graph

Call Graph Total: 12

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
SC
ALL
END
D
SHOW
REST
MSG
S	;from LRBLDT input template only supervisor can edit data after release of components
R
CKRL
W
DNR
ASK
SEL

Name	Line Occurrences
ALL	SEL+1
ASK	DNR+2
CKRL	DNR+2, DNR+5
DNR	DNR+1, DNR+2, DNR+3, DNR+4, DNR+5
END	LRBLDT+3, LRBLDT+4, SEL, SHOW, SHOW+2, DNR
LRBLDT	SHOW, SHOW+2
MSG	REST+6
REST	DNR+2, DNR+5
SC	LRBLDT+5
SEL	SEL, SEL+2, SEL+3
SHOW	SEL+1
W	SC, SC+1