Add location and caresite support #177

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) {

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(