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>