cpc-pp0710f.p0

Rotina que permitirá buscar e alterar a conta contábil por procedimento de acordo com a regra específica do cliente.
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 estes serão desconsiderados.
Localização
Dentro do programa pp0710f.p e pp0710h.p, ao buscar a conta contábil.
Ponto de Utilização
"CONS-DEEVENDESP"
"CT-CONTABIL"
"CT-GLOSA"
Include das definições das tabelas temporárias
Cpc-pp0710f.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-pp0710f-entrada
def temp-table tmp-cpc-pp0710f-entrada no-undo
field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15)"
field cd-evento like evendesp.cd-evento
field cd-grupo-prestador like evendesp.cd-grupo-prestador
field in-movto like evendesp.in-movto
field cd-mod-plano-tipo-modulo like evendesp.cd-mod-plano-tipo-modulo
field cd-forma-pagto like evendesp.cd-forma-pagto
field in-tipo-ato like evendesp.in-tipo-ato
field aa-validade like evendesp.aa-validade
field mm-validade like evendesp.mm-validade
field lg-internado like evendesp.lg-internado
field cd-grupo-tipo like evendesp.cd-grupo-tipo
field cd-proc-insumo like evendesp.cd-proc-insumo
field ct-codigo-ini like evendesp.ct-codigo
field ct-codigo-fim like evendesp.ct-codigo
field sc-codigo-ini like evendesp.sc-codigo
field sc-codigo-fim like evendesp.sc-codigo
field cd-unidade-carteira like moviproc.cd-unidade-carteira
field cd-unidade-pagamento like moviproc.cd-unidade-pagamento
field lg-plano-base as log
field cd-modalidade like usuario.cd-modalidade
field nr-ter-adesao like usuario.nr-ter-adesao
field cd-usuario like usuario.cd-usuario
field r-movto as recid.
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa que chama a cpc-pp0710f.p. Os valores desse campo podem ser: "CONS-DEEVENDESP" ou "CT-CONTABIL"
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.: "ACESSA-CONTA"
cd-evento – Código do evento do pagamento;
cd-grupo-prestador – Código do grupo de prestador;
in-movto – indicador de movimento, pode ser "P" ou "I";
cd-mod-plano-tipo-modulo – Código de identificacao da modalidade/plano/tipo de plano/modulo;
cd-forma-pagto – Código de identificação da forma de pagamento;
in-tipo-ato – Indicador do tipo de ato medico;
aa-validade – Ano de validade da conta contábil;
mm-validade – Mes de validade da conta contábil;
lg-internado – indica se a conta é de internação;
cd-grupo-tipo – Código do tipo de insumo, deve ser informado apenas quando o movimento for de insumo;
cd-proc-insumo – Código do procedimento ou insumo;
ct-codigo-ini – Código da conta contábil inicial;
ct-codigo-fim – Código da conta contábil final;
sc-codigo-ini – Código do centro de custo inicial;
sc-codigo-fim – Código do centro de custo final;
cd-unidade-carteira – Código da unidade da carteira;
cd-unidade-pagamento – Código da unidade de pagamento;
lg-plano-base -
cd-modalidade – Código de identificação da modalidade;
nr-ter-adesao – Número do contrato do beneficiário;
cd-usuario – Código de identificação do usuário;
r-movto – Recid do movimento.
Tabela de saída tmp-cpc-pp0710f-saida
def temp-table tmp-cpc-pp0710f-saida no-undo
field lg-undo-retry as log
field ds-mensagem as char format "x(75)"
field lg-fora-intervalo as log
field ct-codigo like evendesp.ct-codigo
field sc-codigo like evendesp.sc-codigo.
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 aconteceram e NÃO se o processo foi concluído por completo;
ds-mensagem – descrição da mensagem de erro caso ocorra, dentro na cpc;
Lg-fora-intervalo – Variável que indica se o movimento está fora do intervalo da conta contábil e centro de custo;
Ct-codigo – Código da conta contábil do movimento;
Sc-codigo – Código do centro de custo do movimento.