Index: TECH/SourceCodeUtils.cls.xml
===================================================================
diff -u -r1569 -r2245
--- TECH/SourceCodeUtils.cls.xml	(.../SourceCodeUtils.cls.xml)	(revision 1569)
+++ TECH/SourceCodeUtils.cls.xml	(.../SourceCodeUtils.cls.xml)	(revision 2245)
@@ -70,6 +70,29 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsGeneratedCode">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[InternalName:%String,&GeneratedBy:%String]]></FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	set IsGeneratedCode = 0
+	
+	if ..Exists(InternalName) {
+		set Type = ..Type(InternalName) 
+		if Type = "class" {
+			set ClassName = $piece(InternalName,".",1,$length(InternalName,".")-1)
+				set ClassDefinition = ##class(%Dictionary.ClassDefinition).%OpenId(ClassName)
+				if $IsObject(ClassDefinition) { 
+					set GeneratedBy = ClassDefinition.GeneratedBy
+					set IsGeneratedCode = $length(GeneratedBy) 
+				}
+			}
+		}	
+	
+	Quit IsGeneratedCode
+]]></Implementation>
+</Method>
+
 <Method name="IsDataType">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>InternalName:%String</FormalSpec>