Histórico da Página

...

"LEITURA-PACOTES"

"TRATA-PREINPR"

"ANTES-DOCRETMP"

Include das definições das tabelas temporárias

...

field cd-pacote                                                           like paproins.cd-pacote.

Definição campo a campo da tabela de entrada

• in-tipo-pessoa - Indica o tipo de pessoa (F - Fisica ou J - Jurídica);

Tabela de saída tmp-cpc-botissloteguia-saida

...

field cd-motivo-alta clinica                                                            like clinicas.cd-clinica
field cd-local-atendimento                                         like locaaten.cd-local-atendimento.

Definição campo a campo da tabela de entrada

• in-tipo-pessoa - Indica o tipo de pessoa (F - Fisica ou J - Jurídica);
• cd-clinica - código da clínica;
• cd-local-atendimento - código do local de atendimento.

Tabela de saída tmp-cpc-botissloteguia-saida

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

field cd-motivo-alta                                                as int
field cd-unidade-carteira                                        like docretmp.cd-unidade-carteira
field cd-carteira-usuario                                         like docretmp.cd-carteira-usuario
field cd-unidade-prestador  as int
field cd-unidade-carteira                                        like docretmplike preserv.cd-unidade-carteira
field cd-carteira-usuario prestador                                                   like docretmppreserv.cd-carteira-usuarioprestador
field cd-tipo-percentual                                          as int
field cd-unidade-prestador transacao                                                 like preserv.cd-unidade as int
field cdds-prestador mensagem                                                   like preserv.cd-prestador
field cd-tipo-percentual  as char format "x(75)"
field ds-caminho-xml-tiss                                          as int
field cd-transacao as char format "x(200)"
field dt-internacao-aux                                           as date
field dt-alta-aux        as int
field ds-mensagem                                                as char format "x(75)"date
field dshr-caminho-xml-tiss internacao-aux                                           as char format "x(200)"
field dthr-internacaoalta-aux                                                 as date     as char
field dtin-alta-aux nivel-prestador                                           as int
field lg-erro                  as date
field hr-internacao-aux                                           as char as logical
field hrlg-altaundo-aux retry                                                      as charlogical
field innr-serie-niveldoc-prestador original                                           as int
field lg-erro  like docrecon.nr-serie-doc-original
field nr-cpf                                                              as logicallike preserv.nr-cgc-cpf
field lg-undo-retry nr-lote                                                            as logicalint
field nr-serie-doc-original                         sequencia              like docrecon.nr-serie-doc-original
field nr-cpf                                     as dec
field pc-red-acr                         like preserv.nr-cgc-cpf
field nr-lote                             as dec
field ds-mensagem-retorno                                  as intchar format "x(75)"
field nrlg-grava-sequencia movto                                                 as dec as log
field lg-pc-red-acr-diferente                                  as log
field lg-urgencia                     as dec
field ds-mensagem-retorno                                        as char format "x(75)"log
field lgnr-gravadoc-movto original                                                as loglike docrecon.nr-doc-original
field lg-pc-red-acr-diferente nr-guia                                                          as logdec
field lgcd-unidade-urgencia dh                                                    as log like moviptmp.cd-unidade
field nrcd-docprestador-original     dh                                           like docreconmoviptmp.nrcd-doc-originalprestador
field nr-guia             lg-div-honosadt                                              as declog
field cd-unidade-dh solicitante                                              like moviptmp.cd-unidade
field cd-prestador-dh             solicitante                                like moviptmp.cd-prestador
field lg-div-honosadt dt-internacao                                                like docrecon.dt-internacao
field dt-alta                            as log
field cd-unidade-solicitante                                  like moviptmplike docrecon.cddt-unidade alta
field cd-prestador-solicitante  hr-internacao                                                like moviptmpdocrecon.cdhr-prestadorinternacao
field dt-internacao hr-alta                                                           like docrecon.dthr-internacao alta
field dt-alta aa-guia-atendimento                                    like docrecon.aa-guia-atendimento
field nr-guia-atendimento                                    like  like docrecon.dtnr-guia-alta atendimento
field hrnr-internacao  processo                                                  like docrecon.hr-internacao as int
field hrcd-alta  pacote                                                           like docrecon.hr-alta as int
field aa-guia-atendimento      lg-resposta                                like docrecon.aa-guia-atendimento
field nr-guia-atendimento                                     like docrecon.nr-guia-atendimento as log
field nr-processo  lg-troca                                                        as int as logical

field cdlg-mantem-pacote  qtde                                            as log

...

...

field nr-rowid-paproins as rowid                           as

...

rowid

...

                            field cd-unidade-pagto                     

...

                  like preserv.cd-unidade
                         

...

    field cd-prestador-pagto                            field nr-rowid-paproins as rowid            like preserv.cd-prestador

               as rowid
                field lg-manual              field cd-unidade-pagto                                        like preserv.cd-unidade as log
                            field cd-prestador-pagto  clinica                                      like preserv.cd-prestador                 like clinicas.cd-clinica
            field lg-manual                  field cd-local-atendimento                                     as loglike locaaten.cd-local-atendimento.

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

...