flere variabler i basis prom

Rapporteket · Mar 7, 2024 · 7025184 · 7025184
1 parent 26da141
commit 7025184
Show file tree

Hide file tree

Showing 2 changed files with 229 additions and 374 deletions.
diff --git a/R/getData.R b/R/getData.R
@@ -792,209 +792,6 @@ getBaseregPros <- function(registryName,
 
 
 
-#' @rdname getDataAblanor
-#' @export
-getBaseregProsFollowup0 <- function(registryName,
-                                    singleRow,
-                                    reshId = NULL,
-                                    userRole,
-                                    fromDate = NULL,
-                                    toDate = NULL, ...){
-
-  # PROS + BASEREG sammen
-  # proms,
-  # Mce (type = 7), patientid
-  # patientlist
-  # followup
-  if (is.null(fromDate)) {
-    fromDate <- as.Date("1900-01-01")
-  }
-  if (is.null(toDate)) {
-    toDate <- ablanor::getLatestEntry(registryName)
-  }
-  condition <- paste0(" WHERE pros.DATO_PROS >= '", fromDate,
-                      "' AND pros.DATO_PROS <= '", toDate, "'",
-                      " AND pros.DATO_PROS IS NOT NULL")
-
-
-  condition_followup <- ""
-
-  if (userRole != "SC") {
-    condition_followup <- paste0(" AND mce.CENTREID = '", reshId, "'")
-    condition <- paste0(condition, " AND pros.CENTREID = '", reshId, "'")
-  }
-
-
-
-  # BASEREG + PROSEDYRE + PASIENTID + PASIENTINFO
-  # (kun dersom prosedyredato finnes)
-  query_basePros <- paste0(
-    "SELECT pros.MCEID,
-            pros.CENTREID,
-            pros.FORLOPSTYPE,
-            pros.DATO_PROS,
-            pros.PROS_VARIGHET,
-            pros.RTG_TID,
-            pros.ABLA_VARIGHET,
-
-            mce.PATIENT_ID,
-            mce.MCETYPE,
-            mce.HAS_BASISFOLLOWUP,
-
-            patientlist.ID,
-            patientlist.BIRTH_DATE,
-            patientlist.GENDER,
-            patientlist.DECEASED,
-            patientlist.DECEASED_DATE,
-            patientlist.SSN_TYPE,
-            patientlist.SSNSUBTYPE
-
-    FROM pros
-   LEFT JOIN mce ON
-         pros.MCEID = mce.MCEID AND
-         pros.CENTREID = mce.CENTREID
-    LEFT JOIN patientlist ON
-         mce.PATIENT_ID = patientlist.ID AND
-         mce.CENTREID = patientlist.CENTREID"
-    ,
-    condition,
-    " AND pros.FORLOPSTYPE IS NOT NULL ")
-
-
-
-  query_followup <- paste0(
-    " SELECT mce.MCEID,
-             mce.CENTREID,
-             mce.MCETYPE,
-             mce.PATIENT_ID,
-             mce.PARENTMCEID,
-             mce.TSCREATED,
-
-             basisfollowup.DATO_FOLLOWUP,
-             basisfollowup.COMPLETE,
-             basisfollowup.INCOMPLETE_REASON,
-             basisfollowup.Q1,
-             basisfollowup.Q2,
-             basisfollowup.Q3,
-             basisfollowup.Q4,
-             basisfollowup.Q5,
-             basisfollowup.Q5_BURN_FREEZE,
-             basisfollowup.Q5_PACEMAKER,
-             basisfollowup.Q5_ELECTROCONVERSION,
-             basisfollowup.Q5_OTHER,
-             basisfollowup.Q5_OTHER_SPECIFY,
-             basisfollowup.Q6,
-             basisfollowup.Q6_REGULAR_EKG,
-             basisfollowup.Q6_24_HOUR_EKG,
-             basisfollowup.Q6_PACEMAKER,
-             basisfollowup.Q6_PULSE_WATCH,
-             basisfollowup.Q6_OTHER,
-             basisfollowup.Q6_OTHER_SPECIFY,
-             basisfollowup.STATUS
-    FROM mce
-    LEFT JOIN basisfollowup ON
-      mce.MCEID = basisfollowup.MCEID
-    WHERE mce.MCETYPE = 7 ",
-    condition_followup)
-
-  query_proms <- "SELECT MCEID,
-                         REGISTRATION_TYPE,
-                         TSSENDT,
-                         EXPIRY_DATE,
-                         REMINDER_DATE,
-                         STATUS,
-                         FORM_ORDER_STATUS_ERROR_CODE
-                  FROM proms
-                  WHERE REGISTRATION_TYPE = 'Basisfollowup' "
-
-  query_gkv <- "SELECT MCEID,
-                       DATO_GKV,
-                       GKV_1,
-                       GKV_2,
-                       GKV_3,
-                       GKV_4,
-                       GKV_5,
-                       GKV_6,
-                       GKV_7,
-                       GKV_8,
-                       GKV_9,
-                       GKV_10,
-                       GKV_11,
-                       GKV_12
-               FROM gkv
-               WHERE COMPLETE = 1 AND FORM_COMPLETED_VIA_PROMS = 1"
-
-
-  query_rand12 <- "SELECT MCEID,
-                          FOLLOWUP_PARENT_TYPE,
-                          DATO_RAND12,
-                          RAND_1,
-                          RAND_2A,
-                          RAND_2B,
-                          RAND_3A,
-                          RAND_3B,
-                          RAND_4A,
-                          RAND_4B,
-                          RAND_5,
-                          RAND_6A,
-                          RAND_6B,
-                          RAND_6C,
-                          RAND_7
-                   FROM rand12
-                   WHERE COMPLETE = 1
-                   AND (FOLLOWUP_PARENT_TYPE = 1
-                     OR FOLLOWUP_PARENT_TYPE = 2
-                     OR FOLLOWUP_PARENT_TYPE = 3
-                     OR FOLLOWUP_PARENT_TYPE = 4
-                     OR FOLLOWUP_PARENT_TYPE = 7)"
-
-
-  if (singleRow) {
-    msg <- "Query single row data for basis followup"
-    query_followup <- paste0(query_followup, "\nLIMIT\n  1;")
-    query_basePros <- paste0(query_basePros, "\nLIMIT\n  1;")
-    query_proms <- paste0(query_proms, "\nLIMIT\n  1;")
-    query_gkv <- paste0(query_gkv, "\nLIMIT\n  1;")
-    query_rand12 <- paste0(query_rand12, "\nLIMIT\n  1;")
-
-  } else {
-    msg <- "Query data for basis followup"
-    query_followup <- paste0(query_followup, ";")
-    query_basePros <- paste0(query_basePros, ";")
-    query_proms <- paste0(query_proms, ";")
-    query_gkv <- paste0(query_gkv, ";")
-    query_rand12 <- paste0(query_rand12, ";")
-  }
-
-  if ("session" %in% names(list(...))) {
-    # nocov start
-    rapbase::repLogger(session = list(...)[["session"]], msg = msg)
-    d_baseregPat <- rapbase::loadRegData(registryName, query_basePros)
-    d_followup <- rapbase::loadRegData(registryName , query_followup)
-    d_proms <- rapbase::loadRegData(registryName , query_proms)
-    d_gkv <- rapbase::loadRegData(registryName , query_gkv)
-    d_rand12 <- rapbase::loadRegData(registryName , query_rand12)
-    # nocov end
-  } else {
-    d_baseregPat <- rapbase::loadRegData(registryName, query_basePros)
-    d_followup <- rapbase::loadRegData(registryName , query_followup)
-    d_proms <- rapbase::loadRegData(registryName , query_proms)
-    d_gkv <- rapbase::loadRegData(registryName , query_gkv)
-    d_rand12 <- rapbase::loadRegData(registryName , query_rand12)
-  }
-
-
-  list(d_baseregPat = d_baseregPat,
-       d_followup = d_followup,
-       d_proms = d_proms,
-       d_gkv = d_gkv,
-       d_rand12 = d_rand12)
-
-}
-
-
-
-
 #' @rdname getDataAblanor
 #' @export
 getBaseregProsFollowup5 <- function(registryName,