CPC-PP0710A.P

• Rotina que permitirá buscar a conta contábil por procedimento na tabela específica deevendesp.
• 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 pp0710a.p e pp0710c.p, ao buscar a conta contábil. 

Ponto de Utilização

• "CONSULTA", "CT-CONTABIL" e "CONS-MOVTO";

Include das definições das tabelas temporárias

• Cpc-pp0710a.i 

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-pp0710a-entrada

def temp-table tmp-cpc-pp0710a-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-movipres                                        as rowid
field r-movto                                              as recid

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama a cpc-pp0112h.p. Os valores desse campo podem ser: "CONSULTA" ou "ACESSA-CONTA"
• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.:"CONS-DEEVENDESP" ou "CT-CONTABIL"
• 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 (não alimentado neste ponto);
• cd-unidade-pagamento – Código da unidade de pagamento (não alimentado neste ponto);
• lg-plano-base -
• cd-modalidade – Código de identificação da modalidade (não alimentado neste ponto);
• nr-ter-adesao – Número do contrato do beneficiário (não alimentado neste ponto);
• cd-usuario – Código de identificação do usuário (não alimentado neste ponto);
• r-movipres – Ponteiro da tabela de movimentos do prestador (movipres);
• r-movto – Recid da tabela moviproc quando o in-movto for igual a "P" ou recid da tabela mov-insu quando in-movto for igual a "I".

Tabela de saída tmp-cpc-pp0710a-saida

def temp-table tmp-cpc-pp0710a-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
field lg-continua                                 as log.

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;
• Lg-continua – Indica se considera ou não o movimento (procedimento/insumo);