Повышение эффективности работы поликлиники за счет внедрения автоматизированной системы учета пациентов

Тестирование сохранения целостности данных при аварийном завершении работы системы

Хорошо построенная система гарантирует сохранение если не всех внесенных данных, то, как минимум, целостности данных при аварийном завершении. Применим следующий тест:

Тест 4. Нажмем кнопку RESET при работающей системе. Вообще-то этого делать не рекомендуется, но для чистоты эксперимента - можно. После перезагрузки машины снова запустим систему и проверим целостность данных.

В результате проведения испытания было выяснено, что системы теряет те данные, которые еще не были занесены в БД, а данные хранящиеся в БД находятся в полном порядке.

Анализ результатов тестирования

В результате проведения испытания сделаны следующие выводы:

в первой версии системы реализованы практически все описанные в ТЗ функций;

система обрабатывает все исключительные ситуации, которые можно обработать;

система способна работать на машине с указанной минимальной конфигурацией;

3.2 Инструкция пользователя

Запуск системы

Запуск системы осуществляется вызовом исполнимого модуля Registrat.exe при помощи кнопки Пуск/Выполнить, либо при помощи иконки с рабочего стола Windows. При запуске система запрашивает ввод имени пользователя и его пароля (рис.3.1 ).

Рис. 3.1. Диалог входа в систему

При вводе неправильного пароля доступ пользователя к системе запрещается. После правильного ввода пароля открывается окно, показанное на рис. 3.2.

Рис. 3.2. Главная экранная форма регистратура

Эта форма содержит такие справочники как: анкеты больных, профессии, анализы, города, врачи, улицы, болезни (Международный классификатор болезней 10-го пересмотра показанный на рис. 3.3),сотрудники.

Рис. 3.3. Международный классификатор болезней

Далее при нажатии левой кнопки мыши на «Список пациентов» в форме «Регистратура» открывается список пациентов показанный на рис. 3.4.

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

Рис. 3.4. Список пациентов зарегистрированных в поликлинике.

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

Рис. 3.5. Экранная форма «Список пациентов» содержащая вспомогательное меню.

При добавлении улицы открывается форма «справочник улиц» показанная на рис. 3.6 в которую вводится нужная улица.

Рис. 3.6. Справочник улиц

При осуществлении операции «удаление улицы» открывается окно показанное на рис. 3.7

Рис. 3.7. Ошибка

Поиск пациентов

При осуществлении поиска пациентов делаем щелчок левой кнопки мыши, и открывается окно, показанное на рис. 3.8 в котором осуществляется поиск по: ФИО, №амбулаторной карты, дате последнего посещения. После нахождения нужной информации нажимаем на кнопку выход и в дереве пациентов выделяется тот пациент, которого мы искали (рис. 3.9).

Рис. 3.8 Поиск пациентов

Рис. 3.9. Список пациентов

Печать амбулаторной карточки пациента

При выполнении печати электронной карточки пациентов осуществляется связь с текстовым редактором Microsoft Word где стандартными средствами офиса осуществляется печать (рис. 3.10).



Рис. 3.10. Печать амбулаторной карты пациента

Запуск электронной карточки пациента

Для того чтобы запустить электронную карточку пациента требуется щелкнуть левой кнопкой мыши на этом пациенте и откроется окно показанное на рис. 3.11. Которое разделено на две части. В левой части изображены разделы электронной карточки пациента, а в правой то, что содержится в разделе. Например, для того, чтобы просмотреть раздел «История болезни» не обходимо левой кнопкой мыши щелкнуть на этом разделе откроется окно показанное на рис. 3.12. Для того что бы добавить новую историю болезни нужно правой кнопкой мыши щелкнуть на разделе «История болезни» и откроется форма показанная на рис 3.13.

Рис. 3.11. Электронная медицинская карта пациента



Рис. 3.12. Раздел электронной медицинской карты пациента«История болезни»

Рис. 3.13. Добавление новой истории болезни

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

Добавление нового сотрудника и присваивание ему пароля для работы с АС «Регистратура»

Для того, что бы добавить нового сотрудника необходимо в форме «Регистратура» (рис. 3.2) зайти в меню справочники и выбрать раздел «сотрудники» после чего откроется окно показанное на рис. 3.14. В эту форму необходимо ввести следующую информацию: ФИО, логин, пароль, группа пользователей к которой относится данный сотрудник(врач, медсестра, оператор и т.д.) после чего произойдет добавление нового сотрудника.

Рис. 3.14. Справочник сотрудников

Если пароль или логин введены неправильно, то откроется окно изображенное на рис. 3.15

Рис. 3.15. Ошибка ввода

3.3. Экономическое обоснование эффективности внедрения АС "Регистратура"

3.3.1 Описание характеристик продукта

Характеристика товара

Наименование товара --"Автоматизированная система “Регистратура”.

АС “Регистратура” обеспечивает на базе использования ПЭВМ учет пациентов в регистратуре поликлиники.

АС “Регистратура” выполняет следующие задачи:

Регистрация пациентов. Включает создание новой амбулаторной карточки и заполнение ее данными о пациенте (личные данные, медицинская информация);

Просмотр и редактирование информации о пациенте.

Быстрый поиск данных о пациенте.

Хранение лечебно-диагностической информации полученной в результате осмотра пациента.

Подготовка и выдача медицинских заключений о состоянии здоровья пациентов;

Иметь интуитивно-понятный интерфейс;

Защита информации от несанкционированного доступа.

Таблица 3.1.

Характеристика товара

Наименование	Значение параметра
1. Тип ЭВМ	Pentium 200 и выше
2. Операционная система	Windows 95 и выше
3. Объем ОП	32 Мб
4. Дисковое пространство	1 Gб
5. Модель данных	Реляционная
6. Язык программирования	Delphi
7. Принтер	Типа HP LJ5L

В табл. 3.1 приведены характеристики АС "Регистратура"

3.3.2 Особенности товара

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

Установка АС "Регистратура" позволит повысить эффективность работы медицинского персонала и качества оказания медицинской помощи.

3.3.3 Система сервиса

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

3.3.4 Гарантии и защита потребительских прав

