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;
• Ponto "APOS-VINC-PREST": no programa "hrc/bosau/bosau-export-A500.p", após a definição do vínculo do prestador;
• Ponto "ANTES-MSG-ERRO": no programa "hrc/bosau/bosau-export-A500.p", antes de serem emitidas mensagens de erro;
• Ponto "APOS-MOT-ALTA": no programa "hrc/bosau/bosau-export-A500.p", após o motivo de alta;
• Ponto "ANT-VAL-TPATEND": no programa "hrc/bosau/bosau-export-A500.p", antes de validar o tipo de atendimento;
• Ponto "ANT-CRIA-PROC": no programa "hrc/bosau/bosau-export-A500.p", antes de criar a temporaria de procedimentos;
• Ponto "ANT-TAB-INSUMO": no programa "hrc/bosau/bosau-export-A500.p", antes de realizar a conversão da tabela de insumos;
• Ponto "ALT-TP-INTER": no programa "hrc/bosau/bosau-export-A500.p", após a criação da tabela temporária do documento;
• Ponto "ANT-MEMBRO-EQP": no programa "hrc/bosau/bosau-export-A500.p", antes de verificar os membros da equipe.
• Ponto "INI-BUS-DAD-OPME": no programa "hrc/bosau/bosau-export-A500.p", inicio rotina busca dados opme. 
• Ponto "INI-VERIF-ACOM": no programa "hrc/bosau/bosau-export-A500.p", inicio rotina verifica acomodação. INI-VERIF-ACOM
• Ponto "ANT-TRATA-PACOT": no programa "hrc/bosau/bosau-export-A500.p", antes de tratar/consistir pacote,  a partir da versão 12.1.2209.
• Ponto "FIM-CRIA-TMP-MP": no programa "hrc/bosau/bosau-export-A500.p", final criação tmp-moviproc,  a partir da versão 12.1.2209. 
• Ponto "ANT-CRIA-PROCED": no programa "hrc/bosau/bosau-export-A500.p", antes da criação da tmp-moviproc,  a partir da versão 12.1.2209.
• Ponto "ANT-CRIA-INSU": no programa "hrc/bosau/bosau-export-A500.p", antes da criação tmp-insumo,  a partir da versão 12.1.2209.

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"
• "APOS-VINC-PREST"
• "ANTES-MSG-ERRO"
• "APOS-MOT-ALTA"
• "ANT-VAL-TPATEND"
• "ANT-CRIA-PROC"
• "ANT-TAB-INSUMO"
• "ALT-TP-INTER"
• "ANT-MEMBRO-EQP"
• "INI-BUS-DAD-OPME"
• "INI-VERIF-ACOM"
• "ANT-TRATA-PACOT"
• "FIM-CRIA-TMP-MP"
• "ANT-CRIA-PROCED"
• "ANT-CRIA-INSU"

• "ANTES-MSG-ERRO"

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 cd-servico as char
field cd-tipo-vinculo-prest as char
field cd-mot-alta-tiss as int
field tp-atend like docrecon.tp-atend
field h-buffer-tmp-documento as handle
field h-buffer-tmp-moviproc as handle
field h-tmp-documento as handle
field h-tmp-procedimento as handle
field h-tmp-insumo as handle
field h-tmp-pacotes as handle
field h-tmp-equipe as handle
field cd-tipo-insumo like mov-insu.cd-tipo-insumo
field cd-insumo like mov-insu.cd-insumo
field dt-realizacao like mov-insu.dt-realizacao
field h-buffer-ambproce as handle
field h-buffer-tmp-procedimento as handle
field h-tmp-cabecalho as handle
field h-buffer-tmp-insumo as handle
field h-buffer-b-tmp-mov-insu as handle
field nroCompetencia as char
field cd-pacote as intint64⁽¹⁾.

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 foi avisado e depois excluído (existindo apenas no histórico) ou se está na base (tabela "moviproc" / "mov-insu");
• 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;
• cd-servico - código do serviço;
• cd-tipo-vinculo-prest - vinculo do prestador definido pelo sistema;
• cd-mot-alta-tiss - código do motivo da alta;
• tp-atend - código do tipo de atendimento;
• h-buffer-tmp-documento - handle para manipular o registro lido da tabela temporária "tmp-documento";
• h-buffer-tmp-moviproc - handle para manipular o registro lido da tabela temporária "tmp-moviproc";
• 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-pacotes - handle para manipular a tabela temporária "tmp-pacotes";
• h-tmp-equipe - handle para manipular a tabela temporária "tmp-equipe";
• cd-tipo-insumo - código do tipo de insumo;
• cd-insumo - código do insumo;
• dt-realizacao - data de realização do movimento;
• h-buffer-ambproce - handle para manipular o registro lido da tabela "ambproce";
• h-buffer-tmp-procedimento - handle para manipular registro lido da tabela temporária "tmp-procedimento";
• h-tmp-cabecalho - handle para manipular registro lido da tabela temporária "tmp-cabecalho";
• h-buffer-tmp-insumo - handle para manipular o buffer do registro lido da tabela temporária "tmp-insumo";
• h-buffer-b-tmp-mov-insu - handle para manipular o buffer do registro lido da tabela temporária "b-tmp-mov-insu"
• nroCompetencia - competência que será exportada no arquivo
• cd-pacote - código do pacote do movimento.

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-qt-insumo as logical
field qt-insumo like mov-insu.qt-insumo
field lg-alt-ds-insumo as logical
field ds-insumo 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
field cd-tipo-vinculo as char
field lg-considera-msg-erro as logical initial yes
field lg-alt-cd-mot-alta-tiss as logical
field cd-mot-alta-tiss as int
field lg-valida-motivo-alta as logical initial yes
field lg-alt-tp-atend as logical
field tp-atend like docrecon.tp-atend
field lg-valida-tp-atend as logical initial yes
field lg-convert-tp-tabela as logical initial yes
field tp-inter as integer
field lg-proc-obriga-prof as logical
field lg-continua as logical
field lg-alt-nroCompetencia as logical
field nroCompetencia as char
field cd-pacote as intint64⁽¹⁾.

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

