<%@ LANGUAGE = "VBScript" %>
SISTEMA EXPERTO
SISTEMA EXPERTO-ATENCIÓN PRIMARIA MÉDICA
DESHACER APRENDIZAJE. CASO ACTUAL
<%
NHISTORIACLINICACLIENTE = session("cliente")
Historia_Actual=cstr(Session("Historia_Actual"))
if len(Historia_Actual) = 0 then
Response.write "
Por favor elija previamente un paciente y un caso.
"
else
'***********COMPRUEBO SI EL CASO ACTUAL TIENE HABILITADO EL DESAPRENDIZAJE
Const AdopenKeyset = 1
Const adLockOptimistic = 3
SQL5= "SELECT NOMBRE_PATOLOGIA, DESAPRENDER_HABILITADO FROM HISTORIA_PATOLOGIA where IDENTIFICADOR_HISTORIA = " + Historia_Actual
Set rs5 = CreateObject("ADODB.Recordset")
rs5.CursorType = AdopenKeyset
rs5.LockType = adLockOptimistic
rs5.Open SQL5, "DSN=SEX"
IF RS5.EOF=TRUE THEN
Response.write "
Este caso no ha sido diagnosticado aún.
"
rs5.CLOSE
ELSE
IF RS5.FIELDS(1)=FALSE THEN
Response.write "
Este caso ya ha sido desaprendido.
"
rs5.CLOSE
ELSE
rs5.CLOSE
Response.write ""
'***************ASIGNO UNA VARIABLE AL Nº DE HISTORIA ACTUAL**********
dim Historia_Actual
dim NS
Historia_Actual=cstr(Session("Historia_Actual"))
Response.write "
"
'***********SELECCIONO LA PATOLOGÍA A LA QUE CORRESPONDE DICHO Nº DE HISTORIA
SQL1= "SELECT nombre_patologia FROM HISTORIA_PATOLOGIA where IDENTIFICADOR_HISTORIA = " & Historia_Actual
Set rs1 = CreateObject("ADODB.Recordset")
rs1.CursorType = AdopenKeyset
rs1.LockType = adLockOptimistic
rs1.Open SQL1, "DSN=SEX"
Response.write "El sistema deshará el aprendizaje aportado para la Patología "
Response.write "" & rs1.fields(0) & ""
Response.write " , en relación a los síntomas:"
'***********SELECCIONO LOS SÍNTOMAS DE LA HISTORIA ACTUAL***********
SQL2= "SELECT * FROM HISTORIA_SINTOMA where IDENTIFICADOR_HISTORIA = " & Historia_Actual
Set rs2 = CreateObject("ADODB.Recordset")
rs2.CursorType = AdopenKeyset
rs2.LockType = adLockOptimistic
rs2.Open SQL2, "DSN=SEX"
NS=rs2.recordcount
rs2.movefirst
Response.write "
"
Do until rs2.EOF
Response.write "
" & rs2.fields(1) & "
"
rs2.movenext
Loop
Response.write "
"
dim x
rs2.movefirst
SQL3= "SELECT * FROM diagnostico_HISTORICO where nombre_patologia like '"& RS1.FIELDS(0) &"'"
SQL3=SQL3 + " AND nombre_sintoma IN ('"
FOR x = 0 TO NS - 1
SQL3 = SQL3 + rs2.fields(1)
IF x < NS - 1 THEN
SQL3 = SQL3 + "','"
END IF
rs2.movenext
NEXT
SQL3 = SQL3 + "')"
Set rs3 = CreateObject("ADODB.Recordset")
rs3.CursorType = AdopenKeyset
rs3.LockType = adLockOptimistic
rs3.Open SQL3, "DSN=SEX"
'CODIGO PARA QUE EL SISTEMA DESHAGA EL APRENDIZAJE DE ALGUNA DE LAS VISITAS ANTERIORES
'ESTO NO QUIERE DECIR QUE EL SISTEMA BORRE LOS DATOS RELATIVOS A ESE CASO. SIMPLEMENTE
'RESTA EN UNA UNIDAD EL CONTADOR DE ESA PATOLOGÍA Y LOS SÍNTOMAS QUE EL PACIENTE PRESENTÓ
rs3.movefirst
DIM u
for u=0 to rs3.recordcount-1 or rs3.Eof
if rs3.fields(2)>1 then
rs3.fields(2)=rs3.fields(2)-1
rs3.update
rs3.movenext
end if
next
rs1.close
rs2.close
rs3.close
'CODIGO PARA QUE EL SISTEMA DESHABILITE EL APRENDIZAJE SOBRE ESTE CASO
SQL5= "SELECT DESAPRENDER_HABILITADO FROM HISTORIA_PATOLOGIA where IDENTIFICADOR_HISTORIA = " + Historia_Actual
Set rs5 = CreateObject("ADODB.Recordset")
rs5.CursorType = AdopenKeyset
rs5.LockType = adLockOptimistic
rs5.Open SQL5, "DSN=SEX"
rs5.fields(0)=false
rs5.update
rs5.close
Response.write "
"
response.write "El sistema ha rectificado el anterior aprendizaje"
END IF
END IF
END IF
%>
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
