CPC-AT0110C5.p

• Rotina utilizada para efetuar consulta da operadora.
• Rotina utilizada para indicar se a operadora origem possui serious ou não.
• 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.

Localização

• Dentro do programa at0110c5.i quando pressionado o botão "Cons.Cliente";
• Dentro do programa at0110c5.i quando pressionado o botão Consulta guia,
• Na atual função de "F10", que atualmente mostra o frame "Valores da Guia".
• Dentro do programa at0110c5.i1 quando pressionado o botão Motivo Auditoria,

Ponto de Utilização

• "CONS-CLIENTE"
• "OPCOES-IE"
• "VALOR-INSUMO"
• "ANTES-SERIOUS"
• "FINAL-CONS"
• "DADOS-GUIA"
• "ANT-TEM-SERIOUS"
• "ANT-CONS-UPLOAD"
• "OBS-INTERNA" - disponível a partir da versão 12.1.2403
• "MOT-AUD" - disponível a partir da versão 12.1.2403

Include das definições das tabelas temporárias

• cpc-at0110c5.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-at0110c5-entrada

def temp-table tmp- cpc-at0110c5-entrada no-undo

fields in-evento-programa                   as char format "x(10)"
fields nm-ponto-chamada-cpc             as char format "x(15)"
field aa-guia-atendimento                   like guiautor.aa-guia-atendimento
field nr-guia-atendimento                    like guiautor.nr-guia-atendimento
field cd-un-carteira                              like unimed.cd-unimed
field cd-carteira-usu                            like guiautor.cd-carteira-usuario
field cd-unidade                                 like guiautor.cd-unidade
field vl-custo-op                                 as dec
field vl-taxa-part                                 as dec
field vl-tot-val                                     as dec
field lg-tem-serious                            as log
field rowid-guiautor                            as rowid
field h-tmp-arquivos-anexados          as handle.

Definição campo a campo da tabela de entrada

• • in-evento-programa – Evento do programa que chama a cpc-at0110c5.P.
  • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.
  • aa-guia-atendimento – Ano da Guia de Atendimento
  • nr-guia-atendimento - Número da Guia de Atendimento (AIH).
  • cd-un-carteira – Código da Unidade
  • cd-carteira-usu – Código da carteira do beneficiário
  • cd-unidade – Código da unidade
  • vl-custo-op – Valor do custo operacional;
  • vl-taxa-part – Valor da taxa de participação;
  • vl-tot-val - Total da guia (custo operacional + taxa de participação).
  • lg-tem-serious – Indica se a operadora origem possui ou não serious.
  • rowid-guiautor  - Identificador da guiautor.
  • h-tmp-arquivos-anexados - Handle para a tabela temporaria tmp-arquivos-anexados.

Tabela de saída tmp-cpc-at0110c5-saida

def temp-table tmp-cpc-at0110c5-saida no-undo

fields lg-undo-retry                         as logical
fields ds-mensagem                        as char format "x(100)"
fields lg-erro                                    as logical
field lg-tem-serious                         as logical
field lg-retorna                                as logical

field ds-motivo-auditoria                as char.

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.
  • ds-mensagem – Deve conter mensagem de erro ou qualquer outro tipo de mensagem.
  • Lg-erro – Indica se houve erro durante o processo.
  • LG-tem-serious – Indica se a operadora tem serious ou não
  • lg-retorna - Variável para indicar retorno.
  • ds-motivo-auditoria - Campo para alteração do motivo da auditoria exibido na tela.

Tabela de entrada tmp-cpc-at0110c5-insuguia

def temp-table tmp-cpc-at0110c5-insuguia no-undo

field cd-unidade                            like insuguia.cd-unidade
field aa-guia-atendimento             like insuguia.aa-guia-atendimento
field nr-guia-atendimento              like insuguia.nr-guia-atendimento
field nr-processo                           like insuguia.nr-processo
field nr-seq-digitacao                    like insuguia.nr-seq-digitacao
field vl-insumo-cob                       like insuguia.vl-insumo-cob.

Definição campo a campo da tabela de entrada

• • cd-unidade – Código da Unidade.
  • aa-guia-atendimento – Ano da Guia de Atendimento.
  • nr-guia-atendimento – Número da Guia de Atendimento.
  • nr-processo – Número do Processo.
  • nr-seq-digitacao – Número da Seqüência de Digitação.
  • vl-insumo-cob - Valor do Insumo Cobrado.