Index: BL/Derde/Agenda/GeoMobile.cls.xml
===================================================================
diff -u -r1074 -r1443
--- BL/Derde/Agenda/GeoMobile.cls.xml	(.../GeoMobile.cls.xml)	(revision 1074)
+++ BL/Derde/Agenda/GeoMobile.cls.xml	(.../GeoMobile.cls.xml)	(revision 1443)
@@ -32,6 +32,35 @@
 <Type>%Boolean</Type>
 </Property>
 
+<Method name="IsServiceAlive">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+  Set Datum=$H-3
+
+  &sql(DECLARE IsAlive CURSOR FOR
+		SELECT InsertTijdStip
+   		INTO :InsertTijdStip
+		FROM Derde_Agenda.GeoMobile
+		WHERE Datum>:Datum)
+
+    Set DiffTime=9999999999
+ 	&sql(OPEN IsAlive)
+ 	For  &sql(FETCH IsAlive) Quit:SQLCODE  Do
+ 	. Set Diff=$$DIFFTIME^vhDTyp(InsertTijdStip,$H)
+ 	. Quit:Diff<0
+ 	. Set:DiffTime>Diff DiffTime=Diff
+	&sql(CLOSE IsAlive)
+	
+	Set IsVerlof=$$CALCDATE^vhDTyp($H,"A","+0")'=+$H
+	Set IsArbeidsTijd=($P($H,",",2)>(3600*8))&&($P($H,",",2)<(3600*18))
+	Set MaxDiffTime=$S(IsVerlof:24,'IsArbeidsTijd:12,1:4)*3600
+	If DiffTime>MaxDiffTime Do ;Halve dag
+	. Set Body="Translocator service op TAPI herstarten"
+	. Set Body=Body_$C(13,13)_"Namespace: "_$zu(5)_$C(13)_"Server: "_$ZU(110)
+	. Do SendMiniMail^vhLib("admin@vanhoecke.be",$lb("pv@vanhoecke.be"),"Geomobile : Translocator gestopt : "_$J(DiffTime/3600,0,0),Body,,,,,)
+]]></Implementation>
+</Method>
+
 <Method name="ConfigAll">
 <Description>
 D ##class(BL.Derde.Agenda.GeoMobile).ConfigAll("INFO",6)</Description>