CPC-FP0711F.P

Rotina utilizada para:

• criação de eventos de desconto de forma específica
• não considerar o beneficiário na contagem dos beneficiários
• não considerar o beneficiário no faturamento do mês em questão
• tratar se proposta será processada no faturamento
• 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.

Ponto de Utilização

• "CRIA-EVEN-PROG"
• "COBRA-PROX-MES"
• "TRATA-PROPOSTA"
• "CONTA-USUARIO" , "VER-USUARIO"
• "CRITICA-BENEF"

Include das definições das tabelas temporárias

• cpc-fp0711f.i

Localização

• Dentro do programa fp0711f.p, anterior a criação da nota;
• Dentro do programa fp0711f.p, no momento da contagem dos beneficiários;
• Dentro do perograma fp0711f.p, no momento da leitura dos beneficiários;
• Dentro do programa fp0711f.p, após leitura da proposta
• Pontos CONTA-USUARIO e VER-USUARIO, no procedimento que conta usuarios faturados.
• Ponto "CRITICA-BENEF" é chamado após calcular os valores por beneficiário dentro do programa fp0711f.p.

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-fp0711f-entrada

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

field in-evento-programa                as char format "x(10)"
field nm-ponto-chamada                as char format "x(15)"
field vl-total-nota                             like notaserv.vl-total
field nr-rowid-usuario                      as rowid
field dt-emissao-aux                       as date
field tt-valor-tot                                as dec format ">>>,>>>,>>9.9999"
field qt-usuario                                as int
field cd-modalidade                        like propost.cd-modalidade
field nr-proposta                             like propost.nr-proposta
field cd-plano                                  like propost.cd-plano
field cd-tipo-plano                           like propost.cd-tipo-plano
field mm-referencia                       as int format "99"
field aa-referencia                          as int format "9999"
field dt-referencia                           as date
field nr-ter-adesao                          like propost.nr-ter-adesao
field cd-contratante                        like propost.cd-contratante
field cd-contratante-origem           like propost.cd-contratante
field nr-sequencia                          like notaserv.nr-sequencia.

Definição campo a campo da tabela de entrada

• • nm-ponto-chamada-cpc – Ponto de chamada de cpc
  • in-evento-programa – Identifica qual evento deve ser executado no momento que está sendo chamada
  • r-proposta – número do registro no banco da tabela referente a proposta
  • vl-total-nota – Valor total da nota calculado até o momento
  • nr-rowid-usuario – número do registro no banco da tabela referente ao beneficiário
  • dt-emissao-aux – data de emissão da nota de serviço em questão
  • tt-valor-tot – valor total da nota se serviço com descontos
  • qt-usuario - quantidade de beneficiários ativos
  • cd-modalidade – código da modalidade do beneficiário
  • nr-proposta – número da proposta do beneficiário
  • cd-plano – código do plano de saúde
  • cd-tipo-plano – código do tipo de plano
  • mm-referencia – mês de referência
  • aa-referencia –ano de referência
  • dt-referencia –data de referência
  • nr-ter-adesao – número do termo de adesão
  • cd-contratante – código do contratante/cliente associado ao administrativo
  • cd-contratante-origem – código do contratante origem
  • nr-sequencia – número da sequência da nota de serviço.

Tabela de entrada-saída wk-evento-imposto

def temp-table wk-evento-imposto no-undo

field cd-evento                           like fatueven.cd-evento
field cd-imposto                         like dzimposto.cd-imposto
field vl-base                               as dec
field pc-aliquota                         like evenimp.pc-aliquota

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

• • cd-evento– código do evento relacionado ao desconto
  • cd-imposto – Código do imposto considerado no cálculo
  • vl-base– valor a ser considerado para cálculo de imposto
  • pc-aliquota – percentual de alíquota relacionado ao evento

Observação: essa tabela é considerada apenas no ponto de chamada "CRIA-EVEN-PROG"

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

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

         field lg-undo-retry                     as logical
         field ds-mensagem-erro                  as char format "x(75)"
         field vl-total-nota                     like notaserv.vl-total
         field lg-desconsidera-registro          as log
         field tt-valor-tot                      as dec  format ">>>,>>>,>>9.9999"
         field qt-usuario                        as int
         field ds-retorno                        as char
         field lg-desconsidera-benef-excluido    as log initial yes.

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

• • lg-undo-retry –controla os erros que podem ocorrer na CPC.
  • ds-mensagem-erro – recebe a descrição dos erros que ocorreram na CPC.
  • vl-total-nota – recebe o valor da nota alterado.
  • lg-desconsidera-registro – indica se beneficiário será desconsiderado do faturamento do mês em questão.
  • tt-valor-tot – valor total da nota se serviço com descontos
  • qt-usuario – quantidade de beneficiários ativos
  • ds-retorno – descrição de retorno da CPC.
  • lg-desconsidera-benef-excluido - indica se deve desconsiderar beneficiario excluído.