Index: DOM/common/impl/LogItemRepository.cls.xml
===================================================================
diff -u
--- DOM/common/impl/LogItemRepository.cls.xml	(revision 0)
+++ DOM/common/impl/LogItemRepository.cls.xml	(revision 53304)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.common.impl.LogItemRepository">
+<Super>TECH.Persistentie.impl.Repository,AX.AifMessage.MessageRepository</Super>
+
+<Parameter name="DataClassName">
+<Type>%String</Type>
+<Default>DOM.common.impl.LogItem</Default>
+</Parameter>
+
+<Method name="VerwijderOudeLogItems">
+<Implementation><![CDATA[
+	#dim OldTimeStamp As %TimeStamp = ##class(TECH.Context).Instance().GeefDateTimeAPI().TimeStampBereken($$$CurrentTimeStamp, -30, ##class(TECH.enu.DatePart).Dag())
+	#dim QueryString As %String
+	
+	Set QueryString = "SELECT %NOLOCK ID FROM DOM_common_impl.LogItem WHERE TijdStip<=?"
+	Do ..VerwijderLogItemRecords(QueryString, OldTimeStamp)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderLogItemRecords">
+<FormalSpec>QueryString:%String,TimeStamp:%TimeStamp</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Query = ##class(TECH.DynamicQuery).%New(QueryString,$ListBuild(TimeStamp))
+	Set Query.RuntimeMode = ##class(TECH.enu.ResultSetRuntimeMode).Logical()
+
+	#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetResultSet(Query)
+	While ResultSet.Next() {
+		Do ##class(DOM.common.impl.LogItem).%DeleteId(ResultSet.GetDataByName("ID"))
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhCARETAKER.mac.rou
===================================================================
diff -u -r53297 -r53304
--- vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 53297)
+++ vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 53304)
@@ -398,6 +398,7 @@
  		Do InitRuntimeContext
 		Do ##class(vhLib.Logger).ClearOldLogItems()
 		Do ##class(AXdata.AifMessage.MessageRepository).%New().VerwijderOudeMessageData()
+		Do ##class(DOM.common.impl.LogItemRepository).%New().VerwijderOudeLogItems()
 	}
 	catch(Exceptie) {
 		do OnError