cpc-rtautpro.p0

Rotina utilizada para:
Efetuar a consistência do responsável da autorização com lógica especifica do cliente e
Alterar a mensagem de retorno ao usuário, quando o movimento necessitar autorização do auditor.
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 rtautpro, logo após a busca pelo responsável da autorização.
Pontos de Utilização
"FIM-PROCESSO" , "MENS-AUDITOR" , "AUTORIZACAO" e "RESP-AUTORIZA".
Include das definições das tabelas temporárias
cpc-rtautpro.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-rtautpro-entrada
def temp-table tmp-cpc-rtautpro-entrada no-undo
field in-evento-programa as char format "x(10)"
field nm-ponto-chamada-cpc as char format "x(15)"
field lg-mensagem-tela as logical
field nr-rowid-proposta as rowid
field nr-rowid-usuario as rowid
field nr-rowid-modulo as rowid
field nr-rowid-ambproce as rowid
field cd-proced-inteiro as integer format "99999999"
field dt-realizacao like guiautor.dt-emissao-guia
field nr-rowid-unicamco as rowid
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-modulo as int format '99'
field cd-grau-parentesco as int format '99'
field lg-autor-auditor as log.
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa de chamada da CPC;
"INCLUI"
nm-ponto-chmada-cpc – Ponto de chamada da CPC;
"FIM-PROCESSO" , "MENS-AUDITOR" , "AUTORIZACAO" e "RESP-AUTORIZA".
lg-mensagem-tela – indica se as mensagens de erro, que ocorreram dentro da cpc, serão ou não visualizadas em tela;
nr-rowid-proposta – Rowid da tabela propost (proposta do beneficiário);
nr-rowid-usuario – Rowid da tabela usuário (beneficiário do plano);
nr-rowid-unicamco – Rowid da tabela unicamco (Negociação beneficiários de fora intercambio);
nr-rowid-modulo – Rowid da tabela mod-cob (modulo do beneficiário);
nr-rowid-ambproce – Rowid da tabela ambproce (Procedimento);
cd-proced-inteiro – Código do procedimento com 8 casas ("99999999");
dt-realizacao – Data da realização do movimento;
cd-local-atendimento – 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-modulo – Código do módulo de cobertura;
cd-grau-parentesco – Código do grau de parentesco;
lg-autor-auditor – Campo que controla a autorização do auditor;
Tabela de saída tmp-cpc-rtautpro-saida
def temp-table tmp-cpc-rtautpro-saida no-undo
field lg-undo-retry as log
field ds-mensagem-relatorio as char format "x(75)"
field ds-autoriza as char format "x(13)"
field in-responsavel as char format "x(01)"
field lg-autor-auditor as log
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-undo-retry – indica que ocorreu algum erro durante o processamento.
ds-mensagem-relatorio – Retorna a mensagem de autorização ( EM AMBOS, NA EMPRESA, NA UNIDADE ou DESNECESSARIA) para o ponto de chamada "FIM-PROCESSO" e a mensagem a ser impressa no relatório no ponto de chamada "MENS-AUDITOR";
ds-autoriza – Retorna a descrição de autorização ( EM AMBOS, NA EMPRESA, NA UNIDADE ou DESNECESSARIA) para o ponto de chamada "FIM-PROCESSO" e a mensagem a ser apresentada ao usuário no ponto de chamada "MENS-AUDITOR".
in-responsavel – Indica o responsável "E" – Empresa – "A" – Ambos – "U" – Unidade – "N" – Nenhum.
lg-autor-auditor – indica se necessita de autorização do auditor
lg-autoriza – indica se a autorização não é obrigatória (quando Yes)
in-responsavel-autorizacao - Indica o responsável "E" – Empresa – "A" – Ambos – "U" – Unidade – "N" – Nenhum.