CPC-PPAPI001.P

Produto:	Gestão de Planos de Saúde
Módulo:	Todos
Versão:	12.x.x
Assuntos:	cpc-ppapi001.p

Rotina para:

Tratar se será calculado ou não o ISS do prestador, para o ponto de chamada "ISENTA-ISS";
Executar cálculo especifico do pagamento de prestadores, para o ponto de chamada "CALC-ESPECIFICO";
Efetuar a consistência dos prestadores, para o ponto de chamada "TRATA-PRESTADOR";
Efetuar a consistência/validação/atualização referente a movimentos extras e de descontos para determinados prestadores durante o processo de calculo do pagamento de prestadores, para o ponto de chamada ATU-MOVIPRES";
Efetuar a validação/consistências epsecificas da operadora quando da finalização do processo de calculo/simulação do processso de pagamento de prestadores, para o ponto de chamada "FIM-SELECAO";
Efetuar a aplicação da regra de procedimentos auto-gerados, para o ponto de chamada "AUTO-GERADOS";
Tratar se será calculado ou não INSS para prestadores cooperados e pessoa física nos movimentos de insumo para o ponto de chamada "INCIDE-INSS";
Alterar o evento de pagamento dos movimentos, para o ponto de chamada "SETA-EVENTO";
Efetuar a criação da tabela de movimentos extras e/ou descontos, para o ponto de chamada "ATU-MOVTO";
Atualizar o status dos títulos vinculados a fatura do RC, para o ponto de chamada "PAGTO-NOTA";
Utilizar a espécie parametrizada na negociação do prestador para geração do título quando o cálculo estiver sendo realizado por fatura, para o ponto de chamada "ALT-ESP";
Alterar o valor de pagamento do movimento, para o ponto de chamada "ALT-VLR-PAGTO";
Modificar o pagamento das clínicas para que o cálculo se dê através do conceito de autogerados, para o ponto de chamada "ANTES-MOV-TIT".
Calcular a base de INSS de eventos de desconto de pagamento do prestador, para o ponto de chamada "INSS-EVE-DESC".
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 apenas um registro na tabela temporária de saída. Caso possuir mais de um registro um erro será reportado.
Tratar se considerá movimento extra no cálculo "EXTRA-PAGAPRES".
Tratar se considera movimento de produção no cálculo "ANTES-PAGAPRES".
Incluir evento extra no pagamento "INC-EVEN-EXTRA-DESC".
Tratar se considera procedimentos de transação de reembolso pertencentes a documentos incluídos com nota/fatura pelo ponto de CPC "ANTES-PROC-NOTA";
Tratar se considera procedimentos de transação de reembolso pertencentes a documentos incluídos com nota/fatura pelo ponto de CPC "ANTES-INSU-NOTA".
Ajusta o título gerado para que tenha o mesmo número da fatura pelo ponto de CPC "CRIA-PAGAPRES".
Alterar o valor do número do titulo da fatura pelo ponto de CPC "INI-GER-NR-TIT".
Realizar buscas a partir da notapres pelo ponto de CPC "ANTES-TIPOMEDI".

Localização

