ICD-9 code lookup

icd9.r

# Read ICD-9 diagnosis and procedure code descriptions

descLength <- "LONG"  # Change "SHORT" to "LONG" for more detailed description

# Use Version 32 from cms.gov
# Version 32 Full and Abbreviated Code Titles – Effective October 1, 2014
# Update if necessary
url <- "http://www.cms.gov/Medicare/Coding/ICD9ProviderDiagnosticCodes/Downloads/ICD-9-CM-v32-master-descriptions.zip"


# # # # # DO NOT CHANGE THE LINES BELOW # # # # #
setwd(tempdir())
f1 <- tempfile()
download.file(url, f1)
filenames <- unzip(f1, list=TRUE)

if (descLength == "LONG") {len <- 255} else {len <- 25}
f2 <- grep(paste0(descLength, ".((DX)|(SG))\\.txt"), filenames$Name, value=TRUE)
f2
unzip(f1, files=f2)
icd9DX <- read.fwf(grep("DX", f2, value=TRUE),
                   widths=c(6, len),
                   header=FALSE,
                   col.names=c("code", "desc"),
                   colClasses=rep("character", 2),
                   strip.white=TRUE,
                   stringsAsFactors=FALSE)
icd9SG <- read.fwf(grep("SG", f2, value=TRUE),
                   widths=c(5, len),
                   header=FALSE,
                   col.names=c("code", "desc"),
                   colClasses=rep("character", 2),
                   strip.white=TRUE,
                   stringsAsFactors=FALSE)
require(data.table)
icd9DX <- data.table(icd9DX)
icd9SG <- data.table(icd9SG)
str(icd9DX)
str(icd9SG)