Гарантируется получение в обусловленные договором сроки надежного, эффективного и простого в эксплуатации ПО ("Автоматизированная система "Регистратура").

Всем зарегистрированным пользователям гарантируется бесплатное разъяснение всех аспектов настройки и применения системы, замена на исправленную копию при обнаружении ошибок, предоставление скидок при покупке последующих версий.

3.3.5 Исследование и анализ рынков сбыта

3.3.5.1 Маркетинговые исследования рынка сбыта АС «Регистратура»

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

Произведем сегментацию рынка по географическому признаку, т.е. по крупным областным и медицинским центрам Украины. Полная потребность в продукте рассчитывается по следующей формуле:

, (3.1)

где - полная потребность в продукте; - полная потребность в продукте i-го сегмента, которая определяется по следующей формуле:

, (3.2)

где - количество предприятий (в нашем случае больницы) в i-ом сегменте; - коэффициент охвата, т.е. доля предприятий-покупателей, которые хотят (могут) приобрести товар в i-ом сегменте.

Сегментирование и расчеты емкости рынка представлены в табл. 3.2.

Таблица 3.2

Сегментирование и расчеты емкости рынка

Города	Лечебные учреждения	Итого полная потребность
	Общее количество	Предполагаемый коэффициент охвата
Харьков	28	0,5	14
Киев	35	0,4	14
Днепропетровск	20	0,4	8
Донецк	25	0,4	10
Симферополь	10	0,3	3
Львов	15	0,3	5
Итого	133		54

По таблице 3.2. определили, что полная потребность рынка составляет 54 копии.

3.3.5.2 Параметрическая сегментация рынка

Автоматизированная система "Регистратура" обладает достаточно развитым инструментарием для создания и ведения БД в интерактивном режиме работы с пользователем. Здесь используется контекстный интерфейс, который в значительной мере облегчает работу пользователю. Немаловажную роль играют доступность и простота использования, так как первоначально программа рассчитывалась на пользователя, обладающего минимальными навыками работы на ЭВМ. Необходимо отметить фактор надежности системы. При этом необходимо стремиться к уменьшению использования машинных ресурсов и рабочего времени пользователя. Следует учесть также ситуацию в стране. После кризиса в России и Украине резко упала платежеспособность покупателя. Это означает, что продукт должен иметь не слишком высокую цену.

Таким образом, для параметрического анализа ограничимся следующими характеристиками продукта:

требования к ресурсам;

набор функций;

интерфейс пользователя;

надежность;

скорость обработки данных;

уровень обеспечения целостности и секретности данных.

3.3.5.3 Стратегия маркетинга

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

Продажа будет осуществляться самим разработчиком без дополнительной оплаты. Поиск потребителей осуществляется разработчиком самостоятельно.

В качестве рекламы предполагается рассылка рекламных проспектов потенциальным потребителям и участие в специализированных выставках.

Для стимулирования сбыта предполагается бесплатная установка первым клиентам, бесплатное распространение демонстрационных версий

Организуется послепродажное обслуживание (сопровождение):

Покупатель становится зарегистрированным пользователем;

Сообщение об обнаруженных ошибках в документации и программном продукте, бесплатный обмен старой версии программы на новую исправленную версию;

Обучение зарегистрированных пользователей эксплуатации данного программного продукта;

Возможность настройки основных параметров системы под конкретные требования зарегистрированного пользователя.

3.3.6 Оценка риска и страхование

Наиболее вероятными рисками могут быть:

несанкционированное копирование с целью дальнейшего использования;

несанкционированное копирование с целью продаж.

Уменьшить степень риска можно с помощью страхования в страховых компаниях. Для предотвращения несанкционированного копирования можно применять электронные ключи. Каждый ключ имеет уникальный код, который совпадает с внутренним кодом программного продукта. Такой ключ будет поставляться потребителю при покупке программного продукта. Работа программы без такого ключа невозможна.

Так же можно предложить более дешевый способ. Установка программного обеспечения производится разработчиком и требует обязательного наличия исходной (инсталляционной) версии программы. При инсталляции осуществляем привязку к идентификаторам оборудования, на основе которых вырабатывается идентификационный код защиты. При запуске программы проверяется соответствие текущего кода с кодом, записанным при инсталляции. При переносе программы на другой компьютер или при замене оборудования текущий код, вычисляемый в результате запуска, изменится. При несоответствии текущего кода и эталонного работа программного продукта невозможна. Таким образом, нелегальная копия программы неработоспособна. В случае замены оборудования зарегистрированный пользователь должен обратится к разработчику для проведения повторной установки программы.

3.3.7 Оценка затрат на разработку программного продукта

3.3.7.1 Определение потребности в материальных и трудовых ресурсах. Для разработки программного продукта требуется два инженера-программиста, оплата труда которых составляет 215 грн./мес. (22 рабочих дня в месяце). После определения общих затрат, связанных со всей разработкой проекта, оцениваем затраты для всего проекта. Просуммировав общие и долевые затраты, определим стоимость всей разработки программного продукта. Рассчитаем общие затраты на разработку проекта.

Расходы на материалы представлены в табл. 3.3.

Таблица 3.3

Расходы на материалы

Материал	Количество, шт.	Цена за единицу, грн	Сумма, грн	Назначение
Бумага формата А4, пачка (500 л.)	1	18,50	18,50	Документация
Картридж для принтера	1	90,00	90,00	Печать документации
Дискета 3,5”	2	1,55	3,10	Хранение и перенос информации
Итого	111,6

Для выполнения работ, связанных с проектированием программного продукта и сопутствующей документации требуется ПЭВМ стоимостью 3000грн.

3.3.7.2 Расчет себестоимости и договорной цены программного продукта

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

Трудоемкость работ по алгоритмизации и программированию:

, (3.3)

где - трудоемкость изучения описания задачи и формулировки её постановки (чел. - дни);

- трудоемкость разработки алгоритмов программы (чел. - дни);

- трудоемкость построения схем алгоритмов (чел. - дни);

- трудоемкость непосредственного кодирования программы (чел. - дни);

- трудоемкость отладки программы (чел. - дни);

- трудоемкость оформления документации.

Трудозатраты всех видов определяются через условное количество команд (операторов) языка программирования в программном продукте. Условное количество команд Q - это общее число команд (операторов), которое потребуется отработать программисту в процессе работы с учетом различных изменений в постановке задачи и совершенствования программы.

В общем виде

, (3.4)

где q - предполагаемое число команд программы (q=5000);

k - коэффициент сложности программы (k=1.3);

n - количество коррекций в программе (n=3 с коррекцией 0.05, n=1 с коррекцией 0.07);

- коэффициент коррекции программы.

Согласно вышеприведенным данным получаем условное количество операторов программы Q = 7930.

Трудозатраты на изучение описания задачи рассчитываются по формуле

, (3.5)

где V - производительность исполнителя (команд/час), данные приведены в таблице 3.4;

- коэффициент квалификации исполнителя, = 1.2 (т.к. стаж работы исполнителя до 5 лет);

- коэффициент, учитывающий качество описания задачи (=1.2).

Величины трудозатрат рассчитываются по формуле

, (3.6)

где j - вид работ;

Vj- производительность исполнителя для j-го вида работы (таблица 3.4).

Данные о производительности исполнителя даны в таблице 3.4.

Таблица 3.4

Данные о производительности исполнителя

Вид работы	Производительность, команд/час
Изучение описания задачи	75
Разработка алгоритмов решения задачи	25
Разработка схем алгоритмов	35
Кодирование программы	50
Отладка программы	35
Оформление документации	30

Результаты расчета трудоемкости представлены в таблице 3.5

Таблица 3.5

Результат расчета трудоемкости

Вид работы	Трудоемкость, человек/дней
Изучение описания задачи	13
Разработка алгоритмов решения задачи	33
Составление схемы алгоритма	24
Разработка программы	17
Отладка программы	24
Оформление документации	28
ИТОГО	138

В результате получили, что на разработку системы потребуется 138 дней.

Фонд основной заработной платы можно определить по формуле:

, (3.7)

где Т - трудоемкость работы, в нашем случае Т = 138 чел./дня;

- среднедневная заработная плата определяется по формуле

, (3.8)

где =215 грн. - месячная заработная плата;

Ф - количество рабочих дней в месяце при пятидневной рабочей недели Ф = 22.

Согласно (3.7) и (3.8) получаем 9,77 грн., = 1348,26 грн.

Дополнительная заработная плата составляет 10..20 % от основной заработной платы (пусть Здоп составляет 10 %).

Получаем дополнительную заработную плату Здоп=134,83 грн.

Фонд заработной платы составляет Зос+Здоп =1483,09 грн.

Прочие прямые расходы составляют эксплуатационные расходы и амортизационные отчисления.

Эксплуатационные расходы рассчитаем по формуле

, (3.9)

где - время кодирования и отладки программного продукта на ЭВМ

; (3.10)

- стоимость машинного времени (= 2 грн/час);

m - средние затраты машинного времени на кодирование и отладку одной условной команды (m = 10 мин). Тмв=1101,39.

Эксплуатационные расходы составляют

Зэр = 2202,78 грн.

АМО - 25 % от стоимости основных фондов. Стоимость основных фондов определяется исходя из количества используемых ПЭВМ на момент проектирования по рыночным ценам.

Накладные расходы составляют 50 % от заработной платы.

Командировочные расходы составляют 15 % от заработной платы.

Сметная калькуляция на разработку программного продукта представлена в таблице 3.6

Себестоимость разработки по комплексному дипломному проекту составляют сумму затрат на разработку программного продукта и затрат на материалы 6079,54 грн.

Цена разработки рассчитывается по формуле

= 7903,4 грн., (3.11)

где П - плановая прибыль.

, (3.12)

 - коэффициент рентабельности (%), принимается в размере 30%.

Налог на прибыль (30% от П):

Пн=547,16 грн.

Чистая прибыль

= 1276,70 грн. (3.13)

Таблица 3.6

Сметная калькуляция на разработку программного продукта

Статья расхода	Сметная стоимость, грн
Материалы	123,50
Основная заработная плата	1348,26
Дополнительная заработная плата	134,83
Отчисления на социальные нужды (37,5 %):	556,16
1) Отчисления на соц. страхование (4 %) 2) Отчисления в пенсионный фонд (32 %) 3) Отчисления в фонд занятости (1,5 %)	59,32 474,59 22,25
Эксплуатационные расходы	2202,78
Амортизационные отчисления (25%)	750,00
Накладные расходы(50% от ФЗП)	741,55
Командировочные расходы(15% от ФЗП)	222,46
Себестоимость разработки программного продукта	6079,54
Предельный уровень рентабельности, %	30,00
Плановая прибыль	1823,86
Цена разработки (без НДС)	7903,40
Сумма НДС от цены разработки	1580,68
Цена разработки с НДС	9484,08
Налог на прибыль (30 %)	547,16
Чистая прибыль	1276,7

