Немного изменил программное средство для получения XML-фильтров для АИС ЛПУ из протокола технического контроля, который выгружается после обработки пакета в процессинге ФОМС Республики Татарстан. Исходники программы взяты с сайта bloglisa.ru.
После обработки, полученные XML-фильтры можно применить в АИС ЛПУ для массовой отмены дефектных случаев.
Скрипт был создан на скриптовом языке AutoIt
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
#include <Excel.au3> $i = 4 ;Чтение файла протокола $s_FilePath = @ScriptDir & '\prot.xls';файл Excel $oExcel = _Excel_Open() $oWorkbook = _Excel_BookOpen($oExcel, $s_FilePath,1,0) $info = _Excel_RangeRead($oWorkbook,Default, $oWorkbook.ActiveSheet.Usedrange.Columns("B:B"));считываем массив _Excel_Close($oExcel) ;Записываем в файл $hFile = FileOpen("func.txt", 10) If $hFile = -1 Then MsgBox(4096, "Ошибка", "Невозможно открыть файл.") Exit EndIf While $info[$i] <> '' If $i <> 4 Then FileWrite($hFile, ' Or ') FileWrite($hFile, '{SchetZSl / SchetZSlID} = "'& $info[$i]&'" ') $i+=1 WEnd FileClose($hFile) |
Если лень набирать код можно скачать готовый файл:
Скачать СКРИПТ EXE
Установка программы:
Файл со скриптом нужно положить в каталог где лежит протокол из процессинга.
Пример: c:\otmsluch\
Инструкция по работе с программой:
1. Сохраняем файл протокола, полученный из процессинга, в формате Excel 2003 в каталоге программы с именем prot.xls
2. Запускаем скрипт
3. После обработки протокола программа создает файл func.txt.
4. Заходим в каталог программы и открываем файл func.txt в блокноте
5. Копируем весь текст из этого файла
6. В АИС ЛПУ открываем Взаиморасчёты->Реестры счетов->заходим в пакет, которому принадлежит обработанный протокол, жмём “Случаи”,
затем “Фильтр не задан”, затем маленькую кнопку “Fx” слева.
7. Вставляем скопированный текст из первого файла сюда и нажимаем “найти”, фильтр выберет дефектные случай, которые можно удалять.
