Merge pull request #46 from Rapporteket/pros_prom

prep for proms-data
Rapporteket · Jan 18, 2024 · ef190b0 · ef190b0
2 parents 220dc9c + 5034683
commit ef190b0
Show file tree

Hide file tree

Showing 19 changed files with 2,847 additions and 429 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: ablanor
 Title: AblaNor- Rapporteket
-Version: 1.3.0
+Version: 1.3.1
 Authors@R: c(
   person(given = "Kristina",
            family = "Skaare",

diff --git a/NAMESPACE b/NAMESPACE
@@ -13,12 +13,18 @@ export(getBasereg)
 export(getBaseregData)
 export(getBaseregPros)
 export(getBaseregProsData)
+export(getBaseregProsFollowup0)
+export(getBaseregProsFollowup0Data)
 export(getBaseregProsFollowup1)
 export(getBaseregProsFollowup1Data)
+export(getBaseregProsFollowup5)
+export(getBaseregProsFollowup5Data)
+export(getBaseregProsHendelseData)
 export(getDataDump)
 export(getFollowupBasis)
 export(getFollowupBasisData)
 export(getFollowupFiveYr)
+export(getFollowupFiveYrData)
 export(getFollowupOneYr)
 export(getFollowupOneYrData)
 export(getFriendlycentre)

diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,8 @@
+# ablanor 1.3.1
+Sammenstille prosedyreskjema med Eproms ved basis, 
+1 år og 5 år, samt hendelser. svarprosent.
+Ny kodebok og tilpasset dupliserte feltnavn til de ulike tabellene. 
+
 # ablanor 1.3.0
 Ny release av innregistrering med nye funksjonaliteter. Eproms ved basis, 
 1 år og 5 år, samt hendelser i egen tabell. Tilpasse Rapporteket til dette. 

diff --git a/R/app_server.R b/R/app_server.R
@@ -33,20 +33,19 @@ app_server <- function(input, output, session) {
 
     # SAMLETABELLER MED UTLEDETE VARIABLER
     `Pasient, prosedyre og kvalitetsindikatorer` = "basereg_pros_indik",
-    # `Pasient, prosedyre og oppfølgingsstatus` = "pros_patient_followup_indik",
-    # `eProm basis` = "pros_pat_followup0",
-    # `eProm 1 år` = "pros_pat_followup1",
-    # `eProm 5 år` = "pros_pat_followup5",
+    `Pasient, prosedyre og hendelse` = "basereg_pros_hendelse",
+    `Pasient, prosedyre og eprom basis` = "pros_pat_followup0",
+    `Pasient, prosedyre og eProm 1 år` = "pros_pat_followup1",
+    `Pasient, prosedyre og eProm 5 år` = "pros_pat_followup5",
 
     # RÅDATA:
     `Basisskjema rådata` = "basereg",
     `Prosedyreskjema rådata` = "pros",
     `Forløpsoversikt rådata` = "mce",
-
     `RAND-12: basis, 1 og 5 år. Rådata.` = "rand12",
     `eProm basis. Rådata` = "followupbasis",
     `eProm 1 år. Rådata` = "followup1",
-    # `eProm 5 år. Rådata` = "followup5",
+    `eProm 5 år. Rådata` = "followup5",
     `GKV (pasienterfaring) basis. Rådata` = "gkv")
 
   if (userRole == "SC") {
@@ -266,9 +265,13 @@ app_server <- function(input, output, session) {
                             "rand12",
                             "followupbasis",
                             "followup1",
+                            "followup5",
                             "gkv",
                             "proms",
-                            "basereg_pros_indik")) {
+                            "basereg_pros_indik",
+                            "basereg_pros_hendelse",
+                            "pros_pat_followup0",
+                            "pros_pat_followup1")) {
       metaDatKb() %>% names()
     }
     else {