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
...