R/od_non_heroin_icd10cm.R

In injuryepi/overdoser: Overdose data analysis

#' Find non-heroin opioid ICD-10-CM.
#'
#' @param data input data
#' @param diag_ecode_col column indices
#'
#' @return non_heroin_icd10cm
#' @export
#'
#' @examples to be added
od_non_heroin_icd10cm <- function(data, diag_ecode_col) {

    cdc_non_heroin_icd10cm_regex7_ <- "(T40[0234].|T406[09])(1|2|3|4)(A|$)"
    data %>% mutate(non_heroin_icd10cm = od_create_diag(., expr = cdc_non_heroin_icd10cm_regex7_,
        colvec = diag_ecode_col))
}