Name	Comments	DBIA/ICR reference
SP1
EM1
AU1
AU2
STF
CAP
SP
CY
EM
AU
CK
C	;count number of specimens, called by LRAPED,LRAPDA,LRAPM
D
C1	; Workload code count update SURG PATH, CYTO or EM specimens
SET
STF1
OUT

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No SPECIMEN entered." Line Location: CK+0
Function Call: WRITE	Prompt: ! Condition for execution: B=1 Line Location: CK+1
Function Call: WRITE	Prompt: !,"WORKLOAD PROFILE NOT ENTERED FOR ",$P(X,U) Line Location: CK+1

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	LRAPSWK+5, LRAPSWK+6
^LAM("E"	SP, CY, EM
^LR - [#63]	LRAPSWK+3, SP1, EM1, EM1+1, AU1, AU1+1, AU2, CK, CK+1, D , C1+3
^LRO(68 - [#68]	LRAPSWK+2, LRAPSWK+7, STF, STF+1, CAP, CAP+1, SET, STF1, STF1+1, STF1+2 , STF1+3, STF1+4, STF1+7, STF1+9*
^LRO(69.2 - [#69.2]	AU1

Name	Field # of Occurrence
^(	LRAPSWK+3, SP1, EM1, AU1, AU2*, CK+1, D, C1+3
^(0	LRAPSWK+2, STF, STF+1, CAP, CAP+1, STF1, STF1+1, STF1+2, STF1+3, STF1+4 , STF1+7
^(1	SP1, EM1, AU2*

Name	Field # of Occurrence
>> A	LRAPSWK+3, SP1, EM1, EM1+1, AU1, CK+1, D, C1+3*
>> A(1	LRAPSWK+3, LRAPSWK+5, LRAPSWK+6, CAP, CAP+1, C1+2, C1+4, STF1+6, STF1+7, STF1+9
>> A(2	LRAPSWK+3*, SP1
>> B	AU1, AU2, CK+1, D, C1+3
>> C	LRAPSWK+4, LRAPSWK+5, LRAPSWK+6, CAP, CAP+1, STF1+3, STF1+4, STF1+7, STF1+9
DUZ	STF, CAP, STF1, STF1+7, STF1+9
DUZ(2	CAP, STF1+7, STF1+9
E	AU1!*, AU1+1, AU2
>> LRAA	LRAPSWK+2, LRAPSWK+7, AU1, STF, STF+1, CAP, CAP+1, SET, STF1, STF1+1 , STF1+2, STF1+3, STF1+4, STF1+7, STF1+9
>> LRAD	LRAPSWK+2, LRAPSWK+7, STF, STF+1, CAP, CAP+1, SET, STF1, STF1+1, STF1+2 , STF1+3, STF1+4, STF1+7, STF1+9
>> LRAN	LRAPSWK+2, LRAPSWK+7, STF, STF+1, CAP, CAP+1, SET, STF1, STF1+1, STF1+2 , STF1+3, STF1+4, STF1+7, STF1+9
>> LRDFN	LRAPSWK+3, SP1, EM1, EM1+1, AU1, AU1+1, AU2, CK, CK+1, D , C1+3
>> LRI	LRAPSWK+3, SP1, EM1, EM1+1, CK, CK+1, D, C1+3
>> LRK	LRAPSWK+2*
LRL	C+1!, D, C1+2, C1+3!, C1+4, STF1+6
LRL(	C1+3*, C1+4
LRL(1	C1+2*
>> LRM	C+1, D, C1+2
LRN	C+1!
LRN(	D*, C1+4
>> LRRC	LRAPSWK+2, STF, CAP, STF1, STF1+7, STF1+9
>> LRSOP	C1+1
>> LRSS	LRAPSWK+3, LRAPSWK+4, LRAPSWK+5, CK, CK+1, D, C1+1, C1+2, C1+3
>> LRT	LRAPSWK+5, LRAPSWK+6, LRAPSWK+7, STF, STF+1, CAP, CAP+1, CY, C1+4, SET , STF1, STF1+2, STF1+3, STF1+4, STF1+7, STF1+9
LRTALLY	STF1+4~, STF1+5*, STF1+6, STF1+9
>> LRW("G"	EM1, EM1+1
>> LRW("H&E"	SP1, AU2
>> LRW("S"	LRAPSWK+4, SP, CY, EM*, C1+2, STF1+3
>> LRW("SS"	EM1
U	CK+1, STF1+5
>> X	STF, CAP, CAP+1, SP, CY, EM, AU, CK+1, D, C1+3 , STF1+2, STF1+4, STF1+5, STF1+7*
>> Y	SP, CY, EM, CK, CK+1*

Routine: LRAPSWK