Histórico da Página

...

field in-evento-programa                   as  as char format "x(10)"
field nm-ponto-chamada-cpc              as char format "x(15)"
field cd-unidade                                 like  like docusos.cd-unidade
field cd-unidade-prestadora               like  like docusos.cd-unidade-prestadora
field cd-transacao                            like     like docusos.cd-transacao
field nr-serie-doc-original                    like docusos.nr-serie-doc-original
field nr-doc-original                              like like docusos.nr-doc-original
field nr-doc-sistema                            like docusos.nr-doc-sistema
field cd-clinica                                     like docusos.cd-clinica
field cd-unidade-principal                    like docusos.cd-unidade-principal
field cd-prestador                                like docusos.cd-prestador-principal
field cd-procedimento                      like     like ambcbhpm.cd-amb
field cd-unidade-carteira                     like moviproc.cd-unidade-carteira
field cd-carteira-usuario                      like moviproc.cd-carteira-usuario
field cd-erro-sistema                        as     as int
field cd-uni-cli                                 like      like clinpres.cd-unidade
field dt-realizacao                               as  as date format "99/99/9999"
field hr-realizacao                           as      as char format "x(08)"
field nr-recid-usuario                           as recid
field nr-recid-out-uni                         as    as recid
field nr-recid-pres-exec                       as recid
field nr-recid-pres-sol                          as recid
field nr-recid-pres-pri                          as recid
field nr-recid-guia                               as recid
field aa-guia-atendimento               like    like guiautor.aa-guia-atendimento
field nr-guia-atendimento                like     like guiautor.nr-guia-atendimento
field lg-simulacao                               as log
field nr-recid-paproins                        as recid
field in-tipo-proces                             as char format "x(01)"
field qt-servico                                   like mov-insu.qt-insumo.

Definição campo a campo da tabela de entrada

...

field nr-processo             as  as int
field nr-sequencia           as  as int
field cd-procedimento      like ambcbhpm.cd-cbhpm.

...

field lg-undo-retry                       as  as log
field ds-mensagem                      as char format "x(50)"
field cd-erro-sistema                    as char format "x(04)"
field lg-aplica-divisao                   as log
field cd-procedimento-saida          like ambcbhpm.cd-cbhpm
field lg-continua                            as as log initial yes
field lg-permite-simulacao             as log
field cd-tipo-guia                         like  like guiautor.cd-tipo-guia. 

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

...