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.
...