Index: EWMS/Locations.cls.xml
===================================================================
diff -u -r43040 -r43057
--- EWMS/Locations.cls.xml	(.../Locations.cls.xml)	(revision 43040)
+++ EWMS/Locations.cls.xml	(.../Locations.cls.xml)	(revision 43057)
@@ -493,10 +493,10 @@
 <Method name="IsLocatieLeeg">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>LocM:%Library.String,LocG:%Library.String,LocX:%Library.String,LocY:%Library.String</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	Set IsLocatieLeeg = 0
-	New RS
+	#dim IsLocatieLeeg As %Boolean = 0
 	Set RS = ##class(%ResultSet).%New("EWMS.Locations:CheckIfLocationIsEmpty")
 	Do RS.Execute(LocM,LocG,LocX,LocY)
 	If RS.Next(){