Index: Prod/GADef/emKadVulling.cls.xml
===================================================================
diff -u -r29059 -r44368
--- Prod/GADef/emKadVulling.cls.xml	(.../emKadVulling.cls.xml)	(revision 29059)
+++ Prod/GADef/emKadVulling.cls.xml	(.../emKadVulling.cls.xml)	(revision 44368)
@@ -25,6 +25,7 @@
 <Description>
 Bepaalt of de boring mogelijk is in de vulling.  Geeft "Fout" terug of "OK:" als boring OK.</Description>
 <FormalSpec>BoringPlaats:%Library.String="VUL"</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Library.String</ReturnType>
 <Implementation><![CDATA[
  Quit:($TR(BoringPlaats," ","")="VUL")&('$L(%this.Vulling)) "Geen Vulling"
@@ -42,6 +43,7 @@
 
 <Method name="VoegToeVullingExtra">
 <FormalSpec>VullingExtraItemID:%String</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
 <Implementation><![CDATA[	Do ..VullingExtra.InsertObjectId(##class(Res.PI.Definitie).IDViaNaam("VullingExtra")_"||"_VullingExtraItemID)
 ]]></Implementation>
 </Method>
@@ -51,6 +53,7 @@
 Valideert de VullingExtras voor de vulling. <BR/>
 Geeft een lijst van validatieberichten terug]]></Description>
 <FormalSpec>IsVullingZonderKader:%Boolean=0</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	Set ValidatieBerichten=##class(%ListOfDataTypes).%New()