data/mappingNames.R

In jackwasey/icd9: Tools for Working with ICD-9 Codes, and Finding Comorbidities

charlsonComorbidNames <- list(
  "01" = "Myocardial Infarction",
  "02" = "Congestive Heart Failure",
  "03" = "Periphral Vascular Disease",
  "04" = "Cerebrovascular Disease",
  "05" = "Dementia",
  "06" = "Chronic Pulmonary Disease",
  "07" = "Connective Tissue Disease-Rheumatic Disease",
  "08" = "Peptic Ulcer Disease",
  "09" = "Mild Liver Disease",
  "10" = "Diabetes without complications",
  "11" = "Diabetes with complications",
  "12" = "Paraplegia and Hemiplegia",
  "13" = "Renal Disease",
  "14" = "Cancer",
  "15" = "Moderate or Severe Liver Disease",
  "16" = "Metastatic Carcinoma",
  "17" = "HIV/AIDS"
)

charlsonComorbidNamesAbbrev <- list(
  "01" = "MI",
  "02" = "CHF",
  "03" = "PVD",
  "04" = "Stroke",
  "05" = "Dementia",
  "06" = "Pulmonary",
  "07" = "Rheumatic",
  "08" = "PUD",
  "09" = "LiverMild",
  "10" = "DM",
  "11" = "DMcx",
  "12" = "Paralysis",
  "13" = "Renal",
  "14" = "Cancer",
  "15" = "LiverSevere",
  "16" = "Mets",
  "17" = "HIV"
)

# 31 in this list, with two for HTN
# HTN marked together as combined, but DM not.
elixComorbidNamesHtn <- list(
  "01" = "Congestive heart failure",
  "02" = "Cardiac arrhythmias",
  "03" = "Valvular disease",
  "04" = "Pulmonary circulation disorders",
  "05" = "Peripheral vascular disorders",
  "06a" = "Hypertension, uncomplicated",
  "06b" = "Hypertension, complicated",
  "07" = "Paralysis",
  "08" = "Other neurological disorders",
  "09" = "Chronic pulmonary disease",
  "10" = "Diabetes, uncomplicated",
  "11" = "Diabetes, complicated",
  "12" = "Hypothyroidism",
  "13" = "Renal failure",
  "14" = "Liver disease",
  "15" = "Peptic ulcer disease excluding bleeding",
  "16" = "HIV/AIDS",
  "17" = "Lymphoma",
  "18" = "Metastatic cancer",
  "19" = "Solid tumor without metastasis",
  "20" = "Rheumatoid arthritis/collagen vascular diseases",
  "21" = "Coagulopathy",
  "22" = "Obesity",
  "23" = "Weight loss",
  "24" = "Fluid and electrolye disorders",
  "25" = "Blood loss anemia",
  "26" = "Deficiency anemias",
  "27" = "Alcohol abuse",
  "28" = "Drug abuse",
  "29" = "Psychoses",
  "30" = "Depression"
)

# HTN marked together as combined, but DM not.
elixComorbidNamesHtnAbbrev <- list(
  "01" = "CHF",
  "02" = "Arrhythmia",
  "03" = "Valvular",
  "04" = "PHTN",
  "05" = "PVD",
  "06a" = "HTN",
  "06b" = "HTNcx",
  "07" = "Paralysis",
  "08" = "NeuroOther",
  "09" = "Pulmonary",
  "10" = "DM",
  "11" = "DMcx",
  "12" = "Hypothyroid",
  "13" = "Renal",
  "14" = "Liver",
  "15" = "PUD",
  "16" = "HIV",
  "17" = "Lymphoma",
  "18" = "Mets",
  "19" = "Tumor",
  "20" = "Rheumatic",
  "21" = "Coagulopathy",
  "22" = "Obesity",
  "23" = "WeightLoss",
  "24" = "FluidsLytes",
  "25" = "BloodLoss",
  "26" = "Anemia",
  "27" = "Alcohol",
  "28" = "Drugs",
  "29" = "Psychoses",
  "30" = "Depression"
)

# Elixhauser with HTN combined:
elixComorbidNames <- elixComorbidNamesHtn
elixComorbidNames["06b"] <- NULL
elixComorbidNames["06a"] <- "Hypertension, combined"
names(elixComorbidNames)[6] <- "06"
# Abbreviated
elixComorbidNamesAbbrev <- elixComorbidNamesHtnAbbrev
elixComorbidNamesAbbrev["06b"] <- NULL
names(elixComorbidNamesAbbrev)[6] <- "06"

# Quan Elixhauser identical ot original
quanElixComorbidNames <- elixComorbidNames
quanElixComorbidNamesHtn <- elixComorbidNamesHtn
# Abbreviated
quanElixComorbidNamesAbbrev <- elixComorbidNamesAbbrev
quanElixComorbidNamesHtnAbbrev <- elixComorbidNamesHtnAbbrev

# AHRQ very similar to Elixhauser (with HTN combined, arrhythmia dropped, giving
# 29 total)
ahrqComorbidNames <- elixComorbidNames
ahrqComorbidNames["02"] <- NULL
names(ahrqComorbidNames) <- names(elixComorbidNames)[-30]
# Abbreviated
ahrqComorbidNamesAbbrev <- elixComorbidNamesAbbrev
ahrqComorbidNamesAbbrev["02"] <- NULL
names(ahrqComorbidNamesAbbrev) <- names(elixComorbidNamesAbbrev)[-30]
# with HTN separated out:
ahrqComorbidNamesHtn <- elixComorbidNamesHtn
ahrqComorbidNamesHtn["02"] <- NULL
names(ahrqComorbidNamesHtn) <- names(elixComorbidNamesHtn)[-30]
# Abbreviated
ahrqComorbidNamesHtnAbbrev <- elixComorbidNamesHtnAbbrev
ahrqComorbidNamesHtnAbbrev["02"] <- NULL
names(ahrqComorbidNamesHtnAbbrev) <-
  names(elixComorbidNamesHtnAbbrev)[-30]