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.

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.

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