1. Anuncie Aqui ! Entre em contato fdantas@4each.com.br

CPC724_CPC_BOSAU_IMPORT_A500

Discussão em 'TDN - Datasul' iniciado por Tiago Drehmer, Outubro 30, 2022.

  1. Página editado por Tiago Drehmer

    CPC-BOSAU-IMPORT-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
    Assuntos:
    cpc-bosau-import-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
    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 serivco-ptu.

    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.



    Mostrar online · Ver Alterações Online

    Continue reading...

Compartilhe esta Página