Código fuente del sistema de intercambio de información médica basado en red

Diseño de la aplicación del Sistema de información hospitalaria (HIS)

Aquí presentamos el diseño de la aplicación del Sistema de información hospitalaria (HIS), incluidas las ideas de diseño, los ejemplos de diseño y las aplicaciones del sistema de consulta en línea de horarios de pacientes ambulatorios del hospital y el registro de citas en línea del hospital. El sistema y otras aplicaciones le permiten diseñar rápidamente varias aplicaciones de sitios web del hospital.

Aplicación de base de datos del sitio web del hospital

El hospital utiliza la base de datos del sitio web para proporcionar las siguientes aplicaciones a través de Internet o Intranet:

* Consulta en línea de pacientes ambulatorios del hospital programar*

* Cita hospitalaria en línea*

Esta sección proporciona ejemplos de diseño de aplicaciones marcadas con un asterisco (*) en la esquina superior derecha y las explica en detalle.

Para ejecutar los ejemplos de bases de datos de este capítulo, la base de datos utilizada puede ser Microsoft Access, Microsoft SQL Server o archivos de texto (los lectores pueden modificarla a otras bibliotecas que admitan ODBC, consulte la Sección 1-5 para obtener más detalles). Instale IIS 3.0 en NT y cree una nueva base de datos llamada "BookSamp" en "ODBC" en "Consola". El nombre de la fuente es "BookSamp" y el controlador es "Microsoft Access Driver", "SQL Server" o "Microsoft Text Driver". Consulte el apéndice para archivos de muestra.

1

Sistema de consulta online de horarios ambulatorios del hospital

El "Sistema de consulta online de horarios ambulatorios del hospital" permite consultar el horario ambulatorio del hospital a través de Internet.

El Hospital General dispone cada mes de un nuevo horario hospitalario para consultas externas. Los pacientes pueden conectarse al "Sistema de consulta en línea sobre horarios de pacientes ambulatorios del hospital" del hospital a través de Internet para consultar en línea el nuevo horario de pacientes ambulatorios del hospital.

Ejemplo de diseño

Ejecutemos un ejemplo.

