48333 (Проектирование АРМ сотрудника отдела автоматизации информационного обеспечения Ивановского филиала ФОМС), страница 6

Лечебное учреждение Городская клин, б-ца N7 счёт N'87 [поликлиника]

Дата счёта 05.02.2001

Дата принятия счёта 07.02.2001

Фамилия АВЕРЬЯНОВ

Имя БОРИС

Отчество АЛЕКСЕЕВИЧ

Дата рождения 08.07.1926

Полис 372400 4006580726

Адрес г.Иваново ул.Лежневская д.156 кв.18

Категория работающего Пенсионер

Место работы

Повод обращения Лечебно-диагностический

Длительность лечения 11

Диагноз основной l6. Коксартроз [артроз тазобедренного сустава]

Случай обслуживания Законченный

Исход лечения направление к др. врачу

Стоимость 9,2

Доп. Информация к физиотерапевту

Приложение №3

Пример распечатки счета в режиме «Стоматология»

Лечебное учреждение Городская клин, б-ца N7 счёт № 11 [стоматология]

Дата счёта 05.02.2001

Дата принятия счёта 07.02.2001

Фамилия АНДРИАНОВА

Имя ИРИНА

Отчество АЛЕКСАНДРОВНА

Дата рождения 28.11.1952

Полис 372400 7008281152

Адрес г.Иваново ул.Воронина д.З кв.47

Категория работающего Работающий

Место работы Школа-лицей № 67

Повод обращения лечебно-диагностический

Длительность лечения 1

Случай обслуживания Законченный

Исход лечения выздоровление

Стоимость 2,5

СУММА (УЕТ) = 2,5

Приложение №4

Наименование и структура основных справочников.

1. ORACLE:KIS.SVSCHET -справочник сводных счетов ЛПУ

2. ORACLE:SNMDN_ST -справочник видов дневного стационара

3. ORACLE:SNMGRAFIK -справочник графиков дн.стационаров ЛПУ

4. ORACLE:SNMGRUP -справочник группировки ЛПУ.

5. ORACLE:SNMKAT -категории населения при проверке стационара

6. ORACLE:SNMKAT1 -категории населения при проверке поликлиники

7. ORACLE:SNMMKB -справочник диагнозов

8. ORACLE:SNMMKB_N -справочник взаимосвязей поводов и услуг

9. ORACLE:SNMMKB_O -справочник ятрогении

10 ORACLE:SNMNAPRAV -справочник направлений

11. ORACLE:SNMPO_TAR - тарифы поликлиник , работающих по полной программе

12. ORACLE:SNMPO_TAR_C -тарифы поликлиник , работающих по неполной программе

13. ORACLE:SNMST_TAR -тарифы стационаров , работающих по полной программе

14. ORACLE:SNMST_TAR_C -тарифы стационаров, работающих по неполной программе

15. ORACLE:SNMPROFIL -справочник профилей коек

16. ORACLE:SNMSCOB -справочник целей обращения

17. ORACLE:SNMSPR_INV -справочник видов инвалидности

18. ORACLE:SNMSPR_LPU -справочник ЛПУ

19 ORACLE:SNMSPR_OTK -справочник отказов

20. ORACLE:SNMSPUSL -справочник услуг стоматологии

21. ORACLE:SNMSPL -справочник исходов лечения

22. ORACLE:SNMTARIF1 -справочник специальностей врачей

23. ORACLE:SNMUSLUGI -справочник услуг

24. ORACLE:SNMYEAR -календарь работы 6-дн. дневного стационара

25. ORACLE:SNMYEAR_5 -календарь работы 5-дн. дневного стационара

1.ORACLE:KIS.SVSCHET - справочник сводных счетов ЛПУ

KOD_LPU NUMBER(3, 0)Код ЛПУ

VID NUMBER(1, 0)Вид ЛПУ

N_SCH VARCHAR2(10) Номер счета

DT_SCH DATEДата формирования счета

DT_IN DATEДата первичной обработки счета

COUNT NUMBER(6, 0)Количество корректных записей

TOTAL NUMBER(10, 2)Стоимость корректных записей

COUNT_BAD NUMBER(6, 0)Количество некорректных записей

TOTAL_BAD NUMBER(10, 2)Стоимость некорректных записей

DOG_YN NUMBER(1, 0)Признак работы по полной программе

FIRST NUMBER(1, 0)

OMS NUMBER(1, 0)Признак проверки отделом ОМС

MEDEKS NUMBER(1, 0)Признак проверки экспертами

