CPC-AT0111B1.p

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).
• Permitir a operadora efetuar uma consulta especifica "CONS-CLIENTE", quando da consulta de movimento validado no módulo de Atendimento ao Cliente (AT).
• Permitir a operadora de verificar o status do pacote do procedimento ou insumo, na data em que foi solicitado pelo pelo online.
• 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.
• Quando da consulta das guias do AT, dentro do programa AT0111B1.P.

Ponto de Utilização

• "FORMA-PAGTO-COB"
• "CONS-CLIENTE"

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(06)"
    field nm-ponto-chamada-cpc          as char format "x(15)"
    field cd-unidade                    like guiautor.cd-unidade          
    field cd-unidade-carteira           like guiautor.cd-unidade-carteira 
    field cd-carteira-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
    field aa-guia-atendimento           like guiautor.aa-guia-atendimento
    field nr-guia-atendimento           like guiautor.nr-guia-atendimento
    field h-tmp-benefs                  as handle
    field id-pessoa                     as int
    field cd-tipo-proc                  as char  
    field nr-processo                   like procguia.nr-processo
    field nr-seq-digitacao              like procguia.nr-seq-digitacao.

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"; "CONS-CLIENTE"
    • 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;
    • aa-guia-atendimento – Ano da emissão da guia;
    • nr-guia-atendimento – Número da guia de autorização;
    • h-tmp-benefs – Informações do usuário;
    • id-pessoa – Identificador da pessoa física;
    • cd-tipo-proc - Identificador do tipo do movimento: "PROC" ou "INSU"
    • nr-processo - Número do processo do movimento
    • nr-seq-digitacao - Número da sequencia de digitaçã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)"

field ds-mensagem-tipo-cob       as char.

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
    • ds-mensagem-tipo-cob – Tipo de cobrança.