Histórico da Página
CPC-FP0711A.p
Produto: | Gestão de Planos de Saúde |
Módulo: | Todos |
Versão: | 12.x.x |
Assuntos: | cpc-fp0711a.p |
- Rotina utilizada no cálculo do faturamento para substituir a marca do congelamento (suspensão do reajuste) quando o beneficiário estiver congelado. Se a CPC estiver ativa, vale a regra da CPC.
- Rotina utilizada para tratar se proposta vai ser faturada ou não.
- Rotina utilizada para tratar alterações no valor da base de cálculo 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.
...
- Dentro da include fp0711a.i9, no procedimento que calcula a faixa etária no momento que foi suspenço suspenso o reajuste para o beneficiário;
- Para o ponto "TRATA-PROPOSTA", dentro do programa fp0711a.p após ler a proposta.
- Para o ponto "DENTRO-SELECAO", dentro do programa fp0711a.p durante a leitura dos registros.
- Pontos CONTA-USUARIO e VER-USUARIO, no procedimento que conta usuarios faturados.
- O ponto de chamada CRITICA-BENEF situa-se no final do procedimento de geração do programa fp0711a.p.
- Dentro da include fp0711a.i9, no procedimento "le-tipleven";
...
- "ALTERA-CONG"; "TRATA-PROPOSTA"
- "CONTA-USUARIO"; VER-USUARIO
- "CALC-BASE-IMP"
- "CRITICA-BENEF"
- "INI-TIPLEVEN"
- "DENTRO-SELECAO"
Include das definições das tabelas temporárias
- cpc-fp0711a.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-fp0711a-entrada
def temp-table tmp-cpc-fp0711a-entrada no-undo
field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15)"
field cd-modalidade like usuario.cd-modalidade
field nr-ter-adesao like usuario.nr-ter-adesao
field cd-usuario like usuario.cd-usuario
field aa-mm-referencia as int format "999999"
field in-entidade like evenimp.in-entidade
field cd-imposto like evenimp.cd-imposto
field cd-evento like evenimp.cd-evento
field cd-forma-pagto as int
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 cd-contratante like notaserv.cd-contratante
field cd-contratante-origem like notaserv.cd-contratante-origem
field nr-sequencia like notaserv.nr-sequencia
...
field cod-gr-cli like contrat.cod-gr-cli initial ""
...
field nr-rowid-usuario as rowid
...
field nr-rowid-propost as rowid
...
field cd-mensagem-erro as int
...
field hStream
...
...
as handle.
Definição campo a campo da tabela de entrada
- in-evento-programa – Indica o evento, que pode ser ALTERA-CONG ou CONSULTA ou BCIMP
- nm-ponto-chamada-cpc – Indica o ponto de chamada, que pode ser ALTERA-CONG, TRATA-PROPOSTA ou CALC-BASE-IMP
- cd-modalidade – Código da modalidade do termo de adesão
- nr-ter-adesao – Número do termo do beneficiário
- cd-usuario – Código do usuário
- aa-mm-referencia – Ano e Mês de suspensão do reajuste
- 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
- cd-forma-pagto - Código da forma de pagamento
- 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.
- 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.
- cod-gr-cli - código do grupo do cliente.
- nr-rowid-usuario - id do registro da tabela usuario.
- nr-rowid-propost - id do registro da tabela propost.
- cd-mensagem-erro - código da mensagem de erro.
- hStream - handle.
...
Tabela de saída tmp-cpc-fp0711a-saida
def temp-table tmp-cpc-fp0711a-saida no-undo
field lg-undo-retry as log
...
field dt-ref-reajuste as date format "99/99/9999"
...
field ds-mensagem as char
...
field lg-continua as log initial yes
...
field vl-base-
...
imp like fatueven.vl-evento
...
field ds-retorno as char
...
field lg-next-contratante as log
...
field lg-next as log
...
field cod-gr-cli like contrat.cod-gr-cli initial ""
field lg-nao-chama-cpc-fp0711a as log
...
field lg-
...
mostra-
...
selecao as log
...
field lg-desconsidera-benef-excluido as log initial yes.
Definição campo a campo da tabela saída
- lg-undo-retry – Indica se ocorreu erro durante processamento da cpc.
- Dtdt-ref-reajuste – Data de referncia calculada da susupensao do reajuste.
- Dsds-mensagem – Mensagem de retorno da cpc.
- Lglg-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-retorno – descrição de retorno da CPC.
- lg-next-contratante - indicador de próximo contratante.
- lg-next - indicador de próximo.
- cod-gr-cli - código do grupo do cliente
- lg-nao-chama-cpc-fp0711a - indicador se deve ou não chamar a cp-fp0711a.
- lg-motra-selecao - Indica se tem informação para mostrar o filtro da seleção no relatório.
- lg-desconsidera-benef-excluido - indica se deve desconsiderar beneficiario excluído.
Tabela de saída tmp-cpc-fp0711a-contrat
def temp-table tmp-cpc-fp0711a-contrat no-undo
field lg-selecao as log format "*/ "
field cd-contratante as int
field nm-contratante as char
field in-tipo-pessoa like contrat.in-tipo-pessoa.
Definição campo a campo da tabela saída
- lg-selecao - indicador de selecao;
- cd-contratante - código do contratante
- nm-contratante - nome do contratante lg-avisa-erro - indicador de erro.
- in-tipo-pessoa - Indicador do tipo de pessoa do contratante. F - Física; J - Jurídica