* School Violence Victims by Injury.


GET FILE='Directory\Path\NIBRS victim segment.sav'.
SELECT IF (msvoff LE 130 or (msvoff ge 180 and msvoff le 183)).
SORT CASES BY ori inc_num.
SAVE OUTFILE = 'Directory\Path\victims with violent offenses.sav'/keep = 
  ori inc_num inc_yr msvoff v_inj1 v_inj2 v_inj3 v_inj4 v_inj5. 
GET FILE = 'Directory\Path\victims with violent offenses.sav'.
MATCH FILES /FILE=*
 /TABLE='Directory\Path\NIBRS Incident file.sav'
 /BY ori inc_num
 /DROP= aggasl arfemale arr0509 arr1017 arr1524 arr65 arr_cnt arradult
  arrmale asl_arr att_comp bur bur_arr clr_arr clr_excp firearm inc_dy inc_hr
  inc_mo inc_yr indivl lar lar_arr msioff mur mur_arr mvt mvt_arr mvtonly
  oasl_arr off1017 off1524 off65 off_cnt offadult offemale offmale ofns_cnt
  oth_asl rap rap_arr rob rob_arr rptdate vadult vage1017 vage1524 vage65
  vfemale vic_cnt vic_inj vlt18 vmale.
SELECT IF (inc_loc = 22).
VALUE LABELS v_inj1 to v_inj5
'B' 'Broken Bone'  
'I' 'Internal Injury'  
'L' 'Severe Laceration'     
'M' 'Minor Injury'  
'N' 'None'                  
'O' 'Other Major Injury'    
'T' 'Loss of Teeth'  
'U' 'Unconsciousness'       
' ' 'Missing'.

USE ALL.
COMPUTE filter_$=(v_inj1 ~= ' ').
VARIABLE LABEL filter_$ "v_inj1 ~= ' ' (FILTER)".
VALUE LABELS filter_$  0 'Not Selected' 1 'Selected'.
FORMAT filter_$ (f1.0).
FILTER BY filter_$.
TABLES
  /FORMAT BLANK MISSING('.')
  /GBASE=CASES
  /FTOTAL= $t000001 "Total"
  /TABLE=v_inj1 + $t000001  BY (STATISTICS)
  /STATISTICS
  count( v_inj1( F5.0 ) 'Number')
  cpct( v_inj1( PCT5.1 ) 'Percent')
  /TITLE  'School Violence Victims by Injury'.