Index: TECH/ObjectUtils/ObjectConvertData.cls.xml
===================================================================
diff -u -r2210 -r2213
--- TECH/ObjectUtils/ObjectConvertData.cls.xml	(.../ObjectConvertData.cls.xml)	(revision 2210)
+++ TECH/ObjectUtils/ObjectConvertData.cls.xml	(.../ObjectConvertData.cls.xml)	(revision 2213)
@@ -21,6 +21,17 @@
 	do ..Conversions.Insert(Conversion)
 ]]></Implementation>
 </Method>
+
+<Method name="AddInputValidation">
+<FormalSpec>PropertyFrom:%String</FormalSpec>
+<Implementation><![CDATA[
+	set Conversion = ##class(TECH.ObjectUtils.ObjectConverter.Conversion).%New()
+	set Conversion.PropertyFrom = PropertyFrom
+	set Conversion.PropertyTo = "<SKIP>"
+	
+	do ..Conversions.Insert(Conversion)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: TECH/ObjectUtils/impl/ObjectConverter.cls.xml
===================================================================
diff -u -r2209 -r2213
--- TECH/ObjectUtils/impl/ObjectConverter.cls.xml	(.../ObjectConverter.cls.xml)	(revision 2209)
+++ TECH/ObjectUtils/impl/ObjectConverter.cls.xml	(.../ObjectConverter.cls.xml)	(revision 2213)
@@ -8,12 +8,25 @@
 <Private>1</Private>
 </Property>
 
+<Property name="InputValidator">
+<Type>TECH.ObjectUtils.impl.ObjectConverter.Validator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OutputValidator">
+<Type>TECH.ObjectUtils.impl.ObjectConverter.Validator</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
+<FormalSpec>InputValidator:TECH.ObjectUtils.impl.ObjectConverter.Validator,OutputValidator:TECH.ObjectUtils.impl.ObjectConverter.Validator</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	set ..InputValidator = $$$Implementation(InputValidator,##class(TECH.ObjectUtils.impl.ObjectConverter.Validator).%New())
+	set ..OutputValidator = $$$Implementation(OutputValidator,##class(TECH.ObjectUtils.impl.ObjectConverter.Validator).%New())
 	set ..Executer = ##class(TECH.Executer.impl.ClassMethod).%New()
 	Quit $$$OK
 ]]></Implementation>
@@ -32,6 +45,8 @@
 			#dim Output As %CacheString = ""
 		
 			do ..Validate(ObjectFrom,Conversion,1)
+			
+			continue:( Conversion.PropertyTo = "<SKIP>" )
 		    
 		    #dim Input As %CacheString = $property(ObjectFrom,Conversion.PropertyFrom)
 		    
@@ -44,7 +59,6 @@
 			set $property(ObjectTo,Conversion.PropertyTo) = Output
 			
 			do ..Validate(ObjectTo,Conversion,0)
-			
 
 		} catch {
 			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
@@ -66,7 +80,13 @@
 <Implementation><![CDATA[
 	#dim PropertyName As %CacheString = $select(IsInput:Conversion.PropertyFrom,1:Conversion.PropertyTo)
 	#dim PropertyValue As %CacheString = $property(Object,PropertyName)
-	if ($$$HasLength(PropertyValue)) && ($$$Not($method(Object,PropertyName_"IsValid",PropertyValue))) {
+	
+	#dim IsValid As %Boolean = 0
+	
+	if IsInput set IsValid = ..InputValidator.IsValid(Object,PropertyName,PropertyValue)
+	else  set IsValid = ..OutputValidator.IsValid(Object,PropertyName,PropertyValue)
+	
+	if $$$Not(IsValid) { 
 		set Exception = ##class(TECH.ObjectUtils.ObjectConverterPropertyException).%New($select(IsInput:"input",1:"output"),$classname(Object),PropertyName,PropertyValue,Conversion.PropertyFrom,Conversion.PropertyTo)
 		do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
Index: TECH/ObjectUtils/impl/ObjectConverter/Validator.cls.xml
===================================================================
diff -u
--- TECH/ObjectUtils/impl/ObjectConverter/Validator.cls.xml	(revision 0)
+++ TECH/ObjectUtils/impl/ObjectConverter/Validator.cls.xml	(revision 2213)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.ObjectUtils.impl.ObjectConverter.Validator">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="IsValid">
+<FormalSpec>Object:%CacheString,PropertyName:%String,Value:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit (Value="") || ($method(Object,PropertyName_"IsValid",Value))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>