Index: TECH/Error.inc.rou
===================================================================
diff -u -r338 -r344
--- TECH/Error.inc.rou	(.../Error.inc.rou)	(revision 338)
+++ TECH/Error.inc.rou	(.../Error.inc.rou)	(revision 344)
@@ -39,7 +39,7 @@
 #define chkRequiredParameter(%p)                 If '$length($get(%p)) set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("%p is vereist") do ##class(TECH.ExceptionHandler).Throw(Exception)
 #define chkIsObject(%obj)                        If '$isobject(%obj) set Exception = ##class(TECH.Exceptions.ObjectExpectedException).%New("%obj is geen object") do ##class(TECH.ExceptionHandler).Throw(Exception)
 #define chkValidateObject(%obj)                  $$$chkIsObject(%obj) Set sc=%obj.%ValidateObject()  If $$$ISERR(sc) set Exception = ##class(TECH.Exceptions.StatusException).%New($$$errObjectValidationFailed,"%p is niet geldig",sc) do ##class(TECH.ExceptionHandler).Throw(Exception)
-#define chkValidateDataType(%dt,%p)				 if '##class(%dt).IsValid(%p) $$$ThrowError($$$errInvalidInput,%p)	
+#define chkValidateDataType(%dt,%p)				 if '##class(%dt).IsValid(%p) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Ongeldige input: "_%p)	
 #define chkMaxLength(%var,%maxlength)			 if $length(%var) > %maxlength set Exception = ##class(TECH.Exceptions.InvalidInputException).%New(%var_": "_$length(%var)_">"_%maxlength) do ##class(TECH.ExceptionHandler).Throw(Exception)
  
 #define CreateStdErrorObject					 set %vhLastError = ##class(TECH.Error.ErrorObject).%New()