Histórico da Página

...

field in-evento-programa                    as char format "x(06)"
field nm-ponto-chamada-cpc             as char format "x(15) "
field lg-mensagem-na-tela                 as logical
field nr-rowid-moviproc                       as rowed
field cd-unidade-prest                       like  like preserv.cd-unidade
field cd-prestador                               like preserv.cd-prestador
field cd-procedimento                       like  like ambcbhpm.cd-cbhpm
field cd-unidade-carteira                   like  like moviproc.cd-unidade-carteira
field cd-transacao                            like   like docusos.cd-transacao
field cd-unidade-guia                       like  like guiautor.cd-unidade
field aa-guia-atend                            like guiautor.aa-guia-atendimento
field nr-guia-atend                           like  like guiautor.nr-guia-atendimento
field cd-tipo-guia                                like like guiautor.cd-tipo-guia
field in-nivel-prestador                      like   like moviproc.in-nivel-prestador
field lg-urgencia                               as  as log
field lg-rtvalglo-cpc                           as  as log
field aa-guia-atendimento                 like guiautor.aa-guia-atendimento
field nr-guia-atendimento                  like guiautor.nr-guia-atendimento
field nr-rowid-tranrevi                         as rowid
field cd-tipo-cob-cpc                          like moviproc.cd-tipo-cob
field vl-uso-indevido-cpc                    like moviproc.vl-perc-usu-indevido
field cd-validacao-cpc                        like moviproc.cd-validacao
field cd-user-validacao-cpc                like moviproc.cd-user-validacao
field cd-forma-pagto-cob-cpc             like formpaga.cd-forma-pagto
field cd-tipo-pagamento-cpc              like moviproc.cd-tipo-pagamento
field dt-realizacao-cpc                        like moviproc.dt-realizacao
field cd-unidade-cpc                         like  like moviproc.cd-unidade
field cd-unidade-prestadora-cpc         like  like moviproc.cd-unidade-prestadora
field cd-transacao-cpc                      like   like moviproc.cd-transacao
field nr-serie-doc-original-cpc             like moviproc.nr-serie-doc-original
field nr-doc-original-cpc                    like   like moviproc.nr-doc-original
field nr-doc-sistema-cpc                    like moviproc.nr-doc-sistema
field nr-processo-cpc                          like like moviproc.nr-processo
field nr-seq-digitacao-cpc                  like moviproc.nr-seq-digitacao
field lg-mostra-mensagem                 as  as log
field in-obriga-para                           like  like presmovt.int-1
field cd-prestador-executante            like preserv.cd-prestador
field cd-unidade-executante               like  like unimed.cd-unimed
field lg-inclui-pacote                           as log.

...

def temp-table tmp-cpc-rc0311a5-saida no-undo

fields lg-undo-retry                             as logical
fields ds-mensagem-relatorio           as  as char format "x(75)"
fields lg-existe-base                          as log
field lg-urgencia                             as    as log
field lg-rtvalglo-cpc                           as  as log
field cd-tipo-cob-cpc                          like moviproc.cd-tipo-cob
field vl-uso-indevido-cpc                    like moviproc.vl-perc-usu-indevido
field cd-validacao-cpc                       like moviproc.cd-validacao
field cd-user-validacao-cpc              like   like moviproc.cd-user-validacao
field cd-forma-pagto-cob-cpc            like formpaga.cd-forma-pagto
field cd-tipo-pagamento-cpc             like moviproc.cd-tipo-pagamento
field lg-cpc-ant-inc-pacote-restr          as as log.

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

...