CPC-BOSAU-PROCESSA-A500.P

Produto:	TOTVS Saúde Planos - Linha Datasul
Módulo:	HRC - Revisão de Contas Médicas
Versão:	A partir da 12.1.29.15, 12.1.31.10 e 12.1.32.5
Assuntos:	cpc-bosau-processa-A500

Programa para importação do PTU A500 XML.
Caso o cliente não queira executar a chamada da CPC deve colocar "CPC ativo" como "não" no seu cadastro.

Pontos de utilização

"ANTES-CRIA-DOC" - Permite a validação e/ou alteração dos dados dos documento e movimentos importados antes da criação dos registros nas tabelas do banco de dados;
"DEPOIS-CRIA-DOC" - Ponto localizado no final do processo após a criação dos documentos com os movimentos importados, nesse ponto as tabelas temporárias (tmp-documento, tmp-procedimento e tmp-insumo) possuem a chave do documento/movimento criado na base o que possibilita a localização dos registros. A alteração das tabelas temporárias não terão impacto na importação dos movimentos.
"ANT-DADOS-PROC" - Altera o código do procedimento importado caso ele esteja fora do período de vigência.
"ANT-DADOS-INSU" - Altera o código do insumo importado caso ele esteja fora do período de vigência.
"PREST-DIV-HONO" - Ponto liberado a partir da versão 12.1.2307
"APOS-NOTAPRES" - Ponto liberado a partir da versão 12.1.2311.
"APOS-VALID-TRAN" - Ponto implementado após validar transação. Liberado a partir da versão 12.1.2411.

Include das definições das tabelas temporárias

{cpc/cpc-bosau-processa-A500.i}

Tabelas de entrada e de saída

def temp-table tmp-cpc-processa-a500-entrada no-undo
field nm-ponto-chamada-cpc          as char format "x(15)"
    field in-evento-programa            as char format "x(06)"
    field idi-tipo-arquivo-ptu          as integer
    field dt-realizacao                 as date
    field cd-movto                      as char
    field cd-tipo-tab                   as int
	field aa-fatura                     as int 
	field dt-emissao                    as date
    field cd-transacao                  as int
    field cod-guia-tiss-prestador       as char
    field lg-erro-docto                 as log
    field h-buffer-docto-ptu            as handle
    field h-tmp-erros-ptu-imp           as handle.

Definição campo a campo da tabela de entrada

in-evento-programa - nome do evento (utilizado para pontos que possuem múltiplas chamadas);
nm-ponto-chamada-cpc - nome do ponto de chamada da CPC;
idi-tipo-arquivo-ptu - indicador do tipo de arquivo importado. Valores: 500 - PTU A500 Cobrança, 520 - PTU A500 Aviso;
dt-realizacao - data de realização do movimento;
cd-movto - código do movimento importado;
cd-tipo-tab - tipo de tabela de insumos;
aa-fatura - ano da fatura.
dt-emissao - data de emissão.
cd-transacao - código da transação do documento.
lg-erro-docto - indicador de erro do documento.
h-buffer-docto-ptu - buffer da tabela docto-ptu
h-tmp-erros-ptu-imp - handle da tabela temporária tmp-erros-ptu-imp

def temp-table tmp-cpc-processa-a500-saida no-undo
field lg-undo-retry                 as log
    field cd-erro                       as int
    field ds-mensagem                   as char format "x(75)"
    field cd-movto-saida                as char
    field cd-tipo-tab-saida             as int
    field lg-continua-divisao           as log
	field aa-fatura                     as int
	field lg-erro-docto                 as log.

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

lg-undo-retry - 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;
cd-erro - código do erro, pode ser valor zero;
ds-mensagem - mensagem de erro que deve ser retornada para o programa chamador caso ocorra algum erro na CPC;
cd-movto-saida - código do movimento alterado pela CPC;
cd-tipo-tab-saida - tipo de tabela de insumos alterado pela CPC;
lg-continua-divisao - campo que indica se continua ou não o processo de divisão de honorários;
aa-fatura - ano da fatura.
lg-erro-docto - indicador de erro do documento.

O retorno de um registro da tabela temporária de saída tmp-cpc-processa-a500-saida é obrigatório

O programa da CPC deve receber as tabelas tmp-documento, tmp-procedimento e tmp-insumo que estão definidas na include:

{hrc/bosau/bosau-processa-a500.i}

Exemplo da definição dos parâmetros de entrada para o programa CPC-BOSAU-PROCESSA-A500.P.

/* --------------------------------------------------------- TEMPORARIAS --- */
{cpc/cpc-bosau-processa-a500.i}
{hrc/bosau/bosau-processa-a500.i}

/* ---------------------------------------------------------- PARAMETROS --- */
define input        parameter table for tmp-cpc-processa-a500-entrada.
define output       parameter table for tmp-cpc-processa-a500-saida.
define input-output parameter table for tmp-documento   .
define input-output parameter table for tmp-procedimento.
define input-output parameter table for tmp-insumo      .