Index: cQ14.mac.rou
===================================================================
diff -u -r43424 -r51925
--- cQ14.mac.rou	(.../cQ14.mac.rou)	(revision 43424)
+++ cQ14.mac.rou	(.../cQ14.mac.rou)	(revision 51925)
@@ -188,11 +188,11 @@
 	S (TO,DTO)=""
 	D DMS^cAN000("UQC","USC","MAIL.ADDR") S UREF=^DMC(UQC,USC,"DATA","REF"),IREF=^("INDEX")
 	I 'X D
-	. S K=$O(@IREF@(103,"SUPPORT")) I (K["SUPPORT")&(K["DATAMBE") S UI1=^(K),(DTO,TO)=$P($G(@UREF@(0)),D,3)
-	. I '$L(TO) S (DTO,TO)="support@datam.be"
+	. ;S K=$O(@IREF@(103,"SUPPORT")) I (K["SUPPORT")&(K["DATAMBE") S UI1=^(K),(DTO,TO)=$P($G(@UREF@(0)),D,3)
+	. I '$L(TO) S (DTO,TO)="ict_meldingen@vanhoecke.be"
 	I X D
-	. S K=$O(@IREF@(103,"LOGGING")) I (K["LOGGING")&(K["DATAMBE") S UI1=^(K),(DTO,TO)=$P($G(@UREF@(0)),D,3)
-	. I '$L(TO) S (DTO,TO)="logging@datam.be"
+	. ;S K=$O(@IREF@(103,"LOGGING")) I (K["LOGGING")&(K["DATAMBE") S UI1=^(K),(DTO,TO)=$P($G(@UREF@(0)),D,3)
+	. I '$L(TO) S (DTO,TO)="ict_meldingen@vanhoecke.be"
 	S CC=$G(^cLOG($ZU(5),"ALERT","OPTIONAL"))
 	S K=$$SIG^cAFA1("PAR","MAIL",105) I '$L(K) S K=$ZCVT($ZU(110),"U")
 	S DFROM=K_" <"_FROM_">" D ANOW(.N),AEND(.N)