Index: TECH/Lock/MultiGlobalLocker.cls.xml
===================================================================
diff -u
--- TECH/Lock/MultiGlobalLocker.cls.xml	(revision 0)
+++ TECH/Lock/MultiGlobalLocker.cls.xml	(revision 3316)
@@ -0,0 +1,85 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Lock.MultiGlobalLocker">
+<Super>TECH.Mockable</Super>
+
+<Parameter name="DefaultTimeout">
+<Type>%Integer</Type>
+<Default>5</Default>
+</Parameter>
+
+<Property name="GlobalRefs">
+<Type>%ListOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Locked">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Method name="ClearGlobalRefs">
+<Implementation><![CDATA[
+	if $$$Not(..Locked) {
+		do ..GlobalRefs.Clear()
+	} else {
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Lijst locks kan niet leeg gemaakt worden terwijl er gelocked is"))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeGlobalRef">
+<FormalSpec>globalref:%String</FormalSpec>
+<Implementation><![CDATA[
+	if $$$Not(..Locked) {
+		do ..GlobalRefs.Insert(globalref)
+	} else {
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Nieuwe lock gevraagd terwijl er reeds gelocked is"))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Lock">
+<FormalSpec>timeout:%Integer=..#DefaultTimeout</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	quit:(..Locked || (..GlobalRefs.Count() = 0) ) ..Locked ;don't lock twice or nothing to lock
+	set ..Locked = ..LockGlobals("+",timeout)
+	quit ..Locked
+]]></Implementation>
+</Method>
+
+<Method name="Unlock">
+<FormalSpec>timeout:%Integer=0</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	quit:(..Locked = 0) 0
+	set ..Locked = 0
+	quit ..LockGlobals("-",timeout)
+]]></Implementation>
+</Method>
+
+<Method name="LockGlobals">
+<FormalSpec>Operation:%String,timeout:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#Dim GlobalRefIterator as TECH.ListIterator = ##class(TECH.ListIterator).%New(##class(TECH.ListUtils).RemoveDuplicateItems(..GlobalRefs))
+	#Dim GlobalRef as %String
+	
+	#Dim LockCmd as String = "Lock "_Operation_"("
+	while GlobalRefIterator.HasNext(){
+		set GlobalRef = GlobalRefIterator.Next()
+		set LockCmd = LockCmd _ GlobalRef
+		set:(GlobalRefIterator.HasNext()) LockCmd = LockCmd _ ","
+	}
+	set LockCmd = LockCmd _ "):"_timeout 
+	xecute LockCmd
+	quit $TEST
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>