Index: vhLib/TerminalDevice.cls.xml
===================================================================
diff -u -r3776 -r3844
--- vhLib/TerminalDevice.cls.xml	(.../TerminalDevice.cls.xml)	(revision 3776)
+++ vhLib/TerminalDevice.cls.xml	(.../TerminalDevice.cls.xml)	(revision 3844)
@@ -27,6 +27,7 @@
 		"1.195":"jcl", 
 		"1.206":"jcl", 
 		"1.204":"fma" , 
+		"12.17":"fma" , 
 		"1.42":"mvi",
 		"1.51":"mvi", 
 		"1.110":"pvr",
@@ -35,6 +36,7 @@
 		"1.73":"sca",
 		"1.74":"sca",
 		"12.50":"sca" ,
+		"13.78":"kge",
 		"1.207":"jwi",
 		"1.43":"lla",
 		"1.252":"she",
@@ -72,7 +74,8 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim GebruikerInitialenVanToestel As %String = $$$LCase(..GeefGebruikerInitialenVanToestel(Toestel))
-	quit $select(GebruikerInitialenVanToestel?1(1"pv",1"wv",1"wro",1"pra",1"jcl",1"fma",1"mvi",1"kca",1"tve",1"sca",1"jwi",1"thb",1"pvr",1"lla",1"kcu"1"jba"):GebruikerInitialenVanToestel, 1:"")
+	quit $select(GebruikerInitialenVanToestel?1(1"pv",1"wv",1"wro",1"pra",1"fma",1"tve",1"sca",1"jwi",1"thb",1"pvr",1"lla",1"jba",1"kge",1"ash",1"ghe"):GebruikerInitialenVanToestel, 1:"")
+	// Uitgefaseerd :  ,1"jcl",1"mvi",1"kca",1"kcu",
 ]]></Implementation>
 </Method>
 </Class>