#' @export
nkbc15 <- list(
code = "nkbc15",
kortnamn = "nkbc_ledtid_misstanke_till_op_15",
lab = c(
sv = "Välgrundad misstanke om cancer till primär operation",
en = "Well-founded suspicion of cancer to primary surgery"
),
pop = c(
sv = "primärt opererade fall utan fjärrmetastaser vid diagnos",
en = "primarily operated cases without distant metastasis at diagnosis"
),
filter_pop = function(x, ...) {
dplyr::filter(
x,
# Variabeln "Datum 1:a kontakt" tillkom 2013
lubridate::year(a_diag_dat) >= 2013,
# Enbart primärt opererade fall
!is.na(op_kir_dat),
d_prim_beh_Varde == 1,
# 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),
outcome = lubridate::interval(d_a_diag_misscadat, op_kir_dat) / lubridate::days(1),
# Hantera beräknade ledtider som är negativa
outcome = ifelse(outcome < 0, 0, outcome)
)
},
prop_within_value = 28,
target_values = 80,
period_dat_var = "op_kir_dat",
sjhkod_var = "op_inr_sjhkod",
other_vars = c("a_pat_alder", "d_invasiv"),
other_vars_inca = c("a_pat_alder", "d_invasiv", "d_trigrp"),
om_indikatorn = list(
sv = 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."
),
en = paste(
"Standardized care processes were introduced in 2015 to ensure investigation and start of treatment for patients in a reasonable time, regardless of where the patient seeks care.",
"The indicator states the proportion of cases that reach the target level of 28 calendar days from suspicion of cancer to surgery.",
"The target should be reached in 80% of cases (some patients may require additional investigation delaying lead time to surgery).",
"Different caregivers have defined start of the standardized care process differently which should be remembered at interpretation."
)
),
vid_tolkning = NULL,
inkl_beskr_missca = TRUE,
teknisk_beskrivning = NULL
)
class(nkbc15) <- c("keynkbcind", "nkbcind")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.