| Title: | Convert ICD-10 Codes to CCSR Codes |
|---|---|
| Description: | Provides a tool for matching ICD-10 codes to corresponding Clinical Classification Software Refined (CCSR) codes. The main function, CCSRfind(), identifies each CCSR code that applies to an individual given their diagnosis codes. It also provides a summary of CCSR codes that are matched to a dataset. The package contains 3 datasets: 'DXCCSR' (mapping of ICD-10 codes to CCSR codes), 'Legend' (conversion of DXCCSR to CCSRfind-usable format for CCSR codes with less than or equal to 1000 ICD-10 diagnosis codes), and 'LegendExtend' (conversion of DXCCSR to CCSRfind-usable format for CCSR codes with more than 1000 ICD-10 dx codes). The disc() function applies grepl() ('base') to multiple columns and is used in CCSRfind(). |
| Authors: | Mark Ramos [aut, cre, cph], Amy Yeung [aut] |
| Maintainer: | Mark Ramos <[email protected]> |
| License: | GPL-3 |
| Version: | 0.1.0 |
| Built: | 2024-12-18 06:53:21 UTC |
| Source: | CRAN |
Identify CCSR codes corresponding to ICD-10 codes
CCSRfind(workset, dxs, example = FALSE)CCSRfind(workset, dxs, example = FALSE)
workset |
Dataset with ICD-10 codes |
dxs |
List of column name(s) of ICD-10 codes within workset |
example |
indicator if running an example, default is FALSE |
A list of CCSR codes corresponding to the ICD-10 codes
# Example dataset id<-c(1:2) dx1<-c("A000","B0189") dx2<-c("A157","E133591") workset<-data.frame(id,dx1,dx2) dxs<-c("dx1","dx2") # Convert to CCSR codes CCSRfind(workset=workset,dxs=dxs,example=TRUE)# Example dataset id<-c(1:2) dx1<-c("A000","B0189") dx2<-c("A157","E133591") workset<-data.frame(id,dx1,dx2) dxs<-c("dx1","dx2") # Convert to CCSR codes CCSRfind(workset=workset,dxs=dxs,example=TRUE)
Helper function to search for specific strings from multiple columns of data
disc(mydata, cols, sts)disc(mydata, cols, sts)
mydata |
Dataset containing ICD-10 codes |
cols |
A vector of column names to bind in mydata |
sts |
A regular expression string that the function will search for |
A vector indicating whether the string has been found
# Example dataset id<-c(1:10) dx1<-c("A000","B0189","A501","H16233","A5443","E211","A1832","A401","A501","H65114") dx2<-c("A157","E133591","A5611","H60311","H02219","A064","H11039","F481","H26102","B91") dx3<-c("M9701XS","M9702XS","M9711XS","A500","B90","A1828","M9731XS","E212","M9741XS","B89") mydata<-data.frame(id,dx1,dx2,dx3) cols<-c("dx1","dx2","dx3") sts<-"A501|E133591" disc(mydata=mydata, cols=cols, sts=sts)# Example dataset id<-c(1:10) dx1<-c("A000","B0189","A501","H16233","A5443","E211","A1832","A401","A501","H65114") dx2<-c("A157","E133591","A5611","H60311","H02219","A064","H11039","F481","H26102","B91") dx3<-c("M9701XS","M9702XS","M9711XS","A500","B90","A1828","M9731XS","E212","M9741XS","B89") mydata<-data.frame(id,dx1,dx2,dx3) cols<-c("dx1","dx2","dx3") sts<-"A501|E133591" disc(mydata=mydata, cols=cols, sts=sts)
The Clinical Classifications Software Refined (CCSR) for ICD-10-CM diagnoses aggregates more than 70,000 ICD-10-CM diagnosis codes into over 530 clinically meaningful categories. The CCSR is based on the International Classification of Diseases, 10th Revision, Clinical Modification (ICD-10-CM). The categories are organized across 22 body systems, which generally follow the structure of the ICD-10-CM diagnosis chapters.
DXCCSRDXCCSR
A data frame with 86855 rows and 7 variables:
ICD-10 diagnosis codes
Text description of ICD-10 codes
CCSR category corresponding to ICD-10 code
Text description of CCSR category
Indicator of whether or not the CCSR category is the default category in an inpatient setting
Indicator of whether or not the CCSR category is the default category in an outpatient setting
Rationale for the default assignment
https://hcup-us.ahrq.gov/toolssoftware/ccsr/dxccsr.jsp
data(DXCCSR) head(DXCCSR)data(DXCCSR) head(DXCCSR)
This dataset contains CCSR codes that are associated with over all ICD-10 codes
LegendLegend
A data frame with 543 rows and 3 variables:
CCSR category corresponding to ICD-10 code
Text description of CCSR category
A regular expression listing all the ICD-10 codes for the CCSR code
https://hcup-us.ahrq.gov/toolssoftware/ccsr/dxccsr.jsp
data(Legend) head(Legend)data(Legend) head(Legend)
This dataset contains CCSR codes for which there are over 1,000 individual ICD-10 codes
LegendExtendLegendExtend
A data frame with 9 rows and 3 variables:
CCSR category corresponding to ICD-10 code
Text description of CCSR category
A regular expression listing all the ICD-10 codes for the CCSR code
https://hcup-us.ahrq.gov/toolssoftware/ccsr/dxccsr.jsp
data(LegendExtend) head(LegendExtend)data(LegendExtend) head(LegendExtend)