Histórico da Página
...
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.