3.1 First occurrence event table and algorithmically defined outcome table

Convert first occurrence data into a long format.

firstoccurs_long <- firstoccurs %>% 
  pivot_longer(-f.eid, names_to = "field", values_to = "event_dt", values_drop_na = T)

Obtain algorithmically defined outcomes from demographic dataset.

algo_outcome_fields <- paste0("f.",c("42000", "42008", "42010","42012","42006", "42026"),".0.0")

algo_outcome_table_wide <- demog %>% select(f.eid,all_of(algo_outcome_fields))
algo_outcome_table_long <- algo_outcome_table_wide %>%  
  pivot_longer(-f.eid,names_to = "field",values_to = "event_dt", values_drop_na = T)

Merge algorithmically defined outcome fields in the demographic data with first occurrence data to produce outcome fields table.

outcome_fields_table_long <- bind_rows(firstoccurs_long,algo_outcome_table_long)