Histórico da Página

...

field cd-unidade-prestador                    like movipres.cd-unidade-prestador
field cd-grupo-prestador                       like preserv.cd-grupo-prestador
field cd-unidade                                  like     like preserv.cd-unidade
field nm-prestador                                 like preserv.nm-prestador
field cd-prestador                                  like movipres.cd-prestador
field cd-contratante                               like preserv.cd-contratante
field cd-evento                                      like movipres.cd-evento
field dt-anoref                                     like    like movipres.dt-anoref
field nr-perref                                     like    like movipres.nr-perref
field nr-nota-fis                                     as int format "zz,zzz,zz9"
field in-classe-evento                            like like movipres.in-classe-evento
field in-movto                                       like movipres.in-movto
field cd-gr-procedimento                      like movipres.cd-gr-procedimento
field qt-movto                                       as int format "zzz9"
field dt-realizacao                               like  like movipres.dt-realizacao
field vl-movto                                       like movipres.vl-movto
field lg-desc                                         as log format "Sim/Nao"
field dt-inicial                                       like evepropp.dt-inicial
field dt-final                                         like  like evepropp.dt-final
field cd-tipo-medicina                          like like movipres.cd-tipo-medicina
field cd-mod-plano-tipo-modulo            like like movipres.cd-mod-plano-tipo-modulo
field nr-nota-parcela                            like movipres.nr-nota-parcela
field nr-docto-pp                                 like  like titupres.nr-docto
field parcela                                       like  like titupres.parcela

Tabela de entrada tmp-cpc-pp0610k-entrada

...

field in-evento-programa                     as  as char format "x(10)"
field nm-ponto-chamada-cpc               as char format "x(15)".

...

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

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

...