<%@ LANGUAGE = "VBScript" %> SISTEMA EXPERTO
<% IDENTIFICADOR_HISTORIA_ACTUAL = session("HISTORIA_ACTUAL") DNIPACIENTE = session("dnicliente") NHISTORIACLINICACLIENTE = session("cliente") 'response.write "La historia actual es :" + cstr(IDENTIFICADOR_HISTORIA_ACTUAL) + "
" 'response.write "El dni del paciente actual es :" + cstr(DNIPACIENTE) + "
" 'response.write "El numero de la historia actual es :" + cstr(NHISTORIACLINICACLIENTE) + "
" if len(IDENTIFICADOR_HISTORIA_ACTUAL) = 0 then Response.write "SISTEMA EXPERTO-ATENCIÓN PRIMARIA MÉDICA

" Response.write "


Por favor elija previamente un paciente y un caso.
" else '**** PREPARANDO BUSQUEDA Const AdopenKeyset = 1 Const adLockOptimistic = 3 RESPONSE.WRITE "SISTEMA EXPERTO-ATENCIÓN PRIMARIA MÉDICA
" RESPONSE.WRITE "DATOS DE LA VISITA A FECHA " + CSTR(DATE) RESPONSE.WRITE "
" '**** Buscar datos personales del paciente SQL = "SELECT DNI, NOMBRE_CLIENTE, PRIMER_APELLIDO_CLIENTE, SEGUNDO_APELLIDO_CLIENTE FROM CLIENTE " SQL = SQL + "WHERE NUMERO_HISTORIA_CLINICA = " + CSTR(NHISTORIACLINICACLIENTE) Set rs1 = CreateObject("ADODB.Recordset") rs1.CursorType = AdopenKeyset rs1.LockType = adLockOptimistic rs1.Open SQL, "DSN=SEX" IF RS1.EOF = TRUE THEN RESPONSE.WRITE "ERROR AL ENCONTRAR AL PACIENTE" END IF RESPONSE.WRITE "
" RESPONSE.WRITE "" RESPONSE.WRITE "" RESPONSE.WRITE "" RESPONSE.WRITE "" RESPONSE.WRITE "" RESPONSE.WRITE "
Numero de caso:" + cstr(IDENTIFICADOR_HISTORIA_ACTUAL) + "
D.N.I.:" + RS1.FIELDS(0) + "
Nombre:" + RS1.FIELDS(1) + "
Primer apellido:" + RS1.FIELDS(2) + "
Segundo apellido:" + RS1.FIELDS(3) + "

" rs1.close Response.write "

Los sintomas presentados en el paciente son los siguientes:
" ' ********** CONSTRUYENDO LA SENTENCIA DE CONSULTA DE TODOS LOS SINTOMAS DEL CASO SQL= "SELECT DISTINCT nombre_sintoma FROM historia_sintoma" SQL = SQL + " WHERE IDENTIFICADOR_HISTORIA = " + cstr(IDENTIFICADOR_HISTORIA_ACTUAL) SQL = SQL + " ORDER BY nombre_sintoma ASC" Set rs1 = CreateObject("ADODB.Recordset") rs1.CursorType = AdopenKeyset rs1.LockType = adLockOptimistic rs1.Open SQL, "DSN=SEX" if rs1.eof = FALSE then Response.Write "" else Response.write "

No hay almacenado ningun síntoma para este caso
" end if rs1.close Response.write "

Los resultados de las pruebas realizadas son los siguientes:
" ' ********** CONSTRUYENDO LA SENTENCIA DE CONSULTA DE TODOS LOS SINTOMAS DEL CASO SQL= "SELECT SUBPRUEBA.NOMBRE_PRUEBA, SUBPRUEBA.NOMBRE_SUBPRUEBA, RESULTADO.VALOR_RESULTADO" SQL = SQL + " FROM SUBPRUEBA INNER JOIN (RESULTADO INNER JOIN HISTORIA_RESULTADO ON RESULTADO.IDENTIFICADOR_RESULTADO = HISTORIA_RESULTADO.IDENTIFICADOR_RESULTADO) ON SUBPRUEBA.IDENTIFICADOR_SUBPRUEBA = RESULTADO.IDENTIFICADOR_SUBPRUEBA" SQL = SQL + " WHERE HISTORIA_RESULTADO.IDENTIFICADOR_HISTORIA = " + cstr(IDENTIFICADOR_HISTORIA_ACTUAL) SQL = SQL + " ORDER BY SUBPRUEBA.NOMBRE_PRUEBA ASC, SUBPRUEBA.NOMBRE_SUBPRUEBA ASC" Set rs1 = CreateObject("ADODB.Recordset") rs1.CursorType = AdopenKeyset rs1.LockType = adLockOptimistic rs1.Open SQL, "DSN=SEX" if rs1.eof = FALSE then Response.write "
" Response.write "" while rs1.EOF = false Response.write "" SELECT CASE rs1.Fields(2) CASE 1: Response.write "" CASE 2: Response.write "" CASE 3: Response.write "" CASE 4: Response.write "" CASE 5: Response.write "" END SELECT rs1.MoveNext wend Response.write "
PRUEBA
APARTADO DE LA PRUEBA
VALOR
" + rs1.Fields(0) + "" + rs1.Fields(1) + "NEGATIVO
POSITIVO
BAJO
NORMAL
ALTO
" else Response.write "

No hay almacenado ninguna prueba realizada al paciente
" end if rs1.close ' ********** buscando el diagnostico de la visita SQL= "SELECT NOMBRE_PATOLOGIA FROM HISTORIA_PATOLOGIA " SQL = SQL + " WHERE IDENTIFICADOR_HISTORIA = " + CSTR(IDENTIFICADOR_HISTORIA_ACTUAL) 'Set rs1 = CreateObject("ADODB.Recordset") 'rs1.CursorType = AdopenKeyset 'rs1.LockType = adLockOptimistic rs1.Open SQL, "DSN=SEX" if rs1.eof = FALSE then Response.write "

La patología diagnosticada fue '" + rs1.fields(0) + "'." end if rs1.close end if %> e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.


SISTEMA EXPERTO APLICADO A LA ATENCIÓN PRIMARIA MÉDICA. AYUDA AL DIAGNÓSTICO

: Calle Suarez, Marcos
: Ingeniería Organización
Contenido del proyecto:
Directorio raíz  >  Codigo  >  MMostrarHistoria.asp