Index: vhLib/TerminalDevice.cls.xml
===================================================================
diff -u -r3844 -r3860
--- vhLib/TerminalDevice.cls.xml	(.../TerminalDevice.cls.xml)	(revision 3844)
+++ vhLib/TerminalDevice.cls.xml	(.../TerminalDevice.cls.xml)	(revision 3860)
@@ -38,8 +38,8 @@
 		"12.50":"sca" ,
 		"13.78":"kge",
 		"1.207":"jwi",
-		"1.43":"lla",
-		"1.252":"she",
+		"1.43":"ash",
+		"1.252":"jlm",
 		:"")
 	
    If (ValideerInitialen) && (GebruikerInitialen = "")  {
@@ -59,7 +59,7 @@
 	#dim result As %String = $$$TextBetween(Toestel,"|TNT|","_")
 	Set result = $Select(result["-":$Piece(result,"-",1),1:result)
 	If (result = "WS001") {
-		Set result = "lla"
+		Set result = "ash"
 	}
 	If (result = "KCA") {
 		Set result = "jba"
@@ -74,7 +74,7 @@
 <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"fma",1"tve",1"sca",1"jwi",1"thb",1"pvr",1"lla",1"jba",1"kge",1"ash",1"ghe"):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"jba",1"kge",1"ash",1"ghe"):GebruikerInitialenVanToestel, 1:"")
 	// Uitgefaseerd :  ,1"jcl",1"mvi",1"kca",1"kcu",
 ]]></Implementation>
 </Method>