From 8360d4f6ee0f596bfbaadaf079beb7e0f2d34ada Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kristina=20Sk=C3=A5re?= <kristina.skare@helse-bergen.no>
Date: Tue, 9 Jan 2024 14:16:11 +0100
Subject: [PATCH] unike feltnavn for adhoc

---
 R/getKodebokData.R | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

diff --git a/R/getKodebokData.R b/R/getKodebokData.R
index 20f68e7..b111f64 100644
--- a/R/getKodebokData.R
+++ b/R/getKodebokData.R
@@ -82,6 +82,33 @@ getKodebokData <- function() {
 
 
 
+        # FRA HENDELSE
+        .data$fysisk_feltnavn %in% c("komp_janei",
+                                     "komp_av_fistel",
+                                     "komp_pseudoan",
+                                     "komp_blodning",
+                                     "komp_infek",
+                                     "komp_tamp",
+                                     "komp_nfren",
+                                     "komp_apoplexi",
+                                     "komp_avblokk_pm",
+                                     "komp_pulm",
+                                     "komp_osofag",
+                                     "komp_koronar",
+                                     "komp_perikard",
+                                     "komp_dod",
+                                     "komp_annen",
+                                     "komp_annet_spes",
+                                     "sykehus_opph",
+                                     "sykehus_annet_spes",
+                                     "residiv",
+                                     "residiv_annet_spes",
+                                     "usercomment",
+                                     "status") &
+          .data$skjemanavn == "Hendelse" ~
+          paste0("adhoc_", .data$fysisk_feltnavn),
+
+
         # FRA PROSEDYRE
         .data$fysisk_feltnavn %in% c("status",
                                      "usercomment") &