CPC-RCAPI021.P

• 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.
• "APOS-VALORIZA"
• "CONS-PRESTADOR"
• "CONS-PRAZO"
• "ANTES-CARENCIA"
• "VERIF-ANEST"
• "ANTES-GLOSAR"
• "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.
• "ANTES-GLO-BASE"
• "ANTES-GLO-PROC"
• "TRAB-COOPERADO"
• "ANT-RTVIGENCIA"
• "ANT-VERI-DUPLO": liberação a partir da 12.1.2301.
• "APOS-CRIA-COMPL": liberação a partir da 12.1.2301.
• "ANT-HR-URG-PAG" - a partir da versão 12.1.2301.
• "FIM-MANUTENCAO" - a partir da versão 12.1.2407.

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
field cd-local-atendimento                            like locaaten.cd-local-atendimento
field vl-cobrado-div-hono                              like moviproc.vl-cobrado
field vl-principal-div-hono                             like moviproc.vl-principal
field vl-auxiliar-div-hono                               like moviproc.vl-auxiliar
field vl-taxa-out-uni-cobrado-div-hono         like moviproc.vl-taxa-out-uni-cobrado
field vl-taxa-out-uni-prin-div-hono                like moviproc.vl-taxa-out-uni-prin
field vl-taxa-out-uni-auxi-div-hono               like moviproc.vl-taxa-out-uni-auxi
field lg-simula                                                as logical
field cd-esp-amb                                           like moviproc.cd-esp-amb
field cd-proce-amb                                       like moviproc.cd-procedimento
field dv-procedimento                                  like moviproc.dv-procedimento
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 cd-unidade-pagamento                       like moviproc.cd-unidade-pagamento
field cd-prestador-pagamento                     like moviproc.cd-prestador-pagamento
field tp-tec-util                                              like moviproc.tp-tec-util
field h-moviproc                                           as handle
field r-movto                                                 as rowid
field h-buffer-tmp-docrecon                        as handle
field h-buffer-tmp-moviproc                        as handle
field h-buffer-moviproc                                as handle
field h-buffer-movimen-proced-compl        as handle
field cd-tab-preco-proc                like moviproc.cd-tab-preco-proc

field dt-publicacao-pacote                           as date.

Definição campo a campo da tabela de entrada

• • in-evento-programa – Evento do programa que chama a cpc-rcapi021.p. 
  • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. 
  • 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.
  • cd-local-atendimento - Local de atendimento.
  • vl-cobrado-div-hono - Valor cobrado referente à divisão de honorários.
  • vl-principal-div-hono - Valor principal referente à divisão de honorários.
  • vl-auxiliar-div-hono - Valor auxiliar referente à divisão de honorários.           
  • vl-taxa-out-uni-cobrado-div-hono - Valor da taxa referente ao valor cobrado da divisão de honorários.
  • vl-taxa-out-uni-prin-div-hono - Valor da taxa referente ao valor principal da divisão de honorários.
  • vl-taxa-out-uni-auxi-div-hono - Valor da taxa referente ao valor auxiliar da divisão de honorários.
  • lg-simula - Indica se o processo é uma simulação.
  • cd-esp-amb - os dígitos 1-2 do código do procedimento;
  • cd-proce-amb - os dígitos 5-7 do código do procedimento;
  • dv-procedimento - dígito verificador do código do procedimento;
  • cd-motivo-alta - código do motivo de alta;
  • cd-faturamento - código do tipo de faturamento;
  • nm-decl-nasc-viv - declaração de nascido vivo;
  • nm-decl-obito - declaração de óbito;
  • cd-unidade-pagamento - código da unidade do prestador de pagamento;
  • cd-prestador - pagamento - código do prestador de pagamento;
  • tp-tec-util - código da técnica utilizada
  • h-moviproc - handle para a tabela temporária tmp-moviproc
  • r-movto - rowid do procedimento (tabela ambproce)
  • h-buffer-tmp-docrecon - handle para o buffer do registro corrente da tabela temporária tmp-docrecon
  • h-buffer-tmp-moviproc - handle para o buffer do registro corrente da tabela temporária tmp-moviproc
  • h-buffer-moviproc - handle para o buffer do registro corrente da tabela moviproc
  • h-buffer-movimen-proced-compl - handle para o buffer do registro corrente da tabela movimen-proced-compl
  • cd-tab-preco-proc - tabela de quantidade de moedas para pagamento
  • dt-publicacao-pacote - data do pacote sispac

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
field lg-prossegue                                              as logical initial yes
field lg-altera-classe-erro                                  as logical
field lg-calcula-vl-glosado                                 as logical initial yes
field lg-trab-cooperado                                     as logical
field r-movto-saida                                            as rowid
field lg-alt-cd-tab-preco-proc    as logical
field cd-tab-preco-proc           like moviproc.cd-tab-preco-proc.

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.
    • lg-prossegue - Indica se continua a execução ou não.
    • lg-altera-classe-erro - Indica se irá alterar a classe de erro com a classe de erro informada na tabela de saída.
    • lg-calcula-vl-glosado - indica para considerar valor glosado.
    • lg-trab-cooperado - indica se o procedimento foi realizado por um médico cooperado
    • r-movto-saida - rowid do procedimento (tabela ambproce)
    • lg-alt-cd-tab-preco-proc - indica se a tabela de quantidade de moedas para pagamento deve ser alterada com a retornada da CPC
    • cd-tab-preco-proc - tabela de quantidade de moedas para pagamento