R/nkbc-pop-tnm-m-09f.R

In oc1lojo/nkbcind: Verktyg för kvalitetsindikatorer och populationskarakteristik från NKBC

#' @export
nkbc09f <- list(
  code = "nkbc09f",
  kortnamn = "nkbc_pop_tnm_m_09f",
  lab = c(
    sv = "Fjärrmetastaser vid diagnos",
    en = "Distant metastases at diagnosis"
  ),
  pop = c(
    sv = "alla anmälda fall",
    en = "all reported cases"
  ),
  filter_pop = function(x, ...) {
    x
  },
  mutate_outcome = function(x, ...) {
    dplyr::mutate(x,
      outcome1 = d_mstad,
      outcome1_en = d_mstad_en,
      outcome2 = dplyr::case_when(
        a_tnm_mklass_Varde %in% 0 ~ TRUE,
        a_tnm_mklass_Varde %in% 10 ~ FALSE,
        a_tnm_mklass_Varde %in% 30 ~ NA
      ),
      outcome2_en = outcome2,
      outcome3 = !outcome2,
      outcome3_en = outcome3
    )
  },
  outcome = c("outcome1", "outcome2", "outcome3"),
  outcome_title = list(
    sv = c("Fjärrmetastaser, kategorier", "Inga fjärrmetastaser (M0)", "Fjärrmetastaser (M1)"),
    en = c("Distant metastases, categories", "No distant metastases (M0)", "Distant metastases (M1)")
  ),
  sjhkod_var = "a_inr_sjhkod",
  other_vars = c("a_pat_alder", "d_screening"),
  om_indikatorn = list(
    sv = "Fjärrmetastas vid diagnos definieras som fjärrmetastaserande sjukdom diagnosticerad inom 3 månader från bröstcancerdiagnos (cytdatum).",
    en = "Distant metastasis at diagnosis is defined as distant metastatic disease diagnosed within 3 months of breast cancer diagnosis (cytology/biopsy date)."
  ),
  vid_tolkning = list(
    sv = paste(
      "T.o.m. 2012 var det möjligt att registrera en tumör som att fjärrmetastaser ej kan bedömas (MX) i NKBC.",
      "Dessa har grupperats ihop med Uppgift saknas."
    ),
    en = NULL
  ),
  teknisk_beskrivning = NULL
)
class(nkbc09f) <- "nkbcind"