[ADD] Added v.1

Author: gevorg95

src/cls/CDV/CDV.cls

@@ -0,0 +1,111 @@
+Class CDV.CDV Extends %Persistent
+{
+
+ClassMethod ScanFromAllClasses(Replace As %String = "%", Capitalize As %Boolean = {$$$YES}) As %Status
+{
+	#Dim sc As %Status = $$$OK
+	set sc = $System.OBJ.GetClassList(.Classes, "/application=0 /system=0 /percent=0 /mapped=0")
+	Quit:$$$ISERR(sc)
+	Set sc = ..ScanFromClassLocal(.Classes, Replace, Capitalize)
+	Quit sc
+}
+
+ClassMethod ScanFromSubclassesOf(Class As %String, Replace As %String = "%", Capitalize As %Boolean = {$$$YES}) As %Status
+{
+	#Dim sc As %Status = $$$OK
+	Set RS = ##class(%ResultSet).%New("%Dictionary.ClassDefinition:SubclassOf")
+	Set sc = RS.%Execute(Class)
+	Quit:$$$ISERR(sc) 
+	
+	Set Classes(Class) = ""
+
+	While (RS.%Next(.sc)) {
+		Quit:$$$ISERR(sc)		
+		Set Classes(RS.Data("Name")) = ""
+	}
+	
+	Set sc = ..ScanFromClassLocal(.Classes, Replace, Capitalize)
+	Quit sc
+}
+
+ClassMethod ScanFromMatchingClasses(Mask As %String, Replace As %String = "%", Capitalize As %Boolean = {$$$YES}) As %Status
+{
+	#Dim sc As %Status = $$$OK
+	
+	Set SQL = "SELECT ID FROM %Dictionary.ClassDefinition Where ID LIKE ?"
+	Set ST = ##class(%SQL.Statement).%New()
+	Set sc = ST.%Prepare(SQL)
+	Quit:$$$ISERR(sc) sc
+	
+	#Dim RS As %SQL.StatementResult
+	Set RS = ST.%Execute(Mask)
+	
+	While RS.%Next() {
+		Set Classes(RS.%GetData(1)) = ""
+	}
+	
+	Set sc = ..ScanFromClassLocal(.Classes, Replace, Capitalize)
+	Quit sc
+}
+
+ClassMethod ScanFromClassLocal(ByRef Classes As %String, Replace As %String = "%", Capitalize As %Boolean = {$$$YES}) As %Status
+{
+	#Dim sc,sc1 As %Status = $$$OK
+	Set Class = ""
+	For { 
+		Set Class = $Order(Classes(Class))
+		Quit:Class=""
+		If ($classmethod(Class, "%Extends", "%Persistent"))
+		{
+			Set sc1 = ..ValidateClassObjects(Class, Replace, Capitalize)
+		}
+		Set sc = $$$ADDSC(sc, sc1)		
+	}
+	
+	Quit sc
+}
+
+ClassMethod ValidateClassObjects(Class As %String, Replace As %String = "%", Capitalize As %Boolean = {$$$YES}) As %Status
+{
+	#Dim sc As %Status = $$$OK
+
+	set Oid = Class
+	set query = ##class(%SQL.Statement).%New()
+    set status= query.%PrepareClassQuery(Class,"Extent")
+    if 'status 
+    {
+    	do $system.OBJ.DisplayError(status)
+ 	}
+ 	set rset=query.%Execute()
+
+	While (rset.%Next()) 
+	{
+    	set obj = $classmethod(Class, "%OpenId", rset.%Get("ID"))
+    	set Oid(Class,rset.%Get("ID")) = obj.%ValidateObject()
+    	Kill obj
+ 	}
+	
+	zw Oid
+	Quit sc
+}
+
+Storage Default
+{
+<Data name="CDVDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Name</Value>
+</Value>
+</Data>
+<DataLocation>^CDV.CDVD</DataLocation>
+<DefaultData>CDVDefaultData</DefaultData>
+<IdLocation>^CDV.CDVD</IdLocation>
+<IndexLocation>^CDV.CDVI</IndexLocation>
+<StreamLocation>^CDV.CDVS</StreamLocation>
+<Type>%Library.CacheStorage</Type>
+}
+
+}
+