8.2 Phenotype control exclusion events
8.2.1 Cardiovascular control exclusion events
Define patterns.
exclude_ctrl_cardio_icd10 <- "I2|I3|I5|I6|I7"
exclude_ctrl_cardio_self <- "1074|1076|1077|1078|1079|1080|1471|1489|1490|1492|1584|1585|1586|1587|1588|1589|1590|1591|1592"
exclude_ctrl_cardio_selfop <- "1069|1096|1097|1098|1099|1100|1101|1104|1523|1553|1554"Get cardiovascular control exclusion event table.
cardio_control_exclusion_events <-
get_phenotype_tab(icd10_patterns_any = exclude_ctrl_cardio_icd10,
selfrep_patterns = exclude_ctrl_cardio_self,
selfrep_op_patterns = exclude_ctrl_cardio_selfop,event_tab = event_tab,firstoccur = F)saveRDS(cardio_control_exclusion_events,"generated_data/cardio_control_exclusion_events_ukb.RDS")8.2.2 Cerebrovascular control exclusion events
Define patterns.
exclude_ctrl_cereb_icd10 <- "G45|G46|I65|I66|I67|I68|I69"
exclude_ctrl_cereb_self <- "1082"Get cerebrovascular control exclusion event table.
cerebro_control_exclusion_events <-
get_phenotype_tab(icd10_patterns_any = exclude_ctrl_cereb_icd10,
selfrep_patterns = exclude_ctrl_cereb_self,event_tab = event_tab,firstoccur = F)saveRDS(cerebro_control_exclusion_events,"generated_data/cerebro_control_exclusion_events_ukb.RDS")8.2.3 Non-coronary revascularization procedure control exclusion events
Define patterns.
other_revasc_selfop <- "1071|1102|1105|1107|1108|1109|1110"Get non-coronary revascularization procedure control exclusion event table.
other_revas_control_exclusion_events <-
get_phenotype_tab(selfrep_op_patterns = other_revasc_selfop, event_tab = event_tab, firstoccur = F)saveRDS(other_revas_control_exclusion_events,"generated_data/other_revas_control_exclusion_events_ukb.RDS")8.2.4 Renal disease control exclusion events
Define patterns.
exclude_ctrl_renal_icd10 <- "N0|N1|N2|Z49|Z992"
exclude_ctrl_renal_icd9 <- "^58[0-9]|^59[1-4]|^590[23]|^V420|^V454|^V560|^V568"
exclude_ctrl_renal_self <- "1192|1193|1194|1519|1520|1608|1609"
exclude_ctrl_renal_selfop <- "1195|1487"
exclude_ctrl_renal_opcs <- "M01|M02|M03|X40|X41|X42"Get renal diseasae control exclusion event table.
dkd_control_exclusion_events <-
get_phenotype_tab(icd10_patterns_any = exclude_ctrl_renal_icd10,
icd9_patterns_any = exclude_ctrl_renal_icd9,
selfrep_patterns = exclude_ctrl_renal_self,
selfrep_op_patterns = exclude_ctrl_renal_selfop,
opcs_patterns = exclude_ctrl_renal_opcs,event_tab = event_tab,firstoccur = F)saveRDS(dkd_control_exclusion_events,"generated_data/dkd_control_exclusion_events_ukb.RDS")8.2.5 Eye disease control exclusion events
Define patterns.
exclude_eye_icd10 <- "H25|H26|H28|H34|H35|H36|H40|H42"
exclude_eye_icd9 <- "^36[256]"
exclude_eye_self <- "1275|1277|1278|1281|1282|1527|1538|1530"
exclude_eye_selfop <- "1434|1435|1436|1437"Get eye disease control exclusion event table.
dr_control_exclusion_events <-
get_phenotype_tab(icd10_patterns_any = exclude_eye_icd10,
icd9_patterns_any = exclude_eye_icd9,
selfrep_patterns = exclude_eye_self,
selfrep_op_patterns = exclude_eye_selfop,event_tab = event_tab,firstoccur = F)saveRDS(dr_control_exclusion_events,"generated_data/dr_control_exclusion_events_ukb.RDS")