R/nkbc-pop-rokning-09l.R

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

#' @export
nkbc09l <- list(
  code = "nkbc09l",
  kortnamn = "nkbc_pop_rokning_09l",
  lab = c(
    sv = "Rökningsstatus vid diagnos"
  ),
  pop = c(
    sv = "alla anmälda fall"
  ),
  filter_pop = function(x, ...) {
    filter(
      x,
      # Variabler för rökningsstatus infördes i registret juni 2021
      a_diag_dat >= "2021-07-01",
    )
  },
  mutate_outcome = function(x, ...) {
    dplyr::mutate(x,
      outcome = factor(
        dplyr::na_if(a_pat_rokstatus_Varde, 98L),
        levels = c(1L, 2L, 3L, 4L),
        labels = c(
          "Aldrig rökare",
          "Röker, ej dagligen",
          "Röker dagligen",
          "Före detta rökare (rökfri mer än 1 år)"
        )
      )
    )
  },
  sjhkod_var = "a_inr_sjhkod",
  other_vars = c("a_pat_alder", "d_invasiv"),
  comment =
    c(
      sv = "Variabler för rökningsstatus infördes i registret juni 2021. Rapporten inkluderad därför enbart fall diagnosiserade fr.o.m. andra halvåret 2021."
    ),
  om_indikatorn = list(
    sv = "Variabler för rökningsstatus infördes i registret juni 2021. Rapporten inkluderad därför enbart fall diagnosiserade fr.o.m. andra halvåret 2021."
  ),
  vid_tolkning = NULL,
  teknisk_beskrivning = NULL
)
class(nkbc09l) <- "nkbcind"