Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá a todos, olha eu aqui de novo com problemas de lógica ...rs
Tenho um banco de dados com 3 tabelas:
PACIENTES - com dados do pacienteSITUACOES - com os campos tipo e estado entre outros
EXAMES - com os campos tipo e exame entre outros
na pagina 01.asp faço uma busca de todos os pacientes internados e após a escolha do paciente direciono para a pagina 02.asp
onde volto a buscar todos os dados do paciente na tabela PACIENTES e onde devo verificar algumas condições, como:
a condição do paciente na tabela SITUACOES, se seu estado de saúde é estável ou instável e se o seu estado emocional é estável ou instável.
ex>:
>
tipo(saude) - estado(estável)tipo(psicologico) - estado(estável)
verifico tambem as condições na tabela de EXAMES e verificar se os campos tipo e exame estão ok.
ex>:
>
tipo(sangue) - exame(ok)tipo(raio-x) - exame(ok)
tipo(ultrasom) - exame(ok)
Se tudo estiver positivo nas duas tabelas o paciente recebe alta, senão continua internado.
será que vocês poderiam me ajudar?
obrigada!
segue as duas paginas abaixo:
pagina 01.asp
>
<%@LANGUAGE="VBSCRIPT" codepage="65001"%> <!--#include file="conn/conectdbpostgre.asp"-->
<%
SQL = "SELECT * FROM pacientes;"
set seleciona = db.execute(SQL)
if not seleciona.eof then
on error resume next
seleciona.movefirst %>
<html>
<body>
<form name="Pacientes" action="02.asp" method="post">
<select name="SelPac" class="cxcampo">
<option value="---">Selecione um paciente</option><% do while not seleciona.eof %>
<option value="<%=seleciona("id_pac")%>"><%=seleciona("id_pac") %> - <%=seleciona("nome") %></option>
<%seleciona.movenext
loop%>
</select>
<input type="Submit" name="Enviar" value="Verificar paciente" class="tipobutton">
</form>
</body>
</html><%else
seleciona.close
Response.redirect "nopaciente.asp"
end if
Response.end%>
<!--#include file="conn/closedbpostgre.asp"-->
pagina 02.asp
>
<%@LANGUAGE="VBSCRIPT" codepage="65001"%> <!--#include file="conn/conectdbpostgre.asp"-->
<%
paciente=request.form("SelPac")
SQLPAC="SELECT * FROM pacientes WHERE id_pac='"& paciente &"';"
set buscapaciente = db.execute(SQLFUNC)
'//aqui tenho duas gravações por paciente uma para tipo emocional e outra tipo saude
'//e preciso verificar se as duas são estavel
SQLSIT="SELECT * FROM situacoes WHERE cod_pac='"& paciente &"' AND estado ='estavél';"
set buscasituacao = db.execute(SQLTREIN)
'//aqui tenho 3 ou mais gravações para cada paciente dependendo dos exames que necessita
'//e preciso verificar todas se estão ok, caso um único exame não esteja o paciente não recebe alta
SQLEXAM="SELECT * FROM exames WHERE cod_pac='"& paciente &"'AND exame ='ok';"
set buscaexame = db.execute(SQLEXAM)
'//aqui eu havia feito algo do tipo (abaixo), mas não funcionou
if not buscasituacao.eof and not buscaexame.eof then
on error resume next
buscasituacao.movefirst
buscaexame.movefirst
'//monta a guia de alta
else
'//não emite a guia de alta e mostra os dados do paciente e como estão seus estados e seus exames
end if
%>
<!--#include file="conn/closedbpostgre.asp"-->
Carregando comentários...