Index: WS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r56079 -r56080
--- WS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56079)
+++ WS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56080)
@@ -18,6 +18,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="HeaderValidator">
+<Type>WSimpl.Halux.AAP.HeaderValidator</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -26,6 +31,7 @@
 <Implementation><![CDATA[
 	Do ##super()
 	Set ..DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New()
+	Set ..HeaderValidator = ##class(WSimpl.Halux.AAP.HeaderValidator).%New()
 
 	Quit $$$OK
 ]]></Implementation>
@@ -75,7 +81,9 @@
 <FormalSpec>Request:%CacheString,UitTeVoerenMethod:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%CacheString</ReturnType>
-<Implementation><![CDATA[	Quit $Method(..DnaCodeService, UitTeVoerenMethod, Request)
+<Implementation><![CDATA[
+	Do ..HeaderValidator.ValidateHeader(Request.Header)
+	Quit $Method(..DnaCodeService, UitTeVoerenMethod, Request)
 ]]></Implementation>
 </Method>
 </Class>