Index: DOM/VKP/impl/DataM/DataMOrder.cls.xml
===================================================================
diff -u -r46221 -r46222
--- DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 46221)
+++ DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 46222)
@@ -381,44 +381,34 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VerwijderOrderLijnViaAxInventTransId">
+<Method name="BestaatOrderLijnViaAxInventTransId">
 <FormalSpec>AxInventTransId:%String</FormalSpec>
-<Implementation><![CDATA[
-	Do ..LaadOrderLijnenIndienNodig()
-	Set OrderLijnenIterator = ##class(TECH.ListIterator).%New(..OrderLijnen)
-	While OrderLijnenIterator.HasNext() {
-		#dim OrderLijn As DOM.VKP.impl.DataM.DataMOrderlijn = OrderLijnenIterator.Next()
-		If (OrderLijn.GeefAxInventTransId() = AxInventTransId) {
-			#dim VolgNummer As %String = OrderLijn.GeefLijnVolgNr()
-			#dim LijnID As %String = OrderLijn.GeefID()
-			Do ..OrderLijnen.RemoveAt(VolgNummer)
-			Do ..VerwijderdeOrderLijnen.Insert(VolgNummer)
-			Quit
-		}
-	}
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $IsObject(..ZoekOrderLijnViaAxInventTransId(AxInventTransId))
 ]]></Implementation>
 </Method>
 
-<Method name="BestaatOrderLijnViaAxInventTransId">
+<Method name="GeefOrderLijnViaAxInventTransId">
 <FormalSpec>AxInventTransId:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
+<ReturnType>DOM.VKP.impl.DataM.DataMOrderlijn</ReturnType>
+<Implementation><![CDATA[	Quit ..ZoekOrderLijnViaAxInventTransId(AxInventTransId)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderOrderLijnViaAxInventTransId">
+<FormalSpec>AxInventTransId:%String</FormalSpec>
 <Implementation><![CDATA[
-	Do ..LaadOrderLijnenIndienNodig()
-	#dim OrderLijnBestaat As %Boolean = $$$False
-	Set OrderLijnenIterator = ##class(TECH.ListIterator).%New(..OrderLijnen)
-	While OrderLijnenIterator.HasNext() {
-		#dim OrderLijn As DOM.VKP.impl.DataM.DataMOrderlijn = OrderLijnenIterator.Next()
-		If (OrderLijn.GeefAxInventTransId() = AxInventTransId) {
-			Set OrderLijnBestaat = $$$True
-			Quit
-		}
-	}
-	Quit OrderLijnBestaat
+	#dim OrderLijn As DOM.VKP.impl.DataM.DataMOrderlijn = ..ZoekOrderLijnViaAxInventTransId(AxInventTransId)
+	#dim VolgNummer As %String = OrderLijn.GeefLijnVolgNr()
+	#dim LijnID As %String = OrderLijn.GeefID()
+	Do ..OrderLijnen.RemoveAt(VolgNummer)
+	Do ..VerwijderdeOrderLijnen.Insert(VolgNummer)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefOrderLijnViaAxInventTransId">
+<Method name="ZoekOrderLijnViaAxInventTransId">
 <FormalSpec>AxInventTransId:%String</FormalSpec>
+<Private>1</Private>
 <ReturnType>DOM.VKP.impl.DataM.DataMOrderlijn</ReturnType>
 <Implementation><![CDATA[
 	Do ..LaadOrderLijnenIndienNodig()