PEO NUMBER(1, 0)Признак обработки счета плановым отделом

ARX NUMBER(1, 0)Признак отправки счета в архив

EKSPERT NUMBER(1, 0)

2. ORACLE:SNMDOGOVOR - ЛПУ, работающие по полной программе

LPU NUMBER(3, 0) Код ЛПУ

DATA DATE Дата заключения договора

3. ORACLE:SNMDN_ST - справочник видов дневного стационара

KOD NUMBER(1, 0) Код вида дневного стационара

PROFIL CHAR(3)Профиль койки

NAIM VARCHAR2(40)Наименование

GRAFIK NUMBER(1, 0) Вид графика

4. ORACLE:SNMGRAFIK - справочник графиков дн.стационаров ЛПУ

KOD_LPU NUMBER(3, 0)Код ЛПУ

VID NUMBER(1, 0)Вид дневного стационара

GRAF NUMBER(1, 0)График дневного стационара

5. ORACLE:SNMGRUP - справочник группировки ЛПУ.

GLAV CHAR(3)Код главного ЛПУ

LPU CHAR(5)Код ЛПУ в символьном формате

LPU_N CHAR(5)Код ЛПУ в числовом формате

PUTH1 VARCHAR2(30)Путь для рассылки

GLN NUMBER(3, 0)Код главного ЛПУ в числовом формате

NLPU NUMBER(4, 0)

RAI NUMBER(3, 0)Код района

SS NUMBER(1, 0)

6. ORACLE:SNMKAT - категории населения при проверке стационара

KATEGOR NUMBER(1, 0) Категория населения

NAIM VARCHAR2(25) Наименование

7. ORACLE:SNMKAT1 - категории населения при проверке поликлиники

KATEGOR NUMBER(1, 0) Категория населения

NAIM VARCHAR2(25) Наименование

8. ORACLE:SNMMKB - справочник диагнозов

GRU NUMBER(3, 0)

KOD VARCHAR2(8)Код диагноза

NAIM VARCHAR2(72)Наименование

HIR CHAR(2)

9. ORACLE:SNMMKB_O - справочник ятрогении

KOD VARCHAR2(8)Код диагноза

NEK NUMBER(2, 0)Код отказа

10. ORACLE:SNMMKB_N - справочник взаимосвязей поводов и услуг

COB NUMBER(1, 0)Код обращения

KOD VARCHAR2(8)Код диагноза

NEK NUMBER(2, 0)Код отказа

FLG NUMBER(1, 0)Флаг

11. ORACLE:SNMNAPRAV - справочник направлений

KOD NUMBER(2, 0) Код направления

NAIM VARCHAR2(40) Наименование

15. ORACLE:SNMPROFIL - справочник профилей коек

KOD CHAR(3) Код профиля койки

NAIM VARCHAR2(30)Наименование

SR_DL NUMBER(5, 2)Средняя длительность

SR_DL1 NUMBER(5, 2)Средняя длительность

16.ORACLE:SNMSCOB - справочник целей обращения

KC NUMBER(2, 0) Код обращения

NC VARCHAR2(25) Наименование

18. ORACLE:SNMSPR_LPU - справочник ЛПУ

KOD_LPU NUMBER(3, 0) Код ЛПУ

NAIM_LPU VARCHAR2(45) Наименование

KOD_TMO NUMBER(2, 0)

VL NUMBER(1, 0)

ADR_LPU VARCHAR2(50)Адрес

FIO_LPU VARCHAR2(20)Руководитель

TEL_LPU VARCHAR2(9)Телефон

KOD_RAY NUMBER(2, 0)Код района

RAS_CH CHAR(20)Расчетный счет

BANK VARCHAR2(50)Наименование банка

GOROD_BN VARCHAR2(25)Город банка

INN VARCHAR2(15)ИНН ЛПУ

OKONX VARCHAR2(10)Код ОКОНХ

OKPO VARCHAR2(8)Код ОКПО

20. ORACLE:SNMSPL -справочник исходов лечения

KRL NUMBER(2, 0) Код исхода лечения

NRL VARCHAR2(30) Наименование

21. ORACLE:SNMTARIF1 - справочник специальностей врачей

KOD NUMBER(3, 0) Код специальности врача

SPEC VARCHAR2(45) Наименование

22. ORACLE:SNMUSLUGI - справочник услуг

KODUSL NUMBER(1, 0) Код услуги

NUSL VARCHAR2(20)Наименование

