SISTEMA EXPERTO
<%
VISITA = request.querystring("VISITASELECCIONADA")
session("HISTORIA_ACTUAL") = request.querystring("VISITASELECCIONADA")
NHISTORIACLINICACLIENTE = session("cliente")
'Response.write "EL NUMERO DE HISTORIA PERSONAL DEL PACIENTE ES =" + CSTR(NHISTORIACLINICACLIENTE) + " "
'Response.write "EL NUMERO DE CASO (IDENTIFICADOR_HISTORIA) A SEGUIR ES =" + VISITA + " "
'**** Abre la conexion
Const AdopenKeyset = 1
Const adLockOptimistic = 3
IF IsEmpty(request.querystring("VISITASELECCIONADA")) = TRUE THEN
Response.write "
Por favor seleccione una visita para continuarla.
"
DIM INICIALIZARVARIABLE
session("cliente")=INICIALIZARVARIABLE
ELSE
IF clng(VISITA) = -1 THEN
' ************** CREA UNA NUEVA HISTORIA_CLINICA
Set rs1 = CreateObject("ADODB.Recordset")
rs1.CursorType = AdopenKeyset
rs1.LockType = adLockOptimistic
rs1.Open "HISTORIA_CLINICA", "DSN=SEX"
rs1.addnew
rs1("NUMERO_HISTORIA_CLINICA") = CLNG(NHISTORIACLINICACLIENTE)
FECHA_HORA_ACTUAL = CSTR(NOW)
rs1("FECHA_INGRESO") = FECHA_HORA_ACTUAL
rs1.update
rs1.close
' ************** BUSUQEDA DEL "IDENTIFICADOR_HISTORIA" DE LA HISTORIA ACTUAL
SQL = "SELECT IDENTIFICADOR_HISTORIA FROM HISTORIA_CLINICA WHERE NUMERO_HISTORIA_CLINICA = " + CSTR(NHISTORIACLINICACLIENTE) + " AND FECHA_INGRESO LIKE '" + FECHA_HORA_ACTUAL + "'"
Set rs1 = CreateObject("ADODB.Recordset")
rs1.CursorType = AdopenKeyset
rs1.LockType = adLockOptimistic
rs1.Open SQL, "DSN=SEX"
IF RS1.EOF = TRUE THEN
RESPONSE.WRITE "NO SE PUDO CREAR UNA NUEVA HISTORIA CLINICA"
ELSE
IDENTIFICADOR_HISTORIA_ACTUAL = rs1.fields(0)
END IF
rs1.close
session("HISTORIA_ACTUAL") = IDENTIFICADOR_HISTORIA_ACTUAL
Response.write "
SE HA ESTABLECIDO CORRECTAMENTE LA VISITA REQUERIDA
"
ELSE
'RESPONSE.WRITE CSTR(HISTORIA_PADRE) + " "
' ************** MODIFICAR LA HISTORIA SELECCIONADA Y PONERLA COMO QUE ES "VISITA PADRE"
SQL = "SELECT VISITA_PADRE FROM HISTORIA_CLINICA WHERE IDENTIFICADOR_HISTORIA = " + CSTR(VISITA)
Set rs1 = CreateObject("ADODB.Recordset")
rs1.CursorType = AdopenKeyset
rs1.LockType = adLockOptimistic
rs1.Open SQL, "DSN=SEX"
IF RS1.EOF = TRUE THEN
RESPONSE.WRITE "ERROR NO SE PUDO ENCONTRAR LA VISITA ANTERIOR"
ELSE
rs1.fields(0) = TRUE
rs1.UPDATE
END IF
rs1.close
' ************** CREA UNA NUEVA HISTORIA_CLINICA
Set rs1 = CreateObject("ADODB.Recordset")
rs1.CursorType = AdopenKeyset
rs1.LockType = adLockOptimistic
rs1.Open "HISTORIA_CLINICA", "DSN=SEX"
rs1.addnew
rs1("NUMERO_HISTORIA_CLINICA") = CLNG(NHISTORIACLINICACLIENTE)
FECHA_HORA_ACTUAL = CSTR(NOW)
rs1("FECHA_INGRESO") = FECHA_HORA_ACTUAL
rs1("IDENTIFICADOR_HISTORIA_PADRE") = CLNG(VISITA)
rs1.update
rs1.close
'response.write "la visita que se va a continuar es:" + cstr(VISITA) + " "
'response.write "el numero de identificacion personal del paciente es:" + cstr(NHISTORIACLINICACLIENTE) + " "
' ************** BUSUQEDA DEL "IDENTIFICADOR_HISTORIA" DE LA HISTORIA ACTUAL
SQL = "SELECT IDENTIFICADOR_HISTORIA FROM HISTORIA_CLINICA WHERE NUMERO_HISTORIA_CLINICA = " + CSTR(NHISTORIACLINICACLIENTE) + " AND FECHA_INGRESO LIKE '" + FECHA_HORA_ACTUAL + "'"
Set rs1 = CreateObject("ADODB.Recordset")
rs1.CursorType = AdopenKeyset
rs1.LockType = adLockOptimistic
rs1.Open SQL, "DSN=SEX"
IDENTIFICADOR_HISTORIA_ACTUAL = rs1.fields(0)
rs1.close
session("HISTORIA_ACTUAL") = IDENTIFICADOR_HISTORIA_ACTUAL
'RESPONSE.WRITE " LA NUEVA VISITA ES:" + CSTR(IDENTIFICADOR_HISTORIA_ACTUAL) + " "
' ************** COPIA DE SINTOMAS
SQL = "SELECT NOMBRE_SINTOMA FROM HISTORIA_SINTOMA WHERE IDENTIFICADOR_HISTORIA = " + CSTR(VISITA)
'RESPONSE.WRITE " " + SQL + " "
Set rs1 = CreateObject("ADODB.Recordset")
rs1.CursorType = AdopenKeyset
rs1.LockType = adLockOptimistic
rs1.Open SQL, "DSN=SEX"
Set rs2 = CreateObject("ADODB.Recordset")
rs2.CursorType = AdopenKeyset
rs2.LockType = adLockOptimistic
rs2.Open "HISTORIA_SINTOMA", "DSN=SEX"
WHILE RS1.EOF = FALSE
rs2.addnew
rs2("IDENTIFICADOR_HISTORIA") = IDENTIFICADOR_HISTORIA_ACTUAL
rs2("NOMBRE_SINTOMA") = rs1.FIELDS(0)
rs2.update
rs1.movenext
WEND
rs2.close
rs1.close
' ************** COPIA DE RESULTADOS DE LAS PRUEBAS
SQL = "SELECT IDENTIFICADOR_RESULTADO FROM HISTORIA_RESULTADO WHERE IDENTIFICADOR_HISTORIA = " + CSTR(VISITA)
'RESPONSE.WRITE " " + SQL + " "
Set rs1 = CreateObject("ADODB.Recordset")
rs1.CursorType = AdopenKeyset
rs1.LockType = adLockOptimistic
rs1.Open SQL, "DSN=SEX"
Set rs2 = CreateObject("ADODB.Recordset")
rs2.CursorType = AdopenKeyset
rs2.LockType = adLockOptimistic
rs2.Open "HISTORIA_RESULTADO", "DSN=SEX"
WHILE RS1.EOF = FALSE
rs2.addnew
rs2("IDENTIFICADOR_HISTORIA") = IDENTIFICADOR_HISTORIA_ACTUAL
rs2("IDENTIFICADOR_RESULTADO") = rs1.FIELDS(0)
rs2.update
rs1.movenext
WEND
rs2.close
rs1.close
Response.write "
SE HA ESTABLECIDO CORRECTAMENTE LA VISITA REQUERIDA
"
END IF
END IF
%>
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.