Index: Prod/Kenmerk/MetaGroep.cls.xml
===================================================================
diff -u -r29059 -r38164
--- Prod/Kenmerk/MetaGroep.cls.xml	(.../MetaGroep.cls.xml)	(revision 29059)
+++ Prod/Kenmerk/MetaGroep.cls.xml	(.../MetaGroep.cls.xml)	(revision 38164)
@@ -68,11 +68,12 @@
 
 <Method name="GetAllMetaGroupsAsList">
 <ClassMethod>1</ClassMethod>
+<ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	Set KenmerkGroepen = ##class(%ListOfDataTypes).%New()
  	Set RS=##class(%ResultSet).%New("Prod.Kenmerk.MetaGroep:GetAllMetaGroups")
-	Set tmpStatus=RS.Execute()
+	#dim tmpStatus As %Status = RS.Execute()
 	If $$$ISOK(tmpStatus){
 		While (RS.Next()){	
 			Do KenmerkGroepen.Insert(RS.Get("Code"))
@@ -83,9 +84,10 @@
 </Method>
 
 <Method name="GeefRelatiefPadIcoon">
+<ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	set Result = ""
+	#dim Result As %String = ""
 	if $length(..IcoonGetObjectId()) && $isObject(..Icoon) {
 		set Result = ..Icoon.RelatiefPad	
 	}