utlede_kvalitesindikatorer: NORIC's quality indicators

In Rapporteket/NORIC: Provide R Resources for NORIC at Rapporteket

NORIC's quality indicators

Description

Functions for creating two new variables for each indicator: The first variable says whether the procedure counts (ja/nei) in the denominator for the given indicator and the second says whether the procedure counts in the numerator (ja/nei/NA). If the denominator has value nei the numerator should always be NA. Denominator variables names are suffixed by _data (datagrunnlag).

Usage

ki_ferdigstilt_komplikasjoner(df_ap)

ki_trykkmaaling_utfoert(df_ap)

ki_ivus_oct_ved_stenting_lms(df_ap)

ki_foreskr_blodfortynnende(df_ap)

ki_foreskr_kolesterolsenkende(df_ap)

ki_nstemi_utredet_innen24t(df_ap)

ki_nstemi_utredet_innen72t(df_ap)

ki_stemi_pci_innen120min(df_ap)

ki_ak_pacemakerbehov(df_ak)

Arguments

df_ap	NORIC's AngioPCIVar-table. Depending on indicators, must contain some of the variables SkjemaStatusKomplikasjoner, SkjemaStatusUtskrivelse, Regtype, Indikasjon, FFR, IFR, satt_inn_stent_i_LMS, TidlABC, IVUS, OCT, antall_stent_under_opphold, ...
df_ak	NORIC's AortaklaffVar-table. Depending on indicators, must contain some of the variables AvdKompPacemaker, TypeKlaffeprotese, ...

Details

Following variables are created for the different functions:

ki_ferdigstilt_komplikasjoner()

• denominator indik_komplik_ferdig_data (datagrunnlag) is ja when Regtype = Primaer and SkjemaStatusKomplikasjoner is -1, 0, 1.

• numerator indik_komplik_ferdig has value ja if the complications form is completed (komplikasjons-skjema er ferdigstilt).

ki_trykkmaaling_utfoert()

• denominator indik_trykkmaaling_data (datagrunnlag) is ja when Indikasjon = Stabil koronarsykdom.

• numerator indik_trykkmaaling has value ja if one of FFR, iFR, Pd/Pa, IMR, Pa or Pd has been performed.

ki_ivus_oct_ved_stenting_lms()

• denominator indik_ivus_oct_v_stent_lms_data (datagrunnlag) is ja when all of these conditions are fulfilled:

  1. Indikasjon is one of "Vitieutredning", "Uklare brystsmerter", "Annet", "Hjertestans uten STEMI", "Hjertesvikt/kardiomyopati", "Komplettering av tidligere PCI", "UAP", "NSTEMI", "Stabil koronarsykdom"

  2. satt_inn_stent_i_LMS = "ja"

  3. TidlABC is one of "Nei", "Ukjent", NA

• numerator indik_ivus_oct_v_stent_lms has value ja if IVUS and/or OCT has been performed.

ki_foreskr_blodfortynnende()

• denominator indik_blodfortynnende_data (datagrunnlag) is ja when all of these conditions are fulfilled:

  1. antall_stent_under_opphold is at least 1

  2. Regtype = "Primær"

  3. UtskrevetDod = "Nei","NA". Which means that "Ja" or "Ukjent" are excluded

• numerator indik_blodfortynnende has value ja if at least two of ASA, AndrePlatehemmere or Antikoagulantia are prescribed and SkjemaStatusUtskrivelse is 1 (ferdigstilt). indik_blodfortynnende has value nei if at less than two of ASA, AndrePlatehemmere or Antikoagulantia are prescribed and SkjemaStatusUtskrivelse is 1 (ferdigstilt). indik_blodfortynnende has value ikke ferdigstilt if SkjemaStatusUtskrivelse is different from 1 (ikke ferdigstilt).

ki_foreskr_kolesterolsenkende()

