CPC-RTDTBASE.P

• Rotina utilizada para permitir a operadora alterar a data base de valorização dos movimentos.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

Localização

• Após a identificação, pelo sistema, da data base de valorização do movimento, dentro da rotina rtdtbase.p. Ressalta-se que somente será chamada a CPC caso ela esteja ativa, no cadastro de CPC, e não tenha ocorrido nenhum erro.

Ponto de Utilização

"FINAL-PROCESSO"

Include das definições das tabelas temporárias

• cpc-rtdtbase.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rtdtbase-entrada

def temp-table tmp-cpc-rtdtbase 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 in-movimento                                          as char format "x(01)"
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

Definição campo a campo da tabela de entrada

• • • in-evento-programa – Evento do programa que chama a cpc-rtdtbase.p. Os valores desse campo podem ser:
    • "Inclui".
    • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa rtdtbase.p:
    • "FINAL- PROCESSO".
    • in-entidade – Identifica o modulo do sistema SERIOUS que esta efetuando acesso a rotina.
    • dt-realização – Data de realização do movimento.
    • dt-emissão – Data de emissão do movimento.
    • r-recid-periodo – Recid da tabela PERIMOVI (Períodos de Movimentação).
    • r-recid-transacao – Recid da tabela TRANREVI (Transação).
    • in-movimento – Indicação do tipo do movimento (I - Insumo e P – Procedimento).
    • cd-uni-cart-ben – Unidade da carteira do beneficiário.
    • cd-uni-pres-exec – Unidade do prestador executante.
    • cd-pres-exec – Prestador executante.
    • Dt-base-valor – Data base de valorização, selecionda pelo sistema.
    • Dt-informada – Data base para calculo informada.

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

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

field dt-base-valor                  like moviproc.dt-base-valor
field lg-undo-retry                  as log

Definição campo a campo da tabela de saída

• • • dt-base-valor – Data base para valorização do movimento. Esta data somente será considerada, quando retornada da CPC, se for válida.
    • lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC. Se o retorno desta variável for igual a SIM, indicará que erros aconteceram e se o retorno for igual à NÃO, indicará que o processo foi concluído por completo.