CPC-BOSAU-EXPORT-A500.P

• Programa 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-EXP-DADOS": no programa "hrc/bosau/bosau-export-A500.p", 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"

Include das definições das tabelas temporárias

• cpc-bosau-export-A500.i

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-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;
• 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".

Tabela de saída: tmp-cpc-export-A500-saida

def temp-table tmp-cpc-export-A500-saida no-undo
        field lg-erro                                      as logical
        field ds-mensagem                          as char
        field lg-alt-tp-documento                as logical
        field tp-documento                          as int
        field lg-alt-dt-emissao-fatura           as logical
        field dt-emissao-fatura                     like fatura.dt-emissao
        field lg-alt-dt-emissao-ndr               as logical
        field dt-emissao-ndr                         like fatura.dt-emissao
        field lg-alt-cd-regime-internacao     as logical
        field cd-regime-internacao               like docrecon.int-5
        field lg-alt-cd-prestador-principal    as logical
        field cd-prestador-principal              like docrecon.cd-prestador-principal
        field lg-alt-cd-prest-contrat-exec     as logical
        field cd-prest-contrat-exec               as int
        field lg-alt-cd-faturamento               as logical
        field cd-faturamento                         as int
        field lg-alt-nr-autorizacao                 as logical
        field nr-autorizacao                           as dec
        field lg-alt-nr-guia-tiss-prestador     as logical
        field nr-guia-tiss-prestador               as char
        field lg-alt-nr-guia-tiss-princ            as logical
        field nr-guia-tiss-princ                      as char
        field lg-alt-cd-excecao                      as logical
        field cd-excecao                                as char
        field lg-alt-nr-nota-glosada              as logical
        field nr-nota-glosada                        as char
        field lg-busca-dados-reap                 as logical initial yes
        field lg-busca-nr-guia-tiss-princ       as logical initial yes
        field lg-alt-cd-servico                        as logical
        field cd-esp-amb                               like moviproc.cd-esp-amb
        field cd-grupo-proc-amb                  like moviproc.cd-grupo-proc-amb
        field cd-procedimento                      like moviproc.cd-procedimento
        field dv-procedimento                      like moviproc.dv-procedimento
        field cd-servico                                  as char
        field lg-alt-cd-tipo-part                     as logical
        field cd-tipo-part                               as char
        field lg-busca-dados-prof-exec         as logical initial yes
        field lg-alt-tp-tabela                          as logical
        field tp-tabela                                    as char
        field lg-alt-lg-opme                           as logical
        field lg-opme                                     like insumos.lg-opme
        field lg-alt-nr-cgc-cpf-fornecedor     as logical
        field nr-cgc-cpf-fornecedor               like preserv.nr-cgc-cpf
        field lg-alt-nm-fornecedor                 as logical
        field nm-fornecedor                           as char
        field lg-alt-nr-nota-fiscal-fornec        as logical
        field nr-nota-fiscal-fornec                  like mov-insu.char-23
        field lg-alt-ds-fabricante                    as logical
        field ds-fabricante                              like insumos.char-5
        field lg-alt-cd-anvisa                          as logical
        field cd-anvisa                                    like insumos.cd-anvisa
        field lg-alt-des-refer-mater-fabrican as logical
        field des-refer-mater-fabrican           like insumos.des-refer-mater-fabrican
        field lg-consistir-opme                      as logical initial yes

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.