diff --git a/inst/sql/sql_server/concept_plausible_gender.sql b/inst/sql/sql_server/concept_plausible_gender.sql index 4c9180da..650f5b10 100755 --- a/inst/sql/sql_server/concept_plausible_gender.sql +++ b/inst/sql/sql_server/concept_plausible_gender.sql @@ -40,7 +40,7 @@ FROM ON cdmTable.person_id = c.subject_id AND c.cohort_definition_id = @cohortDefinitionId } - WHERE cdmTable.@cdmFieldName = @conceptId + WHERE cdmTable.@cdmFieldName IN (@conceptId) AND p.gender_concept_id <> {@plausibleGender == 'Male'} ? {8507} : {8532} /*violatedRowsEnd*/ ) violated_rows @@ -54,6 +54,6 @@ FROM ON cdmTable.person_id = c.subject_id AND c.cohort_definition_id = @cohortDefinitionId } - WHERE @cdmFieldName = @conceptId + WHERE @cdmFieldName IN (@conceptId) ) denominator ; diff --git a/tests/testthat/test-executeDqChecks.R b/tests/testthat/test-executeDqChecks.R index 5b04680d..3c67fda9 100644 --- a/tests/testthat/test-executeDqChecks.R +++ b/tests/testthat/test-executeDqChecks.R @@ -49,6 +49,9 @@ test_that("Execute all TABLE checks on Synthea/Eunomia", { ) expect_true(nrow(results$CheckResults) > 0) + + sqlErrors <- stats::na.omit(results$CheckResults$error) + expect_length(sqlErrors, 0) }) test_that("Execute FIELD checks on Synthea/Eunomia", { @@ -73,6 +76,9 @@ test_that("Execute FIELD checks on Synthea/Eunomia", { } ) expect_true(nrow(results$CheckResults) > 0) + + sqlErrors <- stats::na.omit(results$CheckResults$error) + expect_length(sqlErrors, 0) }) test_that("Execute CONCEPT checks on Synthea/Eunomia", { @@ -101,6 +107,9 @@ test_that("Execute CONCEPT checks on Synthea/Eunomia", { } ) expect_true(nrow(results$CheckResults) > 0) + + sqlErrors <- stats::na.omit(results$CheckResults$error) + expect_length(sqlErrors, 0) }) test_that("Execute observation period overlap check", {