cpc-ac1002d.p1

Rotina utilizada para permitir que as restrições relativas a reconsulta possam ser manipuladas pelo cliente a fim de que o atendimento ao beneficiário não seja bloqueado pelo sistema.
Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
Localização
Dentro do ac1002d.p após o processamento da rotina ac0011r.p.
Ponto de Utilização
"APOS-AC0011R"
Include das definições das tabelas temporárias
cpc-ac1002d.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-ac1000-entrada
def temp-table tmp-cpc-ac1002-entrada no-undo
field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15)"
field lg-mensagem-na-tela as log
field lg-glosa-reconsulta as log
field cd-glosa like claserro.cd-cod-glo
field cd-classe-erro like claserro.cd-classe-erro.
field cd-erro-sistema as char format "x(04)".
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa que chama a cpc-atc1000. Os valores desse campo podem ser:
"" Parâmetro não utilizado.
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa ac1000.p:
"APOS-AC0011R"
lg-mensagem-na-tela – Indica se as mensagens de erro devem ser dispostas na tela ou não. Caso o indicador for não o campo da tabela de saída ds-mensagem-relatorio deve ser preenchido. (não obrigatório).
lg-glosa-reconsulta – Indica se ocorreu glosa por reconsulta.
cd-glosa – Indica o código da glosa.
cd-classe-erro – Indica o código da a classe de erro.
cd-erro-sistema – Indica o código do erro do sistema.
Tabela de saída tmp-cpc-ac1000-saida
def temp-table tmp-cpc-ac1002-saida no-undo
field lg-undo-retry as log
field cd-glosa like claserro.cd-cod-glo
field cd-classe-erro like claserro.cd-classe-erro
field cd-erro-sistema as char format "x(04)".
field ds-mensagem-relatorio as char format "x(04)".
Definição campo a campo da tabela de saída
lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros aconteceram e NÃO se o processo foi concluído por completo. (não obrigatório).
cd-glosa – Código da Glosa depois de modificado, conforme a atuação da CPC.
cd-classe-erro – Código da classe de erro depois de modificado, conforme a atuação da CPC.
cd-erro-sistema – Indica o código do erro do sistema.
ds-mensagem-relatorio - Segmento de Resposta (mensagem) que será visualizado pelo usuário conforme a atuação da CPC.