Index: TECH/Error.inc.rou
===================================================================
diff -u -r995 -r1019
--- TECH/Error.inc.rou	(.../Error.inc.rou)	(revision 995)
+++ TECH/Error.inc.rou	(.../Error.inc.rou)	(revision 1019)
@@ -40,6 +40,7 @@
 #define chkIsObject(%obj)                        If '$isobject(%obj) $$$ThrowError($$$errObjectExpected,"%obj")
 #define chkValidateObject(%obj)                  Set sc=%obj.%ValidateObject()  If $$$ISERR(sc) $$$ThrowErrorStatus($$$errObjectValidationFailed,"%obj",sc)
 #define chkValidateDataType(%dt,%p)				 if '##class(%dt).IsValidDT(%p) $$$ThrowError($$$errInvalidInput,%p)	
+#define chkMaxLength(%var,%maxlength)			 if $length(%var) > %maxlength $$$ThrowError($$$errInvalidInput,%var_": "_$length(%var)_">"_%maxlength)	
  
 #define CreateStdErrorObject					 set %vhLastError = ##class(TECH.Error.ErrorObject).%New() 
 #define AddToErrorObject(%String)				 do %vhLastError.Info.Insert(%String)