Routine: LRARCR1

Package	Total	Call Graph
VA Fileman	4	^DIC WAIT^DICD YN^DICN ^DIR
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Lab Service	3	(ACCN,CAP,COLL,CONTROL,DATE,INSTR,IOPAT,LOC,REPTYP,SPEC,STAT,TEST)^LRARCR1A ^LRARCR2 CLEAN^LRARCR4

Entry Points

Name	Comments	DBIA/ICR reference
A
C
B
I
LRINST	;
L	;
ASK	;
TRIAL	; entry point for work load lookup
S
EN	;
QUE	;
GO	;
EXIT	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Do you want to look up by Specimen Type and/or Collection Sample" Line Location: TRIAL+4
Function Call: WRITE	Prompt: !,"Do you want to select by TESTS or WKLD CODES (YES or NO )" Line Location: A+0
Routine Call	DIC Line Location: LRINST+9
Routine Call	DIR Line Location: LRINST+6 TRIAL+8 L+7 ASK+7
Routine Call	%ZIS Line Location: L+8

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	LRINST+2, LRINST+9
^TMP("LRAR"	EN+1!
^XMB(1 - [#4.3]	LRINST+1

Name	Line Occurrences
@(	TRIAL+8
A	TRIAL+5, C
ASK	A+2
EN	TRIAL+1
EXIT	TRIAL+1, TRIAL+2, TRIAL+3, TRIAL+5, TRIAL+8, B, C, S, A+1, A+2 , A+4, A+5, I, L+1, L+2, L+3, L+4, L+5, L+7, L+8
I	A+2
L	A+3, A+4
LRINST	TRIAL+1
QUE	L+8
TRIAL	GO+1

Name	Field # of Occurrence
^(0	LRINST+9

Name	Field # of Occurrence
>> %	TRIAL+3, TRIAL+5, A+1, A+2, L+1
%DT	EN+1!
>> %ZIS	L+8*
DIC	EN+1!, LRINST+8*, A+2!
DIC("A"	LRINST+8*
DIC(0	LRINST+8*
DIR	EN+2!, LRINST+3!, TRIAL+1!, A+2!, L+6!, L+7!
DIR("?"	LRINST+5, TRIAL+7, ASK+2, ASK+3, ASK+4, ASK+5, ASK+6*
DIR("A"	LRINST+4, L+6, ASK+1*
DIR(0	LRINST+3, TRIAL+6, L+6, ASK+1
>> DTOUT	LRINST+6, TRIAL+1, TRIAL+8, B, C, S, A+2, A+4, A+5, I , L+1, L+2, L+3, L+7
>> DUOUT	LRINST+6, TRIAL+1, TRIAL+8, B, C, S, A+2, A+4, A+5, I , L+1, L+2, L+3, L+7
IO	L+10
IO("Q"	L+8!
ION	QUE+1
>> LRANS	L+7*
LRCAPS	EN+1!, EN+3*, QUE+4
LRCOL	EN+1!, EN+3*, QUE+3
LRCPSX	EN+1!, EN+3*, QUE+5
>> LREND	EN+3, L+4, L+5, QUE+7, EXIT+1*
>> LRIOPAT	EN+4*
LRLOC	EN+1!, EN+3*, QUE+5
>> LRSITE	LRINST+2*, QUE+2
>> LRSITNUM	LRINST+1*, LRINST+2
LRSITSEL	EN+2!, LRINST+3, LRINST+9
LRSITSEL(	LRINST+9*
LRSP	EN+1!, EN+3*, QUE+3
>> LRTST	QUE+4
LRTSTS	EN+1!, EN+3*
>> POP	L+8
U	LRINST+1, LRINST+2, LRINST+9
>> Y	LRINST+7, LRINST+9, TRIAL+2, TRIAL+3, TRIAL+8, A+3, A+4, L+7
>> ZTDESC	QUE+1*
>> ZTIO	QUE+1*
>> ZTRTN	QUE+1*
>> ZTSAVE("LR*"	QUE+1*
>> ZTSAVE("LRCAPS*"	QUE+4*
>> ZTSAVE("LRCOL*"	QUE+3*
>> ZTSAVE("LRCPSX*"	QUE+5*
>> ZTSAVE("LRLOC*"	QUE+5*
>> ZTSAVE("LRSITE*"	QUE+2*
>> ZTSAVE("LRSP*"	QUE+3*
>> ZTSAVE("LRTST*"	QUE+4*