Histórico da Página

...

field in-evento-programa                                      as char format "x(06)" 
field nm-ponto-chamada-cpc                               as char format "x(15)" 
field cd-modalidade                                                 like reaj-partic-fp.cd-modalidade
field nr-proposta                                                       like reaj-partic-fp.nr-proposta 
field cd-plano                                                            like reaj-partic-fp.cd-plano 
field cd-tipo-plano                                                    like reaj-partic-fp.cd-tipo-plano 
field dt-limite                                                              like fp-reaj-part.dt-limite
field vl-taxa                                                                 like mov-insu.vl-desconto-prestador
field nr-rowid-precproc                                           as rowid 
fiels lg-urgencia                                                        as log
field dt-base-valor                                                    as date
field dt-proposta                                                        like propost.dt-parecer

...

               def temp-table tmp-rtclpart-entrada no-undo
                               field in-evento-programa as char format "x(06)"
                               field lg-mensagem-na-tela as logical
                               field lg-urgencia as logical
                               field lg-sem-cobertura as logical
                               field nr-rowid-usuario as rowid
                               field nr-rowid-proposta as rowid
                               field nr-rowid-precproc as rowid
                               field nr-rowid-movto as rowid
                               field cd-modulo like modlike mod-cob.cd-modulo
                               field cd-forma-pagto-cob like formpagalike formpaga.cd-forma-pagto
                               field in-tipo-movimento as char format "x(01)"
                               field cd-grupo-proc like ambprocelike ambproce.cd-grupo-proc 
                               field cd-amb like pllike pl-mo-am.cd-amb 
                               field cd-tipo-insumo like insumoslike insumos.cd-tipo-insumo 
                               field cd-insumo like insumoslike insumos.cd-insumo 
                               field vl-completo-do-movimento like mov-insu.vl-insumo
                               field qt-movimento like mov-insu.qt-insumo 
                               field qt-faixa-participacao like fxparpro.qt-faixa-inicial
                               field dt-base-valor like mov-insu.dt-base-valor

                               field cd-transacao like moviptmplike moviptmp.cd-transacao

                               field dt-anoref like moviptmp.dt-anoref 
                               field nr-perref like moviptmplike moviptmp.nr-perref
                               field cd-unidade-prestador-exec like moviptmplike moviptmp.cd-unidade-prestador
                               field cd-prestador-exec like moviptmplike moviptmp.cd-prestador
                               field cd-esp-prest-executante like moviptmplike moviptmp.cd-esp-prest-executante
                               field vl-honorario like moviproc.vl-honorarios-medicos
                               field vl-operacional like moviproc.vl-operacional 
                               field vl-filme like moviproc.vl-filme
                               field cd-local-atendimento like locaatenlike locaaten.cd-local-atendimento
                               field cd-clinica like moviproclike moviproc.cd-clinica
                               field lg-simulacao as log
                               field in-modulo-execucao as char format "x(03)"
                               field lg-recalcula-percentual as log init yes
                               field aa-guia-atendimento like guiautor.aa-guia-atendimento
                               field nr-guia-atendimento like guiautor.aa-guia-atendimento
                               field lg-fratura as log init no
                               field cd-tipo-guia like tiplike tip-guia.cd-tipo-guia
                               field nr-recid-unicamco as recid
                               field nr-recid-out-uni as recid
                               field cd-unidade-principal like docreconlike docrecon.cd-unidade-principal
                               field cd-prestador-principal like docreconlike docrecon.cd-prestador-principal
                               field cd-vinculo-prest-exe like previesplike previesp.cd-vinculo
                               field dt-postagem-arq like mov-insu.dt-base-valor
                               field pc-desc-hono as dec
                               field pc-desc-operacional as dec
                               field pc-desc-filme as dec.

...

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

fields lg-undo-retry                                as logical

fields ds-mens-rel                                  as char format "x(75)"

fields vl-taxa                                             like mov-insu.vl-desconto-prestador

fields pc-aplicacao                                 like reaj-partic-fp.pc-aplicacao

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

...

.

Tabela de saída tmp-cpc-rtclpart1-saida

...