CPC-BOSAU-EXPORT-A500.P

• Rotina para valorização de pacotesPrograma para exportação do PTU A500.
• Caso o cliente não queira executar a chamada da CPC deve colocar "CPC ativo" como "não" no seu cadastro.

Localização

• Ponto "ANT-VALOREXP-PCTDADOS": no programa "rtp/rtvalpacotehrc/bosau/bosau-export-A500.p", após verificar se a carteira informada do beneficiário está cadastrada;
• Ponto "APOS-PREST-PAC": no programa "rtp/rtvalpacote.p", após buscar o prestador do pacote

Pontos de utilização

•  antes de fazer a exportação dos dados;
• Ponto "ANT-DADOS-BENEF": no programa "hrc/bosau/bosau-export-A500.p", antes de buscar os dados do beneficiário;
• Ponto "ANT-BUSCA-REAP": no programa "hrc/bosau/bosau-export-A500.p", antes de buscar os dados da reapresentação do documento;
• Ponto "ANT-GUIA-PRINC": no programa "hrc/bosau/bosau-export-A500.p", antes de buscar os dados da guia (TISS) principal;
• Ponto "APOS-CONV-PROC": no programa "hrc/bosau/bosau-export-A500.p", após a conversão do código do procedimento (se houver);
• Ponto "APOS-TP-PARTIC": no programa "hrc/bosau/bosau-export-A500.p", após buscar o tipo de participação;
• Ponto "ANTES-OPME": no programa "hrc/bosau/bosau-export-A500.p", antes de buscar os dados do OPME;
• Ponto "ANTES-NFE-FAT": no programa "hrc/bosau/bosau-export-A500.p", antes de buscar os dados da nota fiscal eletrônica da fatura;
• Ponto "FINAL-CRIA-CAB": no programa "hrc/bosau/bosau-export-A500.p", no final da montagem dos dados do cabeçalho.

Pontos de utilização

• "ANT-EXP-DADOS"
• "ANT-DADOS-BENEF"
• "ANT-BUSCA-REAP"
• "ANT-GUIA-PRINC"
• "APOS-CONV-PROC"
• "APOS-TP-PARTIC"
• "ANTES-OPME"
• "ANTES-NFE-FAT"
• "FINAL-CRIA-CAB
• "ANT-VALOR-PCT"
• "APOS-PREST-PAC"

Include das definições das tabelas temporárias

• cpc-rtvalpacotebosau-export-A500.i

Eventos:

Eventos referentes ao ponto de chamada "APOS-PREST-PAC":

Tabela de entrada: tmp-cpc-export-A500-entrada

def temp-table tmp-cpc-export-A500-entrada no-undo
        field nm-ponto-chamada-cpc            as char format "x(15)"
        field nm-evento 

                                as char
        field cd-contratante                           

like fatura.cd-contratante
        field nr-fatura                                      like fatura.nr-fatura
        field cd-unimed                                  like unimed.cd-unimed
        field dt-emissao-

fatura                       like fatura.dt-emissao
        field dt-emissao-ndr                           like fatura.dt-emissao
        field r-docrecon                                 

as rowid
        field r-moviproc                                  as rowid
       

field r-

Tabelas de entrada e de saída

Tabela de entrada: tmp-cpc-rtvalpacote-entrada

def temp-table tmp-cpc-rtvalpacote-entrada no-undo

mov-insu                                  as rowid
        field lg-movto-avisado-nao-cobrado as logical
        field nr-seq-item-unico                       as char
       

field cd-

tipo-part                                 as char

        field tp-tabela                     

               as char

        field h-tmp-documento                      as handle
     

  field h-tmp-procedimento                 as handle
       

field h-tmp-insumo                           

as handle
       

field h-tmp-equipe                           

 as handle

Definição campo a campo da tabela de entrada

• nm-ponto-chamada-cpc - nome do ponto de chamada da CPC dentro do programa que a utiliza.: "ANT-VALOR-PCT", "APOS-PREST-PAC";
• in-evento-programa - evento do programa;
• dt-realizacao-pct - data de realização da tabela temporária tmp-rtvalpacote-entrada;
• cd-unidade-pagamento - código da unidade de pagamento;
• ;
• nm-evento - nome do evento (utilizado para pontos que possuem múltiplas chamadas);
• cd-contratante - código do contratante (que representa a coirmã);
• nr-fatura - número da fatura (do módulo FP - tabela "fatura");
• cd-unimed - código da Unimed (coirmã);
• dt-emissao-fatura - data de emissão da fatura;
• dt-emissao-ndr - data de emissão da NDR;
• r-docrecon - rowid da tabela "docrecon;
• r-moviproc - rowid da tabela "moviproc;
• r-mov-insu - rowid da tabela "mov-insu;
• lg-movto-avisado-nao-cobrado - indica se o movimento está na base (tabela "moviproc" / "mov-insu") ou se foi avisado e depois excluído (existindo apenas no histórico);
• nr-seq-item-unico - sequencial único de cada serviço;
• cd-tipo-part - código do tipo de participação;
• tp-tabela - código do tipo de tabela;
• h-tmp-documento - handle para manipular a tabela temporária "tmp-documento";
• h-tmp-procedimento - handle para manipular a tabela temporária "tmp-procedimento";
• h-tmp-insumo - handle para manipular a tabela temporária "tmp-insumo";
• h-tmp-equipe - handle para manipular a tabela temporária "tmp-equipe"cd-prestador-pagamento - código do prestador de pagamento.

Tabela de saída: tmp-cpc-rtvalpacote-saida

def temp-table tmp-cpc-rtvalpacote-saida no-undo

field lg-undo-retry                          as logical

field ds-mensagem                         as char format "x(75)"

field dt-realizacao-pct                     like moviproc.dt-realizacao

field lg-altera-prestador-pacote     as logical

field cd-unidade-pacote                 like moviproc.cd-unidade-pagamento

field cd-prestador-pacote               like moviproc.cd-prestador-pagamento

Definição campo a campo da tabela de saída

• lg-undo-retry - campo que controla se ocorreram erros na CPC. Deve retornar "SIM" se ocorrer algum erro ou "NÃO" se o processo for concluído sem erros;
• ds-mensagem - descrição da mensagem de erro caso seja um erro retornado pela CPC;
• dt-realizacao-pct - data de realização da tabela temporária "tmp-rtvalpacote-entrada";
• lg-altera-prestador-pacote - campo que indica se o programa deve utilizar a unidade e o pagamento retornados nos campos "cd-unidade-pacote" e "cd-prestador-pacote" da tabela temporária "tmp-rtvalpacote-saida" ou se deve manter a lógica do produto;
• cd-unidade-pacote - código da unidade que deve ser considerada para tratamento do pacote;
• cd-prestador-pacote - código do prestador que deve ser considerado para tratamento do pacote.