R/disease_codes/cervical_dissection.R

In aarmiller/codeBuildr: This package provides functions for loading project codes

## Codes for cervical_dissection 

    
# Description:
    
desc <- "Cervical and Cerebral Artery Dissection"

tokens <- c("cervical dissection","cervical and cerebral artery dissection",
            "cerebral artery dissection","cervical artery dissection")
    
# Diagnosis codes:
    
icd9_codes <- as.character(children_safe(c("44321","44324")))
    
icd10_codes <- as.character(children_safe(c("I7771","I7774","I670","I7775")))
    
# Procedure codes:
    
pr_codes_icd9 <- c()
    
pr_codes_icd10 <- c()
    
pr_codes_cpt <- c()
    
# Medication codes
    
rx_codes <- c()