Index: TECH/SourceCodeUtils.cls.xml
===================================================================
diff -u -r2753 -r3157
--- TECH/SourceCodeUtils.cls.xml	(.../SourceCodeUtils.cls.xml)	(revision 2753)
+++ TECH/SourceCodeUtils.cls.xml	(.../SourceCodeUtils.cls.xml)	(revision 3157)
@@ -114,21 +114,55 @@
 <Method name="GetSQLTableName">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>InternalName:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
+<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 GetSQLTableName = (Class.SqlQualifiedNameQ)
+			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>