ИбисоПедия - Вклад участника [ru]

IBIS ETL

2016-05-31T10:39:43Z

Flyingpig:

== Интеграция IBIS с WEB сервисами ==

Реализация клиентской части для web сервисов из Postgresql
базируется на использовании функции [https://www.postgresql.org/docs/current/static/sql-copy.html COPY TO/FROM]

В схеме etl есть две функции
* etl.exch
* etl.exch2

отличие: exch2 работает более корректно, (так как иногда в потоке возвращается символ новой строки что ф-цией COPY воспринимается как новая строка данных)
при этом для работы exch2 требуется место на диске, так как результат CURL сохраняется в файл на диске (директория '''$POSTGRESQL-DATA$etl''')
для создания директрии и корректной работы ф-ции etl.exch2 требуется выполнить команду '''COPY (SELECT 1+1) TO PROGRAM 'MKDIR etl''''

Параметры функций массив строк.

== Конфигурирование ==
Таблицы:
* etl.cfg_srv - список сервисов
* etl.cfg_url - список URI API веб сервиса
* etl.cfg - список методов для ETL API

есть два варианта формирования запроса:
# Указание шаблона запроса, как в функции FORMAT
# Вызов функции котораяа возвращает тело запроса

[[Категория:MIS3]]
[[Категория:Руководство программиста MIS3]]

IBIS ETL

2016-05-31T10:36:32Z

Flyingpig: Новая страница: «== Интеграция IBIS с WEB сервисами == Реализация клиентской части для web сервисов из Postgresql баз…»

Интеграция MIS3 со сторонними системами

2015-04-08T06:49:23Z

Flyingpig:

* [[ЛИС_АЛИСА]]
* [[Медпроминжиниринг]]
* [[Единый реестр застрахованных ХМАО]]
* [[SYNAPSE PACS]]
* [[ППО ОМС МОСКВА]]
* [[ХОСТ (портал пациента)]]
* [[Настройка интеграции с РМИС ХМАО]]
* [[ЛИС результаты анализаторов]]

[[Категория: MIS3]][[Категория: Интеграция MIS3]]

ЛИС результаты анализаторов

2015-04-08T05:58:25Z

Flyingpig: Новая страница: «Временная интеграция с ЛИС для сбора данных исследований анализаторов == Реализация == ===…»

Временная интеграция с ЛИС для сбора данных исследований анализаторов

== Реализация ==
=== Алгоритм работы ===
# Сторонний сервис складывает данные в oracle таблицу ''LIS.TBL_RESULTS'', триггером на вставку данные копируются в таблицу ''LIS.TBL_RESULTS_MIS3'' (эта таблица служит источником данных для сервиса).
# Сервис копирует данные в БД МИС ИБИС таблица ''mm.lab_res_analyzer''
# Триггер AFTER INSERT таблицы ''mm.lab_res_analyzer'' вставляет данные результатов в таблицу ''mm.labres''
# После переноса данные в таблице oracle ''LIS.TBL_RESULTS_MIS3'' удаляются

=== Служба передачи данных ===
* Язык: Delphi (приложение Win32 LabDataPump.exe)
* Настройки хранятся в файле app.ini в папке приложения
* SVN: https://srv100:8443/svn/IBIS/trunk/ER3/LabDataPump

== Настройка oracle ==
* Скрипт создания таблицы источника LIS.TBL_RESULTS_MIS3
<source lang="sql">
CREATE TABLE "LIS"."TBL_RESULTS_MIS3"
( "PROBE_NUM" VARCHAR2(40 BYTE) NOT NULL ENABLE,
"RES_CODE" VARCHAR2(80 BYTE) NOT NULL ENABLE,
"RESULT" VARCHAR2(40 BYTE) NOT NULL ENABLE,
"RES_DATE" DATE NOT NULL ENABLE,
"AN_RES_CODE" VARCHAR2(50 BYTE) NOT NULL ENABLE,
"FK_SOTRID" NUMBER,
"FD_DATE" DATE,
"FK_ID" NUMBER NOT NULL ENABLE,
"PROFILE_NAME" VARCHAR2(40 BYTE)
) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS NOLOGGING TABLESPACE "USR" ;
</source>
* Скрипт создания триггера "LIS"."AF_COPY_MIS3"
<source lang="sql">
CREATE OR REPLACE TRIGGER "LIS"."AF_COPY_MIS3"
AFTER INSERT ON LIS.TBL_RESULTS
REFERENCING OLD AS old NEW AS new
FOR EACH ROW
BEGIN
insert into lis.tbl_results_mis3 (probe_num, res_code, result, res_date, an_res_code, fk_sotrid, fd_date, fk_id, profile_name)
values (:new.probe_num, :new.res_code, :new.result, :new.res_date, :new.an_res_code, :new.fk_sotrid, :new.fd_date, :new.fk_id, :new.profile_name);
END;
ALTER TRIGGER "LIS"."AF_COPY_MIS3" ENABLE;
</source>
== Файл настройки службы передачи данных ==
=== [Postgresql] ===
* server = IP адрес сервера БД МИС ИБИС (пример 192.168.1.100)
* port = Порт сервера БД МИС ИБИС (пример 5432)
* database= имя БД МИС ИБИС (mis3)
* user=пользователь БД МИС ИБИС ( LABDATAPUMP )
* pass=пароль ( ibislabdatapump )

=== [oracle] ===
* server= строка подключения к БД Oracle ( 192.168.1.100:1521:ST150210 )
* user=пользователь ( SYSTEM )
* pass=пароль ( sys123 )

=== [main] ===
* refresh= Интервал проверки новых данных в секундах ( 15 )

== Внедрение ==

[[Категория:Интеграция MIS3]]

Настройка интеграции с РМИС ХМАО (ИЭМК)

2015-01-30T09:06:29Z

Flyingpig:

Настройки :

[https://docs.google.com/document/d/1o-l-tz5nze7jNz2cGv5UAylCk7KOBcW-OTGwsOouQzc/edit?usp=sharing Схема работы интеграции]

таблица mm.adj, справочник настроек, секция 'IEMK':

* 'ID' - ID Поставщика информации, участвующих в информационном обмене ИЭМК, взять из РЕГЛАМЕНТА
* 'ENABLE_UPLOAD' - Включить выгрузку в ИЭМК, ЕСЛИ РАВНО 1 ТО ВКЛЮЧЕНО ИНАЧЕ ВЫКЛЮЧЕНО (включает и выключает в том числе и триггеры)

* 'REST_SERVER' - IP сервиса для ИЭМК
* 'REST_PORT' - PORT сервиса для ИЭМК

* 'SAVE_UPLOAD_EVENT' - Сохранять события по загрузке документа, ЕСЛИ РАВНО 1 ТО ИСТОРИЯ БУДЕТ СОХРАНЯТСЯ ИНАЧЕ УДАЛЯЕТСЯ ПРИ УДАЛЕНИИ СОБЫТИЯ ИЗ ОЧЕРЕДИ

* 'AMBDOC_GUID' - 'GUID типа амбулаторного документа для выгрузки' - взять из регламента (пока реализовано два вида документа)
* 'HOSPDOC_GUID' - 'GUID типа стационарного документа для выгрузки' - взять из регламента (пока реализовано два вида документа)

* 'URL_PEOPLE' - 'http://%s:%s/IEMKRegionalService/services/patient/publish','URL REST сервиса Регистрация людей');
* 'URL_EMPLOYEE','http://%s:%s/IEMKRegionalService/services/professional/publish','URL REST сервиса Регистрация работников');
* 'URL_DOC','http://%s:%s/IEMKRegionalService/services/document/publish','URL REST сервиса Загрузка документа');
тут обязательно указать как примере, по маске

