RBIndex
	q
Class(cls)
	new super,arr,rs,refs
	set super=$$GetSuperClass(cls)
	do IndForClass(super,.refs)
	set cls=""
	for  { set cls=$o(refs(cls), 1 ,super) quit:cls=""
		if $e(super, 1 , 1 )="%" {set arr(cls)= 1 }
		else {
			set rs=""""_cls_""""
			d findpath(cls,.rs)
			set @("arr("_rs_")")= 1 
		}
	}
	#; индексы перестраиваем в обратном порядке
	#; из-за наследования - сначала дети потом родители
	#; но если у детей индексы с одинаковым именем ...
	#; тады ..опа..
	set cls="arr",rs= 0 
	set cls="arr("""_$o(arr(""),- 1 )_""")"
	set cls=$q(arr(""),- 1 )
	set:cls'="" cls=$e(cls,1,$l(cls)-1)_",1)"
	if cls'="" {
		for  {	set cls=$q(@cls,- 1 ) quit:cls=""  
			set rs=$qs(cls,$ql(cls))
			w rs,$j(" ", 50 -$l(rs))," "
			d Build($qs(cls,$ql(cls)))
			w !
		}
	}
	q 
All()
	new rs,refs,super
	set rs=##class(%ResultSet).%New("%Dictionary.ClassDefinitionQuery:Summary")
	if rs.Execute() {
		while rs.Next() {  continue:$e(rs.Get("Name"), 1 , 1 )="%"  
			if rs.Get("Persistent")= 1  { 
				set super=$$GetSuperClass(rs.Get("Name"))
				set refs(super)= 1 
			}
		}
	}
	do rs.Close() set rs=""
	set super="" for { set super=$o(refs(super)) quit:super=""  
		do Class(super)
	}
	q
IndForClass(classname,&ret)
	new rs,cls,super,arr,refs,rsind,obj
	/// Для потомков
	set rs=##class(%ResultSet).%New("%Dictionary.ClassDefinitionQuery:SubclassOf")
	if rs.Execute(classname,"%") {
		while rs.Next() {
			set cls=rs.Get("Name") 
			continue:$e(cls, 1 , 1 )="%"  
			set rsind=##class(%ResultSet).%New("%Dictionary.CompiledIndexQuery:Summary")
			if rsind.Execute(cls) {
				while rsind.Next() {
					
					set obj=##class(%Dictionary.CompiledIndex).%OpenId(cls_"||"_rsind.Get("Name"), 0 )
					if obj'="" {
						if obj.IdKey'= 1  {
							set super=$$GetSuperProperty(cls)
							set refs(cls)=$p(super,",", 1 )
						}
					}
					set obj=""
					quit:$d(refs(cls))  
				}
			}
			set rsind=""
		}
	}
	do rs.Close() set rs=""
	/// для себя самого
	set rsind=##class(%ResultSet).%New("%Dictionary.CompiledIndexQuery:Summary")
	if rsind.Execute(classname) {
		while rsind.Next() {
			
			set obj=##class(%Dictionary.CompiledIndex).%OpenId(classname_"||"_rsind.Get("Name"), 0 )
			if obj'="" {
				if obj.IdKey'= 1  {
					set super=$$GetSuperProperty(classname)
					set refs(classname)=$p(super,",", 1 )
				}
			}
			set obj=""
			quit:$d(refs(classname))  
		}
	}
	do rsind.Close() set rsind=""
	merge ret=refs
	quit 
findpath(class,result) quit:$g(class)=""  quit:$d(refs(class))= 0   
	if $e($g(refs(class)), 1 , 1 )'="%" { set result=""""_$g(refs(class))_""","_result d findpath($g(refs(class)),.result)}
	quit 
Build(cls) new ret
	set $ZT="BuildErr"
	set ret=1
	TS
	w ">"
	if ##class(%Dictionary.CompiledClass).%ExistsId(cls) {
		set ret=$zobjclassmethod(cls,"%PurgeIndices")
		set:ret=1 ret=$zobjclassmethod(cls,"%BuildIndices")	
	}else {
		w " not compiled ?"
	}
	set $ZT=""
	if ret=1 {TC  w "OK"}
	else  {TRO  w "OK"}
	q  
BuildErr
	set $ZT="" TRO  
	w " Ошибка: ",$ZE," ",cls,!
	q  
GetSuperClass(cls)
	new ret,isend,sp
	set ret=cls,isend=0
	set sp=$$GetSuperProperty(cls)	
	if $e(sp)="%" {set isend=1 }
	set cls=$p(sp,",",1)
	quit:isend'= 1  $$GetSuperClass(cls)
	quit ret
GetSuperProperty(cls)
	new obj,ret
	set ret=""
	s obj=##class(%Dictionary.ClassDefinition).%OpenId(cls, 0 )
	if obj'="" { set ret=obj.Super do obj.%Close() }
	set obj=""
	quit ret