TECH.Mockable DOM.common.impl.PersonalityRepository 1 initvalue:%CacheString 1 1 %Status 1 OorsprongKettingString:%String,FallBackKlantId:%String="" DOM.common.Personality = 2) && ($Piece($List(OorsprongKetting, $ListLength(OorsprongKetting) - 1),",", 1) = ##class(DOM.common.enu.Personality).BlumPL())) If (IsPersonalityBlumPolen) { Set PersonalityId = ##class(DOM.common.enu.Personality).BlumPL() } Else { 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(TECH.ExceptionHandler).Rethrow(Exception) } If ##class(TECH.StringUtils).Equals(PersonalityId, "", "()") { Set PersonalityId = ##class(DOM.common.enu.Personality).VanHoecke() } Set Personality = ..PersonalityRepository.GeefViaID(PersonalityId) } Quit Personality ]]> FallBackKlantId:%String 1 DOM.common.Personality OorsprongKettingString:%String 1 %List