CREATE OR ALTER TRIGGER USER$TREATPLACE_MAILSEND FOR TREATPLACE
active after INSERT OR UPDATE POSITION 5
AS
DECLARE cmail TYPE OF COLUMN clients.clmail;
DECLARE rmail TYPE OF COLUMN clients.refuseclmail;
DECLARE ismain TYPE OF COLUMN filials.ismain;
DECLARE dtsend TIMESTAMP;
DECLARE rt INT;
BEGIN
/* формируем рассылку по email
1. для протоколов workplacedoc.viewinweb = 1 (отображать на сайте)
2. протокол подписан и это лаб протокол
1. отсутствует признак "протокол картинкой" из справочника услуг
3. отсутствует галка clients.REFUSECLMAIL = 0 (отказ от почтовой отправки протоколов ИБ)
4. введен email пациента
сообщение инициализируется со статусом null, через 6 часов отправляется на почту (статус = 0)
все действия с письмом выполняются в ЦБД, при загрузке протоколов
дополнительно проверяется статус услуг у всего заказ-наряда
*/
SELECT COALESCE(ismain,0) FROM repl$getgrpid g
LEFT JOIN filials f ON f.grpid=g.repl$grpid
INTO :ismain;
IF (ismain = 1)THEN
BEGIN
-- ЦБД часть - планируем
UPDATE mail_log m
SET MAILSTATUS = 0
WHERE MAILSTATUS IS NULL
AND MAILTYPEID = 990000001
AND ((SELECT MIN(astatus) FROM treatsch ts WHERE ts.treatcode=m.treatcode AND ts.cancid IS NULL)=2 OR
(SELECT COUNT(*) FROM treatsch ts WHERE ts.treatcode=m.treatcode AND ts.cancid IS NULL) = 0)
AND (CREATEDATE < dateadd(-6 HOUR TO CURRENT_TIMESTAMP) OR
COALESCE((SELECT COALESCE(cito,0) FROM clreferrals r WHERE r.rtreatcode=m.treatcode),0)=1);
END
ELSE
BEGIN
-- филиальная часть - формируем
-- подписан и отсутствует спец.признак /* картинка */ /* лаб протокол */
IF (NEW.pstate=1 AND COALESCE(OLD.pstate,0)=0 AND (NEW.placeid IN (990000181,990000376) OR NEW.placeid=9 AND
NOT EXISTS(SELECT * FROM treatsch ts
JOIN recpropvalues r ON r.recid=ts.schid
AND rectype=31
AND recpropid=990000006
AND propvalueint=1
WHERE ts.treatcode=NEW.treatcode)) ) THEN
BEGIN
-- можно рассылать и нет еще такого протокола
IF (EXISTS(SELECT * FROM workplacedoc wp WHERE wp.placeid= NEW.placeid AND wp.viewinweb=1) AND
NOT EXISTS(SELECT * FROM mail_log m WHERE m.protocolid= NEW.protocolid AND m.pcode= NEW.pcode )) THEN
BEGIN
SELECT COALESCE(clmail,''), COALESCE(refuseclmail,1) FROM clients c WHERE c.pcode= NEW.pcode
INTO :cmail, :rmail;
-- совпадают данные по email
IF (rmail=0 AND CHAR_LENGTH(cmail)>=8 AND POSITION('@' IN cmail)>1) THEN
BEGIN
SELECT MAX(ws.runtime), MIN(printdate) FROM treatlab lt
LEFT JOIN treatsch ts ON ts.treatcode= NEW.treatcode
LEFT JOIN wschema ws ON ws.schid=ts.schid
WHERE lt.treatcode= NEW.treatcode
INTO rt, dtsend;
rt = COALESCE(NULLIF(rt,0),1);
IF (EXTRACT(HOUR FROM dtsend)>14)THEN
rt = rt+1;
dtsend = dateadd(rt DAY TO dtsend);
INSERT INTO mail_log(MAILTYPEID,MAILSTATUS,MAILADDRESS,CREATEDATE,
MAILHEADER,MAILTEXT,
ERRORTEXT,
UID,MODIFYDATE,
PCODE,TREATCODE,PROTOCOLID,MAILTYPE,PROTOCOLUID)
VALUES (990000001, NULL, :cmail, CURRENT_TIMESTAMP,
'Лаборатория ЗАО МЦК', 'Результаты анализов '||NEW.protocolid,
'Планируемая дата отправки '||CAST(:dtsend AS DATE),
rdb$get_context('USER_SESSION', 'USER_ID'), CURRENT_TIMESTAMP,
NEW.pcode, NEW.treatcode, NEW.protocolid, 1, 990000083);
END
END
END
END
END
