#' @export
nkbc43 <- list(
code = "nkbc43",
kortnamn = "nkbc_ledtid_misstanke_till_prim_beh_43",
lab = c(
sv = "Välgrundad misstanke om cancer till primär behandling"
),
pop = c(
sv = "opererade fall utan fjärrmetastaser vid diagnos"
),
filter_pop = function(x, ...) {
dplyr::filter(
x,
# Variabeln "Datum 1:a kontakt" tillkom 2013
lubridate::year(a_diag_dat) >= 2013,
# Enbart opererade fall
!is.na(op_kir_dat),
# Ej fall med fjärrmetastaser vid diagnos
!(a_tnm_mklass_Varde %in% 10)
)
},
mutate_outcome = function(x, ...) {
dplyr::mutate(
x,
d_a_diag_misscadat = coalesce(a_diag_misscadat, a_diag_kontdat),
d_pre_onk_dat = pmin(
pre_kemo_dat,
pre_rt_dat,
pre_endo_dat,
na.rm = TRUE
),
d_prim_beh_dat = dplyr::case_when(
d_prim_beh_Varde == 1 ~ op_kir_dat,
d_prim_beh_Varde == 2 ~ d_pre_onk_dat,
TRUE ~ lubridate::ymd(NA_character_)
),
outcome = lubridate::interval(d_a_diag_misscadat, d_prim_beh_dat) / lubridate::days(1),
# Hantera beräknade ledtider som är negativa
outcome = ifelse(outcome < 0, 0, outcome)
)
},
prop_within_value = 28,
target_values = 80,
sjhkod_var = "d_prim_beh_sjhkod",
other_vars = c("a_pat_alder", "d_invasiv", "d_prim_beh"),
other_vars_inca = c("a_pat_alder", "d_invasiv", "d_trigrp", "d_prim_beh"),
om_indikatorn = list(
sv = c(
"Preoperativ onkologisk behandling kan vara cytostatika, antikroppsbehandling, endokrin behandling eller strålbehandling.",
paste(
"Standardiserade vårdförlopp infördes 2015 för att säkra utredning och start av behandling till patienter i rimlig tid oberoende var patienten söker vård.",
"För bröstcancer är tiden från välgrundad misstanke till start av behandling 28 kalenderdagar.",
"Av patienter som diagnosticerats med bröstcancer bör 80% ha startat behandling inom denna tidsperiod.",
"För ett antal patienter krävs mer avancerade utredningsmetoder för att nå diagnos vilket kan förlänga tiden till behandlingsstart.",
"Startpunkten för SVF har tolkats olika av vårdgivare varför ledtiden skall tolkas med försiktighet."
)
)
),
vid_tolkning = list(
sv = paste(
"Andelen preoperativt behandlade patienter varierar i landet.",
"Många patienter som startar preoperativ onkologisk behandling ingår i behandlingsstudier med krav på specificerade undersökningar före start vilket kan förlänga ledtiden.",
"Siffrorna skall därför tolkas med viss försiktighet."
)
),
inkl_beskr_missca = TRUE,
inkl_beskr_onk_beh = TRUE,
teknisk_beskrivning = NULL
)
class(nkbc43) <- c("keynkbcind", "nkbcind")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.