CORALERT ;Aanbrengen wijziging aan Alerts; CORALERT [ 02/02/01  10:37 AM ]
 ;
1 S I1=""
11 F  S I1=$O(^MAIL(0,"ALERT_USR",I1)) Q:I1=""  D      
 . I $P(^MAIL(0,"ALERT_USR",I1,0),D)'="D1004"&($P(^(0),D)'="D1005") Q
 . S $P(^(0),D,3)=9998
 ;
YZ Q
 ;
ZZ ; 05.02.01 - 10 u 15 * V7.84