These SAS codes are all valid for data years 1998 and forward. Prior to 1998, some of the codes may have not had 5th or 4th digit specificity and hence could show up as missing, particularly for the site specific data.  CODE CORRECTED 9/05/2002. /* INPUT VARIABLES DX13 [3 digit code for first-listed ICD-9 CM diagnosis] DX14 [4 digit code for first-listed diagnosis] DX15 [5 digit code for first-listed diagnosis] D5 [5th digit of code] OUTUT VARIABLES ISRCODE ISRSITE ISRSITE2 ISRSITE3 */ DATA HDS99; set MC.NEW; IF ('800' <=DX13<= '829') THEN ISRCODE=1; IF DX13 GE '830' AND DX13 LE '839' THEN ISRCODE=2; IF DX13 GE '840' AND DX13 LE '848' THEN ISRCODE=3; IF ('860'<=DX13<='869') OR ('850'<=DX13<='854') OR DX13='952' OR DX15='99555' THEN ISRCODE=4; IF ('870' <=DX13<= '884') OR ('890' <=DX13<= '894') THEN ISRCODE=5; IF ('885' <=DX13<= '887') OR ('895' <=DX13<= '897') THEN ISRCODE=6; IF DX13 GE '900' AND DX13 LE '904' THEN ISRCODE=7; IF DX13 GE '910' AND DX13 LE '924' THEN ISRCODE=8; IF DX13 GE '925' AND DX13 LE '929' THEN ISRCODE=9; IF DX13 GE '940' AND DX13 LE '949' THEN ISRCODE=10; IF (DX13 GE '950' AND DX13 LE '951') OR ('953'<=DX13<='957') THEN ISRCODE=11; IF DX13= '959' THEN ISRCODE=12; IF ('930'<=DX13<='939') OR ('960'<=DX13<='994') OR ('905'<=DX13 <='908') OR ('9090'<=DX14<='9092') OR DX13='958' OR ('99550'<=DX15<='99554') OR DX15='99559' OR DX14='9094' OR DX14='9099' OR ('99580'<=DX15<='99585') THEN ISRCODE=13; IF ('8001'<=DX14<='8004') OR ('8006'<=DX14<='8009') OR ('80003'<=DX15<='80005') OR ('80053'<=DX15<='80055') OR ('8011'<=DX14<='8014') OR ('8016'<=DX14<='8019') OR ('80103'<=DX15<='80105') OR ('80153'<=DX15<='80155') OR ('8031'<=DX14<='8034') OR ('8036'<=DX14<='8039') OR ('80303'<=DX15<='80305') OR ('80353'<=DX15<='80355') OR ('8041'<=DX14<='8044') OR ('8046'<=DX14<='8049') OR ('80403'<=DX15<='80405') OR ('80453'<=DX15<='80455') OR ('8502'<=DX14<='8504') OR ('851'<=DX13<='854') OR ('9501'<=DX14<='9503') OR DX15='99555' THEN ISRSITE=1; IF DX15='80000' OR DX15='80002' OR DX15='80006' OR DX15='80009' OR DX15='80100' OR DX15='80102' OR DX15='80106' OR DX15='80109' OR DX15='80300' OR DX15='80302' OR DX15='80306' OR DX15='80309' OR DX15='80400' OR DX15='80402' OR DX15='80406' OR DX15='80409' OR DX15='80050' OR DX15='80052' OR DX15='80056' OR DX15='80059' OR DX15='80150' OR DX15='80152' OR DX15='80156' OR DX15='80159' OR DX15='80350' OR DX15='80352' OR DX15='80356' OR DX15='80359' OR DX15='80450' OR DX15='80452' OR DX15='80456' OR DX15='80459' OR DX14='8500' OR DX14='8501' OR DX14='8505' OR DX14='8509' THEN ISRSITE=2; IF DX15='80001' OR DX15='80051' OR DX15='80101' OR DX15='80151' OR DX15='80301' OR DX15='80351' OR DX15='80401' OR DX15='80451' THEN ISRSITE=3; IF (DX13='951') OR (DX14='8730' OR DX14='8731' OR DX14='8738' OR DX14='8739') OR (DX13='941' AND D5='6') OR DX15='95901' THEN ISRSITE=4; IF DX13='802' OR DX13='830' OR DX14='8480' OR DX14='8481' OR DX13='872' OR ('8732'<=DX14<='8737') OR (DX13='941' AND D5='1') OR (DX13='941' AND '3'<=D5<='5') OR (DX13='941' AND D5='7') THEN ISRSITE=5; IF DX14='9500' OR DX14='9509' OR ('870'<=DX13<='871') OR DX13='921' OR DX13='918' OR DX13='940' OR (DX13='941' AND D5='2') THEN ISRSITE=6; IF ('8075'<=DX14<='8076') OR DX14='8482' OR DX14='9252' OR DX14='9530' OR DX14='9540' OR DX13='874' OR (DX13='941' AND D5='8') THEN ISRSITE=7; IF DX14='9251' OR DX13='900' OR DX14='9570' OR DX13='910' OR DX13='920' OR DX14='9470' OR DX15='95909' OR (DX13='941' AND (D5='0' OR D5='9')) THEN ISRSITE=8; IF ('8060'<=DX14<='8061') OR (DX14='9520') THEN ISRSITE=9; IF ('8062'<=DX14<='8063') OR (DX14='9521') THEN ISRSITE=10; IF ('8064'<=DX14<='8065') OR (DX14='9522') THEN ISRSITE=11; IF ('8066'<=DX14<='8067') OR ('9523'<=DX14<='9524') THEN ISRSITE=12; IF ('8068'<=DX14<='8069') OR ('9528'<=DX14<='9529') THEN ISRSITE=13; IF ('8050'<=DX14<='8051') OR ('8390'<=DX14<='8391') OR DX14='8470' THEN ISRSITE=14; IF ('8052'<=DX14<='8053') OR ('83921'=DX15 OR '83931'=DX15) OR DX14='8471' THEN ISRSITE=15; IF ('8054'<=DX14<='8055') OR ('83920'=DX15 OR '83930'=DX15) OR DX14='8472' THEN ISRSITE=16; IF ('8056'<=DX14<='8057') OR ('83941'=DX15 OR '83942'=DX15)OR ('83951'<=DX15<='83952') OR ('8473'<=DX14<='8474') THEN ISRSITE=17; IF ('8058'<=DX14<='8059') OR ('83940'=DX15 OR '83949'=DX15) OR ('83950'=DX15 OR DX15='83959') THEN ISRSITE=18; IF ('8070'<=DX14<='8074') OR DX15='83961' OR DX15='83971' OR ('8483'<=DX14<='8484') OR DX15='92619' OR ('860'<=DX13<='862') OR DX13='901' OR DX14='9531' OR DX13='875' OR DX14='8790' OR DX14='8791' OR DX14='9220' OR DX14='9221' OR DX15='92233' OR (DX13='942' AND (D5='1' OR D5='2')) THEN ISRSITE=19; IF ('863'<=DX13<='866') OR DX13='868' OR ('9020'<=DX14<='9024') OR DX14='9532' OR DX14='9535' OR ('8792'<=DX14<='8795') OR DX14='9222' OR (DX13='942' AND D5='3') OR DX14='9473' THEN ISRSITE=20; IF DX13='808' OR DX15='83969' OR DX15='83979' OR DX13='846' OR DX14='8485' OR DX14='9260' OR DX15='92612' OR DX13='867' OR DX14='9025' OR ('90281'<=DX15<='90282') OR DX14='9533' OR ('877' <=DX13<='878') OR DX14='9224' OR (DX13='942' AND D5='5') OR DX14='9474' THEN ISRSITE=21; IF DX13='809' OR ('9268'<=DX14<='9269') OR DX14='9541' OR ('9548'<=DX14<='9549') OR ('8796'<=DX14<='8797') OR ('9228'<=DX14<='9229') OR DX13='911' OR (DX13='942' AND D5='0') OR (DX13='942' AND D5='9') OR DX14='9591' THEN ISRSITE=22; IF DX14='8479' OR DX15='92611' OR DX13='876' OR DX15='92232' OR DX15='92231' OR (DX13='942' AND D5='4') THEN ISRSITE=23; IF ('810'<=DX13<='812') OR DX13='831' OR DX13='840' OR DX13='880' OR '8872'<=DX14<='8873' OR (DX13='943' AND '3'<=D5<='6') OR DX13='912' OR DX14='9230' OR DX14='9270' OR DX14='9592' THEN ISRSITE=24; IF DX13='813' OR DX13='832' OR DX13='841' OR (DX13='881' AND '0'<=D5<='1') OR ('8870'<=DX14<='8871') OR DX14='9231' OR DX14='9271' OR (DX13='943' AND '1'<=D5<='2') THEN ISRSITE=25; IF ('814'<=DX13<='817') OR ('833'<=DX13<='834') OR DX13='842' OR (DX13='881' AND D5='2') OR '882'<=DX13<='883' OR '885'<=DX13<='886' OR '914'<=DX13<='915' OR '9232'<=DX14<='9233' OR '9272'<=DX14<='9273' OR DX13='944' OR '9594'<=DX14<='9595' THEN ISRSITE=26; IF DX13='818' OR DX13='884' OR '8874'<=DX14<='8877' OR DX13='903' OR DX13='913' OR DX14='9593' OR '9238'<=DX14<='9239' OR '9278'<=DX14<='9279' OR DX14='9534' OR DX13='955' OR (DX13='943' AND (D5='0' OR D5='9')) THEN ISRSITE=27; IF DX13='820' OR DX13='835' OR DX13='843' OR DX15='92401' OR DX15='92801' THEN ISRSITE=28; IF DX13='821' OR '8972'<=DX14<='8973' OR DX15='92400' OR DX15='92800' OR (DX13='945' AND D5='6') THEN ISRSITE=29; IF DX13='822' OR DX13='836' OR '8440'<=DX14<='8443' OR DX15='92411' OR DX15='92811' OR (DX13='945' AND D5='5') THEN ISRSITE=30; IF '823'<=DX13<='824' OR '8970'<=DX14<='8971' OR DX13='837' OR DX14='8450' OR DX15='92410' OR DX15='92421' OR DX15='92810' OR DX15='92821' OR (DX13='945' AND '3'<=D5<='4') THEN ISRSITE=31; IF '825'<=DX13<='826' OR DX13='838' OR DX14='8451' OR '892'<=DX13<= '893' OR '895'<=DX13<='896' OR DX13='917' OR DX15='92420' OR DX14= '9243' OR DX15='92820' OR DX14='9283' OR (DX13='945' AND '1'<=D5<='2') THEN ISRSITE=32; IF DX13='827' OR '8448'<=DX14<='8449' OR '890'<=DX13<='891' OR DX13='894' OR '8974'<=DX14<='8977' OR '9040'<=DX14<='9048' OR DX13='916' OR '9244'<=DX14<='9245' OR DX14='9288' OR DX14='9289' OR '9596'<=DX14<='9597' OR (DX13='945' AND (D5='0' OR D5='9')) THEN ISRSITE=33; IF DX13='828' OR DX13='819' OR DX15='90287' OR DX15='90289' OR DX14='9538' OR '9471'<=DX14<='9472' OR DX13='956' THEN ISRSITE=34; IF DX13='829' OR '8398'<=DX14<='8399' OR '8488'<=DX14<='8489' OR DX13='869' OR ('8798'<=DX14<='8799') OR DX14='9029' OR DX14='9049' OR DX13='919' OR '9248'<=DX14<='9249' OR DX13='929' OR DX13='946' OR '9478'<=DX14<='9479' OR '948'<=DX13<='949' OR DX14='9539' OR DX14='9571' OR '9578'<=DX14<='9579' OR '9598'<=DX14<='9599' THEN ISRSITE=35; IF ('930'<=DX13<='939') OR ('960'<=DX13<='994') OR ('905'<=DX13 <='908') OR ('9090'<=DX14<='9092') OR DX13='958' OR ('99550'<=DX15 <='99554') OR DX15='99559' OR DX14='9094' OR DX14='9099' OR ('99580'<=DX15<='99585') THEN ISRSITE=36; IF ISRSITE >=1 AND ISRSITE <=3 THEN ISRSITE2=1; IF ISRSITE >=4 AND ISRSITE <=8 THEN ISRSITE2=2; IF ISRSITE >=9 AND ISRSITE <=13 THEN ISRSITE2=3; IF ISRSITE >=14 AND ISRSITE <=18 THEN ISRSITE2=4; IF ISRSITE >=19 AND ISRSITE <=23 THEN ISRSITE2=5; IF ISRSITE >=24 AND ISRSITE <=27 THEN ISRSITE2=6; IF ISRSITE >=28 AND ISRSITE <=33 THEN ISRSITE2=7; IF ISRSITE >=34 AND ISRSITE <=35 THEN ISRSITE2=8; IF ISRSITE  = 36 THEN ISRSITE2 = 9; IF ISRSITE >=1 AND ISRSITE <=8 THEN ISRSITE3=1; IF ISRSITE >=9 AND ISRSITE <=18 THEN ISRSITE3=2; IF ISRSITE >=19 AND ISRSITE <=23 THEN ISRSITE3=3; IF ISRSITE >=24 AND ISRSITE <=33 THEN ISRSITE3=4; IF ISRSITE >=34 AND ISRSITE <=36 THEN ISRSITE3 = 5; PROC FORMAT; VALUE ISM  1='TYPE 1 TBI' 2='TYPE 2 TBI' 3='TYPE 3 TBI' 4='OTHER HEAD' 5='FACE' 6='EYE' 7='NECK' 8='HEAD,FACE,NECK UNSPEC' 9='CERVICAL SCI' 10='THORACIC/DORSAL SCI' 11='LUMBAR SCI' 12='SACRUM COCCYX SCI' 13='SPINE+BACK UNSPEC SCI' 14='CERVICAL VCI' 15='THORACIC/DORSAL VCI' 16='LUMBAR VCI' 17='SACRUM COCCYX VCI' 18='SPINE,BACK UNSPEC VCI' 19='CHEST' 20='ABDOMEN' 21='PELVIS+UROGENITAL' 22='TRUNK' 23='BACK+BUTTOCK' 24='SHOULDER&UPPER ARM' 25='FOREARM&ELBOW' 26='HAND&WRIST&FINGERS' 27='OTHER&UNSPEC UPPER EXTREM' 28='HIP' 29='UPPER LEG&THIGH' 30='KNEE' 31='LOWER LEG&ANKLE' 32='FOOT&TOES' 33='OTHER&UNSPEC LOWER EXTREM' 34='OTHER,MULTIPLE,NEC' 35='UNSPECIFIED' 36='SYSTEM WIDE & LATE EFFECTS'; VALUE I2M 1='TBI'                  2='OTH HEAD,FACE,NECK'               3='SCI'                              4='VCI '                                     5='TORSO'              6='UPPER EXTREMITY'                          7='LOWER EXTREMITY'                          8='OTHER & UNSPECIFIED'                        9='SYSTEM WIDE & LATE EFFECTS';  VALUE I3M 1='HEAD&NECK' 2='SPINE&BACK' 3='TORSO' 4='EXTREMITIES' 5='UNCLASSIFIABLE BY SITE'; VALUE INM 1='FRACTURES ' 2='DISLOCATION' 3='SPRAINS&STRAINS' 4='INTERNAL ORGAN ' 5='OPEN WOUNDS' 6='AMPUTATIONS' 7='BLOOD VESSELS' 8='SUPERFIC/CONT' 9='CRUSHING' 10='BURNS' 11='NERVES' 12='UNSPECIFIED' 13='SYSTEM WIDE & LATE EFFECTS'; PROC FREQ ; TABLES (ISRSITE ISRSITE2)*ISRCODE /LIST ; TITLE DX MATRIX FOR ALL INJURIES; FORMAT ISRCODE INM. ISRSITE2 I2M. ISRSITE ISM. ; RUN;