/// Допустим, есть объект "Человек"
Class User.Man Extends (%Persistent, %Populate) {
/// супруг/а
Property spouse As User.Man;
/// дети 
Property childs As list Of User.Man;
/// родители
Property parents As list Of User.Man;
/// друзья
Property friends As list Of User.Man;
/// Фамилия
Property name As %String;
/// Цвет волос
Property colorhead As %String;

/// некое расчетное свойство "ближний_круг" куда в виде листа сваливаются его айдишник 
/// вкупе с айдишниками всех его друзей/родственников 
/// doublefint: база отлично ищет и без списков
ClassMethod IsInAround(id As %String, testId As %String) As %Boolean [ SqlProc ] {
	 q:'..%ExistsId(id) 0  q:'..%ExistsId(testId)  0 
	 q:..spouseGetStored(id)=testId  1 
	 ;может дети?
	 &sql(SELECT childs Into :cid From SQLUser.Man_childs Where Man=:id And childs=:testId)
	 Q:'SQLCODE 1
	 ;может родители?
	 &sql(SELECT parents Into :pid From SQLUser.Man_parents Where Man=:id And parents=:testId)
	 Q:'SQLCODE  1 
	 ;или друзья ?
	 &sql(SELECT friends Into :fid From SQLUser.Man_friends Where Man=:id And friends=:testId) 
	 Q:'SQLCODE  1 
	 Q  0 
}

<Storage name="Default">
<Data name="ManDefaultData">
<Value name="1">
<Value>%%CLASSNAME</Value>
</Value>
<Value name="2">
<Value>spouse</Value>
</Value>
<Value name="3">
<Value>name</Value>
</Value>
<Value name="4">
<Value>colorhead</Value>
</Value>
</Data>
<Data name="childs">
<Attribute>childs</Attribute>
<Structure>subnode</Structure>
<Subscript>"childs"</Subscript>
</Data>
<Data name="friends">
<Attribute>friends</Attribute>
<Structure>subnode</Structure>
<Subscript>"friends"</Subscript>
</Data>
<Data name="parents">
<Attribute>parents</Attribute>
<Structure>subnode</Structure>
<Subscript>"parents"</Subscript>
</Data>
<DataLocation>^User.ManD</DataLocation>
<DefaultData>ManDefaultData</DefaultData>
<ExtentSize> 100000 </ExtentSize>
<IdLocation>^User.ManD</IdLocation>
<IndexLocation>^User.ManI</IndexLocation>
<StreamLocation>^User.ManS</StreamLocation>
<Type>%Library.CacheStorage</Type>
</Storage>

/// "Клуб", содержащий объекты "Член", ссылающиеся на "Человека"
Class User.Club Extends (%Persistent, %Populate)
{
/// например, "любителей подводного лова" 
Property name As %String;
/// члены клуба
Property members As list Of User.Man;

/// например, для "любителей подводного лова" получить информацию о "Человеках" их близкого окружения. 
Query taburet4Kolesov(clubId As %String) As %SQLQuery {
	Select members,Man.ID as mid, Man.name as mname, colorhead
	From club_members Inner Join Man on Man_IsInAround(members,Man.ID)= 1 
	Where club= 1 
}

<Storage name="Default">
<Data name="ClubDefaultData">
<Value name="1">
<Value>%%CLASSNAME</Value>
</Value>
<Value name="2">
<Value>name</Value>
</Value>
</Data>
<Data name="members">
<Attribute>members</Attribute>
<Structure>subnode</Structure>
<Subscript>"members"</Subscript>
</Data>
<DataLocation>^User.ClubD</DataLocation>
<DefaultData>ClubDefaultData</DefaultData>
<ExtentSize> 1000 </ExtentSize>
<IdLocation>^User.ClubD</IdLocation>
<IndexLocation>^User.ClubI</IndexLocation>
<StreamLocation>^User.ClubS</StreamLocation>
<Type>%Library.CacheStorage</Type>
</Storage>
}