Class Таксон.к1ц Extends (%Persistent, %Populate, %XML.Adaptor) [ ClassType = persistent, ProcedureBlock ]
{

Property наз As %String [ MultiDimensional ];

Property назЛ As %String[ MultiDimensional ];

}

Set ^Таксон.к1цD( 1 )=$ListBuild("Животное","animal") // первый уровень
Set ^Таксон.к1цD( 1 , 1 )=$ListBuild("Многоклеточные","mnog") // второй уровень
Set ^Таксон.к1цD( 1 , 1 , 1 )=$ListBuild("Хордовые","xord") // третий
Set ^Таксон.к1цD( 1 , 1 , 1 , 1 )=$ListBuild("Позвоночные","pozv") //  4 
Set ^Таксон.к1цD( 1 , 1 , 1 , 1 , 1 )=$ListBuild("Челюстноротые","chelust") //  5 
Set ^Таксон.к1цD( 1 , 1 , 1 , 1 , 1 , 1 )=$ListBuild("Рыбы","Fish") //  6 
Set ^Таксон.к1цD( 1 , 1 , 1 , 1 , 1 , 1 , 1 )=$ListBuild("Костные рыбы","Fish kost") //  7 
Set ^Таксон.к1цD( 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 )=$ListBuild("Лучиперые","luch") //  8 
Set ^Таксон.к1цD( 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 )=$ListBuild("Ганоидные","gan") //  9 
set ^Таксон.к1цD( 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 )=$ListBuild("Осетрообразные","oset") //  10 
set ^Таксон.к1цD( 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 )=$ListBuild("Осетровые","oset1") //  11 
set ^Таксон.к1цD( 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 )=$ListBuild("Осетры","oset2") //  12 
set ^Таксон.к1цD( 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 )=$ListBuild("Осетр","oset3") //  13 
set ^Таксон.к1цD( 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 2 )=$ListBuild("Северокаспийская севрюга","sev") //  14 

Class Таксон.ОбъектТаксонии Extends (%Persistent, %Populate, %XML.Adaptor) [ClassType = persistent, ProcedureBlock ]
{

Property НазваниеПоРусски As %String;

Property НазваниеПоАнглийски As %String;

Property ВходитВ As Таксон.ОбъектТаксонии;

Property Уровень As Таксон.Уровень;

/// Это свойство - для ускорения поиска, например если нужно выбрать всех
хордовых. Его нужно вычислять при сохранении.

Property СписокВсехПредков As %String;

}

_______________________________________________
| id  |назР | назЛ | входит | уровень| предки   |
-------------------------------------------------
|   1   | a1 |   b1  |    ?   |    1     |          |
-------------------------------------------------
|   2   | a2 |   b2  |    ?   |    2     |   1        |
-------------------------------------------------
|   3   | a3 |   b3  |    ?   |    3     |   1  , 2     |
-------------------------------------------------
|   4   | a4 |   b4  |    ?   |    4     |   1  , 2  , 3  |
-------------------------------------------------

Property Up As Taxon.Atom; // это для родителя?

Property Type As Taxon.Type;  // это уровень, да?

Index NameIndex On Name;

Index RusNameIndex On RusName;

Index UpIndex On Up;

Index TypeIndex On Type;

<script language="Cache" runat="server">
  n nId
  set nId=%request.Get("OBJID")
set stroka=""
while nId'=""
 {
 &sql(declare node cursor for select id,rusname,latname,up into :nid,:name,:rname,:upn from Taxon.Atom where  (ID=:nId) order by latname)
 &sql(open node)
 &sql(fetch node)
 while SQLCODE= 0 
    {
    w name," "
    w upn,"<br>"
    s stroka=$LB(upn)
  	 &sql(fetch node)
    }
 &sql(close node)
set nId=upn
//w $list(stroka, 1 )
 }
//SET X=$LISTBUILD(stroka)
//w $list(x, 1 )
</script>

 set nId=%request.Get("OBJID")

s stroka=stroka+","+upn