//Botao Salvar dados do Cadastro do Paciente

IF EDT_NomePaciente = "" THEN
Info("Nome do Pacientenão informado.")
RETURN
END

IF EDT_EmailCadastroPaciente = "" THEN
Info("E-mail do Paciente não informado.")
RETURN
END

IF EDT_DDD = 0 THEN
Info("DDD não informado.")
RETURN
END

IF EDT_TelefonePaciente = "" THEN
Info("Telefone do Paciente não informado.")
RETURN
END

IF EDT_SenhaCadastroPaciente = "" THEN
Info("Senha do Paciente não informada.")
RETURN
END

IF Length(EDT_SenhaCadastroPaciente) < 6 OR Length(EDT_SenhaCadastroPaciente) > 12 THEN
Info("A senha do Paciente precisa ter entre 6 e 12 dígitos.")
RETURN
END

IF EDT_ConfirmacaoSenha <> EDT_SenhaCadastro THEN
Info("As senhas não coincidem.")
RETURN
END

ip is string = BrowserIPAddress()

//Crie um Data Source e definina os nomes dos paramentros e iguale aos campos da tela do eu sistema

dadosProcedure is Data Source

dadosProcedure.nome = EDT_NomePaciente
dadosProcedure.email = EDT_EmailCadastroPaciente
dadosProcedure.ddd = EDT_DDD
dadosProcedure.telefone = EDT_TelefonePaciente
dadosProcedure.senha = EDT_SenhaCadastroPaciente

//Ate aqui simples assim, agora voce passa os paramentros usando vairaveis de mesmo nome com o @ apenas no inicio separadas com virgula e testa os parametros, pelo debug tente dar aspa simples e injetar comandos de select, insert, update no codigo pra ver se consegue executar um comando no banco de dados... dessa forma fica seguro nao tera problema e tera certeza que o sistema foi bem feito.

ok is boolean = HExecuteSQLQuery(dadosProcedure, ConexaoSQL, hQueryWithoutCorrection, "EXEC CadastroPaciente @nome, @email, @ddd, @telefone, @senha")

IF ok = True THEN

IF HNbRec(dadosProcedure) = 0 OR HNbRec(dadosProcedure) > 1 THEN
Info("Erro interno no servidor: O resultado falhou.")
RETURN
END

FOR EACH dadosProcedure
SWITCH dadosProcedure.Resultado
CASE 201: // Sucesso, cadastro Paciente criado
PageDisplay(PAGE_Paciente, EDT_EmailCadastroPaciente)
CASE 409: // Cadastro do Paciente já existente
Info("Cadastro já existente no mesmo endereço de e-mail.", "Use a opção ""Esqueci Minha Senha"" para recuperar a sua senha.")
CASE 403: // Não permitido: conta desabilitada
Info("Cadastro do Paciente não liberado.")
OTHER CASE:
Info("Erro interno no servidor: O resultado foi inesperado.")
END
END
ELSE
Info("Erro interno no servidor: A conexão não conseguiu prosseguir.")
PageDisplay(PAGE_Login)
END