Index: TECH/Process.cls.xml
===================================================================
diff -u
--- TECH/Process.cls.xml	(revision 0)
+++ TECH/Process.cls.xml	(revision 5219)
@@ -0,0 +1,83 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Process">
+<Super>%RegisteredObject</Super>
+
+<Method name="OpenId">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProcessID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Process = ..%New()	
+	Quit Process.GeefJob(ProcessID)
+]]></Implementation>
+</Method>
+
+<Method name="ExistsId">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProcessID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Process = ..%New()	
+	Set Job = Process.GeefJob(ProcessID)	
+	Quit $IsObject(Job)
+]]></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>
+<FormalSpec>ProcessID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set NameSpace = $ZU(5)
+	ZN "%SYS"
+	Set Job = ##class(SYS.Process).%OpenId(ProcessID)
+	ZN NameSpace
+	Quit Job
+]]></Implementation>
+</Method>
+
+<Method name="KillProcess">
+<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>