add_any_drug_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|$))"
data %>%
mutate(any_drug_icd10cm =
create_diag(., expr = cdc_drugs_icd10cm_regex7_,
colvec = diag_ecode_col))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.