- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENARY202 3929 printed Dec 13, 2024@01:51:47 Page 2
- ENARX202 ;(WASH ISC)/SAW/DH-2162 Archive ;10-26-88
- +1 ;;7.0;ENGINEERING;;Aug 17, 1993
- +2 FOR I=1:1
- SET X=$TEXT(Q+I)
- if X=""
- QUIT
- SET Y=$PIECE(X,"=",2,99)
- SET X=$PIECE($EXTRACT(X,4,99),"=",1)
- if X=""
- SET X=$PIECE(Y,"=",1)
- SET Y=%_$PIECE(Y,"=",2,99)
- XECUTE NO
- IF '$TEST
- SET @X=Y
- Q QUIT
- +1 ;;^DD(6919.2,20,0)=WORK PHONE #^F^^3;2^K:$L(X)>17!($L(X)<3)!'(X'?.C) X
- +2 ;;^DD(6919.2,20,3)=ANSWER MUST BE 3-17 CHARACTERS IN LENGTH
- +3 ;;^DD(6919.2,21,0)=CA1/CA2^S^Y:YES;N:NO;^3;3^Q
- +4 ;;^DD(6919.2,22,0)=TIME ON DUTY^F^^3;4^K:$L(X)>2!($L(X)<1)!'(X?1N.N) X
- +5 ;;^DD(6919.2,22,3)=ENTER NEAREST NUMBER OF WHOLE HOURS ON DUTY
- +6 ;;^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
- +7 ;;^DD(6919.2,24,0)=ACCIDENT ACTIVITY^F^^3;6^K:$L(X)>30!($L(X)<1)!'(X?.ANP) X
- +8 ;;^DD(6919.2,24,3)=ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
- +9 ;;^DD(6919.2,24,"DT")=2860915
- +10 ;;^DD(6919.2,25,0)=SERVICE/DIVISION #^F^^3;7^K:$L(X)>4!($L(X)<1)!'(X?.AN) X
- +11 ;;^DD(6919.2,25,3)=ANSWER MUST BE 1-4 CHARACTERS IN LENGTH
- +12 ;;^DD(6919.2,25,"DT")=2860915
- +13 ;;^DD(6919.2,25.1,0)=SERVICE/DIV. NAME^F^^3;8^K:$L(X)>45!($L(X)<2)!'(X?.ANP) X
- +14 ;;^DD(6919.2,25.1,3)=ANSWER MUST BE 2-45 CHARACTERS IN LENGTH
- +15 ;;^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
- +16 ;;^DD(6919.2,27,0)=CULMINATION^S^1:NO RESTRICTION;2:RESTRICTED;4:PERMANENT TRANSFER;5:TERMINATED;^4;2^Q
- +17 ;;^DD(6919.2,28,0)=RESTRICTED WORK DAYS^F^^4;3^K:$L(X)>4!($L(X)<4)!'(X?4N) X
- +18 ;;^DD(6919.2,28,3)=ANSWER MUST BE 4 DIGITS IN LENGTH, (e.g. 0012)
- +19 ;;^DD(6919.2,29,0)=LOST WORK DAYS^F^^4;4^K:$L(X)>4!($L(X)<4)!'(X?4N) X
- +20 ;;^DD(6919.2,29,3)=ANSWER MUST BE 4 DIGITS IN LENGTH, (e.g. 0004)
- +21 ;;^DD(6919.2,30,0)=INJURY/ILLNESS NATURE^F^^4;5^K:$L(X)>40!($L(X)<1)!'(X?.ANP) X
- +22 ;;^DD(6919.2,30,3)=ANSWER MUST BE 1-40 CHARACTERS IN LENGTH
- +23 ;;^DD(6919.2,30,"DT")=2860915
- +24 ;;^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
- +25 ;;^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
- +26 ;;^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
- +27 ;;^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
- +28 ;;^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
- +29 ;;^DD(6919.2,34,3)=TYPE AN AMOUNT BETWEEN 0 AND 9999999 DOLLARS, (NO CENTS)
- +30 ;;^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
- +31 ;;^DD(6919.2,36,0)=YEAR MANUFACTURED^F^^5;4^K:$L(X)>2!($L(X)<2)!'(X?2N) X
- +32 ;;^DD(6919.2,36,3)=ANSWER MUST BE 2 DIGITS IN LENGTH (e.g. 85)
- +33 ;;^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
- +34 ;;%=SOURCE OF ACCIDENT^S^01AA:UNPOWERED EQUIP/FURNISHINGS/SUPPLIES;11AA:POWERED EQUIP/APPLIANCES/MACHINES;33AA:BLDG MATERIAL, FEATURE OR CONDITION;44AA:TOXIC SUBSTA
- +35 ;;=^DD(6919.2,38,0)=NCE/RADIATION EXPOSURE;77AA:VEHICLE;81AA:PERSON;82ZZ:SOURCE N.E.C.;^6;2^Q
- +36 ;;^DD(6919.2,39,0)=CAUSE OF ACCIDENT^S^AA:EQUIPMENT OR ENVIRONMENT;BA:PERSON;CA:NATURE;FA:CAUSE UNKNOWN;^6;3^Q
- +37 ;;^DD(6919.2,40,0)=ADDITIONAL CAUSE^S^AA:EQUIPMENT OR ENVIRONMENT;BA:PERSON;CA:NATURE;ZZ:NO ADDITIONAL CAUSE;^6;4^Q
- +38 ;;^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