Histórico da Página

...

field nm-ponto-chamada-cpc                         as char format "x(15)"
field in-evento-programa                                as char format "x(10)"
field nr-carteira-benef                                      as as char format "x(17)"
field nr-prestador                                            as char
field cd-unidade-prestador                            like   like moviptmp.cd-unidade 
field cd-prestador like                                           like moviptmp.cd-prestador
field pc-red-acr like                                                moviptmplike moviptmp.pc-red-acr
field nr-cnpj-principal                                     as  as char
field in-tipo                                                     as char format "x(01)"
field cd-unid-prest-membro-eqp                     like moviptmp.cd-unidade 
field cd-prestador-membro-eqp                      like moviptmp.cd-prestador
field aa-guia-atendimento                             like  like guiautor.aa-guia-atendimento
field nr-guia-atendimento                              like   like guiautor.nr-guia-atendimento
field cd-procedimento                                   as  as int format '99999999'
field lg-urgencia                                             as log
field cd-uni-carteira                                        like car-ide.cd-unimed
field nr-guia-prestador                                    as char format "x(20)"
field cd-conselho                                           like preserv.cd-conselho 
field nr-registro                                           like    like preserv.nr-registro 
field cd-uf-conselho                                       like preserv.cd-uf-conselho 
field in-tipo-guia                                            as int 
field cd-id-contratado                                   as  as dec 
field nm-contratado                                     as  as char format "x(70)" 
field cd-id-contratado-executante                  as dec 
field nm-contratado-executante                    as char format "x(70)"
field nm-profissional-executante                   as char format "x(70)"
field cd-unidade                                         like    like moviptmp.cd-unidade
field cd-unidade-prestadora                         like  like moviptmp.cd-unidade-prestadora
field cd-transacao                                         like moviptmp.cd-transacao
field nr-serie-doc-original                               like moviptmp.nr-serie-doc-original
field nr-doc-original                                       like docrecon.nr-doc-original
field recid-lote                                              as recid 
field lg-base                                                 as log 
field lg-gri                                                  as     as log
field nr-seq-interno                                      like   like moviptmp.nr-seq-interno
field cd-insumo                                           like  like mov-itmp.cd-insumo
field nr-processo                                         like  like moviptmp.nr-processo
field nr-seq-digitacao                                   like  like moviptmp.nr-seq-digitacao
field cd-unidade-solicitante                           like moviptmp.cd-unidade 
field cd-prestador-solicitante                         like moviptmp.cd-prestador
field nr-guia-operadora                                as   as char
field nr-guia-principal                                    as char
field cd-unidade-principal                              like like moviptmp.cd-unidade 
field cd-prestador-principal                            like like moviptmp.cd-prestador
field tp-atendimento                                     like docretmp.tp-atend
field nr-guia                                               as    as dec
field cd-pos-equipe                                     like  like moviptmp.cd-pos-equipe
field in-nivel-prestador                                 like  like moviptmp.in-nivel-prestador
field dt-realizacao                                       like  like moviproc.dt-realizacao
field cd-unidade-dh                                     like  like moviptmp.cd-unidade 
field cd-prestador-dh                                   like  like moviptmp.cd-prestador
field cd-trans-classe                                    like   like pipresta.cd-trans-classe
field in-classe-nota                                     like  like assotrcl.in-classe-nota 
field tp-atend                                               as char format "x(2)" 
field cr-solicitacao                                        as char format "x(1)"
field cd-unid-princ                                       like  like moviptmp.cd-unidade 
field cd-prest-princ                                        like like moviptmp.cd-prestador
field cd-via-acesso                                       like moviptmp.cd-via-acesso
field vl-cobrado                                           like  like moviptmp.vl-cobrado
field cd-tab-preco-proc-pag                           like  like preinpr.cd-tab-preco-proc
field in-tp-guia                                              as int
field cd-modalidade                                     like modalid.cd-modalidade
field nr-ter-adesao                                       like propost.nr-ter-adesao
field cd-usuario                                           like usuario.cd-usuario
field tp-consulta                                          like docrecon.tp-consulta
field cd-tipo-insumo                                     like mov-itmp.cd-tipo-insumo
field cd-plano                                              like pla-sau.cd-plano 
field cd-tipo-plano                                       like ti-pl-sa.cd-tipo-plano 
field dt-atend-movto                                    as date format "99/99/9999"
field tp-tabela                                             as  as int format "99"
field nr-versao-aux                                       as char initial "". 
 

...

def temp-table tmp-cpc-api-lote-guia-saida no-undo

field lg-undo-retry                                        as log
field ds-mensagem-retorno                         as char format "x(75)"
field cd-unidade-carteira                              like docretmp.cd-unidade-carteira
field cd-carteira-usuario                               like docretmp.cd-carteira-usuario
field cd-unidade-prestador                         like  like preserv.cd-unidade
field cd-prestador                                        like preserv.cd-prestador
field lg-pc-red-acr-diferente                          as as log 
field pc-red-acr                                           like moviptmp.pc-red-acr
field cd-tipo-percentual                              like   like moviptmp.cd-tipo-percentual
field cd-transacao                                       like guiautor.cd-transacao
field lg-urgencia                                       as    as log
field nr-doc-original                                     like docrecon.nr-doc-original
field lg-div-honosadt                                   as log
field cd-unidade-solicitante                        like   like moviptmp.cd-unidade 
field cd-prestador-solicitante                      like   like moviptmp.cd-prestador
field nr-guia                                               as  as dec
field in-nivel-prestador                                like moviptmp.in-nivel-prestador
field cd-unidade-dh                                   like  like moviptmp.cd-unidade 
field cd-prestador-dh                                 like  like moviptmp.cd-prestador
field cd-motivo-alta                                     like docrecon.cd-motivo-alta
field dt-internacao                                      like docrecon.dt-internacao 
field dt-alta                                                like docrecon.dt-alta 
field hr-internacao                                      like like docrecon.hr-internacao 
field hr-alta                                                like docrecon.hr-alta
field aa-guia-atendimento                          like like docrecon.aa-guia-atendimento
field nr-guia-atendimento                           like  like docrecon.nr-guia-atendimento
field lg-grava-movto                                  as log. 
 

...