cpc-rc0610j.p0

Rotina utilizada na Revalorização dos Movimentos executada nas opções de Simulação e Atualização.
Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
Localização
Dentro do rc0610j.p, no final da consulta.
Após a valorização do procedimento e do insumo, antes do lançamento da glosa 34.
Ponto "APOS-VAL-MOVTO" no final da procedure valorizar movimento, após a revalorização dos procedimentos e insumos.
Ponto de Utilização
" ALTERA-MOVTO"
"APOS-VALORIZA"
"APOS-VAL-MOVTO"
Include das definições das tabelas temporárias
CPC-RC0610J.I
Tabelas de entrada e saída
Tabela de entrada tmp-cpc- fp0610j-entrada
def temp-table tmp-cpc-rc0610j-entrada no-undo
field nm-ponto-chamada as char format "x(15)"
field in-evento-programa as char format "x(10)"
field nr-rowid-proc-insu as rowed
field cd-unidade-cpc like mov-insu.cd-unidade
field aa-guia-atendimento like guiautor.aa-guia-atendimento
field nr-guia-atendimento like guiautor.nr-guia-atendimento
field vl-cobrado like mov-insu.vl-cobrado
field lg-trab-cooperado as log
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-taxa-out-insumo like mov-insu.vl-taxa-out-insumo
field vl-principal like moviproc.vl-principal
field vl-auxiliar like moviproc.vl-auxiliar
field vl-taxa-out-uni-prin like moviproc.vl-taxa-out-uni-prin
field vl-taxa-out-uni-auxi like moviproc.vl-taxa-out-uni-auxi
field in-tipo-movimento as char.
Definição campo a campo da tabela de entrada
nm-ponto-chamada-cpc - Indica o nome do ponto de chamada;
in-evento-programa – Indica o evento;
nr-rowid-proc-insu – rowid da tabela moviproc
cd-unidade-cpc – Código da unidade do prestador
aa-guia-atendimento – ano da guia de atendimento
nr-guia-atendimento – numero da guia de atendimento
vl-cobrado – Contém o valor cobrado do insumo.
Lg-trab-cooperado – Indica prestador cooperado.
Pc-taxa-acp – Percentual de taxa cobrada sobre os atos médicos principais
Pc-taxa-aca – Percentual de taxa cobrada sobre os atos médicos auxiliares
Vl-insumo – Valor do insumo
Vl-taxa-out-insumo – valor da taxa de intercambio do insumo
Vl-principal - Valor principal do procedimento
Vl-auxiliar – Valor auxiliar do procedimento
Vl-taxa-out-uni-prin – Valor da taxa de intercambio sobre o valor principal do procedimento
Vl-taxa-out-uni-auxi – Valor da taxa de intercambio sobre o valor auxiliar do procedimento
Tabela de saída tmp-cpc- fp0610j -saida
def temp-table tmp-cpc-rc0610j-saida no-undo
field lg-undo-retry as log
field ds-mensagem as char format "x(75)"
field lg-continua as log initial yes
field vl-insumo like mov-insu.vl-insumo
field vl-taxa-out-insumo like mov-insu.vl-taxa-out-insumo
field vl-principal like moviproc.vl-principal
field vl-auxiliar like moviproc.vl-auxiliar
field vl-taxa-out-uni-prin like moviproc.vl-taxa-out-uni-prin
field vl-taxa-out-uni-auxi like moviproc.vl-taxa-out-uni-auxi.
Definição campo a campo da tabela de movimento
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.
ds-mensagem – Mensagem da ocorrência do erro no processamento da CPC.
lg-continua - Variável que retorna se o programa continua o processo de alteração do movimento ou não.
ds-mensagem-liberacao – Mensagem do processamento da lógica da CPC.
Vl-principal - Valor principal do procedimento
Vl-auxiliar – Valor auxiliar do procedimento
Vl-taxa-out-uni-prin – Valor da taxa de intercambio sobre o valor principal do procedimento
Vl-taxa-out-uni-auxi – Valor da taxa de intercambio sobre o valor auxiliar do procedimento.