SynchroniseerOpenstaandeFacturen() ; AX synchronisatie van de openstaande verkoopfacturen
	do ##class(APPS.common.RuntimeInitialiser).Initialise("AX.Caretaker"_$job)
	do Execute("AX.Uitgaand.BKH.OpenstaandeVerkoopFactuur.impl.Synchroniser","Synchroniseer")
	quit

CollectResponses() ; AX verwerken van de responses
	do ##class(APPS.common.RuntimeInitialiser).Initialise("AX.Caretaker"_$job)
	
	Lock +^AX.Caretaker("CollectResponse"):0 
	Else  Quit
	
	while $get(^AX.Caretaker("CollectResponse")) {
		do Execute("AXimpl.ResponseCollector","Process")
		hang 1
	}
	
	Lock -^AX.Caretaker("CollectResponse")
	
	quit	
	

CollectRequests() ; AX verwerken van de requests
	do ##class(APPS.common.RuntimeInitialiser).Initialise("AX.Caretaker"_$job)
	
	Lock +^AX.Caretaker("CollectRequests"):0 
	Else  Quit
	
	while $get(^AX.Caretaker("CollectRequests")) {
		do Execute("AXimpl.MessageInCollector","Process")
		hang 1
	}
	Lock -^AX.Caretaker("CollectRequests")	
	
	quit	

Execute(Classname,Method) 
	try {
		#dim ObjectApi As TECH.Object.ObjectAPI = ##class(TECH.Context).Instance().GeefObjectAPI()
		#dim Instance As %Base = ObjectApi.New(Classname)
		do $method(Instance,Method)
	} catch {
		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
		do ##class(vhLib.Logger).%New("AX.CARETAKER").Error("Caretaker",Exception.ToString())
		
	}
	quit