cpc-rcapi022.p3

• Rotina utilizada para:
  • Efetuar a substituição do Prestador Executante no Modulo de Revisão de Contas, para o ponto de chamada "SUBST-PRES-EXEC";
  • Efetuar a substituição da data dase de valorização dos movimentos, para o ponto de chamada "DATA-BASE-MOVTO";
  • Efetuar validações/criticas sobre os movimentos, para o ponto de chamada "TRATA-INSUMO";
  • Verificar se o prestador é de alto custo e desconsiderar glosa
  • Busca da tabela de quantidade de moedas do insumo.
• 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 no máximo um registro na tabela temporária de saída.

Localização
Dentro do programa rcapi022.P na inclusão de movimentos, de forma automatizada, no Revisão de Contas.

Ponto de Utilização
"SUBST-PRES-EXEC";
"DATA-BASE-MOVTO";
"TRATA-INSUMO".
"APÓS-VALORIZA"
"BLOQ-VAL-INSUMO"
"CONTR-QUANT"
Utilizado para indicar se será feito o controle quantitativo do movimento.
"COMPL-MOVTO"
Utilizado para criar complemento do movimento.
"ALT-VALOR-COB"
Utilizado para alterar o valor de cobrança do movimento.
Include das definições das tabelas temporárias
cpc-rcapi022.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-rcapi022-entrada
def temp-table tmp-cpc-rcapi022-entrada no-undo
field in-evento-programa as char format "x(10)"
field nm-ponto-chamada-cpc as char format "x(15)"
field in-entidade as char format "x(02)"
field dt-realizacao like moviproc.dt-base-valor
field dt-emissao like moviproc.dt-base-valor
field r-recid-periodo as recid
field r-recid-transacao as recid
field cd-uni-cart-ben like previesp.cd-unidade
field cd-uni-pres-exec like previesp.cd-unidade
field cd-pres-exec like previesp.cd-prestador
field dt-base-valor like moviproc.dt-base-valor
field dt-informada like moviproc.dt-base-valor
field cd-unidade-executante like moviproc.cd-unidade-prestador
field cd-prestador-executante like moviproc.cd-prestador
field cd-tipo-insumo like insumos.cd-tipo-insumo
field cd-insumo like insumos.cd-insumo
field cd-unidade like docrecon.cd-unidade
field aa-guia-atendimento like docrecon.aa-guia-atendimento
field nr-guia-atendimento like docrecon.nr-guia-atendimento
field lg-trab-cooperado like tipovinc.lg-trabalho
field pc-taxa-acp like unicamco.pc-taxa-acp
field pc-taxa-aca like unicamco.pc-taxa-aca
field vl-insumo like mov-insu.vl-insumo
field vl-cobrado like mov-insu.vl-cobrado
field vl-taxa-out-insumo like mov-insu.vl-taxa-out-insumo
field cd-tab-preco like mov-insu.cd-tab-preco
field cd-unidade-prestadora like mov-insu.cd-unidade-prestadora
field cd-transacao like mov-insu.cd-transacao
field nr-serie-doc-original like mov-insu.nr-serie-doc-original
field nr-doc-original like mov-insu.nr-doc-original
field nr-doc-sistema like mov-insu.nr-doc-sistema
field nr-processo like mov-insu.nr-processo
field nr-seq-digitacao like mov-insu.nr-seq-digitacao
field vl-taxa-out-uni-cobrado like mov-insu.vl-taxa-out-uni-cobrado.
Definição campo a campo da tabela de entrada
in-evento-programa– Evento do programa que chama cpc-rcapi022.P.
"INCLUI".
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa rcapi022.p poderá ser "SUBST-PRES-EXEC"; "DATA-BASE-MOVTO", "TRATA-INSUMO", "BLOQ-VAL-INSUMO", "CONTR-QUANT", "CRIA-COMPL-MOVTO" e "ALT-VALOR-COB".
in-entidade –
dt-realizaao – Data de realização do movimento;
dt-emissão – Data de emissão do documento;
r-recid-periodo – recid da tabela de período de movimentação a qual o movimento (documento) está associado;
r-recid-transacao – recid da tabela de transacao do a qual o movimento (documento) está associado;
cd-uni-cart-bem – código da unidade da carteira do beneficiário que utilizou/realizou o inusmo;
cd-uni-pres-exec – código da unidade do prestador que utilizou/realizou o inusmo;
cd-pres-exec – código do prestador que utilizou/realizou o inusmo;
dt-base-valor – data base de valorização do movimento em utilização;
dt-informada – data informada pelo usuário para valorização;
cd-unidade-executante - código da unidade do prestador que utilizou/realizou o inusmo;
cd-prestador-executante - código do prestador que utilizou/realizou o inusmo;
cd-tipo-insumo – código do tipo do insumo utilizado/realizado;
cd-insumo – código do insumo utilizado/realizado.
cd-unidade – código da unidade.
aa-guia-atendimento – ano da guia de atendimento.
nr-guia-atendimento – n° da guia de atendimento.
lg-trab-cooperado – parâmetro identificador de trabalho cooperado.
pc-taxa-acp – percentual da taxa principal
pc-taxa-aca – percentual da taxa auxiliar
vl-insumo – valor do insumo
vl-cobrado – valor cobrado do insumo
vl-taxa-out-insumo – valor da taxa insumo.
cd-tab-preco – Código da tabela de preço do insumo.
cd-unidade-prestadora – Código da Unidade Prestadora.
cd-transacao – Código da transação.
nr-serie-doc-original – Número de Série do Documento.
nr-doc-original – Número do documento Original
nr-doc-sistema – Número do documento no sistema
nr-processo – Número do processo do movimento
nr-seq-digitacao – Número seqüencial de digitação do movimento
vl-taxa-ou-uni-cobrado – Valor da taxa.
Tabela de saída tmp-cpc-rcapi022-saida
def temp-table tmp-cpc-rcapi022-saida no-undo
field dt-base-valor like moviproc.dt-base-valor
field lg-undo-retry as log
field ds-mensagem as char
field cd-unidade-encaminhamento like moviproc.cd-unidade-prestador
field cd-prestador-encaminhamento like moviproc.cd-prestador
field vl-insumo like mov-insu.vl-insumo
field vl-taxa-out-insumo like mov-insu.vl-taxa-out-insumo
field lg-manual as log
field cd-controla-quantitativo like mov-insu.cd-controla-quantitativo
field vl-cobrado like mov-insu.vl-cobrado
field vl-taxa-out-uni-cobrado like mov-insu.vl-taxa-out-uni-cobrado.
Definição campo a campo da tabela de saída
cd-unidade-encaminhamento – Unidade a ser substituída pela Unidade Executante
cd-prestador-encaminhamento – Prestador a ser substituído pelo Prestador Executante
lg-undo-retry – Variável que controla os erros que podem ocorrer na CPC.
ds-mensagem – Variável que retornar mensagem de erro, se ocorrido dentro da CPC.
dt-base-valor – data base para ser utilizada na valorização dos movimentos.
vl-insumo – valor do insumo.
vl-taxa-out-insumo – valor da taxa do insumo.
Lg-manual – indicador de preço manual do insumo.
Cd-controla-quantitativo – Indicador de controle quantitativo.
Vl-cobrado – Valor cobrado pelo movimento
Vl-taxa-out-uni-cobrado – Valor taxa.