CPC-BOSAU-EXPORT-A500.P

Produto:	Gestão de Planos de Saúde
Módulo:	HRC
Versão:	A partir da 12.1.29.11, 12.1.31.6 e 12.1.32.1 e 12.1.33
Assuntos:	cpc-bosau-export-A500

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"

Include das definições das tabelas temporárias

cpc-bosau-export-A500.i

Eventos

Eventos referentes ao ponto de chamada "ANTES-MSG-ERRO".
Caso o ponto esteja ativado é necessário apenas realizar a tratativa para a mensagem que deseja desconsiderar, utilizando o campo lg-considera-msg-erro da tabela de saida.

Evento	Mensagens
MSG-DIARIA	"Obrig.a exist.de diaria pois documento e de internacao!"
MSG-DADOS-EXECUTANTE	"Nome do profissional executante deve ser informado." "Sigla do conselho profissional executante deve ser informada." "Numero do conselho profissional executante deve ser informada." "Sigla da UF do profissional executante deve ser informada." "CBO do profissional executante deve ser informado."
MSG-QUANT-COBRADA	"Quantidade cobrada acima do permitido para uma consulta."
MSG-EQUIPE	"Necessario informar membo de equipe para documentos de honorario individual." "Necessario informar membo de equipe para documentos de honorario individual(2)."
MSG-GUIA-INTERNACAO	"Guia de Atendimento Principal deve ser uma Guia de Internacao(1). " "Guia de Atendimento Principal deve ser uma Guia de Internacao(2). "
MSG-DECLARACAO-OBITO	"Num. declaracao de obito e obrigatorio quando o motivo de encerramento = 41 ou quando for obito da mae na guia de internacao obstetrica"
MSG-INSUMO-CONVERSAO	"A quantidade do insumo apos a conversao (Associativa Conversao de Insumo) excede o limite de 9.999,9999 determinado pelo layout do PTU XML. Revisar a conversao de insumos."

Tabelas de entrada e de saída

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 int64⁽¹⁾.

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 int64⁽¹⁾.

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;

lg-alt-lg-opme - indica se deve sobrepor o campo que indica se um insumo é OPME com o valor retornado no campo "lg-opme";
lg-opme - campo que indica se um insumo é OPME;
lg-alt-nr-cgc-cpf-fornecedor - indica se deve sobrepor o CPF/CNPJ do fornecedor do OPME com o valor retornado no campo "nr-cgc-cpf-fornecedor";
nr-cgc-cpf-fornecedor - CPF/CNPJ do fornecedor do OPME;
lg-alt-nm-fornecedor - indica se deve sobrepor o nome do fornecedor do OPME com o valor retornado no campo "nm-fornecedor";
nm-fornecedor - nome do fornecedor do OPME;
lg-alt-nr-nota-fiscal-fornec - indica se deve sobrepor o número da nota fiscal do fornecedor do OPME com o valor retornado no campo "nr-nota-fiscal-fornec";
nr-nota-fiscal-fornec - número da nota fiscal do fornecedor do OPME;
lg-alt-ds-fabricante - indica se deve sobrepor a descrição do fabricante do OPME com o valor retornado no campo "ds-fabricante";
ds-fabricante - descrição do fabricante do OPME;
lg-alt-cd-anvisa - indica se deve sobrepor o código da Anvisa do OPME com o valor retornado no campo "cd-anvisa";
cd-anvisa - código da Anvisa do OPME;
lg-alt-des-refer-mater-fabrican - indica se deve sobrepor a referência do material no fabricante do OPME com o valor retornado no campo "des-refer-mater-fabrican";
des-refer-mater-fabrican - referência do material no fabricante do OPME;
lg-consistir-opme - indica se deve executar a lógica do produto para busca dos dados do OPME. O valor padrão do campo é "yes";
cd-tipo-vinculo - Tipo de vinculo do prestador definido na CPC e o qual será utilizado;
lg-considera-msg-erro - indica se deve ser considerada a mensagem de erro;
lg-alt-cd-mot-alta-tiss - indica se deve alterar o código do motivo da alta;
cd-mot-alta-tiss - código do motivo da alta;
lg-valida-motivo-alta - indica se deve validar o motivo da alta;
lg-alt-tp-atend - indica se deve alterar o código do tipo de atendimento;
tp-atend - código do tipo de atendimento;
lg-valida-tp-atend - indica se deve validar o tipo de atendimento;
lg-convert-tp-tabela - indica se deve realizar a conversão da tabela do insumo;
tp-inter - retorna o tipo de internação do documento;
lg-proc-obriga-prof - indica se o procedimento obriga profissional executante;
lg-continua - indica se a execução continua;
lg-alt-nroCompetencia - indica se deve sobrepor a competência que será exportada no arquivo com o valor retornado no campo "nroCompetencia";
nroCompetencia - competência que será exportada no arquivo
cd-pacote - código do pacote do movimento.

_{(1) O campo CD-PACOTE passou do tipo INTERGER para o tipo INT64 a partir da release 12.1.2407 e dos patchs 12.1.2043.2, 12.1.2311.8 e 12.1.2307.14.}