• denominator indik_kolesterolsenkende_data (datagrunnlag) is ja when all of these conditions are fulfilled:

  1. antall_stent_under_opphold is at least 1

  2. Regtype = "Primær"

  3. UtskrevetDod = "Nei", NA . Which means that "Ja" or "Ukjent" are excluded

• numerator indik_kolesterolsenkende has value ja if UtskrStatiner is "Ja" and SkjemaStatusUtskrivelse is 1 (ferdigstilt). indik_kolesterolsenkende has value nei if UtskrStatiner is different from "Ja" and SkjemaStatusUtskrivelse is 1 (ferdigstilt). indik_kolesterolsenkende has value ikke ferdigstilt if SkjemaStatusUtskrivelse is different from 1 (ikke ferdigstilt).

ki_nstemi_utredet_innen24t()

• denominator indik_nstemi_angio_innen24t_data (datagrunnlag) is ja when all of these conditions are fulfilled:

  1. Indikasjone is "NSTEMI"

  2. Regtype = "Primær"

  3. Innkomstarsak not "Øvrig" (NA allowed)

  4. Hastegrad = "Akutt" or "Subakutt.

  5. OverflyttetFra neither "Annen avdeling på sykehuset" nor "NA".

• numerator indik_nstemi_angio_innen24t has value ja if ventetid_nstemi_timer is in the interval 0-24hours, value nei if ventetid_nstemi_timer is in the interval 24hours to 14 days and value ugyldig/manglende if time is negative, longer than 14 days or missing. See also function legg_til_ventetid_nstemi_timer.

ki_stemi_pci_innen120min()

• denominator indik_stemi_pci_innen2t_data (datagrunnlag) is ja when all of these conditions are fulfilled:

  1. AvdRESH is different from 106944 (AHUS Gardermoen does not treat STEMI patients)

  2. Regtype = "Primær"

  3. Indikasjon = "STEMI"

  4. GittTrombolyse is "Nei" or "NA"

  5. Hastegrad = "Akutt"

  6. HLRForSykehus different from "Ja", "Ukjent"

  7. ProsedyreType different from "Angio"

• numerator indik_stemi_pci_innen2t has value ja if ventetid_stemi_min is in the interval 0-120 minutes, value nei if ventetid_stemi_min is in the interval 120 min to 24h (86400 min) and value ugyldig/manglende if time is negative, longer than 24h, missing or if BeslutningsutlosendeEKG has value "Prehospitalt" and ventetid_stemi_min is 0 minutes. See also function legg_til_ventetid_stemi_min.

ki_ak_pacemakerbehov()

• nevneren indik_pacemakerbehov_data (datagrunnlag) er ja når alle disse kriteriene er oppfylt:

  1. AvdRESH tilhører sykehusene som utfører tavi : (HUS, UNN, Ullevål,St.Olavs, Rikshospitalet, Ahus Gardermoen)

  2. TypeKlaffeprotese ikke manglende (satt inn klaff)

  3. LabKompDod ulik ja

  4. Pacemaker ulik ja

• telleren indik_pacemakerbehov har verdien ja dersom AvdKompPacemaker er ja og SkjemaStatusHovedskjema er 1 (ferdigstilte). indik_pacemakerbehov har verdien nei dersom AvdKompPacemaker er nei eller mangler, og ders SkjemaStatusHovedskjema er 1 (ferdigstilte). indik_pacemakerbehov har verdien ikke ferdigstilte dersom SkjemaStatusHoveskjema er -1 eller 0.