Dentro do programa PPAPI001.P, o ponto de chamada "ISENTA-ISS" é chamado após a consistência do prestador. É passado através da temp-table de entrada o endereço do prestador e a data da produção e retornado na temp-table de saída tratamento de erro e se calcula ou não o ISS para o prestador.
Dentro do programa PPAPI001.P, o ponto de chamada "CALC-ESPECIFICO" é chamado antes da realização da previsão/calculo do pagamento de prestadores.
Dentro do programa PPAPI001.P, o ponto de chamada "TRATA-PRESTADOR" é chamado após acessar a tabela de médicos e prestadores.
Dentro do programa PPAPI001.P, o ponto de chamada "ATU-MOVIPRES" e acionado quando da atualização do movimentos extra ou de desconto no processo de calculo do pagamento para o prestador;
Dentro do programa PPAPI001.P, o ponto de chamada "FIM-SELECAO" e acionado quando da finalização do processo de calculo/simulação do pagamento para o prestador;
Dentro do programa PPAPI001.P, o ponto de chamada "AUTO-GERADOS" e acionado quando da seleção do processo de simulação/calculo dos auto-gerados, sobrepondo toda a regra de auto gerados do produto padrão.
Dentro do programa PPAPI001.P, o ponto de chamada "INCIDE-INSS" é chamado no cálculo da base para o INSS apenas para movimentos de insumo e para prestadores cooperados e pessoa física. Pela temp-table de entrada é passado o ponto de chamada e é retornado na temp table de saída um valor lógico se deve ou não calcular INSS para o prestador.
Dentro do programa ppapi001.p, o ponto de chamada "SETA-EVENTO" é acionado após identificar o evento para pagamento possibilitando a troca do evento.
Dentro do programa ppapi001.p, o ponto de chamada "ATU-MOVTO" é acionado para efetuar a criação da tabela de movimentos extras e/ou desconto quando for efetuada a troca do evento de pagamento parametrizado para o prestador.
Dentro do programa ppapi001.p, o ponto de chamada "PAGTO-NOTA" é acionado para atualizar o status dos títulos vinculados a fatura do RC.
Dentro do programa ppapi001.p o ponto de chamada "ALT-ESP" é acionado para utilizar a espécie parametrizada na negociação do prestador para geração do título quando o cálculo estiver sendo realizado por fatura.
Dentro do programa ppapi001.p o ponto de chamada "ALT-VLR-PAGTO" é acionado para alterar o valor de pagamento do movimento.
Dentro do programa ppapi001.p o ponto de chamada "ANTES-MOV-TIT" é acionado antes de realizar a leitura da pagapres.
Dentro do programa ppapi001.p o ponto de chamada "INSS-EVE-DESC" é chamado em eventos de desconto da pagapres.
Dentro do programa ppapi001.p o ponto de chamada "EXTRA-PAGAPRES" é chamado na leitura dos eventos extra.
Dentro do programa ppapi001.p o ponto de chamada "ANTES-PAGAPRES" é chamado na leitura dos movimentos de produção.
Dentro do programa ppapi001-indep.p o ponto de chamada "ANT-EVE-PG-INTG" é chamado antes de gerar o evento de pagamento integral para faturas de intercâmbio.
Dentro do programa ppapi001.p, ppapi001-indep.p e ppapi001-indep-unif.p o ponto de chamada "INC-EVEN-EXTRA-DESC" é chamado antes de criar o titulo.
Dentro do programa ppapi001-indep.p o ponto de chamada "DPS-EVE-PG-INTG" é chamado depois de gerar o evento de pagamento integral para faturas de intercâmbio.
Dentro do programa ppapi001.p o ponto de chamada "ANTES-PROC-NOTA" é chamado antes de validar a nota/fatura do procedimento;
Dentro do programa ppapi001.p o ponto de chamada "ANTES-INSU-NOTA" é chamado antes de validar a nota/fatura do insumo;
Dentro do programa ppapi001-indep.p o ponto de chamada "ANTES-PROC-NOTA" é chamado antes de validar a nota/fatura do procedimento;
Dentro do programa ppapi001-indep.p o ponto de chamada "ANTES-INSU-NOTA" é chamado antes de validar a nota/fatura do insumo.
Dentro do programa ppapi001.p o ponto de chamada "GRAVA-PRODUCAO" é chamado após criação do título (tabela titupres).
Dentro do programa ppapi001.p e ppapi001-indep.p o ponto de chamada "CRIA-PAGAPRES" é chamado após a criação da pagapres.
Dentro do programa ppapi001.p e ppapi001-indep.p o ponto de chamada "INI-GER-NR-TIT" é chamado ao gerar título por fatura.
Dentro do programa ppapi001.p, ppapi001-indep.p e ppapi001-indep-unif o ponto de chamada "ANTES-TIPOMEDI" antes de ser realizada a busca da tabela "TIPOMEDI" na procedure "p-logica-notapres".

Ponto de Utilização

"ISENTA-ISS", "CALC-ESPECIFICO", "TRATA-PRESTADOR", "ATU-MOVIPRES", "FIM-SELECAO", "AUTO-GERADOS", "INCIDE-INSS", "SETA-EVENTO", "ATU-MOVTO", PAGTO-NOTA", "ALT-ESP", "ALT-VLR-PAGTO" e "ANTES-MOV-TIT", "INSS-EVE-DESC", "EXTRA-PAGAPRES", "ANTES-PAGAPRES", "ANT-EVE-PG-INTG" - liberação a partir da 12.1.2301.
"INC-EXTRA-DESC", "DPS-EVE-PG-INTG", "ANTES-PROC-NOTA", "ANTES-INSU-NOTA" - liberação a partir da 12.1.2307.
"CRIA-PAGAPRES", "INI-GER-NR-TIT", "AP-GRV-PAGAPRES", "ANTES-TIPOMEDI" - liberação a partir da 12.1.2403.

IMPORTANTE: Como foi liberada, em produto, a opção de incidência de INSS em eventos de desconto, deve ser revisado se o ponto "INSS-EVE-DESC" ainda deve ser utilizado.

Include das definições das tabelas temporárias

cpc-ppapi001.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-ppapi001-entrada

def temp-table tmp-cpc-ppapi001-entrada no-undo

