Index: DOM/VKP/impl/EindPersonalityBepaler.cls.xml
===================================================================
diff -u -r72827 -r72841
--- DOM/VKP/impl/EindPersonalityBepaler.cls.xml	(.../EindPersonalityBepaler.cls.xml)	(revision 72827)
+++ DOM/VKP/impl/EindPersonalityBepaler.cls.xml	(.../EindPersonalityBepaler.cls.xml)	(revision 72841)
@@ -26,28 +26,29 @@
 <Implementation><![CDATA[
 	#dim Personality As DOM.common.Personality
 	
-	If (OorsprongKettingString = ""){
+	If (OorsprongKettingString = "") {
 		Set Personality = ..GeefFallBackPersonality(FallBackKlantId)
 	} Else {
 		Try {
 			#dim OorsprongKetting As %List = ..GeefOorsprongKettingLijst(OorsprongKettingString)
-			#dim PersonalityID As %Integer
+			#dim PersonalityId As %Integer
+			#dim IsPersonalityBlumPolen As %Boolean = (($ListLength(OorsprongKetting) >= 2) && ($Piece($List(OorsprongKetting, $ListLength(OorsprongKetting) - 1),",", 1) = ##class(DOM.common.enu.Personality).BlumPL()))
 			
-			If (..IsOorsprongKettingVanBlumPolen(OorsprongKetting)) {
-				Set PersonalityID = $Piece($List(OorsprongKetting, $ListLength(OorsprongKetting) - 1),",", 1)
+			If (IsPersonalityBlumPolen) {
+				Set PersonalityId = ##class(DOM.common.enu.Personality).BlumPL()
 			} Else {
-				Set PersonalityID = $Piece($List(OorsprongKetting, 1),",", 1)
+				Set PersonalityId = $Piece($List(OorsprongKetting, 1),",", 1)
 			}
 		} 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(vhLib.Logger).%New().Warning("EindPersonalityBepaler","Er was een probleem met het verwerken van oorsprongketting '" _ OorsprongKettingString _ "'")
 			Do ##class(TECH.ExceptionHandler).Rethrow(Exception)
 		}
 		
-		If ##class(TECH.StringUtils).Equals(PersonalityID,"","()") {
-			Set PersonalityID = ##class(DOM.common.enu.Personality).VanHoecke()
+		If ##class(TECH.StringUtils).Equals(PersonalityId, "", "()") {
+			Set PersonalityId = ##class(DOM.common.enu.Personality).VanHoecke()
 		}
-		Set Personality = ..PersonalityRepository.GeefViaID(PersonalityID)
+		Set Personality = ..PersonalityRepository.GeefViaID(PersonalityId)
 	}
 	
 	Quit Personality
@@ -87,19 +88,6 @@
 	Quit ##class(TECH.ListUtils).PiecesToListbuild(OorsprongKettingString, "), (")
 ]]></Implementation>
 </Method>
-
-<Method name="IsOorsprongKettingVanBlumPolen">
-<FormalSpec>OorsprongKetting:%List</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim PersonalityIdBlumPolen As %Integer = ##class(DOM.common.enu.Personality).BlumPL()
-	
-	If (($ListLength(OorsprongKetting) >= 2) && ($Piece($List(OorsprongKetting, $ListLength(OorsprongKetting) - 1),",", 1) = PersonalityIdBlumPolen)) {
-		Quit $$$True
-	}
-	Quit $$$False
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/VKP/impl/EindPersonalityBepaler/GeefEindPersonality/Test.cls.xml
===================================================================
diff -u -r72827 -r72841
--- vhUnitTest/DOM/VKP/impl/EindPersonalityBepaler/GeefEindPersonality/Test.cls.xml	(.../Test.cls.xml)	(revision 72827)
+++ vhUnitTest/DOM/VKP/impl/EindPersonalityBepaler/GeefEindPersonality/Test.cls.xml	(.../Test.cls.xml)	(revision 72841)
@@ -73,6 +73,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Ketting met 2 items van BlumPolen (bv BlumPL -&gt; Van Hoecke)">
+<Implementation><![CDATA[
+	#dim Ketting As %String = "((48, ""blumpl_1234"", 255024), (1, ""K||7833"", 255025))"
+	
+	Do $$$AssertEquals(..VoerUit(Ketting).GeefID(), ##class(DOM.common.enu.Personality).BlumPL())
+]]></Implementation>
+</Method>
+
 <Method name="Test: Ketting met 3 items (bv Seefelder -&gt; Hein -&gt; Van Hoecke) geeft Seefelder">
 <Implementation><![CDATA[
 	#dim Ketting As %String = "((13, ""seefelder"", 1234), (11, ""hein_221"", 255024), (1, ""K||7833"", 255025))"