Resezione colorettale senza resezioni basse del retto per carcinoma, diverticolo, colite o Crohn con deiscenza anastomotica, mortalità - IQI 21_372

Resezione colorettale senza resezioni basse del retto per carcinoma, diverticolo, colite o Crohn con deiscenza anastomotica, mortalità

E4_15_M(x)

Arguments

x

un tibble (vedi il formato del valore di ritorno di read.bfs)

Alias

21_372

Capitolo

E4-Malattie del colon e del retto

Gruppo

E-Malattie dei organi addominali

Tipo

mortalità

Specificazione

E4_15_M <- function(x){ x %>%
mutate( i = if_else(( ((F_Rektum_ex &
F_Kolonresektion &
(F_nicht_komplexe_Diagnose &
ddx %in_table% (ICD_kolorektales_Karzinom))) |
(F_Rektum_ex &
F_komplexe_Diagnose &
ddx %in_table% (ICD_kolorektales_Karzinom) &
F_Kolonresektion) |
(((srg %in_table% (CHOP_Rektumresektion_Sphinktererh) &
ddx %in_table% (ICD_Rektumkarzinom)) |
srg %in_table% (CHOP_Rektumresektion_ohne_Sphinktererh) &
ddx %in_table% (ICD_kolorektales_Karzinom)) &
srg %not_in_table% (CHOP_Kolonresektion_erweitert_total) &
srg %in_table% (CHOP_Rektumresektion_Sphinktererh)) |
(F_nicht_komplexe_Diagnose &
pdx %in_table% (ICD_Divertikulitis_ohne_Perfo) &
ddx %not_in_table% (ICD_Kolonkarzinom) &
srg %in_table% (CHOP_Kolonresektion_erweitert_total %+%
CHOP_Kolonresektion_partiell %+%
CHOP_Rektumresektion)) |
(pdx %in_range% c('K5722','K5793') &
(F_komplexe_Diagnose |
pdx %in_table% (ICD_Divertikulitis_mit_Perfo)) &
ddx %not_in_table% (ICD_Kolonkarzinom) &
srg %in_table% (CHOP_Kolonresektion_erweitert_total %+%
CHOP_Kolonresektion_partiell %+%
CHOP_Rektumresektion)) |
(srg %in_table% (CHOP_Kolonresektion_erweitert_total %+%
CHOP_Kolonresektion_partiell %+%
CHOP_Rektumresektion) &
ddx %in_table% (ICD_Colitis_Crohn) &
ddx %not_in_table% (ICD_kolorektales_Karzinom) &
pdx %not_in_table% (ICD_Divertikulitis_mit_Perfo %+%
ICD_Divertikulitis_ohne_Perfo))) &
srg %not_in_table% (CHOP_tiefe_Rektumresektion) &
ddx %in_table% (ICD_Anastomoseninsuffizienz)),
if_else((F_Tot), 2, 1), as.double(NA))) %>%
output_table_perc('E4_15_M') }

Examples

if (FALSE)  read.bfs(path2file) %>% iqi.functions() %>% E4_15_M()  # \dontrun{}