Index: TECH/RoutineUtils.cls.xml
===================================================================
diff -u -r9 -r349
--- TECH/RoutineUtils.cls.xml	(.../RoutineUtils.cls.xml)	(revision 9)
+++ TECH/RoutineUtils.cls.xml	(.../RoutineUtils.cls.xml)	(revision 349)
@@ -5,6 +5,16 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
 
+<Method name="IsOurs">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Routine:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim IsOurs As %Boolean = '##class(TECH.StringUtils).StartsWith(Routine,"%")
+	if IsOurs set IsOurs = ##class(%RoutineMgr).%ExistsId(Routine)
+	quit IsOurs
+]]></Implementation>
+</Method>
+
 <Method name="GeneratedClassCode">
 <ClassMethod>1</ClassMethod>
 <FormalSpec><![CDATA[Routine:%String,&ClassName:%String]]></FormalSpec>