Index: vhTest/Fake/DOM/VKP/impl/EindPersonalityBepaler.cls.xml
===================================================================
diff -u -r51263 -r71642
--- vhTest/Fake/DOM/VKP/impl/EindPersonalityBepaler.cls.xml	(.../EindPersonalityBepaler.cls.xml)	(revision 51263)
+++ vhTest/Fake/DOM/VKP/impl/EindPersonalityBepaler.cls.xml	(.../EindPersonalityBepaler.cls.xml)	(revision 71642)
@@ -13,6 +13,20 @@
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
+
+<Method name="GeefPieceUitOorsprongKetting">
+<FormalSpec>OorsprongKettingString:%String,WelkePiece:%Integer=1,WelkNiveau:%Integer=1</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefTweedePersonality">
+<FormalSpec>OorsprongKettingString:%String,FallBackKlantId:%String=""</FormalSpec>
+<ReturnType>DOM.common.Personality</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
 </Class>
 
 
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>
Index: vhTest/Mock/DOM/VKP/impl/EindPersonalityBepaler.cls.xml
===================================================================
diff -u -r58718 -r71642
--- vhTest/Mock/DOM/VKP/impl/EindPersonalityBepaler.cls.xml	(.../EindPersonalityBepaler.cls.xml)	(revision 58718)
+++ vhTest/Mock/DOM/VKP/impl/EindPersonalityBepaler.cls.xml	(.../EindPersonalityBepaler.cls.xml)	(revision 71642)
@@ -21,6 +21,13 @@
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefEindPersonality",OorsprongKettingString,FallBackKlantId)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefPieceUitOorsprongKetting">
+<FormalSpec>OorsprongKettingString:%String,WelkePiece:%Integer=1,WelkNiveau:%Integer=1</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefPieceUitOorsprongKetting",OorsprongKettingString,WelkePiece,WelkNiveau)
+]]></Implementation>
+</Method>
 </Class>