Index: APPS/CHUI/TerminalNavigatieService/impl/TerminalNavigatieWatcher.cls.xml
===================================================================
diff -u
--- APPS/CHUI/TerminalNavigatieService/impl/TerminalNavigatieWatcher.cls.xml	(revision 0)
+++ APPS/CHUI/TerminalNavigatieService/impl/TerminalNavigatieWatcher.cls.xml	(revision 2089)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.CHUI.TerminalNavigatieService.impl.TerminalNavigatieWatcher">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="JobWatch">
+<Description>
+Opvolgen van JobWatch
+Wait - (0 of "") = eenmalig, numeriek = wachten op een keyinput</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Wait</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	Set Wait=$G(Wait)
+	Set ComputerNaam=##class(TECH.Context.RuntimeContext).Instance().GeefComputerNaam()
+	Set JobWatch=..%New()
+	
+	While $D(Wait) {
+		Do JobWatch.ControleerTaak(ComputerNaam)
+		If Wait {
+			Do DISPLAY^vhScherm("JOBWATCH")
+			Write @FCH
+			Read *Next:1
+			Write @FCS
+			If $LF($LB(27,45),Next) Quit
+		}
+		Else  {
+			Kill Wait
+		}
+	}
+	Write @F11,@F1
+]]></Implementation>
+</Method>
+
+<Method name="ControleerTaak">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ComputerNaam</FormalSpec>
+<Implementation><![CDATA[
+	Set NVS=##Class(APPS.CHUI.TerminalNavigatieService).%New()
+	Do:NVS.HeeftTaak(ComputerNaam) NVS.VoerTaakUit(ComputerNaam)
+]]></Implementation>
+</Method>
+</Class>
+</Export>