Index: TECH/SourceCodeUtils.cls.xml
===================================================================
diff -u -r2245 -r2753
--- TECH/SourceCodeUtils.cls.xml	(.../SourceCodeUtils.cls.xml)	(revision 2245)
+++ TECH/SourceCodeUtils.cls.xml	(.../SourceCodeUtils.cls.xml)	(revision 2753)
@@ -111,6 +111,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GetSQLTableName">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>InternalName:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	set SQLTableName = ""
+	if ..Exists(InternalName) {
+		set Type = ..Type(InternalName) 
+		if Type = "class" {
+			set Class = ##class(%Dictionary.CompiledClass).%OpenId(..StripExtension(InternalName))
+			if $isObject(Class) Set GetSQLTableName = (Class.SqlQualifiedNameQ)
+		}
+	}
+		
+	quit SQLTableName
+]]></Implementation>
+</Method>
+
 <Method name="StripExtension">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>InternalName:%String</FormalSpec>