cpc-ppapi001.p1

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".
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.
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.
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".
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.
Definição campo a campo da tabela de entrada
r-movimento – Não utilizado
r-inss – Não utilizado
r-pagapres – Não utilizado
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.
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.
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;