Index: AXimpl/MessageInProcessor.cls.xml
===================================================================
diff -u -r44095 -r44097
--- AXimpl/MessageInProcessor.cls.xml	(.../MessageInProcessor.cls.xml)	(revision 44095)
+++ AXimpl/MessageInProcessor.cls.xml	(.../MessageInProcessor.cls.xml)	(revision 44097)
@@ -42,13 +42,9 @@
 <FormalSpec>FullFilename:%String</FormalSpec>
 <Implementation><![CDATA[
 	Try {
-		#dim SubPath As %String = ##class(TECH.StringUtils).Replace(FullFilename,##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_IF_IN_RequestPath"),"")
-		
-		#dim FileName As %String = ##class(TECH.File).GeefBestandsnaam(SubPath)
-		Set SubPath = ##class(TECH.StringUtils).Replace(SubPath,"\"_FileName,"")
-		Set SubPath = $Extract(SubPath,2,*)
-		Set SubPath = ##class(TECH.StringUtils).Replace(SubPath,"\","/")
 
+		#dim SubPath As %String = ..ExtractSubPath(FullFilename)
+
 		#dim KlasseNaam As %String = ..ConfigIn.GetRequestEnvelope(SubPath)
 		#dim Message As %CacheString = ..XmlCorrelater.GeefObjectVanBestand(FullFilename, KlasseNaam, "Envelope")
 
@@ -69,6 +65,22 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="ExtractSubPath">
+<FormalSpec>FullFilename:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim SubPath As %String = ##class(TECH.StringUtils).Replace(FullFilename,##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_IF_IN_RequestPath"),"")
+	
+	#dim FileName As %String = ##class(TECH.File).GeefBestandsnaam(SubPath)
+	Set SubPath = ##class(TECH.StringUtils).Replace(SubPath,"\"_FileName,"")
+	Set SubPath = $Extract(SubPath,2,*)
+	Set SubPath = ##class(TECH.StringUtils).Replace(SubPath,"\","/")
+	
+	Quit SubPath
+]]></Implementation>
+</Method>
 </Class>