Index: DOM/VKP/impl/EindPersonalityBepaler.cls.xml
===================================================================
diff -u -r51259 -r51260
--- DOM/VKP/impl/EindPersonalityBepaler.cls.xml	(.../EindPersonalityBepaler.cls.xml)	(revision 51259)
+++ DOM/VKP/impl/EindPersonalityBepaler.cls.xml	(.../EindPersonalityBepaler.cls.xml)	(revision 51260)
@@ -2,6 +2,45 @@
 <Export generator="Cache" version="24">
 <Class name="DOM.VKP.impl.EindPersonalityBepaler">
 <Super>TECH.RegisteredObject</Super>
+
+<Property name="PersonalityRepository">
+<Type>DOM.common.impl.PersonalityRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..PersonalityRepository = ##class(DOM.common.impl.PersonalityRepository).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefEindPersonality">
+<FormalSpec>OorsprongKettingString:%String</FormalSpec>
+<ReturnType>DOM.common.Personality</ReturnType>
+<Implementation><![CDATA[
+	#dim Personality As DOM.common.Personality
+	Try {	
+		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())
+	}
+	
+	Quit Personality
+]]></Implementation>
+</Method>
 </Class>