R/add_drug_types_icd10cm.r

In injuryepi/injuryepi: Miscellaneous functions for Injury Epi

add_drug_types_icd10cm <- function(data, diag_ecode_col){

	cdc_drugs_icd10cm_regex7_ <- "(?!(T3[679]9|T414|T427|T4[3579]9))(T3[6-9]|T4[0-9]|T50)..(1|2|3|4)(A|D|$)|((T3[679]9|T414|T427|T4[3579]9)(1|2|3|4).(A|D|$))"

	cdc_opioid_icd10cm_regex7_ <- "(T40[01234].|T406[09])(1|2|3|4)(A|D|$)"

	cdc_non_heroin_icd10cm_regex7_ <- "(T40[0234].|T406[09])(1|2|3|4)(A|D|$)"

	cdc_heroin_icd10cm_regex7_ <- "T401.(1|2|3|4)(A|D|$)"

	data %>%
		mutate(any_drug_icd10cm = create_diag(., expr = cdc_drugs_icd10cm_regex7_, colvec = diag_ecode_col),
		       any_opioid_icd10cm = create_diag(., expr = cdc_opioid_icd10cm_regex7_, colvec = diag_ecode_col),
		       non_heroin_icd10cm = create_diag(., expr = cdc_non_heroin_icd10cm_regex7_, colvec = diag_ecode_col),
		       heroin_icd10cm = create_diag(., expr = cdc_heroin_icd10cm_regex7_, colvec = diag_ecode_col)
					 )
}