Histórico da Página

...

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  like docrecon.cd-unidade-principal
        field cd-prestador-principal                 like  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 like docrecon.nr-serie-doc-originaloriginal 
        field nr-doc-original                            like like docrecon.nr-doc-original
        field in-tp-movto                                as as char format "x(01)"
        field cd-tipo-insumo                           like  like insumos.cd-tipo-insumo
        field cd-movto                                   like  like insumos.cd-insumo
        field lg-benef-base                       as log
     as log    field recid-benef                   as recid
             as recid    field recid-guia-autor                as recid
          as recid    field in-classe-nota                           like  like guiautor.in-classe-nota
        field lg-movto-divi                       as log 
     as log    field cd-tipo-vinculo                          like like moviproc.cd-tipo-vinculo
        field cd-esp-prest-executante           like moviproc.cd-esp-prest-executante
        field dt-realizacao                            like like moviproc.dt-realizacao
        field aa-guia-atendimento               like guiautor.aa-guia-atendimento
        field nr-guia-atendimento                like like guiautor.nr-guia-atendimento
        field cd-serie-nf                               like notapres.cd-serie-nf  nf   
        field aa-fatura                                 like notapres.aa-fatura        fatura     
    field nr-fatura                                  like notapres.nr-fatura        like notapres.cod-fatur-ap     
    field dt-emissao                              like notapres.dt-emissao       emissao    
    field dt-recebimento                       like  like notapres.dt-recebimento
        field cd-unidade-ant                       like  like car-ide.cd-unimed             unimed          
    field cd-carteira-usuario-ant            like like car-ide.cd-carteira-inteira
        field cd-modalidade-ant                  like like docretmp.cd-modalidade
        field cd-usuario-ant                         like  like docretmp.cd-usuario
        field nr-ter-adesao-ant                    like like docretmp.nr-ter-adesao
        field nr-via-carteira-ant                    like like docretmp.nr-via-carteira
        field cd-unidade-carteira                  like like car-ide.cd-unimed
        field cd-carteira-usuario                   like car-ide.cd-carteira-inteira
        field nr-via-carteira                          like like car-ide.nr-carteira
        field in-glosa                      as int
              as int    field cdfield 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
     as log    field lg-layout-serious                     as log
        field lg-utiliza-palm                         as log
        field nr-seq-interno                         like  like docretmp.nr-seq-interno
        field nr-processo                            like like moviptmp.nr-processo
        field nr-seq-digitacao                     like  like moviptmp.nr-seq-digitacao
    field     field in-tipo-movimento             as int
     as int    field cd-unidade-imp                     like  like moviproc.cd-unidade-imp
        field cd-prestador-imp                   like  like moviproc.cd-prestador-imp
        field nr-lote-imp                             like moviproc.nr-lote-imp
        field nr-sequencia-imp                   like  like moviproc.nr-sequencia-imp
        field in-ato-medico                         as int
        field r-movto                                  as as recid

    field in-obriga-para                        like presmovt.int-1

    field linha-arquivo              field linha-arquivo                 as char
    field tp-atend      atend                            as char
    field tp-nota  nota                                  as as char
    field cd-tipo-tab  tab                            as as int
    field cd-cont-movto  movto                      as as int.          

Definição campo a campo da tabela de entrada

...

def temp-table tmp-cpc-rc0511n-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
   

...

field cd-tipo-insumo-

...

saida          as int
   

...

field cd-insumo-

...

saida               as int
    field cd-tipo-tab-

...

saida            

...

as int
   

...

field lg-verifica-

...

ptuinsum        

...

 as log initial yes.

Definição campo a campo da tabela de saída

...