Index: DOM/PARTIJ/impl/LegacyPartijAPI.cls.xml
===================================================================
diff -u -r54711 -r72770
--- DOM/PARTIJ/impl/LegacyPartijAPI.cls.xml	(.../LegacyPartijAPI.cls.xml)	(revision 54711)
+++ DOM/PARTIJ/impl/LegacyPartijAPI.cls.xml	(.../LegacyPartijAPI.cls.xml)	(revision 72770)
@@ -89,6 +89,35 @@
 	Quit Personality.GeefPrefix()_HandelKlantId
 ]]></Implementation>
 </Method>
+
+<Method name="GeefEindklantIdVolgensOorsprongKetting">
+<FormalSpec>OorsprongKetting:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim EindklantId As %String = ""
+	#dim OorsprongKettingLijst As %List = ..GeefOorsprongKettingLijst(OorsprongKetting)
+	
+	If ($ListLength(OorsprongKettingLijst) > 0) {
+		Set EindklantId = $Piece($List(OorsprongKettingLijst, 1),",", 2)
+		Set EindklantId = $Replace(EindklantId, " ", "")
+		Set EindklantId = $Replace(EindklantId, """", "")
+	}
+	
+	Quit EindklantId
+]]></Implementation>
+</Method>
+
+<Method name="GeefOorsprongKettingLijst">
+<FormalSpec>OorsprongKetting:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[
+	Set OorsprongKetting = $Replace(OorsprongKetting, "((", "")
+	Set OorsprongKetting = $Replace(OorsprongKetting, "))", "")
+			
+	Quit ##class(TECH.ListUtils).PiecesToListbuild(OorsprongKetting, "), (")
+]]></Implementation>
+</Method>
 </Class>