Examples

 x <- data.frame(
      SkjemaStatusKomplikasjoner = c(-1, 1, 0, NA, NA, NA), 
      Regtype = c(rep("Primær", 5), NA))
 noric::ki_ferdigstilt_komplikasjoner(df_ap = x)

 x <- data.frame(
      Indikasjon = c(rep("Stabil koronarsykdom", 4), NA, "annet"),
      FFR = c("Ja", "Ja", NA, "Ukjent", "Nei", "Ja"),
      IFR = c("Ja", "Nei", "Ukjent", NA, NA, NA),
      PDPA = rep(NA, 6),
      IMR = rep(NA, 6),
      PA_Hyperemi = rep(NA, 6),
      PD_Hyperemi = rep(NA, 6))
 noric::ki_trykkmaaling_utfoert(df_ap = x)

 x <- data.frame(
      Indikasjon = c(rep("Stabil koronarsykdom", 4), NA, "Annet"),
      TidlABC = rep("Nei", 6),
      satt_inn_stent_i_LMS = c(rep("ja", 4), NA, "nei"),
      IVUS = c("Ja", "Ja", NA, "Ukjent", "Nei", "Ja"),
      OCT = c("Ja", "Nei", "Ukjent", NA, NA, NA))
 noric::ki_ivus_oct_ved_stenting_lms(df_ap = x)

 x <- data.frame(
      antall_stent_under_opphold = 1:6,
      Regtype = c("Primær", "Primær", "Sekundær", rep("Primær", 3)),
      SkjemaStatusUtskrivelse = 1,
      UtskrevetDod = c(rep("Nei", 5), "Ja"),
      ASA = c("Ja", "Nei", "Ukjent", "Ja", "Ja", "Nei"),
      AndrePlatehemmere = c(NA, "Annet", "Clopidogrel (Plavix)",
                            "Nei", "Nei", NA),
      Antikoagulantia = c(NA, "Annet", "Lixiana", "Marevan",  NA, "Exanta"),
      UtskrStatiner = c("Ja", "Ja", NA, "Nei", "Ukjent", "Ja"))
noric::ki_foreskr_blodfortynnende(df_ap = x)
noric::ki_foreskr_kolesterolsenkende(df_ap = x)

 x <- data.frame(
      Indikasjon = c("Annet", NA, "NSTEMI", "NSTEMI", "NSTEMI", "NSTEMI"),
      Regtype = c("Primær", "Primær", "Sekundær", rep("Primær", 3)),
      Innkomstarsak = rep(c("Brystesmerter", "Øvrig", "Dyspne"), 2),
      Hastegrad = rep("Subakutt", 6),
      OverflyttetFra = c("Annen  avdeling på sykehuset",
                         rep("Annet sykehus", 2),
                         rep("Omdirigert ambulanse", 3)),
      ventetid_nstemi_timer = c(0, 0, 5, 100, NA, -0.1))
noric::ki_nstemi_utredet_innen24t(df_ap = x)
noric::ki_nstemi_utredet_innen72t(df_ap = x)

 x <- data.frame(
      AvdRESH = 1:6,
      Indikasjon = c("Annet", rep("STEMI",5)),
      Regtype = c("Primær", "Primær", "Sekundær", rep("Primær", 3)),
      GittTrombolyse = rep("Nei", 6),
      Hastegrad = rep("Akutt", 6),
      HLRForSykehus = rep("Nei", 6),
      ProsedyreType = rep("Angio + PCI", 6),
      BeslutningsutlosendeEKG = rep("Prehospitalt", 6),
      ventetid_stemi_min = c(-10, 20, 110, 120, 1150, 1480))
noric::ki_stemi_pci_innen120min(df_ap = x)


x <- data.frame(
      AvdRESH = c(NA, 0,102966, 101619, 109880, rep(106944,7)), 
      TypeKlaffeprotese = c(rep("CoreValve", 2), NA, rep("CoreValve", 9)),
      LabKompDod = c("Nei", "Nei", "Nei", "Ja", NA, rep("Nei", 7)), 
      Pacemaker = c(rep("Nei", 4), "Ja", rep("Nei", 7)), 
      SkjemaStatusHovedskjema = c(rep(1, 5), 0, -1, rep(1, 5)), 
      AvdKompPacemaker = rep(c("Ja", "Nei", "Ukjent", NA), 3))
noric::ki_ak_pacemakerbehov(df_ak = x)

Rapporteket/NORIC documentation built on Feb. 15, 2024, 5:25 p.m.