• Rotina utilizada para efetuar a substituição do Prestador Executante no Modulo de Revisão de Contas.
• Verificar se o prestador é de alto custo e desconsiderar glosa.
• 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 rcapi021.P na inclusão de movimentos no Revisão de Contas.
Ponto de Utilização
"SUBST-PRES-EXEC"
"CONTA-ANEST"
"HORA-URGENCIA"
"DATA-BASE-MOVTO"
"MUDA-VEZES-TAB"
Utilizado para modificar a quantidade de vezes que será aplicada a tabela de moedas.
"ALTERA-VALOR"
Utilizado para modificar o valor do procedimento
"MODULO-COBERT"
permitir valorizar determinados procedimentos de pediatria, considerando o modulo de cobertura relacionado a outro procedimento.
"APÓS-VALORIZA"
"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-rcapi021.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-rcapi021-entrada
def temp-table tmp-cpc-rcapi021-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-procedimento as int format 99999999
field lg-urgencia as log
field lg-anestesista as log
field cd-unidade like docrecon.cd-unidade
field cd-unidade-prestadora like docrecon.cd-unidade-prestadora
field cd-transacao like docrecon.cd-transacao
field nr-serie-doc-original like docrecon.nr-serie-doc-original
field nr-doc-original like docrecon.nr-doc-original
field nr-doc-sistema like docrecon.nr-doc-sistema
field qt-fat-rep-urg like precproc.qt-fat-rep-urgencia
field vl-principal like moviproc.vl-principal
field vl-base-valor-sistema like moviproc.vl-base-valor-sistema
field vl-honorarios-medicos like moviproc.vl-honorarios-medicos
field qt-repasse like moviproc.qt-repasse
field qt-repasse-cob like moviproc.qt-repasse-cob
field lg-muda-qt-repasse like tranrevi.lg-muda-qt-repasse
field nr-rowid-precproc as rowid
field vl-cobrado like moviproc.vl-cobrado
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 aa-guia-atendimento like docrecon.aa-guia-atendimento
field nr-guia-atendimento like docrecon.nr-guia-atendimento
field lg-trab-cooperado like moviproc.lg-trab-cooperado
field pc-taxa-acp like moviproc.pc-aplicado
field pc-taxa-aca like moviproc.pc-aplicado
field nr-processo like moviproc.nr-processo
field nr-seq-digitacao like moviproc.nr-seq-digitacao
field vl-taxa-out-uni-cobrado like moviproc.vl-taxa-out-uni-cobrado.
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa que chama a cpc-rcapi021.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 rcapi021.p:
"DATA-BASE-MOVTO", "CONTR-QUANT", "CRIA-COMPL-MOVTO" e "ALT-VALOR-COB"
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, se controle por fatura.
r-recid-periodo – Recid da tabela PERIMOVI (Períodos de Movimentação);
r-recid-transacao – Recid da tabela TRANREVI (Transação);
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.
cd-unidade-executante – Código da unidade do prestador Executante.
cd-prestador-executante – Código do prestador Executante.
cd-procedimento – Código do procedimento atual.
lg-urgencia – Log que define se o movimento é de urgência.
cd-unidade – Código da unidade do beneficiário.
cd-unidade-prestadora – Código da unidade prestadora.
cd-transacao – Código da Transação.
nr-serie-doc-original – Número da Série do documento Original.
nr-doc-original – Número do documento Original.
nr-doc-sistema – Número do documento no sistema.
qt-fatrep-urgencia – Quantidade de vezes de pagamento da tabela quando estiver em urgência
vl-principal – Valor do procedimento após a valorização do mesmo
vl-base-valor-sistema - Valor que o sistema valorizou.
vl-honorarios-medicos - Valor para honorários médicos.
qt-repasse – Quantidade de vezes da tabela de moedas foi aplicada no procedimento
qt-repasse-cob – Quantidade de vezes da tabela de moedas foi aplicada no procedimento para cobrança
lg-muda-qt-repasse – Parâmetro da transação que informa se permite a modificação da quantidade da tabela
nr-rowid-precproc – ROWID da tabela de moedas e carências utilizada
vl-cobrado - Valor cobrado pelo prestador no procedimento.
vl-auxiliar – Valor auxiliar cobrado pelo prestador no procedimento.
vl-taxa-out-uni-prin – Valor da taxa quando prestador de outras unidades.
vl-taxa-out-uni-auxi – Valor da taxa auxiliar quando prestador de outras unidades.
aa-guia-atendimento – Ano da guia de atendimento.
nr-guia-atendimento – N° da guia de atendimento.
lg-trab-cooperado – Parâmetro de informação de trabalho cooperado.
pc-taxa-acp – Percentual da taxa principal.
pc-taxa-aca – Percentual da taxa auxiliar.
nr-processo – Número do processo do movimento.
nr-seq-digitacao – Número seqüencial de digitação do movimento.
vl-taxa-out-uni-cobrado - Valor da taxa.
dt-digitacao – Data de digitação do movimento.
hr-realizacao – Hora de realização do movimento.
Tabela de saída tmp-cpc-rcapi021-saida
def temp-table tmp-cpc-rcapi021-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 lg-espec-anest as log
field cd-classe-erro like movrcglo.cd-classe-erro
field lg-urgencia as log
field qt-repasse like moviproc.qt-repasse
field qt-repasse-cob like moviproc.qt-repasse-cob
field vl-principal like moviproc.vl-principal
field vl-base-valor-sistema like moviproc.vl-base-valor-sistema
field vl-honorarios-medicos like moviproc.vl-honorarios-medicos
field vl-cobrado like moviproc.vl-cobrado
field cd-modulo like moviproc.cd-modulo.
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 cd-controla-quantitativo like moviproc.cd-controla-quantitativo
field lg-continua as log
field vl-taxa-out-uni-cobrado like moviproc.vl-taxa-out-uni-cobrado
field dt-digitacao like moviproc.dt-base-valor
field hr-realizacao like moviproc.hr-realizacao.
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.cd-unidade-encaminhamento – Unidade a ser substituída pela Unidade Executante
• ds-mensagem – Variável que retornar mensagem de erro, se ocorrido dentro da CPC.
• cd-prestador-encaminhamento – Prestador a ser substituído pelo Prestador Executante.
• lg-espec-anest – Indicador de anestesista.
• cd-classe-erro – Código da classe de erro referente.
• lg-urgencia – Log que define se o movimento é de urgência.
• qt-repasse – Retorna a nova quantidade da tabela para ser aplicada
• qt-repasse-cob – Retorna a nova quantidade da tabela para ser aplicada para cobrança
• vl-principal – Retorna o novo valor do procedimento
• vl-base-valor-sistema - Valor que o sistema valorizou
• vl-honorarios-medicos - Valor para honorários médicos
• vl-cobrado – Retorna o novo valor cobrado pelo prestador para o procedimento
• cd-modulo – Retorna o novo modulo.
• vl-auxiliar – Valor auxiliar cobrado pelos prestadores.
• vl-taxa-out-uni-prin – Valor da taxa quando prestador de outras unidades.
• vl-taxa-out-uni-auxi – Valor da taxa auxiliar quando prestador de outras unidades
• cd-controla-quantitativo – Indicador de controle quantitativo.
• lg-continua – Indica se deve continuar ou na a inclusão do movimento.
• vl-taxa-out-uni-cobrado – Valor da taxa.