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) Index: cAN0083.mac.rou =================================================================== diff -u -r29059 -r51925 --- cAN0083.mac.rou (.../cAN0083.mac.rou) (revision 29059) +++ cAN0083.mac.rou (.../cAN0083.mac.rou) (revision 51925) @@ -55,10 +55,10 @@ ; Versturen alert indien controle via BGJOB's I $G(SWBG)'=1 G YZ I TOTDIF>0 D - . ; Versturen alert naar support@datam.be, er zijn verschillen gevonden + . ; Versturen alert naar ict_meldingen@vanhoecke.be, er zijn verschillen gevonden . S ALERT=$P($G(^DPAR(0,"BATCH",VNR,0)),D,3) I TOTDIF'>0 D - . ; Versturen alert naar logging@datam.be, er zijn geen verschillen gevonden + . ; Versturen alert naar ict_meldingen@vanhoecke.be, er zijn geen verschillen gevonden . S ALERT=$P($G(^DPAR(0,"BATCH",VNR,0)),D,4) I '$L($G(ALERT)) G YZ ; Versturen van de alert Index: cAN0081.mac.rou =================================================================== diff -u -r43425 -r51925 --- cAN0081.mac.rou (.../cAN0081.mac.rou) (revision 43425) +++ cAN0081.mac.rou (.../cAN0081.mac.rou) (revision 51925) @@ -32,9 +32,9 @@ . D 2 . D 3 . I $P($P(^TEMPC($T(+0),DMS,1,0,3),"/"),":",2)'=0!( $P($P(^TEMPC($T(+0),DMS,1,0,3),"/"),":",2)'=0) D Q - .. ; Versturen alert naar support@datam.be, er zijn verschillen gevonden + .. ; Versturen alert naar ict_meldingen@vanhoecke.be, er zijn verschillen gevonden .. D D1018^cANEM0($T(+0),$P($T(T0),U,2),DMS) - . ; Versturen alert naar logging@datam.be, er zijn geen verschillen gevonden + . ; Versturen alert naar ict_meldingen@vanhoecke.be, er zijn geen verschillen gevonden . D D1017^cANEM0($T(+0),$P($T(T0),U,2),DMS) 11 W /CUP(3,1),@F1 D TOONTEMP(1),TOONTEMP(2) Index: cA350.mac.rou =================================================================== diff -u -r43431 -r51925 --- cA350.mac.rou (.../cA350.mac.rou) (revision 43431) +++ cA350.mac.rou (.../cA350.mac.rou) (revision 51925) @@ -122,7 +122,7 @@ ; MAILNR is volgnummer in ^MAIL (veld 101) S $ZT="TRAP^cAN000" ;voorlopig N A,B,C,MSG,OK,ZA,ZB,ZC,UQC,USC,IREF,UREF,UI1,AUTOMAIL,UFU,I,DATA,TO,CC,I4,FROM - S FROM=$$FROM ; S FROM="system@datam.be" + S FROM=$$FROM S AUTOMAIL=1 I '$D(UQC) D DMS^cAN000("UQC","USC","MAIL") S UREF=^DMC(UQC,USC,"DATA","REF"),UI1=MAILNR