field r-movimento as recid
field r-inss as recid
field r-pagapres as recid
field r-preserv as recid
field r-movipres as rowid
field nr-nota-parcela like movipres.nr-nota-parcela
field dt-producao as date
field nm-ponto-chamada-cpc as char format "x(15)"
field in-evento-programa as char format "x(10)"
field cd-unidade like pagapres.cd-unidade-prestador
field cd-prestador like pagapres.cd-prestador
field in-movtos-internacao as int
field lg-considera-tipo-clin as log
field in-considera-movtos as int
field in-liberado-1 as char format "x(01)"
field in-liberado-2 as char format "x(01)"
field in-selec-tp-movto as char format "x(21)"
field in-movto as char format "x(01)"
field r-notapres as recid
field cd-unidade-pagto like preserv.cd-unidade
field cd-prestador-pagto like preserv.cd-prestador
field cd-unidade-nota like preserv.cd-unidade
field cd-prestador-nota like preserv.cd-prestador
field cod-esp like presnego.cod-esp
field lg-glosa-parcial as log
field cd-unidade-prestador like moviproc.cd-unidade-prestador
field cd-tipo-vinculo like moviproc.cd-tipo-vinculo
field in-resultado-divisao like moviproc.in-resultado-divisao
field dt-anoref like moviproc.dt-anoref
field nr-perref like moviproc.nr-perref
field lg-periodo as log
field lg-considera-even-ext as log
field lg-primeira-vez as log
field in-liberado-contas as char
field in-liberado-pagto as char
field cd-unidade-pagamento as int
field cd-prestador-pagamento as int
field cd-tipo-medicina-ini as int
field cd-tipo-medicina-fim as int
field in-calculo-pagamento as char format "x(1)"
field vl-liquido like moviproc.vl-principal
field vl-movto-aux like pagapres.vl-movto-prin
field vl-desc-prest like moviproc.vl-desconto-prestador
field ds-processo like pagapres.ds-processo
field cd-unidade-sel like preserv.cd-unidade
field lg-valor-ou-cobranca as log
field lg-paga-valor-zerado as log
field vl-base-inss as dec
field dt-vencimento                                  as date
field dt-periodo-ini as date
field dt-periodo-fim as date
field vl-inss as dec
field nm-arquivo-imp                                 as char
field cd-evento-imp like evenfatu.cd-evento
field lg-considera-prest-imp                      as log
field lg-gera-evento-deb-imp as log
field vl-base-irrf as dec
field vl-irrf as dec
field r-moviproc as rowid
field r-mov-insu as rowid
field cod-fatur-ap like pagapres.cod-fatur-ap
field lg-reembolso as logical
field cd-grupo-prestador as int.

Definição campo a campo da tabela de entrada

r-movimento – Não utilizado
r-inss – Não utilizado
r-pagapres – Recid da tabela pagapres
r-preserv – Rowid da tabela PRESERV.
r-movipres – Rowid da tabela MOVIPRES
nr-nota-parcela – Número da parcela da nota.
dt-produção – Data da produção informado nos parâmetros do programa
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc
in-evento-programa – Define o tipo de evento que está acionando a CPC. Poderá ser "CALCULO" ou "PREVISAO".
cd-unidade – Código da Unidade do prestador
cd-prestador – Código do prestador
in-movtos-internacao – Indicador para considerar ou não apenas movimentos de internação. Valor 1, considera apenas movimentos de internação e zero considera qualquer tipo de movimento
lg-considera-tipo-clinica – Define se será ou não considerado o intervalo de tipos de clincias
in-considera-movtos – Indicador para considerar ou não movimentos em que o prestador principal e o prestador executante são iguais. Valor 0, considera os movimentos e um desconsidera o movimento
in-liberado-1 – Indica se somente será considerados os movimentos liberados do contas ou não;
in-liberado-2 – Indica se somente será considerados os movimentos liberados do contas ou não
in-selec-tp-movto – Indicador do tipo produtos que serão considerados na seleção dos movimentos. Valor 1, somente movimento de pré-pagamento, igual a 2, somente movimentos de Custo Operacional e 3, ambos os tipos de movimentos.
in-movto – Indicador de procedimento ou insumo;
r-notapres – Recid da tabela notapres;
cd-unidade-pagto – Código da unidade de pagamento;
cd-prestador-pagto – Código do prestador de pagamento;
cd-unidade-nota – Código da unidade da fatura do RC;
cd-prestador-nota – Código do prestador da fatura do RC;
cod-esp – Código da espécie;
lg-glosa-parcial – Indica se o movimento foi glosado parcialmente
vl-base-inss - Valor da base de INSS acumulado
dt-vencimento - Data de vencimento do título
dt-periodo-ini - Data inicial do período do pagamento
dt-periodo-fim - Data final do período do pagamento
vl-inss - Valor do INSS calculado pelo sistema.
nm-arquivo-imp - Nome do arquivo CSV a ser importado.
cd-evento-imp - Código do evento que será criado.
lg-considera-prest-imp - Variável que indica se considera prestadores excluídos/suspensos
lg-gera-evento-deb-imp - Variável que indica se cria ou não evento (movipres)
vl-base-irrf - Valor base de cálculo do IR
vl-irrf - Valor referente ao imposto IR
r-moviproc - Rowid da tabela moviproc
r-mov-insu - Rowid da tabela mov-insu
cod-fatur-ap - Código da fatura da pagapres
lg-reembolso - Indica se é reembolso ou não
cd-grupo-prestador - Código do grupo do prestador.

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

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

