Oppfolging 5aar utforsker

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: ablanor
 Title: AblaNor- Rapporteket
-Version: 1.3.2
+Version: 1.3.3
 Authors@R: c(
   person(given = "Kristina",
            family = "Skaare",

NEWS.md

@@ -1,3 +1,6 @@
+# ablanor 1.3.3
+Bugfiks av det sammenstilte prosedyreskjemaet med 5-års oppfølging.
+
 # ablanor 1.3.2
 Fjerne egne getData for sammenstilte skjemaer i utforsker. All 
 databehandling skjer nå i getPrep funksjonene. Lagt til flere variabler fra

R/getPrepData.R

@@ -1572,7 +1572,7 @@ getBaseregProsFollowup5Data <- function(registryName,
 
   # VELGER KUN 5 års oppfølging (PROMS)
   d_proms %<>%
-    dplyr::filter(registration_type == "FiveYearollowup") %>%
+    dplyr::filter(registration_type == "Fiveyearfollowup") %>%
     dplyr::rename("proms_status" = "status",
                   "mceid_followup" = "mceid",
                   "proms_tssendt" = "tssendt",
@@ -1759,7 +1759,7 @@ getBaseregProsFollowup5Data <- function(registryName,
 
       # Tidsvariabler for besvart followup
       aar_followup_5aar = as.ordered(
-        x = lubridate::year(followup5_dato_followup)),
+        x = lubridate::year(dato_followup)),
 
 
       # Tidsvariabler for opprettet followup
@@ -1781,50 +1781,51 @@ getBaseregProsFollowup5Data <- function(registryName,
     dplyr::arrange(mceid) %>%
 
 
+    dplyr::mutate(
 
-    eprom_datagrunnlag_5aar = factor(
-      x = dplyr::case_when(
-
-        #  ALT FOR NYE REGISTRERINGER
-        dato_pros > nyeste_eprom_bestilling ~
-          "nei, registreringen er for ny",
+      eprom_datagrunnlag_5aar = factor(
+        x = dplyr::case_when(
 
+          #  ALT FOR NYE REGISTRERINGER
+          dato_pros > nyeste_eprom_bestilling ~
+            "nei, registreringen er for ny",
 
-        # EPROMS OPPRETTET OG SATT TIL AVDØD MED EN GANG
-        (has_fiveyearfollowup %in% 1 &
-           eprom_opprettet_5aar %in% "ja" &
-           followup5_incomplete_reason %in% 3) ~
-          "nei, opprettet satt til død",
 
+          # EPROMS OPPRETTET OG SATT TIL AVDØD MED EN GANG
+          (has_fiveyearfollowup %in% 1 &
+             eprom_opprettet_5aar %in% "ja" &
+             followup5_incomplete_reason %in% 3) ~
+            "nei, opprettet satt til død",
 
-        # NY VERSJON: KONTROLL KRITIER FØR OPPRETTELSE
-        (has_fiveyearfollowup %in% 1 &
-           is.na(eprom_opprettet_5aar)) ~
-          "nei, ikke opprettet etter kriteriesjekk",
 
-        # NY VERSJON: OPPRETTELES EN DAG, OG BESTILLING INNEN 30 DAGER ETTER
-        # "BESTILT I DAG, SENDES I MORGEN"
-        (has_fiveyearfollowup %in% 1 &
-           eprom_opprettet_5aar %in% "ja" &
-           kriterie_alle_5aar %in% "ja" &
-           is.na(eprom_sendt_5aar)) ~
-          "nei, eprom venter på utsendelse",
+          # NY VERSJON: KONTROLL KRITIER FØR OPPRETTELSE
+          (has_fiveyearfollowup %in% 1 &
+             is.na(eprom_opprettet_5aar)) ~
+            "nei, ikke opprettet etter kriteriesjekk",
 
+          # NY VERSJON: OPPRETTELES EN DAG, OG BESTILLING INNEN 30 DAGER ETTER
+          # "BESTILT I DAG, SENDES I MORGEN"
+          (has_fiveyearfollowup %in% 1 &
+             eprom_opprettet_5aar %in% "ja" &
+             kriterie_alle_5aar %in% "ja" &
+             is.na(eprom_sendt_5aar)) ~
+            "nei, eprom venter på utsendelse",
 
-        # DISSE ER MED I DATAGRUNNLAGET!
-        (has_fiveyearfollowup %in% 1 &
-           eprom_opprettet_5aar %in% "ja" &
-           kriterie_alle_5aar %in% "ja") ~ "ja",
 
+          # DISSE ER MED I DATAGRUNNLAGET!
+          (has_fiveyearfollowup %in% 1 &
+             eprom_opprettet_5aar %in% "ja" &
+             kriterie_alle_5aar %in% "ja") ~ "ja"
+          ),
 
-        levels = c("ja",
-                   "nei, registreringen er for ny",
-                   "nei, opprettet satt til død",
-                   "nei, ikke opprettet etter kriteriesjekk",
-                   "nei, eprom venter på utsendelse"),
-        ordered  = TRUE),
 
+          levels = c("ja",
+                     "nei, registreringen er for ny",
+                     "nei, opprettet satt til død",
+                     "nei, ikke opprettet etter kriteriesjekk",
+                     "nei, eprom venter på utsendelse"),
 
+          ordered  = TRUE),
 
       eprom_besvart_5aar =  dplyr::case_when(
         eprom_datagrunnlag_5aar %in% "ja" &