Index: WS/OBJT/MES/dto/RegisterOlTagRequest.cls.xml
===================================================================
diff -u -r72671 -r72686
--- WS/OBJT/MES/dto/RegisterOlTagRequest.cls.xml	(.../RegisterOlTagRequest.cls.xml)	(revision 72671)
+++ WS/OBJT/MES/dto/RegisterOlTagRequest.cls.xml	(.../RegisterOlTagRequest.cls.xml)	(revision 72686)
@@ -21,10 +21,10 @@
 <Parameter name="XMLNAME" value="pinCode"/>
 </Property>
 
-<Property name="Parameters">
+<Property name="WerkPost">
 <Type>%String</Type>
 <Collection>array</Collection>
-<Parameter name="XMLNAME" value="parameters"/>
+<Parameter name="XMLNAME" value="workCenter"/>
 </Property>
 </Class>
 
Index: WSimpl/OBJT/MESService.cls.xml
===================================================================
diff -u -r72667 -r72686
--- WSimpl/OBJT/MESService.cls.xml	(.../MESService.cls.xml)	(revision 72667)
+++ WSimpl/OBJT/MESService.cls.xml	(.../MESService.cls.xml)	(revision 72686)
@@ -23,15 +23,24 @@
 <FormalSpec>ValidateOlTag:WS.OBJT.MES.dto.ValidateOlTagRequest</FormalSpec>
 <ReturnType>WS.OBJT.MES.dto.ValidateOlTagResponse</ReturnType>
 <Implementation><![CDATA[
-	#dim DataOphaler As APPS.VKP.Maatwerk.LadeRegistratie.impl.IDataOphaler = ..BepaalDataOphaler("")
-	#dim IsOlTagUniek As %Boolean = ..LadeRegistratieService.IsRegistratieCodeUniek(DataOphaler.ExtractRegistratieCodeVanURL(ValidateOlTag.Parameters("DNAcode"))) //TO DO
 	Set Reponse = ##class(WS.OBJT.MES.dto.ValidateOlTagResponse).%New()
 	
-	If (IsOlTagUniek) {
-		Set Reponse.Result = "VALID"
-	} Else {
+	Try {
+		#dim DataOphaler As APPS.VKP.Maatwerk.LadeRegistratie.impl.IDataOphaler = ..BepaalDataOphaler("")
+		#dim IsOlTagUniek As %Boolean = ..LadeRegistratieService.IsRegistratieCodeUniek(DataOphaler.ExtractRegistratieCodeVanURL(ValidateOlTag.OlTag))	
+		
+		If (IsOlTagUniek) {
+			Set Reponse.Result = "VALID"
+		} Else {
+			Set Reponse.Result = "INVALID"
+		}
+	} Catch {
 		Set Reponse.Result = "INVALID"
-	}
+		Set Reponse.ValidatieError = "Er is een fout opgetreden tijdens het valideren van de OlTag."
+		
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ##class(vhLib.Logger).%New("MESService - Valideer OL Tag").Error(Reponse.ValidatieError,Exception.ToString())
+	}	
 	
 	Quit Reponse
 ]]></Implementation>
@@ -44,16 +53,16 @@
 	#dim Werkpost As APPS.Halux.common.enu.Werkpost
 	Set Response = ##class(WS.OBJT.MES.dto.RegisterOlTagResponse).%New()
 	
-	If ($Data(RegisterOlTag.Parameters("workstation"))) {
-	 	Set Werkpost = ..BepaalCacheBekendeWerkpost(RegisterOlTag.Parameters("workstation"))
+	If $$$Not(RegisterOlTag.WerkPost = "") {
+	 	Set Werkpost = ..BepaalCacheBekendeWerkpost(RegisterOlTag.WerkPost)
 	} 
 	
 	If (Werkpost = "") {
 		Do ##class(TECH.ExceptionHandler).Throw("Geen geldige werkpost gevonden om OlTag '" _ RegisterOlTag.OlTag _"' succesvol te registreren.")
 	}
 	
 	#dim DataOphaler As APPS.VKP.Maatwerk.LadeRegistratie.impl.IDataOphaler = ..BepaalDataOphaler(Werkpost)
-	Do DataOphaler.Registratie("D", RegisterOlTag.Parameters("workstation"), RegisterOlTag.OlTag)
+	Do DataOphaler.Registratie("D", RegisterOlTag.PinCode, RegisterOlTag.OlTag, "2")
 	
 	Quit Response
 ]]></Implementation>
@@ -70,8 +79,8 @@
 								"PERS L3 LBX":##class(APPS.Halux.common.enu.Werkpost).LegraPers3(), 
 								"PERS L4 TBX":##class(APPS.Halux.common.enu.Werkpost).Pers2(), 
 								"PERS L4 MVX":##class(APPS.Halux.common.enu.Werkpost).MerivoPers4(), 
-								"PERS L5 LBX":"", 
-								"PERS L5 MVX":"",
+								"PERS L5 LBX":##class(APPS.Halux.common.enu.Werkpost).LegraPers5(), 
+								"PERS L5 MVX":##class(APPS.Halux.common.enu.Werkpost).MerivoPers5(),
 								 :"")
 ]]></Implementation>
 </Method>
Index: WS/OBJT/MES/dto/ValidateOlTagRequest.cls.xml
===================================================================
diff -u -r72671 -r72686
--- WS/OBJT/MES/dto/ValidateOlTagRequest.cls.xml	(.../ValidateOlTagRequest.cls.xml)	(revision 72671)
+++ WS/OBJT/MES/dto/ValidateOlTagRequest.cls.xml	(.../ValidateOlTagRequest.cls.xml)	(revision 72686)
@@ -21,10 +21,10 @@
 <Parameter name="XMLNAME" value="pinCode"/>
 </Property>
 
-<Property name="Parameters">
+<Property name="WerkPost">
 <Type>%String</Type>
 <Collection>array</Collection>
-<Parameter name="XMLNAME" value="parameters"/>
+<Parameter name="XMLNAME" value="workCenter"/>
 </Property>
 </Class>