Merge pull request #553 from OHDSI/katy__sqlonly_bug

Fix descendant concept bug in sqlonly
OHDSI · Jun 12, 2024 · 3af4d8f · 3af4d8f
2 parents 2f86863 + 08bee7f
commit 3af4d8f
Showing 1 changed file with 13 additions and 1 deletion.
diff --git a/R/sqlOnly.R b/R/sqlOnly.R
@@ -231,7 +231,19 @@
         cdmFieldName
       )
     } else if (checkLevel == "CONCEPT") {
-      if (is.na(unitConceptId)) {
+      if (is.na(unitConceptId) &&
+          grepl(",", conceptId)) {
+        thresholdFilter <- sprintf(
+          "conceptChecks$%s[conceptChecks$cdmTableName == '%s' &
+                                  conceptChecks$cdmFieldName == '%s' &
+                                  conceptChecks$conceptId == '%s']",
+          thresholdField,
+          cdmTableName,
+          cdmFieldName,
+          conceptId
+        )
+      } else if (is.na(unitConceptId) &&
+                 !grepl(",", conceptId)) {
         thresholdFilter <- sprintf(
           "conceptChecks$%s[conceptChecks$cdmTableName == '%s' &
                                   conceptChecks$cdmFieldName == '%s' &