R/nkbc-pop-bmi-09k.R

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

#' @export
nkbc09k <- list(
  code = "nkbc09k",
  kortnamn = "nkbc_pop_bmi_09k",
  lab = c(
    sv = "Viktklass vid diagnos"
  ),
  pop = c(
    sv = "alla anmälda fall"
  ),
  filter_pop = function(x, ...) {
    filter(
      x,
      # Variabler för vikt och längd infördes i registret juni 2021
      a_diag_dat >= "2021-07-01",
    )
  },
  mutate_outcome = function(x, ...) {
    dplyr::mutate(x,
      outcome =
        factor(
          dplyr::case_when(
            a_pat_bmi < 18.5 ~ "Undervikt",
            a_pat_bmi >= 18.5 & a_pat_bmi <= 25 ~ "Normalvikt",
            a_pat_bmi > 25 & a_pat_bmi <= 30 ~ "Övervikt",
            a_pat_bmi > 30 ~ "Fetma"
          ),
          labels = c("Undervikt", "Normalvikt", "Övervikt", "Fetma")
        )
    )
  },
  sjhkod_var = "a_inr_sjhkod",
  other_vars = c("a_pat_alder", "d_invasiv"),
  comment =
    c(
      sv = "Variabler för vikt och längd 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 vikt och längd 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 = list(
    sv = "Undervikt är ett BMI (kroppsmasseindex) under 18,5. Normalvikt är inom referensintervallet 18,5 till 24,9. Med övervikt avses ett BMI mellan 25 och 29,9. Fetma är ett BMI som överstiger 30."
  )
)
class(nkbc09k) <- "nkbcind"