Index: WS/Info/Agenda.cls.xml
===================================================================
diff -u -r2202 -r2206
--- WS/Info/Agenda.cls.xml	(.../Agenda.cls.xml)	(revision 2202)
+++ WS/Info/Agenda.cls.xml	(.../Agenda.cls.xml)	(revision 2206)
@@ -28,7 +28,7 @@
 <ReturnType>%Boolean</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Do ..ControleerParameters()
+	Do ##class(TECH.ClassUtils).ControleerParameters()
 	Set IsArbeidsdag = $$ISARBDAG^vhRtn2(Date)
 	Quit IsArbeidsdag
 ]]></Implementation>
Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r2202 -r2206
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2202)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2206)
@@ -5,6 +5,50 @@
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<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>
+<ClassMethod>1</ClassMethod>
+<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)
+		Set DefaultArgs = ##class(%Dictionary.CompiledMethod).%OpenId(ClassName_"||"_MethodName).DefaultArgs
+		If ($IsObject(Method)){
+			Set CurrentParameter = 1
+			Set ParameterIt = Method.GeefParameters()
+			While (ParameterIt.HasNext()){
+				Set Parameter = ParameterIt.Next()
+				
+				/// Valideren van parameters
+				
+				Set ParameterName = Parameter.GeefNaam()
+				Set DefaultArg = $LG(DefaultArgs,CurrentParameter)
+				Set HeeftParameterInhoud = $length($get(@ParameterName))				
+				
+				/// Required
+				If (($length(DefaultArg)=0) & ('HeeftParameterInhoud)) {
+					Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Parameter '"_ParameterName_"' is required voor '"_ClassName_"."_MethodName_"(..)'"))			
+				}
+				/// Deep validate 
+				Set HeeftDefaultArg = ($length(DefaultArg)>0)
+				If ('HeeftDefaultArg || (HeeftDefaultArg && HeeftParameterInhoud)){
+					Do ##class(TECH.ClassUtils).ValueIsValid(@ParameterName,Parameter.GeefType())
+				}
+				Set CurrentParameter = CurrentParameter + 1
+			}			
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GetCurrentMethod">
 <ClassMethod>1</ClassMethod>
 <ReturnType>%List</ReturnType>
Index: WS/WebService.cls.xml
===================================================================
diff -u -r2202 -r2206
--- WS/WebService.cls.xml	(.../WebService.cls.xml)	(revision 2202)
+++ WS/WebService.cls.xml	(.../WebService.cls.xml)	(revision 2206)
@@ -53,38 +53,5 @@
 	}
 ]]></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>
Index: WS/PM/ProductService.cls.xml
===================================================================
diff -u -r2202 -r2206
--- WS/PM/ProductService.cls.xml	(.../ProductService.cls.xml)	(revision 2202)
+++ WS/PM/ProductService.cls.xml	(.../ProductService.cls.xml)	(revision 2206)
@@ -22,7 +22,7 @@
 <ReturnType>APPS.PM.dto.ProductIDsControleResult</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Do ..ControleerParameters()	
+	Do ##class(TECH.ClassUtils).ControleerParameters()	
 	Quit ##class(APPS.PM.ProductService).%New().ZoekProducten(Criteria)
 ]]></Implementation>
 </Method>
@@ -33,7 +33,7 @@
 <ReturnType>APPS.PM.dto.Classificatie</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Do ..ControleerParameters()	
+	Do ##class(TECH.ClassUtils).ControleerParameters()	
 	Quit ##class(APPS.PM.ProductService).%New().GeefClassificatieStructuur()
 ]]></Implementation>
 </Method>
@@ -43,7 +43,7 @@
 <ReturnType>APPS.PM.dto.ProductIDsControleResult</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Do ..ControleerParameters()	
+	Do ##class(TECH.ClassUtils).ControleerParameters()	
 	Quit ##class(APPS.PM.ProductService).%New().ControleerPRNrs(PRNrs)
 ]]></Implementation>
 </Method>
@@ -53,7 +53,7 @@
 <ReturnType>APPS.PM.dto.ProductIDsControleResult</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Do ..ControleerParameters()	
