Histórico da Página

...

field cd-transacao-ptu                        as char format "x(05)"
field tp-cliente                                  as     as char format "x(15)"
field cd-unidade-origem                     as char format "x(04)"
field cd-unidade-destino                      as as char format "x(04)"
field nr-ident-origem                          as   as char format "x(10)"
field nr-ident-destino                           as char format "x(10)"
field cd-unidade                                  as char format "x(04)"
field id-beneficiario                            as   as char format "x(13)"
field nr-via-cartao                              as   as char format "x(02)"
field cd-cid                                       as    as char format "x(04)"
field id-alto-custo                                as char format "x(01)"
field nm-prestador                             as  as char format "x(25)"
field ds-observacao-1                        as char format "x(40)"
field ds-observacao-2                        as char format "x(40)"
field ds-observacao-3                        as char format "x(40)"
field cd-unidade-prestador-req            as char format "x(04)"
field cd-prestador-req                        as char format "x(08)"
field cd-unidade-prestador                 as  as char format "x(04)"
field cd-prestador                             as  as char format "x(08)"
field cd-especialidade-prestador        as char format "x(03)"
field ds-linha-origem                         as char format "x(256)"
field in-classe-nota                           as  as char format "x(02)"
index i-campos                                  is unique primary
cd-transacao-ptu.

...

field nr-servico                           as int
field tp-tabela                              as char format "x(01)"
field cd-servico                          as char format "x(08)"
field qt-servico                            as as char format "x(04)"
index i-servico                           is unique primary
nr-servico.

...

field cd-transacao-ptu                  as char format "x(05)"
field tp-cliente                              as char format "x(15)"
field cd-unidade-origem               as  as char format "x(04)"
field cd-unidade-destino               as  as char format "x(04)"
field nr-ident-origem                    as char format "x(10)"
field nr-ident-destino                    as as char format "x(10)"
field id-status                               as char format "x(01)"
field cd-unidade                          as   as char format "x(04)"
field id-beneficiario                      as char format "x(13)"
field nm-beneficiario                    as as char format "x(25)"
field tp-sexo-beneficiario               as  as char format "x(01)"
field tp-inscr-beneficiario               as  as char format "x(01)"
field dt-nascimento                       as  as char format "x(08)"
field tp-mens-geral-1                     as char format "x(01)"
field ds-mens-geral-1                       as char format "x(80)"
field cd-mens-geral-1                     as char format "x(04)"
field tp-mens-geral-2                     as char format "x(01)"
field ds-mens-geral-2                    as char format "x(80)"
field cd-mens-geral-2                    as char format "x(04)"
field tp-mens-geral-3                     as char format "x(01)"
field ds-mens-geral-3                     as char format "x(80)"
field cd-mens-geral-3                     as char format "x(04)"
field tp-mens-geral-4                     as char format "x(01)"
field ds-mens-geral-4                    as char format "x(80)"
field cd-mens-geral-4                    as char format "x(04)"
field tp-mens-geral-5                      as char format "x(01)"
field ds-mens-geral-5                    as char format "x(80)"
field cd-mens-geral-5                    as char format "x(04)"
field ds-observacao-1                    as char format "x(40)"
field ds-observacao-2                    as char format "x(40)"
field ds-observacao-3                    as char format "x(40)"
field ds-linha-origem                     as char format "x(256)"
index i-campos                               is unique primary
cd-transacao-ptu.

...

field nr-servico                           as int
field tp-tabela                           as    as char format "x(01)"
field cd-servico                           as char format "x(08)"
field ds-servico                           as char format "x(80)"
field qt-servico                            as char format "x(01)"
field id-autoriza                        as     as char format "x(01)"
field tp-mens-espec-1                as char format "x(01)"
field ds-mens-espec-1               as char format "x(80)"
field cd-mens-espec-1               as char format "x(04)"
field tp-mens-espec-2                as char format "x(01)"
field ds-mens-espec-2               as char format "x(80)"
field cd-mens-espec-2                 as char format "x(04)"
field tp-mens-espec-3                as char format "x(01)"
field ds-mens-espec-3               as char format "x(80)"
field cd-mens-espec-3               as char format "x(04)"
field tp-mens-espec-4                as char format "x(01)"
field ds-mens-espec-4               as char format "x(80)"
field cd-mens-espec-4               as char format "x(04)"
field tp-mens-espec-5                as char format "x(01)"
field ds-mens-espec-5               as char format "x(80)"
field cd-mens-espec-5               as char format "x(04)"
index i-campos                            is unique primary
nr-servico.

...

field ds-segmento-retorno          as char format "x(8000)"
field r-guiautor                            as recid
field cd-classe-erro                    as int
field in-liberado-guias                 like guiautor.in-liberado-guias
field aa-guia-atendimento           like guiautor.aa-guia-atendimento
field nr-guia-atendimento            like guiautor.nr-guia-atendimento
field registro                                as rowid
field cd-unidade-principal            like guiautor.cd-unidade-principal
field cd-unidade-carteira             like guiautor.cd-unidade-carteira
field cd-carteira-usuario              like guiautor.cd-carteira-usuario
field nr-via-carteira                     like  like guiautor.nr-via-carteira.

...

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

field in-liberado-guias                   like guiautor.in-liberado-guias
field cd-local-autorizacao             like guiautor.cd-local-autorizacao
field lg-undo-retry                         as  as log
field ds-mensagem                       as char
field lg-id-autoriza                         as log
field ds-observacao-interna          like guiautor.ds-observacao-interna
field lg-desconsidera                     as log.

...