Вычислим минимальную цену программного продукта

, (3.14)

где - затраты на тиражирование

= 38 грн, (3.15)

где - стоимость одного машинного часа (2 грн/час);

- время кодирования системы (1 час);

- стоимость одной дискеты (1,55 грн);

Зм - затраты на документацию (500 листов А4 - 18,50 грн);

- заработная плата исполнителя за время кодирования (1 час);

Nпродаж - число предполагаемых продаж;

Nпродаж = 54 копии;

- затраты на адаптацию;

= 303,98 грн; (3.16)

Цразр - цена разработки;

Цразр = 9484,08 грн.

= 517,61 грн. = 9826,06 грн.

Установим цену одной копии = 599 грн.

3.3.7.3 Разработка финансового плана

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

Точку безубыточности рассчитаем по формуле:

Цx +x, (3.17)

где Ц - цена одной копии; х - количество копий программного продукта, окупающие затраты на разработку; - условно-постоянные затраты - себестоимость разработки программного продукта = 6079,54 грн;

- условно-переменные затраты - тиражирование и адаптация одной проданной копии = 341,98 грн.

Точка безубыточности х = 24. Следовательно, только после реализации 24-х копий программного продукта, проект станет рентабельным.

График достижения безубыточности разработки программного продукта представлен на рис. 3.16.

Рис. 3.16. График достижения безубыточности разработки

3.8 Безопасность жизнедеятельности. Характеристика ВЦ

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

Производственным помещением является вычислительный центр (ВЦ).

В помещении вредных веществ нет.

Рис. 3.17. Вычислительный центр

1 - щит общего пользования, 2 - розетка,

3 - компьютер, 4 - принтер,

5 - сканер, 6 - ксерокс

Выявление и анализ вредных и опасных факторов действующих в условиях ВЦ

Согласно ГОСТ 12.0.003-74 для машинного зала опасными и вредными факторами, негативно воздействующие на здоровье рабочего персонала ВЦ, являются:

а) физические факторы;

б) психофизические факторы.

К физическим факторам относятся:

повышенный уровень электромагнитного излучения;

недостаточная освещённость рабочего места;

