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-tipo-guia                               like  like tip-guia.cd-tipo-guia
field cd-unidade-carteira                    like like unimed.cd-unimed
field cd-cateira-usuario                      like like guiautor.cd-carteira-usuario
field cd-unidade-exec                        like preserv.cd-unidade
field cd-prestador-exec                    like   like preserv.cd-prestador
field cd-esp-exec                                like 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   like preserv.cd-unidade
field cd-prestador-solic                   like  like preserv.cd-prestador
field cd-proced-completo                as   as int format "99999999"
field r-guiautor                                  as rowid
field vl-custo-op                                as dec
field vl-taxa-part                                as as dec
field vl-tot-val                                   as dec.

...

field lg-erro                       as    as log
field ds-mensagem             as char format "x(75)"
field ds-motivo                    as char format "x(750)"
field lg-undo-retry                as as log.

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

...

def temp-table tmp-cpc- at0112c-insuguia no-undo

field cd-unidade                                like 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  like insuguia.nr-seq-digitacao
field vl-insumo-cob                        like   like insuguia.vl-insumo-cob.

Definição campo a campo da tabela de entrada

...