CPC-BOSAU-IMPORT-A500.P

• 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

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
field rowid-servico-ptu as rowid.

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
• rowid-serivco-ptu - rowid do registro lido da tabela servico-ptu.

Tabela de saída: tmp-cpc-import-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.