TECH.RegisteredObject TECH.ObjectUtils.impl.ObjectConverter.Validator 1 TECH.ObjectUtils.impl.ObjectConverter.Validator 1 InputValidator:TECH.ObjectUtils.impl.ObjectConverter.Validator,OutputValidator:TECH.ObjectUtils.impl.ObjectConverter.Validator 1 1 %Status 1 ObjectFrom:%Base,ObjectTo:%Base,ConvertOptions:TECH.ObjectUtils.ObjectConvertData " ) #dim Input As %CacheString = $property(ObjectFrom,Conversion.PropertyFrom) if Conversion.Script.Size > 0 { do ..ExecuteStream(Conversion.Script,.Output,Input,ObjectFrom,ObjectTo) } else { set Output = Input } set $property(ObjectTo,Conversion.PropertyTo) = Output do ..Validate(ObjectTo,Conversion,0) } catch { #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() do Exceptions.Insert(Exception) } } if Exceptions.Count() { set Exception = ##class(TECH.ObjectUtils.ObjectConverterException).%New("Failed to convert '"_$classname(ObjectFrom)_"' to "_$classname(ObjectTo) ) do Exception.VoegToeInnerExcepties(Exceptions) do ##class(TECH.ExceptionHandler).Throw(Exception) } ]]> Object:%Base,Conversion:TECH.ObjectUtils.ObjectConverter.Conversion,IsInput:%Boolean 1 0