Index: TECH/SourceCodeUtils.cls.xml
===================================================================
diff -u -r54 -r321
--- TECH/SourceCodeUtils.cls.xml	(.../SourceCodeUtils.cls.xml)	(revision 54)
+++ TECH/SourceCodeUtils.cls.xml	(.../SourceCodeUtils.cls.xml)	(revision 321)
@@ -111,6 +111,58 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GetSQLTableName">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>InternalName:%String</FormalSpec>
+<ReturnType>%String</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 SQLTableName = (Class.SqlQualifiedNameQ)
+		}
+	}
+		
+	quit SQLTableName
+]]></Implementation>
+</Method>
+
+<Method name="GetSQLTableNames">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>InternalName:%String</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	set List = ##class(%ListOfDataTypes).%New()
+	set SQLTableName = ..GetSQLTableName(InternalName)
+	if $length(SQLTableName) {
+		do List.Insert(SQLTableName)
+		do ##class(TECH.ListUtils).CopyListOfDataTypes(..GetSQLChildTables(InternalName),List)
+	}
+	quit List
+]]></Implementation>
+</Method>
+
+<Method name="GetSQLChildTables">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>InternalName:%String</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	
+	set List = ##class(%ListOfDataTypes).%New()
+	set SQLTableName = ..GetSQLTableName(InternalName)
+	if $length(SQLTableName) {
+		set rsSQLChildTables = ##class(%ResultSet).%New("%Library.SQLCatalog:SQLChildTables")
+		do rsSQLChildTables.Execute(SQLTableName) 
+		while rsSQLChildTables.Next() {
+			do List.Insert(rsSQLChildTables.Data("TABLE_NAME"))	
+		}
+	}
+	quit List
+]]></Implementation>
+</Method>
+
 <Method name="StripExtension">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>InternalName:%String</FormalSpec>