CPC-AT0110C5.p
Produto: | Gestão de Planos de Saúde |
Módulo: | Todos |
Versão: | 12.x.x |
Assuntos: | 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.