<%@ LANGUAGE = "VBScript" %>
SISTEMA EXPERTO
<%
IF LEN(TRIM(request.querystring("NOMBREPACIENTEINTRODUCIDO")))=0 OR LEN(TRIM(request.querystring("PRIMERAPELLIDOPACIENTEINTRODUCIDO")))=0 OR LEN(TRIM(request.querystring("SEGUNDOAPELLIDOPACIENTEINTRODUCIDO")))=0 THEN
Response.write "
POR FAVOR INTRODUZCA TODOS LOS DATOS REQUERIDOS
"
ELSE
' ********* RECUPERACION DE LAS VARIABLES
DNIENVIADOYRECIBIDO = TRIM(request.querystring("DNIPACIENTEINTRODUCIDO"))
NOMBRE_CLIENTEENVIADOYRECIBIDO = TRIM(request.querystring("NOMBREPACIENTEINTRODUCIDO"))
PRIMER_APELLIDO_CLIENTEENVIADOYRECIBIDO = TRIM(request.querystring("PRIMERAPELLIDOPACIENTEINTRODUCIDO"))
SEGUNDO_APELLIDO_CLIENTEENVIADOYRECIBIDO = TRIM(request.querystring("SEGUNDOAPELLIDOPACIENTEINTRODUCIDO"))
NOMBRE_CLIENTEENVIADOYRECIBIDO = UCASE(NOMBRE_CLIENTEENVIADOYRECIBIDO)
PRIMER_APELLIDO_CLIENTEENVIADOYRECIBIDO = UCASE(PRIMER_APELLIDO_CLIENTEENVIADOYRECIBIDO)
SEGUNDO_APELLIDO_CLIENTEENVIADOYRECIBIDO = UCASE(SEGUNDO_APELLIDO_CLIENTEENVIADOYRECIBIDO)
'**** Abre la conexion
Const AdopenKeyset = 1
Const adLockOptimistic = 3
'**** DAR ALTA AL NUEVO PACIENTE EN LA TABLA "CLIENTE"
Set rs1 = CreateObject("ADODB.Recordset")
rs1.CursorType = AdopenKeyset
rs1.LockType = adLockOptimistic
rs1.Open "cliente", "DSN=SEX"
rs1.addnew
rs1("DNI") = DNIENVIADOYRECIBIDO
rs1("NOMBRE_CLIENTE") = NOMBRE_CLIENTEENVIADOYRECIBIDO
rs1("PRIMER_APELLIDO_CLIENTE") = PRIMER_APELLIDO_CLIENTEENVIADOYRECIBIDO
rs1("SEGUNDO_APELLIDO_CLIENTE") = SEGUNDO_APELLIDO_CLIENTEENVIADOYRECIBIDO
rs1.update
rs1.close
Response.write "
"
' ************** BUSQUEDA DEL "NUMERO_HISTORIA_CLINICA" DEL NUEVO PACIENTE
SQL = "SELECT NUMERO_HISTORIA_CLINICA FROM CLIENTE WHERE DNI LIKE '" + TRIM(request.querystring("DNIPACIENTEINTRODUCIDO")) + "'"
Set rs1 = CreateObject("ADODB.Recordset")
rs1.CursorType = AdopenKeyset
rs1.LockType = adLockOptimistic
rs1.Open SQL, "DSN=SEX"
NUMERO_HISTORIA_CLINICA_CLIENTE_NUEVO = rs1.fields(0)
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") = NUMERO_HISTORIA_CLINICA_CLIENTE_NUEVO
rs1("FECHA_INGRESO") = CSTR(NOW)
rs1.update
rs1.close
' ************** BUSUQEDA DEL "IDENTIFICADOR_HISTORIA" DE LA HISTORIA ACTUAL
SQL = "SELECT IDENTIFICADOR_HISTORIA FROM HISTORIA_CLINICA WHERE NUMERO_HISTORIA_CLINICA = " + trim(CSTR(NUMERO_HISTORIA_CLINICA_CLIENTE_NUEVO))
Set rs1 = CreateObject("ADODB.Recordset")
rs1.CursorType = AdopenKeyset
rs1.LockType = adLockOptimistic
rs1.Open SQL, "DSN=SEX"
DIM IDENTIFICADOR_HISTORIA_ACTUAL
IDENTIFICADOR_HISTORIA_ACTUAL = rs1.fields(0)
IF RS1.EOF = TRUE THEN
RESPONSE.WRITE "NO SE PUDO CREAR UNA NUEVA HISTORIA CLINICA"
END IF
IDENTIFICADOR_HISTORIA_ACTUAL = rs1.fields(0)
rs1.close
session("HISTORIA_ACTUAL") = IDENTIFICADOR_HISTORIA_ACTUAL
session("dnicliente") = TRIM(request.querystring("DNIPACIENTEINTRODUCIDO"))
session("CLIENTE") = TRIM(CSTR(NUMERO_HISTORIA_CLINICA_CLIENTE_NUEVO))
END IF
%>
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
