Global: ^ENG("FSA"

FileMan FileNo	FileMan Filename	Package
6924	FSA-2162 REPORT	Engineering

Package	Total	Routines
Engineering	6	^ENG("FSA" ENARG2 ENARG22 ENFSA ENX3IPS ^OFM(7336.9

Package	Total	FileMan Files
Engineering	3	FSA-ACCIDENT ACTIVITY(#6924.1)[24] FSA-ACCIDENT NATURE(#6924.2)[30] FSA-DIVISION/SERVICE(#6924.3)[25]

Fields, Total: 61

Field #	Name	Loc	Type	Details
.01	LOCAL ENGINEERING #	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X K:$L(X)>8!($L(X)<8)!'(X?8N)!(X'?.ANP) X I $D(X),$D(^ENG("FSA","B",X)) W !,*7,"Sorry, number already taken" K X` LAST EDITED: `FEB 23, 1998` HELP-PROMPT: `Answer must be 8 characters in length.` DESCRIPTION: `Computer generated record identfier in the form YYYYNNNN where YYYY is the four digit fiscal year and NNNN is a computer generated sequential number.` CROSS-REFERENCE: `6924^B` `1)= S ^ENG("FSA","B",$E(X,1,30),DA)=""` `2)= K ^ENG("FSA","B",$E(X,1,30),DA)`
1	CASE NUMBER	0;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<4)!'(X?4N) X` HELP-PROMPT: `ANSWER MUST BE 4 DIGITS IN LENGTH` DESCRIPTION: `Case number assigned by the site.` CROSS-REFERENCE: `6924^C` `1)= S ^ENG("FSA","C",$E(X,1,30),DA)=""` `2)= K ^ENG("FSA","C",$E(X,1,30),DA)`
2	REPORT TYPE	0;3	SET	'I' FOR INITIAL; 'S' FOR SUPPLEMENTAL; 'C' FOR CORRECTED; DESCRIPTION: `Type of transaction being processed.`
3	RESULT	0;4	SET	'P' FOR PROPERTY ONLY; 'I' FOR INJURY or ILLNESS; 'B' FOR BOTH; DESCRIPTION: `Result of the accident.`
4	ACCIDENT CLASS	0;5	SET	'A' FOR MOTOR VEHICLE; 'B' FOR LABORATORY; 'C' FOR OFFICE; 'G' FOR ASSEMBLY; 'J' FOR PATIENT CARE; 'L' FOR STORAGE; 'M' FOR GROUNDS; 'N' FOR DIETETICS; 'Z' FOR OTHER; DESCRIPTION: `Classification of accident being reported.`
5	OCCURRENCE DATE	0;6	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:4001200X) X` LAST EDITED: `FEB 25, 1998` HELP-PROMPT: `TYPE A DATE BETWEEN 1980 AND 2100` DESCRIPTION: `Date of accident.`
6	OCCURRENCE TIME	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<4)!'(X?4N) X` HELP-PROMPT: `ENTER MILITARY TIME (0000-2400 HRS.)` DESCRIPTION: `Time of accident (on a 24 hour clock).`
7	SITE	0;8	SET	'A' FOR ON REPORTING ACTIVITY PROPERTY; 'B' FOR OFF REPORTING ACTIVITY PROPERTY; DESCRIPTION: `Classification of accident location.`
7.5	SPECIFIC LOCATION	0;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>25!($L(X)<4) X` HELP-PROMPT: `ANSWER MUST BE 4-25 CHARACTERS IN LENGTH` DESCRIPTION: `Text description of location where accident happened.`
8	TORT CLAIM	0;10	SET	'Y' FOR YES, IS POSSIBLE; 'N' FOR NO, NOT POSSIBLE; DESCRIPTION: `Investigator's opinion as to whether or not legal action against the agency is likely because of this accident.`
9	LAST NAME OF INVOLVED	1;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>16!($L(X)<3)!'(X'?.C) X` HELP-PROMPT: `ANSWER MUST BE LAST NAME, 3-16 CHARACTERS IN LENGTH` DESCRIPTION: `Name of person affected by accident.` CROSS-REFERENCE: `6924^D` `1)= S ^ENG("FSA","D",$E(X,1,30),DA)=""` `2)= K ^ENG("FSA","D",$E(X,1,30),DA)`
10	FIRST/MIDDLE INITIALS	1;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<1)!'(X?.A) X` HELP-PROMPT: `ANSWER MUST BE 1-2 CHARACTERS IN LENGTH` DESCRIPTION: `First name and middle initial of person affected by accident.`
11	SSN	1;3	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<9)!'(X?9N."P") X` OUTPUT TRANSFORM: `$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9)` HELP-PROMPT: `ANSWER MUST BE 9DIGITS IN LENGTH, AFFIX 'P' FOR PSEUDO IF UNSURE` DESCRIPTION: `Social security number of person affected by accident.` CROSS-REFERENCE: `6924^E` `1)= S ^ENG("FSA","E",$E(X,1,30),DA)=""` `2)= K ^ENG("FSA","E",$E(X,1,30),DA)`
12	SEX	1;4	SET	'M' FOR MALE; 'F' FOR FEMALE; DESCRIPTION: `Sex of person affected by accident.`
13	PERSONNEL STATUS	1;5	SET	'A' FOR EMPLOYEE; 'B' FOR VOLUNTEER; 'C' FOR CONTRACTOR; 'D' FOR INPATIENT; 'E' FOR OUTPATIENT; 'F' FOR STUDENT; 'G' FOR VISITOR; 'Z' FOR PERSON N.E.C.; HELP-PROMPT: `SELECT CODE, N.E.C. MEANS NOT ELSEWHERE CLASSIFIED` DESCRIPTION: `Employment status of person affected by accident at the reporting facility.`
14	AGE	1;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99` DESCRIPTION: `Age of person affected by accident at time of accident.`
15	PAY PLAN	1;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2A) X` HELP-PROMPT: `ANSWER MUST BE 2 CHARACTERS IN LENGTH, (e.g. GS, WG, WS, etc.)` DESCRIPTION: `Pay plan of person affected by accident, if said person is a government employee.`
16	OCCUPATIONAL CODE	1;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<5)!'(X?5N) X` HELP-PROMPT: `ANSWER MUST BE 5 DIGITS IN LENGTH, (e.g. 00858)` DESCRIPTION: `Position classification (from position description).`
17	GRADE	1;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2N) X` HELP-PROMPT: `ANSWER MUST BE 2 DIGITS IN LENGTH, (e.g. 07)` DESCRIPTION: `Civil service pay grade of person affected by accident.`
18	HOME ADDRESS	2;0	WORD-PROCESSING #6924.01	DESCRIPTION: `Home address of person affected by accident.` HELP-PROMPT: `ENTER STREET, CITY, STATE, AND ZIP CODE`
19	HOME PHONE #	3;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<7)!'(X'?.C) X` HELP-PROMPT: `ANSWER MUST BE 7-12 CHARACTERS IN LENGTH (e.g. 215-555-1212)` DESCRIPTION: `Home phone number (including area code) of person affected by accident.`
20	WORK PHONE #	3;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>17!($L(X)<3)!'(X'?.C) X` HELP-PROMPT: `ANSWER MUST BE 3-17 CHARACTERS IN LENGTH` DESCRIPTION: `Work phone (or extension) of person affected by accident.`
21	CA1/CA2	3;3	SET	'Y' FOR YES; 'N' FOR NO; DESCRIPTION: `Is an Office of Workmen's Compensation claim being filed?`
22	TIME ON DUTY	3;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<1)!'(X?1N.N) X` HELP-PROMPT: `ENTER NEAREST NUMBER OF WHOLE HOURS ON DUTY` DESCRIPTION: `Time an employee had been on duty (in hours) when accident happened.`
23	DUTY STATUS	3;5	SET	'A' FOR FULL TIME EMPL ON DUTY; 'B' FOR TEMP EMPLOYEE ON DUTY; 'C' FOR PART TIME EMPL ON DUTY; 'D' FOR NON-PAID EMPL ON DUTY; 'Z' FOR STATUS N.E.C.; DESCRIPTION: `Official payroll status of person affected by accident.`
24	ACCIDENT ACTIVITY	3;6	POINTER TO FSA-ACCIDENT ACTIVITY FILE (#6924.1)	FSA-ACCIDENT ACTIVITY(#6924.1) HELP-PROMPT: `SELECT MOST APPROPRIATE ACTIVITY` DESCRIPTION: `Classification of accident in accordance with standardized schema.`
25	SERVICE/DIVISION #	3;7	POINTER TO FSA-DIVISION/SERVICE FILE (#6924.3)	FSA-DIVISION/SERVICE(#6924.3) DESCRIPTION: `Service affiliation of person affected by accident.`
26	SEVERITY OF INJURY	4;1	SET	'1' FOR NO TREATMENT REQUIRED; '2' FOR FIRST AID ONLY; '3' FOR MEDICAL TREATMENT ONLY; '4' FOR DIAGNOSIS OF ILLNESS; '5' FOR DISABLING; '8' FOR FATALITY; DESCRIPTION: `Extent of injury sustained.`
27	CULMINATION	4;2	SET	'1' FOR NO RESTRICTION; '2' FOR RESTRICTED; '4' FOR PERMANENT TRANSFER; '5' FOR TERMINATED; DESCRIPTION: `Outcome of accident with respect to employment status of person affected.`
28	RESTRICTED WORK DAYS	4;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<4)!'(X?4N) X` HELP-PROMPT: `ANSWER MUST BE 4 DIGITS IN LENGTH, (e.g. 0012)` DESCRIPTION: `Number of days for which person affected by accident was restricted from performance of normal duties.`
29	LOST WORK DAYS	4;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<4)!'(X?4N) X` HELP-PROMPT: `ANSWER MUST BE 4 DIGITS IN LENGTH, (e.g. 0004)` DESCRIPTION: `Number of days that person affected by accident was unable to report for work.`
30	INJURY/ILLNESS NATURE	4;5	POINTER TO FSA-ACCIDENT NATURE FILE (#6924.2)	FSA-ACCIDENT NATURE(#6924.2) DESCRIPTION: `Classification of accident or illness in accordance with standardized schema.`
31	BODY PART AFFECTED	4;6	SET	'01' FOR HEAD; '16' FOR CHEST OR ABDOMEN; '45' FOR BACK; '46' FOR SHOULDER/ARM/HAND; '61' FOR HIP/LEG/FOOT; LAST EDITED: `AUG 07, 1986` DESCRIPTION: `Indicator of anatomical region most affected by accident.`
32	CAUSE OF INJURY	4;7	SET	'A' FOR STRUCK AGAINST; 'B' FOR STRUCK BY; 'D' FOR SLIP/TRIP/FALL; 'F' FOR CAUGHT IN/UNDER OR BETWEEN; 'I' FOR ILLNESS; 'J' FOR OVER EXERTION; 'K' FOR ELECTRIC CURRENT; 'L' FOR EXTREME TEMPERATURE; 'M' FOR CHEMICALS; 'O' FOR RADIATION; 'T' FOR ASSULT; 'X' FOR CAUSE N.E.C.; LAST EDITED: `AUG 07, 1986` DESCRIPTION: `Indicator of type of accident.`
32.5	NEEDLE STICK?	4;8	SET	'Y' FOR YES INJURY INVOLVED NEEDLE; 'N' FOR NO INJURY DID NOT INVOLVE NEEDLE; LAST EDITED: `AUG 07, 1986` DESCRIPTION: `Is this accident an inadvertent skin puncture involving a hypodermic needle?`
33	PROPERTY OWNERSHIP	5;1	SET	'A' FOR VETERANS ADMINISTRATION; 'C' FOR OTHER FEDERAL AGENCY; 'H' FOR PRIVATE; 'L' FOR OWNERSHIP N.E.C.; DESCRIPTION: `Ownership of property (if any) involved in accident.`
34	AMOUNT OF DAMAGE	5;2	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X` LAST EDITED: `APR 29, 1993` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits` DESCRIPTION: `Estimate of damage resulting from the accident.`
35	PROPERTY DAMAGED	5;3	SET	'AA' FOR MOTOR VEHICLE; 'AG' FOR OTHER VEHICLE; 'EA' FOR BLDG./STRUCTURE; 'FA' FOR EQUIPMENT; 'GA' FOR SUPPLIES; 'IA' FOR FURNITURE; 'JA' FOR RECORDS; 'KA' FOR TREES/GRASS/PLANTS; 'BA' FOR BEDDING/CLOTHES; 'CA' FOR INTERIOR FINISH; 'HA' FOR TRASH/RUBBISH; 'ZA' FOR PROPERTY N.E.C.; DESCRIPTION: `Type of property (if any) damaged in the accident.`
36	YEAR MANUFACTURED	5;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2N) X` HELP-PROMPT: `ANSWER MUST BE 2 DIGITS IN LENGTH (e.g. 85)` DESCRIPTION: `Last two digits of year in which damaged property (if any) was manufactured.`
37	WEATHER FACTOR	6;1	SET	'A' FOR SNOW/ICE; 'B' FOR DUST STORM; 'C' FOR LIGHTNING; 'D' FOR HIGH TEMPERATURE; 'E' FOR LOW TEMPERATURE; 'F' FOR HUMIDITY; 'H' FOR FOG; 'J' FOR RAIN; 'N' FOR WIND STORM; 'P' FOR WEATHER N.E.C.; 'Z' FOR WEATHER NOT A FACTOR; DESCRIPTION: `Weather conditions at time of accident.`
38	SOURCE OF ACCIDENT	6;2	SET	'01AA' FOR UNPOWERED EQUIP/FURNISHINGS/SUPPLIES; '11AA' FOR POWERED EQUIP/APPLIANCES/MACHINES; '33AA' FOR BLDG MATERIAL, FEATURE OR CONDITION; '44AA' FOR TOXIC SUBSTANCE/RADIATION EXPOSURE; '77AA' FOR VEHICLE; '81AA' FOR PERSON; '82ZZ' FOR SOURCE N.E.C.; DESCRIPTION: `Causative agent of damage to people and/or property.`
39	CAUSE OF ACCIDENT	6;3	SET	'AA' FOR EQUIPMENT OR ENVIRONMENT; 'BA' FOR PERSON; 'CA' FOR NATURE; 'FA' FOR CAUSE UNKNOWN; DESCRIPTION: `Investigator's opinion as to principal cause of accident.`
40	ADDITIONAL CAUSE	6;4	SET	'AA' FOR EQUIPMENT OR ENVIRONMENT; 'BA' FOR PERSON; 'CA' FOR NATURE; 'ZZ' FOR NO ADDITIONAL CAUSE; DESCRIPTION: `Secondary cause of accident.`
41	FIRE-FORM OF IGNITION	6;5	SET	'21' FOR ELECTRICAL ARC; '31' FOR SMOKING MATERIAL (CIGARETTES,ETC); '61' FOR SOURCE N.E.C.; '71' FOR SOURCE UNKNOWN; HELP-PROMPT: `LEAVE BLANK IF FIRE NOT INVOLVED` DESCRIPTION: `Means by which fire was ignited. Leave blank for other types of accidents.`
42	FIRE..MATERIAL BURNED	6;6	SET	'11' FOR GAS; '21' FOR LIQUID; '31' FOR SOLID; '41' FOR LIQUID & GAS; '71' FOR SOLID & GAS; '81' FOR SOLID & LIQUID; HELP-PROMPT: `LEAVE BLANK IF NO FIRE` DESCRIPTION: `Principal fuel for the fire. Leave blank for other types of accidents.`
43	FIRE..MATERIAL FORM	6;7	SET	'GZ' FOR ALL FIRES; HELP-PROMPT: `ENTER 'GZ' FOR ALL FIRES, OTHERWISE LEAVE BLANK` DESCRIPTION: `Indicates that accident was a fire.`
44	BEST PREVENTATIVE	6;8	SET	'A' FOR TRAINING; 'B' FOR MORE STAFF; 'C' FOR MOTIVATION; 'D' FOR BETTER EQUIPMENT/MATERIAL; 'E' FOR BETTER PLANNING & COORDINATION; 'F' FOR IMPROVED WRITTEN PROCEDURES; 'G' FOR MORE FUNDS FOR HAZARD ELIMINATION; 'H' FOR PERSONNEL ACTION; 'I' FOR PREVENTATIVE N.E.C.; 'Z' FOR NONE; LAST EDITED: `APR 27, 1992` DESCRIPTION: `Investigator's opinion as to the best safeguard against future incidents of this kind.`
45	CORRECTIVE ACTION	6;9	SET	'A' FOR TAKEN; 'B' FOR REQUIRED & ANTICIPATED; 'C' FOR REQUESTED; 'D' FOR NONE; DESCRIPTION: `Status of corrective action(s) at time of this report.`
46	ACCIDENT NARRATIVE	7;0	WORD-PROCESSING #6924.02	DESCRIPTION: `Detailed description of the accident, including events leading up to it.` HELP-PROMPT: `PROVIDE INFORMATION TO FULLY DESCRIBE INCIDENT`
47	WITNESSES	6;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>65!($L(X)<3)!'(X'?.C) X` HELP-PROMPT: `ANSWER MUST BE 3-65 CHARACTERS IN LENGTH` DESCRIPTION: `Names of individuals who witnessed the accident.`
48	CORRECTIVE NARRATION	8;0	WORD-PROCESSING #6924.03	DESCRIPTION: `Detailed description of action(s) taken or planned to prevent similar incidents in the future.` HELP-PROMPT: `DESCRIBE CORRECTIVE ACTION TAKEN OR PLANNED`
49	INITIATOR NAME	9;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3)!'(X'?.C) X` LAST EDITED: `APR 30, 1993` HELP-PROMPT: `ANSWER MUST BE 3-20 CHARACTERS IN LENGTH` DESCRIPTION: `Name of person who initiated this report.`
50	INITIATOR TITLE	9;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<2)!'(X'?.C) X` HELP-PROMPT: `ANSWER MUST BE 2-20 CHARACTERS IN LENGTH` DESCRIPTION: `Job title of initiator.`
51	INITIATOR DATE SIGNED	9;3	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:4001200X) X` LAST EDITED: `FEB 25, 1998` HELP-PROMPT: `TYPE A DATE BETWEEN 1980 AND 2100` DESCRIPTION: `Date on which accident report was signed by initiator.`
52	INITIATOR PHONE #	9;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<3)!'(X'?.C) X` HELP-PROMPT: `ANSWER MUST BE 3-12 CHARACTERS IN LENGTH` DESCRIPTION: `Phone number (or extension) of person who initiated this report.`
53	REVIEW AUTHORITY NAME	9;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3)!'(X'?.C) X` HELP-PROMPT: `ANSWER MUST BE 3-20 CHARACTERS IN LENGTH` DESCRIPTION: `Name of reviewing official.`
54	REVIEW AUTHORITY TITLE	9;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3)!'(X'?.C) X` HELP-PROMPT: `ANSWER MUST BE 3-20 CHARACTERS IN LENGTH` DESCRIPTION: `Job title of reviewing official.`
55	REVIEW AUTHORITY DATE	9;7	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:4001200X) X` LAST EDITED: `FEB 25, 1998` HELP-PROMPT: `TYPE A DATE BETWEEN 1980 AND 2100` DESCRIPTION: `Date on which review of accident by reviewing official was completed.`
56	REVIEW AUTHORITY PHONE	9;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<3)!'(X'?.C) X` HELP-PROMPT: `ANSWER MUST BE 3-12 DIGITS IN LENGTH` DESCRIPTION: `Telephone number (or extension) of reviewing official.`
57	EVALUATION OF REPORT	10;0	WORD-PROCESSING #6924.04	DESCRIPTION: `Reviewer's notes on the result of his/her investigation.` HELP-PROMPT: `SAFETY PERSON'S EVALUATION, BE BRIEF PLEASE`
57.5	REPORT STATUS	9;9	SET	'Y' FOR YES, 2162 REPORT COMPLETED; 'N' FOR NO 2162 REPORT NOT COMPLETED; DESCRIPTION: `Completion status of this report.`