• lg-erro - campo que indica se ocorreram erros na CPC. Deve retornar "yes" se ocorrer algum erro ou "no" se o processo for concluído sem erros;
• ds-mensagem - mensagem de erro que deve ser retornada para o programa chamador caso ocorra algum erro na CPC;
• lg-alt-tp-documento - indica se deve sobrepor o tipo de documento com o valor retornado no campo "tp-documento";
• tp-documento - tipo de documento;
• lg-alt-dt-emissao-fatura - indica se deve sobrepor a data de emissão da fatura com o valor retornado no campo "dt-emissao-fatura";
• dt-emissao-fatura - data de emissão da fatura;
• lg-alt-dt-emissao-ndr - indica se deve sobrepor a data de emissão da NDR com o valor retornado no campo "dt-emissao-ndr";
• dt-emissao-ndr - data de emissão da NDR;
• lg-alt-cd-regime-internacao - indica se deve sobrepor o código do regime de internação com o valor retornado no campo "cd-regime-internacao";
• cd-regime-internacao - código do regime de internação;
• lg-alt-cd-prestador-principal - indica se deve sobrepor o código do prestador principal com o valor retornado no campo "cd-prestador-principal";
• cd-prestador-principal - código do prestador principal;
• lg-alt-cd-prest-contrat-exec - indica se deve sobrepor o código do prestador contratado executante com o valor retornado no campo "cd-prest-contrat-exec";
• cd-prest-contrat-exec - código do prestador contratado executante;
• lg-alt-cd-faturamento - indica se deve sobrepor o código do tipo de faturamento com o valor retornado no campo "cd-faturamento";
• cd-faturamento - código do tipo de faturamento;
• lg-alt-nr-autorizacao - indica se deve sobrepor o número da autorização com o valor retornado no campo "nr-autorizacao";
• nr-autorizacao - número da autorização;
• lg-alt-nr-guia-tiss-prestador - indica se deve sobrepor o número da guia TISS do prestador com o valor retornado no campo "nr-guia-tiss-prestador";
• nr-guia-tiss-prestador - número da guia TISS do prestador;
• lg-alt-nr-guia-tiss-princ - indica se deve sobrepor o número da guia TISS principal com o valor retornado no campo "nr-guia-tiss-princ";
• nr-guia-tiss-princ - número da guia TISS principal;
• lg-alt-cd-excecao - indica se deve sobrepor o código do tipo de exceção com o valor retornado no campo "cd-excecao";
• cd-excecao - código do tipo de exceção;
• lg-alt-nr-nota-glosada - indica se deve sobrepor o número da nota glosada com o valor retornado no campo "nr-nota-glosada";
• nr-nota-glosada - número da nota glosada;
• lg-busca-dados-reap - indica se deve executar a lógica do produto para busca dos dados da reapresentação do documento. O valor padrão do campo é "yes";
• lg-busca-nr-guia-tiss-princ - indica se deve executar a lógica do produto para busca do número da guia TISS principal. O valor padrão do campo é "yes";
• lg-alt-cd-servico - indica se deve sobrepor o código do serviço com os valores retornados nos campos "cd-esp-amb", "cd-grupo-proc-amb", "cd-procedimento", "dv-procedimento" e "cd-servico";
• cd-esp-amb - os dígitos 1 e 2 do código do procedimento (composto por oito dígitos);
• cd-grupo-proc-amb - os dígitos 3 e 4 do código do procedimento (composto por oito dígitos);
• cd-procedimento - os dígitos 5, 6 e 7 do código do procedimento (composto por oito dígitos);
• dv-procedimento - o dígito 8 do código do procedimento (composto por oito dígitos);
• cd-servico - código do serviço;
• lg-alt-cd-tipo-part - indica se deve sobrepor o código do tipo de participação com o valor retornado no campo "cd-tipo-part";
• cd-tipo-part - código do tipo de participação;
• lg-busca-dados-prof-exec - indica se deve executar a lógica do produto para busca dos dados do profissional executante. O valor padrão do campo é "yes";
• lg-alt-tp-tabela - indica se deve sobrepor o código do tipo de tabela com o valor retornado no campo "tp-tabela";
• tp-tabela - código do tipo de tabela;
• lg-alt-qt-insumo - indica se deve alterar a quantidade do insumo;
• qt-insumo - quantidade do insumo;
• lg-alt-ds-insumo -  indica se deve alterar a descrição do insumo;
• ds-insumo - descrição do insumo;