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-clinica                                        like clinpres.cd-clinica
field cd-unidade                                      like clinpres.cd-unidade
field cd-prestador                                   like clinpres.cd-prestador
field in-liberado-guias                            like guiautor.in-liberado-guias
field lg-glosa                                          as log
field cd-tipo-guia                                    like guiautor.cd-tipo-guia
field cd-unidade-carteira                       like car-ide.cd-unimed
field lg-sadt                                            as log
field lg-aih                                              as log
field cd-carteira-usuario                       as decimal
field nr-rowid-guiaautor                        as rowid
field aa-guia-atendimento                    like guiautor.aa-guia-atendimento
field nr-guia-atendimento                     like guiautor.nr-guia-atendimento
field lg-autoriza-aut                              as log
field lg-libera-aut                                  as log
field cd-transacao                                like guiautor.cd-transacao
field h-tmp-procguia                            as handle
field h-tmp-insuguia                            as handle
field cd-servico                                   as int
field h-tmp-guia                                  as handle
field h-tmp-servico                             as handle
field cd-local-autorizacao                   as int
field aa-guia-atendimento-ant            like guiautor.aa-guia-atendimento-ant
field nr-guia-atendimento-ant             like guiautor.nr-guia-atendimento-ant
field h-tmp-mensa-guiautor                as handle

field h-paproins                                  as handle..

Tabela de entrada tmp-cpc- at1000 -movtos

...

field lg-undo-retry                        as log.
field in-liberado-guias                 like guiautor.in-liberado-guias
field cd-erro-sistema                   like mensauto.cd-retorno
field lg-cria-guia                          as log
field lg-comunica-scs                 as log
field ds-observ-guia                    as char
field cd-tipo-guia                         like guiautor.cd-tipo-guia
field cd-transacao                       like guiautor.cd-transacao
field ds-mensagem                     as char
field cd-unidade-carteira             like guiautor.cd-unidade-carteira
field cd-carteira-usuario              like usuario.cd-identific-uni-destino
field lg-continua                          as log init yes
field cd-local-autorizacao           as int

field lg-retorno-trata-proc          as log..