Index: Tools/Install.cls.xml
===================================================================
diff -u -r1440 -r1464
--- Tools/Install.cls.xml	(.../Install.cls.xml)	(revision 1440)
+++ Tools/Install.cls.xml	(.../Install.cls.xml)	(revision 1464)
@@ -72,7 +72,7 @@
 <Implementation><![CDATA[
 	#dim Subscript As %String = $O(^cLOG(""))
 	While Subscript '= "" {
-		If $$$Not(((Subscript = "0") || (Subscript = "WACHTW"))){
+		If $$$Not(((Subscript = "0") || (Subscript = "WACHTW") || (Subscript = "CTK0"))){
 			Kill ^cLOG(Subscript)
 		}
 		Set Subscript = $O(^cLOG(Subscript))
@@ -86,6 +86,8 @@
 	set ^cLOG($$$Server,"TTT") = 1
 	Set ^cLOG($$$Server,"UPDATE",0)	= 	"0\A:\d:/datam/temp/"
 	Set ^cLOG($$$Server,"Q",$$$NSpace) = "DAM\K"
+	
+	/// Op cache01 wordt hiermee de EWRECR gestart :  	Set ^cLOG("CACHE01","STU") = "1\do Cache2010^vhSTART"
 	Set ^cLOG($$$Server,"STU") = "0\"
 	
 	Set ^cLOG($$$Server,"DAM",0)="Parameters modules Data-M"
@@ -119,6 +121,13 @@
 		#dim Poort As %Integer = PoortOpComputerNaamIt.Key()		
 		set ^cLOG($$$Server,"QQM",Poort,$$$NSpace)="K\1\"
 		
+		
+		/// Deze wordt in principe ingesteld via LVHDPAR bij eerste login van een gebruiker
+		 	; Device-driver MC + input-driver
+			/* If $P($G(^cLOG(boot,"DEV",io)),D)'="MC" Do
+			. New K   ; noodzakelijk voor %A5000
+			. Set $P(^(io),D)="MC" Kill U("D") Do ^cA600
+			*/		
 		Set ^cLOG($$$Server,"DEV",Poort) = "MC"
 	}
 ]]></Implementation>