Вы посетили:

Различия

Здесь показаны различия между двумя версиями данной страницы.

Ссылка на это сравнение

Предыдущая версия справа и слева Предыдущая версия
Следующая версия 		Предыдущая версия
расширенная.настройка:рассылка.уведомлений:push [2019/05/16 17:40]
a.korobka [Повторная явка] 		расширенная.настройка:рассылка.уведомлений:push [2019/07/04 08:22] (текущий)
Строка 238: Строка 238:
 </​spoiler>​ </​spoiler>​
  
-<​spoiler|Скрипт> +Скрипт ​выполняется раз в день и указан на [[:администрирование:скрипты:фбд:Push - повторная явка|отдельной странице]]
-<code sql> +
-execute block +
-as +
-/* +
- * Скрипт рассылки ​пуш-уведомлений для повторного визита пациентов +
- * +
- * Автор: Коробка А.А. +
- */ +
--- константы +
-declare ttl int; +
-declare day_delay int; +
-declare datemsg date; +
-declare cnt int; +
-declare uid type of column doctor.dcode;​ +
--- данные протокола +
-declare date_interv int; +
-declare p1 int; +
-declare txt type of column paramsinfo.valuetext;​ +
-declare tmp type of column paramsinfo.valuetext;​ +
-declare date_litera ttext16; +
--- данные пациента +
-declare pcode type of column clients.pcode;​ +
-declare notify type of column clphones.notificationid;​ +
--- данные приема +
-declare treatcode type of column treat.treatcode;​ +
-declare trdate type of column treat.treatdate;​ +
-declare fjid type of column filials.jid;​ +
-declare filial type of column filials.filid;​ +
-declare fname type of column filials.shortname;​ +
-declare depnum type of column departments.depnum;​ +
-declare depname type of column departments.depname;​ +
-declare dcode type of column doctor.dcode;​ +
-declare dname type of column doctor.dname;​ +
-declare dcode_send type of column doctor.dcode;​ +
--- данные по услуге +
-declare spec int; +
-declare schid type of column wschema.schid;​ +
-declare worktime int; +
-declare structid type of column wschema.structid;​ +
--- вставка сообщения +
-declare logid type of column sms_log.logid;​ +
-declare smsid type of column sms_logdet.smsid;​ +
-declare smstypeid type of column sms_log.smstypeid;​ +
-declare smsrefid type of column sms_log.smsrefid;​ +
-declare smsprofileid type of column sms_log.smsprofileid;​ +
-declare pushtext type of column sms_log.smstext;​ +
-declare planbtime type of column sms_log.planbtime;​ +
-declare planftime type of column sms_log.planftime;​ +
-begin +
-  day_delay = 1; -- приглашать ​за 1 день минимум +
-  ttl = day_delay*24*60*60;​ -- напоминание держится (расчет на отправку сразу) +
-  uid = null; +
-  -- филиал выполнения +
-  select first 1 f.filid, f.shortname,​ f.jid +
-    from repl$getgrpid g +
-    left join filials f on f.grpid=g.repl$grpid +
-    into filial, fname, fjid; +
-  -- поиск структуры +
-  select first 1 structid from pricestructure +
-   where bdate<= current_date+1+ :day_delay order by bdate desc +
-    into structid; +
-  for select p.pcode, p.treatdate,​ dcode, treatcode, lower(trim(valuetext)),​ cp.notificationid +
-        from paramsinfo p +
-        left join clphones cp on cp.pcode=p.pcode +
-       where p.codeparams in (990001860/​* повторная явка */,​990002043/​*гастро*/,​ +
-                              990001689/​*аллерг-1*/,​990001823/​*аллерг-2*/,​ +
-                              990001748/*невро*/,​640000067/​*берем*/,​ +
-                              990002216/​*офтальм*/​) +
-         and p.ver_no = 0 +
-         and p.treatdate between current_date-370 and current_date +
-         and trim(valuetext)!=''​ +
-         and valuetext not like '%за результатами%' +
-         and coalesce(cp.isdeleted,​0)=0 +
-         and cp.phonetype=21 +
-         and cp.notificationid>''​ +
-  into pcode, trdate, dcode, treatcode, txt, notify do +
-  begin +
-    datemsg = null; +
-    date_interv = 0; +
-    -- +
-    while (position(' ​ ', txt)>0) do +
-    begin +
-      txt = replace(txt,​ ' ​ ', ' '); +
-    end +
- +
-    -- первым указано `через N период` +
-    if (position('​через ', txt)=1) then +
-    begin +
-      -- отсекаем 1е слово +
-      tmp = trim(substring(txt from 6)); +
-      -- иищем начало 2го слова +
-      p1 = position('​ ', tmp); +
-      if (p1>0) then +
-      begin +
-        begin +
-          date_interv = trim(substring(tmp from 1 for p1)); +
-          date_litera = trim(substring(tmp from p1 for 6)); +
-        end +
-        when any do begin end +
-      end +
-      -- +
-      if (date_interv>​0) then +
-      begin +
-        datemsg = case when date_litera like '​год%'​ then dateadd(date_interv year  to trdate) +
-                       when date_litera like '​мес%'​ then dateadd(date_interv month to trdate) +
-                       when date_litera like '​нед%'​ then dateadd(date_interv week  to trdate) +
-                       when date_litera like '​дн%' ​ then dateadd(date_interv day   to trdate) +
-                       when date_litera like '​ден%'​ then dateadd(date_interv day   to trdate) +
-                       else null end; +
-      end +
-    end +
- +
-    -- первой указана дата +
-    else +
-    begin +
-      tmp = substring(txt from 1 for 10); +
-      begin +
-        begin +
-          datemsg = cast(tmp as date); +
-        end +
-        when any do begin end +
-      end +
- +
-      tmp = substring(txt from 1 for 8); +
-      if (datemsg is null) then +
-      begin +
-        begin +
-          datemsg = cast(tmp as date); +
-        end +
-        when any do begin end +
-      end +
-    end +
- +
-    if ( datemsg between current_date+ ​:day_delay and current_date+1+ :day_delay ) then +
-    begin +
-      -- беру специализацию +
-      select first 1 ws.speccode from treat t +
-        join orderdet od on od.orderno=t.orderno +
-        join wschema ws on ws.schid=od.schcode +
-       where t.treatcode= :​treatcode +
-         and ws.consult=1 +
-        into spec; +
-      -- смотрю наличие записей к доктору +
-      select count(*) +
-        from doctor d +
-        left join USER$WEB__DOCTOR_WSCHEMA(d.dcode,​ null, :spec) u on 1=1 +
-        left join schedule s on s.workdate= :datemsg and s.dcode=d.dcode +
-       where d.filial= :filial +
-         and coalesce(d.locked,​0)=0 +
-         and u.avalue=1 +
-         and s.pcode= :pcode +
-        into cnt; +
-      ​-- готовлю сообщение +
-      if (cnt=0) then +
-      begin +
-        pushtext = null; +
-        schid = null; +
-        dcode_send = null; +
-        select first  1 schid, dcode, worktime +
-          from (select ws.schid, d.dcode, coalesce(ws.worktime,​ dic.rekvint3) worktime, +
-                      (ds.endhour*60+ds.endmin) - (ds.beghour*60+ds.begmin) alltime, +
-                      (select sum(case when pcode>0 or nazndis=1 then (s.fhour*60+s.fmin)-(s.bhour*60+s.bmin) else 0 end ) +
-                         from schedule s left join shedmarks m on m.mrkid=s.tmstatus where s.schedident=ds.schedident) denytime +
-                  from wschema ws +
-                  left join get_pricebyid(:​datemsg,​ 1, :filial, :fjid, 0, ws.schid) s on 1=1 +
-                  left join doctspec dsp on dsp.speccode= ws.speccode +
-                  join doctor d on d.dcode=dsp.dcode and d.filial= :filial +
-                  left join USER$WEB__DOCTOR_WSCHEMA(d.dcode,​ ws.schid) u on 1=1 +
-                  join doctshedule ds on ds.dcode=d.dcode and ds.wdate= :datemsg +
-                  left join dicinfo dic on dic.refid=-10010011 and dic.dcode=d.dcode and dic.rekvint1=ws.schid +
-                 where ws.structid= :structid and ws.speccode= :spec and ws.consult=1 +
-                   and s.sprice>​0 +
-                   and u.avalue=1 +
-                 order by coalesce(repconsult,​0) desc /* повторная выше */, case when d.dcode= :dcode then 1 else 0 end desc /* тот же доктор выше */) +
-         where alltime>​denytime /* есть время для записи */ +
-           and alltime-denytime > worktime +
-          into schid, dcode_send, worktime; +
-        -- возможность формирования +
-        if (schid is not null and dcode_send is not null) then +
-        begin +
-          -- данные +
-          select d.dname, dep.depnum, dep.depname +
-            from doctor d +
-            left join departments dep on dep.depnum=d.depnum +
-           ​where ​ d.dcode= :​dcode_send +
-            into dname, depnum, depname; +
-          -- формирование текста +
-          pushtext = '​{"​to":"'​||notify||'","​time_to_leave":'​||ttl||',"​notification":​{';​ +
-          pushtext = pushtext||'"​title":"​Приглашение","​body":"​Приглашаем Вас на повторный прием к доктору.",';​ +
-          pushtext = pushtext||'"​sound":"​true","​tag":"​record"​},';​ +
-          pushtext = pushtext||'"​data":​{"​action":"​record",';​ +
-          pushtext = pushtext||'"​DCode":'​||dcode_send||',"​DName":"'​||dname||'",';​ +
-          pushtext = pushtext||'"​DepNum":'​||depnum||',"​DepName":"'​||depname||'",';​ +
-          pushtext = pushtext||'"​filial":'​||filial||',"​FName":"'​||fname||'",';​ +
-          pushtext = pushtext||'"​WorkDate":"'​||(select datestr from formatdate(:​datemsg))||'",';​ +
-          pushtext = pushtext||'"​SchList":"'​||schid||'","​wtime":"'​||worktime||'",';​ +
-          pushtext = pushtext||'​}}';​ +
-          -- заполняем данные +
-          logid = gen_id(SMS_LOG_GEN,​ 1); +
-          smsid = gen_id(SMS_GEN,​ 1); +
-          smstypeid = 0; +
-          smsprofileid = 1; +
-          smsrefid = 70005; +
-          planbtime = dateadd(9 hour to cast(current_date as timestamp));​ +
-          planftime = dateadd(18 hour to cast(datemsg as timestamp));​ +
-          -- вставляем запись +
-          insert into sms_log(logid,​smstypeid,​smsrefid,​smsprofileid,​filial,​ +
-                      createdate,​smstext,​pcode,​uid,​internalid,​planbtime,​planftime,​state) +
-               ​values(:​logid,​ :smstypeid, :smsrefid, :​smsprofileid,​ :filial, +
-                      current_timestamp,​ :pushtext, :pcode, :uid, :treatcode, :planbtime, :planftime, 0); +
-          insert into sms_logdet(smsid,​logid,​phonetype,​extsmsid,​phprefix,​phone,​state,​notificationid) +
-               ​values(:​smsid,​ :logid, 21, null, null, null, 0, :​notify); ​   +
-        end +
-      end +
-    end +
-  end +
-end +
-</​code> ​     +
-</​spoiler> ​                      +
  
 ==== Результат исследования ==== ==== Результат исследования ====
Наверх
расширенная.настройка/рассылка.уведомлений/push.txt · Последние изменения: 2019/07/04 08:22 (внешнее изменение)