+	Do ##class(TECH.ClassUtils).ControleerParameters()	
 	Quit ##class(APPS.PM.ProductService).%New().ControleerKortteksten(Kortteksten)
 ]]></Implementation>
 </Method>
@@ -63,7 +63,7 @@
 <ReturnType>APPS.PM.dto.ProductIDsControleResult</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Do ..ControleerParameters()	
+	Do ##class(TECH.ClassUtils).ControleerParameters()	
 	Quit ##class(APPS.PM.ProductService).%New().ControleerDossierNrs(Dossiernrs)
 ]]></Implementation>
 </Method>
@@ -73,7 +73,7 @@
 <ReturnType>APPS.PM.dto.ProductIDsControleResult</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Do ..ControleerParameters()	
+	Do ##class(TECH.ClassUtils).ControleerParameters()	
 	Quit ##class(APPS.PM.ProductService).%New().ControleerIdentNrs(Identnrs)
 ]]></Implementation>
 </Method>
Index: WS/PM/KenmerkenService.cls.xml
===================================================================
diff -u -r2202 -r2206
--- WS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 2202)
+++ WS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 2206)
@@ -28,7 +28,7 @@
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
 	
-	Do ..ControleerParameters()
+	Do ##class(TECH.ClassUtils).ControleerParameters()
 	Quit ##class(APPS.PM.KenmerkenService).%New().GeefAutoVariantenVanMasters(KenmerkenSetIDs, KenmerkGroep)
 ]]></Implementation>
 </Method>
@@ -42,7 +42,7 @@
 <ReturnType>APPS.PM.dto.Kenm.ProductenKenmerken</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Do ..ControleerParameters()
+	Do ##class(TECH.ClassUtils).ControleerParameters()
 	Quit ##class(APPS.PM.KenmerkenService).%New().GeefProductKenmerken(PRNrs,KenmerkGroepen)
 ]]></Implementation>
 </Method>
@@ -55,7 +55,7 @@
 <ReturnType>APPS.PM.dto.Kenm.KenmerkMetadataList</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Do ..ControleerParameters()
+	Do ##class(TECH.ClassUtils).ControleerParameters()
 	Quit ##class(APPS.PM.KenmerkenService).%New().GeefMetadata(KenmerkGroepen)
 ]]></Implementation>
 </Method>
@@ -66,7 +66,7 @@
 <FormalSpec>KenmerkGroepMetadataLijst:APPS.PM.dto.Kenm.KenmerkMetadataList</FormalSpec>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Do ..ControleerParameters()	
+	Do ##class(TECH.ClassUtils).ControleerParameters()
 	Do ##class(APPS.PM.KenmerkenService).%New().BewaarKenmerkGroepMetadataLijst(KenmerkGroepMetadataLijst)
 ]]></Implementation>
 </Method>
@@ -77,7 +77,7 @@
 <FormalSpec>ProductenKenmerken:APPS.PM.dto.Kenm.ProductenKenmerken</FormalSpec>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Do ..ControleerParameters()	
+	Do ##class(TECH.ClassUtils).ControleerParameters()
 	Do ##class(APPS.PM.KenmerkenService).%New().BewaarProductenKenmerken(ProductenKenmerken)
 ]]></Implementation>
 </Method>
@@ -90,7 +90,7 @@
 <ReturnType>%ListOfDataTypes</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Do ..ControleerParameters()	
+	Do ##class(TECH.ClassUtils).ControleerParameters()
 	Quit ##class(APPS.PM.KenmerkenService).%New().MaakNieuweKenmerkenSets(KenmerkGroep, BronKenmerkenSets)
 ]]></Implementation>
 </Method>
@@ -100,7 +100,7 @@
 <ReturnType>%ListOfDataTypes</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Do ..ControleerParameters()
+	Do ##class(TECH.ClassUtils).ControleerParameters()
 	Quit ##class(APPS.PM.KenmerkenService).%New().VerwijderKenmerkenSets(KenmerkGroep, KenmerkenSets)
 ]]></Implementation>
 </Method>