Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r2157 -r2193
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2157)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2193)
@@ -164,5 +164,29 @@
 	quit
 ]]></Implementation>
 </Method>
+
+<Method name="GetClassParameterValue">
+<Description>
+Deze oproep enkel gebruiken voor klassen die niet afleiden van %Registered, bijvoorbeeld de csp-klassen, die leiden af van %CSP.Page 
+
+Voor klassen die afleiden van %Registered kan je rechtstreeks volgende oproep gebruiken.
+ w ##class(klassenaam).%GetParameter("ParameterNaam")
+ w $zobjclassmethod("klassenaam","%GetParameter","ParameterNaam")
+
+Added by WimV on 27/09/2011 </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ClassName:%String,ParamName:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set ClassParameterValue=""
+	If ##class(%Dictionary.ClassDefinition).%ExistsId(ClassName) {
+		Set pdef=##class(%Dictionary.ParameterDefinition).%OpenId(ClassName_"||"_ParamName)
+		If $IsObject(pdef) {
+			Set ClassParameterValue=pdef.Default
+		}
+	}
+	Quit ClassParameterValue
+]]></Implementation>
+</Method>
 </Class>
 </Export>