*********************************************************************************; * *; * Program Name: C:\JRSA\DV_INJURIES.SAS *; * *; * SAS Download Code *; * *; * Purpose: Intimate Partner Research Question No.1: *; * *; * 1. Is there a difference between gender and age *; * groups in the types of injuries sustained by victims *; * in violent intimate partner incidents? *; * *; *; *********************************************************************************; LIBNAME PERM 'C:\JRSA\DATA\'; OPTIONS LINESIZE=80 FIRSTOBS=1 OBS=MAX NOFMTERR; PROC FORMAT; INVALUE OFF '200' = 200 '13A' = 130 '13B' = 171 '13C' = 172 '510' = 510 '220' = 140 '250' = 250 '290' = 290 '35A' = 350 '35B' = 351 '270' = 270 '210' = 210 '26A' = 260 '26B' = 261 '26C' = 262 '26D' = 263 '26E' = 264 '39A' = 390 '39B' = 391 '39C' = 392 '39D' = 393 '09A' = 90 '09B' = 198 '09C' = 199 '100' = 190 '23A' = 160 '23B' = 161 '23C' = 162 '23D' = 163 '23E' = 164 '23F' = 165 '23G' = 166 '23H' = 167 '240' = 150 '370' = 370 '40A' = 400 '40B' = 401 '120' = 120 '11A' = 110 '11B' = 180 '11C' = 181 '11D' = 182 '36A' = 360 '36B' = 361 '280' = 280 '520' = 520 ; VALUE OFFENSE 200 = 'Arson' 130 = 'Aggravated Assault' 171 = 'Simple Assault' 172 = 'Intimidation' 510 = 'Bribery' 140 = 'Burglary/Breaking and Entering' 250 = 'Counterfeiting/Forgery' 290 = 'Destruction/Damage/Vandalism of Property' 350 = 'Drug/Narcotics Violations' 351 = 'Drug Equipment Violations' 270 = 'Embezzlement' 210 = 'Extortion/Blackmail' 260 = 'False Pretenses/Swindle/Confidence Game' 261 = 'Credit Card/Automated Teller Machine Fraud' 262 = 'Impersonation' 263 = 'Welfare Fraud' 264 = 'Wire Fraud' 390 = 'Betting/Wagering' 391 = 'Operating/Promoting/Assisting Gambling' 392 = 'Gambling Equipment Violations' 393 = 'Sports Tampering' 90 = 'Murder and Nonnegligent Manslaughter' 198 = 'Negligent Manslaughter' 199 = 'Justifiable Homicide' 190 = 'Kidnaping/Abduction' 160 = 'Pocket-picking' 161 = 'Purse-snatching' 162 = 'Shoplifting' 163 = 'Theft From Building' 164 = 'Theft From Coin-Operated Machine or Device' 165 = 'Theft From Motor Vehicle' 166 = 'Theft of Motor Vehicle Parts or Accessories' 167 = 'All Other Larceny' 150 = 'Motor Vehicle Theft' 370 = 'Pornography/Obscene Material' 400 = 'Prostitution' 401 = 'Assisting or Promoting Prostitution' 120 = 'Robbery' 110 = 'Forcible Rape' 180 = 'Forcible Sodomy' 181 = 'Sexual Assault With An Object' 182 = 'Forcible Fondling' 183 = 'Rape of a Male' 360 = 'Incest' 361 = 'Statutory Rape' 280 = 'Stolen Property Offenses' 520 = 'Weapon Law Violations' ; RUN; *********************************************************************************; * *; * Prepare the Victim Segment for processing into useable file *; * *; *********************************************************************************; PROC FORMAT; VALUE OVRRCD 1 = 'Intimate Partner' 2 = 'Other Family Member' 3 = 'Other Known' 4 = 'Stranger' 5 = 'Victim is Offender' 6 = 'Relationship Unknown' -1 = 'Missing Relationship Information' 9 = 'Not Applicable' ; VALUE GENDER 0 = 'Unknown/missing' 1 = 'Female' 2 = 'Male' ; VALUE AGEGRP 1 = 'Under age 18' 2 = '18 thru 24' 3 = '25 thru 34' 4 = '35 thru 44' 5 = '45 thru 54' 6 = '55 thru 64' 7 = 'Age 65 or older' 8 = ' ' ; VALUE INJRCD 2 = 'Physical injury' 3 = 'Apparent minor injury' 4 = 'No injury' -1 = 'Missing' 9 = 'Not applicable' ; VALUE MSVINJ 1 = 'Death' 2 = 'Serious Physical injury' 3 = 'Apparent minor injury' 4 = 'No injury' -1 = 'Missing' 9 = 'Not applicable' ; RUN; DATA PERM.INTIMATE_PARTNER1_FILE(DROP=I); SET PERM.VICTIM_SEGMENT; LABEL OVRRCD = 'Relationship of Victim to Offender' INTMPART = 'Intimate Partner Relationship'; ARRAY OVR{10} $ OVR1-OVR10; DO I=1 TO 10; IF OVR{I} IN('SE', 'CS', 'BG', 'XS', 'HR') THEN OVRRCD = 1; ELSE IF OVR{I} IN('PA','SB','CH','GP','GC','IL','SP','SC','SS','OF') THEN OVRRCD = 2; ELSE IF OVR{I} IN('AQ','FR','NE','BE','CF','EE','ER','OK') THEN OVRRCD = 3; ELSE IF OVR{I} IN('ST') THEN OVRRCD = 4; ELSE IF OVR{I} IN('VO') THEN OVRRCD = 5; ELSE IF OVR{I} IN('RU') THEN OVRRCD = 6; ELSE IF (OVR{I} EQ ' ') THEN OVRRCD = -1; IF (OVRRCD EQ 1) THEN INTMPART = 1; IF INTMPART = 1 THEN OUTPUT PERM.INTIMATE_PARTNER1_FILE; END; RUN; DATA INTIMATE_PARTNER1_FILE; SET PERM.INTIMATE_PARTNER1_FILE; ARRAY V_INJ{5} $ V_INJ1-V_INJ5; ARRAY RCD{5} RCD1-RCD5; LENGTH V_GENDER AGEGRP 4.; LABEL V_GENDER = 'Victim Gender' AGEGRP = 'Victim Age Group' MSVINJ = 'Most Serious Victim Injury'; IF (VIC_SEX EQ 'M') THEN V_GENDER = 2; ELSE IF (VIC_SEX EQ 'F') THEN V_GENDER = 1; ELSE V_GENDER = 0; IF (0.1 LE V_AGE LE 17) THEN AGEGRP = 1; ELSE IF (18 LE V_AGE LE 24) THEN AGEGRP = 2; ELSE IF (25 LE V_AGE LE 34) THEN AGEGRP = 3; ELSE IF (35 LE V_AGE LE 44) THEN AGEGRP = 4; ELSE IF (45 LE V_AGE LE 54) THEN AGEGRP = 5; ELSE IF (55 LE V_AGE LE 64) THEN AGEGRP = 6; ELSE IF (65 LE V_AGE LE 95) THEN AGEGRP = 7; DO I=1 TO 5; IF V_INJ{I} IN('B','I','L','O','T','U') THEN RCD{I} = 2; ELSE IF V_INJ{I} IN('M') THEN RCD{I} = 3; ELSE IF V_INJ{I} IN('N') THEN RCD{I} = 4; ELSE IF V_INJ{I} IN(' ') THEN RCD{I} = 9; ELSE IF V_INJ{I} IN('9') THEN RCD{I} = 9; END; MSVINJ = MIN(RCD1, RCD2, RCD3, RCD4, RCD5); IF (MSVOFF IN('90', '199')) THEN MSVINJ = 1; CNT = 1; RUN; PROC FREQ DATA=INTIMATE_PARTNER1_FILE ; TITLE1 'Victim Age Group * Most Serious Victim Injury * Victim Gender Crosstabulation'; FORMAT V_GENDER GENDER. AGEGRP AGEGRP. MSVINJ MSVINJ.; TABLES V_GENDER*AGEGRP*MSVINJ / OUT=FREQ(DROP=PERCENT); RUN;