update dbo. PacientVisit

set PacientVisit. TypeHelp = 12

WHERE PacientVisit. ReestrMedOrgID = XXX

AND PacientVisit. ConditionHelp = 3

AND ( PacientVisit. Profil = 68 OR PacientVisit. Profil = 97 OR PacientVisit. Profil = 57 )

update dbo. PacientVisit

set PacientVisit. TypeHelp = 13

WHERE PacientVisit. ReestrMedOrgID = XXX

AND PacientVisit. ConditionHelp = 3

AND ( PacientVisit. Profil = 136 OR PacientVisit. Profil = 162 OR PacientVisit. Profil = 89 OR PacientVisit. Profil = 112

OR PacientVisit. Profil = 123 OR PacientVisit. Profil = 16 OR PacientVisit. Profil = 29 OR PacientVisit. Profil = 53 OR PacientVisit. Profil = 60

OR PacientVisit. Profil = 65 OR PacientVisit. Profil = 100 OR PacientVisit. Profil = 122 OR PacientVisit. Profil = 28

)

update dbo. PacientVisit

set PacientVisit. TypeHelp = 21

WHERE PacientVisit. ReestrMedOrgID = XXX

AND (

PacientVisit. ConditionHelp = 3 or PacientVisit. ConditionHelp = 4

)

AND PacientVisit. Profil = 84

update dbo. PacientVisit

set PacientVisit. TypeHelp = 31

WHERE PacientVisit. ReestrMedOrgID = XXX

AND PacientVisit. ConditionHelp = 2

AND ( PacientVisit. Profil = 61 OR PacientVisit. Profil = 97 OR PacientVisit. Profil = 112 )

update dbo. PacientVisit

set PacientVisit. TypeHelp = 31

WHERE PacientVisit. ReestrMedOrgID = XXX

AND PacientVisit. ConditionHelp = 1

AND ( PacientVisit. Profil = 53 OR PacientVisit. Profil = 61 OR PacientVisit. Profil = 97 OR PacientVisit. Profil = 100 OR PacientVisit. Profil = 112 )

Очистка столца комментариев МЭК


UPDATE Elmedicine1.dbo. SLUCH

НЕ нашли? Не то? Что вы ищете?

SET MEK_COMENT = ''

WHERE

MEK_COMENT is not null and SLUCH. SCHET_ID = 9 /* номер счета реестра */

Отправляем файл на проверку в ТФОМС

Создаем счет с помощью кнопки с аналогичным названием.

Выгружаем выгрузку для ТФОМСа на флешку и отправляем по вип-нету в фомс с темой «ОСП»

После получения ответа, подгружаем его в реестр. Кнопка «ТФОМС (полисы)»

- Исправление ошибок после получение обратного документа из ФОМС

Исправление ФИО и др по данным тфомса

Выбираем правильные данные из столбца Ответ ТФОМ ( комментарий)

Я делаю с помощью экселя, выгрузив туда реестр, отбираю нужные строки и оставляю столбец с ИД и новыми – верными данными…  чтобы разбить текст по столбацам использую функцию текст по столбцам на вкладке данные

В Navicat создали таблицу FOMSFIOandDR со столбцами fomsfam, fomsim, fomsot, fomsdr

Туда загружаем данные из экселя и запускаем скрипт

***

UPDATE dbo. PacientVisit SET FAM = up. fomsfam, IM = up. fomsim, OT = up. fomsot, DR = up. fomsdr

FROM dbo. PacientVisit pv

Join FOMSFIOandDR up on pv. id = up. fomsid

*****

Аналогично меняем название страховой и данные полиса

****

UPDATE dbo. PacientVisit SET Q = up. fomsSmo

FROM dbo. PacientVisit pv

Join fomsSMOcode up on pv. id = up. fomsid

***

UPDATE dbo. PacientVisit SET Q = up. fomsSmo, Polis = up. fomsPolis, TypePolicy = up. fomsPolisType

FROM dbo. PacientVisit pv

Join FOMSPolisAndSMOcodeAndPolisType up on pv. id = up. fomsid

Проверяем ошибки

Нажимаем кнопку ошибки, выбрать все, запустить

-дубликаты и перекресты

Переносятся в реестр с ошибками

- пустые поля

Заполняются, или переносятся в ошибки

3) Ошибка Возможен некорректный код типа слуая для данного диагноза

update dbo. PacientVisit

set PacientVisit. TypeSluch = 2

WHERE PacientVisit. ReestrMedOrgID = XXX

AND PacientVisit. ConditionHelp = 3

AND PacientVisit. Errors = ', Возможен некорректный код типа слуая для данного диагноза'

4) ошибка несоответствие даты посещения и периода действия полиса

Что делать?

проверяется вручную

-5) Лицензию и Мертвецов исправляем прямо перед финальной выгрузкой

Что делать?

- запустить скрипт «меняющий вид помощи»  (см выше) исправляющий поле «TypeHelp» ( вид оказания помощи (первичная, доврачебная и тд)) согласно лицензий

- Мертвецы исправляются через сверку в экселе ( файл умершие, оттуда берем ФИО и др, сцепленные в одну ячейку и дату смерти в соседней ячейке, переносим эти данные на соседний лист с реестром. С помощью формулы ВПР(H1; Лист2!K1:Лист4!L43;2;ЛОЖЬ)

Выводим даты смерти пациентов нужного реестра, если такие имелись.)

