Histórico da Página

...

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

field field  in-evento-programa                               as char format "x(10)"
field  nm-ponto-chamada-cpc                        as char format "x(15)"
field cd-modalidade  field  nr-guiautor                                             as rowid
field  nr-procguia                                            as rowid
field  cd-unidade-carteira                               like guiautor.cd-unidade-carteira
field  cd-carteira-usuario                                like guiautor.cd-carteira-usuario
field  cd-unidade-principal                              like guiautor.cd-unidade-principal
field  cd-prestador-principal                           like guiautor.cd-prestador-principal
field  cd-servico                                              as int format "99999999"
field  tp-tabela                                                as int format "99"
field  ds-observacao                                    as int
field nr-proposta     as char
field  cd-codigo                                               as char
field  tp-tipoTransacao                                    as int
field cd-usuario  char
field cd-unidade-prestador-exec                     like preserv.cd-unidade
field  cd-prestador-exec                                  like preserv.cd-prestador
field  cd-esp-prest-executante                        like previesp.cd-especialid
field  in-carater-internacao                              as char
field  qt-servico                                                as char
field  qt-us                                                       as char
field  nm-prest-exec-compl                             like guiainod.nm-prest-exec-compl
field  char-3                                                     like guiainod.char-2
field  nr-registro                                               like guiainod.nr-conse-prest-exec-compl
field  uf-conselho                                             like guiainod.uf-conse-prest-exec-compl
field  char-2                                                     like guiainod.char-2
field  lg-odonto                                                as intlog
field  nr-versao                                                as char
field  nr-guia-prestador                                    like guiautor.nr-guia-atendimento
field  nr-guia-operadora                                   as char.

Definição campo a campo da tabela de entrada

...

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

field  lg-undo-retry retry                                        as log
field  ds-mensagem mensagem                                      as char
field  ds-observacao as observacao                                     as char
field  aa-guia-atendimento atendimento                            like guiautor.aa-guia-atendimento
field  nr-guia-atendimento like atendimento                             like guiautor.nr-guia-atendimento
field  tp-movto as movto                                               as char format "x(01)"
field  cd-tipo-insumo as insumo                                     as int format "99"
field  cd-servico servico                                            as int format "99999999"
field  lg-simulacao simulacao                                        as log
field  lg-modulo-odonto odonto                                as log
field  lg-retorno-erro as erro                                     as log
field  lg-grava-erro as erro                                       as log
field  lg-tem-serious as serious                                     as log
field  cd-unidade-prestador-exec like exec                 like preserv.cd-unidade
field  cd-prestador-exec like exec                               like preserv.cd-prestador.

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

...