91
экономической экспертизы» для чего используем следующий
программный код:
procedure TfrMain.m_prnAct2Click(Sender: TObject);
begin
iAct:=2;
frKeySelect.Caption:='Акт результатов медикоэкономической экспертизы';
frKeySelect.eRee.Text:='Выбор даты экспертизы';
if frKeySelect.ShowModal=mrOk then
begin
dm.quAct2.Parameters.ParamByName('KodLPU').Value:=iKodLPU;
dm.quAct2.Parameters.ParamByName('Ex').Value:=0;
dm.quAct2.Parameters.ParamByName('godEx').Value:=iGod;
dm.quAct2.Parameters.ParamByName('mesEx').Value:=iMes;
if dm.quAct2.Active then
dm.quAct2.Requery(dm.quAct2.ExecuteOptions)
else
dm.quAct2.Open;
//frErr.ShowModal;
dm.quAct2.First;
iNumRee:=dm.quAct2Ree.AsInteger;
sss:='Реестры за: '+dm.quAct2nam_Ree.AsString;
while not dm.quAct2.Eof do
begin
if dm.quAct2Ree.AsInteger<>iNumRee then
begin
iNumRee:=dm.quAct2Ree.AsInteger;
sss:=sss+'; '+dm.quAct2nam_Ree.AsString;
end;
dm.quAct2.Next;
end;
qrAct2.QRLabel1.Caption:='Акт результатов медикоэкономической экспертизы';
qrAct2.QRLabel2.Caption:='стационарной (стационарозамещающей) медицинской
помощи ('
+frKeySelect.eRee.Text+' г.)';
qrAct2.QRLabel3.Caption:=sss;
qrAct2.QRLabel7.Caption:=frKeySelect.eLPU.Text;
dm.quAct2.First;
sumOtd:=0.0; sumItog:=0.0;
sumOpl:=0.0; sumRee:=0.0; sumShtr:=0.0; sumUder:=0.0; sumDopl:=0.0;
iNumRee:=0; iNum:=0;
qrAct2.Preview;
end;
end;
После выбора ЛПУ (рис. 19) по TfrKeySelect.spbReeClick нажатию
кнопки с тремя точками поля «Выбор ЛПУ» (рис. 13), для вызова формы и
определения периода проведения экспертизы (рис. 24) используем
программный код процедуры TfrKeySelect.spbReeClick, приведенный
выше.
92
Рис.24 Форма для выбора периода проведения экспертизы
Рис. 25 Акт результатов медико-экономической экспертизы
Аналогично формируется документ «Акт результатов экспертизы
качества» (рис. 26), формирование которого начианется с выбора пункта
меню «Просмотр и печать/Акт результатов экспертизы качества» и
выполнения следующего программного кода[29.стр.30]:
93
procedure TfrMain.m_prnAct3Click(Sender: TObject);
begin
iAct:=3;
frKeySelect.Caption:='Акт результатов экспертизы качества';
frKeySelect.eRee.Text:='Выбор даты экспертизы';
if frKeySelect.ShowModal=mrOk then
begin
dm.quAct2.Parameters.ParamByName('KodLPU').Value:=iKodLPU;
dm.quAct2.Parameters.ParamByName('Ex').Value:=1;
dm.quAct2.Parameters.ParamByName('godEx').Value:=iGod;
dm.quAct2.Parameters.ParamByName('mesEx').Value:=iMes;
if dm.quAct2.Active then
dm.quAct2.Requery(dm.quAct2.ExecuteOptions)
else
dm.quAct2.Open;
//frErr.ShowModal;
dm.quAct2.First;
iNumRee:=dm.quAct2Ree.AsInteger;
sss:='Реестры за: '+dm.quAct2nam_Ree.AsString;
while not dm.quAct2.Eof do
begin
if dm.quAct2Ree.AsInteger<>iNumRee then
begin
iNumRee:=dm.quAct2Ree.AsInteger;
sss:=sss+'; '+dm.quAct2nam_Ree.AsString;
end;
dm.quAct2.Next;
end;
qrAct2.QRLabel1.Caption:='Акт результатов экспертизы качества';
qrAct2.QRLabel2.Caption:='стационарной (стационарозамещающей) медицинской
помощи ('
+frKeySelect.eRee.Text+' г.)';
qrAct2.QRLabel3.Caption:=sss;
qrAct2.QRLabel7.Caption:=frKeySelect.eLPU.Text;
dm.quAct2.First;
sumOtd:=0.0; sumItog:=0.0;
sumOpl:=0.0; sumRee:=0.0; sumShtr:=0.0; sumUder:=0.0; sumDopl:=0.0;
iNumRee:=0; iNum:=0;
qrAct2.Preview;
end;
end;
Рис. 26 Акт результатов экспертизы качества
2.4. Контрольный пример реализации проекта и его описание
Для анализа работоспособности программы была применена
следующая программа тестирования. Тесты разработаны по стратегии
черного ящика методом эквивалентных разбиений: для каждого значения
94
определяются классы эквивалентности один правильный и несколько
неправильных.
Исходные данные: Модуль «Параметры выбора» (см. рис. 4);
определяем по два класса эквивалентности для всех строковых значений и
вводимых выбором: неправильный – нет значения, правильный – есть
значение.
Тест №1. Исходные данные: В качестве значения в поле «Выбор
ЛПУ» ввести любое значение, затем нажать кнопку «Ok».
Результат: Введённые данные не сохраняются, пользователю
выдается сообщение (Рис.27), что не определено лечебное учреждение,
курсор перемещается в поле «Выбор ЛПУ».
Результат правильный.
Рис. 27 Сообщение об ошибке
Тест №2. Исходные данные: В качестве значения в поле «Выбор
реестра ЛПУ» ввести любое значение, затем нажать кнопку «Ok».
Результат: Введённые данные не сохраняются, пользователю
выдается сообщение (Рис.28), что не выбран реестр ЛПУ, курсор
перемещается в поле «Выбор реестра ЛПУ».
Результат правильный.
Рис. 28 Сообщение об ошибке
Тест №3. Исходные данные: В качестве значения в поле «Выбор
ЛПУ» ввести значение, нажав кнопку с тремя точками, и выбрав ЛПУ (см.
95
Рис. 4). В качестве значения в поле «Выбор реестра ЛПУ» ввести значение,
нажав кнопку с тремя точками, и выбрав реестр ЛПУ (Рис. 19), затем
нажать кнопку «Ok».
Результат: Введённые данные сохраняются (Рис. 13), пользователю
выводится акт медико-экономического контроля (Рис.21) для просмотра и
печати.
Результат правильный.
Тест №4. Исходные данные: В качестве значения в поле «Выбор
экспертизы» ввести любое значение, затем нажать кнопку «Ok».
Результат: Введённые данные не сохраняются, пользователю
выдается сообщение (Рис.29), что не определена дата экспертизы, курсор
перемещается в поле «Выбор экспертизы».
Результат правильный.
Рис. 29 Сообщение об ошибке
Тест №5. Исходные данные: В качестве значения в поле «Выбор
ЛПУ» ввести значение, нажав кнопку с тремя точками, и выбрав ЛПУ (рис.
19). В качестве значения в поле «Выбор экспертизы» ввести значение,
нажав кнопку с тремя точками, и выбрав дату экспертизы (рис. 24), затем
нажать кнопку «Ok».
Результат: Введённые данные сохраняются (рис. 13), пользователю
выводится акт медико-экономического экспертизы (рис.25) для просмотра
и печати.
Результат правильный.
Тестирование программы показало, что программа работает
надежно и выполняет все возложенные на нее функции. Что разработанная
96
программа позволяет выполнять должностные обязанности врача-эксперта
по дополнительному контролю реестров стационарной и
стационарозамещающей медицинской помощи.
В результате было разработано и реализовано программное
средство дополнительного контроля реестров стационарной и
стационарозамещающей медицинской помощи, которое обеспечивает:
интерфейс взаимодействия пользователя с системой;
формирование и печать выборок для анализа;
формирование и печать актов.
Работа над поставленной задачей позволила применить на практике
возможности реляционной базы данных Paradox 7.0, освоить и применить
средства визуальной среды разработки программных продуктов Delphi.
Все вышеизложенное позоляет нам сделать следующие выводы.
При проектировании программного средства был применен метод
декомпозиции задачи по данным, в результате чего, была разработана ER-
диаграмма, которая позволила разработать необходимую структуру базы
данных, которая может быть реализована средствами MS SQL Server.
Полученная структура базы данных говорит о том, что применяемая
структура базы данных «Reestr» соответствует полученной и может быть
использована для работы программного средства дополнительного
контроля реестров стационарной и стационарозамещающей медицинской
помощи.
Так же при проектировании получены следующие результаты:
структура программы, которая соответствует её
функциональному назначению;
разработаны схемы работы программного средства по
выполнению функций определённых назначением программы;
97
разработаны запросы и сохранённые процедуры, необходимые
для ускорения работы и выполнения задач, определённых схемами работы,
программного средства.
Таким образом, программное средство может быть реализовано
средствами Delphi и MS SQL Server.
Работа над поставленной задачей позволила применить на практике
возможности СУБД MS SQL Server, освоить и применить средства
визуальной среды разработки программных продуктов Delphi.
Разработанная программа позволяет формировать выборки для
анализа реестров и оформлять медико-экономические экспертизы и
экспертизы качества. Разработанная программа представляет собой
инструмент, помогающий врачу-эксперту осуществлять важную часть
своих обязанностей в соотвествии с утверждённым Порядком оплаты
медицинских услуг и контроля качества в системе обязательного
медицинского страхования Курской области по проведению медико-
экономического контроля реестров стационарной и
стационарозамещающей медицинской помощи. Применение программы
будет способствовать повышению эффективности работы врача-эксперта.
98
III ОБОСНОВАНИЕ ЭКОНОМИЧЕСКОЙ ЭФФЕКТИВНОСТИ
ПРОЕКТА
3.1. Выбор и обоснование методики расчёта экономической
эффективности
Для подсчета себестоимости продукции и экономической
эффективности данного программного продукта, нужно знать следующие
составляющие:
затраты на техническое и программное обеспечение проекта;
расчет затрат на материальные ресурсы;
расчет затрат на энергоресурсы;
амортизационные отчисления;
расчет фонда заработной платы;
прочие расходы.
Трудоемкость разработки программного продукта можно
определить следующим способом[34.стр.196]:
ОТДПБAO
ttttttT
(1)
где
O
t
- затраты труда на подготовку описание задачи;
А
t
- затраты труда на разработку алгоритма решение задачи;
Б
t
- затраты труда на разработку блок-схемы алгоритма решение
задачи;
П
t
- затраты труда на составление программы по готовой блок-
схеме;
Д
t
- затраты труда на подготовку документации задачи;
99
ОТ
t
- затраты труда на отладку программы на ЭВМ при комплексной
отладке задачи.
Составляющие затрат, в свою очередь можно вычислить через
условное число операторов Q. В нашем случае число операторов в
отлаженной программе Q=589 творческим характером работы, в место
этого оценим затраты труда на изучение описания задачи с учетом
уточнения описания и квалификации программиста
определяются[30.стр.182]:
K
BQ
T
О
85..60
(2)
где
В- коэффициент увеличения затрат труда вследствие
недостаточного описания задачи, уточнение и некоторой доработки. (В =
от 1 до 5). В = 1,2
К- коэффициент квалификации разработчика (К = от 0,8 до 1,5) К =
1,1
Таблица 22
Трудоемкость работ на разработку программы
№
Этапы проектирования
В
К
Формула расчета
Трудоемкость
чел. час.
1
Подготовительный
O
t
1,2
1,1
1,175
2,1589
O
t
8,57
2
Алгоритм решения задачи
А
t
1,160
589
A
t
8,93
3
Блок-схема алгоритма
Б
t
1,160
589
Б
t
8,93
100
4
Составление программы
по блок-схеме
П
t
1,160
589
П
t
8,93
5
Отладка программы на
ЭВМ
ОТ
t
А
ОТОТ
tt 5,1
1,140
589
А
ОТ
t
20,08