АРМ регистратора поликлиники

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

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

1. Постановка задачи

1. Наименование задачи.

Применение информационных технологий для автоматизации работы регистратора в поликлинике.

2. Организационно - экономическая сущность задачи.

1. Работа регистратора в поликлинике заключаются в оформлении пациентов, запись на прием к врачам-специалистам.

Пациент приходит в поликлинику, подходит к окну регистратуры и просит талон на прием к врачу-специалисту. Регистратор проверяет наличие талонов на прием к выбранному врачу и отдает его пациенту. Затем отмечает у себя в журнале то, что талон с номером «таким-то» выдан. В начале рабочей смены, врачи сдают талоны (бумажки) на прием, в регистратуру.

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

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

3. Цель решения.

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

4. Назначение задачи.

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

5. Периодичность решения.

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

6. Источники и способы получения данных.

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

7. Потребители результатной информации.

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

2. Описание входной / выходной информации

	Входная информация	Выходная информация	Справочная информация
наименование	Информация о к-ве талонов	Отчет	Талон	Информация о режиме работы врачей
форма	документ	Документ	Документ	БД
период	По мере поступления	Ежедневно в конце смены	По требованию	По мере необходимости
источник	Врачи-специалисты	Регистратор	Регистратор	Врачи-специалисты
получатель	Регистратор	Администрация больницы	Пациент	Регистратор, пациент

3. Структура меню

Талоны	Поиск	Отчет	Выход
	по врачам	Сформировать Просмотреть Печать

4. Структура базы данных

Талоны	Отчет в конце смены	Номера талонов
Ф.И.О. врача Специализация № кабинета Дата приема max к-во талонов Номер талона	Ф.И.О. врача Дата Выдано талонов	Номер талона Ф.И.О. врача Дата Наличие (есть (1,0))

5. Программный код

информационный поликлиника программный

Форма заполнения талонов

Программный код на кнопку «Записать».

Private Sub CmdB1_Click()

Dim r As Range, a As Range, Vrach As Range

Dim d (1 To 2) As String

Dim Dat As Date

Dim FIO As String

Dim n As Integer, m As Integer, b As Integer

For i = 1 To

Sheets («Талоны»).Range («A1»).CurrentRegion. Columns. Count

If Sheets («Талоны»).Cells (2, i) = CmB1. Value Then ' находим столбец с врачём

doctorColumn = i

Exit For

End If

Next i

Sheets («Талоны»).Cells (13, doctorColumn + 1).Value = 0

FIO = CmB1. Value

Dat = CDate (talony. TxtB4)

With talony

d(1) = Trim (.TxtB3. Value)

d(2) = Date

End With

If Len (d(1)) = 0 Or Len (d(2)) = 0 Then

MsgBox «Заполнить все поля!!!», vbCritical, Title:= «Ввод невозможен»

Exit Sub

End If

If TxtB3. Value > 10 Then

MsgBox «Столько талонов не выдают!!!», vbCritical, Title:= «Ввод невозможен»

Exit Sub

End If

Set r = Sheets («Врачи-Талоны»).Columns(1).Find (FIO, lookat:=xlWhole)

With Sheets («Врачи-Талоны»)

Cells (r. Row, 4) = d(1)

Cells (r. Row, 5) = d(2)

End With

b = Sheets («Талоны»).Range («A1»).CurrentRegion. Rows. Count

n = talony. TxtB3. Text

Set Vrach = Sheets («Талоны»).Rows(2).Find (FIO, lookat:=xlWhole)

For s = 2 To n + 1

Sheets («Талоны»).Cells (s, Vrach. Column + 1) = «1»

Next s

For m = n + 2 To b

Sheets («Талоны»).Cells (m, Vrach. Column + 1) = «0»

Next m

With talony

CmB1. ListIndex = -1

TxtB1. Text = «»

TxtB2. Text = «»

TxtB3. Text = «»

TxtB4. Text = Date

TxtB3. SetFocus

End With

End Sub

Программный код на кнопку «Поиск».

Private Sub CmdB1_Click()

poisk. ListBox1. Clear

For i = 2 To Sheets («Талоны»).Range («A1»).CurrentRegion. Rows. Count

If (Sheets («Талоны»).Cells (i, 3) = poisk. CmB1. Value) And (Sheets («Талоны»).Cells (i, 4).Value = 0) Then

poisk. ListBox1. AddItem Sheets («Талоны»).Cells (i, 1).Value

End If

Next i

For i = 2 To Sheets («Талоны»).Range («A1»).CurrentRegion. Columns. Count

If Sheets («Талоны»).Cells (2, i) = poisk. CmB1. Value Then

doctorColumn = i ' столбец врача

