Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r55631 -r55632
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 55631)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 55632)
@@ -7,8 +7,17 @@
 <FormalSpec>ValideerPalletCodeRequest:WS.Halux.AAP.ValideerPalletCodeRequest</FormalSpec>
 <ReturnType>WS.Halux.AAP.ValideerPalletCodeResponse</ReturnType>
 <Implementation><![CDATA[
+	#dim Match As %Boolean = $$$False
 	Set Response = ##class(WS.Halux.AAP.ValideerPalletCodeResponse).%New()
 	
+	#dim PalletCode = ##class(TECH.StringUtils).ToUpper(ValideerPalletCodeRequest.PalletCode)
+	
+	Set:(PalletCode ?1"TBX"5N) Match=$$$True  
+	
+	If Match {
+		Set Response.Header.Status = "200"
+	}
+	
 	Quit Response
 ]]></Implementation>
 </Method>