generateCohortTableCG <- function() {
  connectionDetails <- Eunomia::getEunomiaConnectionDetails()
  cohortTableName <- "cohort_table"
  resultSchema <- "main"
  cdmSchema <- "main"
  
  cohortsToCreate <- CohortGenerator::createEmptyCohortDefinitionSet()
  
  cohortJsonFiles <- list.files(
    system.file(
      package = "TreatmentPatterns",
      "exampleCohorts"),
    full.names = TRUE)
  
  for (i in seq_len(length(cohortJsonFiles))) {
    cohortJsonFileName <- cohortJsonFiles[i]
    cohortName <- tools::file_path_sans_ext(basename(cohortJsonFileName))
    cohortJson <- readChar(cohortJsonFileName, file.info(
      cohortJsonFileName)$size)
    
    cohortExpression <- CirceR::cohortExpressionFromJson(cohortJson)
    
    cohortSql <- CirceR::buildCohortQuery(
      cohortExpression,
      options = CirceR::createGenerateOptions(generateStats = FALSE))
    cohortsToCreate <- rbind(
      cohortsToCreate,
      data.frame(
        cohortId = i,
        cohortName = cohortName,
        sql = cohortSql,
        stringsAsFactors = FALSE))
  }
  
  cohortTableNames <- CohortGenerator::getCohortTableNames(
    cohortTable = cohortTableName)
  
  CohortGenerator::createCohortTables(
    connectionDetails = connectionDetails,
    cohortDatabaseSchema = resultSchema,
    cohortTableNames = cohortTableNames)
  
  # Generate the cohorts
  cohortsGenerated <- CohortGenerator::generateCohortSet(
    connectionDetails = connectionDetails,
    cdmDatabaseSchema = cdmSchema,
    cohortDatabaseSchema = resultSchema,
    cohortTableNames = cohortTableNames,
    cohortDefinitionSet = cohortsToCreate)
  
  # Select Viral Sinusitis Cohort
  targetCohorts <- cohortsGenerated %>%
    dplyr::filter(cohortName == "ViralSinusitis") %>%
    dplyr::select(cohortId, cohortName)
  
  # Select everything BUT Viral Sinusitis cohorts
  eventCohorts <- cohortsGenerated %>%
    dplyr::filter(cohortName != "ViralSinusitis" & cohortName != "Death") %>%
    dplyr::select(cohortId, cohortName)
  
  exitCohorts <- cohortsGenerated %>%
    dplyr::filter(cohortName == "Death") %>%
    dplyr::select(cohortId, cohortName)
  
  cohorts <- dplyr::bind_rows(
    targetCohorts %>% dplyr::mutate(type = "target"),
    eventCohorts %>% dplyr::mutate(type = "event"),
    exitCohorts %>% dplyr::mutate(type = "exit")
  )
  
  return(list(
    cohorts = cohorts,
    connectionDetails = connectionDetails,
    cohortTableName = cohortTableName,
    resultSchema = resultSchema,
    cdmSchema = cdmSchema
  ))
}