|
|
|
Maior segurança nos procedimentos;
Maior segurança no receituário;
Mais confiança, mais controle.
|
|
|
|
|
|
|
|
 |
<%If Request.form("Acao")="Cad" then%>
<% EmailDiretor=Request.form("EmailDiretor")
'################### Verifica se paciente já existe, se existir abre tela de edição ################ \/
set BuscaPaciente = Server.CreateObject("ADODB.Connection")
BuscaPaciente.Open ConexaoFranklinkProntuario()
sqlText = "Select RazaoSocialOrganizacao,CNPJ,EmailDiretor from Prontuario_Organizacao where RazaoSocialOrganizacao='"&Request.form("RazaoSocialOrganizacao")&"' and CNPJ='"&Request.form("CNPJ")&"'"
set itemPaciente=BuscaPaciente.Execute(sqlText)
if itemPaciente.EOF then
'################### Não tem Paciente Cadastrado então cadastra ################ \/
On Error Resume Next
'########## Sorteia Digito
function Digito()
Dim RndTemp
Randomize
RndTemp = Rnd * 10
RndTemp= clng(RndTemp)
Digito = RndTemp
end function
'########## Sorteia Digito
Senha=MID(Request.form("RazaoSocialOrganizacao"),1,1)&Digito*8&MID(Request.form("RazaoSocialOrganizacao"),2,1)&Digito*6+2&MID(Request.form("RazaoSocialOrganizacao"),3,1)&Digito*3+5&MID(Request.form("RazaoSocialOrganizacao"),1,1)&Digito
If Request.form("RazaoSocialOrganizacao")="" then
else
set Cadastro = server.createObject ("ADODB.Connection")
Cadastro.Open = ConexaoFranklinkProntuario()
TheSQL = "insert into Prontuario_Organizacao"
TheSQL = TheSQL & "(RazaoSocialOrganizacao,NomeOrganizacao,CNPJ,EmailDiretor,Senha,IpLocal,IpMaquina)"
TheSQL = TheSQL & "Values ('"&Request.form("RazaoSocialOrganizacao")&"','"&Request.form("NomeOrganizacao")&"','"&Request.form("CNPJ")&"','"&EmailDiretor&"','"&Senha&"','"&Request.ServerVariables("REMOTE_ADDR")&"','"&Request.ServerVariables("REMOTE_HOST")&"')"
Cadastro.Execute (TheSQL)
Cadastro.Close
set Cadastro = Nothing
'############################ Cadastrou Busca o Numero
set BuscaNumeroPaciente = Server.CreateObject("ADODB.Connection")
BuscaNumeroPaciente.Open ConexaoFranklinkProntuario()
sqlText = "Select NuOrg,RazaoSocialOrganizacao,CNPJ,EmailDiretor from Prontuario_Organizacao where RazaoSocialOrganizacao='"&Request.form("RazaoSocialOrganizacao")&"' and CNPJ='"&Request.form("CNPJ")&"'"
set itemPacienteNumero=BuscaNumeroPaciente.Execute(sqlText)
if itemPacienteNumero.EOF then%>
<%else
while not itemPacienteNumero.EOF
NuOrg=itemPacienteNumero("NuOrg")
Response.cookies ("NuOrg")=itemPacienteNumero("NuOrg")
itemPacienteNumero.moveNext
wend
itemPacienteNumero.Close
set itemPacienteNumero=Nothing
BuscaNumeroPaciente.Close
set BuscaNumeroPaciente=Nothing
end if
Response.cookies ("NomeOrganizacao")=request.form("RazaoSocialOrganizacao")
end if
If Err.number=0 then%>
<% else%>
|
Desculpe-nos,
Ocorreu um erro em seu cadastro por gentileza entre em contato através do e-mail &Subject=Erro no cadastro Prontu%e1rio">suporte@prontuario.com.br |
|
<%end If
'################### Não tem Paciente Cadastrado então cadastra ################ /\
'################### Existe Paciente Cadastrado abre edição ################ \/
else
while not itemPaciente.EOF
RazaoSocialOrganizacao=itemPaciente("RazaoSocialOrganizacao")
CNPJ=itemPaciente("CNPJ")
EmailDiretor=itemPaciente("EmailDiretor")%>
Edita
<%itemPaciente.moveNext
wend
'################### Existe Paciente Cadastrado abre edição ################ /\
itemPaciente.Close
set itemPaciente=Nothing
BuscaPaciente.Close
set BuscaPaciente=Nothing
end if
'################### Verifica se paciente já existe, se existir abre tela de edição ################ /\
%>cad
<%else%>
|
|
|
<%end if%>
|
 |
|
|
|
| |
|
|
|
|
|
|
|