Routine: OOPSPRT2

Entry Points

Name	Comments	DBIA/ICR reference
EN1(CALLER)	; ; Input: ; Caller O = Safety Officer ; S = Supervisor ; E = Employee ;
EXIT	;
FORM()	;Select a form to print
SELECT(CALLER)	; Select a case to print
EMP(IEN)	; Employee
SUP(IEN)	; Supervisor
SAF(IEN)	; Safety Officer
DEVICE	; This is the device selection routine.
PRINT	; This is the main print portion of the routine
END	; exit the report

Name	Line Occurrences
Function Call: WRITE	Prompt: !," 1) Injury (CA1)" Line Location: FORM+5
Function Call: WRITE	Prompt: !," 2) Illness (CA2)" Line Location: FORM+6
Function Call: WRITE	Prompt: ! Line Location: FORM+7
Routine Call	%ZIS Line Location: DEVICE+2
Routine Call	%ZIS Line Location: DEVICE+8
Routine Call	DIC Line Location: SELECT+20
Routine Call	DIR Line Location: FORM+11

FileNo	Call Tags
^OOPS(2260 - [#2260]	Classic Fileman Calls, GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^OOPS(2260 - [#2260]	SELECT+11
^VA(200 - [#200]	SELECT+8, SELECT+10

Name	Field # of Occurrence
>> %ZIS	DEVICE+2*
CALLER	EN1~, EN1+8, SELECT~, SELECT+9, SELECT+16, SELECT+17, SELECT+18
CASE	EN1+6~, EN1+9, EN1+10, SELECT+5~, SELECT+6, SELECT+9, SELECT+11, SELECT+22*, SELECT+24, PRINT+3
DIC	SELECT+14~, SELECT+15*
DIC("A"	SELECT+19*
DIC("S"	SELECT+16, SELECT+17, SELECT+18*
DIC(0	SELECT+19*
DIR	FORM+4~
DIR("?"	FORM+10*
DIR("A"	FORM+9*
DIR(0	FORM+8*
>> DTOUT	SELECT+21
>> DUOUT	SELECT+21
DUZ	SELECT+7, SELECT+8, SELECT+10, SUP+4
FORM	EN1+6~, EN1+9, EN1+10, FORM+1~, FORM+12, FORM+13, FORM+14, DEVICE+4, PRINT+1, PRINT+2 , PRINT+3
IEN	EN1+8, EN1+9, EN1+10, SELECT+5~, SELECT+6, EMP~, EMP+4, SUP~, SUP+4, SAF~
IO("Q"	EXIT+1!, DEVICE+3
OUT	EN1+6~, EN1+7, DEVICE+2
>> POP	DEVICE+2
SSN	SELECT+5~, SELECT+10*, SELECT+11, EMP+4
U	EN1+10, SELECT+10
VIEW	EMP+1~, EMP+2, EMP+3, EMP+4, EMP+5, SUP+1~, SUP+2, SUP+3, SUP+4, SUP+5 , SAF+1~, SAF+2, SAF+3, SAF+4
X	SELECT+14~
Y	FORM+4~, SELECT+14~, SELECT+21*, SELECT+22, EMP+3, SUP+3, SAF+3
Y(0	FORM+12, FORM+13
>> ZTDESC	DEVICE+4*
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
>> ZTRTN	DEVICE+4*
>> ZTSAVE("CASE"	DEVICE+6*
>> ZTSAVE("FORM"	DEVICE+7*
>> ZTSAVE("OUT"	DEVICE+5*