CPC-AC1002D.p

• 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-ac1002-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. 
• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.
• 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-ac1002-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.