Classify ICD-10-PCS procedures into CCSR a category

Converts a vector of ICD-10 procedure codes into a vector of Clinical Classifications Software Refined categories for procedures using the HCUP's software

Usage

classify_ccsr_pr(icd_pr)

Source

HCUP page for CCSR for procedures

Arguments

icd_pr

A vector of ICD-10-PCS procedure codes, without decimals

Value

A vector of CCSR categories for procedures

See also

See explain_ccsr to convert the CCSR category into a description of the category

CCSR_PR_mapping in the hcup.data package for the dataset

Examples

classify_ccsr_pr("0016070")
#> [1] "CNS010"

icd_10_pr <- c("04L04DZ", "009Y40Z", "0F7C7DZ", "GZ2ZZZZ")
classify_ccsr_pr(icd_10_pr)
#> [1] "CAR010" "CNS003" "HEP008" "MHT004"

# Vectorized using `mutate()`
library(dplyr)

dplyr::tibble(icd_10 = icd_10_pr) %>%
  mutate(CCSR = classify_ccsr_pr(icd_10),
         explained = explain_ccsr(CCSR))
#> # A tibble: 4 × 3
#>   icd_10  CCSR   explained                                                      
#>   <chr>   <chr>  <chr>                                                          
#> 1 04L04DZ CAR010 Ligation and embolization of vessels                           
#> 2 009Y40Z CNS003 Spinal canal and spinal cord drainage (excluding lumbar punctu…
#> 3 0F7C7DZ HEP008 Common bile duct sphincterotomy and stenting                   
#> 4 GZ2ZZZZ MHT004 Crisis intervention for mental health