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

                            field in-atos-cooperados                        as int format "9"
                            field cd-contratante                                 like contrat.cd-contratante
                            field nm-contratante                                like contrat.nm-contratante
                            field nr-rowid-movimento                        as rowid
                            field in-tipo-movimento                            as char
                            field cd-unidade                                       like moviproc.cd-unidade
                            field cd-unidade-prestadora                    like moviproc.cd-unidade-prestadora

                            field cd-transacao                                    like moviproc.cd-transacao
                            field nr-serie-doc-original                         like moviproc.nr-serie-doc-original
                            field nr-doc-original                                  like moviproc.nr-doc-original
                            field nr-doc-sistema                                 like moviproc.nr-doc-sistema
                            field nr-processo                                      like moviproc.nr-processo
                            field nr-seq-digitacao                               like moviproc.nr-seq-digitacao
                            field h-tmp-erro                                        as handle.

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
• h-tmp-erro - handle da tabela temporária de erro.

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

                            field cd-modalidade                             like tiplesp.cd-modalidade
                            field cd-plano                                       like tiplesp.cd-plano
                            field cd-tipo-plano                                like tiplesp.cd-tipo-plano.

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.