<%@ LANGUAGE = "VBScript" %> SISTEMA EXPERTO <% PRUEBAENVIADA = REQUEST.QUERYSTRING("PRUEBAMANDADA") identificador_historia_actual = SESSION("historia_actual") if LEN(identificador_historia_actual) = 0 then response.write "



POR FAVOR SELECCIONE UN PREVIAMENTE UN PACIENTE
" ELSE response.write "

CONFIRMACION DE LA INTRODUCCION DE LOS RESULTADOS DE LAS PRUEBAS

" Response.write "
Se han introducido la prueba de '" + PRUEBAENVIADA + "':
" '**** Abre la conexion Const AdopenKeyset = 1 Const adLockOptimistic = 3 '**** RECORDSET CON TODOS LOS NOMBRES DE LAS SUBPRUEBAS DE LA PRUEBA ELEGIDA SQL= "SELECT DISTINCT NOMBRE_SUBPRUEBA FROM SUBPRUEBA " SQL = SQL + " WHERE NOMBRE_PRUEBA like '" + PRUEBAENVIADA + "'" Set RSSUBPRUEBAS = CreateObject("ADODB.Recordset") RSSUBPRUEBAS.CursorType = AdopenKeyset RSSUBPRUEBAS.LockType = adLockOptimistic RSSUBPRUEBAS.Open SQL, "DSN=SEX" DIM NUMEROSUBPRUEBASRELLENADAS NUMEROSUBPRUEBASRELLENADAS = RSSUBPRUEBAS.RECORDCOUNT RSSUBPRUEBAS.MOVEFIRST Response.write "
" FOR I=0 TO NUMEROSUBPRUEBASRELLENADAS - 1 IF CINT(REQUEST.QUERYSTRING(CSTR(I))) > 0 THEN '**** BUSQUEDA DE LOS IDENTIFICADORES DE CADA RESULTADO DE PRUEBA A ALMACENAR SQL= "SELECT RESULTADO.IDENTIFICADOR_RESULTADO FROM SUBPRUEBA INNER JOIN " SQL = SQL + " RESULTADO ON SUBPRUEBA.IDENTIFICADOR_SUBPRUEBA = RESULTADO.IDENTIFICADOR_SUBPRUEBA " SQL = SQL + " where SUBPRUEBA.NOMBRE_PRUEBA like '" + PRUEBAENVIADA + "' " SQL = SQL + " AND SUBPRUEBA.NOMBRE_SUBPRUEBA like '" + RSSUBPRUEBAS.FIELDS(0) + "' AND " SQL = SQL + " RESULTADO.VALOR_RESULTADO = " + REQUEST.QUERYSTRING(CSTR(I)) Set rs1 = CreateObject("ADODB.Recordset") rs1.CursorType = AdopenKeyset rs1.LockType = adLockOptimistic rs1.Open SQL, "DSN=SEX" IF RS1.EOF = FALSE THEN '**** COMPROBACION DE SI ESOS RESULTADOS YA ESTABAN REGISTRADOS SQL= "SELECT IDENTIFICADOR_RESULTADO, IDENTIFICADOR_HISTORIA FROM HISTORIA_RESULTADO where IDENTIFICADOR_HISTORIA = " + CSTR(identificador_historia_actual) SQL = SQL + " AND IDENTIFICADOR_RESULTADO = " + CSTR(rs1.fields(0)) 'RESPONSE.WRITE SQL + "
" Set rs2 = CreateObject("ADODB.Recordset") rs2.CursorType = AdopenKeyset rs2.LockType = adLockOptimistic rs2.Open SQL, "DSN=SEX" IF RS2.EOF = TRUE THEN '**** SI ESTOS RESULTADOS NO ESTABAN SELECT CASE REQUEST.QUERYSTRING(CSTR(I)) CASE 1: rs2.addnew rs2("IDENTIFICADOR_HISTORIA") = identificador_historia_actual rs2("IDENTIFICADOR_RESULTADO") = CSTR(rs1.fields(0)) rs2.update Response.write "" Response.write "" CASE 2: rs2.addnew rs2("IDENTIFICADOR_HISTORIA") = identificador_historia_actual rs2("IDENTIFICADOR_RESULTADO") = CSTR(rs1.fields(0)) rs2.update Response.write "" Response.write "" CASE 3: rs2.addnew rs2("IDENTIFICADOR_HISTORIA") = identificador_historia_actual rs2("IDENTIFICADOR_RESULTADO") = CSTR(rs1.fields(0)) rs2.update Response.write "" Response.write "" CASE 4: rs2.addnew rs2("IDENTIFICADOR_HISTORIA") = identificador_historia_actual rs2("IDENTIFICADOR_RESULTADO") = CSTR(rs1.fields(0)) rs2.update Response.write "" Response.write "" CASE 5: rs2.addnew rs2("IDENTIFICADOR_HISTORIA") = identificador_historia_actual rs2("IDENTIFICADOR_RESULTADO") = CSTR(rs1.fields(0)) rs2.update Response.write "" Response.write "" END SELECT ELSE '**** YA ESTABA ESTA PRUEBA Response.write "" SELECT CASE REQUEST.QUERYSTRING(CSTR(I)) CASE 1: Response.write "" CASE 2: Response.write "" CASE 3: Response.write "" CASE 4: Response.write "" CASE 5: Response.write "" END SELECT END IF rs2.close END IF RS1.CLOSE END IF RSSUBPRUEBAS.MOVENEXT NEXT RSSUBPRUEBAS.CLOSE Response.write "
" + RSSUBPRUEBAS.FIELDS(0) + "NEGATIVO
" + RSSUBPRUEBAS.FIELDS(0) + "POSITIVO
" + RSSUBPRUEBAS.FIELDS(0) + "BAJO
" + RSSUBPRUEBAS.FIELDS(0) + "NORMAL
" + RSSUBPRUEBAS.FIELDS(0) + "ALTO
" + RSSUBPRUEBAS.FIELDS(0) + "NEGATIVO
POSITIVO
BAJO
NORMAL
ALTO
" 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  >  MConfirmacionIntroduccionpruebas.asp