USER>set h=##class(Test.Human).%New()

/// описание базового класса человек
Class Test.Human Extends %Persistent

{

/// Имя и фамилия человека
Property Name As %String;

/// Дата рождения человека
Property DateOfBirth As %Date;

/// Возраст человека
Property Age As %Integer [ Calculated ];

Method AgeGet() As %Integer [ ServerOnly = 1 ]
{
  Quit ""
}

<Storage name="Default">
<Data name="HumanDefaultData">
<Value name="1">
<Value>%%CLASSNAME</Value>
</Value>
<Value name="2">
<Value>Name</Value>
</Value>
<Value name="3">
<Value>DateOfBirth</Value>
</Value>
</Data>
<DataLocation>^Test.HumanD</DataLocation>
<DefaultData>HumanDefaultData</DefaultData>
<IdLocation>^Test.HumanD</IdLocation>
<IndexLocation>^Test.HumanI</IndexLocation>
<StreamLocation>^Test.HumanS</StreamLocation>
<Type>%Library.CacheStorage</Type>
</Storage>
}