CPC-BOSAU-PROCESSA-A500.P

Produto:	Gestão de Planos de Saúde
Módulo:	HRC
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

"GLOSA-IMPORT"
"DATA-RECEBIM"
"TRATA-PROC"
"DADOS-INTERN"
"LOC-TRANS-GUIA"
"BUSCA-TRANS-DOC"

Include das definições das tabelas temporárias

cpc-bosau-import-A500.i

Tabelas de entrada e de saída

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

def temp-table tmp-cpc-import-a500-entrada no-undo
field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15)"
field cd-unidade like preserv.cd-unidade
field cd-unidade-prestadora like preserv.cd-unidade
field cd-transacao like docrecon.cd-transacao
field cd-unidade-principal like docrecon.cd-unidade-principal
field cd-prestador-principal like docrecon.cd-prestador-principal
field cd-unidade-solicitante like docrecon.cd-unidade-solicitante
field cd-prestador-solicitante like docrecon.cd-prestador-solicitante
field nr-serie-doc-original like docrecon.nr-serie-doc-original
field nr-doc-original like docrecon.nr-doc-original
field in-tp-movto as char format "x(01)"
field cd-tipo-insumo like insumos.cd-tipo-insumo
field cd-movto like insumos.cd-insumo
field lg-benef-base as log
field recid-benef as recid
field recid-guia-autor as recid
field in-classe-nota like guiautor.in-classe-nota
field lg-movto-divi as log
field cd-tipo-vinculo like moviproc.cd-tipo-vinculo
field cd-esp-prest-executante like moviproc.cd-esp-prest-executante
field dt-realizacao like moviproc.dt-realizacao
field aa-guia-atendimento like guiautor.aa-guia-atendimento
field nr-guia-atendimento like guiautor.nr-guia-atendimento
field cd-serie-nf like notapres.cd-serie-nf
field aa-fatura like notapres.aa-fatura
field nr-fatura like notapres.cod-fatur-ap
field dt-emissao like notapres.dt-emissao
field dt-recebimento like notapres.dt-recebimento
field cd-unidade-ant like car-ide.cd-unimed
field cd-carteira-usuario-ant like car-ide.cd-carteira-inteira
field cd-modalidade-ant like docretmp.cd-modalidade
field cd-usuario-ant like docretmp.cd-usuario
field nr-ter-adesao-ant like docretmp.nr-ter-adesao
field nr-via-carteira-ant like docretmp.nr-via-carteira
field cd-unidade-carteira like car-ide.cd-unimed
field cd-carteira-usuario like car-ide.cd-carteira-inteira
field nr-via-carteira like car-ide.nr-carteira
field in-glosa as int
field cd-proc-insu like presmovt.cd-proc-insu
field cd-unidade-executante like preserv.cd-unidade
field cd-prestador-executante like preserv.cd-prestador
field lg-urgencia as log
field lg-layout-serious as log
field lg-utiliza-palm as log
field nr-seq-interno like docretmp.nr-seq-interno
field nr-processo like moviptmp.nr-processo
field nr-seq-digitacao like moviptmp.nr-seq-digitacao
field in-tipo-movimento as int
field cd-unidade-imp like moviproc.cd-unidade-imp
field cd-prestador-imp like moviproc.cd-prestador-imp
field nr-lote-imp like moviproc.nr-lote-imp
field nr-sequencia-imp like moviproc.nr-sequencia-imp
field in-ato-medico as int
field r-movto as recid
field linha-arquivo as char
field tp-atend as char
field tp-nota as char
field cd-trans-classe like pipresta.cd-trans-classe.

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;
cd-unidade - código da unidade;
cd-unidade-prestadora - código da unidade prestadora;
cd-transacao - código da transação;
cd-unidade-principal - código da unidade principal;
cd-prestador-principal - código do prestador principal;
cd-unidade-solicitante - código da unidade solicitante;
cd-prestador-solicitante - código do prestador solicitante;
nr-serie-doc-original - série do documento;
nr-doc-original - número do documento;
in-tp-movto - tipo do movimento;
cd-tipo-insumo - código do tipo do insumo;
cd-movto - código do movimento;
lg-benef-base - indica se beneficiário é da base ou não;
recid-benef - identificador do usuário;
recid-guia-autor - identificador da guia;
in-classe-nota - identificador da classe de nota;
lg-movto-divi - identificador;
cd-tipo-vinculo - identificador do tipo de vínculo;
cd-esp-prest-executante - código da especialidade;
dt-realizacao - data de realização;
aa-guia-atendimento - ano da guia;
nr-guia-atendimento - número da guia;
cd-serie-nf - série da fatura;
aa-fatura - ano da fatura;
nr-fatura - número da fatura;
dt-emissao - data de emissão;
dt-recebimento - data de recebimento;
cd-unidade-ant - código da unidade anterior;
cd-carteira-usuario-ant - código da carteira anterior;
cd-modalidade-ant - código da modalidade anterior;
cd-usuario-ant - código do usuário anterior;
nr-ter-adesao-ant - número do termo de adesão anterior;
nr-via-carteira-ant - número da via da carteira anterior;
cd-unidade-carteira - código da unidade da carteira;
cd-carteira-usuario - número da carteira do usuário;
nr-via-carteira - número da via da carteira;
in-glosa - identificador do tipo de glosa;
cd-proc-insu - código do procedimento/insumo;
cd-unidade-executante - código da unidade executante;
cd-prestador-executante - código do prestador executante;
lg-urgencia - indicador de urgência;
lg-layout-serious - identificador de layout Serious ou PTU;
lg-utiliza-palm - indica se utiliza palm;
nr-seq-interno - número sequencial interno;
nr-processo - número do processo;
nr-seq-digitacao - número da sequencia de digitação;
in-tipo-movimento - procedimento ou insumo - P ou I;
cd-unidade-imp - código da unidade de importação;
cd-prestador-imp - código da unidade de importação;
nr-lote-imp - número do lote de importação;
nr-sequencia-imp - número da sequencia do lote de importação;
in-ato-medico - identifica o tipo de ato médico;
r-movto - identificador do movimento;
linha-arquivo - número da linha do arquivo;
tp-atend - indicador do tipo de atendimento;
tp-nota - indicador do tipo da nota;
cd-trans-classe - código da associativa transação x classe de nota.

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

