CPC-FP0711C.p

• Rotina utilizada no cálculo do faturamento de participação para alterar dados da tabela temporária que será utilizada pela rotina de cálculo (rtclpart.p). Rotina utilizada na geração do faturamento de participação e no cálculo da base do imposto.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
• Será utilizado para esta CPC apenas um registro na tabela temporária de saída.

Localização

• Dentro do programa fp0711c.p, após criar a tabela temporária utilizada pela rotina de cálculo de participação (tmp-rtclpart). Retorna a quantidade do movimento, que poderá ser alterado.
• No programa fp0711c.p, após gravar os dados da nota de participação.
• No programa fp0711c.p, no cálculo da base do imposto.
• No programa fp0711c.p, antes de buscar o valor da franquia de internação para calcular os movimentos.
• No programa fp0711c.p, na leitura dos Termos de Adesão.
• No programa fp0711c.p, no calculo do limite de participação.
• Após a valorização dos insumos.
• Após a troca de contratante.
• Após o cálculo de franquia.

Ponto de Utilização

• "ALT-TMP-RTCLPAR"
• "APOS-GERACAO"
• "CALC-BASE-IMP"
• "INTER-FRANQUIA"
• "VERIFICA-TERMO"
• "LIMITE-PART"
• "APOSVALORIZAINS"
• "TRATA-FORMA-PAG"
• "APÓS-CALC-FRANQ"

Include das definições das tabelas temporárias

• cpc-fp0711c.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-fp0711c-entrada

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

field nm-ponto-chamada-cpc                  as char format "x(06)"
field lg-mensagem-na-tela                     as log
field nr-rowid-proposta                          as rowid
field dt-base-valor                                as date
field cd-modulo                                    as int format "999"
field nr-rowid-notaserv                          as rowid
field lg-prestador-cooperado                  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 qt-dias-inter                                 as int
field vl-mov                                         as dec
field dt-emissao                                   as date format "99/99/9999"
field r-ter-ade                                      as rowid.
field cd-modalidade                             like propost.cd-modalidade
field cd-plano                                      like propost.cd-plano
field cd-tipo-plano                                like propost.cd-tipo-plano
field dt-validade                                  as date
field r-mov-insu                                   as rowid
field nr-proposta                                 like propost.nr-proposta
field vl-internacao                               as dec
field vl-franq-internacao                       as dec.

Definição campo a campo da tabela de entrada

• nm-ponto-chamada-cpc – Indica o ponto de chamada, que pode ser "ALT-TMP-RTCLPAR", "APOS-GERACAO", "VERIFICA-TERMO", "TRATA-FORMA-PAG", "APÓS-CALC-FRANQ".
• lg-mensagem-na-tela – Indica se as mensagens de erro devem ser dispostas na tela ou não. Caso o indicador for não o campo da tabela de saída ds-mensagem-relatorio deve ser preenchido. (não obrigatório).
• nr-rowid-proposta – Identificação do registro da proposta
• dt-base-valor – Data base do movimento.
• cd-modulo – Código do módulo do movimento
• nr-rowid-notaserv – Identificação do registro da nota de serviço
• lg-prestador-cooperado - identificação do prestador se é cooperado ou credenciado.
• 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.
• qt-dias-inter – Quantidade de dias de Internação do Movimento.
• vl-mov – Valor do Movimento.
• dt-emissao – Data de emissão do movimento.
• r-ter-ade - Campo que passa para a CPC o registro da tabela de Termo de Adesão.
• cd-modalidade – Código da modalidade
• cd-plano – Código do plano
• cd-tipo-plano – Código do tipo de plano
• dt-validade – Data de validade
• r-mov-insu – Rowid do movimento
• nr-proposta – Número da Proposta
• vl-internacao – Valor de Internação
• vl-franq-internacao – Valor da franquia de internação

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

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

field qt-movto                                       like mov-insu.qt-insumo
field lg-undo-retry                                 as logical
field ds-mensagem-erro                         as char format "x(75)"
field lg-continua                                   as log initial yes
field vl-base-imp                                  like fatueven.vl-evento
field vl-franquia                                   as dec
field vl-real-pago                                  like mov-insu.vl-real-pago.

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

• qt-movto – Retorna a quantidade do movimento alterada.
• lg-undo-retry – Indica se ocorreu erro durante processamento da cpc.
• ds-mensagem-erro – Retorna a descrição da mensagem de erro caso tenha ocorrido erro na cpc.
• 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.
• vl-franquia – Valor da franquia de internação que está sendo buscada pela cpc.
• vl-real-pago – Valor real pago pelo módulo de pagamentos que está sendo buscado pela cpc.