Index: TECH/SourceCodeUtils.cls.xml
===================================================================
diff -u -r2 -r10
--- TECH/SourceCodeUtils.cls.xml	(.../SourceCodeUtils.cls.xml)	(revision 2)
+++ TECH/SourceCodeUtils.cls.xml	(.../SourceCodeUtils.cls.xml)	(revision 10)
@@ -23,6 +23,9 @@
 		set CSPFilename = ##class(TECH.CSP.CSPApplicatie).GetPhysicalFilename(InternalName)
 		if $length(CSPFilename) set Exists = ##class(%File).Exists(CSPFilename)
 	}
+	if ItemType = "project" {
+		set Exists = $data(^oddPROJECT(..StripExtension(InternalName)))>0
+	}
 	quit Exists
 ]]></Implementation>
 </Method>
@@ -67,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>