(Ejemplo de consulta en línea data7.asp de horario ambulatorio del hospital

Para consultar el horario ambulatorio, utilice el navegador del cliente para navegar por el data7.asp.asp adjunto al servidor web. Los resultados de la consulta se mostrarán de la siguiente manera, incluidos los nombres de los departamentos y los médicos ambulatorios de lunes a sábado:

Descripción detallada del ejemplo de diseño

Ejemplo de diseño

Crear tabla de datos

p>

Primero, use Microsoft Access, Microsoft SQL Server, un archivo de texto o cualquier base de datos que admita ODBC para crear la tabla de datos HospitalSchedule

Ingrese A1~A6 en CLASS y Columnas A1~A6 respectivamente. Introduzca los nombres del departamento y del médico ambulatorio de lunes a sábado.

Utilice Microsoft Access para crear la tabla HospitalSchedule, como se muestra a continuación:

O utilice Microsoft SQL Server. para crear la tabla HospitalSchedule, como se muestra a continuación:

O use TextHospitalSchedule, como se muestra a continuación:

Consulta la base de datos

Luego, el servidor web ejecuta los datos7 .asp y usa "Server.CreateObject" para crear el objeto de conexión, y usa "Abrir" para abrir la base de datos de consulta BookSamp a la que se accederá.

Luego, usa el comando SQL SELECT para consultar los datos7. asp.

Luego, use el comando SQL SELECT para consultar la información de la base de datos. Configure el comando SQL para consultar la información de HospitalSchedule, emita el comando "Ejecutar" para iniciar la operación de acceso a la base de datos de consulta y almacenar la información. resultados de la consulta en el objeto RecordSets RS.

El código del programa es el siguiente:

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open "BookSamp", "sa "," "

SQL = "SELECT * FROM HospitalSchedule"

Establecer RS ​​= Conn.Execute(SQL)

El siguiente paso es mostrar la consulta resultados. Primero, utilice la consulta "IF RS.EOF THEN ..." para determinar si se encuentra HospitalSchedule. Si RS.EOF es VERDADERO, se muestra "No hay pacientes ambulatorios este mes".

El código del programa es el siguiente:

Resultado:

<% IF RS.EOF THEN %>

< FONT COLOR= "#FF0000"> "No hay clínica ambulatoria este mes"

Si se encuentra Si se encuentra la información de HospitalSchedule, se mostrará el departamento y el nombre del médico de la clínica ambulatoria a partir del lunes. a sábado. Esta información se obtiene de RecordSets respectivamente. Obtenido de RS (0), RS (1) ~ RS (6) del objeto.

RS.Fields.Count representa el número de campos en el objeto RecordSets. La información de cada campo en RS(i) se obtiene mediante "For i = 0 to RS.Fields.Count - 1". Utilice la sintaxis HTML de la tabla

para completar las columnas de la tabla.

Si hay una siguiente entrada, utilice RS.MoveNext para pasar a la siguiente entrada.

El código del programa es el siguiente:

<% ELSE %>

El horario ambulatorio de este mes es el siguiente:

<TD ALIGN=CENTER BGCOLOR="#800000"> Lunes

< TD ALIGN=CENTER BGCOLOR="#800000"> Miércoles

< ALIGN=CENTER BGCOLOR="#800000">Viernes& lt;/FONT>

<% Hacer mientras no RS.EOF %>

<% Para i = 0 a RS.Fields.Count - 1 %>

<% Si LEFT(RS(i).Name,1) = "W" Entonces %& gt;

<% Else %>

<% END IF %>

<% Siguiente %>

<%

RS.MoveNext

Bucle

RS.Close

Conn.%>

< /TABLE>

<% END IF %>

Finalmente, use RS.Close para cerrar RecordSet y Conn.Close para cerrar la biblioteca.

Todos los códigos del programa son los siguientes:

<CENTRO>

Sistema de consulta en línea de horarios para pacientes ambulatorios del hospital

<%

Establecer conexión = Server.CreateObject("ADODB.Connection")

Conexión. Abrir "BookSamp", "sa",""

SQL = "SELECT * FROM HospitalSchedule"

Establecer RS ​​= Conn.Execute(SQL)

%

---

Resultados de la consulta:

<% IF RS.EOF THEN %>

< FONT COLOR ="#FF0000">No hay clínicas ambulatorias este mes

<% ELSE %>

La clínica ambulatoria El cronograma de este mes es el siguiente:

FONT>

Sección	Martes	Jueves	Sábado
< END IF %>	<%= RS(i) %>< ;/FONT>

< .TD ALIGN=CENTER BGCOLOR="#800000" >Sección

<TD ALIGN=CENTER BGCOLOR="#800000">Lunes

< TD ALIGN =CENTER BGCOLOR="#800000">sábado

ONT>

<% Hacer mientras no RS.EOF %>

< TR>

<% Para i = 0 a RS.Fields.Count - 1 %>

<% Si LEFT(RS(i).TD ALIGN=CENTER BGCOLOR="#800000">

<%= RS(i) %>

<% END IF %>

<% Siguiente %>

<% Siguiente %>

<%

RS.MoveNext

<%

RS.MoveNextMoveNext

Bucle

RS.Close

Conn.MoveNext

Bucle

RS.Close

Conn.MoveNextEND IF %>

---

2

Sistema de citas hospitalarias online

"Online El "Sistema de Reservas de Hospitales" es un sistema al que se puede acceder a través de Internet.

El "Sistema de Reservas de Hospitales en Línea" es un sistema que puede completar el proceso de reserva de hospitales a través de Internet.

Los hospitales generales ofrecen una variedad de métodos de citas, como hacer cola, contestar el teléfono manualmente o usar el sistema de voz. Ahora pueden ofrecer métodos de citas más completos y vívidos.

A través de Internet, los pacientes pueden conectarse al hospital. "Sistema de registro de citas hospitalarias en línea", ingrese el número de historia clínica (o número de identificación) en la computadora, y luego ingrese el departamento, médico, fecha de la cita, horario de consulta de la mañana y de la tarde, etc., a realizar.

El sistema de registro le indicará que necesita programar una cantidad de citas y automáticamente cuenta la cantidad de citas para cada clínica, el sistema automáticamente le notificará y le pedirá que programe una cita en otro momento. /p>

Después de programar una cita, el sistema de citas brindará información adicional. La capacidad de cancelar y verificar citas.

El sistema también brinda acceso en línea a información como horarios de pacientes ambulatorios del hospital y perfiles de médicos. , información de medicamentos, información de salud, eventos hospitalarios y direcciones de hospitales.

El sistema de registro imprimirá automáticamente el formulario de registro diario para que los departamentos hospitalarios correspondientes preparen el formulario de registro médico. Ejemplo de diseño

Implementemos un ejemplo

(Ejemplo data12.asp Cita hospitalaria en línea

Para programar una cita hospitalaria en línea, utilice el navegador del cliente para navegar. a data12.asp (instalado en el servidor web que viene con este libro), y luego en el campo "Departamento" Seleccione un departamento (como medicina interna), luego ingrese el número de registro médico (como 123456) en el campo "Médico "Número de registro" y luego ingrese la fecha de la cita en el campo "Fecha de la cita". Después de ingresar el número de registro médico (como 123456) en "Número de registro médico" y la fecha del tratamiento (como 870701) en "Número de registro médico" y presionar el botón "Registro de cita", se mostrarán los siguientes resultados del registro de citas , incluyendo el número de historia clínica y la fecha del tratamiento, departamentos y secuencia del tratamiento:

Al programar una cita en el hospital, si la cita ya se ha programado, aparecerá el mensaje "el registro de la cita ha sido reservado". se mostrará al realizar una cita repetida para la misma consulta:

En Cuando el hospital realiza una cita para el registro, si hay más de 100 vacantes, se mostrará el mensaje "se ha reservado el registro de la cita" como sigue.

Cancelar una cita

Después de programar una cita en el hospital, puede cancelar la cita seleccionando el curso que desea cancelar (como el matrimonio) en "Cursos electivos" y en "Asignaturas" Seleccione el curso (por ejemplo, Neurología) e ingrese el número de registro médico (por ejemplo, 123456) en "Número de registro médico" y luego ingrese la fecha de la cita en "Fecha de cita". Después de ingresar la fecha del tratamiento (como 870701), presione el botón "Cancelar cita" y el resultado de la cancelación se mostrará de la siguiente manera:

Si la cita a cancelar aún no se ha reservado, la cancelación El resultado mostrará "Aún no reservado", de la siguiente manera:

Consulta de cita

Después de programar una cita en el hospital, puede ingresar el número de registro médico en el "Número de registro médico" apartado para consultar el número total de citas realizadas. Después de ingresar el número de registro médico (como 123456) en el cuadro "Número de registro médico", presione el botón "Consultar cita", los resultados de la consulta se mostrarán de la siguiente manera:

Al consultar citas, si no se ha concertado ninguna cita, los resultados de la consulta se mostrarán como "Aún no programado", los detalles son los siguientes:

Horario para pacientes ambulatorios

Haga clic en el botón "Horario para pacientes ambulatorios", el Los resultados de la consulta se mostrarán de la siguiente manera:

Horario para pacientes ambulatorios que se muestra a continuación

Ejemplo de diseño

Crear una tabla

Primero, usando Microsoft Access , Microsoft SQL Server, un archivo de texto o cualquier base de datos que admita ODBC, puede crear una La tabla HospitalCount se utiliza para almacenar el número de citas para una sola visita, el número de citas para una sola visita, el número de citas para una sola visita y el número de citas para una sola visita. Número de citas y secuencia de visitas finales.

Esta tabla se utiliza para registrar el número de personas registradas para una cita y el orden de la última visita al reservar y cancelar la cita. El propósito de crear los campos TOTAL, COUNT0, DATE0 y CLASS es representar el número de citas para una sola visita, el número de la última cita, la fecha de la cita y el nombre del departamento respectivamente. No es necesario ingresar esta información al crear la tabla de datos.

Utilice Microsoft Access para crear la tabla HospitalCount, como se muestra a continuación:

O utilice Microsoft SQL Server para crear la tabla HospitalCount, como se muestra a continuación:

O use un archivo de texto para crear la tabla HospitalCount, como se muestra a continuación:

O use un archivo de texto para crear la tabla HospitalCount, como se muestra a continuación:

Necesita crear otra tabla HospitalReserve para almacene registros de citas de registro, en las que ID Las columnas, COUNT0, DATE0 y CLASS representan respectivamente el número de registro médico, el número de orden del médico, la fecha de la cita y el nombre del departamento donde se registró la cita.

Esta tabla de información se utiliza para registrar el número de reservas y el orden de las reservas al realizar reservas, comprobar reservas y cancelar reservas.

No es necesario introducir datos al crear un formulario.

Utilice Microsoft Access para crear la tabla HospitalReserve, como se muestra a continuación:

O utilice Microsoft SQL Server para crear la tabla HospitalReserve, como se muestra a continuación:

O utilizar un archivo de texto para crear El formulario HospitalReserve es el siguiente:

Diseñar el formulario de entrada

Luego, diseñar el formulario de entrada Cuando el paciente selecciona el departamento CLASE1, ingresa a la historia clínica. número ID1, la fecha de tratamiento FECHA1 y hace clic en "Cita de registro" "Después de enviar el botón, los datos de entrada se transmitirán al servidor web a través de POST y se ejecutará el botón "Registro de reserva" en el servidor "HospitalReserve".

Los datos de entrada se enviarán al servidor web mediante POST y se ejecutarán en el archivo "formulario acción=..." data12.asp (el mismo archivo ASP que el formulario. El código del programa es el siguiente:

<). p>Cita de registro. Ingrese la siguiente información (para pacientes nuevos, use su número de identificación en lugar de su número de registro médico):

■ Sección:

Medicina Interna

Neurología

Pediatría

Cirugía

Obstetricia y Ginecología

<OPTION>Otorrinolaringología

< OPTION>Oftalmología

Dermatología

■ Número de registro médico (p. ej., 123456):

■ Fecha de tratamiento (como 870701 el 7 de enero de 1987 ):

Simplemente ingrese el número de registro médico

Presione Después de hacer clic en el botón "Programación para pacientes ambulatorios", se ejecutará data7.asp para mostrar el programa para pacientes ambulatorios.

El servidor web ejecuta el archivo data12.asp y primero obtiene el VALOR del texto que se muestra cuando se presiona el botón enviar a través de Request.Form("Action"). ),2) solo obtiene los dos primeros textos, si Request.Form("Action"),2 solo obtiene los dos primeros textos, Request.Form("Action"),2 solo obtiene los dos primeros textos. Left(Request.Form("Action"),2) significa obtener solo los dos primeros textos, Request.Form("Action"),2) significa obtener solo los dos primeros textos, Request.Form("Action") ,2 ) significa no recibir los dos primeros textos. El formulario ("Acción") no está en blanco, lo que significa que la entrada del formulario se llama ejecución.

