Create(Nam)  ; Создание класса
 n nc
 s nc=##class(%Dictionary.ClassDefinition).%New()
 s nc.Name=Nam
 s nc.ProcedureBlock= 1 
 s nc.ClassType="persistent"
 s nc.Super="%Persistent"
 q nc

CREATE(Class,NamSv,Nam) ; Добавление свойства
 ; Class - ореф класса
 ; NamSv - идентификатор свойства
 ; Nam   - идентификатор класса
 n err,pr,val,i
 s pr=##class(%Dictionary.PropertyDefinition).%New()
 I NamSv["_" s NamSv=$$Trans^zfunc(NamSv,"_","o")
 s pr.Name=NamSv
 s pr.Type=$$GetTyp(NamSv)
 s err=pr.Type
 s pr.parent=Class
 i pr.%Close()
 s i=##class(%Dictionary.IndexDefinition).%New()
 s i.Name=NamSv_"Index"
 s i.parent=Class
 s i.Properties=NamSv
 q