Histórico da Página

...

def temp-table tmp-cpc-ac0011r-entrada no-undo

field in-evento-programa as                                          as char format "x(06)"
field nm-ponto-chamada-cpc                                   as char format "x(15)"
field cd-erro-sistema                                                 as int
field nr-rowid-usuario as                                                as rowid
field nr-rowid-out-uni                                                 as rowid
field cd-unidade like previesp.cd-unidade
field cd-prestador                                                       like previesp.cd-prestadorunidade
field cd-vinculo prestador                                                     like previesp.cd-vinculoprestador
field cd-especialid like previesp.cd-especialid
field cd-procedimento like ambcbhpm.cd-amb
field qt-procedimento vinculo                                                         like previesp.cd-vinculo
field cd-especialid                                                     like previesp.cd-especialid
field cd-procedimento                                               like ambcbhpm.cd-amb
field qt-procedimento                                               as int format "9999"
field cd-uni-cli like moviproc.                                                           like moviproc.cd-unidade-clinica
field cd-clinica                                                           like moviproc.cd-clinica
field dt-realizacao as date format                                                     as date format "99/99/9999"
field hr-realizacao                                                     as char format "x(08)"
field cd-unidade-prest-princ like paproins.cd-unidade                                     like paproins.cd-unidade
field cd-prestador-princ                                             like paproins.cd-prestador
field cd-pacote like paproins.cd-pacote
field aa-guia-atendimento like guiautor.aa-guia-atendimento
field nr-guia-atendimento like guiautor.nr                                                        like paproins.cd-pacote
field aa-guia-atendimento                                        like guiautor.aa-guia-atendimento
field r-beneficiario as recid
field lg-urgencia as log
field nr-processo as int
field nr-sequencia as int
field lg-registro-atual as log
field ds-mensagem as char format "x(75)"
field cd-esp-amb like ambproce.cd-esp-amb
field cd-grupo-proc-amb like ambproce.cd-grupo-proc-amb
field cd-procedimento-amb like ambproce.cd-procedimento
field dv-procedimento like ambproce.dv-procedimento
field cd-erro as char format "9999"
field in-tipo-movto as char format "x(01)"
field cd-glosa as int
field cd-classe-erro as int
field lg-reconsulta-aux as log
field cd-unidade-ant like paproins.cd-unidade
field cd-transacao-ant like tranrevi.cd-transacao
field cd-unidade-prestadora-ant like moviproc.cd-unidade-prestadora
field nr-serie-doc-original-ant like moviproc.nr-serienr-guia-atendimento                                         like guiautor.nr-guia-atendimento
field r-beneficiario                                                    as recid
field lg-urgencia                                                       as log
field nr-processo                                                      as int
field nr-sequencia                                                    as int
field lg-registro-atual                                                as log
field ds-mensagem                                                 as char format "x(75)"
field cd-esp-amb                                                     like ambproce.cd-esp-amb
field cd-grupo-proc-amb                                          like ambproce.cd-grupo-proc-amb
field cd-procedimento-amb                                     like ambproce.cd-procedimento
field dv-procedimento                                             like ambproce.dv-procedimento
field cd-erro                                                            as char format "9999"
field in-tipo-movto                                                   as char format "x(01)"
field cd-glosa                                                          as int
field cd-classe-erro                                                  as int
field lg-reconsulta-aux                                             as log
field cd-unidade-ant                                                like paproins.cd-unidade
field cd-transacao-ant                                             like tranrevi.cd-transacao
field cd-unidade-prestadora-ant                              like moviproc.cd-unidade-prestadora
field nr-serie-doc-original-ant                                   like moviproc.nr-serie-doc-original
field nr-doc-original-ant                                           like moviproc.nr-doc-original
field nr-doc-originalsistema-ant like                                          like moviproc.nr-doc-originalsistema
field nr-doc-sistema-ant like moviproc.nr-doc-sistema
field lg-continua as log
field vl-cobrado like lg-continua                                                     as log
field vl-cobrado                                                      like procusos.vl-cobrado
field vl-taxa-out-uni-cobrado like                                  like procusos.vl-taxa-out-uni-prin
field vl-taxa-out-principal like field vl-taxa-out-principal                                        like procusos.vl-taxa-out-uni-prin
field vl-taxa-out-uni-auxi                                         like procusos.vl-taxa-out-uni-auxi
field vl-principal -principal                                                     like procusos.vl-principal
field vl-auxiliar                                                       like procusos.vl-auxiliar
field cd-unidade-prest-exec                                   like preserv.cd-unidade
field cd-prestador-executante -executante                               like preserv.cd-prestador
field cd-unidade-prestadora like                                  like procusos.cd-unidade-prestadora
field cd-transacao                                                 like procusos.cd-transacao
field nr-serie-doc-original
field nr-serie-doc-original                                       like procusos.nr-serie-doc-original
field nr-doc-original                                               like procusos.nr-doc-original
field nr-doc-sistema like -sistema                                              like procusos.nr-doc-sistema
field nr-seq-digitacao like                                            like procusos.nr-seq-digitacao

...

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

field lg-continua                           as log initial yes
field lg-undo-retry                         as log
field cd-erro-sistema cd-erro-sistema                     as int
field ds-mensagem as                      as char
field lg-urgencia                           as log
field lg-clinica-fisio as log
field cd-erro                        as log
field cd-erro                                 as char format "x(04)"
field lg-valoriza as                            as log
field vl-honorarios as                        as dec
field vl-operacional as dec
field vl-filme                      as dec
field vl-filme                                 as dec
field cd-moeda as                            as int
field qt-repasse                           as dec
field cd-glosa as                              as int
field cd-classe-erro as int.-erro                      as int
field lg-reconsulta-aux                 as log
field vl-principal                           like procusos.vl-principal
field vl-auxiliar                             like procusos.vl-auxiliar
field vl-taxa-out-principal             like procusos.vl-taxa-out-uni-prin
field vl-taxa-out-uni-auxi like              like procusos.vl-taxa-out-uni-auxi
field lg-troca-valores                   as log

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

...