Exit For

End If

Next i

For i = 2 To Sheets («Талоны»).Range («A1»).CurrentRegion. Rows. Count

If Sheets («Талоны»).Cells (i, doctorColumn + 1) = 1 Then

poisk. ListBox1. AddItem (Sheets («Талоны»).Cells (i, 1))

End If

Next i

End Sub

Программный код на ListBox «Список свободных талонов».

Private Sub ListBox1_Click()

Vidacha. TxtB5. Value = ListBox1. Value

Vidacha. TxtB1. Value = poisk. CmB1. Value

For i = 2 To Sheets («Врачи-Талоны»).Range («A1»).CurrentRegion. Rows. Count

If Sheets («Врачи-Талоны»).Cells (i, 1) = poisk. CmB1. Value Then

Vidacha. TxtB2. Value = Sheets («Врачи-Талоны»).Cells (i, 2)

Vidacha. TextBox1. Value = Sheets («Врачи-Талоны»).Cells (i, 3)

Exit For

End If

Next i

Vidacha. TxtB4. Text = Date

Vidacha. Show

Unload Me

End Sub

Программный код на кнопку «Создать талон».

Private Sub CmdB3_Click()

formFilled = 1

For i = 1 To Sheets («Талоны»).Range («A1»).CurrentRegion. Columns. Count

If Sheets («Талоны»).Cells (2, i) = Vidacha. TxtB1. Value Then

doctorColumn = i

Exit For

End If

Next i

Sheets («Талоны»).Cells (TxtB5. Value + 1, doctorColumn + 1).Value = «0»

Sheets («Талоны»).Cells (13, doctorColumn + 1).Value = Sheets («Талоны»).Cells (13, doctorColumn + 1).Value + 1

Dim Dat As Date

Sheets («Выдача»).Select

Cells (6, 3).Select

Selection. FormulaR1C1 = Date

ActiveCell. FormulaR1C1 = Date

Range («C3»).Select

Selection. FormulaR1C1 = Vidacha. TxtB1. Text

ActiveCell. FormulaR1C1 = Vidacha. TxtB1. Text

Range («C4»).Select

Selection. FormulaR1C1 = Vidacha. TxtB2. Text

ActiveCell. FormulaR1C1 = Vidacha. TxtB2. Text

Range («C5»).Select

Selection. FormulaR1C1 = Vidacha. TextBox1. Text

ActiveCell. FormulaR1C1 = Vidacha. TextBox1. Text

Range («C7»).Select

Selection. FormulaR1C1 = Vidacha. TxtB5. Text

ActiveCell. FormulaR1C1 = Vidacha. TxtB5. Text

Exit Sub

End Sub

Программный код на кнопку «Печать».

Private Sub CmdB1_Click()

If formFilled = 0 Then

MsgBox «Сначала создайте талон!», vbCritical

Exit Sub

End If

ConfirmPrint = MsgBox («Распечатать талон?», vbYesNo, «Печать талона»)

If ConfirmPrint = vbYes Then

Sheets («Выдача»).PrintOut

End If

End Sub

Программный код на кнопку «Сформировать отчет».

Private Sub CmdB1_Click()

Sheets («Отчет»).Activate

Sheets («Отчет»).Select

Cells (19, 3).Select

Selection. FormulaR1C1 = Date

ActiveCell. FormulaR1C1 = Date

Range («C20»).Select

Selection. FormulaR1C1 = otchet. TxtB1. Text

ActiveCell. FormulaR1C1 = otchet. TxtB1. Text

Sheets («Врачи-Талоны»).Select

Range («A2:A6»).Select

Selection. Copy

Sheets («Отчет»).Select

Range («A3:A7»).Select

ActiveSheet. Paste

Sheets («Врачи-Талоны»).Select

Range («D2:D6»).Select

Application. CutCopyMode = False

Selection. Copy

Sheets («Отчет»).Select

Range («B3:B7»).Select

ActiveSheet. Paste

Application. CutCopyMode = False

Range («C3»).Select

For l_doctors = 3 To Sheets («Отчет»).Range («A1»).CurrentRegion. Rows. Count

If IsNumeric (Sheets(«Отчет»).Cells (l_doctors, 2)) Then

For i = 3 To Sheets («Талоны»).Range («A1»).CurrentRegion. Columns. Count

If Sheets («Талоны»).Cells (2, i - 1).Value = Sheets («Отчет»).Cells (l_doctors, 1).Value Then

Sheets («Отчет»).Cells (l_doctors, 3).Value = Sheets («Талоны»).Cells (13, i).Value

End If

Next i

End If

Next l_doctors

End Sub

Размещено на Allbest.ru