R/nkbc-diag-screening-01.R

#' @export
nkbc01 <- list(
  code = "nkbc01",
  kortnamn = "nkbc_diag_screening_01",
  lab = c(
    sv = "Screeningupptäckt bröstcancer",
    en = "Screening-detected breast cancer"
  ),
  pop = c(
    sv = "kvinnliga fall i åldrarna 40–74 år vid diagnos",
    en = "femal cases aged 40–74 years at diagnosis"
  ),
  filter_pop = function(x, ...) {
    dplyr::filter(
      x,
      # Enbart fall i åldrarna 40–74 år vid diagnos
      a_pat_alder >= 40,
      a_pat_alder <= 74,

      # Enbart kvinnliga fall
      KON_VALUE == 2
    )
  },
  mutate_outcome = function(x, ...) {
    dplyr::mutate(x,
      outcome = dplyr::case_when(
        a_diag_screening_Varde == 0L ~ FALSE,
        a_diag_screening_Varde == 1L ~ TRUE,
        a_diag_screening_Varde == 98L ~ NA
      )
    )
  },
  target_values = c(60, 70),
  period_dat_var = "a_diag_dat",
  sjhkod_var = "a_inr_sjhkod",
  other_vars = c("a_pat_alder", "d_invasiv"),
  om_indikatorn = list(
    sv = "Mammografiscreening erbjuds alla kvinnor mellan 40–74 år.",
    en = "Mammography screening is offered to all women aged 40-74."
  ),
  vid_tolkning = list(
    sv = paste(
      "Definitionen av \"screeningupptäckt fall\" kan enligt erfarenhet tolkas olika vilket kan påverka siffrorna.",
      "Här avses enbart de fall som diagnostiserats i samband med en kallelse till den regionsorganiserade screeningmammografin."
    ),
    en = NULL
  ),
  teknisk_beskrivning = NULL
)
class(nkbc01) <- c("keynkbcind", "nkbcind")
oc1lojo/nkbcind documentation built on Sept. 30, 2022, 10:06 p.m.