Persist ((value)) values as a (('value')) to help the optimizer

intersystems-community · May 15, 2018 · 509e513 · 509e513
1 parent 6d6e05b
commit 509e513
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/Form/JSON/SQL.cls.xml b/Form/JSON/SQL.cls.xml
@@ -95,7 +95,14 @@ result: out=" WHERE Text='Admin' AND Text='1'"]]></Description>
 			}
 			set value = valTemp _ ")"
 		} else {
-			set value = $$$sq(value)
+			// bake ((value)) values as a (('value')) to help the optimizer
+			if (($e(value,1,2)="((") && ($e(value,*-1,*)="))")) {
+				set value = $e(value, 3,*-3)
+				set value = $$$sq(value)
+				set value = "((" _ value _ "))"
+			} else {
+				set value = $$$sq(value)
+			}
 			set:value="'$$$NULL'" value = "NULL"
 		}