CPC-FP0711B.p

• Rotina utilizada para a alteração do valor dos insumos;
• Rotina utilizada para a alteração do valor dos procedimentos;
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
• Rotina utilizada para exportar relatório em excel.
• 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 fp0711b.i8, após a valorização dos insumos. 
• Dentro do fp0711b.i7 após a valorização dos procedimentos.
• Dentro do fp0711b.p no cálculo da base do imposto.
• Dentro do fp0711b.p na leitura dos movimentos.
• Dentro do fp0711b.p no filtro das transações.
  
  

Ponto de Utilização

• "APOSVALORIZAINS"
• "APOSVALORIZAPRO"
• "VALIDA-MOV"
• "CALC-BASE-IMP"
• "GERA-EXCEL"
• "VERIFICA-TERMO"
• "PROC-INSU"
• "FILTRA-TRAN"
• "TRATA-CONTRATANTE"
• "APOS-TAXA"
• "INICIO-PROGRAMA" - somente no dtvw0711b-indep

Include das definições das tabelas temporárias

• cpc-fp0711b.i 

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-fp0711b-entrada

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

field in-evento-programa                      as char format "x(10)"
field nm-ponto-chamada-cpc               as char format "x(20)"
field cd-modalidade                              like mov-insu.cd-modalidade
field nr-ter-adesao                                like mov-insu.nr-ter-adesao
field cd-tipo-insumo                              like mov-insu.cd-tipo-insumo
field cd-insumo                                     like mov-insu.cd-insumo
field vl-calculo-aux                               as dec
field cd-unidade-prestadora                 like mov-insu.cd-unidade-prestadora
field r-mov-insu                                    as rowid
field in-tipo-movimento                        as char format "x(1)"
field nr-rowid-movimento                     as rowid
field lg-simulacao                                 as log
field in-entidade                                    like evenimp.in-entidade
field cd-imposto                                    like evenimp.cd-imposto
field cd-evento                                      like evenimp.cd-evento
field dt-vigencia                                    like evenimp.dt-vigencia-ini
field cd-unidade-grupo                         like evengrimp.cd-unidade-grupo
field cd-grupo-contratante                    like evengrimp.cd-grupo-contratante
field cd-compl-grupo-contrat                like evengrimp.cd-compl-grupo-contrat
field nr-insc-contratante                        like evenctrimp.nr-insc-contratante
field vl-base-imp                                   like fatueven.vl-evento
field r-ter-ade                                        as rowid

field cd-transacao-ini                            like tranrevi.cd-transacao
field cd-transacao-fim                           like tranrevi.cd-transacao
field r-moviproc-mov-insu                     as recid
field tp-movimento                                as char format "x(1)"
field r-docrecon                                    as recid
field vl-cobranca                                   like fateveco.vl-evento
field rowid-propost                                as rowid
field dt-emissao                                   as date format 99/99/9999

field nr-rowid-moviproc                       as rowid
field nr-rowid-mov-insu                       as rowid

field h-tmp-erro                                   as handle

                       field nr-rowid-pacproce                        as rowid
                       field nr-rowid-propost                          as rowid
                       field lg-valoriza                                     as log
                       field lg-cob-vl-alt                                  as log
                       field lg-calculo-separado-aux               as log
                       field vl-honorarios-medicos-aux          as dec
                       field vl-operacional-aux                       as dec
                       field vl-filme-aux                                  as dec
                       field qt-evento                                     as int.

Definição campo a campo da tabela de entrada

