source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENARY202.m@ 1766

Last change on this file since 1766 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 3.8 KB
Line 
1ENARX202 ;(WASH ISC)/SAW/DH-2162 Archive ;10-26-88
2 ;;7.0;ENGINEERING;;Aug 17, 1993
3 F I=1:1 S X=$T(Q+I) Q:X="" S Y=$P(X,"=",2,99),X=$P($E(X,4,99),"=",1) S:X="" X=$P(Y,"=",1),Y=%_$P(Y,"=",2,99) X NO E S @X=Y
4Q Q
5 ;;^DD(6919.2,20,0)=WORK PHONE #^F^^3;2^K:$L(X)>17!($L(X)<3)!'(X'?.C) X
6 ;;^DD(6919.2,20,3)=ANSWER MUST BE 3-17 CHARACTERS IN LENGTH
7 ;;^DD(6919.2,21,0)=CA1/CA2^S^Y:YES;N:NO;^3;3^Q
8 ;;^DD(6919.2,22,0)=TIME ON DUTY^F^^3;4^K:$L(X)>2!($L(X)<1)!'(X?1N.N) X
9 ;;^DD(6919.2,22,3)=ENTER NEAREST NUMBER OF WHOLE HOURS ON DUTY
10 ;;^DD(6919.2,23,0)=DUTY STATUS^S^A:FULL TIME EMPL ON DUTY;B:TEMP EMPLOYEE ON DUTY;C:PART TIME EMPL ON DUTY;D:NON-PAID EMPL ON DUTY;Z:STATUS N.E.C.;^3;5^Q
11 ;;^DD(6919.2,24,0)=ACCIDENT ACTIVITY^F^^3;6^K:$L(X)>30!($L(X)<1)!'(X?.ANP) X
12 ;;^DD(6919.2,24,3)=ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
13 ;;^DD(6919.2,24,"DT")=2860915
14 ;;^DD(6919.2,25,0)=SERVICE/DIVISION #^F^^3;7^K:$L(X)>4!($L(X)<1)!'(X?.AN) X
15 ;;^DD(6919.2,25,3)=ANSWER MUST BE 1-4 CHARACTERS IN LENGTH
16 ;;^DD(6919.2,25,"DT")=2860915
17 ;;^DD(6919.2,25.1,0)=SERVICE/DIV. NAME^F^^3;8^K:$L(X)>45!($L(X)<2)!'(X?.ANP) X
18 ;;^DD(6919.2,25.1,3)=ANSWER MUST BE 2-45 CHARACTERS IN LENGTH
19 ;;^DD(6919.2,26,0)=SEVERITY OF INJURY^S^1:NO TREATMENT REQUIRED;2:FIRST AID ONLY;3:MEDICAL TREATMENT ONLY;4:DIAGNOSIS OF ILLNESS;5:DISABLING;8:FATALITY;^4;1^Q
20 ;;^DD(6919.2,27,0)=CULMINATION^S^1:NO RESTRICTION;2:RESTRICTED;4:PERMANENT TRANSFER;5:TERMINATED;^4;2^Q
21 ;;^DD(6919.2,28,0)=RESTRICTED WORK DAYS^F^^4;3^K:$L(X)>4!($L(X)<4)!'(X?4N) X
22 ;;^DD(6919.2,28,3)=ANSWER MUST BE 4 DIGITS IN LENGTH, (e.g. 0012)
23 ;;^DD(6919.2,29,0)=LOST WORK DAYS^F^^4;4^K:$L(X)>4!($L(X)<4)!'(X?4N) X
24 ;;^DD(6919.2,29,3)=ANSWER MUST BE 4 DIGITS IN LENGTH, (e.g. 0004)
25 ;;^DD(6919.2,30,0)=INJURY/ILLNESS NATURE^F^^4;5^K:$L(X)>40!($L(X)<1)!'(X?.ANP) X
26 ;;^DD(6919.2,30,3)=ANSWER MUST BE 1-40 CHARACTERS IN LENGTH
27 ;;^DD(6919.2,30,"DT")=2860915
28 ;;^DD(6919.2,31,0)=BODY PART AFFECTED^S^01:HEAD;16:CHEAS OR ABDOMEN;45:BACK;46:SHOULDER, ARM, HAND;61:HIP, LEG, FOOT;^4;6^Q
29 ;;^DD(6919.2,32,0)=CAUSE OF INJURY^S^A:STRUCK AGAINST;B:STRUCK BY;D:SLIP,TRIP,FALL;F:CAUGHT IN, UNDER OR BETWEEN;I:ILLNESS;J:OVER EXERTION;K:ELECTRIC CURRENT;L:EXTREME TEMPERATURE;M:CHEMICALS;O:RADIATION;T:ASSULT;X:CAUSE N.E.C.;^4;7^Q
30 ;;^DD(6919.2,32.5,0)=NEEDLE STICK?^S^Y:YES, INJURY INVOLVED A NEEDLE;N:NO, INJURY DIDN'T INVOLVE NEEDLE;^4;8^Q
31 ;;^DD(6919.2,33,0)=PROPERTY OWNERSHIP^S^A:VETERANS ADMINISTRATION;C:OTHER FEDERAL AGENCY;H:PRIVATE;L:OWNERSHIP N.E.C.;^5;1^Q
32 ;;^DD(6919.2,34,0)=AMOUNT OF DAMAGE^NJ10,2^^5;2^S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>9999999)!(X<0) X
33 ;;^DD(6919.2,34,3)=TYPE AN AMOUNT BETWEEN 0 AND 9999999 DOLLARS, (NO CENTS)
34 ;;^DD(6919.2,35,0)=PROPERTY DAMAGED^S^AA:MOTOR VEHICLE;AG:OTHER VEHICLE;EA:BLDG./STRUCTURE;FA:EQUIPMENT;GA:SUPPLIES;IA:FURNITURE;JA:RECORDS;KA:TREES/GRASS/PLANTS;BA:BEDDING/CLOTHES;CA:INTERIOR FINISH;HA:TRASH/RUBBISH;ZA:PROPERTY N.E.C.;^5;3^Q
35 ;;^DD(6919.2,36,0)=YEAR MANUFACTURED^F^^5;4^K:$L(X)>2!($L(X)<2)!'(X?2N) X
36 ;;^DD(6919.2,36,3)=ANSWER MUST BE 2 DIGITS IN LENGTH (e.g. 85)
37 ;;^DD(6919.2,37,0)=WEATHER FACTOR^S^A:SNOW/ICE;B:DUST STORM;C:LIGHTNING;D:HIGH TEMPERATURE;E:LOW TEMPERATURE;F:HUMIDITY;H:FOG;J:RAIN;N:WIND STORM;P:WEATHER N.E.C.;Z:WEATHER NOT A FACTOR;^6;1^Q
38 ;;%=SOURCE OF ACCIDENT^S^01AA:UNPOWERED EQUIP/FURNISHINGS/SUPPLIES;11AA:POWERED EQUIP/APPLIANCES/MACHINES;33AA:BLDG MATERIAL, FEATURE OR CONDITION;44AA:TOXIC SUBSTA
39 ;;=^DD(6919.2,38,0)=NCE/RADIATION EXPOSURE;77AA:VEHICLE;81AA:PERSON;82ZZ:SOURCE N.E.C.;^6;2^Q
40 ;;^DD(6919.2,39,0)=CAUSE OF ACCIDENT^S^AA:EQUIPMENT OR ENVIRONMENT;BA:PERSON;CA:NATURE;FA:CAUSE UNKNOWN;^6;3^Q
41 ;;^DD(6919.2,40,0)=ADDITIONAL CAUSE^S^AA:EQUIPMENT OR ENVIRONMENT;BA:PERSON;CA:NATURE;ZZ:NO ADDITIONAL CAUSE;^6;4^Q
42 ;;^DD(6919.2,41,0)=FIRE-FORM OF IGNITION^S^21:ELECTRICAL ARC;31:SMOKING MATERIAL (CIGARETTES,ETC);61:SOURCE N.E.C.;71:SOURCE UNKNOWN;^6;5^Q
Note: See TracBrowser for help on using the repository browser.