[[Категория:Интеграция MIS3]]

Интеграция MIS3 со сторонними системами

2015-01-30T09:05:50Z

Flyingpig:

* [[ЛИС_АЛИСА]]
* [[Медпроминжиниринг]]
* [[Единый реестр застрахованных ХМАО]]
* [[SYNAPSE PACS]]
* [[ППО ОМС МОСКВА]]
* [[ХОСТ (портал пациента)]]
* [[Настройка интеграции с РМИС ХМАО]]

[[Категория: MIS3]][[Категория: Интеграция MIS3]]

Настройка интеграции с РМИС ХМАО (ИЭМК)

2015-01-30T09:02:53Z

Flyingpig:

Настройка интеграции с РМИС ХМАО (ИЭМК)

2015-01-30T09:01:45Z

Flyingpig: Новая страница: «Настройки : [https://docs.google.com/document/d/1o-l-tz5nze7jNz2cGv5UAylCk7KOBcW-OTGwsOouQzc/edit?usp=sharing Схема работы интеграци…»

IBISHelper

2014-09-18T12:16:48Z

Flyingpig:

[[Category:Руководство программиста MIS3]]
== Полезняшки : ==

модуль <root>\KEK\kerhelper.pas
для использования надо сделать use юнита, для перечисленных типов появятся новые методы

Тип '''TdateTime'''

* '''GetAsAge''' - прописью возраст человека
* '''pgToDateTime''' - форматирует строку
* '''DateToSQLString''' - возвращает отформатированную строку SQL TO_DATE([ДАТА],[ФОРМАТ])

Тип '''TdxbarLargeButton'''

* '''ShowButtonFromRigth( [BOOLEAN] )''' - отображение кнопки на баре в зависимости от логического уловия

IBISHelper

2014-09-18T12:10:41Z

Flyingpig: Новая страница: «Category:Руководство программиста MIS3 == Полезняшки : == модуль <root>\KEK\kerhelper.pas Тип '''TdateTime''' * '…»

[[Category:Руководство программиста MIS3]]
== Полезняшки : ==

модуль <root>\KEK\kerhelper.pas

Тип '''TdateTime'''

* '''GetAsAge''' - прописью возраст человека
* '''pgToDateTime''' - форматирует строку
* '''DateToSQLString''' - возвращает отформатированную строку SQL TO_DATE([ДАТА],[ФОРМАТ])

Shared Repository

2014-09-15T08:59:03Z

Flyingpig:

[[Category:Руководство программиста MIS3]]
Настройка Shared Repository

Настройка среды :
путь с настроеным репозитарием '''\\192.168.1.100\Public\IBIS_repository'''
если примонтировать этот путь к диску то среда не будет фризится.
 После настройки надо перезапустить среду.
[[Файл:1.png|400px|мини|слева|Настройки IDE]]

 Настройка главного меню для быстрого доступа к шаблонам форм: File->New->Customize
[[Файл:6.png|400px|мини|слева|Настройка главного меню]]

 Шаблоны в главном меню
[[Файл:2.png|400px|мини|слева|Шаблоны в меню]]
 
[[Как создать форму из Shared Repository]]

Как создать форму из Shared Repository

2014-09-15T08:56:26Z

Flyingpig:

Как создать форму из Shared Repository

2014-09-15T08:55:05Z

Flyingpig:

Как создать форму из Shared Repository

2014-09-15T08:53:42Z

Flyingpig:

Как создать форму из Shared Repository

2014-09-15T08:26:11Z

Flyingpig:

Shared Repository

2014-09-15T08:25:33Z

Flyingpig:

[[Category:Руководство программиста MIS3]]
Настройка Shared Repository

Настройка среды :
путь с настроеным репозитарием \\192.168.1.100\public\IBIS_repository
если примонтировать этот путь к диску то среда не будет фризится.
 После настройки надо перезапустить среду.
[[Файл:1.png|400px|мини|слева|Настройки IDE]]

 Настройка главного меню для быстрого доступа к шаблонам форм: File->New->Customize
[[Файл:6.png|400px|мини|слева|Настройка главного меню]]

 Шаблоны в главном меню
[[Файл:2.png|400px|мини|слева|Шаблоны в меню]]
 
[[Как создать форму из Shared Repository]]

Как создать форму из Shared Repository

2014-09-15T08:24:55Z

Flyingpig:

Как создать форму из Shared Repository

2014-09-15T08:22:35Z

Flyingpig:

Shared Repository

2014-09-15T08:22:12Z

Flyingpig:

[[Category:Руководство программиста MIS3]]
Настройка Shared Repository

Настройка среды :
путь с настроеным репозитарием \\192.168.1.100\public\IBIS_repository
если примонтировать этот путь к диску то среда не будет фризится.
После настройки надо перезапустить среду.
[[Файл:1.png|400px|мини|слева|Настройки IDE]]

Настройка главного меню для быстрого доступа к шаблонам форм: File->New->Customize
[[Файл:6.png|400px|мини|слева|Настройка главного меню]]

Шаблоны в главном меню
[[Файл:2.png|400px|мини|слева|Шаблоны в меню]]

[[Как создать форму из Shared Repository]]

Как создать форму из Shared Repository

2014-09-15T08:21:27Z

Flyingpig: Новая страница: «Открываем проект (без проекта данные формы не доступны) Выбираем тип формы Файл:2.png|400px|…»

Shared Repository

2014-09-15T08:16:32Z

Flyingpig:

Shared Repository

2014-09-15T08:16:13Z

Flyingpig: Новая страница: «Использование Shared Repository Настройка среды : путь с настроеным репозитарием \\192.168.1.100\public\IBI…»

Файл:6.png

2014-09-15T07:55:12Z

Flyingpig:

Файл:5.png

2014-09-15T07:47:05Z

Flyingpig:

Файл:4.png

2014-09-15T07:46:55Z

Flyingpig:

Файл:3.png

2014-09-15T07:46:45Z

Flyingpig:

Файл:2.png

2014-09-15T07:46:36Z

Flyingpig:

Файл:1.png

2014-09-15T07:45:47Z

Flyingpig:

TRichViewEdit

2014-09-15T05:28:21Z

Flyingpig:

[[Category:Руководство программиста MIS3]]
== Особенности работы с TRichViewEdit ==

Создание в Run-time:
# Обязательное требование присвоить компоненту property '''parent'''
# Обязательно надо создать компонент TRVStyle и инициализировать property '''style'''
# Освобождать компонент самому не обязательно, его удалит parent
# Свойства options, RFVOptions, RFTOptions инициализируются при создании компонета в design-time и run-time '''ПО РАЗНОМУ'''
rv1.Options := [rvoAllowSelection,rvoScrollToEnd,rvoShowPageBreaks,rvoAutoCopyUnicodeText,rvoAutoCopyRVF,rvoAutoCopyImage,rvoAutoCopyRTF,rvoFormatInvalidate,rvoDblClickSelectsWord,rvoRClickDeselects,rvoShowGridLines,rvoFastFormatting];
rv1.RTFOptions := [rvrtfDuplicateUnicode,rvrtfSaveEMFAsWMF,rvrtfSaveJpegAsJpeg,rvrtfSavePngAsPng];
rv1.RVFOptions := [rvfoSavePicturesBody,rvfoSaveControlsBody,rvfoSaveBinary,rvfoSaveTextStyles,rvfoSaveParaStyles,rvfoSaveDocProperties,rvfoLoadDocProperties];
//rv.Options := rv.Options + [rvoTagsArePChars];
rv1.RTFReadProperties.TextStyleMode := rvrsAddIfNeeded;
rv1.RTFReadProperties.ParaStyleMode := rvrsAddIfNeeded;

TRichViewEdit

2014-09-15T05:26:53Z

Flyingpig: /* Особенности работы с TRichViewEdit */

== Особенности работы с TRichViewEdit ==

Создание в Run-time:
# Обязательное требование присвоить компоненту property '''parent'''
# Обязательно надо создать компонент TRVStyle и инициализировать property '''style'''
# Освобождать компонент самому не обязательно, его удалит parent
# Свойства options, RFVOptions, RFTOptions инициализируются при создании компонета в design-time и run-time '''ПО РАЗНОМУ'''
rv1.Options := [rvoAllowSelection,rvoScrollToEnd,rvoShowPageBreaks,rvoAutoCopyUnicodeText,rvoAutoCopyRVF,rvoAutoCopyImage,rvoAutoCopyRTF,rvoFormatInvalidate,rvoDblClickSelectsWord,rvoRClickDeselects,rvoShowGridLines,rvoFastFormatting];
rv1.RTFOptions := [rvrtfDuplicateUnicode,rvrtfSaveEMFAsWMF,rvrtfSaveJpegAsJpeg,rvrtfSavePngAsPng];
rv1.RVFOptions := [rvfoSavePicturesBody,rvfoSaveControlsBody,rvfoSaveBinary,rvfoSaveTextStyles,rvfoSaveParaStyles,rvfoSaveDocProperties,rvfoLoadDocProperties];
//rv.Options := rv.Options + [rvoTagsArePChars];
rv1.RTFReadProperties.TextStyleMode := rvrsAddIfNeeded;
rv1.RTFReadProperties.ParaStyleMode := rvrsAddIfNeeded;

TRichViewEdit

2014-09-15T05:22:22Z

Flyingpig: Новая страница: «== Особенности работы с TRichViewEdit == Создание в Run-time: # Обязательное требование присвоить ко…»

== Особенности работы с TRichViewEdit ==

Создание в Run-time:
# Обязательное требование присвоить компоненту property '''parent'''
# Обязательно надо создать компонент TRVStyle и инициализировать property '''style'''
# Свойства options, RFVOptions, RFTOptions инициализируются при создании компонета в design-time и run-time '''ПО РАЗНОМУ'''
rv1.Options := [rvoAllowSelection,rvoScrollToEnd,rvoShowPageBreaks,rvoAutoCopyUnicodeText,rvoAutoCopyRVF,rvoAutoCopyImage,rvoAutoCopyRTF,rvoFormatInvalidate,rvoDblClickSelectsWord,rvoRClickDeselects,rvoShowGridLines,rvoFastFormatting];
rv1.RTFOptions := [rvrtfDuplicateUnicode,rvrtfSaveEMFAsWMF,rvrtfSaveJpegAsJpeg,rvrtfSavePngAsPng];
rv1.RVFOptions := [rvfoSavePicturesBody,rvfoSaveControlsBody,rvfoSaveBinary,rvfoSaveTextStyles,rvfoSaveParaStyles,rvfoSaveDocProperties,rvfoLoadDocProperties];

//rv.Options := rv.Options + [rvoTagsArePChars];
rv1.RTFReadProperties.TextStyleMode := rvrsAddIfNeeded;
rv1.RTFReadProperties.ParaStyleMode := rvrsAddIfNeeded;