25. ORACLE:SNMYEAR_5 - календарь работы 5-дн. дневного стационара

YEAR NUMBER(4, 0) Год

MES_1 CHAR(42) 1-й месяц года

MES_2 CHAR(42)2-й месяц года

MES_3 CHAR(42) 3-й месяц года

MES_4 CHAR(42) 4-й месяц года

MES_5 CHAR(42)5-й месяц года

MES_6 CHAR(42)6-й месяц года

MES_7 CHAR(42) 7-й месяц года

MES_8 CHAR(42) 8-й месяц года

MES_9 CHAR(42) 9-й месяц года

MES_10 CHAR(42) 10-й месяц года

MES_11 CHAR(42) 11-й месяц года

MES_12 CHAR(42) 12-й месяц года

Приложение №5

Код основного модуля

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ComCtrls, Buttons, ExtCtrls, RxGrdCpt, Grids, DBGrids,

bdeutils, fileutil, strutils, Db, DBTables, RXCtrls, SpeedBar, vclutils, ToolWin,

ImgList,DBLists;

type

TForm1 = class(TForm)

RxGradientCaption1: TRxGradientCaption;

SpeedBar1: TSpeedBar;

SpeedbarSection1: TSpeedbarSection;

SpeedItem1: TSpeedItem;

ToolBar1: TToolBar;

tbtn1: TToolButton;

tbtn2: TToolButton;

RxGradientCaption2: TRxGradientCaption;

ImageList1: TImageList;

Panel1: TPanel;

Animate1: TAnimate;

Label1: TLabel;

ToolButton1: TToolButton;

RxGradientCaption3: TRxGradientCaption;

Label2: TLabel;

Tbtn3: TToolButton;

procedure FormShow(Sender: TObject);

procedure SpeedItem1Click(Sender: TObject);

procedure ToolButton1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

private

{ Private declarations }

procedure TblUpdt(s: TDatabaseItems);

public

{ Public declarations }

end;

var

Form1: TForm1;

reg : Byte;

implementation

{$R *.DFM}

uses data1, Data, main;

procedure create_msg(fi: string; n_ch: integer; d: tdatetime;cou, cou_bad: integer; tot, tot_bad: real);

const

str1:AnsiString='Получен счет:';

str2:AnsiString='Счет:';

str3:AnsiString='Дата:';

str4:AnsiString='Результаты автоматичекой проверки:';

str5:AnsiString='Документов без ошибок ';

str6:AnsiString='Документов с ошибками ';

str7:AnsiString='Отдел АИО ТФ ОМС г.Иваново';

str8:AnsiString=' на сумму ';

var f: textFile;

begin

if fileexists(fi) then Exit;

AssignFile(f,fi);

Rewrite(f);

writeln(f,strtooem(str1));

writeln(f,strtooem(str2)+inttostr(n_ch));

writeln(f,strtooem(str3)+DateTimeToStr(d));

writeln(f,strtooem(str4));

writeln(f,strtooem(str5)+IntToStr(cou)+strtooem(str8)+floattostrF(tot, ffFixed,10,2 ));

writeln(f,strtooem(str6)+IntToStr(cou_bad)+strtooem(str8)+floattostrF(tot_bad,ffFixed,10,2));

writeln(f,strtooem(str7));

CloseFile(f);

end;

procedure create_pst(p,fi1,fi2: string);

var f: textFile;

begin

AssignFile(f,fi1);

Rewrite(f);

writeln(f,'PATH:'+p);

writeln(f,'FILE:'+fi2);

writeln(f,strtooem('КТО : decodsch.exe'));

writeln(f,strtooem('ДАТА: '+ datetimetostr(now)));

CloseFile(f);

end;

procedure ChangeLangDrv(drv: string);

var l: TStrings;

begin

Session.Close;

l := TStringList.Create;

l.Add('LANGDRIVER='+drv);

Session.ModifyDriver('DBASE',l);

Session.Open;

l.Free;

end;

procedure kod_lpu(t: TTable);

begin

t.TableName := 'L2'+Copy(t.TableName,3,3)+'.DBF';

t.Open;

if not(t.IsEmpty) then

with dm1.Query1 do begin

Close;

SQL.Clear;

sql.Add('UPDATE AMB_US SET KOD_LPU='+

t.FieldByName('kod_lpu').asstring+' , N_CH='''+

t.FieldByName('n_ch').asstring+''' , DAT_SC='''+

t.FieldByName('dat_sc').AsString+''' WHERE KOD_LPU IS NULL');

ExecSQL;