Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r72799 -r72860
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 72799)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 72860)
@@ -168,47 +168,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ZoekViaLpnCode">
-<FormalSpec>ZoekViaLpnCodeRequest:WS.Halux.AAP.ZoekViaLpnCodeRequest</FormalSpec>
-<ReturnType>WS.Halux.AAP.ZoekViaLpnCodeResponse</ReturnType>
-<Implementation><![CDATA[
-	Set Response = ##class(WS.Halux.AAP.ZoekViaLpnCodeResponse).%New()
-	Set Response.MeerdereToeleveringenToegestaan = $$$False
-	
-	Try {
-		#dim LpnCode = ##class(TECH.StringUtils).ToUpper(ZoekViaLpnCodeRequest.LpnCode)		
-		#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaLpnCodeEnRecent(LpnCode)
-		#dim DnaCode As DOM.Halux.AAP.DnaCode
-		#dim KlantinstellingenOpgevraagd As %Boolean = $$$False
-		#dim KlantinstellingenIterator As TECH.Iterator
-		
-		If DnaCodeIterator.HasNext() {
-			Set Response.Header.Status = "200"
-			While DnaCodeIterator.HasNext() {
-				Set DnaCode = DnaCodeIterator.Next()
-				If $$$Not(KlantinstellingenOpgevraagd) {
-					Set KlantinstellingenIterator = ..KlantinstellingenRepository.ZoekViaKlantId(DnaCode.KlantNummer)
-					If KlantinstellingenIterator.HasNext() {
-						Set Response.MeerdereToeleveringenToegestaan = KlantinstellingenIterator.Next().MeerdereToeleveringen
-					}
-					Set KlantinstellingenOpgevraagd = $$$True
-				}
-				Do Response.DnaCodes.Insert(..DnaCodeNaarDto(DnaCode))
-			}
-		} Else {
-			Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
-			Set Response.Header.Omschrijving = "Geen data gevonden voor LPN code '"_LpnCode_"'"
-		}
-	} Catch {
-		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		Set Response.Header.Status = Exception.GeefExceptionCode()
-		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
-	}
-	
-	Quit Response
-]]></Implementation>
-</Method>
-
 <Method name="ZoekAlleVhossLadesBijDnaCode">
 <FormalSpec>ZoekAlleVhossLadesBijDnaCode:WS.Halux.AAP.ZoekAlleVhossLadesBijDnaCodeRequest</FormalSpec>
 <ReturnType>WS.Halux.AAP.ZoekAlleVhossLadesBijDnaCodeResponse</ReturnType>
@@ -391,12 +350,10 @@
 					Set DnaCode.InitialenScanner = ""
 					Set DnaCode.ScanTijdstip = ""
 					Set DnaCode.PalletCode = ""
-					Set DnaCode.LpnCode = ""
 					Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Ongedaan()
 				} Else {
 					Set DnaCode.InitialenScanner = DnaCodeAfmeldenRequest.Header.Initialen
 					Set DnaCode.PalletCode = DnaCodeAfmeldenRequest.PalletCode
-					Set DnaCode.LpnCode = DnaCodeAfmeldenRequest.LpnCode
 					Set DnaCode.ScanTijdstip = ..DateTimeAPI.CurrentHorolog()
 					If $$$HasLength(DnaCodeAfmeldenRequest.Locatie) {
 						Set DnaCode.Locatie = DnaCodeAfmeldenRequest.Locatie
@@ -1126,7 +1083,6 @@
 	Set DnaCodeDto.ProductNummer = DnaCode.ProductNummer 
 	Set DnaCodeDto.DnaCode = DnaCode.DnaCode 
 	Set DnaCodeDto.PalletCode = DnaCode.PalletCode
-	Set DnaCodeDto.LpnCode = DnaCode.LpnCode 
 	Set DnaCodeDto.Toelevering = DnaCode.Toelevering 
 	Set DnaCodeDto.KlantNummer = DnaCode.KlantNummer 
 	Set DnaCodeDto.Locatie = DnaCode.Locatie