высокий уровень статического электричества;

повышенный уровень шума;

повышенная/пониженная влажность воздуха;

повышенная/пониженная температуру воздуха;

повышенная/пониженная подвижность воздуха.

К психофизическим факторам относятся:

перенапряжение зрительных или слуховых анализаторов;

монотонность труда;

эмоциональные перегрузки.

Все вышеперечисленные факторы могут в той или иной степени оказывать на работоспособность человека, как физическое, так и на моральное состояние.

Разработка мероприятий по снижению или исключению опасных факторов и их нормирование

Шум

Шумы подразделяются по характеру спектра и по временным характеристикам на тональный и непостоянный. В нашем случае шум издает работающий принтер.

Допустимые уровни звукового давления в октавных полосах частот, уровни звука и эквивалентные уровни звука в дБА на рабочих местах (ГОСТ 112.1.003-76) приведены в (табл. 3.7.).

Таблица 3.7

Уровни звука

Рабочие места	Уровни звукового давления со среднегеометрическими частотами, Гц	Уровни звука и эквивалентные уровни Дба
Помещение программистов вычислительных машин	40	45

Защита от шума: звукопоглощающие материалы, наушники.

Пожарная безопасность

1. В помещении около 100 м должен находиться огнетушитель (углекислотный) переносной ТУ У 13 485 476.003 96 ОУ-2.

2. Должна быть установлена противопожарная сигнализация.

3. Подписывается документ работниками предприятия о том, что они ознакомлены с правилами пожарной безопасности.

В ГОСТ 12.1.005-88 указано, что при легкой (1а) категории выполняемых работ, должны обеспечиваться:

температура воздуха в помещениях машинного зала для холодного периода 22-24С, для теплого периода 23-25С;

относительная влажность воздуха 40-60%;

скорость движения воздуха не более 0,1 м/с.

Для обеспечения этих характеристик помещение вычислительного центра оборудуется приборами центрального отопления, кондиционерами, фильтрующими установками.

Для предотвращения поражения человека электрическим током принимают следующие меры:

каждый пользователь ПЭВМ, впервые приступающий к работе в данном ВЦ, должен изучить инструкции по технике безопасности при работе на данном оборудовании и пройти инструктаж по месту работы с обязательной пометкой в журнале регистрации;

ремонтные и профилактические работы на ЭВМ может производить специалист, имеющий квалификационную группу по технике безопасности не ниже третьей по работе с электрооборудованием до 1000 В;

запрещается эксплуатация ЭВМ в помещениях с химически агрессивной средой, а также при снятых деталях корпуса;

ремонтные и профилактические работы на электроустановках, установка и снятие корпусов ЭВМ допускается только при отключенном электропитании;

корпуса электроустройств должны быть надежно заземлены, сопротивление заземляющего устройства должно быть не более 4 Ом, при напряжении свыше 1000 В - не более 10 Ом;

поверхности рабочих столов не должны быть токопроводящими;

в электрических установках ВЦ для защиты сотрудников от поражения электрическим током необходимо предусмотреть защитное заземление. В помещениях ВЦ с электрооборудованием должна быть расположена шина защитного заземления (заземляющий проводник, сечением не менее 120 кв. мм.), соединенная с заземленной нейтралью электроустановки, от которой осуществляется питание оборудования ВЦ. Корпуса всех технических средств ЭВМ должны быть соединены с шиной защитного заземления. В ВЦ также должна быть проложена шина схемного заземления, изолированная от корпусов и от шины защитного заземления;

необходимо регулярно следить за состоянием изоляции электроарматуры и за другими электроприборами.

Для защиты персонала ВЦ от статического электричества необходимо использовать нейтрализаторы, полы иметь антистатическое покрытие. Допустимый уровень напряженности электростатического поля составляет 20 кВ/м за 1 час (ГОСТ 12.1045-84).

Одним из источников электромагнитного излучения является монитор компьютера. Так как программист/пользователь проводит основную часть рабочего времени за компьютером, то следует снизить действие электромагнитного излучения. Хотя результаты исследований влияния электромагнитного излучения на организм человека противоречивы, все же следует принять необходимые меры. Обычно применяют следующие меры:

располагают монитор на расстоянии более 30 см от глаз;

устанавливают защитные экраны на монитор;

применение мониторов с пониженными показателями ионизирующего излучения.

Следует также делать частые перерывы (в 1 час работы - 10-15 минут отдыха). Людям особо чувствительным следует сократить время работы с компьютером до минимума.

Уровень шумов не должен превышать 75 дБ. Уровень шума IBM-совместимого компьютера составляет 25 дБ. При использовании такого рода техники мероприятия по снижению шума не проводят.

Расчет вентиляции ВЦ

Расчет типа вентиляции

Произведем расчет количества воздуха для борьбы с избыточным теплом по формуле:

, (3.18)

где Q - избыточное количество тепла в единицу времени, которое определяется суммой тепловыделений в помещении за вычетом теплопотерь;

С = 1000 Дж/(кг?К) - средняя удельная теплоемкость воздуха;

г = 1.215 кг/ - удельная масса воздуха, поступающего в помещение при температуре Т = 290 К;

ТП = 295 К - температура удаляемого из помещения воздуха;

ТН = 290 К - температура при которой воздух поступает в помещение.

Определяем избыточное количество тепла, которое складывается из тепла, выделяемого одновременно всеми источниками в производственном помещении, минус потери тепла через внешние ограждения и оконные проемы:

, (3.19)

где - количество тепла, выделяемого одновременно всеми источниками в производственном помещении;

- потери тепла через внешние ограждения и оконные проемы.

Расчитаем количество тепла, выделяемого одновременно всеми источниками в производственном помещении:

, (3.20)

где -тепловыделения от оборудования;

-тепловыделения от людей;

-тепловыделения от искусственного освещения;

-тепловыделения от солнечной радиации.

Определим тепловыделения от оборудования по формуле:

= (3.21)

Вт ,

где = 100 Вт - номинальная мощность единицы оборудования;

= 6 шт. - количество единиц оборудования.

Определим тепловыделения тепловыделения от людей по формуле:

Вт , (3.22)

где = 5 человек - количество людей, работающих в ВЦ.

Определим тепловыделения от искусственного освещения по формуле:

Вт , (3.23)

где = 250 Вт - мощность одной лампы накаливания;

m = 15 шт. - количество ламп накаливания.

