Текст программы экспорта классов из Cache в Обобщенный документ

getclass

; смотрим список всех имеющихся классов
New result, classname, cdef, superclass, a, i, j, Tmp1, Tmp2, Tmp3, x, y, TmpC, TmpS,
; получение объектной ссылки на множество экземпляров классов
Set result=##class(%ResultSet).%New("%ClassDefinition.ClassInfo")
Do result.Execute()
For Quit:result.Next()=0 Do
. Set classname = result.GetDataByName("Name") ; получение имени очередного класса
. Do GetProp(classname)
; формирование вспомогательных массивов Tmp2 и Tmp3
Set x = “”
For Set x = $Order(Tmp1(x)) Quit: x=“” Do ; запись в переменную x имени
                                                                              ; следующего по порядку класса из массива Tmp1
. Set TmpC = x, a=0, y = x, TmpS2=" "
. Set TmpS=Tmp1(y, “Super”) ; запись в переменную TmpS имени родительского класса
. For Quit:TmpS=“” Do ; выход из цикла, если нет родительского класса, иначе переход на верхний уровень
                                          ; иерархии
.. Set TmpS=Tmp1(y, “Super”) Quit: TmpS = “ ”
.. Set a=a+1, TmpS2=TmpS, y = TmpS
.Set Tmp2(TmpC,TmpS2,a)= “” ; запись в массив Tmp2 имя класса, имя родительского класса, номер уровня
                                                            ; иерархии
.Set i=0
.If ‘$Data(Tmp3(TmpS2)) Do
.. Set Tmp3(TmpS2)= i, i=i+1
.. Quit
.Else Quit
; формирование потока
Set x = “”
For Set x=$Order(Tmp2(x)) Quit: x=“” Do ; запись в переменную x имени следующего
                                                                            ; по порядку класса из массива Tmp2
. Set superclass = Tmp1(x, “Super”) ; запись в переменную superclass имени родительского класса
. Set y = “”
. Set a = $Order(Tmp2(x, superclass, )) ; извлечение номера уровня иерархии класса из Tmp2
. Set:TmpS="" TmpS=" "
. For y=$Order(Tmp1(x, “Property”, y)) Quit: y=“” Do ; запись в переменную y имени
                                                                                                 ; следующего по порядку свойства класса
.. Set Potoc(Tmp3(superclass), “Yfeat”, “level”, a+2, y) = “”
Q
GetProp(classname) ;Функция сохранения свойств заданного класса в массив Tmp1
if classname="" Quit:$Q "" Q
Set cdef=##class(%ClassDefinition).%OpenId(classname) ; получение объектной ссылки на текущий класс
if cdef.System q 0 ; выход, если класс является системным определение свойств
Set count=cdef.Properties.Count() ; общее количество свойств
if count>0 Do
.For i=1:1:count Set Tmp1(classname, “Property”, cdef.Properties.GetAt(i).Name) = “”
; определение родительского класса
Set superclass=cdef.Super
Set Tmp1(classname, “Super”) = superclass
Do cdef.%Close()
Q 1