Interventions assistées par robot dans CH-IQI (E.4.17.F, H.1.11.F, H.3.7.F, H.5.3.F) - IQI 69_1_F

Interventions assistées par robot dans CH-IQI (E.4.17.F, H.1.11.F, H.3.7.F, H.5.3.F)

N1_03_F(x)

Arguments

x

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

Alias

69_1_F

Chapitre

N1-Chirurgie robotisée

Groupe

N-Chirurgie robotisée

Type

nombre de cas

Spécification

N1_03_F <- function(x){ x %>%
mutate( i = if_else((srg %in_table% (CHOP_Roboterchirurgie) &
((F_Rektum_ex &
F_Kolonresektion &
F_nicht_komplexe_Diagnose &
ddx %in_table% (ICD_kolorektales_Karzinom)) |
(F_Rektum_ex &
F_Kolonresektion &
F_komplexe_Diagnose &
ddx %in_table% (ICD_kolorektales_Karzinom)) |
(((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)) |
(ddx %in_table% (ICD_Nieren_Tumor) &
srg %in_table% (CHOP_Nephrektomie %+%
CHOP_partielle_Nephrektomie) &
srg %not_in_table% (CHOP_Nephrektomie_Ausschluss) &
srg %not_in_table% (CHOP_Organ_Tx_alle) &
F_Polytrauma_exclusion) |
(srg %in_table% (CHOP_Zystektomie) |
srg %in_table% (CHOP_Eviszeration)) |
srg %in_table% (CHOP_radikale_Prostatovesikulektomie))), 1, as.double(NA))) %>%
output_table_cnt('N1_03_F') }

Examples

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