Index: WS/WebService.cls.xml
===================================================================
diff -u -r2172 -r2202
--- WS/WebService.cls.xml	(.../WebService.cls.xml)	(revision 2172)
+++ WS/WebService.cls.xml	(.../WebService.cls.xml)	(revision 2202)
@@ -53,5 +53,38 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="ControleerParameters">
+<Description>
+Controleer van de webmethod zijn parameters adhv een deep-validation uit te voeren.
+Oproepen via 'Do ..ControleerParameters()'
+Smijt een Exception als validatie niet gelukt is. </Description>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set CallingMethod = ##class(TECH.ClassUtils).GetCallingMethod()
+	Set ClassName = $LI(CallingMethod,1)	
+	Set MethodName = $LI(CallingMethod,2)
+	
+	/// Aflopen van parameters
+	Set Class = ##class(TECH.ClassInfo.ClassDefinition).%New(ClassName)
+	If ($IsObject(Class)){
+		Set Method = Class.GeefMethod(MethodName)
+		If ($IsObject(Method)){
+			Set ParameterIt = Method.GeefParameters()
+			While (ParameterIt.HasNext()){
+				Set Parameter = ParameterIt.Next()
+				/// Valideren van parameters
+				Set ParameterName = Parameter.GeefNaam()
+				/// Required 
+				If ('$length($get(@ParameterName))) {
+					Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Parameter '"_ParameterName_"' is required voor '"_ClassName_"."_MethodName_"(..)'"))			
+				}								
+				/// Deep validate 
+				Do ##class(TECH.ClassUtils).ValueIsValid(@ParameterName,Parameter.GeefType())						
+			}			
+		}
+	}
+]]></Implementation>
+</Method>
 </Class>
 </Export>