✎ Почтовая рассылка [Клиника Wiki]

Отредактируйте страницу и нажмите «Сохранить». Прочтите справочную страницу для ознакомления с синтаксисом вики. Пожалуйста, редактируйте только в том случае, если планируете улучшить содержимое. Если вы просто хотите потестировать что-либо, воспользуйтесь специальной страницей: PlayGround.

====== Почтовая рассылка ======

==== Описание модуля ====
Для почтовой рассылки приобретена одна лицензия, установлена на ЦБД. В связи с этим, все почтовые сообщения отправляются только с ЦБД.\\
Сам модуль почтовой рассылки установлен на сервере 192.168.2.10, как и сервер отчетов, который формирует протоколы и другие отчеты в формате PDF.

Текст письма и заголовок формируется отдельно настроенной процедурой при формировании (оптравки) письма непосредственно.

==== Текст рассылки исследования ====
<spoiler|Текст процедуры>
<code sql>
create or alter procedure USER$MAIL_LAB_PROTOCOL
(
 MAILLOGID integer,
 PROTOCOLID integer = null
)
returns
(
 SPRESULT integer,
 SPCOMMENT varchar(255),
 MAILHEADER TTEXT255,
 MAILTEXT TTEXT4096
)
as
declare pcode type of column clients.pcode;
declare pol type of column clients.pol;
declare name ttext255;
begin
 if (ProtocolID is null) then
 select protocolid from mail_log m
 where m.mailid= :MAILLOGID
 into ProtocolID;
 if (ProtocolID is null) then
 begin
 SPRESULT = 1;
 SPCOMMENT = 'Переданы не все параметры';
 suspend;
 exit;
 end

select pcode from treatplace tp where tp.protocolid= :ProtocolID
    into :pcode;
  select pol, firstname||' '||midname from clients c
   where c.pcode= :pcode
    into :pol, :name;
  if (pol = 1) then
      name = 'Уважаемый '||name;
    else if (pol = 2) then
      name = 'Уважаемая '||name;
    else name = '';

MailHeader = 'Лаборатория ЗАО МЦК. Результаты анализов '||ProtocolID;
 MailText = '<html>'||
 'Сообщение от автоматической системы доставки результатов. '||
 '<center>'||name||'</center> '||
 'По Вашей заявке мы высылаем результаты анализов на указанный Вами адрес электронной почты. Результаты исследований содержатся во вложенном файле формата Adobe(R) PDF компании Adobe Systems.* Для его просмотра на компьютере рекомендуем воспользоваться программами семейства Adobe(R) Acrobat(R). Спасибо, что доверяете нам заботу о Вашем здоровье! Искренне Ваш, коллектив ЗАО "МЦК". тел.: +7&nbsp;(495)&nbsp;725-31-43 (многоканальный) сайт: <a href="http://www.mckolomen.ru/">www.mckolomen.ru</a><hr color=silver>'||name||', в случае, если Вы заметите неточности или технически не корректную информацию, просим Вас сообщить по телефону +7&nbsp;(495)&nbsp;725-31-43 или обратным письмом на данный адрес.* Доводим до Вашего сведения, что формат Adobe(R) PDF выбран нами, поскольку является стандартом Международной организации по стандартизации ISO 32000 и de facto признается во всем мире эталоном в области электронного документооборота, что позволяет гарантировать качество и достоверность передаваемой Вам информации. Обращаем также ваше внимание на то, что ответственность за возможные последствия установки и использования любого программного обеспечения для работы с файлами формата PDF целиком лежит на его разработчике, а так же на лице(ах) непосредственно производившем его установку на Вашем компьютере. ЗАО "МЦК" не принимает претензии по данным вопросам.ЗАКЛЮЧЕНИЕ О КОНФИДЕНЦИАЛЬНОСТИ. Данное электронное сообщение, включая вложения, содержит конфиденциальную информацию, защищенную законодательством РФ. Оно предназначено исключительно адресату. Всем прочим лицам доступ к данному сообщению, включая вложения, запрещен. Несанкционированное его использование, распространение, публикация, воспроизведение или любые действия либо бездействие, повлекшее за собой это, запрещены и могут преследоваться по закону.</html>';
 SPRESULT = 0;
 SPCOMMENT = 'Текст и заголовок письма успешно сформированы';
 suspend;
End
</code>
</spoiler>

==== Триггер ====
Запись о необходимости рассылки протокола, формируется при создании самого протокола на филиальной БД триггером. Контроль отправки осуществляется тем же триггером, работающем на ЦБД.
<spoiler|Текст триггера>
<code sql>
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
</code>
</spoiler>

==== Соглашение на рассылку ====
В связи с тем, что пациент может указать не корректный адрес или администратор может ошибиться при наборе, а также для контроля разрешения на отправку рассылки сделана отчетная форма в картотеке пациентов, которая дается на подпись пациенту для разрешения рассылки, с указанием адреса для проверки.

=== Настройки в карточке регистрации ===
Для настройки в карточке регистрации данных для рассылки, необходимо заполнить 2 поля:
  * "E-mail" - текстовое поле на вкладке "Контакты"
  * "Отказ от почтовой рассылки" - признак.\\ Если пациент хочет получать рассылку. признак должен быть не активен

==== Отчет по отправке ====
Для контроля отправленных данных по сформированных результатам исследований, также есть отчетная форма в картотеке пациентов, которая по таблице почтовых сообщений (MAIL_LOG) выводит все сформированные сообщения для данного пациента со статусом отправки.

Сводка изменений

Примечание: редактируя эту страницу, вы соглашаетесь на использование своего вклада на условиях следующей лицензии: CC Attribution-Share Alike 4.0 International

Наверх

расширенная.настройка/почта/index.txt · Последние изменения: 2018/08/23 12:53 (внешнее изменение)