Index: AXimpl/MessageInProcessor.cls.xml
===================================================================
diff -u -r44097 -r44223
--- AXimpl/MessageInProcessor.cls.xml	(.../MessageInProcessor.cls.xml)	(revision 44097)
+++ AXimpl/MessageInProcessor.cls.xml	(.../MessageInProcessor.cls.xml)	(revision 44223)
@@ -48,20 +48,16 @@
 		#dim KlasseNaam As %String = ..ConfigIn.GetRequestEnvelope(SubPath)
 		#dim Message As %CacheString = ..XmlCorrelater.GeefObjectVanBestand(FullFilename, KlasseNaam, "Envelope")
 
-		#dim Convertor As AXimpl.Converter = ..ConfigIn.GetConverter(SubPath)
-		Do Convertor.Convert(Message)
+		#dim Converter As AXimpl.Converter = ..ConfigIn.GetConverter(SubPath)
+		Do Converter.Convert(Message)
 		
 		Do ..FileAPI.DeleteFile(FullFilename)
 		
 	} Catch {
 		#dim Exception As TECH.IException = ##class(TECH.ExceptionHandler).Catch()
-		Do ##class(vhLib.Logger).%New().Error("Verwerking inkomende AX bestand", Exception.GeefOmschrijving())
-
-		#dim ErrorPath As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("AX_IF_IN_ErrorPath")
-		#dim ErrorFilename As %String = ##class(TECH.Files).AppendFile(ErrorPath,##class(TECH.File).GetFilename(FullFilename))
+		Do ..LogException(FullFilename, Exception)
 		Do ..EventRaiser.RaiseCorruptedResponseReceivedEvent(FullFilename,..FileAPI.GeefFileReader(FullFilename).GeefStream())
-
-		Do ..FileAPI.MoveFile(FullFilename,ErrorFilename)
+		Do ..MoveFileToErrorMap(FullFilename)
 	}
 ]]></Implementation>
 </Method>
@@ -81,6 +77,26 @@
 	Quit SubPath
 ]]></Implementation>
 </Method>
+
+<Method name="MoveFileToErrorMap">
+<FormalSpec>FullFilename:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim ErrorPath As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("AX_IF_IN_ErrorPath")
+	#dim ErrorFilename As %String = ##class(TECH.Files).AppendFile(ErrorPath,##class(TECH.File).GetFilename(FullFilename))
+	Do ..FileAPI.MoveFile(FullFilename,ErrorFilename)
+]]></Implementation>
+</Method>
+
+<Method name="LogException">
+<FormalSpec>FullFilename:%String,Exception:TECH.IException</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim ExceptionMessage As %String = "Filename : " _FullFilename _$$$CRLF
+	Set ExceptionMessage = ExceptionMessage _Exception.GeefOmschrijving()
+	Do ##class(vhLib.Logger).%New().Error("Verwerking inkomende AX bestand", ExceptionMessage)
+]]></Implementation>
+</Method>
 </Class>