names_charlson <- 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"
)
names_charlson_abbrev <- 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.
names_elix_htn <- 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.
names_elix_htn_abbrev <- 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:
names_elix <- names_elix_htn
names_elix["06b"] <- NULL
names_elix["06a"] <- "Hypertension, combined"
names(names_elix)[6] <- "06"
# Abbreviated
names_elix_abbrev <- names_elix_htn_abbrev
names_elix_abbrev["06b"] <- NULL
names(names_elix_abbrev)[6] <- "06"
# Quan Elixhauser identical ot original
names_quan_elix <- names_elix
names_quan_elix_htn <- names_elix_htn
# Abbreviated
names_quan_elix_abbrev <- names_elix_abbrev
names_quan_elix_htn_abbrev <- names_elix_htn_abbrev
# AHRQ very similar to Elixhauser (with HTN combined, arrhythmia dropped, giving
# 29 total)
names_ahrq <- names_elix
names_ahrq["02"] <- NULL
names(names_ahrq) <- names(names_elix)[-30]
# Abbreviated
names_ahrq_abbrev <- names_elix_abbrev
names_ahrq_abbrev["02"] <- NULL
names(names_ahrq_abbrev) <- names(names_elix_abbrev)[-30]
# with HTN separated out:
names_ahrq_htn <- names_elix_htn
names_ahrq_htn["02"] <- NULL
names(names_ahrq_htn) <- names(names_elix_htn)[-30]
# Abbreviated
names_ahrq_htn_abbrev <- names_elix_htn_abbrev
names_ahrq_htn_abbrev["02"] <- NULL
names(names_ahrq_htn_abbrev) <-
names(names_elix_htn_abbrev)[-30]
names_cc <- list(
"1" = "HIV/AIDS",
"2" = "Septicemia, Sepsis, Systemic Inflammatory Response Syndrome/Shock",
"5" = "Opportunistic Infections",
"6" = "Opportunistic Infections",
"7" = "Metastatic Cancer and Acute Leukemia",
"8" = "Metastatic Cancer and Acute Leukemia",
"9" = "Lung and Other Severe Cancers",
"10" = "Lymphoma and Other Cancers",
"11" = "Colorectal, Bladder, and Other Cancers",
"12" = "Breast, Prostate, and Other Cancers and Tumors",
"15" = "Diabetes with Renal or Peripheral Circulatory Manifestation",
"16" = "Diabetes with Neurologic or Other Specified Manifestation",
"17" = "Diabetes with Acute Complications",
"18" = "Diabetes with Chronic Complications",
"19" = "Diabetes without Complication",
"21" = "Protein-Calorie Malnutrition",
"22" = "Morbid Obesity",
"23" = "Other Significant Endocrine and Metabolic Disorders",
"25" = "End-Stage Liver Disease",
"26" = "Cirrhosis of Liver",
"27" = "End-Stage Liver Disease",
"28" = "Cirrhosis of Liver",
"29" = "Chronic Hepatitis",
"31" = "Intestinal Obstruction/Perforation",
"32" = "Pancreatic Disease",
"33" = "Intestinal Obstruction/Perforation",
"34" = "Chronic Pancreatitis",
"35" = "Inflammatory Bowel Disease",
"37" = "Bone/Joint/Muscle Infections/Necrosis",
"38" = "Rheumatoid Arthritis and Inflammatory Connective Tissue Disease",
"39" = "Bone/Joint/Muscle Infections/Necrosis",
"40" = "Rheumatoid Arthritis and Inflammatory Connective Tissue Disease",
"44" = "Severe Hematological Disorders",
"45" = "Disorders of Immunity",
"46" = "Severe Hematological Disorders",
"47" = "Disorders of Immunity",
"48" = "Coagulation Defects and Other Specified Hematological Disorders",
"51" = "Dementia With Complications",
"52" = "Dementia Without Complication",
"54" = "Drug/Alcohol Psychosis",
"55" = "Drug/Alcohol Dependence",
"57" = "Schizophrenia",
"58" = "Major Depressive, Bipolar, and Paranoid Disorders",
"67" = "Quadriplegia, Other Extensive Paralysis",
"68" = "Paraplegia",
"69" = "Spinal Cord Disorders/Injuries",
"70" = "Quadriplegia",
"71" = "Paraplegia",
"72" = "Spinal Cord Disorders/Injuries",
"73" = "Amyotrophic Lateral Sclerosis and Other Motor Neuron Disease",
"74" = "Cerebral Palsy",
"75" = "Polyneuropathy",
"76" = "Muscular Dystrophy",
"77" = "Multiple Sclerosis",
"78" = "Parkinson's and Huntington's Diseases",
"79" = "Seizure Disorders and Convulsions",
"80" = "Coma, Brain Compression/Anoxic Damage",
"81" = "Acute Myocardial Infarction",
"82" = "Respirator Dependence/Tracheostomy Status",
"83" = "Respiratory Arrest",
"84" = "Cardio-Respiratory Failure and Shock",
"85" = "Congestive Heart Failure",
"86" = "Acute Myocardial Infarction",
"87" = "Unstable Angina and Other Acute Ischemic Heart Disease",
"88" = "Angina Pectoris",
"92" = "Specified Heart Arrhythmias",
"95" = "Cerebral Hemorrhage",
"96" = "Specified Heart Arrhythmias",
"99" = "Cerebral Hemorrhage",
"100" = "Ischemic or Unspecified Stroke",
"101" = "Cerebral Palsy and Other Paralytic Syndromes",
"103" = "Hemiplegia/Hemiparesis",
"104" = "Monoplegia, Other Paralytic Syndromes",
"105" = "Vascular Disease",
"106" = "Atherosclerosis of the Extremities with Ulceration or Gangrene",
"107" = "Vascular Disease with Complications",
"108" = "Vascular Disease",
"110" = "Cystic Fibrosis",
"111" = "Chronic Obstructive Pulmonary Disease",
"112" = "Fibrosis of Lung and Other Chronic Lung Disorders",
"114" = "Aspiration and Specified Bacterial Pneumonias",
"115" = "Pneumococcal Pneumonia, Empyema, Lung Abscess",
"119" = "Proliferative Diabetic Retinopathy and Vitreous Hemorrhage",
"122" = "Proliferative Diabetic Retinopathy and Vitreous Hemorrhage",
"124" = "Exudative Macular Degeneration",
"130" = "Dialysis Status",
"131" = "Renal Failure",
"132" = "Nephritis",
"134" = "Dialysis Status",
"135" = "Acute Renal Failure",
"136" = "Chronic Kidney Disease, Stage 5",
"137" = "Chronic Kidney Disease, Severe (Stage 4)",
"138" = "Chronic Kidney Disease, Moderate (Stage 3)",
"139" = "Chronic Kidney Disease, Mild or Unspecified (Stages 1-2 or Unspecified)",
"140" = "Unspecified Renal Failure",
"141" = "Nephritis",
"148" = "Decubitus Ulcer of Skin",
"149" = "Chronic Ulcer of Skin, Except Decubitus",
"150" = "Extensive Third-Degree Burns",
"154" = "Severe Head Injury",
"155" = "Major Head Injury",
"157" = "Pressure Ulcer of Skin with Necrosis Through to Muscle, Tendon, or Bone",
"158" = "Pressure Ulcer of Skin with Full Thickness Skin Loss",
"159" = "Pressure Ulcer of Skin with Partial Thickness Skin Loss",
"160" = "Pressure Pre-Ulcer Skin Changes or Unspecified Stage",
"161" = "Chronic Ulcer of Skin, Except Pressure",
"162" = "Severe Skin Burn or Condition",
"164" = "Major Complications of Medical Care and Trauma",
"166" = "Severe Head Injury",
"167" = "Major Head Injury",
"169" = "Vertebral Fractures without Spinal Cord Injury",
"170" = "Hip Fracture/Dislocation",
"173" = "Traumatic Amputations and Complications",
"174" = "Major Organ Transplant Status",
"176" = "Complications of Specified Implanted Device or Graft",
"177" = "Amputation Status, Lower Limb/Amputation Complications",
"186" = "Major Organ Transplant or Replacement Status",
"188" = "Artificial Openings for Feeding or Elimination",
"189" = "Amputation Status, Lower Limb/Amputation Complications"
)
names_pccc <- list(
"01" = "Neurologic and neuromuscular",
"02" = "Cardiovascular",
"03" = "Respiratory",
"04" = "Renal and urologic",
"05" = "Gastrointestinal",
"06" = "Hematologic or immunologic",
"07" = "Metabolic",
"08" = "Other congenital or Genetic defect",
"09" = "Malignancy",
"10" = "Premature and neonatal",
"11" = "Technology dependence",
"12" = "Transplantation"
)
names_pccc_abbrev <- list(
"01" = "Neuromusc",
"02" = "CVD",
"03" = "Respiratory",
"04" = "Renal",
"05" = "GI",
"06" = "HematoImmu",
"07" = "Metabolic",
"08" = "CongeniGenetic",
"09" = "Malignancy",
"10" = "Neonatal",
"11" = "TechDep",
"12" = "Transplant"
)
# deprecated copies follow:
icd_names_charlson <- names_charlson
icd_names_charlson_abbrev <- names_charlson_abbrev
icd_names_elix_htn <- names_elix_htn
icd_names_elix_htn_abbrev <- names_elix_htn_abbrev
icd_names_elix <- names_elix
icd_names_elix_abbrev <- names_elix_abbrev
icd_names_quan_elix <- names_quan_elix
icd_names_quan_elix_htn <- names_quan_elix_htn
icd_names_quan_elix_abbrev <- names_quan_elix_abbrev
icd_names_quan_elix_htn_abbrev <- names_quan_elix_htn_abbrev
icd_names_ahrq <- names_ahrq
icd_names_ahrq_abbrev <- names_ahrq_abbrev
icd_names_ahrq_htn <- names_ahrq_htn
icd_names_ahrq_htn_abbrev <- names_ahrq_htn_abbrev
icd_names_cc <- names_cc
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.