*ICD-9 Codes made compatible to ICD-10 based on Injury Deaths 2002 report, appendix table I; *From Lois; *March 1, 2007; LABEL CAUSE='MECHANISM/CAUSE' INJ='MANNER/INTENT' ; RECAUSE=0; IF (('800'<=CAUSEDET<='848') OR ('850'<=CAUSEDET<='869') OR ('880'<=CAUSEDET<='929') OR ('950'<=CAUSEDET<='966') OR ('968'<=CAUSEDET<='999')) THEN RECAUSE = 1; IF CAUSEDET='849' OR CAUSEDET='967' THEN RECAUSE=2; ***********************************************; * MAKES ECAUSE GROUPS FOR FIRST LISTED ECODE CONSISTENT WITH ICD10*; * MATRIX ON PAGE 112-113 OF INJURY DEATHS 2002 REPORT*; ***********************************************; *CUT ECODE; IF (CAUSEDET IN('920','956','966','986','974')) THEN CAUSE = 1; *DROWN ECODE COMPATIBLE WITH ICD10; IF (CAUSEDET IN('910','954','964','984')) THEN CAUSE = 2; *FALL ECODE; IF ('880'<=CAUSEDET<='886') OR (CAUSEDET IN('888','957','987')) OR CAUSEDT4='9681' THEN CAUSE = 3; *FIRE/HOT ECODE MODIFIED TO BE CONSISTENT WITH ICD10 ; IF ('890'<=CAUSEDET<='899') OR CAUSEDET = '924' OR CAUSEDET='990' OR (CAUSEDET = '958' AND (PERSINJ IN('1','2','7'))) OR CAUSEDET = '961' OR (CAUSEDET = '968' AND (PERSINJ IN('0','3'))) OR (CAUSEDET = '988' AND (PERSINJ IN('1','2','7'))) THEN CAUSE = 4; *FIREARM ECODE; IF (CAUSEDET = '922' AND (PERSINJ IN('0','1','2','3','8','9'))) OR ('9550'<=CAUSEDT4<='9554') OR ('9650'<=CAUSEDT4<='9654') OR ('9850'<=CAUSEDT4<='9854') OR '970' = CAUSEDET THEN CAUSE = 5; *MACHINERY ECODE; IF CAUSEDET = '919' THEN CAUSE= 6; *MOTOR VEHICLE TRAFFIC ECODE ; IF ('810'<=CAUSEDET<='819') THEN CAUSE = 7; *PEDAL OTHER ECODE; IF (('800'<=CAUSEDET<='807') AND (PERSINJ IN('3'))) OR (('820'<=CAUSEDET<='825') AND (PERSINJ IN('6'))) OR (CAUSEDT4 IN('8261','8269')) OR (('827'<=CAUSEDET<='829') AND (PERSINJ IN('1'))) THEN CAUSE = 8; *PEDESTRIAN ECODE; IF (('800'<=CAUSEDET<='807') AND (PERSINJ IN('2'))) OR (('820'<=CAUSEDET<='825') AND (PERSINJ IN('7'))) OR (('826'<=CAUSEDET<='829') AND (PERSINJ IN('0'))) THEN CAUSE = 9; *OTHER LAND TRANSPORT COMPATIBLE WITH ICD10; IF (('800'<=CAUSEDET<='807') AND (PERSINJ IN('0','1','8','9'))) OR (('820'<=CAUSEDET<='825') AND (PERSINJ IN('0','1','2','3', '4','5','8','9'))) OR ('8262'<=CAUSEDT4<='8268') OR (('827'<=CAUSEDET<='829') AND (PERSINJ IN('2','3','4','5','6', '7','8','9'))) OR CAUSEDET= '846' OR (CAUSEDT4 IN ('9585','9685','9885')) THEN CAUSE=10; *OTHER TRANSPORT COMPATIBLE WITH ICD10; IF ('830'<=CAUSEDET<='845') OR ('847'<=CAUSEDET<='848') OR CAUSEDET='994' THEN CAUSE = 11; *NATURAL/ENVIRONMENTAL+BITES ECODE COMPATIBLE WITH ICD10; IF ('900' <=CAUSEDET <='909') OR ('9280' <=CAUSEDT4 <='9282') THEN CAUSE=12; *OVEREXERTION ECODE; IF '927' =CAUSEDET THEN CAUSE = 13; *POISON ECODE ANYWHERE; IF ('850' <=CAUSEDET <= '869') OR ('950' <=CAUSEDET <= '952') OR CAUSEDET = '962' OR ('980' <=CAUSEDET <= '982') OR '972' = CAUSEDET THEN CAUSE = 14; *STRUCK BY OR AGAINST ECODE; IF ('916' <=CAUSEDET <= '917') OR '9600' = CAUSEDT4 OR '9682' = CAUSEDT4 OR '973' = CAUSEDET OR '975' = CAUSEDET THEN CAUSE = 15; *SUFFOCATION ECODE; IF ('911' <=CAUSEDET <= '913') OR (CAUSEDET IN ('953','963','983')) THEN CAUSE = 16; *OTHER SPECIFIED AND CLASSIFIABLE COMPATIBLE WITH ICD10; IF (CAUSEDET IN('914','915','918','921', '923','925','926','967','971','978','991', '992','993','996')) OR '9224' = CAUSEDT4 OR '9225' = CAUSEDT4 OR '9601' = CAUSEDT4 OR '9283' = CAUSEDT4 OR '9284' = CAUSEDT4 OR '9285' = CAUSEDT4 OR '9290'<=CAUSEDT4<='9295' OR (CAUSEDET = '955' AND (PERSINJ IN('5','6','9'))) OR (CAUSEDET = '958' AND (PERSINJ IN('0','4'))) OR PERSINJ = '9601' OR '9655'<=CAUSEDT4<='9659' OR (CAUSEDET = '968' AND (PERSINJ IN('4','6','7'))) OR (CAUSEDET = '985' AND (PERSINJ IN('5','6'))) OR (CAUSEDET = '988' AND (PERSINJ IN('0','4'))) OR (CAUSEDET = '997' AND (PERSINJ IN('0','1','2'))) OR '9583'=CAUSEDT4 OR '9883' = CAUSEDT4 THEN CAUSE = 17; *OTHER SPECIFIED, NOT ELSEWHERE CLASSIFIABLE COMPATIBLE WITH ICD10; IF (CAUSEDT4 IN('9288','9298','9588','9688','9888','9978')) OR (CAUSEDET IN('995','998','999','989','969', '959','977')) OR (CAUSEDT4 IN('9586','9886')) THEN CAUSE = 18; *UNSPECIFIED; IF (CAUSEDT4 IN('9289','9299','9589','9689','9889','9979')) OR (CAUSEDET IN('887','976')) THEN CAUSE = 19; * MISSING ECODE; IF RECAUSE=0 THEN CAUSE=20; /* MANNER-INTENT CODING */ IF (CAUSEDET GE '800' AND CAUSEDET LE '869') OR (CAUSEDET GE '880' AND CAUSEDET LE '929') THEN INJ=1; IF CAUSEDET GE '950' AND CAUSEDET LE '959' THEN INJ=2; IF CAUSEDET GE '960' AND CAUSEDET LE '969' THEN INJ=3; IF (CAUSEDET GE '970' AND CAUSEDET LE '978') OR (CAUSEDET GE '990' AND CAUSEDET LE '999') THEN INJ=4; IF (CAUSEDET GE '980' AND CAUSEDET LE '989') THEN INJ=5; /*RECODEED FOR 6 LEADING CAUSES*/ CAUSER=.; IF CAUSE in (1,4,6,8,9,10,11,12,13,15,17,18,19,20) THEN CAUSER=8; ELSE IF CAUSE=7 THEN CAUSER=2; ELSE IF CAUSE=5 THEN CAUSER=3; ELSE IF CAUSE=14 THEN CAUSER=4; ELSE IF CAUSE=3 THEN CAUSER=5; ELSE IF CAUSE=16 THEN CAUSER=6; ELSE IF CAUSE=2 THEN CAUSER=7; /*PROC FORMAT;*/ /*VALUE INJSM*/ /*1='UNINTENTIONAL'*/ /*2='SUICIDE'*/ /*3='HOMICIDE'*/ /*4='UNDETERMINED'*/ /*5='LEGAL/WAR';*/ /*VALUE MVPM*/ /*1=' OCCUPANT'*/ /*2=' MC'*/ /*3=' PEDAL CYC'*/ /*4=' PEDEST'*/ /*5=' OTHER'*/ /*6=' UNSPECIFIED' ;*/ /**/ /* VALUE CM 1='CUT' */ /* 2='DROWNING' */ /* 3='FALL' */ /* 4='FIRE/HOT' */ /* 5='FIREARM' */ /* 6='MACHINE' */ /* 7='MVT' */ /* 8='PEDAL CYS OTHER' */ /* 9='PEDEST OTHER' */ /* 10='OTHER LAND TRANSP' */ /* 11='OTHER TRANSPORT' */ /* 12='NATURAL/ENVIRON' */ /* 13='OVEREXERTION' */ /* 14='POISONING' */ /* 15='STRUCK BY' */ /* 16='SUFFOCATION' */ /* 17='OTHER CLASSIFIED' */ /* 18='OTHER,NEC' */ /* 19='NOT SPECIFIED' */ /* 20='MISSING E CODE'; */ /**/ /*VALUE CAUSER*/ /*2='MV TRAFFIC'*/ /*3='FIREARM'*/ /*4='POISONING'*/ /*5='FALL'*/ /*6='SUFFOCATION'*/ /*7='DROWNING'*/ /*8='OTHER';*/