CPC-API-RECEBE-PTU40.p

• Rotina permite ao cliente efetuar processos específicos após a leitura dos dados do beneficiário.
• Rotina permite ao cliente alterar se a unimed origem tem ou não serious.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
• Será permitido para esta CPC apenas um registro na tabela temporária de saída. Caso possuir mais de um registro um erro será reportado.

Localização

• Para o ponto de chamada "APÓS-DADOS-BENE", dentro do programa API-RECEBE-PTU40.p após efetuar a leitura dos dados do beneficiário;
• Para o ponto de chamada "ANTES-TEM-SERIOUS", dentro do programa api-recebe-ptu40 antes de qualquer utilização da variável LG-tem-serious-aux.

Ponto de Utilização

• "APÓS-DADOS-BENE"
• "ANTES-TEM-SERIOUS"

Include das definições das tabelas temporárias

• cpc-api-recebe-ptu40.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-api-receblote-entrada

def temp-table tmp-cpc-api-recebe-ptu40-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 aa-guia-atendimento

...

                 like guiautor.aa-guia-atendimento
field nr-guia-atendimento                   like guiautor.nr-guia-atendimento
field cd-carteira-usuario                     as dec
field lg-tem-serious                           as log.

Definição campo a campo da tabela de entrada

• • • in-evento-programa – Evento do programa que chama a cpc;
    • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. 
    • cd-unidade – Código da unidade do prestador;
    • AA-guia-atendimento – Ano da guia de atendimento;
    • Nr-guia-atendimento – Número da guia de atendimento;
    • LG-tem-serious - Indica se a Unimed possui ou não serious; 

Tabela de saída tmp-cpc-api-receblote -saida

def temp-table tmp-cpc-api-recebe-ptu40-saida no-undo

field lg-undo-retry

...

                         as logical
field ds-mensagem

...

                       as char format "x(75)"
field lg-tem-serious

...

                       as log.

Definição campo a campo da tabela de saída

• • • lg-undo-retry – Variável que controla os erros que podem ocorrer na CPC;
    • ds-mensagem – Variável que recebe a descrição dos erros que ocorreram na CPC;
    • LG-tem-serious – Indica se a Unimed possui serious ou não.