cpc-fp0711c.p1

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 calulado.
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.