TECH.RegisteredObject TECH.Executer.impl.ClassMethod 1 1 1 %Status 1 ObjectFrom:%Base,ObjectTo:%Base,ConvertOptions:TECH.ObjectUtils.ObjectConvertData 0 { do ..Executer.Stream(Conversion.Script,.Output,Input) } else { set Output = Input } set $property(ObjectTo,Conversion.PropertyTo) = Output do ..Validate(ObjectTo,Conversion.PropertyTo,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,PropertyName:%String,IsInput:%Boolean 1