EDMI: Update Service, Add TestObjectIdExists, Work on GetVariableValue

Service.EDMIService/Helpers/Messages.vb

@@ -131,6 +131,28 @@ Namespace Messages
     End Class
 #End Region
 
+#Region "Helpers"
+    <MessageContract>
+    Public Class TestObjectIdExistsRequest
+        <MessageBodyMember>
+        Public ObjectId As Long
+    End Class
+
+    <MessageContract>
+    Public Class TestObjectIdExistsResponse
+        Public Sub New(pExists As Boolean)
+            Exists = pExists
+        End Sub
+
+        <MessageBodyMember>
+        Public Exists As Boolean = False
+        <MessageBodyMember>
+        Public Inactive As Boolean = False
+        <MessageBodyMember>
+        Public Deleted As Boolean = False
+    End Class
+#End Region
+
 End Namespace