{
 Set result = ## class (%ResultSet).% New ("%Dictionary.ClassDefinition:Summary") 
  Do  result.Execute()
 Set clslist = ""
  While  (result.[SRC C#]

ClassMethod GetPropertiesList(clsName As %String) As %List
{
 Set cdef = ## class (%Dictionary.ClassDefinition).%OpenId("OModel."_clsName_"")
 
 // get list of properties
 Set count = cdef.Properties.Count()
 Set plist = ""
  For  i =  1 : 1 :count {
     Set str = cdef.Properties.GetAt(i).Name
     Set plist = plist_$LISTBUILD(str)        
     } 
 Quit plist
}

ClassMethod GetTypesList() As %List
{
// вариант 1	
    Set types=## class (%Library.ListOfDataTypes).% New ()
    Set lstTypes = types.ElementType()

// вариант 2
    Set arrayListClass=## class (System.Type).GetType(types)    
}