Merge pull request #553 from OHDSI/katy__sqlonly_bug

Fix descendant concept bug in sqlonly

Author: katy-sadowski

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' &