lagt til flere pros variabler med eprom

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

Hide file tree

Showing 2 changed files with 128 additions and 298 deletions.
diff --git a/R/getData.R b/R/getData.R
@@ -38,7 +38,6 @@
 #' getMce
 #' getRand12
 #' getFollowupBasis
-#' getFollowupOneYr
 #' getFollowupFiveYr
 #' getGkv
 #' getProms
@@ -793,190 +792,6 @@ getBaseregPros <- function(registryName,
 
 
 
-#' @rdname getDataAblanor
-#' @export
-getBaseregProsFollowup1 <- function(registryName,
-                                    singleRow,
-                                    reshId = NULL,
-                                    userRole,
-                                    fromDate = NULL,
-                                    toDate = NULL, ...){
-
-  # PROS + BASEREG sammen
-  # proms,
-  # Mce (type = 9), 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,
-
-            mce.PATIENT_ID,
-            mce.MCETYPE,
-            mce.HAS_FOLLOWUP,
-
-            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,
-
-             followup.DATO_FOLLOWUP,
-             followup.COMPLETE,
-             followup.INCOMPLETE_REASON,
-             followup.Q1,
-             followup.Q2,
-             followup.Q3,
-             followup.Q4,
-             followup.Q5,
-             followup.Q5_BURN_FREEZE,
-             followup.Q5_PACEMAKER,
-             followup.Q5_ELECTROCONVERSION,
-             followup.Q5_OTHER,
-             followup.Q5_OTHER_SPECIFY,
-             followup.Q6,
-             followup.Q6_REGULAR_EKG,
-             followup.Q6_24_HOUR_EKG,
-             followup.Q6_PACEMAKER,
-             followup.Q6_PULSE_WATCH,
-             followup.Q6_OTHER,
-             followup.Q6_OTHER_SPECIFY,
-             followup.Q7,
-             followup.Q7_STROKE,
-             followup.Q7_BLOCK,
-             followup.Q7_OPERATION,
-             followup.Q7_PACEMAKER,
-             followup.Q7_OTHER,
-             followup.Q7_OTHER_SPECIFY,
-             followup.STATUS
-    FROM mce
-    LEFT JOIN followup ON
-      mce.MCEID = followup.MCEID
-    WHERE mce.MCETYPE = 9 ",
-    condition_followup)
-
-  query_proms <- "SELECT MCEID,
-                         REGISTRATION_TYPE,
-                         TSSENDT,
-                         EXPIRY_DATE,
-                         REMINDER_DATE,
-                         STATUS,
-                         FORM_ORDER_STATUS_ERROR_CODE
-                  FROM proms
-                  WHERE REGISTRATION_TYPE = 'Followup' "
-
-
-
-  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 = 9)"
-
-
-  if (singleRow) {
-    msg <- "Query single row data for 1-year 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_rand12 <- paste0(query_rand12, "\nLIMIT\n  1;")
-    } else {
-    msg <- "Query data for 1-year followup"
-    query_followup <- paste0(query_followup, ";")
-    query_basePros <- paste0(query_basePros, ";")
-    query_proms <- paste0(query_proms, ";")
-    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_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_rand12 <- rapbase::loadRegData(registryName , query_rand12)
-  }
-
-
-  list(d_baseregPat = d_baseregPat,
-       d_followup = d_followup,
-       d_proms = d_proms,
-       d_rand12 = d_rand12)
-
-}
-
-
-
-
-
-
 #' @rdname getDataAblanor
 #' @export
 getBaseregProsFollowup0 <- function(registryName,