Index: vhTERMINA.mac.rou
===================================================================
diff -u -r2077 -r2095
--- vhTERMINA.mac.rou	(.../vhTERMINA.mac.rou)	(revision 2077)
+++ vhTERMINA.mac.rou	(.../vhTERMINA.mac.rou)	(revision 2095)
@@ -197,55 +197,10 @@
  If $$IntExtIP(io)="E" Set sScrVTW=$$IsVTWExtern^vhUSER()
  Quit sScrVTW
  
- ; Invullen van de jobwatcher
-PutJobWatch(String)
-	New Next
-	Set Next=$O(^JobWatch(io,""),-1)+1
-	Set ^JobWatch(io,Next)=String
-	Quit
-	
  ; Om JobWatch op te starten vanuit IINT
 GoJobWatch
-	Goto 11^IINT:'$D(^JobWatch(io))
-	Do JobWatch()
-	Quit
- 
- ; Opvolgen van JobWatch
- ; Wait - (0 of "") = eenmalig, numeriek = wachten op een keyinput
-JobWatch(Wait)
-	New Next,Xecute,Point
-	Set Wait=$G(Wait),Point=""
-	While $D(Wait) {
-		While $D(^JobWatch(io)) {
-			Set Next=$O(^JobWatch(io,""))
-			Set Xecute=^JobWatch(io,Next)
-			Kill ^JobWatch(io,Next)
-			If $L(Xecute) Do XecuteJobWatch(Xecute)
-			Set Point=""
-		}
-		If Wait {
-			Continue:$D(^JobWatch(io))
-			Do DISPLAY^vhScherm("JOBWATCH")
-			Write @FCH
-			Set Point=Point_"."
-			Set:$L(Point)>78 Point="."
-			Set FP=2002
-			Write @F,Point
-			Read *Next:1
-			Write @FCS
-			;If Next=27,'$D(^JobWatch(io)) Quit
-			If Next'=-1,'$D(^JobWatch(io)) Quit
-		}
-		Else  {
-			Kill Wait
-		}
-	}
-	Write @F11,@F1
- Quit
- 
- ; Uitvoeren van de opdracht
-XecuteJobWatch(Xecute)
-	New (Xecute)
-	Xecute Xecute
-	Quit
- 
\ No newline at end of file
+	Set TerminalNavigatieService=##Class(APPS.CHUI.TerminalNavigatieService).%New()
+	Set ComputerNaam=##Class(TECH.Context.RuntimeContext).Instance().GeefComputerNaam()
+	Goto 11^IINT:'TerminalNavigatieService.HeeftTaak(ComputerNaam)
+	Do TerminalNavigatieService.VoerTaakUit(ComputerNaam)
+	Quit
\ No newline at end of file