Index: TECH/SourceCodeUtils.cls.xml
===================================================================
diff -u -r1173 -r1569
--- TECH/SourceCodeUtils.cls.xml	(.../SourceCodeUtils.cls.xml)	(revision 1173)
+++ TECH/SourceCodeUtils.cls.xml	(.../SourceCodeUtils.cls.xml)	(revision 1569)
@@ -70,6 +70,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsDataType">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>InternalName:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	set IsDataType = 0
+	if ..Exists(InternalName) {
+		set Type = ..Type(InternalName) 
+		if Type = "class" {
+			set Class = ##class(%Dictionary.ClassDefinition).%OpenId(..StripExtension(InternalName))
+			if $isObject(Class) Set IsDataType = (Class.ClassType = "datatype" )
+		}
+	}
+		
+	quit IsDataType
+]]></Implementation>
+</Method>
+
 <Method name="StripExtension">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>InternalName:%String</FormalSpec>