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

ENARX202 ;(WASH ISC)/SAW/DH-2162 Archive ;10-26-88
 ;;7.0;ENGINEERING;;Aug 17, 1993
 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
Q Q
 ;;^DD(6919.2,20,0)=WORK PHONE #^F^^3;2^K:$L(X)>17!($L(X)<3)!'(X'?.C) X
 ;;^DD(6919.2,20,3)=ANSWER MUST BE 3-17 CHARACTERS IN LENGTH
 ;;^DD(6919.2,21,0)=CA1/CA2^S^Y:YES;N:NO;^3;3^Q
 ;;^DD(6919.2,22,0)=TIME ON DUTY^F^^3;4^K:$L(X)>2!($L(X)<1)!'(X?1N.N) X
 ;;^DD(6919.2,22,3)=ENTER NEAREST NUMBER OF WHOLE HOURS ON DUTY
 ;;^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
 ;;^DD(6919.2,24,0)=ACCIDENT ACTIVITY^F^^3;6^K:$L(X)>30!($L(X)<1)!'(X?.ANP) X
 ;;^DD(6919.2,24,3)=ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
 ;;^DD(6919.2,24,"DT")=2860915
 ;;^DD(6919.2,25,0)=SERVICE/DIVISION #^F^^3;7^K:$L(X)>4!($L(X)<1)!'(X?.AN) X
 ;;^DD(6919.2,25,3)=ANSWER MUST BE 1-4 CHARACTERS IN LENGTH
 ;;^DD(6919.2,25,"DT")=2860915
 ;;^DD(6919.2,25.1,0)=SERVICE/DIV. NAME^F^^3;8^K:$L(X)>45!($L(X)<2)!'(X?.ANP) X
 ;;^DD(6919.2,25.1,3)=ANSWER MUST BE 2-45 CHARACTERS IN LENGTH
 ;;^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
 ;;^DD(6919.2,27,0)=CULMINATION^S^1:NO RESTRICTION;2:RESTRICTED;4:PERMANENT TRANSFER;5:TERMINATED;^4;2^Q
 ;;^DD(6919.2,28,0)=RESTRICTED WORK DAYS^F^^4;3^K:$L(X)>4!($L(X)<4)!'(X?4N) X
 ;;^DD(6919.2,28,3)=ANSWER MUST BE 4 DIGITS IN LENGTH, (e.g. 0012)
 ;;^DD(6919.2,29,0)=LOST WORK DAYS^F^^4;4^K:$L(X)>4!($L(X)<4)!'(X?4N) X
 ;;^DD(6919.2,29,3)=ANSWER MUST BE 4 DIGITS IN LENGTH, (e.g. 0004)
 ;;^DD(6919.2,30,0)=INJURY/ILLNESS NATURE^F^^4;5^K:$L(X)>40!($L(X)<1)!'(X?.ANP) X
 ;;^DD(6919.2,30,3)=ANSWER MUST BE 1-40 CHARACTERS IN LENGTH
 ;;^DD(6919.2,30,"DT")=2860915
 ;;^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
 ;;^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
 ;;^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
 ;;^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
 ;;^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
 ;;^DD(6919.2,34,3)=TYPE AN AMOUNT BETWEEN 0 AND 9999999 DOLLARS, (NO CENTS)
 ;;^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
 ;;^DD(6919.2,36,0)=YEAR MANUFACTURED^F^^5;4^K:$L(X)>2!($L(X)<2)!'(X?2N) X
 ;;^DD(6919.2,36,3)=ANSWER MUST BE 2 DIGITS IN LENGTH (e.g. 85)
 ;;^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
 ;;%=SOURCE OF ACCIDENT^S^01AA:UNPOWERED EQUIP/FURNISHINGS/SUPPLIES;11AA:POWERED EQUIP/APPLIANCES/MACHINES;33AA:BLDG MATERIAL, FEATURE OR CONDITION;44AA:TOXIC SUBSTA
 ;;=^DD(6919.2,38,0)=NCE/RADIATION EXPOSURE;77AA:VEHICLE;81AA:PERSON;82ZZ:SOURCE N.E.C.;^6;2^Q
 ;;^DD(6919.2,39,0)=CAUSE OF ACCIDENT^S^AA:EQUIPMENT OR ENVIRONMENT;BA:PERSON;CA:NATURE;FA:CAUSE UNKNOWN;^6;3^Q
 ;;^DD(6919.2,40,0)=ADDITIONAL CAUSE^S^AA:EQUIPMENT OR ENVIRONMENT;BA:PERSON;CA:NATURE;ZZ:NO ADDITIONAL CAUSE;^6;4^Q
 ;;^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