Histórico da Página

...

field in-evento-programa                       as char format "x(10)"
field nm-ponto-chamada-cpc                as char format "x(15)"
field cd-tipo-guia                                    like tip-guia.cd-tipo-guia
field cd-unidade-carteira                        like like unimed.cd-unimed
field cd-cateira-usuario                         like guiautor.cd-carteira-usuario
field cd-unidade-exec                         like    like preserv.cd-unidade
field cd-prestador-exec                         like preserv.cd-prestador
field cd-esp-exec                                   like procguia.cd-esp-prest-executante
field cd-unidade-princ                           like preserv.cd-unidade
field cd-prestador-princ                       like  like preserv.cd-prestador
field cd-unidade-solic                           like preserv.cd-unidade
field cd-prestador-solic                       like  like preserv.cd-prestador
field cd-transacao                              like     like tranrevi.cd-transacao
field cd-userid                                       like preserv.cd-userid
field cd-proced-completo                      as as int format "99999999"
field cd-modalidade                           like    like propost.cd-modalidade
field cd-plano                                        like propost.cd-plano
field cd-tipo-plano                             like    like propost.cd-tipo-plano
field ds-motivo                                    as   as char format "x(750)"
field r-guiautor                                      as rowid
field aa-guia-atendimento                    like guiautor.aa-guia-atendimento
field nr-guia-atendimento                     like guiautor.nr-guia-atendimento
field lg-guia-principal                         as  as log
field vl-custo-op                                  as dec
field vl-taxa-part                               as    as dec
field vl-tot-val                                   as    as dec
field lg-prest-alto-custo                      as log.

...

field lg-erro                           as    as log
field ds-mensagem                 as char format "x(75)"
field lg-pede-cid-depois           as  as log
field cd-clinica                         like clinpres.cd-clinica
field in-classe-nota                 like guiautor.in-classe-nota
field lg-senha-emissao            as as log
field lg-gera-senha                 as  as log
field lg-autoriza                      as   as log
field lg-alt-carte-benef            as log
field nr-recid-usuario              as recid
field nr-recid-outuni                as recid
field nr-recid-unicamco            as recid
field nr-recid-proposta            as recid
field cd-unidade-carteira         like car-ide.cd-unimed
field aa-guia-atendimento       like  like guiautor.aa-guia-atendimento
field nr-guia-atendimento        like   like guiautor.nr-guia-atendimento
field in-liberado-guias             like  like guiautor.in-liberado-guias
field lg-undo-retry                  as   as log.

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

...

field cd-unidade                         like insuguia.cd-unidade
field aa-guia-atendimento         like insuguia.aa-guia-atendimento
field nr-guia-atendimento          like insuguia.nr-guia-atendimento
field nr-processo                      like   like insuguia.nr-processo
field nr-seq-digitacao                like insuguia.nr-seq-digitacao
field vl-insumo-cob                   like insuguia.vl-insumo-cob.

...