ICD-10 only (see flag_suicide_types). Warns if an explicit pre-1999 `year` is supplied.
Examples
df <- data.frame(ucod = c("X72", "X73", "X60"))
flag_suicide_firearm(df)
#> ucod suicide_firearm
#> 1 X72 1
#> 2 X73 1
#> 3 X60 0