Index: TECH/Lock/LockUtils.cls.xml
===================================================================
diff -u -r9 -r2146
--- TECH/Lock/LockUtils.cls.xml	(.../LockUtils.cls.xml)	(revision 9)
+++ TECH/Lock/LockUtils.cls.xml	(.../LockUtils.cls.xml)	(revision 2146)
@@ -1,29 +1,42 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="TECH.Lock.LockUtils">
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
+<Method name="GetLocksForProcess">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProcessId:%String</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	set Locks = ##class(%ListOfDataTypes).%New()
+	Set LockSet=##class(%ResultSet).%New("%SYS.LockQuery:List")
+	Do LockSet.Execute(ProcessId)
+	while LockSet.Next() {
+		do Locks.Insert(LockSet.Data("LockString"))
+	}
+	do LockSet.%Close()
+	quit Locks
+]]></Implementation>
+</Method>
+
 <Method name="GeefProcessID">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Lock:%String</FormalSpec>
 <Implementation><![CDATA[
-		#dim ProcesID As %String = ""
-		#dim Gevonden As %Boolean = 0
-		Set LockSet = ##class(%ResultSet).%New("%SYS.LockQuery:List") 		
-		Do LockSet.Execute()
-		While ('Gevonden && LockSet.Next())
-		{
-			If (LockSet.Data("LockString") = Lock)
-			{
-				Set Gevonden = 1	
-			}
+	#dim ProcesID As %String = ""
+	#dim Gevonden As %Boolean = 0
+	Set LockSet = ##class(%ResultSet).%New("%SYS.LockQuery:List") 		
+	Do LockSet.Execute()
+	While ('Gevonden && LockSet.Next())	{
+		If (LockSet.Data("LockString") = Lock) {
+			Set Gevonden = 1	
 		}
-		If Gevonden {
-			Set ProcesID = LockSet.Data("Owner")
-		}
-		Do LockSet.%Close()
-		
-		Quit ProcesID
+	}
+	If Gevonden {
+		Set ProcesID = LockSet.Data("Owner")
+	}
+	Do LockSet.%Close()
+	Quit ProcesID
 ]]></Implementation>
 </Method>
 </Class>