• • in-evento-programa – Evento do programa que chama a cpc-fp0711b.p. O valor desse campo pode ser: "CALCULO", "VALIDA-MOV"; "DENTRO-SELECAO"
  • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa fp0711b.i8 e fp0711b.i7: "APÓSVALORIZAINS", "VALIDA-MOV", "CALC-BASE-IMP", "APOSVALORIZAPRO", "VERIFICA-TERMO", "GERA-EXCEL", "PROC-INSU" ou "FILTRA_TRAN", "APOS-TAXA";
  • cd-modalidade – Código da Modalidade;
  • nr-ter-adesao – Numero do termo de adesão;
  • cd-tipo-insumo – Código do Tipo de Insumo;
  • cd-insumo – Código do Insumo;
  • vl-calculo-aux – Valor do calculo do insumo;
  • cd-unidade-prestadora – Código da Unidade Prestadora do Movimento;
  • r-mov-insu – ROWID do registro de movimentação de Insumo;
  • in-tipo-movimento – Indicador do tipo do movimento que está sendo processado;
  • nr-rowid-movimento – ROWID do movimento que está sendo processado (de acordo com o tipo de movimento – moviproc ou mov-insu);
  • lg-simulacao – Indicador se está sendo realizada uma simulação ou o cálculo do faturamento de CO;
  • in-entidade – Entidade que pertence a estrutura que está sendo calculada;
  • cd-imposto – Código do imposto que está sendo calculado;
  • cd-evento – Código do evento que está sendo calculado;
  • dt-vigencia – Data de vigência do imposto que está sendo calculada;
  • cd-unidade-grupo – Código da unidade do grupo do contratante que está sendo calculado;
  • cd-grupo-contratante – Grupo do contratante que está sendo calculado;
  • cd-compl-grupo-contratante – Código do complemento do grupo do contratante que está sendo calculado;
  • nr-insc-contratante – Número da inscrição do contratante que está sendo calculado;
  • vl-base-imp – Valor da base de cálculo do imposto que está sendo calculado;
  • r-ter-ade - Campo que passa para a CPC o registro da tabela de Termo de Adesão;
  • cd-transacao-ini - Código inicial da transação;
  • cd-transacao-fim - Código final da transação;
  • r-moviproc-mov-insu - Campo ainda não utilizado;
  • tp-movimento - Campo ainda não utilizado;
  • r-docrecon - Campo ainda não utilizado;
  • vl-cobranca - Campo ainda não utilizado;
  • rowid-propost - Rowid da tabela propost;
  • dt-emissao - Data de emissão informada em tela;
  • nr-rowid-moviproc - Campo que passa para a CPC o registro da tabela de Movimentações de Procedimentos;
  • nr-rowid-mov-insu - Campo que passa para a CPC o registro da tabela de Movimentações de Insumos.
  • h-tmp-erro - handle da tabela temporária de erro

  • nr-rowid-pacproce  - rowid da pacproce

  • nr-rowid-propost - rowid da tabela propost

  • lg-valoriza - Valor logico da valoriza

  • lg-cob-vl-alt - valor logico valor auxiliar

  • lg-calculo-separado-aux - Valor logico para calculo separado

  • vl-honorarios-medicos-aux - valor decimal para calculo honorarios

  • vl-operacional-aux  - Valor operacional auxiliar

  • vl-filme-aux - Valor filme auxiliar

  • qt-evento - Valor do evento,

Tabela de entrada-saída tmp-cpc-fp0711b-contrat

def temp-table tmp-cpc-fp0711b-contrat no-undo

        field lg-selecao                                       as log format "*/"
        field cd-contratante                                as int
        field nm-contratante                              as char.

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

• • lg-selecao – Variável que controla se os registros foram selecionados;
  • cd-contratante - Código do contratante do termo;
  • nm-contratante - Nome do contratante do termo.

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

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

field lg-undo-retry                                as logical
field ds-mensagem-relatorio               as char format "x(75)"
field vl-calculo-aux                              as dec
field lg-continua                                   as log
field vl-base-imp                                  like fatueven.vl-evento

field ds-selecao                                   as log format "*/ "
field cd-transacao                               as int format 9999
field ds-transacao                               like tranrevi.ds-transacao
field lg-contas-fechadas                      like tranrevi.u-log-1
field ds-mensagem                             as char format "x(75)"
field vl-cobranca                                 like fateveco.vl-evento

field lg-desconsidera-movimento       as log

field lg-calculo-separado-aux             as log
field lg-next-contratante                     as log
field ds-mensagem-retorno                as char format "x(75)" 

field qt-pago                                       as int. 

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

• • lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros acontecerem e NÃO se o processo foi concluído por completo;
  • ds-mensagem-relatorio – Deve conter mensagem de erro ou qualquer outro tipo de mensagem;
  • vl-calculo-aux – Valor do calculo do insumo;
  • lg-continua – Indica se processo deve continuar ou não;
  • vl-base-imp – Valor da base de cálculo do imposto que está sendo calculado pela cpc;
  • ds-selecao - Campo ainda não utilizado;
  • cd-transacao - Código da transação;
  • ds-transacao - Descrição da transação;
  • lg-contas-fechadas - Campo ainda não utilizado;
  • ds-mensagem - Armazena a mensagem de erro;
  • vl-cobranca - Campo ainda não utilizado;
  • lg-desconsidera-movimento - Indica se o movimento será desconsiderado do processo de faturamento e também do relatório de inconsistências;
  • lg-calculo-separado-aux - Indica se executa cálculo separado;
  • lg-next-contratante - Indica se deve desconsiderar o contratante;
  • ds-mensagem-retorno - Armazena a mensagem de retorno.
  • qt-pago - Indicador de quantidade pago do insumo.