Histórico da Página

...

• Dentro do programa rc0511n.p:
• Quando da consistência do número do documento com o parâmetro, da transação, "Tipo de Seqüência = 04 –Seq. Serie/Documento" ;
• Quando da carga dos movimentos (procedimento, insumos ou pacote);
• Quando da consistência do código do procedimento;
• Quando do acesso a rotina de consistência/gravação da tabela NOTAPRES, para o ponto de "DATA-RECEBIM".
• Quando do processamento do Registro 502 Documento ao localizar a Guia de Atendimento associada ao documento, permitir que o documento seja importado com a Transacao da Guia de Atendimento.
• Quando os dados importados diferem da Guia de Autorização.
• Antes de gravar o prestador executante do movimento (procedimento/insumo).
• Após realização da carga dos movimentos (procedimento/insumo).
• Após a criação de cada movimento (procedimento/insumo).
• Ao efetuar a verificação da existência do prestador no cadastro de prestadores e efetuar a conversão.

Ponto de Utilização

• "SEQ-SERIE-DOCTO";DATA-RECEBIM"
• "LOC-TRANS-GUIA"
• "SEQ-SERIE-DOCTO""RESTRI-PREST";
• "TRATA-PROC" e 
• "DATARESTRI-RECEBIMPREST"
• "LOCCART-TRANS-GUIAANT"
• "CARTDADOS-ANTINTERN".
• "GLOSA-IMPORT".
• "ENTIDADE";
• "HORA-URGENCIA"
• "ALTERA-PREST";
• "CRIA-MOVTOS";"COMPL-MOVTO";
• "ANTCRIA-INC-PACOTEMOVTOS"
• "CONVER-PREST"
• "DADOS-INTERN""APOS-CARGA-PROC"
• "ANTES-PTUINTAB"
• "VERIF-PREST-EXE" - Ponto alterado a partir da 12.1.2209, sempre será considerado o valor retornado na temporária de saída da cpc (tmp-cpc-rc0511n-saida.lg-verif-prest-exe), independente do parâmetro "Exec igual Princ" do menu Manutenção Parâmetros Importação Prestador (RC0510L).
• "COMPL-MOVTO"

Include Include das definições das tabelas temporárias

...

def temp-table tmp-cpc-rc0511n-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-tipo-tab                   as int
    field cd-cont-movto                 as int.      

...