Index: vhLib/TerminalDevice.cls.xml
===================================================================
diff -u -r3625 -r3665
--- vhLib/TerminalDevice.cls.xml	(.../TerminalDevice.cls.xml)	(revision 3625)
+++ vhLib/TerminalDevice.cls.xml	(.../TerminalDevice.cls.xml)	(revision 3665)
@@ -38,7 +38,7 @@
 		"1.207":"jwi",
 		"1.43":"lla",
 		:"")
-		
+	
    If (ValideerInitialen) && (GebruikerInitialen = "")  {
 		Do ##class(TECH.Exceptions.InvalidInputException).Throw("GeefIctGebruikerInitialenVanIP is niet mogelijk. Definieer initialen voor IP '"_IP4Adres_"'.")
    }
@@ -54,7 +54,10 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim result As %String = $$$TextBetween(Toestel,"|TNT|","_")
-	set result = $piece(result,"-",1)
+	Set result = $Select(result["-":$Piece(result,"-",1),1:result)
+	If (result = "WS001") {
+		Set result = "lla"
+	}
 	quit result
 ]]></Implementation>
 </Method>
@@ -65,8 +68,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"jcl",1"fma",1"mvi",1"kca",1"tve",1"sca",1"jwi",1"thb"):GebruikerInitialenVanToestel, 1:"")
+	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"):GebruikerInitialenVanToestel, 1:"")
 ]]></Implementation>
 </Method>
 </Class>