Версионное хранение данных в Persistent-классах Caché

/// This callback method is invoked by the <METHOD>%Save</METHOD> method to 
/// provide notification that the object is being saved. It is called before 
/// any data is written to disk.
/// 
/// <P><VAR>insert</VAR> will be set to 1 if this object is being saved for the first time.
/// 
/// <P>If this method returns an error then the call to <METHOD>%Save</METHOD> will fail.
Method %OnBeforeSave(insert As %Boolean) As %Status [ Final, Private ]
{
  q:insert $$$OK
  q:’..%ObjectModified() $$$OK
  q ..SaveLastRevision(..%Id())
}

/// This callback method is invoked by the <METHOD>%Delete</METHOD> method to 
/// provide notification that the object specified by <VAR>oid</VAR> is being deleted.
/// 
/// <P>If this method returns an error then the object will not be deleted.
ClassMethod %OnDelete(oid As %ObjectIdentity) As %Status [ Final, Private ]
{
  s id=$lg(oid) q:’id 0
  d ..SaveLastRevision(id)
  q $$$OK
}

ClassMethod GetDataLocation() As %String
{
  s ix=##Class(%ClassDefinition).%OpenId(..%ClassName())
  q:ix.Storages.Count()’=1 "" ; sofisticated storages not supported
  q ix.Storages.GetAt(1).DataLocation
}

/// Returns next or previuos (similar to $o()) id of saved revision
Method OrderIdSave(ids As %String = "", Direction As %String = 1) As %String
{
  s dl=..GetDataLocation() q:dl="" ""
  s id=..%Id() q:’id ""
  q $o(@dl@("History",id,ids),Direction)
}

/// Returns timestamp of saved revision
Method GetTimeStampByIdSave(ids As %String) As %String
{
  s dl=..GetDataLocation() q:dl="" ""
  s id=..%Id() q:’id ""
  q:$d(@dl@("History",id,ids))<10 ""
  q $o(@dl@("History",id,ids,""))
}

/// Makes revision saved at or after specified time actual again
/// and load it. All unsaved changes will be lost.
Method MakeActual(timestamp As %StringTimeStamp) As %Status
{
  s dl=..GetDataLocation() q:dl="" 0 ; unsupported storage
  s id=..%Id() q:’id 0 ; never saved
  s zts=timestamp
  ; searching saved revision with zts>=timestamp
  i $d(@dl@("History","ZI",id,zts)) s ids=$o(@dl@("History","ZI",id,zts,""),-1)
  e  s zts=$o(@dl@("History","ZI",id,"")) q:zts="" 0  s ids=$o(@dl@("History","ZI",id,zts,""))
  q $s(ids:..MakeActualByIdSave(ids),1:0)
}

/// Makes saved revision actual again and load it by idsave.
/// All unsaved changes will be lost.
Method MakeActualByIdSave(ids As %String) As %Status
{
  s dl=..GetDataLocation() q:dl="" 0 ; unsupported storage
  s id=..%Id() q:’id 0 ; never saved
  q:$d(@dl@("History",id,ids))<10 0
  s zts=$o(@dl@("History",id,ids,""))  q:zts="" 0
  d ..SaveLastRevision(id)
  k @dl@(id) m @dl@(id)=@dl@("History",id,ids,zts)
  d ..%Reload() d ..%SetModified(1)
  q ..%Save() ; save again to make indices correct
}

/// returns next or previous (similar to $o()) id of deleted record
ClassMethod OrderDeletedId(id As %String = "", Direction As %String = 1) As %String [ Final ]
{
  s dl=..GetDataLocation() q:dl="" 0
  f  s id=$o(@dl@("History",id),Direction) q:id=""  q:’$d(@dl@(id))
  q id
}

ClassMethod SaveLastRevision(id) As %Status [ Final ]
{
  s id=$g(id) q:’id $$$OK ; no previous revision to save
  s dl=..GetDataLocation() q:dl="" $$$OK
  s ids=$i(@dl@("History",id)),zts=$zu(188) ; $ZTIMESTAMP in local timezone
  m @dl@("History",id,ids,zts)=@dl@(id)
  s @dl@("History","ZI",id,zts,ids)=""
  q $$$OK
}

ClassMethod UnDeleteId(id As %String) As %Status [ Final ]
{
  s dl=..GetDataLocation() q:dl="" 0
  q:’$g(id) 0
  q:$d(@dl@(id)) 0 ; not deleted
  q:$d(@dl@("History",id))’>1 0 ; no saved revisions
  ; searching latest revision
  s ids=$o(@dl@("History",id,""),-1) q:’ids 0
  s zts=$o(@dl@("History",id,ids,""),-1) q:zts="" 0
  m @dl@(id)=@dl@("History",id,ids,zts)
  s ix=..%OpenId(id) d ix.%SetModified(1) s res=ix.%Save() k ix
  q res
}

Trigger OnBeforeDeleteForSQL [ Event = DELETE ]
{
  n id,ix s id={ID} q:’id
  d ..SaveLastRevision(id)
  q
}

Trigger OnBeforeSaveForSQL [ Event = UPDATE ]
{
  n id,ix s id={ID} q:’id
  d ..SaveLastRevision(id)
  q
}

}

Property TestArray As array of %String(MAXLEN = 255); // [ Collection = array ];

Property TestList As list of %String; // [ Collection = list ];

Property TestVal As %String(MAXLEN = 255) [ Required ];

}