Index: TECH/Process.cls.xml
===================================================================
diff -u -r5219 -r5220
--- TECH/Process.cls.xml	(.../Process.cls.xml)	(revision 5219)
+++ TECH/Process.cls.xml	(.../Process.cls.xml)	(revision 5220)
@@ -1,7 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="24">
+<Export generator="Cache" version="9">
 <Class name="TECH.Process">
 <Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="OpenId">
 <ClassMethod>1</ClassMethod>
@@ -22,21 +23,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefClientIP">
-<ClassMethod>1</ClassMethod>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	Set Process = ..%New()
-	Set RSet = Process.ExecuteQuery($JOB)
-	Do RSet.%Next()
-	set ClientIPAddress = RSet.ClientIPAddress
-	if ClientIPAddress="127.0.0.1" { 
-		set ClientIPAddress=$$GetIP^BLDSYSLOG($ZU(110))
-	}
-	Quit ClientIPAddress
-]]></Implementation>
-</Method>
-
 <Method name="GeefJob">
 <Description>
 return SYS.Process (namespace %SYS)</Description>
@@ -51,33 +37,10 @@
 </Method>
 
 <Method name="KillProcess">
+<ClassMethod>1</ClassMethod>
 <FormalSpec>ProcessID:%String</FormalSpec>
 <Implementation><![CDATA[	Do $ZUTIL(4,ProcessID)
 ]]></Implementation>
 </Method>
-
-<Method name="ExecuteQuery">
-<FormalSpec>ProcessID:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%SQL.StatementResult</ReturnType>
-<Implementation><![CDATA[
-	Set Query = "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, "
-	Set Query = Query_"CurrentLineAndRoutine, OSUserName as nt_username, UserName, ClientIPAddress, CurrentDevice, "
-	Set Query = Query_"CurrentSrcLine, InTransaction, JobType, LastGlobalReference, LinesExecuted, Location, "
-	Set Query = Query_"MemoryAllocated, NameSpace, OpenDevices, Pid, StartupClientIPAddress, StartupClientNodeName, UserInfo "
-	Set Query = Query_"from %SYS.ProcessQuery "
-	Set Query = Query_"where Pid = ?"
-
-	Set Statement = ##class(%SQL.Statement).%New()
-	Set Status = Statement.%Prepare(Query)
-	Set RSet = Statement.%Execute(ProcessID)
-	Quit RSet
-]]></Implementation>
-</Method>
 </Class>
-
-
 </Export>