R/SlagRegDataSQL.R

In Rapporteket/Hjerneslag: Resultatrapporter for Hjerneslag

#' Henter data registrert for Hjerneslag
#'
#' Henter data for Hjerneslagregisteret fra "staging"
#'
#' @inheritParams SlagFigAndeler
#'
#' @return Henter dataramma RegData for Hjerneslag
#' @export
#'
#'
SlagRegDataSQL <- function(datoFra = '2013-01-01', datoTil = '2099-01-01') {
  
  registryName <- "Hjerneslag"
  dbType <- "mysql"
  
  query <- paste0('SELECT
o.AarsakManglendeOppf,
a.AkutteFokaleutfallPosBilleddiag,
a.AndreFokaleSympt,
a.AntDagerInnl,
a.Armparese,
a.Ataksi,
a.Atrieflimmer,
a.AvdForstInnlagt,
a.AvdForstInnlagtHvilken,
a.AvdUtskrFra,
a.AvdUtskrFraHvilken,
a.Beinparese,
a.BevissthetsgradInnleggelse,
a.BildediagnostikkEkstrakranKar,
a.BildediagnostikkHjerne,
a.BildediagnostikkHjerte,
a.BildediagnostikkIntraraniell,
o.Boligforhold3mnd,
a.BoligforholdPre,
o.Bosituasjon3mnd,
a.BosituasjonPre,
a.CerebralCTInn,
o.DagerInnleggelseTilDod,
o.DagerSymptDebutTilOppf,
a.DeathDate,
a.Dobbeltsyn,
a.Dysartri,
a.Facialisparese,
o.Forflytning3mnd,
a.ForflytningPre,
a.ForloepID,
a.Helseenhet,
a.Hemikraniektomi,
a.HjerneblInnen36timer,
a.HjerneblodningsstoppBeh,
UPPER(o.HovedskjemaGUID),
a.HvorOppstoHjerneslaget,
a.Innleggelsestidspunkt,
o.KjorerBilNaa,
o.KjorteBilForHjerneslag,
a.MindreEnn4tSymptInnlegg,
a.MobiliseringInnen24Timer,
o.MRS3mnd,
a.MRSPre,
a.Neglekt,
a.NIHSSetterTrombektomi,
a.NIHSSetterTrombolyse,
a.NIHSSikkeUtfort,
a.NIHSSinnkomst,
a.NIHSSpreTrombektomi,
a.NIHSSpreTrombolyse,
o.OperertHalspulsaare,
o.OppfolgUtf,
o.Paakledning3mnd,
a.PaakledningPre,
a.PasientGUID,
a.PatientAge,
a.PatientGender,
a.PreA2Antagonist,
a.PreACEhemmer,
a.PreAndreEnnWarfarin,
a.PreASA,
a.PreBetablokker,
a.PreDiabetes,
a.PreDipyridamol,
a.PreDiuretica,
a.PreIngenMedikam,
a.PreKalsiumantagonist,
a.PreKlopidogrel,
a.PreMedHoytBT,
a.PreStatinerLipid,
a.PreWarfarin,
a.PostMedikBehHoytBT,
a.RegistreringHjerterytme,
o.ReinnlagtTypeSlag,
a.UnitId,
o.Royker3mnd,
a.RoykerPre,
a.Sensibilitetsutfall,
o.Sivilstatus3mnd,
a.SivilstatusPre,
UPPER(a.SkjemaGUID),
a.Slagdiagnose,
a.Spraakproblem,
o.SpraakTaleproblEtterHjslag,
a.SvelgtestUtfort,
a.Symptomdebut,
a.Synsfeltutfall,
o.SynsproblEtterHjslag,
a.TidlHjerneslag,
a.TidlHjerneslagType,
a.TidlHjerteinfarkt,
a.TidlTIA,
o.Tilfredshet,
o.Toalettbesok3mnd,
a.ToalettbesokPre,
a.Transportmetode,
a.Trombektomi,
a.TrombektomiStarttidspunkt,
a.Trombolyse,
a.TrombolyseStarttid,
a.TverrfagligVurdering,
a.UtA2Antagonist,
a.UtACEhemmer,
a.UtAndreEnnWarfarin,
a.UtASA,
a.UtBetablokker,
a.UtDipyridamol,
a.UtDiuretica,
a.UtKalsiumantagonist,
a.UtKlopidogrel,
a.UtskrTil,
a.UtStatinerLipid,
a.UtWarfarin,
a.VaaknetMedSymptom,
a.Vertigo,
o.YrkesaktivNaa,
o.YrkesaktivUnderHjerneslag2
FROM
     Akuttskjema a
LEFT JOIN AkuttskjemaOppfolging o
ON a.SkjemaGUID = o.HovedskjemaGUID

WHERE cast(Innleggelsestidspunkt AS date) BETWEEN \'', datoFra, '\' AND \'', datoTil, '\'')
 
#RegData <- rapbase::LoadRegData(registryName, query, dbType)
  
  qAkutt <- paste0('SELECT
AkutteFokaleutfallPosBilleddiag,
AndreFokaleSympt,
   AntDagerInnl,
   Armparese,
   Ataksi,
   Atrieflimmer,
   AvdForstInnlagt,
   AvdForstInnlagtHvilken,
   AvdUtskrFra,
   AvdUtskrFraHvilken,
   Beinparese,
   BevissthetsgradInnleggelse,
   BildediagnostikkEkstrakranKar,
   BildediagnostikkHjerne,
   BildediagnostikkHjerte,
   BildediagnostikkIntraraniell,
   BoligforholdPre,
   BosituasjonPre,
   CerebralCTInn,
   DeathDate,
   Dobbeltsyn,
   Dysartri,
   Facialisparese,
   ForflytningPre,
   ForloepID,
   Helseenhet,
   Hemikraniektomi,
   HjerneblInnen36timer,
   HjerneblodningsstoppBeh,
   HvorOppstoHjerneslaget,
   Innleggelsestidspunkt,
   MindreEnn4tSymptInnlegg,
   MobiliseringInnen24Timer,
   MRSPre,
   Neglekt,
   NIHSSetterTrombektomi,
   NIHSSetterTrombolyse,
   NIHSSikkeUtfort,
   NIHSSinnkomst,
   NIHSSpreTrombektomi,
   NIHSSpreTrombolyse,
   PaakledningPre,
   PasientGUID,
   PatientAge,
   PatientGender,
   PostMedikBehHoytBT,
   PreA2Antagonist,
   PreACEhemmer,
   PreAndreEnnWarfarin,
   PreASA,
   PreBetablokker,
   PreDiabetes,
   PreDipyridamol,
   PreDiuretica,
   PreIngenMedikam,
   PreKalsiumantagonist,
   PreKlopidogrel,
   PreMedHoytBT,
   PreStatinerLipid,
   PreWarfarin,
   RegistreringHjerterytme,
   RoykerPre,
   Sensibilitetsutfall,
   SivilstatusPre,
   Slagdiagnose,
   Spraakproblem,
   SvelgtestUtfort,
   Symptomdebut,
   Synsfeltutfall,
   TidlHjerneslag,
   TidlHjerneslagType,
   TidlHjerteinfarkt,
   TidlTIA,
   ToalettbesokPre,
   Transportmetode,
   Trombektomi,
   TrombektomiStarttidspunkt,
   Trombolyse,
   TrombolyseStarttid,
   TverrfagligVurdering,
   UnitId,
   UtA2Antagonist,
   UtACEhemmer,
   UtAndreEnnWarfarin,
   UtASA,
   UtBetablokker,
   UtDipyridamol,
   UtDiuretica,
   UtKalsiumantagonist,
   UtKlopidogrel,
   UtskrTil,
   UtStatinerLipid,
   UtWarfarin,
   VaaknetMedSymptom,
   Vertigo,
   UPPER(SkjemaGUID)  AS SkjemaGUID
    FROM Akuttskjema
  WHERE cast(Innleggelsestidspunkt AS date) BETWEEN \'', datoFra, '\' AND \'', datoTil, '\'')

  qOppf <-  paste0('SELECT
    AarsakManglendeOppf,
  Boligforhold3mnd,
  Bosituasjon3mnd,
  DagerInnleggelseTilDod,
  DagerSymptDebutTilOppf,
  Forflytning3mnd,
  KjorerBilNaa,
  KjorteBilForHjerneslag,
  MRS3mnd,
  OperertHalspulsaare,
  OppfolgUtf,
  Paakledning3mnd,
  ReinnlagtTypeSlag,
  Royker3mnd,
  Sivilstatus3mnd,
  SpraakTaleproblEtterHjslag,
  SynsproblEtterHjslag,
  Tilfredshet,
  Toalettbesok3mnd,
  YrkesaktivNaa,
  YrkesaktivUnderHjerneslag2,
  UPPER(HovedskjemaGUID) AS HovedskjemaGUID
FROM AkuttskjemaOppfolging')
     
 
  HovedSkjema <- rapbase::LoadRegData(registryName, qAkutt, dbType) #qAkuttskjema(datoFra = datoFra, datoTil = datoTil)   
  OppfSkjema <- rapbase::LoadRegData(registryName, qOppf, dbType) #qOppfskjema(datoFra = datoFra, datoTil = datoTil) 
  RegData <- merge(HovedSkjema, OppfSkjema, by.x='SkjemaGUID',by.y="HovedskjemaGUID", all.x = TRUE, all.y = FALSE)

  
  return(RegData)
}