CPC-RCAPI022.P

• 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";
"APOS-GLOSA-53";
"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.

        "ANT-RTVIGENCIA"

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
field cd-unidade-prest                           like docrecon.cd-unidade-principal
field cd-prestador                                  like docrecon.cd-prestador-principal
field in-tipo                                            as char format "x(01)"
field dt-digitacao                                   like moviproc.dt-base-valor
field cd-classe-erro                                like moviproc.cd-classe-erro
field vl-principal                                     like moviproc.vl-principal
field aa-fatura                                        like docrecon.aa-fatura
field cd-serie-nf                                     like docrecon.cd-serie-nf
field nr-fatura                                        like docrecon.nr-fatura
field cd-prestador-solicitante                like docrecon.cd-prestador-solicitante
field cod-fatur-ap                                  like mov-insu.cod-fatur-ap
field int-12                                             like mov-itmp.int-12
field int-13                                             like mov-itmp.int-13
field cd-unimed                                     like paramecp.cd-unimed
field nr-rowid-proposta                         as rowid
field cd-modulo                                     like mov-itmp.cd-modulo
field cd-tab-preco-pagto                       like precproc.cd-tab-preco
field dt-conhecimento                           like mov-insu.date-3
field cd-unidade-carteira                       like docrecon.cd-unidade-carteira
field dt-alta                                            like docrecon.dt-alta
field cd-unidade-imp                             like mov-insu.cd-unidade-imp
field cd-prestador-imp                          like mov-insu.cd-prestador-imp
field nr-lote-imp                                    like mov-insu.nr-lote-imp
field nr-sequencia-imp                          like mov-insu.nr-sequencia-imp
field r-mov-insu                                     as rowid
field cd-motivo-alta                               like docrecon.cd-motivo-alta
field cd-faturamento                              like docrecon.cd-faturamento
field nm-decl-nasc-viv                           like docrecon.nm-decl-nasc-viv
field nm-decl-obito                                like docrecon.char-5

field h-buffer-tmp-mov-insu                 as handle

field r-insumos                                      as rowid

field dt-publicacao-pacote                   as date.

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;
    • cd-unidade-prest – código da unidade do prestador principal;
    • cd-prestador – código do prestador principal;
    • in-tipo – tipo de prestador;
    • dt-digitacao – data de digitação;
    • cd-classe-erro – código da classe de erro;
    • vl-principal – valor principal;
    • aa-fatura – ano da fatura do RC ("notapres");
    • cd-serie-nf – série da fatura do RC ("notapres");
    • nr-fatura – indicador de fatura, NDR ou ambos;
    • cd-prestador-solicitante – código do prestador solicitante;
    • cod-fatur-ap – número da fatura do RC ("notapres");
    • int-12 – código da unidade do prestador origem;
    • int-13 – código do prestador origem;
    • cd-unimed – código da unidade;
    • nr-rowid-proposta – rowid da tabela "propost";
    • cd-modulo – código do módulo;
    • cd-tab-preco-pagto – código da tabela de preço para pagamento;
    • dt-conhecimento – data de conhecimento;
    • cd-unidade-carteira – código da unidade da carteira;
    • dt-alta – data de alta;
    • cd-unidade-imp – código da unidade do prestador do lote de importação;
    • cd-prestador-imp – código do prestador do lote de importação;
    • nr-lote-imp – número do lote de importação;
    • nr-sequencia-imp – número da sequência do lote de importação;
    • r-mov-insu – rowid da tabela "mov-insu"
    • cd-motivo-alta – código do motivo de alta;
    • cd-faturamento – tipo de faturamento;
    • nm-decl-nasc-viv – declaração de nascido vivo;
    • nm-decl-obito – declaração de óbito de RN
    • h-buffer-tmp-mov-insu - handle de tabela
    • r-insumos - rowid da tabela insumos
    • dt-publicacao-pacote - data do pacote sispac.

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
field cd-classe-erro                                  like movrcglo.cd-classe-erro
field lg-modifica-valor                             as log
field lg-restringe                                      as log
field lg-continua                                      as log
field cd-tab-preco-pagto                         like precproc.cd-tab-preco
field cd-modulo                                        like mov-insu.cd-modulo
field cd-forma-pagto                                as int
field lg-desconsidera-glosa                      as log
field lg-troca-valores                                as log
field vl-glosado                                         like mov-insu.vl-glosado

field lg-calcula-vl-glosado                        as logical initial yes

field r-insumos                                          as rowid.

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;
• cd-classe-erro – código da classe de erro;
• lg-modifica-valor – identifica se o valor deve ser alterado;
• lg-restringe – indica se deve restringir a entrada do movimento;
• lg-continua – indica se deve continuar o processo;
• cd-tab-preco-pagto – código da tabela de preço para pagamento;
• cd-modulo – código do módulo;
• cd-forma-pagto – código da forma de pagamento;
• lg-desconsidera-glosa – indica se deve desconsiderar a glosa;
• lg-troca-valores – indica se deve substituir os valores por aqueles retornados pela CPC;
• vl-glosado – valor glosado.
• lg-calcula-vl-glosado - indica para considerar valor glosado
• r-insumos - rowid da tabela insumos.