Index: APPS/TBXWeb/Utils.cls.xml
===================================================================
diff -u -r640 -r699
--- APPS/TBXWeb/Utils.cls.xml	(.../Utils.cls.xml)	(revision 640)
+++ APPS/TBXWeb/Utils.cls.xml	(.../Utils.cls.xml)	(revision 699)
@@ -77,6 +77,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsGeleiderUitgefaseerd">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>WSOrderLijn:WS.TBX.EM.OrderLijn</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set IsGeleiderUitgefaseerd = $$$False
+	If (WSOrderLijn.ItemBM = "I") && (WSOrderLijn.ItemDK = 50) {
+		Set IsGeleiderUitgefaseerd = $$$Not(##class(TECH.StringUtils).Equals(WSOrderLijn.ItemLD, 400, 450, 500, 550, 600, 650))
+	}
+	Quit IsGeleiderUitgefaseerd
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlantnummerVanHandel">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>WSOrderID:%String</FormalSpec>