J81. Легочный отек Диагноз заболевания, обусловивший причину смерти:
ТО6.З Повреждения кровеносных сосудов, захватывающие несколько областей тела Диагноз заболевания, способствовавший смертельному исходу:
R57.8 Другие виды шока Диагноз патологоанатомический:
Т06.3 Повреждения кровеносных сосудов, захватывающие несколько областей тела
Приложение № 2
Пример распечатки счета в режиме «Поликлиника»
Лечебное учреждение Городская клин, б-ца N7 счёт N'87 [поликлиника]
Дата счёта 05.02.2001
Дата принятия счёта 07.02.2001
Фамилия АВЕРЬЯНОВ
Имя БОРИС
Отчество АЛЕКСЕЕВИЧ
Дата рождения 08.07.1926
Полис 372400 4006580726
Адрес г.Иваново ул.Лежневская д.156 кв.18
Категория работающего Пенсионер
Место работы
Повод обращения Лечебно-диагностический
Длительность лечения 11
Диагноз основной l6. Коксартроз [артроз тазобедренного сустава]
Случай обслуживания Законченный
Исход лечения направление к др. врачу
Стоимость 9,2
Доп. Информация к физиотерапевту
| № | Дата | Наименование услуги | Специальность врача |
| 1 | 03.01.2001 | Лечебно-диагностический приём | Врач-хирург |
| 2 | 09.01.2001 | Лечебно-диагностический приём | Врач-хирург |
| 3 | 11.01.2001 | Лечебно-диагностический приём | Врач-хирург |
| 4 | 13.01.2001 | Лечебно-диагностический приём | Врач-хирург |
Приложение №3
Пример распечатки счета в режиме «Стоматология»
Лечебное учреждение Городская клин, б-ца N7 счёт № 11 [стоматология]
Дата счёта 05.02.2001
Дата принятия счёта 07.02.2001
Фамилия АНДРИАНОВА
Имя ИРИНА
Отчество АЛЕКСАНДРОВНА
Дата рождения 28.11.1952
Полис 372400 7008281152
Адрес г.Иваново ул.Воронина д.З кв.47
Категория работающего Работающий
Место работы Школа-лицей № 67
Повод обращения лечебно-диагностический
Длительность лечения 1
Случай обслуживания Законченный
Исход лечения выздоровление
Стоимость 2,5
| Дата | Услуги | Стоимость | Диагноз |
| 31.01.2001 | Осмотр полости рта первичного больного. | 0,15 | |
| 31.01.2001 | Сбор анамнеза. | 0,15 | |
| 31.01.2001 | Оформление документации первичного больного. | 0,2 | Кариес зубов не уточненный |
| 31.01.2001 | Цементная пломба на две поверхности зуба | 2 | Кариес зубов не уточненный |
СУММА (УЕТ) = 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;
end;
t.Close;
end;
procedure TForm1.TblUpdt(s: TDatabaseItems);
var t: TTable;
begin
Label1.Caption := 'Идет подготовка таблиц ...'; delay(10);
t := TTable.Create(self);
case reg of
1: t.DatabaseName := 'dbSTA';
2: t.DatabaseName := 'dbAMB';
4: t.DatabaseName := 'dbSTO';
end;
{cоздание БД переносимых LPU и счетов}
if deletefile('d:\data\toORA\z.dbf') then;
with dm1.Query2 do
begin
sql.Clear;
sql.Add('CREATE TABLE "z" (kod_lpu numeric(3),n_ch character(10), dat_sc date, vid numeric(1) )');
Prepare;
ExecSQL;
end;
with s do begin
Open;
First;