* Domestic Violence Victim Injuries.

GET FILE='Directory\Path\NIBRS victim segment.sav'.

DO REPEAT ovr = ovr1 to ovr10/
  ovr_rcd = rcdovr1 to rcdovr10.
RECODE
  OVR ('SE','CS','PA','SB','CH','GP','BG','CF','HR','XS',
       'GC','IL','SP','SC','SS','OF' = 1)
      ('AQ','FR','NE','BE','EE','ER','OK','VO' = 2)
      ('RU' = 4)('ST' = 3) ('  ' = -1)INTO OVR_RCD.
END REPEAT.
DO IF ((msvoff gt 132 and msvoff lt 360) or msvoff gt 361).
RECODE RCDOVR1 to RCDOVR10 (-1 = 9).
END IF.
MISSING VALUES rcdovr1 to rcdovr10 (-1,9).
VALUE LABELS RCDOVR1 to RCDOVR10 1 'FAMILIAL'
    2 'OUTSIDE FAMILY BUT KNOWN TO VICTIM'
    3 'STRANGER' 4 'RELATIONSHIP UNKNOWN' -1 'MISSING RELATIONSHIP INFORMATION'
    9 'NOT APPLICABLE'.
VARIABLE LABELS RCDOVR1  'VICTIM TO OFFENDER RELATIONSHIP RECODED'.
COMPUTE domestic = 0.
DO REPEAT ovr_rcd = rcdovr1 to rcdovr10.
IF (ovr_rcd = 1)domestic = 1.
END REPEAT.
SELECT IF (domestic = 1 and rcdovr1 = 1) and 
          (msvoff le 130 or (msvoff ge 180 and msvoff le 183)).
SAVE OUTFILE = 'Directory\Path\NIBRS Victim domestic violence.sav'.

DO REPEAT inj = v_inj1 to v_inj5/
  vic_inj = vic_inj1 to vic_inj5.
RECODE
  inj ('B' = 1)
      ('I' = 2) 
      ('L' = 3) 
      ('M' = 4)
      ('N' = 5)
      ('O' = 6)
      ('T' = 7)
      ('U' = 8)
      (' ' = -1)INTO vic_inj.
END REPEAT.
DO IF ((msvoff = 132 or msvoff = 200) or msvoff gt 210).
RECODE vic_inj1 to vic_inj5 (-1 = 9).
END IF.
MISSING VALUES vic_inj1 to vic_inj5 (-1,9).
VALUE LABELS vic_inj1 to vic_inj5
 1 'Apparent Broken Bones' 
 2 'Possible Internal Injury'  
 3 'Severe Laceration'     
 4 'Apparent Minor Injury'  
 5 'No Injury'             
 6 'Other Major Injury'    
 8 'Unconsciousness'       
 7 'Loss of Teeth'  
 9 'Not Applicable'
 -1 'Missing'.
freq vic_inj1 to vic_inj5.

VALUE LABELS  ovr1 to ovr10
  'SE' 'Victim was Spouse'
  'CS' 'Victim was common-law Spouse'
  'PA' 'Victim was Parent'
  'SB' 'Victim was Sibling'
  'CH' 'Victim was Child'
  'GP' 'Victim was Grandparent'
  'GC' 'Victim was Grandchild'
  'IL' 'Victim was in-law'
  'SP' 'Victim was Stepparent'
  'SC' 'Victim was Stepchild'
  'SS' 'Victim was Stepsibling'
  'OF' 'Other Family Member'
  'VO' 'Victim was Offender'
  'AQ' 'Victim was Acquaintance'
  'FR' 'Victim was Friend'
  'NE' 'Victim was Neighbor'
  'BE' 'Victim was Babysitter'
  'BG' 'Victim was Boyfriend/Girlfriend'
  'CF' 'Victim was Child of Boyfriend/Girlfriend'
  'HR' 'Homosexual Relationship'
  'XS' 'Victim was Ex-Spouse'
  'EE' 'Victim was Employee'
  'ER' 'Victim was Employer'
  'OK' 'Victim was Otherwise Known'
  'RU' 'Relationship Unknown'
  'ST' 'Victim was Stranger'.

TABLES
  /FORMAT BLANK MISSING('.')
  /GBASE=CASES
  /FTOTAL= $t000002 "Total" $t000001 "Total"
  /TABLE=ovr1 + $t000002  BY vic_inj1 > (STATISTICS) + $t000001
  /STATISTICS count( ovr1( F5.0 ) '')
  /TITLE  'Domestic Violence Victim Injuries'.