Index: TECH/Background/BackgroundJobStopper.cls.xml
===================================================================
diff -u
--- TECH/Background/BackgroundJobStopper.cls.xml	(revision 0)
+++ TECH/Background/BackgroundJobStopper.cls.xml	(revision 1090)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Background.BackgroundJobStopper">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="StopBackgroundJob">
+<Abstract>1</Abstract>
+<FormalSpec>BackgroundJobID:%String</FormalSpec>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/Background/impl/BackgroundJobMgr.cls.xml
===================================================================
diff -u
--- TECH/Background/impl/BackgroundJobMgr.cls.xml	(revision 0)
+++ TECH/Background/impl/BackgroundJobMgr.cls.xml	(revision 1090)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Background.impl.BackgroundJobMgr">
+<IncludeCode>TECH.Background.BackgroundJob</IncludeCode>
+<Super>TECH.RegisteredObject,TECH.Background.BackgroundJobMgr</Super>
+
+<Method name="BestaatBackgroundJob">
+<FormalSpec>BackgroundJobID:%String=""</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	do:$$$Not($length(BackgroundJobID)) ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("BackgroundJobID is vereist"))
+	quit ##class(%Dictionary.CompiledClass).%ExistsId(BackgroundJobID)
+]]></Implementation>
+</Method>
+
+<Method name="IsBackgroundJobActief">
+<FormalSpec>BackgroundJobID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Lock +$$$BackgroundJobGlobal(BackgroundJobID):0
+	#dim IsActive As %Boolean = '$TEST
+	Lock -$$$BackgroundJobGlobal(BackgroundJobID)
+	quit IsActive
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/Background/impl/BackgroundJobStarter.cls.xml
===================================================================
diff -u
--- TECH/Background/impl/BackgroundJobStarter.cls.xml	(revision 0)
+++ TECH/Background/impl/BackgroundJobStarter.cls.xml	(revision 1090)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Background.impl.BackgroundJobStarter">
+<IncludeCode>TECH.Background.BackgroundJob</IncludeCode>
+<Super>TECH.RegisteredObject,TECH.Background.BackgroundJobStarter</Super>
+
+<Property name="BackgroundJobManager">
+<Type>TECH.Background.BackgroundJobMgr</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>BackgroundJobManager:TECH.Background.BackgroundJobMgr</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..BackgroundJobManager = $get(BackgroundJobManager,##class(TECH.Background.impl.BackgroundJobMgr).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="StartBackgroundJob">
+<FormalSpec>BackgroundJobID:%String</FormalSpec>
+<Implementation><![CDATA[
+	if '..BackgroundJobManager.BestaatBackgroundJob(BackgroundJobID) {
+		set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("BackgroundJobID '"_BackgroundJobID_"' bestaat niet")
+		do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+	if ..BackgroundJobManager.IsBackgroundJobActief(BackgroundJobID) {
+		set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("BackgroundJobID '"_BackgroundJobID_"' is reeds actief")
+		do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+
+	do ..StartJob(BackgroundJobID)
+]]></Implementation>
+</Method>
+
+<Method name="StartJob">
+<FormalSpec>BackgroundJobID:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Job $ClassMethod(BackgroundJobID,"Start")
+	
+	while '..IsStarted(BackgroundJobID) {
+		hang .01	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="IsStarted">
+<FormalSpec>BackgroundJobID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit $$$BackgroundJobGlobal(BackgroundJobID)= $$$BackgroundJobStarted
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/Background/BackgroundJobStarter.cls.xml
===================================================================
diff -u
--- TECH/Background/BackgroundJobStarter.cls.xml	(revision 0)
+++ TECH/Background/BackgroundJobStarter.cls.xml	(revision 1090)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Background.BackgroundJobStarter">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="StartBackgroundJob">
+<Abstract>1</Abstract>
+<FormalSpec>BackgroundJobID:%String</FormalSpec>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/Background/BackgroundJobMgr.cls.xml
===================================================================
diff -u
--- TECH/Background/BackgroundJobMgr.cls.xml	(revision 0)
+++ TECH/Background/BackgroundJobMgr.cls.xml	(revision 1090)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Background.BackgroundJobMgr">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="IsBackgroundJobActief">
+<Abstract>1</Abstract>
+<FormalSpec>BackgroundJobID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+
+<Method name="BestaatBackgroundJob">
+<Abstract>1</Abstract>
+<FormalSpec>BackgroundJobID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/Background/BackgroundJobAPI.cls.xml
===================================================================
diff -u
--- TECH/Background/BackgroundJobAPI.cls.xml	(revision 0)
+++ TECH/Background/BackgroundJobAPI.cls.xml	(revision 1090)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Background.BackgroundJobAPI">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="IsBackgroundJobActief">
+<Abstract>1</Abstract>
+<FormalSpec>BackgroundJobID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+
+<Method name="BestaatBackgroundJob">
+<Abstract>1</Abstract>
+<FormalSpec>BackgroundJobID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+
+<Method name="StartBackgroundJob">
+<Abstract>1</Abstract>
+<FormalSpec>BackgroundJobID:%String</FormalSpec>
+</Method>
+
+<Method name="StopBackgroundJob">
+<Abstract>1</Abstract>
+<FormalSpec>BackgroundJobID:%String</FormalSpec>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/Background/impl/BackgroundJob.cls.xml
===================================================================
diff -u
--- TECH/Background/impl/BackgroundJob.cls.xml	(revision 0)
+++ TECH/Background/impl/BackgroundJob.cls.xml	(revision 1090)
@@ -0,0 +1,75 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Background.impl.BackgroundJob">
+<IncludeCode>TECH.Background.BackgroundJob</IncludeCode>
+<Super>TECH.RegisteredObject,TECH.Background.BackgroundJob</Super>
+
+<Parameter name="HangTime">
+<Type>%Integer</Type>
+<Default>0.01</Default>
+</Parameter>
+
+<Method name="StartTask">
+<Abstract>1</Abstract>
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+</Method>
+
+<Method name="Start">
+<Final>1</Final>
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	set $$$BackgroundJobGlobal(..%ClassName(1) )= $$$BackgroundJobStarted
+	do ..Loop()
+]]></Implementation>
+</Method>
+
+<Method name="Loop">
+<Final>1</Final>
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Lock +$$$BackgroundJobGlobal(..%ClassName(1)):0
+	
+	while '..IsStopped() {
+		Do ..StartTask()	
+		Hang ..#HangTime
+	}
+	set $$$BackgroundJobGlobal(..%ClassName(1)) = $$$BackgroundJobStopped
+	Lock -$$$BackgroundJobGlobal(..%ClassName(1))
+]]></Implementation>
+</Method>
+
+<Method name="IsStopped">
+<Final>1</Final>
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit $$$BackgroundJobGlobal(..%ClassName(1)) = $$$BackgroundJobStop
+]]></Implementation>
+</Method>
+
+<Method name="Stop">
+<Final>1</Final>
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	set $$$BackgroundJobGlobal(..%ClassName(1)) = $$$BackgroundJobStop
+	while '..IsStopProcessed() {
+		hang ..#HangTime
+	}
+]]></Implementation>
+</Method>
+
+<Method name="IsStopProcessed">
+<Final>1</Final>
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit $$$BackgroundJobGlobal(..%ClassName(1)) = $$$BackgroundJobStopped
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/Background/impl/BackgroundJobStopper.cls.xml
===================================================================
diff -u
--- TECH/Background/impl/BackgroundJobStopper.cls.xml	(revision 0)
+++ TECH/Background/impl/BackgroundJobStopper.cls.xml	(revision 1090)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Background.impl.BackgroundJobStopper">
+<Super>TECH.RegisteredObject,TECH.Background.BackgroundJobStopper</Super>
+
+<Property name="BackgroundJobManager">
+<Type>TECH.Background.BackgroundJobMgr</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>BackgroundJobManager:TECH.Background.BackgroundJobMgr</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..BackgroundJobManager = $get(BackgroundJobManager,##class(TECH.Background.impl.BackgroundJobMgr).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="StopBackgroundJob">
+<FormalSpec>BackgroundJobID:%String</FormalSpec>
+<Implementation><![CDATA[
+	if '..BackgroundJobManager.BestaatBackgroundJob(BackgroundJobID) {
+		set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("BackgroundJobID '"_BackgroundJobID_"' bestaat niet")
+		do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+	if '..BackgroundJobManager.IsBackgroundJobActief(BackgroundJobID) {
+		set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("BackgroundJobID '"_BackgroundJobID_"' is niet actief")
+		do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+
+	do $ClassMethod(BackgroundJobID,"Stop")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/Background/BackgroundJob.inc.rou
===================================================================
diff -u
--- TECH/Background/BackgroundJob.inc.rou	(revision 0)
+++ TECH/Background/BackgroundJob.inc.rou	(revision 1090)
@@ -0,0 +1,6 @@
+#define BackgroundJobGlobal ^BackgroundJob
+
+#define BackgroundJobStop    "Stop"
+#define BackgroundJobStopped "Stopped"
+#define BackgroundJobStarted "Started"
+
Index: TECH/Background/impl/BackgroundJobAPI.cls.xml
===================================================================
diff -u
--- TECH/Background/impl/BackgroundJobAPI.cls.xml	(revision 0)
+++ TECH/Background/impl/BackgroundJobAPI.cls.xml	(revision 1090)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Background.impl.BackgroundJobAPI">
+<Super>TECH.RegisteredObject,TECH.Background.BackgroundJobAPI</Super>
+
+<Property name="BackgroundJobMgr">
+<Type>TECH.Background.BackgroundJobMgr</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BackgroundJobStarter">
+<Type>TECH.Background.BackgroundJobStarter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BackgroundJobStopper">
+<Type>TECH.Background.BackgroundJobStopper</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>BackgroundJobMgr:TECH.Background.BackgroundJobMgr,BackgroundJobStarter:TECH.Background.BackgroundJobStarter,BackgroundJobStopper:TECH.Background.BackgroundJobStopper</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..BackgroundJobMgr = $get(BackgroundJobMgr, ##class(TECH.Background.impl.BackgroundJobMgr).%New()) 
+	set ..BackgroundJobStarter = $get(BackgroundJobStarter, ##class(TECH.Background.impl.BackgroundJobStarter).%New()) 
+	set ..BackgroundJobStopper = $get(BackgroundJobStopper, ##class(TECH.Background.impl.BackgroundJobStopper).%New()) 
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BestaatBackgroundJob">
+<FormalSpec>BackgroundJobID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..BackgroundJobMgr.BestaatBackgroundJob(BackgroundJobID)
+]]></Implementation>
+</Method>
+
+<Method name="IsBackgroundJobActief">
+<FormalSpec>BackgroundJobID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..BackgroundJobMgr.IsBackgroundJobActief(BackgroundJobID)
+]]></Implementation>
+</Method>
+
+<Method name="StartBackgroundJob">
+<FormalSpec>BackgroundJobID:%String</FormalSpec>
+<Implementation><![CDATA[	do ..BackgroundJobStarter.StartBackgroundJob(BackgroundJobID)
+]]></Implementation>
+</Method>
+
+<Method name="StopBackgroundJob">
+<FormalSpec>BackgroundJobID:%String</FormalSpec>
+<Implementation><![CDATA[	do ..BackgroundJobStopper.StopBackgroundJob(BackgroundJobID)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>