// Накопительный реестр
class propHist Extends %Persistent [ ClassType = persistent, ProcedureBlock ] {
   
 /// нечто, позволяющее однозначно ОТЛИЧАТЬ этот объект 
  /// (напр., какое-то изделие) со всеми его версиями от остальных объектов такого же рода; 
   /// !!! Это _НЕ_ свойство ID, присваиваемое в Cache' автоматически при
добавлении новой строки в таблицу (для классов-наследников %Persistent);
  /// очевидно, значения этого св-ва для ОДНОГО и ТОГО ЖЕ физического объекта (напр., "амортизатора") будут 
 /// в этом реестре ОДИНАКОВЫМИ:
  property someNativeAttr As %???; 

   property versArticul as %String; // первое версионное св-во: артикул
   property versName as %String; // второе верс. св-во: название
   property versPlace as %Float; // третье верс. св-во: место хранения изделия
   // другие верс. свойства
}

// Реестр с НЕ-версионными атрибутами и ссылками на "САМЫЕ АКТУАЛЬНЫЕ" атрибуты
class propLast Extends %Persistent [ ClassType = persistent, ProcedureBlock ] {
   property nonVersProp1 as %String;
   property nonVersProp2 as %Float;
   // другие _НЕ_ версионные свойства, НЕ меняющиеся после созд-я объекта

   /// ссылка на ПОСЛЕДНЮЮ  версию набора атрибутов (для поиска на текущий момент времени):
  Property VLast As propHist;
}

class docData Extends %Persistent [ ClassType = persistent, ProcedureBlock ] {
  property createUser as %UserList;    // кто создал запись
  property writeUser as %UserList;      // кто изменил запись
  property Qty as %Float,
  property Cost as %Float,
  property updTime as %Timestamp;    // момент изменения
  property V4UpdTime as propHist;   // ссылка на версию НА МОМЕНТ updTime
}

Select top  100  
           VLast.versActicul,  -- артикул изделия, САМАЯ АКТУАЛЬНАЯ версия
           VLast.versName,   -- название изделия, САМАЯ АКТУАЛЬНАЯ версия
           Vlast.versPlace,     -- место хранения изделия, САМАЯ АКТУАЛЬНАЯ версия
           nonVersProp1, nonVersProp2
from propLast
where VLast.versActicul %STARTSWITH :var4Articul and  …
order by …

Select V4UpdTime.versArticul, V4UpdTime.versName, V4UpdTime.versPlace, Qty,Cost, createUser,writeUser
  From docData
Where ID=…

method %IsModified() returns %Integer 
Returns true ( 1 ) if this instance has been modified, otherwise false ( 0 ). 

method %ObjectModified() returns %Integer 
This method is somewhat similar to %IsModified but it also checks to see if
swizzled references would cause the object to become modified should they
 be serialized.... (далее много чего еще написано)

s obj1=##class(priceList).%OpenId( 123456 )   w
>obj1=<OBJECT REFERENCE>[ 1 @User.priceList]
w obj1.Name
>ПЕРЕХОДНИК С  220  НА 110В
s obj1.Name="ЛОШАДЬ ПРЖЕВАЛЬСКОГО"  
w obj1.%IsModified()
> 1 
w obj1.%ObjectModified()
> 1 

method %SetModified(value As %Integer) returns %Status 
Setting the modified state of the object. 

method %ValidateObject(force As %Integer =  0 ) returns %Status 
This method performs automatic validation of an object's attribute values. It is 
alled by %Save before persistent objects are stored to the database