field lg-undo-retry as log
field ds-mensagem-relatorio as char
field lg-calcula-iss as log
field vl-desconto as dec format "z,zzz,zz9.99"
field ds-especialid like esp-med.ds-especialid
field cd-proc-base as int format "99999999"
field qt-proc-base as int
field qt-total-solicitados as int
field qt-total-executados as int
field qt-total-auto-gerados as int
field qt-total-permitidos as int
field qt-total-dif-exames as int
field pc-proced-permitido like prautger.pc-proced-permitido
field vl-auto-gerados as dec format "z,zz9.99"
field in-movto-incide-inss as char format "x(01)"
field vl-base-ir like pagapres.vl-base-ir
field r-preseven as recid
field nr-nota-parcela like movipres.nr-nota-parcela
field dt-pagto-prestador like notapres.dt-pagto-prestador
field cod-esp like presnego.cod-esp
field vl-movto-prin like moviproc.vl-principal
field vl-movto-auxi like moviproc.vl-auxiliar
field lg-proximo as log
field lg-considera-even-ext as log
field cd-evento like evenfatu.cd-evento
field vl-desc-prest-procedimento like moviproc.vl-desconto-prestador
field vl-desc-prest-insumo like mov-insu.vl-desconto-prestador
field vl-base-inss as dec
field vl-inss as dec
field ind-cria-relatorio-auger as int
field lg-desabilita-validacao as log
field lg-busca-nr-titulo as log init yes
field lg-altera-nr-titulo as log
field nr-titulo as char
field nr-parcela as int

field lg-exec-grava-presnego as log
field lg-grava-presnego as log init yes.

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

lg-undo-retry – Variável que controla os erros que podem ocorrer na CPC
ds-mensagem-relatorio – Variável que recebe a descrição dos erros que ocorreram na CPC
lg-calcula-iss – Variável que retorna se calcula ISS para o prestador.
vl-desconto – Valor do desconto que será gerado contra o prestador em virtude de ultrapassar a quantidade permitida para execução pelo prestador de aeventos auto-gerados;
ds-especialid – Descrição da especialidade médica
cd-proc-base – Código do procedimento Base referente ao procedimentos Auto Gerados;
qt-proc-base – Quantidade de procedimento base realizado;
qt-total-solicitados – Quantidade total de procedimentos (auto-gerado) solicitados ao prestador;
qt-total-executados – Quantidade total de procedimentos (auto-gerado) executados pelo prestador;
qt-total-auto-gerados – Quantidade total de procedimentos (auto-gerado) executados pelo prestador em que ele é também é o prestador solicitante;
qt-total-permitidos – Quantidade total de procedimentos auto-gerado PERMITIDOS para execução pelo prestador;
qt-total-dif-exames - Quantidade total de procedimentos auto-gerado que ultrapassaram a quantidade permitida para execução pelo prestador;
pc-proced-permitido - Percentual de procedimentos permitidos de serem auto-gerados, sobre a quantidade de procedimentos base executados;
vl-auto-gerados – Valor total dos eventos auto-gerados;
in-movto-incide-inss: - Variável que retorna sobre qual tipo de movimento será a incidência de INSS, valores possíveis: "A" – incide INSS sobre procedimentos e insumos; "I" – incide INSS sobre insumos; "P" – incide INSS sobre procedimentos;
r-preseven – Recid da tabela preseven;
nr-nota-parcela – Numero da nota/parcela;
cod-esp – Código da espécie;
vl-movto-prin – Valor principal do movimento;
vl-movto-aux – Valor auxiliar do movimento
vl-base-inss - Valor da base do calculo do INSS;
vl-inss - Valor de INSS calculado
ind-cria-relatorio-auger - Indicador se deve criar informações relatório auto gerados.
lg-desabilita-validacao - Indica se desabilita a validação da nota/fatura dos procedimentos/insumos.
lg-busca-nr-titulo - Indica se deve executar lógica do produto para buscar o número do título.
lg-altera-nr-titulo - Indica se deve alterar o número do título com o valor retornado da cpc.
nr-titulo - Número do título retornado pela cpc.
nr-parcela - Número da parcela retornado pela cpc.
lg-exec-grava-presnego - Indica se deve executar
lg-grava-presnego - Indica se deve gravar