Определим тепловыделения от солнечной радиации по формуле:

Вт , (3.24)

где F = 15 - площадь световых проемов;

q = 144 ккал/(ч·) - количество теплоты, вносимой радиацией через световые проемы, так как фонарей нет, то тепловыделения через фонари не учитывается.

Найденные данные подставляем и получаем результат:

Вт

Рассчитаем потери тепла через внешние ограждения и оконные проемы:

, (3.25)

где - потери тепла через внешние ограждения;

- потери тепла через оконные проемы.

Теплопотери через внешние ограждения будут равны нулю, так как внешних ограждений нет, т. е. = 0 Вт.

Определим теплопотери через оконные проемы по формуле:

(3.26)

Вт ,

где F = 15 - площадь световых проемов;

к = 2.6 ккал/(ч·) - коэффициент теплопередачи оконных проемов;

ТП = 295 К - температура удаляемого из помещения воздуха;

ТН = 290 К - температура при которой воздух поступает в помещение.

Найденные данные подставляем и получаем результат:

Вт .

Найденные данные подставляем и получаем результат:

Вт

Найденные данные подставляем и получаем, что количество воздуха для борьбы с избыточным теплом равно:

.

Произведем расчет кратности воздухообмена, по формуле:

 , (3.27)

где L = 4006 - количество воздуха для борьбы с избыточным теплом;

= 60 - объем помещения.

Так как кратность воздухообмена больше 30, то необходимо рассчитать механическую вентиляцию.

Выбор вентилятора

Вентилятор центробежный типа Ц4-70 №10.

Производительность вентилятора: L = 5000

Полное давление: P = 200 Па.

Окружная скорость колеса: 20 м/с.

Количество оборотов в минуту: 300 об/мин.

Определим потребную мощность на валу электродвигателя N в кВт при перемещении чистого воздуха для стандартных условий:

(3.28)

кВт ,

где L = 5000 - производительность вентилятора;

P=200 Па - полное давление;

=0.6 - КПД вентилятора;

= 1.0 - КПД передачи, вентилятор насажен на вал электродвигателя.

Определим установленную мощность электродвигателя Nу с учетом запаса в кВт:

кВт . (3.29)

где Кз = 1.15 - коэффициент запаса мощности;

N = 4.5 кВт - потребная мощность на валу электродвигателя.

3.3.9 Гражданская оборона

Анализ чрезвычайной ситуации

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

Общими признаками ЧС являются:

гибель или угроза гибели людей либо серьезное нарушение условий их жизнедеятельности;

наличие экономических убытков;

существенное ухудшение условий окружающей среды.

Классификацию ЧС, которые могут произойти с гражданами и имуществом Украины на территории других государств, проводят согласно с законодательством соответствующего государства или нормами межгосударственного права. Целью классификации ЧС является образование эффективного механизма оценки событий, которые произошли или могут произойти в прогнозируемый срок и определить степень реагирования на соответствующем уровне управления.

Согласно причинам возникновения ЧС, которые могут возникнуть на территории Украины, они делятся:

ЧС природного характера;

ЧС социально-политического характера;

ЧС военного характера;

ЧС техногенного характера.

ЧС военного характера - это ситуация, возникающая в результате применения оружия массового поражения (ядерного, химического, биологического) и других видов оружия, а также применения обычного способа поражения, в результате чего разрушаются АС, склады радиоактивных веществ, создающие вокруг себя зоны радиоактивного и химического заражения.

Причинами возникновения ЧС техногенного характера могут служить следующие:

значительное количество технически отсталых производств;

использование в производстве потенциально опасных веществ;

неотлаженная должным образом контрольная деятельность на производстве вследствие появления большого количества малых производств;

возрастание количества случаев нарушения техники безопасности;

неудовлетворительное положение дел с утилизацией и захоронением высокотоксичных отходов.

ЧС также классифицируются по следующим уровням:

общегосударственный. Такая ЧС происходит на территории двух и более областей, или угрожает перенесением в другие области, а также если для ликвидации ЧС требуются материальные и технические ресурсы в объемах, превышающих собственные возможности отдельной области;

региональный;

местный;

объектный.

Определим чрезвычайные ситуации техногенного характера наиболее вероятные в вычислительном центре:

Пожар (взрыв) в сооружениях, коммуникациях и технологическом оборудовании на промышленных объектах.

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

Разрушение зданий и сооружений.

Оценка ожидаемой пожарной обстановки

Пожарная обстановка на объекте - это обстановка которая может возникнуть в результате чрезвычайных ситуаций военного и мирного времени, связанных с действием световых импульсов от ядерных (и других) взрывов. С действием инфракрасного излучения открытого огня (например, при пожаре на каком - либо объекте), с действием вторичных факторов (например, при возникновении пожаров от разрушенных элементах объекта вследствие короткого замыкания повреждённой энергосети), а также с действием стихийных бедствий (например, возникновение пожаров от удара молнии).

Выделяют три зоны пожара на объекте:

зона отдельных пожаров;

зона сплошных пожаров;

зона горения и тления в завалах.

Исходные данные для проведения анализа и оценки пожарной обстановки приведены в таблице 3.8.

Таблица 3.8

Данные для проведения анализа и оценки пожарной обстановки

Тип здания.	Здание построено с несущими и ограждающими конструкциями из кирпича с деревянной кровлей, покрытой шифером.
Шторы, находящиеся в здании.	Хлопчатобумажные.
Дверные и оконные проёмы.	Деревянные, окрашенные в темный цвет.
Расстояние от автостанции до объекта , м.	300
Количество горючего вещества, т	150

Определить устойчивость объекта (ВЦ) к воздействию инфракрасного излучения в результате пожара на автомобиле заправщике, находящегося на автостанции на расстояние 300 м от ВЦ.

Исходя из типа здания определяем, что оно относится к третьей степени огнеустойчивости. Категория взрывопожарной обстановки - Д.

Вероятность возникновения отдельных пожаров зависит от степени огнеустойчивости зданий и сооружений, а возникновение сплошных пожаров - от плотности застройки данного участка объекта.

Величина радиусов внешних границ зон отдельных пожаров и зон сплошных пожаров определяется последующим формулам:

(3.30)

(3.31)

где - удельная теплоемкость горючего вещества;

Q - масса горючего вещества.

Удельная теплоемкость бензина [Дж/кг].

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

(3.32)

где - величина плотности энергии инфракрасного излучения от пожара,[Дж/м];

