Index: DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml
===================================================================
diff -u -r51117 -r51262
--- DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml	(.../DataMBonAbstract.cls.xml)	(revision 51117)
+++ DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml	(.../DataMBonAbstract.cls.xml)	(revision 51262)
@@ -52,8 +52,8 @@
 <Private>1</Private>
 </Property>
 
-<Property name="PersonalityRepository">
-<Type>DOM.common.impl.PersonalityRepository</Type>
+<Property name="EindPersonalityBepaler">
+<Type>DOM.VKP.impl.EindPersonalityBepaler</Type>
 <Private>1</Private>
 </Property>
 
@@ -68,7 +68,7 @@
 	Set ..OrderApi = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
 	Set ..PersonalityViaOorsprongBepaler = ##class(DOM.VKP.impl.DataM.DataMOrder.PersonalityViaOorsprongBepaler).%New()
 	Set ..PartijApi = ##class(DOM.DomeinContext).Instance().GeefPartijAPI()
-	Set ..PersonalityRepository = ##class(DOM.common.impl.PersonalityRepository).%New()
+	Set ..EindPersonalityBepaler = ##class(DOM.VKP.impl.EindPersonalityBepaler).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -389,23 +389,9 @@
 <Method name="GeefEindPersonality">
 <ReturnType>DOM.common.Personality</ReturnType>
 <Implementation><![CDATA[
-	#dim Personality As DOM.common.Personality
-	Try {
-		#dim OorsprongKettingString As %String = $P(..NodeHoofding,"\",59)
-		
-		Set OorsprongKettingString = $Replace(OorsprongKettingString,"((","")
-		Set OorsprongKettingString = $Replace(OorsprongKettingString,"))","")
-		
-		#dim OorsprongKetting As %List = ##class(TECH.ListUtils).PiecesToListbuild(OorsprongKettingString, "), (")
-		
-		#dim PersonalityID As %Integer = $Piece($List(OorsprongKetting,1),",",1)
-		Set Personality = ..PersonalityRepository.GeefViaID(PersonalityID)
-	} Catch {
-		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		Set Personality = ..PersonalityRepository.GeefViaID(##class(DOM.common.enu.Personality).VanHoecke())
-	}
+	#dim EindPersonalityBepaler = ##class(DOM.VKP.impl.EindPersonalityBepaler).%New()
 	
-	Quit Personality
+	Quit ..EindPersonalityBepaler.GeefEindPersonality($Piece(..NodeHoofding,"\",59))
 ]]></Implementation>
 </Method>
 </Class>