Add location and caresite support #177 (#181)

* Add scripts and vignettes for location and care_site support
OHDSI · Feb 8, 2024 · 9392b87 · 9392b87
1 parent 5319443
commit 9392b87
Show file tree

Hide file tree

Showing 63 changed files with 1,424 additions and 404 deletions.
diff --git a/R/CreateVocabMapTables.r b/R/CreateVocabMapTables.r
@@ -9,7 +9,7 @@
 #'                                     \code{DatabaseConnector} package.
 #' @param cdmSchema  The name of the database schema that will contain the Vocab mapping
 #'                                     tables.  Requires read and write permissions to this database. On SQL
-#'                                     Server, this should specifiy both the database and the schema,
+#'                                     Server, this should specify both the database and the schema,
 #'                                     so for example 'cdm_instance.dbo'.
 #' @param cdmVersion The version of your CDM.  Currently "5.3" and "5.4" are supported.
 #' @param sqlOnly A boolean that determines whether or not to perform the load or generate SQL scripts. Default is FALSE.
@@ -33,7 +33,8 @@ CreateVocabMapTables <-
     queries <-
       c(
         "create_source_to_standard_vocab_map.sql",
-        "create_source_to_source_vocab_map.sql"
+        "create_source_to_source_vocab_map.sql",
+        "create_states_map.sql"
       )
 
     if (!sqlOnly) {

diff --git a/R/LoadEventTables.r b/R/LoadEventTables.r
@@ -93,6 +93,28 @@ LoadEventTables <- function(connectionDetails,
     }
   }
 
+  # location
+  fileQuery <- "insert_location.sql"
+  sql <- SqlRender::loadRenderTranslateSql(
+    sqlFilename = file.path(sqlFilePath, fileQuery),
+    packageName = "ETLSyntheaBuilder",
+    dbms = connectionDetails$dbms,
+    cdm_schema = cdmSchema,
+    synthea_schema = syntheaSchema
+  )
+  runStep(sql, fileQuery)
+
+  # care_site
+  fileQuery <- "insert_care_site.sql"
+  sql <- SqlRender::loadRenderTranslateSql(
+    sqlFilename = file.path(sqlFilePath, fileQuery),
+    packageName = "ETLSyntheaBuilder",
+    dbms = connectionDetails$dbms,
+    cdm_schema = cdmSchema,
+    synthea_schema = syntheaSchema
+  )
+  runStep(sql, fileQuery)
+
   # person
   fileQuery <- "insert_person.sql"
   sql <- SqlRender::loadRenderTranslateSql(

diff --git a/docs/404.html b/docs/404.html
diff --git a/docs/articles/Condition_occurrence.html b/docs/articles/Condition_occurrence.html
diff --git a/docs/articles/Cost.html b/docs/articles/Cost.html
diff --git a/docs/articles/Device_exposure.html b/docs/articles/Device_exposure.html
diff --git a/docs/articles/Drug_exposure.html b/docs/articles/Drug_exposure.html
diff --git a/docs/articles/Measurement.html b/docs/articles/Measurement.html