cpc-at0111b1.p1

Rotina utilizada para:
Permitir a operadora efetuar um tratamento especifico da mensagem de retorno para o campo "FORMA PAGTO COB", quando da consulta de movimento validado no módulo de Atendimento ao Cliente (AT).
Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
Localização
Quando da verificação da FORMA DE PAGAMENTO DA COBRANÇA, dentro do programa AT0111B1.P.
Ponto de Utilização
"FORMA-PAGTO-COB"
Include das definições das tabelas temporárias
CPC-AT0111B1.I
Tabelas de entrada e saída
Tabela de entrada tmp-cpc- at0111b1-entrada
def temp-table tmp-cpc-at0111b1-entrada no-undo
field in-evento-programa as char format "x(10)"
field nm-ponto-chamada-cpc as char format "x(15)"
field cd-unidade like guiautor.cd-unidade
field cd-unidade-carteira like unimed.cd-unimed
field cd-cateira-usuario like guiautor.cd-carteira-usuario
field nr-via-carteira like guiautor.nr-via-carteira
field cd-validacao like procguia.cd-validacao
field cd-user-validacao like procguia.cd-user-validacao
field cd-tipo-cobranca like procguia.cd-tipo-cob
field cd-forma-pagto-cob like procguia.cd-forma-pagto-cob.
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa que chama CPC-AT0111B1.P. O valor desse campo pode ser "CONSULTA;
nm-ponto-chamada-cpc – "FORMA-PAGTO-COB";
cd-unidade – Código da unidade;
cd-unidade-carteira – Código da unidade da carteira do beneficiário;
cd-carteira-usuario – Código da carteira do beneficiário;
nr-via-carteira – Número da via da carteira do beneficiário;
cd-validacao – Código de validação do movimento;
cd-user-validacao – Código do usuário que validou o movimento;
cd-tipo-cobranca – Código do tipo de cobrança, definido quando da validação do movimento;
cd-forma-pagto-cob – Código da forma de pagamento da cobrança, definido quando da validação do movimento.
Tabela de saída tmp-cpc-at0111b1-saida
def temp-table tmp-cpc-at0111b1-saida no-undo
field cd-codigo-retorno as int format "99"
field ds-mensagem-retorno as char format "x(75)"
field lg-undo-retry as log
field ds-mensagem-erro as char format "x(75)".
Definição campo a campo da tabela de saída
cd-codigo-retorno - E código da mensagem que a operadora quer que seja apresentada ao usuário quando da na execução do processo;
ds-mensagem de retorno – E a mensagem que a operadora quer que seja apresentada ao usuário quando da na execução do processo;
lg-undo-retry – Indica a ocorrência de erro no processo;
ds-mensagem-erro – E a mensagem que a operadora quer que seja apresentada ao usuário quando da ocorrência de erro na execução do processo.