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>
Index: TECH/CSP/CSPApplicatie.cls.xml
===================================================================
diff -u -r1697 -r2193
--- TECH/CSP/CSPApplicatie.cls.xml	(.../CSPApplicatie.cls.xml)	(revision 1697)
+++ TECH/CSP/CSPApplicatie.cls.xml	(.../CSPApplicatie.cls.xml)	(revision 2193)
@@ -1,6 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="TECH.CSP.CSPApplicatie">
+<IncludeCode>vhLib.Macro</IncludeCode>
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -159,9 +160,38 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>cspFile:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit $system.CSP.GetFileName(cspFile)
+]]></Implementation>
+</Method>
+
+<Method name="GenereerVolledigeURL">
+<Description>
+Geeft de volledige url terug :  http://server/csp-dir/csp-naam?querystringparams 
+vertrekkende van de gegeven cspKlasseNaam. 
+De QueryStringParameterLijst is een list bvb.  item1 : "key=value"  , item2 : "key2=value2"  , ... </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>CspClassName:%String,QueryStringParameterLijst:%ListOfDataTypes=""</FormalSpec>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	If $$$Not(##class(%CacheFileBridge.Project).DerivesFrom(CspClassName,"%CSP.Page")) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De klasse "_CspClassName_" is geen CSP-klasse"))
+	}
 
-	quit $system.CSP.GetFileName(cspFile)
+	Set Server=$$$LCase($$$Server)
+	Set CspClassURL=##class(TECH.ClassUtils).GetClassParameterValue(CspClassName,"CSPURL")
+	
+	Set QueryString=""
+	If $IsObject(QueryStringParameterLijst) {
+		Set ParamsIterator=##class(TECH.ListIterator).%New(QueryStringParameterLijst)
+		While ParamsIterator.HasNext() {
+			Set KeyValuePair=ParamsIterator.Next()
+			Set QueryString=QueryString_$S($L(QueryString):"&",1:"")_KeyValuePair
+			;Set mdQueryString($P(KeyValuePair,"=",1))=$P(KeyValuePair,"=",2)
+		}
+	}
+	
+	Set URL=##class(TECH.Files).AppendFile("http://"_Server, CspClassURL)_"?"_QueryString   ; Built-in versie van Caché werkt niet : ##class(%CSP.Page).Link(CspBasisURL, .mdQueryString, 0) 
+	Quit URL
 ]]></Implementation>
 </Method>
 </Class>
Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r2069 -r2193
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 2069)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 2193)
@@ -199,5 +199,25 @@
     quit list
 ]]></Implementation>
 </Method>
+
+<Method name="AtomicItemsAdd">
+<Description>
+Oproepen via 
+  set Lijst=##class(TECH.ListUtils).AtomicItemsAdd("value1","value2","value3","value4")</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ArgItems...:%String</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set list=##class(%ListOfDataTypes).%New()
+	 
+	Set i=$O(ArgItems(""))
+	While (i'="") {
+		Do list.Insert(ArgItems(i))
+		Set i=$O(ArgItems(i))
+	}
+	
+	Quit list
+]]></Implementation>
+</Method>
 </Class>
 </Export>