Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

    field in-evento-programa          as char format "x(06)"
    field nm-ponto-chamada-cpc        as char format "x(15)"
    field cd-erro-sistema             as int
    field nr-rowid-usuario            as rowid
    field nr-rowid-out-uni            as rowid
    field cd-unidade                  like previesp.cd-unidade
    field cd-prestador                like previesp.cd-prestador
    field cd-vinculo                  like previesp.cd-vinculo
    field cd-especialid               like previesp.cd-especialid
    field cd-procedimento             like ambcbhpm.cd-amb
    field qt-procedimento             as int  format "9999" 
    field cd-uni-cli                  like moviproc.cd-unidade-clinica
    field cd-clinica                  like moviproc.cd-clinica        
    field dt-realizacao               as date format "99/99/9999"
    field hr-realizacao               as char format "x(08)"
    field cd-unidade-prest-princ      like paproins.cd-unidade
    field cd-prestador-princ          like paproins.cd-prestador
    field cd-pacote                   like paproins.cd-pacote
    field aa-guia-atendimento         like guiautor.aa-guia-atendimento
    field nr-guia-atendimento         like guiautor.nr-guia-atendimento
    field r-beneficiario              as recid
    field r-docusos                   as recid
    field lg-urgencia                 as log
    field nr-processo                 as int
    field nr-sequencia                as int
    field lg-registro-atual           as log
    field ds-mensagem                 as char format "x(75)"
    field cd-esp-amb                  like ambproce.cd-esp-amb        
    field cd-grupo-proc-amb           like ambproce.cd-grupo-proc-amb 
    field cd-procedimento-amb         like ambproce.cd-procedimento   
    field dv-procedimento             like ambproce.dv-procedimento
    field cd-erro                     as char format "9999"
    field in-tipo-movto               as char format "x(01)"
    field cd-glosa                    as int
    field cd-classe-erro              as int
    field lg-reconsulta-aux           as log    
    field cd-unidade-ant              like paproins.cd-unidade 
    field cd-transacao-ant            like tranrevi.cd-transacao
    field cd-unidade-prestadora-ant   like moviproc.cd-unidade-prestadora
    field nr-serie-doc-original-ant   like moviproc.nr-serie-doc-original
    field nr-doc-original-ant         like moviproc.nr-doc-original
    field nr-doc-sistema-ant          like moviproc.nr-doc-sistema
    field lg-continua                 as log
    field vl-cobrado                  like procusos.vl-cobrado           
    field vl-taxa-out-uni-cobrado     like procusos.vl-taxa-out-uni-prin 
    field vl-taxa-out-principal       like procusos.vl-taxa-out-uni-prin 
    field vl-taxa-out-uni-auxi        like procusos.vl-taxa-out-uni-auxi 
    field vl-principal                like procusos.vl-principal           
    field vl-auxiliar                 like procusos.vl-auxiliar
    field cd-unidade-prest-exec       like preserv.cd-unidade
    field cd-prestador-executante     like preserv.cd-prestador
    field cd-unidade-prestadora       like procusos.cd-unidade-prestadora
    field cd-transacao                like procusos.cd-transacao
    field nr-serie-doc-original       like procusos.nr-serie-doc-original
    field nr-doc-original             like procusos.nr-doc-original
    field nr-doc-sistema              like procusos.nr-doc-sistema
    field nr-seq-digitacao            like procusos.nr-seq-digitacao
    field cd-local-atendimento        like locaaten.cd-local-atendimento
    field vl-servico                  like procusos.vl-principal
    field h-mensagens                 as handle
    field in-res-div                  as char
    field lg-div-hon                  as logical
    field h-ac0011r-proced            as handle
    field cd-pos-equipe               like moviproc.cd-pos-equipe
    field cd-tab-preco-proc           like moviproc.cd-tab-preco-proc
    field hr-realizacao-fim        as char
    field h-wk-handle               as handle.

Definição campo a campo da tabela de entrada

...