Index: TECH/XMLCorrelater.cls.xml
===================================================================
diff -u -r1454 -r1466
--- TECH/XMLCorrelater.cls.xml	(.../XMLCorrelater.cls.xml)	(revision 1454)
+++ TECH/XMLCorrelater.cls.xml	(.../XMLCorrelater.cls.xml)	(revision 1466)
@@ -10,21 +10,30 @@
 		#dim Object As %CacheString
 		Set XMLReader = ##class(%XML.Reader).%New()
 		#dim Status As %Status = XMLReader.OpenFile(BestandNaam)
-		If $$$ISOK(Status){
-			Do XMLReader.Correlate("CustomerInfo","APPS.VKP.Korting.xml.CustomerInfo") 
-			#dim sc As %Status
-			Do XMLReader.Next(.Object,.sc)
-			If $$$ISERR(sc)	{
-				Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kon bestand '"_BestandNaam_"' niet correlaten naar object van het type '"_ObjectKlasseNaam_"'."_$C(13,10)_$$ParseStatus^vhLib(sc)))
-			}
-		}Else{
-			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kon bestand '"_BestandNaam_"' niet openen als XML."_$C(13,10)_$$ParseStatus^vhLib(Status)))
-		}
+		Do ..ControleerStatus(Status,"Kon bestand '"_BestandNaam_"' niet openen als XML.")
+		
+		Do XMLReader.Correlate(XMLRootTag,ObjectKlasseNaam)
+		#dim sc As %Status
+		Do XMLReader.Next(.Object,.sc)
+		Do ..ControleerStatus(Status,"Kon bestand '"_BestandNaam_"' niet correlaten naar object van het type '"_ObjectKlasseNaam_"'.")
+			
 		Do XMLReader.Close()
 		Set XMLReader = ""
 		Quit Object
 ]]></Implementation>
 </Method>
+
+<Method name="ControleerStatus">
+<FormalSpec>Status:%Status,Message:%String,Stream:%GlobalCharacterStream=##class(%GlobalCharacterStream).%New()</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If $$$ISERR(Status) {
+		#dim Exception As TECH.Exceptions.StatusException = ##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),Message,Status)
+		do Exception.VoegToeExtraInfo(Stream)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)	
+	}
+]]></Implementation>
+</Method>
 </Class>