Histórico da Página

...

field r-movimento                       as                  as recid
field r-inss                                           as          as recid
field r-pagapres                                           as recid
field r-preserv                                              as recid
field r-movipres                                            as as rowid
field nr-nota-parcela                         like            like movipres.nr-nota-parcela
field dt-producao                       as                    as date
field nm-ponto-chamada-cpc                 as      as char format "x(15)"
field in-evento-programa                             as char format "x(10)"
field cd-unidade                                            like pagapres.cd-unidade-prestador
field cd-prestador                                          like like pagapres.cd-prestador
field in-movtos-internacao                          as int
field lg-considera-tipo-clin          as log                 as log
field in-considera-movtos                           as int
field in-liberado-1                                        as char format "x(01)"
field in-liberado-2                                        as char format "x(01)"
field in-selec-tp-movto                       as          as char format "x(21)"
field in-movto                                             as  as char format "x(01)"
field r-notapres                             as recid
               as recid
field cd-unidade-pagto                           like      like preserv.cd-unidade
field cd-prestador-pagto                             like preserv.cd-prestador
field cd-unidade-nota                                  like preserv.cd-unidade
field cd-prestador-nota                  like               like preserv.cd-prestador
field cod-esp                                        like         like presnego.cod-esp
field lg-glosa-parcial                  as                   as log
field cd-unidade-prestador                         like moviproc.cd-unidade-prestador
field cd-tipo-vinculo                                    like moviproc.cd-tipo-vinculo
field in-resultado-divisao             like                like moviproc.in-resultado-divisao
field dt-anoref                                             like  like moviproc.dt-anoref
field nr-perref                                              like moviproc.nr-perref
field lg-periodo                        as                     as log
field lg-considera-even-ext                    as     as log
field lg-primeira-vez                                  as log
field in-liberado-contas                             as char
field in-liberado-pagto                                as char
field cd-unidade-pagamento                      as int
field cd-prestador-pagamento                   as int
field cd-tipo-medicina-ini           as                as int
field cd-tipo-medicina-fim                          as as int
field in-calculo-pagamento                    as     as char format "x(1)"
field vl-liquido                                            like moviproc.vl-principal
field vl-movto-aux                                     like pagapres.vl-movto-prin
field vl-desc-prest                                     like moviproc.vl-desconto-prestador
field ds-processo                                      like pagapres.ds-processo
field cd-unidade-sel                   like                like preserv.cd-unidade
field lg-valor-ou-cobranca                        as log
field lg-paga-valor-zerado                        as log.

Definição campo a campo da tabela de entrada

...

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

field lg-undo-retry                                                     as log
field ds-mensagem-relatorio                                   as char
field lg-calcula-iss                       as log
field vl-desconto                       as        as log
field vl-desconto                                                       as dec format "z,zzz,zz9.99"
field ds-especialid                                                   like  like esp-med.ds-especialid
field cd-proc-base                         as int format                            as int format "99999999"
field qt-proc-base                                                     as int
field qt-total-solicitados                                           as int
field qt-total-executados                                          as int
field qt-total-auto-gerados         as                                as int
field qt-total-permitidos                         as                    as int
field qt-total-dif-exames                  as int
field pc-proced-permitido           like prautger.pc-proced-permitido
field vl-auto-gerados                 as dec format "z,zz9.99"int
field inpc-movto-incide-inss proced-permitido                                         as char format "x(01)"
field vl-base-ir like prautger.pc-proced-permitido
field vl-auto-gerados                                                as dec format "z,zz9.99"
field in-movto-incide-inss                                        as char format "x(01)"
field vl-base-ir                                                          like pagapres.vl-base-ir
field r-preseven                                                       as recid
field nr-nota-parcela                                                like movipres.nr-nota-parcela
field dt-pagto-prestador                                            like notapres.dt-pagto-prestador
field cod-esp                                                            like pagaprespresnego.vlcod-base-iresp
field r-preseven vl-movto-prin                          as recid
field nr-nota-parcela                 like movipres.nr-nota-parcela
field dt-pagto-prestador            like notapreslike moviproc.dtvl-pagto-prestadorprincipal
field cod-esp vl-movto-auxi                               like presnego.cod-esp
field vl-movto-prin                    like moviproc.vl-principalauxiliar
field vl-movto-auxi lg-proximo                                                        like moviproc.vl-auxiliaras log
field lg-proximo -considera-even-ext                                as log
field lg-considera-even-ext        as as log
field cd-evento                            like                               like evenfatu.cd-evento
field vl-desc-prest-procedimento                  like           like moviproc.vl-desconto-prestador
field vl-desc-prest-insumo                          like             like mov-insu.vl-desconto-prestador.

...