Histórico da Página

...

field in-evento-programa                       as  as char format "x(06)"
field nm-ponto-chamada-cpc                 as char format "x(15) "
field lg-mensagem-na-tela                    as   as logical
field nr-rowid-moviproc                           as rowid
field cd-unidade                                      like like preserv.cd-unidade
field cd-unidade-prest                            like preserv.cd-unidade
field cd-prestador                                    like like preserv.cd-prestador
field cd-procedimento                            like ambcbhpm.cd-cbhpm
field cd-unidade-carteira                        like moviproc.cd-unidade-carteira
field cd-carteira-usuario                          like like moviproc.cd-carteira-usuario
field cd-transacao                                  like docusos.cd-transacao
field cd-unidade-guia                             like guiautor.cd-unidade
field aa-guia-atend                                like guiautor.aa-guia-atendimento
field nr-guia-atend                                 like guiautor.nr-guia-atendimento
field cd-tipo-guia                                    like like guiautor.cd-tipo-guia
field in-nivel-prestador                           like moviproc.in-nivel-prestador
field qt-procedimento                           like  like moviproc.qt-procedimento
field qt-tabela-pag-inf                            like precproc.qt-fat-rep-urgencia
field qt-tabela-pag-ant                           like precproc.qt-fat-rep-urgencia
field qt-tabela-cob-inf                           like  like precproc.qt-fat-rep-urgencia
field qt-tabela-cob-ant                          like   like precproc.qt-fat-rep-urgencia
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 moviproc.dt-realizacao
field cd-procedimento-entra                   like ambcbhpm.cd-cbhpm
field lg-trabalho-medico                          like like moviproc.lg-trab-cooperado
field cd-unidade-prest-ant                      like moviproc.cd-unidade-prestador
field cd-prestador-ant                            like moviproc.cd-prestador

...

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

fields lg-undo-retry                                 as logical
fields ds-mensagem-relatorio                 as char format "x(75)"
field lg-aplica-divisao                              as log
field cd-procedimento-saida                    like like ambcbhpm.cd-cbhpm
field lg-existe-base                                as   as log
field lg-alt-tabela                                   as  as log
field cd-tipo-vinculo                               like  like moviproc.cd-tipo-vinculo
field lg-trabalho-medico                         like moviproc.lg-trab-cooperado
field cd-esp-prest-executante                  like like moviproc.cd-esp-prest-executante.
field hr-realizacao-ini                             like  like moviproc.hr-realizacao
field hr-realizacao-fim                            like moviproc.hr-realizacao.

...