Routine: LRLABLDS

Package	Total	Caller Graph
Lab Service	2	LRLABLD0 LRUFCLS

Entry Points

Name	Comments	DBIA/ICR reference
CHK	; Check order for collection type/status/date-time
EN	;
QUE	;
CLEAN	;
GET

Name	Line Occurrences
Function Call: WRITE	Prompt: !?10,"Number does not exist",!,$C(7) Line Location: EN+8
Function Call: WRITE	Prompt: ! Line Location: GET+9
Function Call: WRITE	Prompt: !,$C(7),"Can not print label for Order Number: ",$P($G(^LRO(69,LRODT,1,LRSN,.1),"Unknown"),U) Line Location: CHK+16
Function Call: WRITE	Prompt: !,?26,"Specimen #: ",LRSN Line Location: CHK+17
Function Call: WRITE	Prompt: !,?5,"Reason - ",LRMSG,! Line Location: CHK+18
Routine Call	DIR Line Location: EN+6 GET+11
Routine Call	%ZIS Line Location: GET+14

FileNo	Call Tags
69.01	EXTERNAL^DILFD

Name	Line Occurrences (* Changed, ! Killed)
^LRO(69 - [#69]	EN+4, EN+8, GET+2, GET+3, GET+4, QUE+3, QUE+4, CHK+11, CHK+16
^TMP($J	EN+2!

Name	Field # of Occurrence
%ZIS	GET+14!*
A	CLEAN+2!
DA	GET!, GET+5*, CLEAN+2!
DA(1	GET+5*
DIC	EN+1~, GET+5*, CLEAN+2!
DIR	EN+1~, GET+9!
DIR("?"	EN+5*
DIR("A"	EN+4, GET+10
DIR("B"	GET+10*
DIR(0	EN+4, GET+10
DIRUT	EN+1~, EN+7, GET+12
DTOUT	EN+1~
DX	CLEAN+2!
IO	QUE+1
IO("Q"	GET+16
IO(0	CHK+15
LRBATCH	EN+1~, EN+3*, CHK+13
>> LRDFN	QUE+7*
>> LREND	GET+1, GET+7, QUE+2, QUE+6, CHK+2, CHK+3, CHK+4, CHK+5, CHK+6, CHK+7 , CHK+12, CHK+13
LRMSG	CHK+1~, CHK+3, CHK+4, CHK+5, CHK+6, CHK+12*, CHK+18
>> LRODT	GET+2*, GET+3, GET+4, GET+5, QUE+3, QUE+4, CHK+11, CHK+16
LROK	EN+1~, GET+1, GET+7, GET+8, QUE+2, QUE+5, QUE+6, QUE+8, CHK+8~, CHK+9 , CHK+11*, CHK+12
>> LRORDN	EN+9*, GET+2, GET+3, QUE+3
>> LRPICK	EN+3*, CHK+14
>> LRSING	EN+3*
>> LRSN	GET+1, GET+3, GET+4, GET+5, QUE+2, QUE+3, QUE+4, CHK+11, CHK+16, CHK+17
>> LRSN(0	GET+4, QUE+4, QUE+7, CHK+3, CHK+4
>> LRSN(1	GET+4, QUE+4, CHK+5, CHK+6
LRTEST	CHK+8~, CHK+10, CHK+11
>> POP	GET+15
U	CHK+3, CHK+4, CHK+5, CHK+6, CHK+11, CHK+16
>> Y	EN+8, EN+9, GET+13
>> ZTDESC	GET+17*
>> ZTQUEUED	QUE+5, QUE+9, CHK+14
>> ZTRTN	GET+17*
>> ZTSAVE("LR*"	GET+18*