R/ae_codebook.R

In TheMillerLab/StoryboardR: StoryboardR

#' Replace the data in the Adverse Events Instrument with the strings from the codebook
#' @description
#' `ae_codebook()`transforms adverse event data to the appropriate strings per the AE codebook
#' @param data is a dataframe from a tumor registry with the Adverse Events Instrument
#' @return A dataframe which contains the data with numerics replaced by stings
#' @export
#' @examples
#' # Test with embedded data set "storyboard_dataset"
#' storyboard_dataset %>%
#'   ae_codebook()
ae_codebook <- function(data){
  ##########################################################################################################################
  # Load Data
  ##########################################################################################################################
  dt <- data
  ##########################################################################################################################
  # Transform data
  ##########################################################################################################################
  dt$ae_tx___1 <- replace(dt$ae_tx___1, dt$ae_tx___1 == 1, "Antibiotics")
  dt$ae_tx___2 <- replace(dt$ae_tx___2, dt$ae_tx___2 == 1, "Anticoagulants")
  dt$ae_tx___3 <- replace(dt$ae_tx___3, dt$ae_tx___3 == 1, "Antihistamines")
  dt$ae_tx___4 <- replace(dt$ae_tx___4, dt$ae_tx___4 == 1, "Antivirals")
  dt$ae_tx___5 <- replace(dt$ae_tx___5, dt$ae_tx___5 == 1, "Bone Marrow Stimulants")
  dt$ae_tx___6 <- replace(dt$ae_tx___6, dt$ae_tx___6 == 1, "Cycloplegic Agents")
  dt$ae_tx___7 <- replace(dt$ae_tx___7, dt$ae_tx___7 == 1, "Endocrine-directed Interventions")
  dt$ae_tx___8 <- replace(dt$ae_tx___8, dt$ae_tx___8 == 1, "Immunosuppressants")
  dt$ae_tx___9 <- replace(dt$ae_tx___9, dt$ae_tx___9 == 1, "IV Fluids")
  dt$ae_tx___10 <- replace(dt$ae_tx___10, dt$ae_tx___10 == 1, "Nonsteroidal Anti-inflammatory Drugs")
  dt$ae_tx___11 <- replace(dt$ae_tx___11, dt$ae_tx___11 == 1, "Plasmapheresis")
  dt$ae_tx___12 <- replace(dt$ae_tx___12, dt$ae_tx___12 == 1, "Psychopharmacologic/Neurologic Agents")
  dt$ae_tx___13 <- replace(dt$ae_tx___13, dt$ae_tx___13 == 1, "Supportive/Symptom-Directed Agents")
  dt$ae_tx___14 <- replace(dt$ae_tx___14, dt$ae_tx___14 == 1, "Surgery")
  dt$ae_tx___98 <- replace(dt$ae_tx___98, dt$ae_tx___98 == 1, "Unknown/Not Reported")
  dt$ae_tx___99 <- replace(dt$ae_tx___99, dt$ae_tx___99 == 1, "Other")
  dt$ae_tx_anticoag___1 <- replace(dt$ae_tx_anticoag___1, dt$ae_tx_anticoag___1 == 1, "Direct/Novel Oral Anticoagulants")
  dt$ae_tx_anticoag___2 <- replace(dt$ae_tx_anticoag___2, dt$ae_tx_anticoag___2 == 1, "Heparin")
  dt$ae_tx_anticoag___3 <- replace(dt$ae_tx_anticoag___3, dt$ae_tx_anticoag___3 == 1, "Low Molecular Weight Heparin")
  dt$ae_tx_anticoag___4 <- replace(dt$ae_tx_anticoag___4, dt$ae_tx_anticoag___4 == 1, "Warfarin")
  dt$ae_tx_anticoag___98 <- replace(dt$ae_tx_anticoag___98, dt$ae_tx_anticoag___98 == 1, "Unknown/Not Reported")
  dt$ae_tx_anticoag___99 <- replace(dt$ae_tx_anticoag___99, dt$ae_tx_anticoag___99 == 1, "Other")
  dt$ae_tx_bm___1 <- replace(dt$ae_tx_bm___1, dt$ae_tx_bm___1 == 1, "Eltrombopag/TpoR agonists")
  dt$ae_tx_bm___2 <- replace(dt$ae_tx_bm___2, dt$ae_tx_bm___2 == 1, "Pegfilgrastim/GCSF analogs")
  dt$ae_tx_bm___98 <- replace(dt$ae_tx_bm___98, dt$ae_tx_bm___98 == 1, "Unknown/Not Reported")
  dt$ae_tx_bm___99 <- replace(dt$ae_tx_bm___99, dt$ae_tx_bm___99 == 1, "Other")
  dt$ae_tx_endo___1 <- replace(dt$ae_tx_endo___1, dt$ae_tx_endo___1 == 1, "Estrogen Supplementation")
  dt$ae_tx_endo___2 <- replace(dt$ae_tx_endo___2, dt$ae_tx_endo___2 == 1, "Insulin")
  dt$ae_tx_endo___3 <- replace(dt$ae_tx_endo___3, dt$ae_tx_endo___3 == 1, "Methimazole")
  dt$ae_tx_endo___4 <- replace(dt$ae_tx_endo___4, dt$ae_tx_endo___4 == 1, "Mineralocorticoid")
  dt$ae_tx_endo___5 <- replace(dt$ae_tx_endo___5, dt$ae_tx_endo___5 == 1, "Oral Hypoglycemics")
  dt$ae_tx_endo___6 <- replace(dt$ae_tx_endo___6, dt$ae_tx_endo___6 == 1, "Potassium Iodide")
  dt$ae_tx_endo___7 <- replace(dt$ae_tx_endo___7, dt$ae_tx_endo___7 == 1, "Propylthiouracil")
  dt$ae_tx_endo___8 <- replace(dt$ae_tx_endo___8, dt$ae_tx_endo___8 == 1, "Testosterone Supplementation")
  dt$ae_tx_endo___9 <- replace(dt$ae_tx_endo___9, dt$ae_tx_endo___9 == 1, "Thyroid Hormone")
  dt$ae_tx_endo___98 <- replace(dt$ae_tx_endo___98, dt$ae_tx_endo___98 == 1, "Unknown/Not Reported")
  dt$ae_tx_endo___99 <- replace(dt$ae_tx_endo___99, dt$ae_tx_endo___99 == 1, "Other")
  dt$ae_tx_imm___1 <- replace(dt$ae_tx_imm___1, dt$ae_tx_imm___1 == 1, "Antithymocyte Globulin")
  dt$ae_tx_imm___2 <- replace(dt$ae_tx_imm___2, dt$ae_tx_imm___2 == 1, "Azathioprine")
  dt$ae_tx_imm___3 <- replace(dt$ae_tx_imm___3, dt$ae_tx_imm___3 == 1, "Calcineurin Inhibitor, Systemic")
  dt$ae_tx_imm___4 <- replace(dt$ae_tx_imm___4, dt$ae_tx_imm___4 == 1, "Calcineurin Inhibitor, Topical")
  dt$ae_tx_imm___5 <- replace(dt$ae_tx_imm___5, dt$ae_tx_imm___5 == 1, "Corticosteroids, Systemic")
  dt$ae_tx_imm___6 <- replace(dt$ae_tx_imm___6, dt$ae_tx_imm___6 == 1, "Corticosteroids, Topical/Intravitreal/Intra-articular")
  dt$ae_tx_imm___7 <- replace(dt$ae_tx_imm___7, dt$ae_tx_imm___7 == 1, "Cyclophosphamide")
  dt$ae_tx_imm___8 <- replace(dt$ae_tx_imm___8, dt$ae_tx_imm___8 == 1, "Infliximab")
  dt$ae_tx_imm___9 <- replace(dt$ae_tx_imm___9, dt$ae_tx_imm___9 == 1, "IVIG")
  dt$ae_tx_imm___10 <- replace(dt$ae_tx_imm___10, dt$ae_tx_imm___10 == 1, "Leflunomide")
  dt$ae_tx_imm___11 <- replace(dt$ae_tx_imm___11, dt$ae_tx_imm___11 == 1, "Methotrexate")
  dt$ae_tx_imm___12 <- replace(dt$ae_tx_imm___12, dt$ae_tx_imm___12 == 1, "Mycophenolate Mofetil")
  dt$ae_tx_imm___13 <- replace(dt$ae_tx_imm___13, dt$ae_tx_imm___13 == 1, "Rituximab")
  dt$ae_tx_imm___14 <- replace(dt$ae_tx_imm___14, dt$ae_tx_imm___14 == 1, "Ruxolitinib")
  dt$ae_tx_imm___15 <- replace(dt$ae_tx_imm___15, dt$ae_tx_imm___15 == 1, "Tocilizumab/Siltuximab")
  dt$ae_tx_imm___98 <- replace(dt$ae_tx_imm___98, dt$ae_tx_imm___98 == 1, "Unknown/Not Reported")
  dt$ae_tx_imm___99 <- replace(dt$ae_tx_imm___99, dt$ae_tx_imm___99 == 1, "Other")
  dt$ae_tx_psychneuro___1 <- replace(dt$ae_tx_psychneuro___1, dt$ae_tx_psychneuro___1 == 1, "Duloxetine")
  dt$ae_tx_psychneuro___2 <- replace(dt$ae_tx_psychneuro___2, dt$ae_tx_psychneuro___2 == 1, "Gabapentin/Pregabalin")
  dt$ae_tx_psychneuro___3 <- replace(dt$ae_tx_psychneuro___3, dt$ae_tx_psychneuro___3 == 1, "Pyridostigmine/Other Acetylcholinesterase Inhibitor")
  dt$ae_tx_psychneuro___98 <- replace(dt$ae_tx_psychneuro___98, dt$ae_tx_psychneuro___98 == 1, "Unknown/Not Reported")
  dt$ae_tx_psychneuro___99 <- replace(dt$ae_tx_psychneuro___99, dt$ae_tx_psychneuro___99 == 1, "Other")
  dt$ae_tx_support___1 <- replace(dt$ae_tx_support___1, dt$ae_tx_support___1 == 1, "Acetaminophen")
  dt$ae_tx_support___2 <- replace(dt$ae_tx_support___2, dt$ae_tx_support___2 == 1, "Loperamide")
  dt$ae_tx_support___3 <- replace(dt$ae_tx_support___3, dt$ae_tx_support___3 == 1, "Beta-Blocker")
  dt$ae_tx_support___98 <- replace(dt$ae_tx_support___98, dt$ae_tx_support___98 == 1, "Unknown/Not Reported")
  dt$ae_tx_support___99 <- replace(dt$ae_tx_support___99, dt$ae_tx_support___99 == 1, "Other")
  dt$ae_srs_rsn___1 <- replace(dt$ae_srs_rsn___1, dt$ae_srs_rsn___1 == 1, "Resulted in death")
  dt$ae_srs_rsn___2 <- replace(dt$ae_srs_rsn___2, dt$ae_srs_rsn___2 == 1, "Was life-threatening")
  dt$ae_srs_rsn___3 <- replace(dt$ae_srs_rsn___3, dt$ae_srs_rsn___3 == 1, "Required inpatient hospitalization or prolongation of existing hospitalization")
  dt$ae_srs_rsn___4 <- replace(dt$ae_srs_rsn___4, dt$ae_srs_rsn___4 == 1, "Caused persistent or significant disability or incapacity")
  dt$ae_srs_rsn___5 <- replace(dt$ae_srs_rsn___5, dt$ae_srs_rsn___5 == 1, "Caused substantial disruption of the ability to conduct normal life function")
  dt$ae_srs_rsn___6 <- replace(dt$ae_srs_rsn___6, dt$ae_srs_rsn___6 == 1, "Caused congenital anomaly or birth defect")
  dt$ae_srs_rsn___7 <- replace(dt$ae_srs_rsn___7, dt$ae_srs_rsn___7 == 1, "Required treatment to prevent permanent impairment")
  dt$ae_srs_rsn___98 <- replace(dt$ae_srs_rsn___98, dt$ae_srs_rsn___98 == 1, "Unknown/Not Reported")
  dt$ae_srs_rsn___99 <- replace(dt$ae_srs_rsn___99, dt$ae_srs_rsn___99 == 1, "Other")
  dt$ae_yn <- replace(dt$ae_yn, dt$ae_yn == 0, "No")
  dt$ae_yn <- replace(dt$ae_yn, dt$ae_yn == 1, "Yes")
  dt$ae_soc <- replace(dt$ae_soc, dt$ae_soc == 98, "Unknown - Search Term List")
  dt$ae_soc <- replace(dt$ae_soc, dt$ae_soc == 1, "Blood and lymphatic system disorders")
  dt$ae_soc <- replace(dt$ae_soc, dt$ae_soc == 2, "Cardiac disorders")
  dt$ae_soc <- replace(dt$ae_soc, dt$ae_soc == 3, "Congenital, familial and genetic disorders")
  dt$ae_soc <- replace(dt$ae_soc, dt$ae_soc == 4, "Ear and labyrinth disorders")
  dt$ae_soc <- replace(dt$ae_soc, dt$ae_soc == 5, "Endocrine disorders")
  dt$ae_soc <- replace(dt$ae_soc, dt$ae_soc == 6, "Eye disorders")
  dt$ae_soc <- replace(dt$ae_soc, dt$ae_soc == 7, "Gastrointestinal disorders")
  dt$ae_soc <- replace(dt$ae_soc, dt$ae_soc == 8, "General disorders and administration site conditions")
  dt$ae_soc <- replace(dt$ae_soc, dt$ae_soc == 9, "Hepatobiliary disorders")
  dt$ae_soc <- replace(dt$ae_soc, dt$ae_soc == 10, "Immune system disorders")
  dt$ae_soc <- replace(dt$ae_soc, dt$ae_soc == 11, "Infections and infestations")
  dt$ae_soc <- replace(dt$ae_soc, dt$ae_soc == 12, "Injury, poisoning and procedural complications")
  dt$ae_soc <- replace(dt$ae_soc, dt$ae_soc == 13, "Investigations")
  dt$ae_soc <- replace(dt$ae_soc, dt$ae_soc == 14, "Metabolism and nutrition disorders")
  dt$ae_soc <- replace(dt$ae_soc, dt$ae_soc == 15, "Musculoskeletal and connective tissue disorders")
  dt$ae_soc <- replace(dt$ae_soc, dt$ae_soc == 16, "Neoplasms benign, malignant and unspecified")
  dt$ae_soc <- replace(dt$ae_soc, dt$ae_soc == 17, "Nervous system disorders")
  dt$ae_soc <- replace(dt$ae_soc, dt$ae_soc == 18, "Pregnancy, puerperium and perinatal conditions")
  dt$ae_soc <- replace(dt$ae_soc, dt$ae_soc == 19, "Psychiatric disorders")
  dt$ae_soc <- replace(dt$ae_soc, dt$ae_soc == 20, "Renal and urinary disorders")
  dt$ae_soc <- replace(dt$ae_soc, dt$ae_soc == 21, "Reproductive system and breast disorders")
  dt$ae_soc <- replace(dt$ae_soc, dt$ae_soc == 22, "Respiratory, thoracic and mediastinal disorders")
  dt$ae_soc <- replace(dt$ae_soc, dt$ae_soc == 23, "Skin and subcutaneous tissue disorders")
  dt$ae_soc <- replace(dt$ae_soc, dt$ae_soc == 24, "Social circumstances")
  dt$ae_soc <- replace(dt$ae_soc, dt$ae_soc == 25, "Surgical and medical procedures")
  dt$ae_soc <- replace(dt$ae_soc, dt$ae_soc == 26, "Vascular disorders")
  dt$ae_blood <- replace(dt$ae_blood, dt$ae_blood == 10002272, "Anemia")
  dt$ae_blood <- replace(dt$ae_blood, dt$ae_blood == 10005329, "Blood and lymphatic system disorders - Other, specify")
  dt$ae_blood <- replace(dt$ae_blood, dt$ae_blood == 10048580, "Bone marrow hypocellular")
  dt$ae_blood <- replace(dt$ae_blood, dt$ae_blood == 10013442, "Disseminated intravascular coagulation")
  dt$ae_blood <- replace(dt$ae_blood, dt$ae_blood == 10014950, "Eosinophilia")
  dt$ae_blood <- replace(dt$ae_blood, dt$ae_blood == 10016288, "Febrile neutropenia")
  dt$ae_blood <- replace(dt$ae_blood, dt$ae_blood == 10019491, "Hemolysis")
  dt$ae_blood <- replace(dt$ae_blood, dt$ae_blood == 10019515, "Hemolytic uremic syndrome")
  dt$ae_blood <- replace(dt$ae_blood, dt$ae_blood == 10024378, "Leukocytosis")
  dt$ae_blood <- replace(dt$ae_blood, dt$ae_blood == 10025182, "Lymph node pain")
  dt$ae_blood <- replace(dt$ae_blood, dt$ae_blood == 10027506, "Methemoglobinemia")
  dt$ae_blood <- replace(dt$ae_blood, dt$ae_blood == 10043648, "Thrombotic thrombocytopenic purpura")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10061589, "Aortic valve disease")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10003586, "Asystole")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10003658, "Atrial fibrillation")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10003662, "Atrial flutter")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10003673, "Atrioventricular block complete")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10003674, "Atrioventricular block first degree")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10007515, "Cardiac arrest")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10007541, "Cardiac disorders - Other, specify")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10008481, "Chest pain - cardiac")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10010276, "Conduction disorder")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10011703, "Cyanosis")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10019279, "Heart failure")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10069501, "Left ventricular systolic dysfunction")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10061532, "Mitral valve disease")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10027786, "Mobitz")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10027787, "Mobitz type I")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10028596, "Myocardial infarction")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10028606, "Myocarditis")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10033557, "Palpitations")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10034040, "Paroxysmal atrial tachycardia")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10034474, "Pericardial effusion")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10053565, "Pericardial tamponade")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10034484, "Pericarditis")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10061541, "Pulmonary valve disease")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10038748, "Restrictive cardiomyopathy")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10058597, "Right ventricular dysfunction")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10040639, "Sick sinus syndrome")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10040741, "Sinus bradycardia")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10040752, "Sinus tachycardia")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10042604, "Supraventricular tachycardia")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10061389, "Tricuspid valve disease")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10047281, "Ventricular arrhythmia")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10047290, "Ventricular fibrillation")
  dt$ae_card <- replace(dt$ae_card, dt$ae_card == 10047302, "Ventricular tachycardia")
  dt$ae_ear <- replace(dt$ae_ear, dt$ae_ear == 10013993, "Ear and labyrinth disorders - Other, specify")
  dt$ae_ear <- replace(dt$ae_ear, dt$ae_ear == 10014020, "Ear pain")
  dt$ae_ear <- replace(dt$ae_ear, dt$ae_ear == 10065785, "External ear pain")
  dt$ae_ear <- replace(dt$ae_ear, dt$ae_ear == 10019245, "Hearing impaired")
  dt$ae_ear <- replace(dt$ae_ear, dt$ae_ear == 10065838, "Middle ear inflammation")
  dt$ae_ear <- replace(dt$ae_ear, dt$ae_ear == 10043882, "Tinnitus")
  dt$ae_ear <- replace(dt$ae_ear, dt$ae_ear == 10047340, "Vertigo")
  dt$ae_ear <- replace(dt$ae_ear, dt$ae_ear == 10047386, "Vestibular disorder")
  dt$ae_endo <- replace(dt$ae_endo, dt$ae_endo == 10001367, "Adrenal insufficiency")
  dt$ae_endo <- replace(dt$ae_endo, dt$ae_endo == 10011655, "Cushingoid")
  dt$ae_endo <- replace(dt$ae_endo, dt$ae_endo == 10012205, "Delayed puberty")
  dt$ae_endo <- replace(dt$ae_endo, dt$ae_endo == 10014698, "Endocrine disorders - Other, specify")
  dt$ae_endo <- replace(dt$ae_endo, dt$ae_endo == 10018746, "Growth accelerated")
  dt$ae_endo <- replace(dt$ae_endo, dt$ae_endo == 10020705, "Hyperparathyroidism")
  dt$ae_endo <- replace(dt$ae_endo, dt$ae_endo == 10020850, "Hyperthyroidism")
  dt$ae_endo <- replace(dt$ae_endo, dt$ae_endo == 10021041, "Hypoparathyroidism")
  dt$ae_endo <- replace(dt$ae_endo, dt$ae_endo == 10062767, "Hypophysitis")
  dt$ae_endo <- replace(dt$ae_endo, dt$ae_endo == 10021067, "Hypopituitarism")
  dt$ae_endo <- replace(dt$ae_endo, dt$ae_endo == 10021114, "Hypothyroidism")
  dt$ae_endo <- replace(dt$ae_endo, dt$ae_endo == 10058084, "Precocious puberty")
  dt$ae_endo <- replace(dt$ae_endo, dt$ae_endo == 10067734, "Testosterone deficiency")
  dt$ae_endo <- replace(dt$ae_endo, dt$ae_endo == 10047488, "Virilization")
  dt$ae_eye <- replace(dt$ae_eye, dt$ae_eye == 10005886, "Blurred vision")
  dt$ae_eye <- replace(dt$ae_eye, dt$ae_eye == 10007739, "Cataract")
  dt$ae_eye <- replace(dt$ae_eye, dt$ae_eye == 10048492, "Corneal ulcer")
  dt$ae_eye <- replace(dt$ae_eye, dt$ae_eye == 10013774, "Dry eye")
  dt$ae_eye <- replace(dt$ae_eye, dt$ae_eye == 10015829, "Extraocular muscle paresis")
  dt$ae_eye <- replace(dt$ae_eye, dt$ae_eye == 10015919, "Eye disorders - Other, specify")
  dt$ae_eye <- replace(dt$ae_eye, dt$ae_eye == 10015958, "Eye pain")
  dt$ae_eye <- replace(dt$ae_eye, dt$ae_eye == 10061145, "Eyelid function disorder")
  dt$ae_eye <- replace(dt$ae_eye, dt$ae_eye == 10016757, "Flashing lights")
  dt$ae_eye <- replace(dt$ae_eye, dt$ae_eye == 10016778, "Floaters")
  dt$ae_eye <- replace(dt$ae_eye, dt$ae_eye == 10018304, "Glaucoma")
  dt$ae_eye <- replace(dt$ae_eye, dt$ae_eye == 10023332, "Keratitis")
  dt$ae_eye <- replace(dt$ae_eye, dt$ae_eye == 10029404, "Night blindness")
  dt$ae_eye <- replace(dt$ae_eye, dt$ae_eye == 10061322, "Optic nerve disorder")
  dt$ae_eye <- replace(dt$ae_eye, dt$ae_eye == 10033703, "Papilledema")
  dt$ae_eye <- replace(dt$ae_eye, dt$ae_eye == 10054541, "Periorbital edema")
  dt$ae_eye <- replace(dt$ae_eye, dt$ae_eye == 10034960, "Photophobia")
  dt$ae_eye <- replace(dt$ae_eye, dt$ae_eye == 10038848, "Retinal detachment")
  dt$ae_eye <- replace(dt$ae_eye, dt$ae_eye == 10038897, "Retinal tear")
  dt$ae_eye <- replace(dt$ae_eye, dt$ae_eye == 10038901, "Retinal vascular disorder")
  dt$ae_eye <- replace(dt$ae_eye, dt$ae_eye == 10038923, "Retinopathy")
  dt$ae_eye <- replace(dt$ae_eye, dt$ae_eye == 10061510, "Scleral disorder")
  dt$ae_eye <- replace(dt$ae_eye, dt$ae_eye == 10046851, "Uveitis")
  dt$ae_eye <- replace(dt$ae_eye, dt$ae_eye == 10047516, "Vision decreased")
  dt$ae_eye <- replace(dt$ae_eye, dt$ae_eye == 10047656, "Vitreous hemorrhage")
  dt$ae_eye <- replace(dt$ae_eye, dt$ae_eye == 10047848, "Watering eyes")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10000060, "Abdominal distension")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10000081, "Abdominal pain")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10002153, "Anal fissure")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10002156, "Anal fistula")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10055226, "Anal hemorrhage")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10065721, "Anal mucositis")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10065722, "Anal necrosis")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10002167, "Anal pain")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10002176, "Anal stenosis")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10002180, "Anal ulcer")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10003445, "Ascites")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10004222, "Belching")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10005265, "Bloating")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10065747, "Cecal hemorrhage")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10008417, "Cheilitis")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10009167, "Chylous ascites")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10009887, "Colitis")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10009995, "Colonic fistula")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10009998, "Colonic hemorrhage")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10010000, "Colonic obstruction")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10010001, "Colonic perforation")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10010004, "Colonic stenosis")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10010006, "Colonic ulcer")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10010774, "Constipation")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10012318, "Dental caries")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10012727, "Diarrhea")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10013781, "Dry mouth")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10013828, "Duodenal fistula")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10055242, "Duodenal hemorrhage")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10013830, "Duodenal obstruction")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10013832, "Duodenal perforation")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10050094, "Duodenal stenosis")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10013836, "Duodenal ulcer")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10013946, "Dyspepsia")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10013950, "Dysphagia")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10014893, "Enterocolitis")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10062570, "Enterovesical fistula")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10065851, "Esophageal fistula")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10015384, "Esophageal hemorrhage")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10065727, "Esophageal necrosis")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10015387, "Esophageal obstruction")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10015388, "Esophageal pain")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10055472, "Esophageal perforation")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10015448, "Esophageal stenosis")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10015451, "Esophageal ulcer")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10015453, "Esophageal varices hemorrhage")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10015461, "Esophagitis")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10016296, "Fecal incontinence")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10016766, "Flatulence")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10065713, "Gastric fistula")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10017789, "Gastric hemorrhage")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10051886, "Gastric necrosis")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10017815, "Gastric perforation")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10061970, "Gastric stenosis")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10017822, "Gastric ulcer")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10017853, "Gastritis")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10066874, "Gastroesophageal reflux disease")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10017947, "Gastrointestinal disorders - Other, specify")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10017877, "Gastrointestinal fistula")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10017999, "Gastrointestinal pain")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10018043, "Gastroparesis")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10018286, "Gingival pain")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10060640, "Hemorrhoidal hemorrhage")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10019611, "Hemorrhoids")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10065728, "Ileal fistula")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10055287, "Ileal hemorrhage")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10065730, "Ileal obstruction")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10021305, "Ileal perforation")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10021307, "Ileal stenosis")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10021309, "Ileal ulcer")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10021328, "Ileus")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10055291, "Intra-abdominal hemorrhage")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10065719, "Jejunal fistula")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10055300, "Jejunal hemorrhage")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10065732, "Jejunal obstruction")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10023174, "Jejunal perforation")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10023176, "Jejunal stenosis")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10023177, "Jejunal ulcer")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10024561, "Lip pain")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10051746, "Lower gastrointestinal hemorrhage")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10025476, "Malabsorption")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10028130, "Mucositis oral")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10028813, "Nausea")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10029957, "Obstruction gastric")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10065720, "Oral cavity fistula")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10054520, "Oral dysesthesia")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10030980, "Oral hemorrhage")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10031009, "Oral pain")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10065703, "Pancreatic duct stenosis")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10049192, "Pancreatic fistula")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10033626, "Pancreatic hemorrhage")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10058096, "Pancreatic necrosis")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10033645, "Pancreatitis")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10034536, "Periodontal disease")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10065704, "Peritoneal necrosis")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10036774, "Proctitis")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10064993, "Rectal fissure")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10038062, "Rectal fistula")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10038064, "Rectal hemorrhage")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10063190, "Rectal mucositis")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10065709, "Rectal necrosis")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10065707, "Rectal obstruction")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10038072, "Rectal pain")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10038073, "Rectal perforation")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10038079, "Rectal stenosis")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10038080, "Rectal ulcer")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10038981, "Retroperitoneal hemorrhage")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10056681, "Salivary duct inflammation")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10039411, "Salivary gland fistula")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10065710, "Small intestinal mucositis")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10041101, "Small intestinal obstruction")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10041103, "Small intestinal perforation")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10062263, "Small intestinal stenosis")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10041133, "Small intestine ulcer")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10042112, "Stomach pain")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10044030, "Tooth development disorder")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10044031, "Tooth discoloration")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10044055, "Toothache")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10045271, "Typhlitis")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10055356, "Upper gastrointestinal hemorrhage")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10054692, "Visceral arterial ischemia")
  dt$ae_gastro <- replace(dt$ae_gastro, dt$ae_gastro == 10047700, "Vomiting")
  dt$ae_gen <- replace(dt$ae_gen, dt$ae_gen == 10008531, "Chills")
  dt$ae_gen <- replace(dt$ae_gen, dt$ae_gen == 10011912, "Death neonatal")
  dt$ae_gen <- replace(dt$ae_gen, dt$ae_gen == 10011914, "Death NOS")
  dt$ae_gen <- replace(dt$ae_gen, dt$ae_gen == 10061818, "Disease progression")
  dt$ae_gen <- replace(dt$ae_gen, dt$ae_gen == 10014222, "Edema face")
  dt$ae_gen <- replace(dt$ae_gen, dt$ae_gen == 10050068, "Edema limbs")
  dt$ae_gen <- replace(dt$ae_gen, dt$ae_gen == 10058720, "Edema trunk")
  dt$ae_gen <- replace(dt$ae_gen, dt$ae_gen == 10016059, "Facial pain")
  dt$ae_gen <- replace(dt$ae_gen, dt$ae_gen == 10016256, "Fatigue")
  dt$ae_gen <- replace(dt$ae_gen, dt$ae_gen == 10016558, "Fever")
  dt$ae_gen <- replace(dt$ae_gen, dt$ae_gen == 10016791, "Flu like symptoms")
  dt$ae_gen <- replace(dt$ae_gen, dt$ae_gen == 10017577, "Gait disturbance")
  dt$ae_gen <- replace(dt$ae_gen, dt$ae_gen == 10018065, "General disorders and administration site conditions - Other, specify")
  dt$ae_gen <- replace(dt$ae_gen, dt$ae_gen == 10018112, "Generalized edema")
  dt$ae_gen <- replace(dt$ae_gen, dt$ae_gen == 10021113, "Hypothermia")
  dt$ae_gen <- replace(dt$ae_gen, dt$ae_gen == 10064774, "Infusion site extravasation")
  dt$ae_gen <- replace(dt$ae_gen, dt$ae_gen == 10022095, "Injection site reaction")
  dt$ae_gen <- replace(dt$ae_gen, dt$ae_gen == 10062466, "Localized edema")
  dt$ae_gen <- replace(dt$ae_gen, dt$ae_gen == 10025482, "Malaise")
  dt$ae_gen <- replace(dt$ae_gen, dt$ae_gen == 10028154, "Multi-organ failure")
  dt$ae_gen <- replace(dt$ae_gen, dt$ae_gen == 10054482, "Neck edema")
  dt$ae_gen <- replace(dt$ae_gen, dt$ae_gen == 10062501, "Non-cardiac chest pain")
  dt$ae_gen <- replace(dt$ae_gen, dt$ae_gen == 10033371, "Pain")
  dt$ae_gen <- replace(dt$ae_gen, dt$ae_gen == 10042435, "Sudden death NOS")
  dt$ae_gen <- replace(dt$ae_gen, dt$ae_gen == 10069480, "Vaccination site lymphadenopathy")
  dt$ae_hepa <- replace(dt$ae_hepa, dt$ae_hepa == 10051341, "Bile duct stenosis")
  dt$ae_hepa <- replace(dt$ae_hepa, dt$ae_hepa == 10004665, "Biliary fistula")
  dt$ae_hepa <- replace(dt$ae_hepa, dt$ae_hepa == 10006537, "Budd-Chiari syndrome")
  dt$ae_hepa <- replace(dt$ae_hepa, dt$ae_hepa == 10008612, "Cholecystitis")
  dt$ae_hepa <- replace(dt$ae_hepa, dt$ae_hepa == 10017631, "Gallbladder fistula")
  dt$ae_hepa <- replace(dt$ae_hepa, dt$ae_hepa == 10059446, "Gallbladder necrosis")
  dt$ae_hepa <- replace(dt$ae_hepa, dt$ae_hepa == 10017636, "Gallbladder obstruction")
  dt$ae_hepa <- replace(dt$ae_hepa, dt$ae_hepa == 10017638, "Gallbladder pain")
  dt$ae_hepa <- replace(dt$ae_hepa, dt$ae_hepa == 10017639, "Gallbladder perforation")
  dt$ae_hepa <- replace(dt$ae_hepa, dt$ae_hepa == 10019663, "Hepatic failure")
  dt$ae_hepa <- replace(dt$ae_hepa, dt$ae_hepa == 10019678, "Hepatic hemorrhage")
  dt$ae_hepa <- replace(dt$ae_hepa, dt$ae_hepa == 10019692, "Hepatic necrosis")
  dt$ae_hepa <- replace(dt$ae_hepa, dt$ae_hepa == 10019705, "Hepatic pain")
  dt$ae_hepa <- replace(dt$ae_hepa, dt$ae_hepa == 10019805, "Hepatobiliary disorders - Other, specify")
  dt$ae_hepa <- replace(dt$ae_hepa, dt$ae_hepa == 10034405, "Perforation bile duct")
  dt$ae_hepa <- replace(dt$ae_hepa, dt$ae_hepa == 10036200, "Portal hypertension")
  dt$ae_hepa <- replace(dt$ae_hepa, dt$ae_hepa == 10036206, "Portal vein thrombosis")
  dt$ae_hepa <- replace(dt$ae_hepa, dt$ae_hepa == 10063675, "Sinusoidal obstruction syndrome")
  dt$ae_imm <- replace(dt$ae_imm, dt$ae_imm == 10001718, "Allergic reaction")
  dt$ae_imm <- replace(dt$ae_imm, dt$ae_imm == 10002218, "Anaphylaxis")
  dt$ae_imm <- replace(dt$ae_imm, dt$ae_imm == 10061664, "Autoimmune disorder")
  dt$ae_imm <- replace(dt$ae_imm, dt$ae_imm == 10052015, "Cytokine release syndrome")
  dt$ae_imm <- replace(dt$ae_imm, dt$ae_imm == 10021428, "Immune system disorders - Other, specify")
  dt$ae_imm <- replace(dt$ae_imm, dt$ae_imm == 10040400, "Serum sickness")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10056519, "Abdominal infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10061640, "Anorectal infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10003011, "Appendicitis")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10003012, "Appendicitis perforated")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10065744, "Arteritis infective")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10003999, "Bacteremia")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10061695, "Biliary tract infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10005047, "Bladder infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10061017, "Bone infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10006259, "Breast infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10055078, "Bronchial infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10007810, "Catheter related infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10065761, "Cecal infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10008330, "Cervicitis infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10010741, "Conjunctivitis")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10010742, "Conjunctivitis infective")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10061788, "Corneal infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10065765, "Cranial nerve infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10058666, "Cytomegalovirus infection reactivation")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10064687, "Device related infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10065752, "Duodenal infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10014594, "Encephalitis infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10014621, "Encephalomyelitis infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10014678, "Endocarditis infective")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10014801, "Endophthalmitis")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10058838, "Enterocolitis infectious")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10015109, "Epstein-Barr virus infection reactivation")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10058804, "Esophageal infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10015929, "Eye infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10016936, "Folliculitis")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10017544, "Fungemia")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10062632, "Gallbladder infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10018784, "Gum infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10056522, "Hepatic infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10058827, "Hepatitis B reactivation")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10019799, "Hepatitis viral")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10080137, "Herpes simplex reactivation")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10021881, "Infections and infestations - Other, specify")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10021918, "Infective myositis")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10023216, "Joint infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10023424, "Kidney infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10023874, "Laryngitis")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10065755, "Lip infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10061229, "Lung infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10050823, "Lymph gland infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10057483, "Mediastinal infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10027199, "Meningitis")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10065764, "Mucosal infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10028524, "Myelitis")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10061304, "Nail infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10033072, "Otitis externa")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10033078, "Otitis media")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10055005, "Ovarian infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10051741, "Pancreas infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10069138, "Papulopustular rash")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10034016, "Paronychia")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10058674, "Pelvic infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10061912, "Penile infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10051472, "Periorbital infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10065766, "Peripheral nerve infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10057262, "Peritoneal infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10034835, "Pharyngitis")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10056627, "Phlebitis infective")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10061351, "Pleural infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10050662, "Prostate infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10037888, "Rash pustular")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10059827, "Rhinitis infective")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10039413, "Salivary gland infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10062156, "Scrotal infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10040047, "Sepsis")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10040555, "Shingles")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10040753, "Sinusitis")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10040872, "Skin infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10065771, "Small intestine infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10062255, "Soft tissue infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10062112, "Splenic infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10064505, "Stoma site infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10043649, "Thrush")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10048762, "Tooth infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10044302, "Tracheitis")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10046300, "Upper respiratory infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10052298, "Urethral infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10046571, "Urinary tract infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10062233, "Uterine infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10046914, "Vaginal infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10054688, "Viremia")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10065772, "Vulval infection")
  dt$ae_inf <- replace(dt$ae_inf, dt$ae_inf == 10048038, "Wound infection")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10002544, "Ankle fracture")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10002899, "Aortic injury")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10003162, "Arterial injury")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10050458, "Biliary anastomotic leak")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065802, "Bladder anastomotic leak")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10006504, "Bruising")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10006634, "Burn")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10061103, "Dermatitis radiation")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065961, "Esophageal anastomotic leak")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10016173, "Fall")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065788, "Fallopian tube anastomotic leak")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065790, "Fallopian tube perforation")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10017076, "Fracture")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065893, "Gastric anastomotic leak")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065879, "Gastrointestinal anastomotic leak")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065712, "Gastrointestinal stoma necrosis")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10020100, "Hip fracture")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10051792, "Infusion related reaction")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10022161, "Injury to carotid artery")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10022213, "Injury to inferior vena cava")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065849, "Injury to jugular vein")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10022356, "Injury to superior vena cava")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10022117, "Injury, poisoning and procedural complications - Other, specify")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10059095, "Intestinal stoma leak")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10059094, "Intestinal stoma obstruction")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10049468, "Intestinal stoma site bleeding")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065826, "Intraoperative arterial injury")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065831, "Intraoperative breast injury")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065843, "Intraoperative cardiac injury")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065844, "Intraoperative ear injury")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065834, "Intraoperative endocrine injury")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065825, "Intraoperative gastrointestinal injury")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065842, "Intraoperative head and neck injury")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10055298, "Intraoperative hemorrhage")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065827, "Intraoperative hepatobiliary injury")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065829, "Intraoperative musculoskeletal injury")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065830, "Intraoperative neurological injury")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065841, "Intraoperative ocular injury")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065845, "Intraoperative renal injury")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065840, "Intraoperative reproductive tract injury")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065832, "Intraoperative respiratory injury")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065847, "Intraoperative splenic injury")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065828, "Intraoperative urinary injury")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065848, "Intraoperative venous injury")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065803, "Kidney anastomotic leak")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065891, "Large intestinal anastomotic leak")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10050457, "Pancreatic anastomotic leak")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065705, "Pharyngeal anastomotic leak")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10055322, "Postoperative hemorrhage")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10056745, "Postoperative thoracic procedure complication")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065745, "Prolapse of intestinal stoma")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065822, "Prolapse of urostomy")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10037767, "Radiation recall reaction")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065894, "Rectal anastomotic leak")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10040102, "Seroma")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065892, "Small intestinal anastomotic leak")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065897, "Spermatic cord anastomotic leak")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10041569, "Spinal fracture")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065898, "Stenosis of gastrointestinal stoma")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10042127, "Stomal ulcer")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10062548, "Tracheal hemorrhage")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10044291, "Tracheal obstruction")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065749, "Tracheostomy site bleeding")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065814, "Ureteric anastomotic leak")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065815, "Urethral anastomotic leak")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065882, "Urostomy leak")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065883, "Urostomy obstruction")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065748, "Urostomy site bleeding")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065885, "Urostomy stenosis")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065886, "Uterine anastomotic leak")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10046810, "Uterine perforation")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10046861, "Vaccination complication")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065887, "Vaginal anastomotic leak")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10065888, "Vas deferens anastomotic leak")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10062169, "Vascular access complication")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10047228, "Venous injury")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10053692, "Wound complication")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10048031, "Wound dehiscence")
  dt$ae_inju <- replace(dt$ae_inju, dt$ae_inju == 10048049, "Wrist fracture")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10000636, "Activated partial thromboplastin time prolonged")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10001551, "Alanine aminotransferase increased")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10001675, "Alkaline phosphatase increased")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10003481, "Aspartate aminotransferase increased")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10005332, "Blood antidiuretic hormone abnormal")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10005359, "Blood bicarbonate decreased")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10005364, "Blood bilirubin increased")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10005452, "Blood corticotrophin decreased")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10005561, "Blood gonadotrophin abnormal")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10005630, "Blood lactate dehydrogenase increased")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10005778, "Blood prolactin abnormal")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10065906, "Carbon monoxide diffusing capacity decreased")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10007612, "Cardiac troponin I increased")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10007613, "Cardiac troponin T increased")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10007839, "CD4 lymphocytes decreased")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10008661, "Cholesterol high")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10011268, "CPK increased")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10011368, "Creatinine increased")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10050528, "Ejection fraction decreased")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10014383, "Electrocardiogram QT corrected interval prolonged")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10050380, "Electrocardiogram T wave abnormal")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10016596, "Fibrinogen decreased")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10016987, "Forced expiratory volume decreased")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10056910, "GGT increased")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10018748, "Growth hormone abnormal")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10019150, "Haptoglobin decreased")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10055599, "Hemoglobin increased")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10022402, "INR increased")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10022891, "Investigations - Other, specify")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10024574, "Lipase increased")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10025256, "Lymphocyte count decreased")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10025258, "Lymphocyte count increased")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10029366, "Neutrophil count decreased")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10062646, "Pancreatic enzymes decreased")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10035528, "Platelet count decreased")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10040139, "Serum amylase increased")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10043770, "Thyroid stimulating hormone increased")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10059895, "Urine output decreased")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10047580, "Vital capacity abnormal")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10047896, "Weight gain")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10047900, "Weight loss")
  dt$ae_inv <- replace(dt$ae_inv, dt$ae_inv == 10049182, "White blood cell decreased")
  dt$ae_metab <- replace(dt$ae_metab, dt$ae_metab == 10000486, "Acidosis")
  dt$ae_metab <- replace(dt$ae_metab, dt$ae_metab == 10001598, "Alcohol intolerance")
  dt$ae_metab <- replace(dt$ae_metab, dt$ae_metab == 10001680, "Alkalosis")
  dt$ae_metab <- replace(dt$ae_metab, dt$ae_metab == 10002646, "Anorexia")
  dt$ae_metab <- replace(dt$ae_metab, dt$ae_metab == 10012174, "Dehydration")
  dt$ae_metab <- replace(dt$ae_metab, dt$ae_metab == 10052426, "Glucose intolerance")
  dt$ae_metab <- replace(dt$ae_metab, dt$ae_metab == 10020587, "Hypercalcemia")
  dt$ae_metab <- replace(dt$ae_metab, dt$ae_metab == 10020639, "Hyperglycemia")
  dt$ae_metab <- replace(dt$ae_metab, dt$ae_metab == 10020647, "Hyperkalemia")
  dt$ae_metab <- replace(dt$ae_metab, dt$ae_metab == 10020667, "Hyperlipidemia")
  dt$ae_metab <- replace(dt$ae_metab, dt$ae_metab == 10020670, "Hypermagnesemia")
  dt$ae_metab <- replace(dt$ae_metab, dt$ae_metab == 10020680, "Hypernatremia")
  dt$ae_metab <- replace(dt$ae_metab, dt$ae_metab == 10020712, "Hyperphosphatemia")
  dt$ae_metab <- replace(dt$ae_metab, dt$ae_metab == 10020870, "Hypertriglyceridemia")
  dt$ae_metab <- replace(dt$ae_metab, dt$ae_metab == 10020907, "Hyperuricemia")
  dt$ae_metab <- replace(dt$ae_metab, dt$ae_metab == 10020943, "Hypoalbuminemia")
  dt$ae_metab <- replace(dt$ae_metab, dt$ae_metab == 10020949, "Hypocalcemia")
  dt$ae_metab <- replace(dt$ae_metab, dt$ae_metab == 10021005, "Hypoglycemia")
  dt$ae_metab <- replace(dt$ae_metab, dt$ae_metab == 10021018, "Hypokalemia")
  dt$ae_metab <- replace(dt$ae_metab, dt$ae_metab == 10021028, "Hypomagnesemia")
  dt$ae_metab <- replace(dt$ae_metab, dt$ae_metab == 10021038, "Hyponatremia")
  dt$ae_metab <- replace(dt$ae_metab, dt$ae_metab == 10021059, "Hypophosphatemia")
  dt$ae_metab <- replace(dt$ae_metab, dt$ae_metab == 10065973, "Iron overload")
  dt$ae_metab <- replace(dt$ae_metab, dt$ae_metab == 10027433, "Metabolism and nutrition disorders - Other, specify")
  dt$ae_metab <- replace(dt$ae_metab, dt$ae_metab == 10029883, "Obesity")
  dt$ae_metab <- replace(dt$ae_metab, dt$ae_metab == 10045152, "Tumor lysis syndrome")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10065775, "Abdominal soft tissue necrosis")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10003239, "Arthralgia")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10003246, "Arthritis")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10066480, "Avascular necrosis")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10003988, "Back pain")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10006002, "Bone pain")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10048677, "Buttock pain")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10048831, "Chest wall necrosis")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10008496, "Chest wall pain")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10015688, "Exostosis")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10065799, "Fibrosis deep connective tissue")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10016750, "Flank pain")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10062572, "Generalized muscle weakness")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10018761, "Growth suppression")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10065779, "Head soft tissue necrosis")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10023215, "Joint effusion")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10048706, "Joint range of motion decreased")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10065796, "Joint range of motion decreased cervical spine")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10065800, "Joint range of motion decreased lumbar spine")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10023509, "Kyphosis")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10024842, "Lordosis")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10028294, "Muscle cramp")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10065776, "Muscle weakness lower limb")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10065795, "Muscle weakness trunk")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10065895, "Muscle weakness upper limb")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10028395, "Musculoskeletal and connective tissue disorder - Other, specify")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10065783, "Musculoskeletal deformity")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10028411, "Myalgia")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10028653, "Myositis")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10028836, "Neck pain")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10065781, "Neck soft tissue necrosis")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10031264, "Osteonecrosis")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10064658, "Osteonecrosis of jaw")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10031282, "Osteoporosis")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10033425, "Pain in extremity")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10065793, "Pelvic soft tissue necrosis")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10039020, "Rhabdomyolysis")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10039226, "Rotator cuff injury")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10039722, "Scoliosis")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10065777, "Soft tissue necrosis lower limb")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10065778, "Soft tissue necrosis upper limb")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10065798, "Superficial soft tissue fibrosis")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10044684, "Trismus")
  dt$ae_musc <- replace(dt$ae_musc, dt$ae_musc == 10065738, "Unequal limb length")
  dt$ae_neop <- replace(dt$ae_neop, dt$ae_neop == 10048293, "Leukemia secondary to oncology chemotherapy")
  dt$ae_neop <- replace(dt$ae_neop, dt$ae_neop == 10028533, "Myelodysplastic syndrome")
  dt$ae_neop <- replace(dt$ae_neop, dt$ae_neop == 10029104, "Neoplasms benign, malignant and unspecified")
  dt$ae_neop <- replace(dt$ae_neop, dt$ae_neop == 10040907, "Skin papilloma")
  dt$ae_neop <- replace(dt$ae_neop, dt$ae_neop == 10049737, "Treatment related secondary malignancy")
  dt$ae_neop <- replace(dt$ae_neop, dt$ae_neop == 10055351, "Tumor hemorrhage")
  dt$ae_neop <- replace(dt$ae_neop, dt$ae_neop == 10045158, "Tumor pain")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10053662, "Abducens nerve disorder")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10060929, "Accessory nerve disorder")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10000521, "Acoustic nerve disorder NOS")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10001540, "Akathisia")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10001949, "Amnesia")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10002653, "Anosmia")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10002953, "Aphonia")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10003074, "Arachnoiditis")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10003591, "Ataxia")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10065417, "Brachial plexopathy")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10065784, "Central nervous system necrosis")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10008164, "Cerebrospinal fluid leakage")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10009845, "Cognitive disturbance")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10010250, "Concentration impairment")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10012373, "Depressed level of consciousness")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10013573, "Dizziness")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10013887, "Dysarthria")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10062872, "Dysesthesia")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10013911, "Dysgeusia")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10013951, "Dysphasia")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10014217, "Edema cerebral")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10014625, "Encephalopathy")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10015832, "Extrapyramidal disorder")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10051272, "Facial muscle weakness")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10061457, "Facial nerve disorder")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10061185, "Glossopharyngeal nerve disorder")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10018767, "Guillain-Barre syndrome")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10019211, "Headache")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10020508, "Hydrocephalus")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10020765, "Hypersomnia")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10061212, "Hypoglossal nerve disorder")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10022763, "Intracranial hemorrhage")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10023030, "Ischemia cerebrovascular")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10024264, "Lethargy")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10024382, "Leukoencephalopathy")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10027175, "Memory impairment")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10027198, "Meningismus")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10028041, "Movements involuntary")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10065780, "Muscle weakness left-sided")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10065794, "Muscle weakness right-sided")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10028417, "Myasthenia gravis")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10029205, "Nervous system disorders - Other, specify")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10029223, "Neuralgia")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10029864, "Nystagmus")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10053661, "Oculomotor nerve disorder")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10056388, "Olfactory nerve disorder")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10033987, "Paresthesia")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10034580, "Peripheral motor neuropathy")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10034620, "Peripheral sensory neuropathy")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10056238, "Phantom pain")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10036653, "Presyncope")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10063636, "Pyramidal tract syndrome")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10061928, "Radiculitis")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10038130, "Recurrent laryngeal nerve palsy")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10063761, "Reversible posterior leukoencephalopathy syndrome")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10039906, "Seizure")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10041349, "Somnolence")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10041416, "Spasticity")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10041549, "Spinal cord compression")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10042244, "Stroke")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10042772, "Syncope")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10043245, "Tendon reflex decreased")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10044391, "Transient ischemic attacks")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10044565, "Tremor")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10060890, "Trigeminal nerve disorder")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10074765, "Trochlear nerve disorder")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10061403, "Vagus nerve disorder")
  dt$ae_nerv <- replace(dt$ae_nerv, dt$ae_nerv == 10047166, "Vasovagal reaction")
  dt$ae_preg <- replace(dt$ae_preg, dt$ae_preg == 10054746, "Fetal growth retardation")
  dt$ae_preg <- replace(dt$ae_preg, dt$ae_preg == 10072314, "Pregnancy loss")
  dt$ae_preg <- replace(dt$ae_preg, dt$ae_preg == 10036585, "Pregnancy, puerperium and perinatal conditions - Other, specify")
  dt$ae_preg <- replace(dt$ae_preg, dt$ae_preg == 10036595, "Premature delivery")
  dt$ae_psyc <- replace(dt$ae_psyc, dt$ae_psyc == 10001497, "Agitation")
  dt$ae_psyc <- replace(dt$ae_psyc, dt$ae_psyc == 10002652, "Anorgasmia")
  dt$ae_psyc <- replace(dt$ae_psyc, dt$ae_psyc == 10002855, "Anxiety")
  dt$ae_psyc <- replace(dt$ae_psyc, dt$ae_psyc == 10010300, "Confusion")
  dt$ae_psyc <- replace(dt$ae_psyc, dt$ae_psyc == 10057066, "Delayed orgasm")
  dt$ae_psyc <- replace(dt$ae_psyc, dt$ae_psyc == 10012218, "Delirium")
  dt$ae_psyc <- replace(dt$ae_psyc, dt$ae_psyc == 10012260, "Delusions")
  dt$ae_psyc <- replace(dt$ae_psyc, dt$ae_psyc == 10012378, "Depression")
  dt$ae_psyc <- replace(dt$ae_psyc, dt$ae_psyc == 10015533, "Euphoria")
  dt$ae_psyc <- replace(dt$ae_psyc, dt$ae_psyc == 10019077, "Hallucinations")
  dt$ae_psyc <- replace(dt$ae_psyc, dt$ae_psyc == 10022437, "Insomnia")
  dt$ae_psyc <- replace(dt$ae_psyc, dt$ae_psyc == 10022998, "Irritability")
  dt$ae_psyc <- replace(dt$ae_psyc, dt$ae_psyc == 10024419, "Libido decreased")
  dt$ae_psyc <- replace(dt$ae_psyc, dt$ae_psyc == 10024421, "Libido increased")
  dt$ae_psyc <- replace(dt$ae_psyc, dt$ae_psyc == 10026749, "Mania")
  dt$ae_psyc <- replace(dt$ae_psyc, dt$ae_psyc == 10034719, "Personality change")
  dt$ae_psyc <- replace(dt$ae_psyc, dt$ae_psyc == 10037175, "Psychiatric disorders - Other, specify")
  dt$ae_psyc <- replace(dt$ae_psyc, dt$ae_psyc == 10037234, "Psychosis")
  dt$ae_psyc <- replace(dt$ae_psyc, dt$ae_psyc == 10038743, "Restlessness")
  dt$ae_psyc <- replace(dt$ae_psyc, dt$ae_psyc == 10042458, "Suicidal ideation")
  dt$ae_psyc <- replace(dt$ae_psyc, dt$ae_psyc == 10042464, "Suicide attempt")
  dt$ae_renal <- replace(dt$ae_renal, dt$ae_renal == 10069339, "Acute kidney injury")
  dt$ae_renal <- replace(dt$ae_renal, dt$ae_renal == 10063575, "Bladder perforation")
  dt$ae_renal <- replace(dt$ae_renal, dt$ae_renal == 10048994, "Bladder spasm")
  dt$ae_renal <- replace(dt$ae_renal, dt$ae_renal == 10064848, "Chronic kidney disease")
  dt$ae_renal <- replace(dt$ae_renal, dt$ae_renal == 10063057, "Cystitis noninfective")
  dt$ae_renal <- replace(dt$ae_renal, dt$ae_renal == 10013990, "Dysuria")
  dt$ae_renal <- replace(dt$ae_renal, dt$ae_renal == 10068405, "Glucosuria")
  dt$ae_renal <- replace(dt$ae_renal, dt$ae_renal == 10019450, "Hematuria")
  dt$ae_renal <- replace(dt$ae_renal, dt$ae_renal == 10019489, "Hemoglobinuria")
  dt$ae_renal <- replace(dt$ae_renal, dt$ae_renal == 10029164, "Nephrotic syndrome")
  dt$ae_renal <- replace(dt$ae_renal, dt$ae_renal == 10037032, "Proteinuria")
  dt$ae_renal <- replace(dt$ae_renal, dt$ae_renal == 10038359, "Renal and urinary disorders - Other, specify")
  dt$ae_renal <- replace(dt$ae_renal, dt$ae_renal == 10038385, "Renal calculi")
  dt$ae_renal <- replace(dt$ae_renal, dt$ae_renal == 10038419, "Renal colic")
  dt$ae_renal <- replace(dt$ae_renal, dt$ae_renal == 10038463, "Renal hemorrhage")
  dt$ae_renal <- replace(dt$ae_renal, dt$ae_renal == 10065368, "Urinary fistula")
  dt$ae_renal <- replace(dt$ae_renal, dt$ae_renal == 10046539, "Urinary frequency")
  dt$ae_renal <- replace(dt$ae_renal, dt$ae_renal == 10046543, "Urinary incontinence")
  dt$ae_renal <- replace(dt$ae_renal, dt$ae_renal == 10046555, "Urinary retention")
  dt$ae_renal <- replace(dt$ae_renal, dt$ae_renal == 10061574, "Urinary tract obstruction")
  dt$ae_renal <- replace(dt$ae_renal, dt$ae_renal == 10062225, "Urinary tract pain")
  dt$ae_renal <- replace(dt$ae_renal, dt$ae_renal == 10046593, "Urinary urgency")
  dt$ae_renal <- replace(dt$ae_renal, dt$ae_renal == 10046628, "Urine discoloration")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10001927, "Amenorrhea")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10003883, "Azoospermia")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10006179, "Breast atrophy")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10006298, "Breast pain")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10013934, "Dysmenorrhea")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10013941, "Dyspareunia")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10014326, "Ejaculation disorder")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10061461, "Erectile dysfunction")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10065789, "Fallopian tube obstruction")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10054382, "Feminization acquired")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10018146, "Genital edema")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10018801, "Gynecomastia")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10060602, "Hematosalpinx")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10022992, "Irregular menstruation")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10061261, "Lactation disorder")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10027313, "Menorrhagia")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10065823, "Nipple deformity")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10030300, "Oligospermia")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10065763, "Ovarian hemorrhage")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10033279, "Ovarian rupture")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10033314, "Ovulation pain")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10064026, "Pelvic floor muscle weakness")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10034263, "Pelvic pain")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10034310, "Penile pain")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10061339, "Perineal pain")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10036601, "Premature menopause")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10055325, "Prostatic hemorrhage")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10055026, "Prostatic obstruction")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10036968, "Prostatic pain")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10038604, "Reproductive system and breast disorders - Other, specify")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10039757, "Scrotal pain")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10065762, "Spermatic cord hemorrhage")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10065805, "Spermatic cord obstruction")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10043306, "Testicular disorder")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10055347, "Testicular hemorrhage")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10043345, "Testicular pain")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10065811, "Uterine fistula")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10046789, "Uterine hemorrhage")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10065928, "Uterine obstruction")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10046809, "Uterine pain")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10046901, "Vaginal discharge")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10046904, "Vaginal dryness")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10065813, "Vaginal fistula")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10046912, "Vaginal hemorrhage")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10046916, "Vaginal inflammation")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10065817, "Vaginal obstruction")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10046937, "Vaginal pain")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10065818, "Vaginal perforation")
  dt$ae_repro <- replace(dt$ae_repro, dt$ae_repro == 10053496, "Vaginal stricture")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10001409, "Adult respiratory distress syndrome")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10001723, "Allergic rhinitis")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10002972, "Apnea")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10003504, "Aspiration")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10003598, "Atelectasis")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10006437, "Bronchial fistula")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10006440, "Bronchial obstruction")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10063524, "Bronchial stricture")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10053481, "Bronchopleural fistula")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10065746, "Bronchopulmonary hemorrhage")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10006482, "Bronchospasm")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10051228, "Chylothorax")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10011224, "Cough")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10013963, "Dyspnea")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10015090, "Epistaxis")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10020039, "Hiccups")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10020201, "Hoarseness")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10021143, "Hypoxia")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10023838, "Laryngeal edema")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10065786, "Laryngeal fistula")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10065759, "Laryngeal hemorrhage")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10065735, "Laryngeal inflammation")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10065880, "Laryngeal mucositis")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10059639, "Laryngeal obstruction")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10023862, "Laryngeal stenosis")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10062667, "Laryngopharyngeal dysesthesia")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10023891, "Laryngospasm")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10056356, "Mediastinal hemorrhage")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10028735, "Nasal congestion")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10068319, "Oropharyngeal pain")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10034825, "Pharyngeal fistula")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10055315, "Pharyngeal hemorrhage")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10065881, "Pharyngeal mucositis")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10065706, "Pharyngeal necrosis")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10050028, "Pharyngeal stenosis")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10034844, "Pharyngolaryngeal pain")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10035598, "Pleural effusion")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10055319, "Pleural hemorrhage")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10035623, "Pleuritic pain")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10035742, "Pneumonitis")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10035759, "Pneumothorax")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10036402, "Postnasal drip")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10036790, "Productive cough")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10037375, "Pulmonary edema")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10037383, "Pulmonary fibrosis")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10065873, "Pulmonary fistula")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10037400, "Pulmonary hypertension")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10038695, "Respiratory failure")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10038738, "Respiratory, thoracic and mediastinal disorders - Other, specify")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10038921, "Retinoic acid syndrome")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10039100, "Rhinorrhea")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10062244, "Sinus disorder")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10040747, "Sinus pain")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10040975, "Sleep apnea")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10041232, "Sneezing")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10041367, "Sore throat")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10042241, "Stridor")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10065787, "Tracheal fistula")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10065900, "Tracheal mucositis")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10050816, "Tracheal stenosis")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10047681, "Voice alteration")
  dt$ae_resp <- replace(dt$ae_resp, dt$ae_resp == 10047924, "Wheezing")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10001760, "Alopecia")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10005901, "Body odor")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10006556, "Bullous dermatitis")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10013786, "Dry skin")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10014184, "Eczema")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10015218, "Erythema multiforme")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10015277, "Erythroderma")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10016241, "Fat atrophy")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10055525, "Hair color changes")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10019049, "Hair texture abnormal")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10020112, "Hirsutism")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10020642, "Hyperhidrosis")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10020649, "Hyperkeratosis")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10020864, "Hypertrichosis")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10021013, "Hypohidrosis")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10062315, "Lipohypertrophy")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10028689, "Nail changes")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10028691, "Nail discoloration")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10049281, "Nail loss")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10062283, "Nail ridging")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10033474, "Pain of skin")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10054524, "Palmar-plantar erythrodysesthesia syndrome")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10034966, "Photosensitivity")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10037087, "Pruritus")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10037549, "Purpura")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10037847, "Rash acneiform")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10037868, "Rash maculo-papular")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10049120, "Scalp pain")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10040785, "Skin and subcutaneous tissue disorders - Other, specify")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10040799, "Skin atrophy")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10040865, "Skin hyperpigmentation")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10040868, "Skin hypopigmentation")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10051837, "Skin induration")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10040947, "Skin ulceration")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10042033, "Stevens-Johnson syndrome")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10042344, "Subcutaneous emphysema")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10043189, "Telangiectasia")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10044223, "Toxic epidermal necrolysis")
  dt$ae_skin <- replace(dt$ae_skin, dt$ae_skin == 10046735, "Urticaria")
  dt$ae_vasc <- replace(dt$ae_vasc, dt$ae_vasc == 10073529, "Arterial thromboembolism")
  dt$ae_vasc <- replace(dt$ae_vasc, dt$ae_vasc == 10007196, "Capillary leak syndrome")
  dt$ae_vasc <- replace(dt$ae_vasc, dt$ae_vasc == 10016825, "Flushing")
  dt$ae_vasc <- replace(dt$ae_vasc, dt$ae_vasc == 10019428, "Hematoma")
  dt$ae_vasc <- replace(dt$ae_vasc, dt$ae_vasc == 10020407, "Hot flashes")
  dt$ae_vasc <- replace(dt$ae_vasc, dt$ae_vasc == 10020772, "Hypertension")
  dt$ae_vasc <- replace(dt$ae_vasc, dt$ae_vasc == 10021097, "Hypotension")
  dt$ae_vasc <- replace(dt$ae_vasc, dt$ae_vasc == 10065773, "Lymph leakage")
  dt$ae_vasc <- replace(dt$ae_vasc, dt$ae_vasc == 10025233, "Lymphedema")
  dt$ae_vasc <- replace(dt$ae_vasc, dt$ae_vasc == 10048642, "Lymphocele")
  dt$ae_vasc <- replace(dt$ae_vasc, dt$ae_vasc == 10034578, "Peripheral ischemia")
  dt$ae_vasc <- replace(dt$ae_vasc, dt$ae_vasc == 10034879, "Phlebitis")
  dt$ae_vasc <- replace(dt$ae_vasc, dt$ae_vasc == 10042554, "Superficial thrombophlebitis")
  dt$ae_vasc <- replace(dt$ae_vasc, dt$ae_vasc == 10042569, "Superior vena cava syndrome")
  dt$ae_vasc <- replace(dt$ae_vasc, dt$ae_vasc == 10043565, "Thromboembolic event")
  dt$ae_vasc <- replace(dt$ae_vasc, dt$ae_vasc == 10047065, "Vascular disorders - Other, specify")
  dt$ae_vasc <- replace(dt$ae_vasc, dt$ae_vasc == 10047115, "Vasculitis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10002272, "Anemia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10005329, "Blood and lymphatic system disorders - Other, specify")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10048580, "Bone marrow hypocellular")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10013442, "Disseminated intravascular coagulation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10014950, "Eosinophilia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10016288, "Febrile neutropenia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10019491, "Hemolysis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10019515, "Hemolytic uremic syndrome")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10024378, "Leukocytosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10025182, "Lymph node pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10027506, "Methemoglobinemia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10043648, "Thrombotic thrombocytopenic purpura")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10061589, "Aortic valve disease")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10003586, "Asystole")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10003658, "Atrial fibrillation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10003662, "Atrial flutter")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10003673, "Atrioventricular block complete")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10003674, "Atrioventricular block first degree")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10007515, "Cardiac arrest")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10007541, "Cardiac disorders - Other, specify")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10008481, "Chest pain - cardiac")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10010276, "Conduction disorder")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10011703, "Cyanosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10019279, "Heart failure")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10069501, "Left ventricular systolic dysfunction")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10061532, "Mitral valve disease")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10027786, "Mobitz")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10027787, "Mobitz type I")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10028596, "Myocardial infarction")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10028606, "Myocarditis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10033557, "Palpitations")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10034040, "Paroxysmal atrial tachycardia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10034474, "Pericardial effusion")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10053565, "Pericardial tamponade")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10034484, "Pericarditis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10061541, "Pulmonary valve disease")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10038748, "Restrictive cardiomyopathy")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10058597, "Right ventricular dysfunction")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10040639, "Sick sinus syndrome")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10040741, "Sinus bradycardia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10040752, "Sinus tachycardia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10042604, "Supraventricular tachycardia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10061389, "Tricuspid valve disease")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10047281, "Ventricular arrhythmia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10047290, "Ventricular fibrillation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10047302, "Ventricular tachycardia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10010331, "Congenital, familial and genetic disorders - Other, specify")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10013993, "Ear and labyrinth disorders - Other, specify")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10014020, "Ear pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065785, "External ear pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10019245, "Hearing impaired")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065838, "Middle ear inflammation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10043882, "Tinnitus")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10047340, "Vertigo")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10047386, "Vestibular disorder")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10001367, "Adrenal insufficiency")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10011655, "Cushingoid")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10012205, "Delayed puberty")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10014698, "Endocrine disorders - Other, specify")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10018746, "Growth accelerated")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10020705, "Hyperparathyroidism")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10020850, "Hyperthyroidism")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10021041, "Hypoparathyroidism")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10062767, "Hypophysitis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10021067, "Hypopituitarism")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10021114, "Hypothyroidism")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10058084, "Precocious puberty")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10067734, "Testosterone deficiency")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10047488, "Virilization")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10005886, "Blurred vision")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10007739, "Cataract")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10048492, "Corneal ulcer")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10013774, "Dry eye")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10015829, "Extraocular muscle paresis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10015919, "Eye disorders - Other, specify")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10015958, "Eye pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10061145, "Eyelid function disorder")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10016757, "Flashing lights")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10016778, "Floaters")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10018304, "Glaucoma")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10023332, "Keratitis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10029404, "Night blindness")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10061322, "Optic nerve disorder")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10033703, "Papilledema")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10054541, "Periorbital edema")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10034960, "Photophobia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10038848, "Retinal detachment")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10038897, "Retinal tear")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10038901, "Retinal vascular disorder")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10038923, "Retinopathy")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10061510, "Scleral disorder")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10046851, "Uveitis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10047516, "Vision decreased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10047656, "Vitreous hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10047848, "Watering eyes")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10000060, "Abdominal distension")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10000081, "Abdominal pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10002153, "Anal fissure")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10002156, "Anal fistula")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10055226, "Anal hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065721, "Anal mucositis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065722, "Anal necrosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10002167, "Anal pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10002176, "Anal stenosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10002180, "Anal ulcer")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10003445, "Ascites")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10004222, "Belching")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10005265, "Bloating")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065747, "Cecal hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10008417, "Cheilitis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10009167, "Chylous ascites")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10009887, "Colitis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10009995, "Colonic fistula")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10009998, "Colonic hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10010000, "Colonic obstruction")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10010001, "Colonic perforation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10010004, "Colonic stenosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10010006, "Colonic ulcer")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10010774, "Constipation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10012318, "Dental caries")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10012727, "Diarrhea")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10013781, "Dry mouth")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10013828, "Duodenal fistula")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10055242, "Duodenal hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10013830, "Duodenal obstruction")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10013832, "Duodenal perforation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10050094, "Duodenal stenosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10013836, "Duodenal ulcer")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10013946, "Dyspepsia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10013950, "Dysphagia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10014893, "Enterocolitis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10062570, "Enterovesical fistula")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065851, "Esophageal fistula")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10015384, "Esophageal hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065727, "Esophageal necrosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10015387, "Esophageal obstruction")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10015388, "Esophageal pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10055472, "Esophageal perforation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10015448, "Esophageal stenosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10015451, "Esophageal ulcer")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10015453, "Esophageal varices hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10015461, "Esophagitis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10016296, "Fecal incontinence")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10016766, "Flatulence")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065713, "Gastric fistula")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10017789, "Gastric hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10051886, "Gastric necrosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10017815, "Gastric perforation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10061970, "Gastric stenosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10017822, "Gastric ulcer")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10017853, "Gastritis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10066874, "Gastroesophageal reflux disease")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10017947, "Gastrointestinal disorders - Other, specify")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10017877, "Gastrointestinal fistula")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10017999, "Gastrointestinal pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10018043, "Gastroparesis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10018286, "Gingival pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10060640, "Hemorrhoidal hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10019611, "Hemorrhoids")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065728, "Ileal fistula")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10055287, "Ileal hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065730, "Ileal obstruction")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10021305, "Ileal perforation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10021307, "Ileal stenosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10021309, "Ileal ulcer")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10021328, "Ileus")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10055291, "Intra-abdominal hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065719, "Jejunal fistula")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10055300, "Jejunal hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065732, "Jejunal obstruction")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10023174, "Jejunal perforation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10023176, "Jejunal stenosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10023177, "Jejunal ulcer")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10024561, "Lip pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10051746, "Lower gastrointestinal hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10025476, "Malabsorption")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10028130, "Mucositis oral")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10028813, "Nausea")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10029957, "Obstruction gastric")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065720, "Oral cavity fistula")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10054520, "Oral dysesthesia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10030980, "Oral hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10031009, "Oral pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065703, "Pancreatic duct stenosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10049192, "Pancreatic fistula")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10033626, "Pancreatic hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10058096, "Pancreatic necrosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10033645, "Pancreatitis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10034536, "Periodontal disease")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065704, "Peritoneal necrosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10036774, "Proctitis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10064993, "Rectal fissure")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10038062, "Rectal fistula")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10038064, "Rectal hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10063190, "Rectal mucositis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065709, "Rectal necrosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065707, "Rectal obstruction")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10038072, "Rectal pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10038073, "Rectal perforation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10038079, "Rectal stenosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10038080, "Rectal ulcer")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10038981, "Retroperitoneal hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10056681, "Salivary duct inflammation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10039411, "Salivary gland fistula")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065710, "Small intestinal mucositis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10041101, "Small intestinal obstruction")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10041103, "Small intestinal perforation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10062263, "Small intestinal stenosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10041133, "Small intestine ulcer")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10042112, "Stomach pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10044030, "Tooth development disorder")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10044031, "Tooth discoloration")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10044055, "Toothache")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10045271, "Typhlitis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10055356, "Upper gastrointestinal hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10054692, "Visceral arterial ischemia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10047700, "Vomiting")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10008531, "Chills")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10011912, "Death neonatal")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10011914, "Death NOS")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10061818, "Disease progression")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10014222, "Edema face")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10050068, "Edema limbs")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10058720, "Edema trunk")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10016059, "Facial pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10016256, "Fatigue")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10016558, "Fever")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10016791, "Flu like symptoms")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10017577, "Gait disturbance")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10018065, "General disorders and administration site conditions - Other, specify")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10018112, "Generalized edema")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10021113, "Hypothermia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10064774, "Infusion site extravasation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10022095, "Injection site reaction")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10062466, "Localized edema")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10025482, "Malaise")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10028154, "Multi-organ failure")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10054482, "Neck edema")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10062501, "Non-cardiac chest pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10033371, "Pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10042435, "Sudden death NOS")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10069480, "Vaccination site lymphadenopathy")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10051341, "Bile duct stenosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10004665, "Biliary fistula")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10006537, "Budd-Chiari syndrome")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10008612, "Cholecystitis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10017631, "Gallbladder fistula")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10059446, "Gallbladder necrosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10017636, "Gallbladder obstruction")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10017638, "Gallbladder pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10017639, "Gallbladder perforation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10019663, "Hepatic failure")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10019678, "Hepatic hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10019692, "Hepatic necrosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10019705, "Hepatic pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10019805, "Hepatobiliary disorders - Other, specify")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10034405, "Perforation bile duct")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10036200, "Portal hypertension")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10036206, "Portal vein thrombosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10063675, "Sinusoidal obstruction syndrome")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10001718, "Allergic reaction")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10002218, "Anaphylaxis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10061664, "Autoimmune disorder")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10052015, "Cytokine release syndrome")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10021428, "Immune system disorders - Other, specify")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10040400, "Serum sickness")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10056519, "Abdominal infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10061640, "Anorectal infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10003011, "Appendicitis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10003012, "Appendicitis perforated")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065744, "Arteritis infective")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10003999, "Bacteremia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10061695, "Biliary tract infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10005047, "Bladder infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10061017, "Bone infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10006259, "Breast infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10055078, "Bronchial infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10007810, "Catheter related infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065761, "Cecal infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10008330, "Cervicitis infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10010741, "Conjunctivitis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10010742, "Conjunctivitis infective")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10061788, "Corneal infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065765, "Cranial nerve infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10058666, "Cytomegalovirus infection reactivation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10064687, "Device related infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065752, "Duodenal infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10014594, "Encephalitis infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10014621, "Encephalomyelitis infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10014678, "Endocarditis infective")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10014801, "Endophthalmitis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10058838, "Enterocolitis infectious")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10015109, "Epstein-Barr virus infection reactivation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10058804, "Esophageal infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10015929, "Eye infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10016936, "Folliculitis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10017544, "Fungemia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10062632, "Gallbladder infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10018784, "Gum infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10056522, "Hepatic infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10058827, "Hepatitis B reactivation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10019799, "Hepatitis viral")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10080137, "Herpes simplex reactivation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10021881, "Infections and infestations - Other, specify")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10021918, "Infective myositis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10023216, "Joint infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10023424, "Kidney infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10023874, "Laryngitis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065755, "Lip infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10061229, "Lung infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10050823, "Lymph gland infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10057483, "Mediastinal infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10027199, "Meningitis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065764, "Mucosal infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10028524, "Myelitis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10061304, "Nail infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10033072, "Otitis externa")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10033078, "Otitis media")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10055005, "Ovarian infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10051741, "Pancreas infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10069138, "Papulopustular rash")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10034016, "Paronychia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10058674, "Pelvic infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10061912, "Penile infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10051472, "Periorbital infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065766, "Peripheral nerve infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10057262, "Peritoneal infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10034835, "Pharyngitis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10056627, "Phlebitis infective")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10061351, "Pleural infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10050662, "Prostate infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10037888, "Rash pustular")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10059827, "Rhinitis infective")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10039413, "Salivary gland infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10062156, "Scrotal infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10040047, "Sepsis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10040555, "Shingles")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10040753, "Sinusitis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10040872, "Skin infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065771, "Small intestine infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10062255, "Soft tissue infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10062112, "Splenic infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10064505, "Stoma site infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10043649, "Thrush")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10048762, "Tooth infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10044302, "Tracheitis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10046300, "Upper respiratory infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10052298, "Urethral infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10046571, "Urinary tract infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10062233, "Uterine infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10046914, "Vaginal infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10054688, "Viremia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065772, "Vulval infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10048038, "Wound infection")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10002544, "Ankle fracture")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10002899, "Aortic injury")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10003162, "Arterial injury")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10050458, "Biliary anastomotic leak")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065802, "Bladder anastomotic leak")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10006504, "Bruising")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10006634, "Burn")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10061103, "Dermatitis radiation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065961, "Esophageal anastomotic leak")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10016173, "Fall")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065788, "Fallopian tube anastomotic leak")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065790, "Fallopian tube perforation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10017076, "Fracture")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065893, "Gastric anastomotic leak")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065879, "Gastrointestinal anastomotic leak")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065712, "Gastrointestinal stoma necrosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10020100, "Hip fracture")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10051792, "Infusion related reaction")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10022161, "Injury to carotid artery")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10022213, "Injury to inferior vena cava")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065849, "Injury to jugular vein")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10022356, "Injury to superior vena cava")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10022117, "Injury, poisoning and procedural complications - Other, specify")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10059095, "Intestinal stoma leak")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10059094, "Intestinal stoma obstruction")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10049468, "Intestinal stoma site bleeding")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065826, "Intraoperative arterial injury")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065831, "Intraoperative breast injury")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065843, "Intraoperative cardiac injury")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065844, "Intraoperative ear injury")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065834, "Intraoperative endocrine injury")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065825, "Intraoperative gastrointestinal injury")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065842, "Intraoperative head and neck injury")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10055298, "Intraoperative hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065827, "Intraoperative hepatobiliary injury")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065829, "Intraoperative musculoskeletal injury")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065830, "Intraoperative neurological injury")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065841, "Intraoperative ocular injury")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065845, "Intraoperative renal injury")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065840, "Intraoperative reproductive tract injury")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065832, "Intraoperative respiratory injury")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065847, "Intraoperative splenic injury")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065828, "Intraoperative urinary injury")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065848, "Intraoperative venous injury")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065803, "Kidney anastomotic leak")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065891, "Large intestinal anastomotic leak")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10050457, "Pancreatic anastomotic leak")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065705, "Pharyngeal anastomotic leak")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10055322, "Postoperative hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10056745, "Postoperative thoracic procedure complication")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065745, "Prolapse of intestinal stoma")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065822, "Prolapse of urostomy")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10037767, "Radiation recall reaction")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065894, "Rectal anastomotic leak")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10040102, "Seroma")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065892, "Small intestinal anastomotic leak")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065897, "Spermatic cord anastomotic leak")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10041569, "Spinal fracture")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065898, "Stenosis of gastrointestinal stoma")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10042127, "Stomal ulcer")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10062548, "Tracheal hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10044291, "Tracheal obstruction")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065749, "Tracheostomy site bleeding")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065814, "Ureteric anastomotic leak")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065815, "Urethral anastomotic leak")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065882, "Urostomy leak")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065883, "Urostomy obstruction")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065748, "Urostomy site bleeding")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065885, "Urostomy stenosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065886, "Uterine anastomotic leak")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10046810, "Uterine perforation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10046861, "Vaccination complication")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065887, "Vaginal anastomotic leak")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065888, "Vas deferens anastomotic leak")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10062169, "Vascular access complication")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10047228, "Venous injury")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10053692, "Wound complication")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10048031, "Wound dehiscence")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10048049, "Wrist fracture")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10000636, "Activated partial thromboplastin time prolonged")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10001551, "Alanine aminotransferase increased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10001675, "Alkaline phosphatase increased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10003481, "Aspartate aminotransferase increased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10005332, "Blood antidiuretic hormone abnormal")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10005359, "Blood bicarbonate decreased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10005364, "Blood bilirubin increased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10005452, "Blood corticotrophin decreased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10005561, "Blood gonadotrophin abnormal")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10005630, "Blood lactate dehydrogenase increased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10005778, "Blood prolactin abnormal")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065906, "Carbon monoxide diffusing capacity decreased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10007612, "Cardiac troponin I increased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10007613, "Cardiac troponin T increased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10007839, "CD4 lymphocytes decreased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10008661, "Cholesterol high")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10011268, "CPK increased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10011368, "Creatinine increased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10050528, "Ejection fraction decreased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10014383, "Electrocardiogram QT corrected interval prolonged")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10050380, "Electrocardiogram T wave abnormal")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10016596, "Fibrinogen decreased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10016987, "Forced expiratory volume decreased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10056910, "GGT increased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10018748, "Growth hormone abnormal")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10019150, "Haptoglobin decreased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10055599, "Hemoglobin increased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10022402, "INR increased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10022891, "Investigations - Other, specify")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10024574, "Lipase increased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10025256, "Lymphocyte count decreased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10025258, "Lymphocyte count increased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10029366, "Neutrophil count decreased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10062646, "Pancreatic enzymes decreased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10035528, "Platelet count decreased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10040139, "Serum amylase increased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10043770, "Thyroid stimulating hormone increased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10059895, "Urine output decreased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10047580, "Vital capacity abnormal")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10047896, "Weight gain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10047900, "Weight loss")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10049182, "White blood cell decreased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10000486, "Acidosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10001598, "Alcohol intolerance")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10001680, "Alkalosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10002646, "Anorexia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10012174, "Dehydration")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10052426, "Glucose intolerance")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10020587, "Hypercalcemia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10020639, "Hyperglycemia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10020647, "Hyperkalemia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10020667, "Hyperlipidemia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10020670, "Hypermagnesemia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10020680, "Hypernatremia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10020712, "Hyperphosphatemia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10020870, "Hypertriglyceridemia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10020907, "Hyperuricemia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10020943, "Hypoalbuminemia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10020949, "Hypocalcemia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10021005, "Hypoglycemia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10021018, "Hypokalemia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10021028, "Hypomagnesemia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10021038, "Hyponatremia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10021059, "Hypophosphatemia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065973, "Iron overload")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10027433, "Metabolism and nutrition disorders - Other, specify")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10029883, "Obesity")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10045152, "Tumor lysis syndrome")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065775, "Abdominal soft tissue necrosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10003239, "Arthralgia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10003246, "Arthritis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10066480, "Avascular necrosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10003988, "Back pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10006002, "Bone pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10048677, "Buttock pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10048831, "Chest wall necrosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10008496, "Chest wall pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10015688, "Exostosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065799, "Fibrosis deep connective tissue")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10016750, "Flank pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10062572, "Generalized muscle weakness")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10018761, "Growth suppression")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065779, "Head soft tissue necrosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10023215, "Joint effusion")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10048706, "Joint range of motion decreased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065796, "Joint range of motion decreased cervical spine")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065800, "Joint range of motion decreased lumbar spine")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10023509, "Kyphosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10024842, "Lordosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10028294, "Muscle cramp")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065776, "Muscle weakness lower limb")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065795, "Muscle weakness trunk")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065895, "Muscle weakness upper limb")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10028395, "Musculoskeletal and connective tissue disorder - Other, specify")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065783, "Musculoskeletal deformity")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10028411, "Myalgia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10028653, "Myositis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10028836, "Neck pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065781, "Neck soft tissue necrosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10031264, "Osteonecrosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10064658, "Osteonecrosis of jaw")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10031282, "Osteoporosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10033425, "Pain in extremity")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065793, "Pelvic soft tissue necrosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10039020, "Rhabdomyolysis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10039226, "Rotator cuff injury")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10039722, "Scoliosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065777, "Soft tissue necrosis lower limb")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065778, "Soft tissue necrosis upper limb")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065798, "Superficial soft tissue fibrosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10044684, "Trismus")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065738, "Unequal limb length")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10048293, "Leukemia secondary to oncology chemotherapy")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10028533, "Myelodysplastic syndrome")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10029104, "Neoplasms benign, malignant and unspecified")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10040907, "Skin papilloma")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10049737, "Treatment related secondary malignancy")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10055351, "Tumor hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10045158, "Tumor pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10053662, "Abducens nerve disorder")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10060929, "Accessory nerve disorder")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10000521, "Acoustic nerve disorder NOS")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10001540, "Akathisia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10001949, "Amnesia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10002653, "Anosmia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10002953, "Aphonia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10003074, "Arachnoiditis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10003591, "Ataxia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065417, "Brachial plexopathy")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065784, "Central nervous system necrosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10008164, "Cerebrospinal fluid leakage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10009845, "Cognitive disturbance")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10010250, "Concentration impairment")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10012373, "Depressed level of consciousness")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10013573, "Dizziness")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10013887, "Dysarthria")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10062872, "Dysesthesia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10013911, "Dysgeusia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10013951, "Dysphasia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10014217, "Edema cerebral")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10014625, "Encephalopathy")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10015832, "Extrapyramidal disorder")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10051272, "Facial muscle weakness")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10061457, "Facial nerve disorder")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10061185, "Glossopharyngeal nerve disorder")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10018767, "Guillain-Barre syndrome")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10019211, "Headache")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10020508, "Hydrocephalus")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10020765, "Hypersomnia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10061212, "Hypoglossal nerve disorder")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10022763, "Intracranial hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10023030, "Ischemia cerebrovascular")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10024264, "Lethargy")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10024382, "Leukoencephalopathy")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10027175, "Memory impairment")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10027198, "Meningismus")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10028041, "Movements involuntary")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065780, "Muscle weakness left-sided")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065794, "Muscle weakness right-sided")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10028417, "Myasthenia gravis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10029205, "Nervous system disorders - Other, specify")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10029223, "Neuralgia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10029864, "Nystagmus")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10053661, "Oculomotor nerve disorder")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10056388, "Olfactory nerve disorder")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10033987, "Paresthesia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10034580, "Peripheral motor neuropathy")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10034620, "Peripheral sensory neuropathy")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10056238, "Phantom pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10036653, "Presyncope")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10063636, "Pyramidal tract syndrome")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10061928, "Radiculitis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10038130, "Recurrent laryngeal nerve palsy")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10063761, "Reversible posterior leukoencephalopathy syndrome")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10039906, "Seizure")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10041349, "Somnolence")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10041416, "Spasticity")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10041549, "Spinal cord compression")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10042244, "Stroke")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10042772, "Syncope")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10043245, "Tendon reflex decreased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10044391, "Transient ischemic attacks")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10044565, "Tremor")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10060890, "Trigeminal nerve disorder")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10074765, "Trochlear nerve disorder")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10061403, "Vagus nerve disorder")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10047166, "Vasovagal reaction")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10054746, "Fetal growth retardation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10072314, "Pregnancy loss")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10036585, "Pregnancy, puerperium and perinatal conditions - Other, specify")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10036595, "Premature delivery")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10001497, "Agitation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10002652, "Anorgasmia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10002855, "Anxiety")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10010300, "Confusion")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10057066, "Delayed orgasm")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10012218, "Delirium")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10012260, "Delusions")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10012378, "Depression")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10015533, "Euphoria")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10019077, "Hallucinations")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10022437, "Insomnia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10022998, "Irritability")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10024419, "Libido decreased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10024421, "Libido increased")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10026749, "Mania")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10034719, "Personality change")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10037175, "Psychiatric disorders - Other, specify")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10037234, "Psychosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10038743, "Restlessness")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10042458, "Suicidal ideation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10042464, "Suicide attempt")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10069339, "Acute kidney injury")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10063575, "Bladder perforation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10048994, "Bladder spasm")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10064848, "Chronic kidney disease")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10063057, "Cystitis noninfective")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10013990, "Dysuria")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10068405, "Glucosuria")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10019450, "Hematuria")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10019489, "Hemoglobinuria")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10029164, "Nephrotic syndrome")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10037032, "Proteinuria")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10038359, "Renal and urinary disorders - Other, specify")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10038385, "Renal calculi")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10038419, "Renal colic")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10038463, "Renal hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065368, "Urinary fistula")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10046539, "Urinary frequency")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10046543, "Urinary incontinence")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10046555, "Urinary retention")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10061574, "Urinary tract obstruction")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10062225, "Urinary tract pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10046593, "Urinary urgency")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10046628, "Urine discoloration")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10001927, "Amenorrhea")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10003883, "Azoospermia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10006179, "Breast atrophy")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10006298, "Breast pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10013934, "Dysmenorrhea")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10013941, "Dyspareunia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10014326, "Ejaculation disorder")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10061461, "Erectile dysfunction")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065789, "Fallopian tube obstruction")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10054382, "Feminization acquired")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10018146, "Genital edema")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10018801, "Gynecomastia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10060602, "Hematosalpinx")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10022992, "Irregular menstruation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10061261, "Lactation disorder")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10027313, "Menorrhagia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065823, "Nipple deformity")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10030300, "Oligospermia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065763, "Ovarian hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10033279, "Ovarian rupture")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10033314, "Ovulation pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10064026, "Pelvic floor muscle weakness")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10034263, "Pelvic pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10034310, "Penile pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10061339, "Perineal pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10036601, "Premature menopause")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10055325, "Prostatic hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10055026, "Prostatic obstruction")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10036968, "Prostatic pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10038604, "Reproductive system and breast disorders - Other, specify")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10039757, "Scrotal pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065762, "Spermatic cord hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065805, "Spermatic cord obstruction")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10043306, "Testicular disorder")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10055347, "Testicular hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10043345, "Testicular pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065811, "Uterine fistula")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10046789, "Uterine hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065928, "Uterine obstruction")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10046809, "Uterine pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10046901, "Vaginal discharge")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10046904, "Vaginal dryness")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065813, "Vaginal fistula")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10046912, "Vaginal hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10046916, "Vaginal inflammation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065817, "Vaginal obstruction")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10046937, "Vaginal pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065818, "Vaginal perforation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10053496, "Vaginal stricture")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10001409, "Adult respiratory distress syndrome")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10001723, "Allergic rhinitis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10002972, "Apnea")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10003504, "Aspiration")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10003598, "Atelectasis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10006437, "Bronchial fistula")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10006440, "Bronchial obstruction")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10063524, "Bronchial stricture")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10053481, "Bronchopleural fistula")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065746, "Bronchopulmonary hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10006482, "Bronchospasm")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10051228, "Chylothorax")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10011224, "Cough")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10013963, "Dyspnea")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10015090, "Epistaxis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10020039, "Hiccups")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10020201, "Hoarseness")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10021143, "Hypoxia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10023838, "Laryngeal edema")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065786, "Laryngeal fistula")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065759, "Laryngeal hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065735, "Laryngeal inflammation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065880, "Laryngeal mucositis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10059639, "Laryngeal obstruction")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10023862, "Laryngeal stenosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10062667, "Laryngopharyngeal dysesthesia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10023891, "Laryngospasm")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10056356, "Mediastinal hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10028735, "Nasal congestion")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10068319, "Oropharyngeal pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10034825, "Pharyngeal fistula")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10055315, "Pharyngeal hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065881, "Pharyngeal mucositis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065706, "Pharyngeal necrosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10050028, "Pharyngeal stenosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10034844, "Pharyngolaryngeal pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10035598, "Pleural effusion")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10055319, "Pleural hemorrhage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10035623, "Pleuritic pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10035742, "Pneumonitis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10035759, "Pneumothorax")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10036402, "Postnasal drip")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10036790, "Productive cough")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10037375, "Pulmonary edema")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10037383, "Pulmonary fibrosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065873, "Pulmonary fistula")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10037400, "Pulmonary hypertension")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10038695, "Respiratory failure")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10038738, "Respiratory, thoracic and mediastinal disorders - Other, specify")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10038921, "Retinoic acid syndrome")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10039100, "Rhinorrhea")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10062244, "Sinus disorder")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10040747, "Sinus pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10040975, "Sleep apnea")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10041232, "Sneezing")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10041367, "Sore throat")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10042241, "Stridor")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065787, "Tracheal fistula")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065900, "Tracheal mucositis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10050816, "Tracheal stenosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10047681, "Voice alteration")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10047924, "Wheezing")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10001760, "Alopecia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10005901, "Body odor")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10006556, "Bullous dermatitis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10013786, "Dry skin")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10014184, "Eczema")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10015218, "Erythema multiforme")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10015277, "Erythroderma")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10016241, "Fat atrophy")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10055525, "Hair color changes")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10019049, "Hair texture abnormal")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10020112, "Hirsutism")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10020642, "Hyperhidrosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10020649, "Hyperkeratosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10020864, "Hypertrichosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10021013, "Hypohidrosis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10062315, "Lipohypertrophy")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10028689, "Nail changes")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10028691, "Nail discoloration")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10049281, "Nail loss")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10062283, "Nail ridging")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10033474, "Pain of skin")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10054524, "Palmar-plantar erythrodysesthesia syndrome")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10034966, "Photosensitivity")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10037087, "Pruritus")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10037549, "Purpura")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10037847, "Rash acneiform")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10037868, "Rash maculo-papular")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10049120, "Scalp pain")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10040785, "Skin and subcutaneous tissue disorders - Other, specify")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10040799, "Skin atrophy")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10040865, "Skin hyperpigmentation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10040868, "Skin hypopigmentation")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10051837, "Skin induration")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10040947, "Skin ulceration")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10042033, "Stevens-Johnson syndrome")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10042344, "Subcutaneous emphysema")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10043189, "Telangiectasia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10044223, "Toxic epidermal necrolysis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10046735, "Urticaria")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10041244, "Social circumstances - Other, specify")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10042613, "Surgical and medical procedures - Other, specify")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10073529, "Arterial thromboembolism")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10007196, "Capillary leak syndrome")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10016825, "Flushing")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10019428, "Hematoma")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10020407, "Hot flashes")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10020772, "Hypertension")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10021097, "Hypotension")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10065773, "Lymph leakage")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10025233, "Lymphedema")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10048642, "Lymphocele")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10034578, "Peripheral ischemia")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10034879, "Phlebitis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10042554, "Superficial thrombophlebitis")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10042569, "Superior vena cava syndrome")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10043565, "Thromboembolic event")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10047065, "Vascular disorders - Other, specify")
  dt$ae_search <- replace(dt$ae_search, dt$ae_search == 10047115, "Vasculitis")
  dt$ae_sev <- replace(dt$ae_sev, dt$ae_sev == 1, "Grade 1")
  dt$ae_sev <- replace(dt$ae_sev, dt$ae_sev == 2, "Grade 2")
  dt$ae_sev <- replace(dt$ae_sev, dt$ae_sev == 3, "Grade 3")
  dt$ae_sev <- replace(dt$ae_sev, dt$ae_sev == 4, "Grade 4")
  dt$ae_sev <- replace(dt$ae_sev, dt$ae_sev == 5, "Grade 5")
  dt$ae_st_dtc_yn <- replace(dt$ae_st_dtc_yn, dt$ae_st_dtc_yn == 0, "No")
  dt$ae_st_dtc_yn <- replace(dt$ae_st_dtc_yn, dt$ae_st_dtc_yn == 1, "Yes")
  dt$ae_st_dtc_mo <- replace(dt$ae_st_dtc_mo, dt$ae_st_dtc_mo == 1, "01")
  dt$ae_st_dtc_mo <- replace(dt$ae_st_dtc_mo, dt$ae_st_dtc_mo == 2, "02")
  dt$ae_st_dtc_mo <- replace(dt$ae_st_dtc_mo, dt$ae_st_dtc_mo == 3, "03")
  dt$ae_st_dtc_mo <- replace(dt$ae_st_dtc_mo, dt$ae_st_dtc_mo == 4, "04")
  dt$ae_st_dtc_mo <- replace(dt$ae_st_dtc_mo, dt$ae_st_dtc_mo == 5, "05")
  dt$ae_st_dtc_mo <- replace(dt$ae_st_dtc_mo, dt$ae_st_dtc_mo == 6, "06")
  dt$ae_st_dtc_mo <- replace(dt$ae_st_dtc_mo, dt$ae_st_dtc_mo == 7, "07")
  dt$ae_st_dtc_mo <- replace(dt$ae_st_dtc_mo, dt$ae_st_dtc_mo == 8, "08")
  dt$ae_st_dtc_mo <- replace(dt$ae_st_dtc_mo, dt$ae_st_dtc_mo == 9, "09")
  dt$ae_st_dtc_mo <- replace(dt$ae_st_dtc_mo, dt$ae_st_dtc_mo == 10, "10")
  dt$ae_st_dtc_mo <- replace(dt$ae_st_dtc_mo, dt$ae_st_dtc_mo == 11, "11")
  dt$ae_st_dtc_mo <- replace(dt$ae_st_dtc_mo, dt$ae_st_dtc_mo == 12, "12")
  dt$ae_exp <- replace(dt$ae_exp, dt$ae_exp == 0, "No")
  dt$ae_exp <- replace(dt$ae_exp, dt$ae_exp == 1, "Yes")
  dt$ae_exp <- replace(dt$ae_exp, dt$ae_exp == 98, "Unknown/Not Reported")
  dt$ae_sat_rel_1 <- replace(dt$ae_sat_rel_1, dt$ae_sat_rel_1 == 0, "Unrelated ")
  dt$ae_sat_rel_1 <- replace(dt$ae_sat_rel_1, dt$ae_sat_rel_1 == 1, "Unlikely ")
  dt$ae_sat_rel_1 <- replace(dt$ae_sat_rel_1, dt$ae_sat_rel_1 == 2, "Possible ")
  dt$ae_sat_rel_1 <- replace(dt$ae_sat_rel_1, dt$ae_sat_rel_1 == 3, "Probable ")
  dt$ae_sat_rel_1 <- replace(dt$ae_sat_rel_1, dt$ae_sat_rel_1 == 4, "Definite ")
  dt$ae_sat_rel_1 <- replace(dt$ae_sat_rel_1, dt$ae_sat_rel_1 == 98, "Unknown/Not Reported")
  dt$ae_sat_rel_2 <- replace(dt$ae_sat_rel_2, dt$ae_sat_rel_2 == 0, "Unrelated ")
  dt$ae_sat_rel_2 <- replace(dt$ae_sat_rel_2, dt$ae_sat_rel_2 == 1, "Unlikely ")
  dt$ae_sat_rel_2 <- replace(dt$ae_sat_rel_2, dt$ae_sat_rel_2 == 2, "Possible ")
  dt$ae_sat_rel_2 <- replace(dt$ae_sat_rel_2, dt$ae_sat_rel_2 == 3, "Probable ")
  dt$ae_sat_rel_2 <- replace(dt$ae_sat_rel_2, dt$ae_sat_rel_2 == 4, "Definite ")
  dt$ae_sat_rel_2 <- replace(dt$ae_sat_rel_2, dt$ae_sat_rel_2 == 98, "Unknown/Not Reported")
  dt$ae_sat_rel_3 <- replace(dt$ae_sat_rel_3, dt$ae_sat_rel_3 == 0, "Unrelated ")
  dt$ae_sat_rel_3 <- replace(dt$ae_sat_rel_3, dt$ae_sat_rel_3 == 1, "Unlikely ")
  dt$ae_sat_rel_3 <- replace(dt$ae_sat_rel_3, dt$ae_sat_rel_3 == 2, "Possible ")
  dt$ae_sat_rel_3 <- replace(dt$ae_sat_rel_3, dt$ae_sat_rel_3 == 3, "Probable ")
  dt$ae_sat_rel_3 <- replace(dt$ae_sat_rel_3, dt$ae_sat_rel_3 == 4, "Definite ")
  dt$ae_sat_rel_3 <- replace(dt$ae_sat_rel_3, dt$ae_sat_rel_3 == 98, "Unknown/Not Reported")
  dt$ae_sat_rel_4 <- replace(dt$ae_sat_rel_4, dt$ae_sat_rel_4 == 0, "Unrelated ")
  dt$ae_sat_rel_4 <- replace(dt$ae_sat_rel_4, dt$ae_sat_rel_4 == 1, "Unlikely ")
  dt$ae_sat_rel_4 <- replace(dt$ae_sat_rel_4, dt$ae_sat_rel_4 == 2, "Possible ")
  dt$ae_sat_rel_4 <- replace(dt$ae_sat_rel_4, dt$ae_sat_rel_4 == 3, "Probable ")
  dt$ae_sat_rel_4 <- replace(dt$ae_sat_rel_4, dt$ae_sat_rel_4 == 4, "Definite ")
  dt$ae_sat_rel_4 <- replace(dt$ae_sat_rel_4, dt$ae_sat_rel_4 == 98, "Unknown/Not Reported")
  dt$ae_sat_rel_5 <- replace(dt$ae_sat_rel_5, dt$ae_sat_rel_5 == 0, "Unrelated ")
  dt$ae_sat_rel_5 <- replace(dt$ae_sat_rel_5, dt$ae_sat_rel_5 == 1, "Unlikely ")
  dt$ae_sat_rel_5 <- replace(dt$ae_sat_rel_5, dt$ae_sat_rel_5 == 2, "Possible ")
  dt$ae_sat_rel_5 <- replace(dt$ae_sat_rel_5, dt$ae_sat_rel_5 == 3, "Probable ")
  dt$ae_sat_rel_5 <- replace(dt$ae_sat_rel_5, dt$ae_sat_rel_5 == 4, "Definite ")
  dt$ae_sat_rel_5 <- replace(dt$ae_sat_rel_5, dt$ae_sat_rel_5 == 98, "Unknown/Not Reported")
  dt$ae_sat_rel_6 <- replace(dt$ae_sat_rel_6, dt$ae_sat_rel_6 == 0, "Unrelated ")
  dt$ae_sat_rel_6 <- replace(dt$ae_sat_rel_6, dt$ae_sat_rel_6 == 1, "Unlikely ")
  dt$ae_sat_rel_6 <- replace(dt$ae_sat_rel_6, dt$ae_sat_rel_6 == 2, "Possible ")
  dt$ae_sat_rel_6 <- replace(dt$ae_sat_rel_6, dt$ae_sat_rel_6 == 3, "Probable ")
  dt$ae_sat_rel_6 <- replace(dt$ae_sat_rel_6, dt$ae_sat_rel_6 == 4, "Definite ")
  dt$ae_sat_rel_6 <- replace(dt$ae_sat_rel_6, dt$ae_sat_rel_6 == 98, "Unknown/Not Reported")
  dt$ae_sat_rel_7 <- replace(dt$ae_sat_rel_7, dt$ae_sat_rel_7 == 0, "Unrelated ")
  dt$ae_sat_rel_7 <- replace(dt$ae_sat_rel_7, dt$ae_sat_rel_7 == 1, "Unlikely ")
  dt$ae_sat_rel_7 <- replace(dt$ae_sat_rel_7, dt$ae_sat_rel_7 == 2, "Possible ")
  dt$ae_sat_rel_7 <- replace(dt$ae_sat_rel_7, dt$ae_sat_rel_7 == 3, "Probable ")
  dt$ae_sat_rel_7 <- replace(dt$ae_sat_rel_7, dt$ae_sat_rel_7 == 4, "Definite ")
  dt$ae_sat_rel_7 <- replace(dt$ae_sat_rel_7, dt$ae_sat_rel_7 == 98, "Unknown/Not Reported")
  dt$ae_sat_rel_8 <- replace(dt$ae_sat_rel_8, dt$ae_sat_rel_8 == 0, "Unrelated ")
  dt$ae_sat_rel_8 <- replace(dt$ae_sat_rel_8, dt$ae_sat_rel_8 == 1, "Unlikely ")
  dt$ae_sat_rel_8 <- replace(dt$ae_sat_rel_8, dt$ae_sat_rel_8 == 2, "Possible ")
  dt$ae_sat_rel_8 <- replace(dt$ae_sat_rel_8, dt$ae_sat_rel_8 == 3, "Probable ")
  dt$ae_sat_rel_8 <- replace(dt$ae_sat_rel_8, dt$ae_sat_rel_8 == 4, "Definite ")
  dt$ae_sat_rel_8 <- replace(dt$ae_sat_rel_8, dt$ae_sat_rel_8 == 98, "Unknown/Not Reported")
  dt$ae_sat_rel_9 <- replace(dt$ae_sat_rel_9, dt$ae_sat_rel_9 == 0, "Unrelated ")
  dt$ae_sat_rel_9 <- replace(dt$ae_sat_rel_9, dt$ae_sat_rel_9 == 1, "Unlikely ")
  dt$ae_sat_rel_9 <- replace(dt$ae_sat_rel_9, dt$ae_sat_rel_9 == 2, "Possible ")
  dt$ae_sat_rel_9 <- replace(dt$ae_sat_rel_9, dt$ae_sat_rel_9 == 3, "Probable ")
  dt$ae_sat_rel_9 <- replace(dt$ae_sat_rel_9, dt$ae_sat_rel_9 == 4, "Definite ")
  dt$ae_sat_rel_9 <- replace(dt$ae_sat_rel_9, dt$ae_sat_rel_9 == 98, "Unknown/Not Reported")
  dt$ae_sat_rel_10 <- replace(dt$ae_sat_rel_10, dt$ae_sat_rel_10 == 0, "Unrelated ")
  dt$ae_sat_rel_10 <- replace(dt$ae_sat_rel_10, dt$ae_sat_rel_10 == 1, "Unlikely ")
  dt$ae_sat_rel_10 <- replace(dt$ae_sat_rel_10, dt$ae_sat_rel_10 == 2, "Possible ")
  dt$ae_sat_rel_10 <- replace(dt$ae_sat_rel_10, dt$ae_sat_rel_10 == 3, "Probable ")
  dt$ae_sat_rel_10 <- replace(dt$ae_sat_rel_10, dt$ae_sat_rel_10 == 4, "Definite ")
  dt$ae_sat_rel_10 <- replace(dt$ae_sat_rel_10, dt$ae_sat_rel_10 == 98, "Unknown/Not Reported")
  dt$ae_sat_act_1 <- replace(dt$ae_sat_act_1, dt$ae_sat_act_1 == 0, " Already Completed ")
  dt$ae_sat_act_1 <- replace(dt$ae_sat_act_1, dt$ae_sat_act_1 == 1, "Continued")
  dt$ae_sat_act_1 <- replace(dt$ae_sat_act_1, dt$ae_sat_act_1 == 2, "Interrupted")
  dt$ae_sat_act_1 <- replace(dt$ae_sat_act_1, dt$ae_sat_act_1 == 3, "Withdrawn")
  dt$ae_sat_act_1 <- replace(dt$ae_sat_act_1, dt$ae_sat_act_1 == 4, "Modified")
  dt$ae_sat_act_1 <- replace(dt$ae_sat_act_1, dt$ae_sat_act_1 == 98, "Unknown/Not Reported")
  dt$ae_sat_act_2 <- replace(dt$ae_sat_act_2, dt$ae_sat_act_2 == 0, " Already Completed ")
  dt$ae_sat_act_2 <- replace(dt$ae_sat_act_2, dt$ae_sat_act_2 == 1, "Continued")
  dt$ae_sat_act_2 <- replace(dt$ae_sat_act_2, dt$ae_sat_act_2 == 2, "Interrupted")
  dt$ae_sat_act_2 <- replace(dt$ae_sat_act_2, dt$ae_sat_act_2 == 3, "Withdrawn")
  dt$ae_sat_act_2 <- replace(dt$ae_sat_act_2, dt$ae_sat_act_2 == 4, "Modified")
  dt$ae_sat_act_2 <- replace(dt$ae_sat_act_2, dt$ae_sat_act_2 == 98, "Unknown/Not Reported")
  dt$ae_sat_act_3 <- replace(dt$ae_sat_act_3, dt$ae_sat_act_3 == 0, " Already Completed ")
  dt$ae_sat_act_3 <- replace(dt$ae_sat_act_3, dt$ae_sat_act_3 == 1, "Continued")
  dt$ae_sat_act_3 <- replace(dt$ae_sat_act_3, dt$ae_sat_act_3 == 2, "Interrupted")
  dt$ae_sat_act_3 <- replace(dt$ae_sat_act_3, dt$ae_sat_act_3 == 3, "Withdrawn")
  dt$ae_sat_act_3 <- replace(dt$ae_sat_act_3, dt$ae_sat_act_3 == 4, "Modified")
  dt$ae_sat_act_3 <- replace(dt$ae_sat_act_3, dt$ae_sat_act_3 == 98, "Unknown/Not Reported")
  dt$ae_sat_act_4 <- replace(dt$ae_sat_act_4, dt$ae_sat_act_4 == 0, " Already Completed ")
  dt$ae_sat_act_4 <- replace(dt$ae_sat_act_4, dt$ae_sat_act_4 == 1, "Continued")
  dt$ae_sat_act_4 <- replace(dt$ae_sat_act_4, dt$ae_sat_act_4 == 2, "Interrupted")
  dt$ae_sat_act_4 <- replace(dt$ae_sat_act_4, dt$ae_sat_act_4 == 3, "Withdrawn")
  dt$ae_sat_act_4 <- replace(dt$ae_sat_act_4, dt$ae_sat_act_4 == 4, "Modified")
  dt$ae_sat_act_4 <- replace(dt$ae_sat_act_4, dt$ae_sat_act_4 == 98, "Unknown/Not Reported")
  dt$ae_sat_act_5 <- replace(dt$ae_sat_act_5, dt$ae_sat_act_5 == 0, " Already Completed ")
  dt$ae_sat_act_5 <- replace(dt$ae_sat_act_5, dt$ae_sat_act_5 == 1, "Continued")
  dt$ae_sat_act_5 <- replace(dt$ae_sat_act_5, dt$ae_sat_act_5 == 2, "Interrupted")
  dt$ae_sat_act_5 <- replace(dt$ae_sat_act_5, dt$ae_sat_act_5 == 3, "Withdrawn")
  dt$ae_sat_act_5 <- replace(dt$ae_sat_act_5, dt$ae_sat_act_5 == 4, "Modified")
  dt$ae_sat_act_5 <- replace(dt$ae_sat_act_5, dt$ae_sat_act_5 == 98, "Unknown/Not Reported")
  dt$ae_sat_act_6 <- replace(dt$ae_sat_act_6, dt$ae_sat_act_6 == 0, " Already Completed ")
  dt$ae_sat_act_6 <- replace(dt$ae_sat_act_6, dt$ae_sat_act_6 == 1, "Continued")
  dt$ae_sat_act_6 <- replace(dt$ae_sat_act_6, dt$ae_sat_act_6 == 2, "Interrupted")
  dt$ae_sat_act_6 <- replace(dt$ae_sat_act_6, dt$ae_sat_act_6 == 3, "Withdrawn")
  dt$ae_sat_act_6 <- replace(dt$ae_sat_act_6, dt$ae_sat_act_6 == 4, "Modified")
  dt$ae_sat_act_6 <- replace(dt$ae_sat_act_6, dt$ae_sat_act_6 == 98, "Unknown/Not Reported")
  dt$ae_sat_act_7 <- replace(dt$ae_sat_act_7, dt$ae_sat_act_7 == 0, " Already Completed ")
  dt$ae_sat_act_7 <- replace(dt$ae_sat_act_7, dt$ae_sat_act_7 == 1, "Continued")
  dt$ae_sat_act_7 <- replace(dt$ae_sat_act_7, dt$ae_sat_act_7 == 2, "Interrupted")
  dt$ae_sat_act_7 <- replace(dt$ae_sat_act_7, dt$ae_sat_act_7 == 3, "Withdrawn")
  dt$ae_sat_act_7 <- replace(dt$ae_sat_act_7, dt$ae_sat_act_7 == 4, "Modified")
  dt$ae_sat_act_7 <- replace(dt$ae_sat_act_7, dt$ae_sat_act_7 == 98, "Unknown/Not Reported")
  dt$ae_sat_act_8 <- replace(dt$ae_sat_act_8, dt$ae_sat_act_8 == 0, " Already Completed ")
  dt$ae_sat_act_8 <- replace(dt$ae_sat_act_8, dt$ae_sat_act_8 == 1, "Continued")
  dt$ae_sat_act_8 <- replace(dt$ae_sat_act_8, dt$ae_sat_act_8 == 2, "Interrupted")
  dt$ae_sat_act_8 <- replace(dt$ae_sat_act_8, dt$ae_sat_act_8 == 3, "Withdrawn")
  dt$ae_sat_act_8 <- replace(dt$ae_sat_act_8, dt$ae_sat_act_8 == 4, "Modified")
  dt$ae_sat_act_8 <- replace(dt$ae_sat_act_8, dt$ae_sat_act_8 == 98, "Unknown/Not Reported")
  dt$ae_sat_act_9 <- replace(dt$ae_sat_act_9, dt$ae_sat_act_9 == 0, " Already Completed ")
  dt$ae_sat_act_9 <- replace(dt$ae_sat_act_9, dt$ae_sat_act_9 == 1, "Continued")
  dt$ae_sat_act_9 <- replace(dt$ae_sat_act_9, dt$ae_sat_act_9 == 2, "Interrupted")
  dt$ae_sat_act_9 <- replace(dt$ae_sat_act_9, dt$ae_sat_act_9 == 3, "Withdrawn")
  dt$ae_sat_act_9 <- replace(dt$ae_sat_act_9, dt$ae_sat_act_9 == 4, "Modified")
  dt$ae_sat_act_9 <- replace(dt$ae_sat_act_9, dt$ae_sat_act_9 == 98, "Unknown/Not Reported")
  dt$ae_sat_act_10 <- replace(dt$ae_sat_act_10, dt$ae_sat_act_10 == 0, " Already Completed ")
  dt$ae_sat_act_10 <- replace(dt$ae_sat_act_10, dt$ae_sat_act_10 == 1, "Continued")
  dt$ae_sat_act_10 <- replace(dt$ae_sat_act_10, dt$ae_sat_act_10 == 2, "Interrupted")
  dt$ae_sat_act_10 <- replace(dt$ae_sat_act_10, dt$ae_sat_act_10 == 3, "Withdrawn")
  dt$ae_sat_act_10 <- replace(dt$ae_sat_act_10, dt$ae_sat_act_10 == 4, "Modified")
  dt$ae_sat_act_10 <- replace(dt$ae_sat_act_10, dt$ae_sat_act_10 == 98, "Unknown/Not Reported")
  dt$ae_hospital_yn <- replace(dt$ae_hospital_yn, dt$ae_hospital_yn == 0, "No")
  dt$ae_hospital_yn <- replace(dt$ae_hospital_yn, dt$ae_hospital_yn == 1, "Yes")
  dt$ae_tx_yn <- replace(dt$ae_tx_yn, dt$ae_tx_yn == 0, "No")
  dt$ae_tx_yn <- replace(dt$ae_tx_yn, dt$ae_tx_yn == 1, "Yes")
  dt$ae_serious <- replace(dt$ae_serious, dt$ae_serious == 0, "No")
  dt$ae_serious <- replace(dt$ae_serious, dt$ae_serious == 1, "Yes")
  dt$ae_serious <- replace(dt$ae_serious, dt$ae_serious == 98, "Unknown/Not Reported")
  dt$ae_out <- replace(dt$ae_out, dt$ae_out == 1, "Recovered / Resolved")
  dt$ae_out <- replace(dt$ae_out, dt$ae_out == 2, "Recovered / Resolved With Sequelae")
  dt$ae_out <- replace(dt$ae_out, dt$ae_out == 3, "Recovering / Resolving")
  dt$ae_out <- replace(dt$ae_out, dt$ae_out == 4, "Unresolved / Not Recovered")
  dt$ae_out <- replace(dt$ae_out, dt$ae_out == 5, "Fatal")
  dt$ae_out <- replace(dt$ae_out, dt$ae_out == 98, "Unknown/Not Reported")
  dt$ae_stop_dtc_yn <- replace(dt$ae_stop_dtc_yn, dt$ae_stop_dtc_yn == 0, "No")
  dt$ae_stop_dtc_yn <- replace(dt$ae_stop_dtc_yn, dt$ae_stop_dtc_yn == 1, "Yes")
  dt$ae_stop_dtc_mo <- replace(dt$ae_stop_dtc_mo, dt$ae_stop_dtc_mo == 1, "01")
  dt$ae_stop_dtc_mo <- replace(dt$ae_stop_dtc_mo, dt$ae_stop_dtc_mo == 2, "02")
  dt$ae_stop_dtc_mo <- replace(dt$ae_stop_dtc_mo, dt$ae_stop_dtc_mo == 3, "03")
  dt$ae_stop_dtc_mo <- replace(dt$ae_stop_dtc_mo, dt$ae_stop_dtc_mo == 4, "04")
  dt$ae_stop_dtc_mo <- replace(dt$ae_stop_dtc_mo, dt$ae_stop_dtc_mo == 5, "05")
  dt$ae_stop_dtc_mo <- replace(dt$ae_stop_dtc_mo, dt$ae_stop_dtc_mo == 6, "06")
  dt$ae_stop_dtc_mo <- replace(dt$ae_stop_dtc_mo, dt$ae_stop_dtc_mo == 7, "07")
  dt$ae_stop_dtc_mo <- replace(dt$ae_stop_dtc_mo, dt$ae_stop_dtc_mo == 8, "08")
  dt$ae_stop_dtc_mo <- replace(dt$ae_stop_dtc_mo, dt$ae_stop_dtc_mo == 9, "09")
  dt$ae_stop_dtc_mo <- replace(dt$ae_stop_dtc_mo, dt$ae_stop_dtc_mo == 10, "10")
  dt$ae_stop_dtc_mo <- replace(dt$ae_stop_dtc_mo, dt$ae_stop_dtc_mo == 11, "11")
  dt$ae_stop_dtc_mo <- replace(dt$ae_stop_dtc_mo, dt$ae_stop_dtc_mo == 12, "12")
  ##########################################################################################################################
  # Return the transformed dataframe
  ##########################################################################################################################
  return(dt)
}