3.8 Convert UKB special dates into “normal” dates

Convert special dates to normal dates and then filter out any event with an unknown event date. Note that special dates in self-reported and self-reported operation and custom defined outcome table have already been converted in the above. We convert special dates present in the following event table types: outcome_fields, ICD10, ICD10_death_primary, ICD10_death_secondary and OPCS4.

demog_dob <- demog %>% select(f.eid, DOB)
event_tab <- event_tab %>% left_join(demog_dob, by = "f.eid")
event_tab$event_dt <- cleandates(event_tab$event_dt,event_tab$DOB)
event_tab <- event_tab %>% select(-DOB) %>% filter(!is.na(event_dt))

Save the master event table. Note that this table includes subjects whose genetic and reported sex do not match.

saveRDS(event_tab,"generated_data/pre_all_ukb_events_tab.RDS")