Index: TECH/Process.cls.xml
===================================================================
diff -u -r404 -r413
--- TECH/Process.cls.xml	(.../Process.cls.xml)	(revision 404)
+++ TECH/Process.cls.xml	(.../Process.cls.xml)	(revision 413)
@@ -69,7 +69,7 @@
 <Private>1</Private>
 <ReturnType>%SQL.StatementResult</ReturnType>
 <Implementation><![CDATA[
-	Set Query = "select JobNumber as spid, 1 as kpid, null as blocked, ClientNodeName as ClientHostName, "
+	#dim Query As %String = "select JobNumber as spid, 1 as kpid, null as blocked, ClientNodeName as ClientHostName, "
 	Set Query = Query_"ClientExecutableName as ClientApplicationName, PidExternal as HostProcess, Routine As ProgramName, "
 	Set Query = Query_"GlobalReferences, MemoryUsed, CURRENT_TIMESTAMP as LoginTime, Priority, "
 	Set Query = Query_"ClientNodeName as ClientName, State as Status, $TSQL_HOST_NAME() as HostName, "
@@ -80,8 +80,12 @@
 	Set Query = Query_"where Pid = ?"
 
 	Set Statement = ##class(%SQL.Statement).%New()
-	Set Status = Statement.%Prepare(Query)
-	Set RSet = Statement.%Execute(ProcessID)
+	#dim Status As %Status = Statement.%Prepare(Query)
+	If $$$ISERR(Status){
+		#dim MailTo As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("TECH.Error.impl.ErrorHandler_DefaultMailAddress")
+		Do SendMiniMailForced^vhLib.Mail($$$SystemMail("Logger"),$lb(MailTo),"Tech.Process:ExecuteQuery",$$ParseStatus^vhLib(Status),,,,,)
+	}
+	#dim RSet As %SQL.StatementResult = Statement.%Execute(ProcessID)
 	Quit RSet
 ]]></Implementation>
 </Method>