Résection colorectale sans résections profondes du rectum pour carcinome, diverticule, colite ou Crohn

E4_15N_F(x)

Arguments

x

un tibble (voir le format de la valeur de retour de read.bfs)

Alias

21_371_N

Chapitre

E4-Maladies du côlon et du rectum

Groupe

E-Maladies des organes abdominaux

Type

nombre de cas

Spécification

E4_15N_F <- 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)),
if_else((ddx %in_table% (ICD_Anastomoseninsuffizienz)), 2, 1), as.double(NA))) %>%
output_table_cnt('E4_15N_F') }

Examples

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