cpc-rtapi026.p0

Rotina utilizada para:
Tratar a obrigatoriedade da autorização de acordo com lógica específica do cliente
Tratar o responsável pela autorização de acordo com lógica específica do cliente.
Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
Será permitido para esta CPC apenas um registro na tabela temporária de saída.
Localização
Dentro da rotina rtautpro e rtapi026 no final do processamento após a consistência do sistema
Na rtapi026, logo após a busca pelo responsável da autorização.
Pontos de Utilização
"AUTORIZACAO"
"RESP-AUTORIZA"
Include das definições das tabelas temporárias
cpc-rtapi026.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-rtapi026-entrada
def temp-table tmp-cpc-rtapi026-entrada no-undo
field nm-ponto-chamada-cpc as char format "x(15)"
field cd-local-atendimento as int format '999'
field cd-modalidade as int format '99'
field cd-plano as int format '99'
field cd-tipo-plano as int format '99'
field cd-unidade-prestador as int format '9999'
field cd-prestador as int format '99999999'
field cd-procedimento as int format '99999999'
field cd-modulo as int format '99'
field cd-grau-parentesco as int format '99'.
Definição campo a campo da tabela de entrada
nm-ponto-chmada-cpc – Ponto de chamada da CPC;
"AUTORIZACAO"
"RESP-AUTORIZA"
cd-local-atendimetno – Código do local de atendimento
cd-modalidade – Código da modalidade;
cd-plano – Código do plano;
cd-tipo-plano – Código do tipo de plano;
cd-unidade-prestador – Código da unidade do prestador executante;
cd-prestador – Código do prestador executante;
cd-procedimento – Código do procedimento (8 dígitos)
cd-modulo – Código do módulo de cobertura
cd-grau-parentesco – Código do grau de parentesco
Tabela de saída tmp-cpc-rtapi026-saida
def temp-table tmp-cpc-rtapi026-saida no-undo
field lg-erro as logical
field ds-mensagem-erro as char format "x(100)"
field lg-autoriza as log
field in-responsavel-autorizacao as char format "x(1)".
Definição campo a campo da tabela de saída
lg-erro – indica que ocorreu algum erro durante o processamento;
ds-mensagem-erro – Retorna a mensagem de errro;
lg-autoriza – indica se a autorização não é obrigatória (quando Yes);
in-responsavel-autorizacao – Responsável pela autorização, E – Empresa, U – Unidade, A - Ambos, N - Não Necessário;