utlede_kvalitesindikatorer | R Documentation |
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).
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)
df_ap |
NORIC's |
df_ak |
NORIC's |
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:
Indikasjon
is one of "Vitieutredning", "Uklare brystsmerter",
"Annet", "Hjertestans uten STEMI", "Hjertesvikt/kardiomyopati",
"Komplettering av tidligere PCI", "UAP", "NSTEMI",
"Stabil koronarsykdom"
satt_inn_stent_i_LMS
= "ja"
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:
antall_stent_under_opphold
is at least 1
Regtype
= "Primær"
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:
antall_stent_under_opphold
is at least 1
Regtype
= "Primær"
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:
Indikasjone
is "NSTEMI"
Regtype
= "Primær"
Innkomstarsak
not "Øvrig" (NA allowed)
Hastegrad
= "Akutt" or "Subakutt.
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:
AvdRESH
is different from 106944 (AHUS Gardermoen does not
treat STEMI patients)
Regtype
= "Primær"
Indikasjon
= "STEMI"
GittTrombolyse
is "Nei" or "NA"
Hastegrad
= "Akutt"
HLRForSykehus
different from "Ja", "Ukjent"
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:
AvdRESH
tilhører sykehusene som utfører tavi :
(HUS, UNN, Ullevål,St.Olavs, Rikshospitalet, Ahus Gardermoen)
TypeKlaffeprotese
ikke manglende (satt inn klaff)
LabKompDod
ulik ja
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.
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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.