Histórico da Página
...
def temp-table tmp-cpc-at0112c-entrada no-undo
field in-evento-programa programa as char format "x(10)"
field nm-ponto-chamada-cpc as cpc as char format "x(15)"
field cd-tipo-guia guia like tip-guia.cd-tipo-guia
field cd-unidade-carteira carteira like unimed.cd-unimed
field cd-cateira-usuario usuario like guiautor.cd-carteira-usuario
field cd-unidade-exec exec like preserv.cd-unidade
field cd-prestador-exec like exec like preserv.cd-prestador
field cd-esp-exec exec like procguia.cd-esp-prest-executante
field cd-unidade-princ like like preserv.cd-unidade
field cd-prestador-princ princ like preserv.cd-prestador
field cd-unidade-solic like solic like preserv.cd-unidade
field cd-prestador-solic like solic like preserv.cd-prestador
field cd-proced-completo as as int format "99999999"
field cd-modalidade like like modalid.cd-modalidade
field cd-plano like like propost.cd-plano
field cd-tipo-plano plano like propost.cd-tipo-plano
field ds-motivo motivo as char format "x(750)"
field r-guiautor guiautor as rowid
field vl-custo-op as as dec
field vl-taxa-part as as dec
field vl-tot-val as dec
field lg-dados-internacao like internacao like tranrevi.lg-dados-internacao
field r-propost as as rowid
field cd-unid-neg as as int
field cd-transacao like like tranrevi.cd-transacao
field nr-proposta like proposta like propost.nr-proposta
field cd-usuario like like guiautor.cd-usuario
field aa-guia-atendimento like guiautor.aa-guia-atendimento
field nr-guia-atendimento like guiautor.nr-guia-atendimento
field dt-interna-ini as as date format 99/99/9999
field dt-interna-fim as date format 99/99/9999
field r-usuario as as rowid.
Definição campo a campo da tabela de entrada
...