- удельная теплоемкость горючего вещества, [Дж/кг].

Q - масса горючего вещества, [кг].

R - расстояние от центра пожара к конкретному объекту.

.

Величина радиуса огня пожара при разливе и возгорании бензина определяют по следующей формуле:

, (3.33)

где - удельный вес бензина, [т/м], .

.

Схема расположения ВЦ относительно источника пожара приведена на рис. 3.18.



Размещено на http://www.allbest.ru/

Рис. 3.18. Схема расположения ВЦ относительно источника пожара:

1 - зона горения ;

2 - зона сплошных пожаров;

3 - зона отдельных пожаров.

По таблице определим устойчивость объекта к инфракрасного импульса.

Таблица 3.9

Данные для определения устойчивости объекта к инфракрасного импульса

Материалы	Возгорание	Горение
Ткань шерстяная	1250 - 1450	2100 - 3000
Доски деревянные, окрашенные в черный цвет	250 - 420	840 - 1250
Ткань хлопчатобумажная	500 - 750	840 - 1500

Выводы по разделу

В результате разработки элементов бизнес-плана были получены следующие результаты:

затраты на разработку - 9484,08 грн.;

затраты на тиражирование и адаптацию -341,98 грн.;

цена одной копии программного продукта - 599 грн.

При реализации 24 копии программного продукта доходы от реализации превысят совокупные расходы, что сделает проект рентабельным.

В результате разработки элементов бизнес-плана можно сказать, что программный комплекс «Регистратура» оказывается конкурентно способным, имеет достаточное количество потенциальных покупателей для покрытия всей совокупности затрат, связанных с разработкой, внедрением и сопровождением данного программного продукта. Указанная цена одной копии программного продукта оказывается приемлемой для потенциальных покупателей.

По оценке ожидаемой пожарной обстановке, которая может возникнуть на территории вычислительного центра:

Исследуемый объект находится вне зоны сплошных пожаров и зоны отдельных пожаров.

Потерь производственных фондов нет, так - как инфракрасный импульс, возникший вследствие пожара не вызовет пожара в помещении.

Мероприятия, которые можно провести по повышению огнеустойчивости:

регулярное очищение зоны от временных завалов;

повышение огнеустойчивости кровли (замена толи рубероидом);

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

ЗАКЛЮЧЕНИЕ

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

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

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

В выпускной работе были разработаны основные элементы бизнес-плана. Исследован предполагаемый рынок сбыта. Предполагаемый объем реализации составляет 54 копии программы. Предполагаемая цена одной копии 599 грн. Указанная цена является вполне приемлемой для потенциальных клиентов и конкурентоспособной. В разделе по БЖД была рассмотрено выявление и анализ вредных и опасных факторов действующих в условиях ВЦ, и разработаны мероприятия по снижению или исключению опасных факторов.

На основании анализа актуальности разработки, возможностей, предоставляемых программным продуктом, и результатов бизнес-плана можно сказать, что рассматриваемая система будет использоваться на территории Украины.

АННОТАЦИЯ

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

Ключевые слова: медицинские автоматизированные информационные системы, реляционная модель данных, структура базы данных, программные средства, маркетинговые исследования, оценка рынка сбыта, сегментирование, трудоемкость работ, смета затрат, уровень качества.

Объект исследования: В качестве объекта автоматизации в данной работе выбрано медицинское учреждение, регистратура поликлиники.

Методы исследования: Для написания программного обеспечения использовалась реляционная модель данных, среда программирования Delphi, СУБД Oracle.

Проведен обзор медицинских автоматизированных информационных систем, на основе анализа проведено моделирование автоматизированной системы «Регистратура»; проведены испытания и экономическое обоснование АС «Регистратура»

Полученные результаты: В рамках данной дипломной работы было разработано программное обеспечение для ведения учета пациентов в регистратуре поликлиники. Был разработан бизнес-план разработки и реализации данной системы. Разработанный программный продукт позволит повысить эффективность работы медицинского персонала и качество оказания медицинской помощи, и сократить затраты на создание и заполнение амбулаторной карточки пациента.

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

автоматизированная система учет

Закон Украины №2801-XII от 19.09.1992 г. «Основы законодательства Украины про охрану здоровья»

Медична облікова документація, що використовується в поліклініках (амбулаторіях) МОЗ України, Київ, 1999 р.

Медична облікова документація, що використовується в сиационарах МОЗ України, Київ, 1999 р.

Методические указания по дипломному проектированию для студентов дневной формы обучения по специальности 7.080401 "Информационные управляющие системы и технологии"

Единая система программной документации. -М: Издательство стандартов, 1988.

Гради Буч. Объектно-ориентированный анализ и проектирование. -М.: Издательство Бином

Бойко В.В., Савинков В.М. Проектирование информационной базы автоматизированной системы на основе СУБД. - М.: Финансы и статистика, 1982.

Джексон Г. Проектирование реляционных баз данных для использования с микро-ЭВМ. - М.: Финансы и статистика, 1991.

Маклаков С.В. BPWin и ERWin CASE-средства разработки информационных систем. - М.: ДИАЛОГ МИФИ, 2000.

Грин Д., Кнут Д. Математические методы анализа алгоритмов. - М. Мир, Овсяникова М.В., Федин В.А. Функциональные зависимости и нормализация реляционных БД. Методическое пособие. -М: Моск. Энерг. Инст., 1987.

Гудман С. Введение в разработку и анализ алгоритмов. - М.: Мир, 1981.

Ульман Дж. Основы систем баз данных. - М.: Финансы и статистика, 1983.

Система управления госпиталем «MedTrak». Адрес в Интернете www.sparm.com/medtrak

Госпитальная информационная система «Авиценна». Адрес в Интернете www.medmail.ru/medstat

Программный комплекс «Управление поликлиникой». Адрес в Интернете www.medik.ru/polik

Медицинская информационная система «Амулет-клиника». Адрес в Интернете www.klinika.com/amylet

Система «MedWork» компании Master Labs. Адрес в Интернете www.medwork.ru

Фаронов В.В. Delphi3 Учебный курс- М: Издательство "Нолидж",1998.

Баас.Р.,Фервай М., Гюнтер Х. Delphi 4 Для пользователя, BHV Киев, 1999.

Урман С. Oracle 8. Программирование на языке PL/SQL. - М.: Лори, 1999.

Дейт К. Дж. Введение в системы баз данных. - М: Вильямс, 1999.