Name	Line Occurrences (* Changed, ! Killed)
^DD(6924	11OT+1
^ENG("FSA" - [#6924]	.01+1, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 9(XREF 1S), 9(XREF 1K), 11(XREF 1S), 11(XREF 1K)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	5+1, 51+1, 55+1*
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 9(XREF 1S), 9(XREF 1K), 11(XREF 1S), 11(XREF 1K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 1(XREF 1S), 1(XREF 1K), 5+1!, 6+1!, 7.5+1!, 9+1! , 9(XREF 1S), 9(XREF 1K), 10+1!, 11+1!, 11OT+1, 11(XREF 1S), 11(XREF 1K), 14+1!, 15+1!, 16+1! , 17+1!, 19+1!, 20+1!, 22+1!, 28+1!, 29+1!, 34+1!, 36+1!, 47+1!, 49+1! , 50+1!, 51+1!, 52+1!, 53+1!, 54+1!, 55+1*!, 56+1!
>> Y	5+1, 11OT+1*, 51+1, 55+1
>> Y(0	11OT+1*
>> Y(6	11OT+1
>> Y(7	11OT+1*
>> Y(8	11OT+1*

Customize PDF page

Package: Engineering

Global: ^ENG("FSA"

Information

Description

Directly Accessed By Routines, Total: 6

Pointer To FileMan Files, Total: 3

Fields, Total: 61

External References

Global Variables Directly Accessed

Local Variables

Legend: