Index: WS/TAPI/Router.cls.xml
===================================================================
diff -u -r37152 -r38499
--- WS/TAPI/Router.cls.xml	(.../Router.cls.xml)	(revision 37152)
+++ WS/TAPI/Router.cls.xml	(.../Router.cls.xml)	(revision 38499)
@@ -207,11 +207,40 @@
 
 	; Logging 
 	Do ..LogTapiInfo("WS:RouteInfo",CLIP,Line,Called,RouteData.User1_";"_RouteData.User2_";"_RouteData.User3,$S(AVRActive:"AVRActive",1:"")_";"_$S('Found:"Onbekend",ObjType="L":"Lev",1:""),RouteData.CustomerNumber)
-	
+	Do ..ControleerOpDubbels(CLIP)
 	Quit RouteData   ;$S(Found:RouteData,1:"")
 ]]></Implementation>
 </Method>
 
+<Method name="ControleerOpDubbels">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>CLIP</FormalSpec>
+<Implementation><![CDATA[
+	Set Datum=$H
+	Set Tijd=$P(Datum,",",2)
+	Set Datum=$P(Datum,",")
+	Set LaatsteVolgNr=196 ;$G(^TAPILOG(Datum))
+
+	Set MinTijd=99999999
+	Set MaxTijd=-1
+	Set Found=0
+	For VolgNr=LaatsteVolgNr:-1:LaatsteVolgNr-10 Do  Quit:Found=2
+	. Quit:'$D(^TAPILOG(Datum,VolgNr))
+	. Set List=^TAPILOG(Datum,VolgNr)
+	. Quit:$LI(List,2)'="WS:RouteInfo"
+	. Quit:$LI(List,3)'=CLIP
+	. If Found=1  Set MinTijd=$LI(List,1),MinVolgNr=VolgNr,Found=2
+	. If Found=0  Set MaxTijd=$LI(List,1),MaxVolgNr=VolgNr,Found=1
+
+	If (Found=2)&&(MaxTijd-MinTijd<2)&&(MinVolgNr'=MaxVolgNr) Do
+	. Set Body="Gelieve TAPI na te kijken of meldingen dubbel binnenkomen, en eventueel te herstarten van de TAPI service"
+	. Set Body=Body_$C(10,13)_"Beller : "_CLIP
+	. Set Body=Body_$C(10,13)_"Opgebeld : "_$LG(List,4)_", "_$LG(List,5)
+	. Set Body=Body_$C(10,13,10,13)_"Log ref : "_"^TAPILOG("_Datum_","_MaxVolgNr_")"
+	. Do SendMiniMail^vhLib.Mail("TAPI@vanhoecke.be",$LB("pv@vanhoecke.be","wro@vanhoecke.be","tov@vanhoecke.be"),"TAPI verwerkt routings dubbel",Body)
+]]></Implementation>
+</Method>
+
 <Method name="LogTapiInfo">
 <Description>
 Logging van een TAPIEvent.