Index: vhCARETAKER.mac.rou
===================================================================
diff -u -r52491 -r53297
--- vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 52491)
+++ vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 53297)
@@ -396,7 +396,8 @@
 OpkuisLogging		; Verwijderen oude items vanuit logging
 	try { 
  		Do InitRuntimeContext
-		do ##class(vhLib.Logger).ClearOldLogItems()
+		Do ##class(vhLib.Logger).ClearOldLogItems()
+		Do ##class(AXdata.AifMessage.MessageRepository).%New().VerwijderOudeMessageData()
 	}
 	catch(Exceptie) {
 		do OnError		
Index: AXdata/AifMessage/MessageRepository.cls.xml
===================================================================
diff -u -r42481 -r53297
--- AXdata/AifMessage/MessageRepository.cls.xml	(.../MessageRepository.cls.xml)	(revision 42481)
+++ AXdata/AifMessage/MessageRepository.cls.xml	(.../MessageRepository.cls.xml)	(revision 53297)
@@ -28,6 +28,30 @@
 <Implementation><![CDATA[	quit ..GeefViaFilter("SubjectId = ? AND Command = ?",$listbuild(SubjectId,Command))
 ]]></Implementation>
 </Method>
+
+<Method name="VerwijderOudeMessageData">
+<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 AXdata_AifMessage.Message WHERE Request_TimeStamp<=?"
+	Do ..VerwijderMessageDataRecords(QueryString, OldTimeStamp)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderMessageDataRecords">
+<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(AXdata.AifMessage.Message).%DeleteId(ResultSet.GetDataByName("ID"))
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/common/LogItemData.cls.xml
===================================================================
diff -u -r29059 -r53297
--- DOM/common/LogItemData.cls.xml	(.../LogItemData.cls.xml)	(revision 29059)
+++ DOM/common/LogItemData.cls.xml	(.../LogItemData.cls.xml)	(revision 53297)
@@ -34,7 +34,7 @@
 
 <Method name="ZetVolledigeOmschrijving">
 <FormalSpec>VolledigeOmschrijving:%GlobalCharacterStream</FormalSpec>
-<Implementation><![CDATA[	Set ..VolledigeOmschrijving = VolledigeOmschrijving
+<Implementation><![CDATA[	Do ..VolledigeOmschrijving.CopyFrom(VolledigeOmschrijving)
 ]]></Implementation>
 </Method>