Class DATA.CORE.Kernel Extends (%Populate, %XML.Adaptor, %ZEN.DataModel.Adaptor) [ Abstract, Inheritance = right ]
{

/// системная дата записи
Property recordDate As %Date(ZENHIDDEN = 1, ZENLABEL = "Дата зипису") [ InitialExpression = {+$H} ];

/// системная дата редактирования
Property openLog [ MultiDimensional, Private ];

/// пользователь сделавший запись
Property userID As DATA.SYSTEM.USERS(ZENHIDDEN = 1, ZENLABEL = "Користувач виконавший запис");

Method %OnOpen() As %Status [ Private, ServerOnly = 1 ]
{
 s classname = ..%ClassName(1)

 s cdef = ##class(%Dictionary.ClassDefinition).%OpenId(classname)
 s pp = $zobjclassmethod(classname, "%Open" , ..%Oid())

 // get list of properties
 s count = cdef.Properties.Count()
 For i = 1:1:count {
   s ..openLog(..%Oid(),cdef.Properties.GetAt(i).Name)= $zobjproperty(pp, cdef.Properties.GetAt(i).Name)
 }

  Quit $$$OK
}

Method %OnAfterSave(insert As %Boolean) As %Status
{
 q:insert=1 $$$OK

 s classname = ..%ClassName(1)
 s ts = $zts

 s cdef = ##class(%Dictionary.ClassDefinition).%OpenId(classname)
 s pp = $zobjclassmethod(classname, "%Open" , ..%Oid())

 // get list of properties
 s count = cdef.Properties.Count()
 For i = 1:1:count {
   s oldval = $g(..OpenLog(..%Oid(),cdef.Properties.GetAt(i).Name))
   s newval = $zobjproperty(pp, cdef.Properties.GetAt(i).Name)

   if oldval'=newval
   {
     s ^SaveLog(ts, ..%Oid(), cdef.Properties.GetAt(i).Name, "old") =  oldval 
     s ^SaveLog(ts, ..%Oid(), cdef.Properties.GetAt(i).Name, "new") =  newval 
   }

 }

 Quit $$$OK
}


}