Routine: LRAPSWK

Package	Total	Call Graph
Lab Service	1	(A,W)^LRUWK

Package	Total	Caller Graph
Lab Service	7	LRAPDA LRAPED LRAPLG1 LRAPM LRAPMRL LRAPRES LRAUAW

Entry Points

Name	Field # of Occurrence
A^LRUWK	SP, EM, AU
W^LRUWK	SP, CY, EM

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+7, LRAPSWK+8
^LAM("E"	SP, CY, EM
^LR - [#63]	LRAPSWK+5, SP1, EM1, EM1+1, AU1, AU1+1, AU2, CK, CK+1, D , C1+3
^LRO(68 - [#68]	LRAPSWK+4, LRAPSWK+9, 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+5, SP1, EM1, AU1, AU2*, CK+1, D, C1+3
^(0	LRAPSWK+4, 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+5, SP1, EM1, EM1+1, AU1, CK+1, D, C1+3*
>> A(1	LRAPSWK+5, LRAPSWK+7, LRAPSWK+8, CAP, CAP+1, C1+2, C1+4, STF1+6, STF1+7, STF1+9
>> A(2	LRAPSWK+5*, SP1
>> B	AU1, AU2, CK+1, D, C1+3
>> C	LRAPSWK+6, LRAPSWK+7, LRAPSWK+8, 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+4, LRAPSWK+9, AU1, STF, STF+1, CAP, CAP+1, SET, STF1, STF1+1 , STF1+2, STF1+3, STF1+4, STF1+7, STF1+9
>> LRAD	LRAPSWK+4, LRAPSWK+9, STF, STF+1, CAP, CAP+1, SET, STF1, STF1+1, STF1+2 , STF1+3, STF1+4, STF1+7, STF1+9
>> LRAN	LRAPSWK+4, LRAPSWK+9, STF, STF+1, CAP, CAP+1, SET, STF1, STF1+1, STF1+2 , STF1+3, STF1+4, STF1+7, STF1+9
>> LRDFN	LRAPSWK+5, SP1, EM1, EM1+1, AU1, AU1+1, AU2, CK, CK+1, D , C1+3
>> LRI	LRAPSWK+5, SP1, EM1, EM1+1, CK, CK+1, D, C1+3
>> LRK	LRAPSWK+4*
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+4, STF, CAP, STF1, STF1+7, STF1+9
>> LRSOP	C1+1
>> LRSS	LRAPSWK+5, LRAPSWK+6, LRAPSWK+7, CK, CK+1, D, C1+1, C1+2, C1+3
>> LRT	LRAPSWK+7, LRAPSWK+8, LRAPSWK+9, 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+6, 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*

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