Index: vhTERMINA.mac.rou
===================================================================
diff -u -r734 -r2076
--- vhTERMINA.mac.rou	(.../vhTERMINA.mac.rou)	(revision 734)
+++ vhTERMINA.mac.rou	(.../vhTERMINA.mac.rou)	(revision 2076)
@@ -195,4 +195,57 @@
  New sScrVTW,io
  Set io=$G(io,$$IO^cQ5),sScrVTW=0
  If $$IntExtIP(io)="E" Set sScrVTW=$$IsVTWExtern^vhUSER()
- Quit sScrVTW
\ No newline at end of file
+ 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("JOBWATCHER")
+			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
Index: vhDeploy/CW/Deploy20110914x1641.cls.xml
===================================================================
diff -u
--- vhDeploy/CW/Deploy20110914x1641.cls.xml	(revision 0)
+++ vhDeploy/CW/Deploy20110914x1641.cls.xml	(revision 2076)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.CW.Deploy20110914x1641">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Omschrijving">
+<Default>Doorlinken naar ADMIN</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Set ^SD("D","JOBWATCH")="1`""Adminlink""`H`80`92`16"
+]]></Implementation>
+</Method>
+</Class>
+</Export>