Utilice "SELECT CASE Left (Request.Form("Action"),2)" para determinar si el botón está presionado. Si las dos primeras palabras del botón son "Reservar", se ejecuta la subrutina AddReserve(); si es "Cancelar", se ejecuta la subrutina DeleteReserve(); si es "Consulta", se ejecuta la subrutina CheckReserve(); .

<%

SELECCIONAR CASO Left(Request.Form("Action"),2)

CASO "Cita"

AgregarReserva ()

CASO "Cancelar"

EliminarReserva()

CASO "Verificar"

VerificarReserva()

END SELECT

%>

Reserva

Después de presionar el botón "Reserva", se ejecutará la subrutina AddReserve().

Primero, use "Server.CreateObject" para crear un objeto de conexión y use "Abrir" para abrir la base de datos de consultas BookSamp a la que se accederá.

Luego, busque el registro de reserva que se agregará, verifique si se ha reservado y use el comando SELECT SQL para consultar la información de la base de datos en la tabla HospitalReserve y configure la consulta del comando SQL con la entrada Request .Form("ID1", "ID2", "ID3", "ID4", "ID5", "ID6", "ID7", "ID8", "ID9", "ID9", "ID9", "ID9" , "ID9", " ID9", "ID9", "ID9", "ID9", "ID9Form("ID1"), el campo de fecha de tratamiento médico DATE0 que coincide con la entrada Request.Form("DATE1") y el campo seleccionado Request.Form("" ) campo de departamento coincidente CLASE.

El código del programa es el siguiente:

Sub AddReserve()

Set Conn = Server.CreateObject("ADODB.Connection")

Conn .Open "BookSamp", "sa",""

SQL = "SELECT * FROM HospitalReserve WHERE ID = '" & Request.Form("ID1") & "' AND DATE0 = ' " & Solicitud .Form("DATE1") & "' AND CLASS = '" & LEFT(Request.Form("CLASS1"),2) & "'"

Establecer RS ​​= Conn.Execute( SQL)

A continuación, es hora de mostrar los resultados de la ejecución.

Primero, en la tabla ReservaHospital, busque el registro de cita registrado a través de "SI RS.EOF ENTONCES...". EOF ENTONCES ... "para determinar si la ID en el campo del número de registro médico es consistente con la solicitud de entrada del formulario ("ID1"), si la FECHA0 en el campo de fecha de la cita es consistente con la solicitud de entrada del formulario ("FECHA1 ") y el campo del departamento Si la CLASE es consistente con el formulario de solicitud seleccionado ("CLASS1")

Si RS.EOF es "verdadero", significa que no se ha realizado ninguna reserva, por lo que puede saber si se ha realizado la reserva a realizar. Continuar. En la tabla HospitalCount, configure el comando SQL para consultar la fecha de visita DATE0 que coincide con la entrada Request.Form("DATE1") y el departamento CLASS que coincide. el Request.Form seleccionado ("CLASS1"). EOF es "verdadero", lo que indica que nadie ha programado una cita para esta visita, luego use el comando "INSERT INTO..." para agregar una nueva entrada en la tabla HospitalCount. El número de citas en el campo TOTAL en los nuevos datos se establece en 1, y el ÚLTIMO ORDEN DE VISITA se establece en COUNT0 en el campo NÚMERO, la CLASE en el campo CLASE se establece en Solicitud.Form("CLASS1") y FECHA0. en el campo FECHA se establece en Request.Form("DATE1")

Luego, en la tabla HospitalReserve, use el comando "INSERT INTO..." para agregar una nueva entrada. la entrada es 1, el campo ID del número de registro médico es Request.Form("ID1"), el campo CLASS del departamento es Request.Form("CLASS1") y la fecha es DATE0 El campo es Request.Form("DATE1" ).

Muestre los resultados de la ejecución y utilice la sintaxis HTML del formulario

Miércoles

Viernes

para completar los resultados en cada campo del formulario.

El código del programa es el siguiente:

Resultados del registro de citas:

<%

SI RS. EOF ENTONCES

RS.Close

SQL = " SELECT * FROM HospitalCount WHERE DATE0 = '" & Request.Form("DATE1") & "' AND CLASS = ' " & IZQUIERDA (Request.Form("CLASS1"),2) & "'"

Establecer RS ​​= Conn.Execute(SQL)

IF RS.EOF THEN

'¡Aún no se ha reservado a nadie para esta sesión! Agregar una nueva cita en HospitalCount

SQL = "INSERT INTO HospitalCount(COUNT0, TOTAL, DATE0, CLASS) VALUES(1,1,'" & Request.Form("DATE1") & "' ,' " & IZQUIERDA(Request.Form("CLASS1"),2) & "')"

Establecer RS ​​= Conn.Exec(SQL)

上篇: ¿Cuánto tiempo lleva aprender a programar plc? 下篇: Grandes películas animadas de Disney

Artículos populares

• ¿Cómo llegar a Dungeon Warrior?
• Versión móvil de esposa demasiado inmadura
• ¿Cómo comprobar la fecha de la foto tomada con el teléfono móvil?
• ¿Cuál es el último dígito más próspero del número de teléfono móvil de una niña? ¿Cuál es el último dígito de 6 dígitos más próspero del número de teléfono móvil de una niña?
• ¿Es confiable el certificado de calificación de Tianjin Zhiyou Network Technology Co., Ltd. para la formación de maestros de jardín de infantes?