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

...

Tabela de entrada tmp-cpc-ac1000ac1002-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:

...

•  
• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa ac1000.p:

...

• 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-ac1000ac1002-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

...