Index: APPS/VKP/impl/AdminOrderService.cls.xml
===================================================================
diff -u -r29059 -r54142
--- APPS/VKP/impl/AdminOrderService.cls.xml	(.../AdminOrderService.cls.xml)	(revision 29059)
+++ APPS/VKP/impl/AdminOrderService.cls.xml	(.../AdminOrderService.cls.xml)	(revision 54142)
@@ -23,6 +23,26 @@
 <Implementation><![CDATA[	quit ""
 ]]></Implementation>
 </Method>
+
+<Method name="IsTijdelijkOrder">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>AdminOrderId:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set Range = ##class(TECH.Range).%New(100000,109999)
+	Quit Range.IsValid(AdminOrderId)
+]]></Implementation>
+</Method>
+
+<Method name="IsBevestigdKlantOrder">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>AdminOrderId:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set Range = ##class(TECH.Range).%New(110000,199999)
+	Quit Range.IsValid(AdminOrderId)
+]]></Implementation>
+</Method>
 </Class>