Index: TECH/Lock/LockUtils.cls.xml
===================================================================
diff -u -r2146 -r3283
--- TECH/Lock/LockUtils.cls.xml	(.../LockUtils.cls.xml)	(revision 2146)
+++ TECH/Lock/LockUtils.cls.xml	(.../LockUtils.cls.xml)	(revision 3283)
@@ -39,6 +39,67 @@
 	Quit ProcesID
 ]]></Implementation>
 </Method>
+
+<Method name="ReleaseAllLocksForThisProcess">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>SkipLockStringsList:%ListOfDataTypes=""</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#define CurrentJob   $Job
+
+	#dim ProcessId As %String = $$$CurrentJob
+	Quit ..ReleaseLocksForProcess(ProcessId,SkipLockStringsList)
+]]></Implementation>
+</Method>
+
+<Method name="ReleaseLocksForProcess">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProcessId:%String,SkipLockStringsList:%ListOfDataTypes=""</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set Locks = ##class(%ListOfDataTypes).%New()
+	
+	Set Query = ##class(TECH.ClassQuery).%New("%SYS.LockQuery","List",$LB(ProcessId))
+	#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetResultSet(Query)
+	
+	While ResultSet.Next() {
+		#dim LockString As %String = ResultSet.Data("LockString")
+		If $$$Not( ($IsObject(SkipLockStringsList)) && (##class(TECH.ListUtils).Contains(SkipLockStringsList, LockString)) ) {
+			Do Locks.Insert(LockString)
+		}
+	}
+	Do ResultSet.Close()
+	
+	Set LocksToReleaseIterator = ##class(TECH.ListIterator).%New(Locks)
+	While (LocksToReleaseIterator.HasNext()) {
+		#dim LockStringToRelease As %String = LocksToReleaseIterator.Next()
+		Do ..ReleaseLockForProcess(LockStringToRelease, ProcessId)
+	}
+	
+	Quit Locks
+]]></Implementation>
+</Method>
+
+<Method name="ReleaseLockForProcess">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>LockString:%String,ProcessId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#define CurrentJob   $Job
+	
+	If $$$Not(ProcessId = $$$CurrentJob) {
+		Do ##class(TECH.Exceptions.UnimplementedException).Throw("Lock voor een ander process kan nog niet ge-unlocked worden.")
+	}
+	
+	Lock -@(LockString)
+	
+	; of via
+	;Do ##class(TECH.Lock).%New(LockString).UnLock()
+	
+	; Controle via $T  nodig ???
+]]></Implementation>
+</Method>
 </Class>