Histórico da Página

...

• 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).

Ponto de Utilização

• 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 ""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 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.

...

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.

Definição campo a campo da tabela de entrada

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
• 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

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

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

• 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 field lg-undo-retry                                                     as log as int format "99999999"
field dsqt-mensagem-relatorio proc-base                                                     as charint
field lgqt-calculatotal-iss solicitados                                                    as logas int
field vlqt-total-desconto executados                                                       as dec format "z,zzz,zz9.99"
field ds-especialid  as int
field qt-total-auto-gerados                                                    like esp-med.ds-especialid as int
field cdqt-proc-base       total-permitidos                                              as int format "99999999"
field qt-proc-base total-dif-exames                                           as int
field pc-proced-permitido                           as int              like prautger.pc-proced-permitido
field qtvl-totalauto-solicitados gerados                                               as int
field qt-total-executados    as dec format "z,zz9.99"
field in-movto-incide-inss                                        as intchar format "x(01)"
field qtvl-total-auto-gerados base-ir                                                          as int like pagapres.vl-base-ir
field qt-total-permitidos r-preseven                                                        as intas recid
field qtnr-total-dif-exames nota-parcela                                               as int like movipres.nr-nota-parcela
field pcdt-procedpagto-permitido prestador                                           like prautger like notapres.pcdt-procedpagto-permitidoprestador
field vl-auto-gerados cod-esp                                                            as dec format "z,zz9.99"
field in-movto-incide-inss  like presnego.cod-esp
field vl-movto-prin                                                    as char format "x(01)"like moviproc.vl-principal
field vl-base-ir         movto-auxi                                                  like pagapresmoviproc.vl-base-irauxiliar
field rlg-preseven proximo                                                       as recidlog
field nrlg-considera-notaeven-parcela ext                                     as log
field cd-evento                like movipres.nr-nota-parcela
field dt-pagto-prestador                                            like notapreslike evenfatu.dtcd-pagto-prestadorevento
field cod-esp                             vl-desc-prest-procedimento                                like presnego.cod-esplike moviproc.vl-desconto-prestador
field vl-movto-prin             desc-prest-insumo                                       like moviprocmov-insu.vl-principaldesconto-prestador
field vl-movtobase-auxi inss                                                   like moviproc.vl-auxiliar as dec
field lgvl-proximo inss                                                            as logdec
field lgind-consideracria-evenrelatorio-ext auger                                      as logint
field cd-evento       lg-desabilita-validacao                                  as log
field lg-busca-nr-titulo                    like evenfatu.cd-evento
field vl-desc-prest-procedimento                           like moviproc.vl-desconto-prestadoras log init yes
field vllg-descaltera-prestnr-insumo titulo                                          like mov-insu.vl-desconto-prestadoras log
field vl-base-inss  nr-titulo                                                         as decchar
field vl-inss        nr-parcela                                                      as decint

field indlg-criaexec-relatoriograva-auger  presnego                                as int as log
field lg-desabilita-validacao  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.
• "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     lg-desabilita-validacao  - indica se desabilita a validação da nota/fatura dos procedimentos/insumos.