Борзов Ю.В. Методы тестирования и отладки программ ЭВМ. - Рига, ЛГУ им. П. Стучки, 1980.

Майерс Г.Д. Надёжность программного обеспечения. - М.: Мир, 1980.

Майерс Г.Д. Искусство тестирования программ. - М.: Финансы и статистика, 1982.

Г.Майерс “Надежность программного обеспечения”./пер. с англ. под ред. Б.А.Позина - М.:Финансы и статистика 1982 - 176 стр.

Липаев В.В. “Качество программного обеспечения”.М.:Мир, 1983.

Боэм Б. и др. “Характеристики качества программного обеспечения”. М.:Мир, 1981.

К.Г.Гусев “Основы теории надежности”.Харьков ХАИ 1975.

С. Канер, Д.Фолк, Е.К.Нгуен “Тестирование программного обеспечения ” /Пер. на русский язык. Издательство “ДиаСофт”, 2000г.

Пелих А.С. Бизнес план или как организовать собственный бизнес.-М.: Ось-89, 1997.

Тони Скоун . Управленческий учёт .-М.: Аудит,Юнити,1997.

Закон Украины об охране окружающей природной среды от 25.06.91г.

Закон Украины об охране труда от 25.11.92г.

Долин П.А. Справочник по технике безопасности.-М.:Энергоатомиздат, 1984.

ОНТП 10-90. Общесоюзные нормы технологического проектирования. Определение категорий зданий и сооружений по взрывопожарной и пожарной опасности.-М.: Стройиздат, 1991.

СНиП 2.01.02-85. Строительные нормы и правила. Противопожарные нормы проектирования зданий и сооружений.-М.:Стройиздат, 1986.

ГОСТ 12.0.003-74. 1ССБТ. Опасные и вредные производственные факторы. Классификация. - Введ. 01.01.76.

ГОСТ 12.1.004-91 СББТ. Пожарная безопасность. Общие требования.-Введ.01.01.87.

ПРИЛОЖЕНИЕ

Листинг программного обеспечения

unit Main;

interface

uses

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

StdCtrls, ComCtrls;

type

TMainForm = class(TForm)

StatusBar1: TStatusBar;

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

MainForm: TMainForm;

implementation

uses Module;

{$R *.DFM}

procedure TMainForm.FormActivate(Sender: TObject);

var S:String;

begin

//if Date >StrToDateTime('12.06.2002') then Close;

case People_DTYPE of

0:S:

1:S:=

2:S:=' врач ';

3:S:='

end;

StatusBar1.Panels[0].Text:=' '+S+People_F+' '+People_I+' '+People_O;

DM.QRengen.DataBaseName:=g_NSILocation;

DM.QRengen1.DataBaseName:=g_NSILocation;

DM.QFlurka.DataBaseName:=g_NSILocation;

DM.QFlurka1.DataBaseName:=g_NSILocation;

DM.QLifeFun.DataBaseName:=g_NSILocation;

DM.QLifeFun1.DataBaseName:=g_NSILocation;

DM.QKartaUpdate.DataBaseName:=g_NSILocation;

DM.QKarta.DataBaseName:=g_NSILocation;

DM.QKartaSt.DataBaseName:=g_NSILocation;

DM.QVesRost.DataBaseName:=g_NSILocation;

DM.QHistory.DataBaseName:=g_NSILocation;

DM.QZabolevan.DataBaseName:=g_NSILocation;

DM.QTravmi.DataBaseName:=g_NSILocation;

DM.QOperat.DataBaseName:=g_NSILocation;

DM.QSanator.DataBaseName:=g_NSILocation;

DM.QNasledst.DataBaseName:=g_NSILocation;

DM.QPrivivka.DataBaseName:=g_NSILocation;

DM.QPrivichka.DataBaseName:=g_NSILocation;

DM.QOsob_notes.DataBaseName:=g_NSILocation;

DM.QPeriodOsm.DataBaseName:=g_NSILocation;

DM.QZaklDiag.DataBaseName:=g_NSILocation;

DM.QNaprAnaliz.DataBaseName:=g_NSILocation;

DM.QRecept.DataBaseName:=g_NSILocation;

DM.QOsvobWork.DataBaseName:=g_NSILocation;

DM.QHistoryDate.DataBaseName:=g_NSILocation;

DM.QKarta.Open;

end;

end.

unit PeopleList;

interface

uses

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

Grids, Wwdbigrd, Wwdbgrid, ExtCtrls, ComCtrls,NsiTypes;

type

TPeopleListForm = class(TForm)

TV: TTreeView;

Splitter1: TSplitter;

wwDBGrid1: TwwDBGrid;

procedure FormActivate(Sender: TObject);

procedure TVExpanding(Sender: TObject; Node: TTreeNode;

var AllowExpansion: Boolean);

procedure TVChange(Sender: TObject; Node: TTreeNode);

procedure TVDblClick(Sender: TObject);

procedure wwDBGrid1DblClick(Sender: TObject);

procedure AddKarta(Sender: TObject);

procedure RebuildTree;

procedure ExpandLevel( Node : TTreeNode);

private

{ Private declarations }

public

{ Public declarations }

end;

var

PeopleListForm: TPeopleListForm;

implementation

uses Module, People;

{$R *.DFM}

{ TPeopleListForm }

procedure TPeopleListForm.RebuildTree;

begin

//LastNode:=nil;

TV.Tag:=1;

TV.Items.BeginUpdate;

TV.Items.Clear;

TV.Items.EndUpdate;

TV.Tag:=0;

ExpandLevel(nil);

if TV.Items.Count>0 then

begin

TV.Selected:=TV.Items[0];

// LastNode:=TV.Items[0];

end;

end;

procedure TPeopleListForm.ExpandLevel(Node: TTreeNode);

Var ID , i : Integer;

TreeNode : TTreeNode;

fio:String;

N1:TNSI;

Old_ID:Word;

begin

try

IF Node = nil Then ID:=0 Else ID:=Integer(Node.Data);

TV.Items.BeginUpdate;

if ID = 0 then

begin

N1:=TLineNSI.Create(nil,nil,nil,'NsiStreet','');

N1.RefreshHead;

For i:=1 To N1.HeadData.RecordCount Do

Begin

{ fio:=DM.QKarta.FieldByName('NUMKART').AsString+' '+

DM.QKarta.FieldByName('F').AsString+' '+

Copy(DM.QKarta.FieldByName('I').AsString,1,1)+'.'+

Copy(DM.QKarta.FieldByName('O').AsString,1,1)+'.';}

