cpc-rtdtbase.p1

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.