Index: DOM/VKP/impl/EindPersonalityBepaler.cls.xml
===================================================================
diff -u -r71640 -r71642
--- DOM/VKP/impl/EindPersonalityBepaler.cls.xml	(.../EindPersonalityBepaler.cls.xml)	(revision 71640)
+++ DOM/VKP/impl/EindPersonalityBepaler.cls.xml	(.../EindPersonalityBepaler.cls.xml)	(revision 71642)
@@ -47,6 +47,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefPieceUitOorsprongKetting">
+<FormalSpec>OorsprongKettingString:%String,WelkePiece:%Integer=1,WelkNiveau:%Integer=1</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Piece As %String = ""
+	If $$$Not(OorsprongKettingString = "") {
+		Try {
+			#dim OorsprongKetting As %List = ..GeefOorsprongKettingLijst(OorsprongKettingString)
+			Set Piece = $Piece($List(OorsprongKetting, WelkNiveau),",", WelkePiece)
+		} Catch {
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			Do ##class(vhLib.Logger).%New().Warning("EindPersonalityBepaler","Er was een probleem met het verwerken van oorsprongketting '"_OorsprongKettingString_"'")
+			Do ##class(TECH.ExceptionHandler).Rethrow(Exception)
+		}
+	}
+	
+	Quit Piece
+]]></Implementation>
+</Method>
+
 <Method name="GeefFallBackPersonality">
 <FormalSpec>FallBackKlantId:%String</FormalSpec>
 <Private>1</Private>