cpc-at0110c5.p1

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 presiondo 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".
Ponto de Utilização
"CONS-CLIENTE"
"OPCOES-IE"
"VALOR-INSUMO"
"ANTES-TEM-SERIOUS"
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.
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa que chama a cpc-at0110c5.P. O valor deste campo podem ser:
"CONS-CLIENTE"".
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa at0110c5.i:
"INFO-ADIC" e "OPCOES-IE" e "VALOR-INSUMO".
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.
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.
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.
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.