Rotina utilizada para buscar e alterar a conta contábil conforme regra do cliente no cálculo do faturamento para participação e CO.
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.
Localização
Dentro da rotina rtct-contábeis.p antes de acessar as contas contábeis parametrizadas no faturamento.
Ponto de Utilização
"ALTERA"
Include das definições das tabelas temporárias
cpc-rtct-contabeis.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-rtct-contabeis-entrada
def temp-table tmp-cpc-rtct-contabeis-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 propost.cd-modalidade
field cd-plano like propost.cd-plano
field cd-tipo-plano like propost.cd-tipo-plano
field nr-ter-adesao like propost.nr-ter-adesao
field cd-evento like tipleven-ct.cd-evento
field cd-modulo like tipleven-ct.cd-modulo
field aa-validade like tipleven-ct.aa-validade
field mm-validade like tipleven-ct.mm-validade
field cd-unidade-carteira like moviproc.cd-unidade-carteira
field cd-usuario like usuario.cd-usuario.
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa que chama a cpc-rtct-contabeis.p.
""ALTERA"".
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa rtct-contabeis.p:
"CONTA-CONTABIL"
cd-modalidade – Modalidade do beneficiário.
cd-plano - Código de identificação do Plano de Saúde.
cd-tipo-plano – Código de identificação do Tipo de Plano de Saúde.
nr-ter-adesao – Numero do termo de adesão do beneficiário (contrato).
cd-evento – Código de Identificação do evento do faturamento.
cd-modulo – Código de Identificação do modulo.
aa-validade - Ano de validade da conta contábil
mm-validade – Mês de validade da conta contábil
cd-unidade-carteira – Identificação da unidade da carteira do beneficiario
cd-usuario – Código de identificação do Usuário
Tabela de saída tmp-cpc-rtct-contabeis–saida
def temp-table tmp-cpc-rtct-contabeis-saida no-undo
field lg-undo-retry as log
field ds-mensagem as char format "x(75)"
field ct-codigo like tipleven-ct.ct-codigo
field sc-codigo like tipleven-ct.sc-codigo
field ct-codigo-diferenca like tipleven-ct.ct-codigo-diferenca
field sc-codigo-diferenca like tipleven-ct.sc-codigo-diferenca.
Definição campo a campo da tabela de saída
lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros acontecerem e NÃO se o processo foi concluído por completo.
ds-mensagem - Retorna a mensagem da cpc.
Ct-codigo – Código da conta contábil;
Sc-codigo – Código do centro de custo;
Ct-codigo-diferenca – Código da conta contábil da diferença;
Sc-codigo-diferenca – Código do centro de custo da diferneça.