def temp-table tmp-cpc-import-a500-saida no-undo
field lg-undo-retry as log
field ds-mensagem as char format "x(75)"
field cd-movto-saida like ambcbhpm.cd-amb
field cd-transacao like moviproc.cd-transacao
field lg-obriga-dt-receb as log
field lg-glosa-movimento as log
field lg-cart-ant as log
field cd-carteira-benef like car-ide.cd-carteira-inteira
field aa-guia-atendimento like guiautor.aa-guia-atendimento
field nr-guia-atendimento like guiautor.nr-guia-atendimento
field cd-unidade-carteira like car-ide.cd-unimed
field cd-tipo-insumo like tipoinsu.cd-tipo-insumo
field lg-urgencia as log
field cd-unidade-prestador like moviproc.cd-unidade-prestador
field cd-prestador like moviproc.cd-prestador
field lg-desconsidera-internacao as log
field lg-verif-prest-exe 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;
ds-mensagem - mensagem de erro que deve ser retornada para o programa chamador caso ocorra algum erro na CPC;
cd-movto-saida - código procedimento na saída da cpc;
cd-transacao - código da transação;
lg-obriga-dt-receb - indica se obriga informar data de recebimento do arquivo;
lg-glosa-movimento - indica se vai glosar o movimento;
lg-cart-ant - indica se busca o beneficiário pela carteira antiga;
cd-carteira-benef - código da unidade da carteira;
aa-guia-atendimento - ano da guia;
nr-guia-atendimento - número da guia;
cd-unidade-carteira - número da carteira do usuário;
cd-tipo-insumo - código do tipo do insumo;
lg-urgencia - indicador de urgência;
cd-unidade-prestador - código da unidade do prestador;
cd-prestador - código do prestador;
lg-desconsidera-internacao - indicador se considera ou não internação;
lg-verif-prest-exe - indica se o prestador executante será igual ao principal.