CPC-PP0710F.P

• 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

field ds-processo like demconpp.ds-processo
field cd-estab-ini like demconpp.cod-estabel
field ds-plano-contas-ems5 as char format "x(8)"
field r-histor-movimen as rowid
field ct-codigo-original like evendesp.ct-codigo
field sc-codigo-original like evendesp.sc-codigo.

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama a cpc-pp0710f.p. 
• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.
• 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 - Parâmetro que indica se beneficiário da base e prestador intercâmbio, considera plano da Base ou Intercambio - ver PP0110G
• 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.
• ds-processo - Identificador do registro (contador)
• cd-estab-ini - Código do estabelecimento
• ds-plano-contas-ems5 - Planos de Contas
• r-histor-movimen - identificador da tabela de histórico do movimento
• ct-codigo-original – Código da conta contábil original do movimento
• sc-codigo-original – Código do centro de custo original 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 lg-conta-evento-extra         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;
• lg-conta-evento-extra - Variável que indica se é evento extra
• Ct-codigo – Código da conta contábil do movimento;
• Sc-codigo – Código do centro de custo do movimento.