Add Heartbeat Function to Service, Add Timer to ClientSuite Service Startup check

SERVICES/DDEDM_NetworkService/EDMService.vb

@@ -17,18 +17,25 @@ Public Class EDMService
 
     Private _request As Request = Nothing
     Private _debug As Boolean = False
+    Private _username As String
 
     Public Sub New()
         Dim oOperationContext As OperationContext = OperationContext.Current
         Dim oInstanceContext As InstanceContext = oOperationContext.InstanceContext
         Dim oUsername = oOperationContext.ServiceSecurityContext.WindowsIdentity.Name
 
+        _username = oUsername
         _logger = LogConfig.GetLogger()
     End Sub
 
+#Region "Heartbeat"
+    Public Function Heartbeat() As Boolean Implements IEDMService.Heartbeat
+        Return True
+    End Function
+#End Region
 #Region "Request"
     Public Function CreateDatabaseRequest(Name As String, Optional Debug As Boolean = False) As String Implements IEDMService.CreateDatabaseRequest
-        _request = New Request(Name, _session.Username, Database, Debug)
+        _request = New Request(Name, _username, Database, Debug)
         _debug = Debug
 
         _logger.Info("Creating request {0}/{1}", _request.Name, _request.RequestId)