6) Скрипт, проверяющий посещения по неотложной помощи.

SELECT

       PACIENTvisit. FAM+PACIENTvisit. IM+PACIENTvisit. OT+PACIENTvisit. POLIS+PACIENTvisit. MKB+TypeSluchDb. Name

FROM PACIENTvisit

               INNER JOIN ReestrMedOrgDb ON PacientVisit. ReestrMedOrgID = ReestrMedOrgDb. ID

               LEFT JOIN TypeSluchDb ON PacientVisit. TypeSluch = TypeSluchDb. id

WHERE

ReestrMedOrgDb. ID = 106 and TypeSluchDb. Name LIKE 'неотложная%' and conditionhelp = 3

GROUP BY PACIENTvisit. FAM+PACIENTvisit. IM+PACIENTvisit. OT+PACIENTvisit. POLIS+PACIENTvisit. MKB+TypeSluchDb. Name

HAVING COUNT (PACIENTvisit. FAM+PACIENTvisit. IM+PACIENTvisit. OT+PACIENTvisit. POLIS+PACIENTvisit. MKB+TypeSluchDb. Name) > 17) Сроки проведения диспансеризации / профилактического осмотра несовершеннолетних должны быть менее 14 дней

8) Посещения хирургов детьми в Ингосстрахе не оплачивают

Отбираем СМО=ингосстрах ( 46003), детский профиль = да и профиль или специальность - хирургия и все записи переносим в реестр с ошибками или любой другой, не выгружаемый в страховую

9) Прикрепленные к др ЛПУ

Диспансеризация и проф осмотры не оплачиваются, если пациент прикреплен к др ЛПУ

Можно из модуля Прикрепленное население выгрузить данные о населении. Например, используя отчет ЭКСПОРТ ДАННЫХ В ТФОМС. Выгружаем его без умерших и без открепленных. Так он будет более приближен к реальным цифрам из страховых компаний о прикрепленном населении.

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

Если в реестре есть люди, полиса которых не обнаружены в этом списке, то в модуле прикрепленного населения по полису можно узнать к какой больнице сейчас относится пациент и вернуть карту врачу, чтобы он получил от пациента заявление о прикреплении, в противном случае карта оплачена не будет.

Ошибки остающиеся перед выгрузкой

Возможно пол указан неверно – проверяется вручную

Не заполнено поле отчество – заполняется при наличии в страховом полисе

Не заполнено поле услуги дата начала.. и т д – диспансеризация взрослого населения, на усмотрение операторов.

Выгрузка реестра в новую программу


После всех исправлений, нужно загрузить реестр для формирования счета в новую версию программы. Для этого нажимаем кнопку ВЫГРУЗКА, придумываем название файла и ждем пока выгрузится.

Загрузка файла в новую версию Эльмедицина

Открываем реестры-счетов в новой версии Эльмедицина, выбираем нужный отчетный месяц. Ставим там галочку, и на вкладке ФАЙЛ нажимаем кнопку ИМПОРТ ЗАПИСЕЙ ИЗ ЭМ. РЕЕСТРЫ 2.Х. Там выберем сохранееный до этого файл и загрузим его.

Заполняются справочник с тарифом ( продлевается действие тарифов при необходимости) и заполняются выходные дни.

Расчет счетов

Выбираем каждый счет и нажимаем кнопку РАСЧЕТ СЧЕТА.

В реестре должно заполниться столбцы тариф и сумма выставленная к оплате

Проверка на ошибки в новой версии эльмедицина

Выбрав нужный реестр, перейдя на вкладку ЭКСПЕРТИЗА нажать АВТОМАТИЧЕСКИЙ МЭК, выбрать все и запустить

Перед окончательным формированием счета допустимы наличие следующих ошибок

Код МКБ 10 не соответствует профилю мед. помощи – там должны остаться посещения гинекологов с Z

Некорректное выставление профиля – сюда попадают стоматологические и хирургические посещение с детским профилем

Нет лицензии – дневной стационар – стационар на дому с профилем терапия или педиатрия и видом помощи 12

Пустая дата в услуге – диспансеризация взрослых – на усмотрение операторов

Все остальное исправляется вручную в соответствии с комментарием МЭК: перекресты удаляются, медосмотры оплаченные ранее удаляются, МКБ 10 не соответствуют типу – меняется тип случая, некорректное выставление профиля  - меняется детский – взрослый профиль, профиль приводится в соответствии со специальностью, корректно заполняются результаты лечений и др в зависимости от комментария. Что написано, то и исправляется 

Перед формированием реестра рекомендуется запустить скрипт 

update pacient set ID_PAC = newid() where len(isnull(ID_PAC,''))<10

update usl set det=0 where det is null

update sluch set det=0 where det is null

update sluch set ed_col=1 where ed_col is null

update usl set kol_usl=1 where kol_usl is null and left(code_usl,2)='VM'

update usl set USL_PRR=0 where USL_PRR is null and left(code_usl,2)='VM'

update usl set USL_OTK=0 where USL_OTK is null and left(code_usl,2)='VM'

Из за большого объема этот материал размещен на нескольких страницах:
1 2 3 4 5