TreeNode:=TV.Items.AddChildObject(Node ,N1.HeadData.FieldByName('NAME').AsString,

Pointer(N1.HeadData.FieldByName('KOD').AsInteger));

TV.Items.AddChildObject(TreeNode,'', nil);

N1.HeadData.Next;

End;

end else

begin

if Node.Level = 0 then

begin

Old_ID:=DM.QKartaSt.ParamByName('ID_ST').asInteger;

DM.QKartaSt.Close;

DM.QKartaSt.ParamByName('ID_ST').asInteger:=Integer(Node.Data);

DM.QKartaSt.Open;

while not DM.QKartaSt.Eof do

begin

fio:=DM.QKartaSt.FieldByName('NUMKART').AsString+' '+

DM.QKartaSt.FieldByName('F').AsString+' '+

Copy(DM.QKartaSt.FieldByName('I').AsString,1,1)+'.'+

Copy(DM.QKartaSt.FieldByName('O').AsString,1,1)+'.';

TreeNode:=TV.Items.AddChildObject(Node ,fio,

Pointer(DM.QKartaSt.FieldByName('ID').AsInteger));

TreeNode.ImageIndex:=1;

TreeNode.SelectedIndex:=2;

DM.QKartaSt.Next;

end;

DM.QKartaSt.Close;

DM.QKartaSt.ParamByName('ID_ST').asInteger:=Old_ID;

DM.QKartaSt.Open;

if TV.Selected<>nil

then DM.QKartaSt.Locate('ID',Integer(TV.Selected.Data),[]);

end;

end;

finally

N1.Free;

TV.Items.EndUpdate;

end;

end;

procedure TPeopleListForm.FormActivate(Sender: TObject);

begin

RebuildTree;

end;

procedure TPeopleListForm.TVExpanding(Sender: TObject; Node: TTreeNode;

var AllowExpansion: Boolean);

begin

IF Node = nil Then Exit;

IF Node.getFirstChild.Data = nil

Then Begin

Node.DeleteChildren;

ExpandLevel(Node);

End;

end;

procedure TPeopleForm.ShowFlurkaTable(ID:Word);

var Col:TColumn;

begin

VisiblePanel(Panel6);

with DM.QFlurka do

begin

if not Active then

begin

Close;

ParamByName('ID_KARTA').asInteger:=DM.QKarta.FieldByName('ID').asInteger;

Open;

end;

DBGrid1.Columns.Clear;

Col:=DBGrid1.Columns.Add;

Col.FieldName:='PDATE';

Col.Width:=64;

Col.Title.Caption:

Col.Alignment:=taLeftJustify;

Col:=DBGrid1.Columns.Add;

Col.FieldName:='RES';

Col.Width:=522;

Col.Title.Caption:

Col.Alignment:=taLeftJustify;

if ID<>0 then Locate('ID',ID,[]) else First;

DM.DataSource2.DataSet:=DM.QFlurka;

end;

end;

procedure TPeopleForm.TVDblClick(Sender: TObject);

begin

if TV.Selected<>nil then

begin

case TV.Selected.Level of

0:begin end;

1:begin

case TV.Selected.Parent.Index of

1:try

EditHistoryForm:=TEditHistoryForm.Create(Self);

RefreshDataAfterEdit1(EditHistoryForm,DM.QHistory,ShowHistoryTable);

finally

EditHistoryForm.Free;

end;

3:try

EditLifeFunForm:=TEditLifeFunForm.Create(Self);

RefreshDataAfterEdit1(EditLifeFunForm,DM.QLifeFun,ShowLifeFunTable);

finally

EditLifeFunForm.Free;

end;

4:try

EditVesRostForm:=TEditVesRostForm.Create(Self);

RefreshDataAfterEdit1(EditVesRostForm,DM.QVesRost,ShowVesRostTable);

finally

EditVesRostForm.Free;

end;

5:try

EditPeriodOsmForm:=TEditPeriodOsmForm.Create(Self);

RefreshDataAfterEdit1(EditPeriodOsmForm,DM.QPeriodOsm,ShowPeriodOsmTable);

finally

EditPeriodOsmForm.Free;

end;

6:try

EditZaklDiagForm:=TEditZaklDiagForm.Create(Self);

RefreshDataAfterEdit1(EditZaklDiagForm,DM.QZaklDiag,ShowZaklDiagTable);

finally

EditZaklDiagForm.Free;

end;

7:try

EditNaprAnalizForm:=TEditNaprAnalizForm.Create(Self);

RefreshDataAfterEdit1(EditNaprAnalizForm,DM.QNaprAnaliz,ShowNaprAnalizTable);

finally

EditNaprAnalizForm.Free;

end;

8:try

EditReceptForm:=TEditReceptForm.Create(Self);

RefreshDataAfterEdit1(EditReceptForm,DM.QRecept,ShowReceptTable);

finally

EditReceptForm.Free;

end;

9:try

EditRengenForm:=TEditRengenForm.Create(Self);

RefreshDataAfterEdit1(EditRengenForm,DM.QRengen,ShowRengenTable);

finally

EditRengenForm.Free;

end;

10:try

EditFlurkaForm:=TEditFlurkaForm.Create(Self);

RefreshDataAfterEdit1(EditFlurkaForm,DM.QFlurka,ShowFlurkaTable);

finally

EditFlurkaForm.Free;

end;

11:try

EditOsvobWorkForm:=TEditOsvobWorkForm.Create(Self);

RefreshDataAfterEdit1(EditOsvobWorkForm,DM.QOsvobWork,ShowOsvobWorkTable);

finally

EditOsvobWorkForm.Free;

end;

end;{case}

end;

2:if TV.Selected.Parent.Parent.Index=2 then//Анамнез

begin

case TV.Selected.Parent.Index of

0:try

EditZabolevanForm:=TEditZabolevanForm.Create(Self);

RefreshDataAfterEdit1(EditZabolevanForm,DM.QZabolevan,ShowZabolevanTable);

finally

EditZabolevanForm.Free;

end;

1:try

EditTravmiForm:=TEditTravmiForm.Create(Self);

RefreshDataAfterEdit1(EditTravmiForm,DM.QTravmi,ShowTravmiTable);

finally

EditTravmiForm.Free;

end;

2:try

EditOperatForm:=TEditOperatForm.Create(Self);