Histórico da Página
...
"NRO-LOTE"
"CAMINHO-XML"
"CONS-PRESTADOR"
"CONS-MEMBR"
"PERC-ACRESDESC"
"CONS-PREST-EXEC"
"CONS-PRESTADOR"
"BUSCA-TRANS"
"PREST-NAO-VINC"
"SETA-SERIE-DOC"
"FATOR-NIVEL-AUX"
"PREST-EXECUT"
"VALIDA-INSUMO"
"BUSCA-TP-PERC"
"NIVEL-PRESTADOR"
"LOCAL-TRANS"
"MEMBRO-EQUIPE"
"ALTERA-LOTEIMP"
"HORA-URGENCIA"
"DEF-PRE-SOLIC"
"SETA-NR-DOC"
"NR-AUTOR-SADT"
"DIV-HONOSADT"
"SUSP-PREST"
"DIV-HONOR-GRAU" - Quando utiliza Prestador Principal ao invés do Executante para SADT não deve validar Prestador Executante
"ANTES-PROC-LOTE"
"MANT-QTDE-INS"
"CRIA-DOCRETMP"
"LEITURA-PACOTES"
"TRATA-PREINPR"
"ANTES-DOCRETMP"
Include das definições das tabelas temporárias
- cpc-botissloteguia.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-botissloteguia-entrada
def temp-table tmp-cpc-botissloteguia-entrada no-undo
...
"APOS-ASSINSUM"
"ALTERA-CLA-HOS"
"ANTES-INSUMO"
"INI-PROC-REALI"
"INI-CONS-MEMBRO"
"ANT-VAL-IND-CLI"
"VALOR-NEGATIVO" - Caso ativo é possível retornar a variável lg-continua para informar se procede ou não gerando erro de valor negativo. A partir da versão 12.1.2301.
Include das definições das tabelas temporárias
- cpc-botissloteguia.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-botissloteguia-entrada
def temp-table tmp-cpc-botissloteguia-entrada no-undo
field nm-ponto-chamada-cpc as char format "x(15)"
field in-evento-programa as char format "x(10)"
field nr-carteira-benef as char format "x(17)"
field nr-prestador as char
field cd-unidade-prestador like moviptmp.cd-unidade
field cd-prestador like moviptmp.cd-prestador
field nr-lote as dec
field pc-red-acr like moviptmp.pc-red-acr
field nr-cnpj-principal 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 guiautor.aa-guia-atendimento
field nr-guia-atendimento like guiautor.nr-guia-atendimento
field cd-procedimento 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 preserv.nr-registro
field cd-uf-conselho like preserv.cd-uf-conselho
field in-tipo-guia as int
field cd-id-contratado as dec
field nm-contratado 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 moviptmp.cd-unidade
field cd-unidade-prestadora 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
...
log
field nr-
...
seq-interno
...
like moviptmp.nr-seq-interno
field cd-
...
insumo like
...
mov-itmp.cd-
...
insumo
field
...
nr-
...
processo like moviptmp.
...
nr-
...
processo
field nr-seq-
...
digitacao 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 char
field
...
nr-guia-
...
principal
...
as char
field cd-
...
unidade-principal like moviptmp.cd-unidade
field cd-prestador-
...
principal like moviptmp.cd-prestador
field
...
tp-atendimento like
...
docretmp.
...
tp-
...
atend
field nr-guia
...
...
as dec
field cd-pos-
...
equipe
...
like moviptmp.cd-pos-equipe
field in-nivel-prestador
...
like moviptmp.in-nivel-prestador
field
...
dt-realizacao like
...
moviproc.
...
dt-
...
realizacao
field
...
cd-
...
unidade-
...
dh
...
like moviptmp.cd-unidade
field cd-prestador-
...
dh
...
like moviptmp.cd-
...
prestador
field
...
cd-trans-
...
classe
...
like pipresta.cd-trans-classe
field in-classe-nota 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 moviptmp.cd-unidade
field cd-
...
prest-princ
...
like moviptmp.cd-prestador
field cd-via-acesso
...
...
like moviptmp.cd-via-acesso
field vl-cobrado like moviptmp.
...
vl-
...
cobrado
field cd-tab-preco-
...
proc-
...
pag
...
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 nr-
...
rowid-
...
usuario
...
as rowid
field nr-
...
rowid-out-uni
...
as rowid
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 int format "99"
field nr-
...
versao-
...
aux as char initial ""
field cd-
...
id
...
...
as int
field
...
hr-
...
realizacao
...
like moviptmp.
...
hr-
...
realizacao
field
...
cd-unidade-executante like moviptmp.cd-unidade
field cd-prestador-executante
...
like moviptmp.cd-prestador
field
...
nr-
...
recid-
...
perimovi
...
as recid
field
...
nr-
...
recid-
...
tranrevi
...
as recid
field
...
nm-
...
prestador like
...
preserv.
...
nm-
...
prestador
field
...
dt-
...
suspensao-
...
par
...
like sitprest.dt-inicio-suspensao
field h-tmp-lote-guia-tiss as handle
field h-tmp-sadt-loteguia
...
as handle
field h-tmp-desp-sadt-loteguia
...
as handle
field h-tmp-equip-loteguias
...
as handle
field h-tmp-internacao-loteguia as handle
field h-tmp-declara-inter-loteguias as
...
handle
field h-tmp-diag-inter-loteguias
...
as handle
field h-tmp-honorarios-loteguia as
...
handle
field
...
h-tmp-
...
proc-
...
loteguia
...
as handle
field h-tmp-consulta-loteguia as handle
field h-tmp-odonto-loteguia
...
as handle
field h-tmp-odont-inic-odonto-loteguia
...
as handle
field h-tmp-dentes-odonto-loteguias as handle
field h-tmp-proced-odonto-loteguias
...
as handle
field
...
h-
...
tmp-
...
param-
...
lote-
...
guia
...
as handle
field in-
...
tipo-pessoa
...
as
...
char
field
...
nr-
...
sequencia
...
like loteimp.
...
nr-
...
sequencia
field
...
cd-pacote like
...
paproins.
...
cd-
...
pacote
field cd-
...
clinica
...
like
...
clinicas.cd-
...
clinica
field
...
cd-local-atendimento like locaaten.cd-local-atendimento
field numeroGuiaOperadora
...
as char
field senha
...
as char
field
...
r-assinsum
...
as rowid
field
...
ds-
...
tipo-guia
...
as char
field
...
h-tmp-cabecalho-tiss
...
as handle
field cdn-tip-desp
...
like tiss-assoc-tip-despes.cdn-tip-despes
field cod-tabela as
...
char
field
...
cod-
...
procedimento
...
as char
field dt-base
...
as date
field lg-busca-insumo
...
as logical
field lg-convert
...
as logical
field h-buffer-tmp-docretmp
...
as handle
field
...
id-
...
tabela-
...
pai
...
as int
field codigoPrestadorNaOperadora
...
as char
field
...
h-
...
buffer-tmp-sadt-loteguia as
...
handle
field
...
lg-
...
carater-
...
atend
...
as log.
Definição campo a campo da tabela de entrada
- nm-ponto-chamada-cpc - nome do ponto de cpc;
- in-evento-programa - nome do evento do ponto de cpc;
...
- nr-carteira-benef - número do documento de identificação do beneficiário;
...
- nr-prestador - número do prestador;
- cd-unidade-prestador - código da unidade do prestador;
- cd-prestador - código do prestador;
- nr-lote - número do lote;
- pc-red-acr - percentual de redução ou acréscimo;
- nr-cnpj-principal - número CNPJ;
- 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;
- numeroGuiaOperadora - valor da tag "numeroGuiaOperadora" do arquivo XML;
- senha - valor da tag "senha" do arquivo XML;
- r-assinsum - rowid da tabela "assinsum";
- ds-tipo-guia - identifica o tipo de guia TISS (consulta, SP/SADT, internação, odonto ou honorário individual);
- h-tmp-cabecalho-tiss - handle da tabela temporária que armazena os dados do cabeçalho do arquivo XML.;
- cdn-tip-desp - identifica o tipo de despesa;
- cod-tabela - código da tabela;
- cod-procedimento - código do procedimento;
- dt-base - identifica a data base;
- lg-busca-insumo - variável que indica se busca ou não o insumo;
- lg-convert - identifica se o insumo foi convertido;
- h-buffer-tmp-sadt-loteguia - handle para o buffer da tabela temporária "tmp-sadt-loteguia";
- lg-carater-atend - campo lógico para enviar o caráter de atendimento.
Tabela de saída tmp-cpc-botissloteguia-saida
def temp-table tmp-cpc-botissloteguia-saida no-undo
field cd-motivo-alta as handle
field h-tmp-desp-sadt-loteguia as handle
field h-tmp-equip-loteguias as handle
field h-tmp-internacao-loteguia as handle
field h-tmp-declara-inter-loteguias as handle
field h-tmp-diag-inter-loteguias as handle
field h-tmp-honorarios-loteguia as handle
field h-tmp-proc-loteguia as handle
field h-tmp-consulta-loteguia as handle
field h-tmp-odonto-loteguia as handle
field h-tmp-odont-inic-odonto-loteguia as handle
field h-tmp-dentes-odonto-loteguias as handle as int
field hcd-tmp-proced-odonto-loteguias unidade-carteira as handle like docretmp.cd-unidade-carteira
field hcd-tmp-param-lote-guia carteira-usuario as handlelike docretmp.cd-carteira-usuario
field in-tipo-pessoa cd-unidade-prestador as charlike preserv.cd-unidade
field nrcd-sequencia prestador like loteimppreserv.nrcd-sequenciaprestador
field cd-pacote tipo-percentual as int
field cd-transacao like paproins.cd-pacote
field cd-clinica as int
field ds-mensagem like clinicas.cd-clinica
field cd-local-atendimento as char format "x(75)"
field ds-caminho-xml-tiss 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 char format "x(200)"
field dt-internacao-aux as date
field dt-alta-aux as date
field hr-internacao-aux as intas char
field cdhr-unidade-carteira alta-aux like docretmp.cd-unidade-carteira as char
field cdin-carteiranivel-usuario prestador like docretmp.cd-carteira-usuarioas int
field cd-unidade-prestador lg-erro like preserv.cd-unidade as logical
field cdlg-undo-prestador retry like preserv.cd-prestador as logical
field cdnr-serie-tipodoc-percentual original as int like docrecon.nr-serie-doc-original
field cd-transacao nr-cpf as int
field ds-mensagem like preserv.nr-cgc-cpf
field nr-lote as char format "x(75)"
field ds-caminho-xml-tiss as char format "x(200)" as int
field dt-internacao-aux nr-sequencia as datedec
field dtpc-altared-aux acr as dateas dec
field hrds-internacaomensagem-aux retorno as char
field hr-alta-aux as char format "x(75)"
field lg-grava-movto as charlog
field inlg-pc-nivel-prestador red-acr-diferente as int as log
field lg-erro urgencia as logicallog
field lgnr-undodoc-retry original as logical
field nr-serielike docrecon.nr-doc-original
field nr-guia like docrecon.nr-serie-doc-original
field nr-cpf as dec
field cd-unidade-dh like preserv like moviptmp.nrcd-cgc-cpfunidade
field nr-lote cd-prestador-dh as int
field nr-sequencia like moviptmp.cd-prestador
field lg-div-honosadt as dec as log
field pccd-redunidade-acr solicitante as dec
field ds-mensagem-retorno like moviptmp.cd-unidade
field cd-prestador-solicitante as char format "x(75)"
field lg-grava-movto like moviptmp.cd-prestador
field dt-internacao as log like docrecon.dt-internacao
field lg-pc-red-acr-diferente dt-alta as log
field lg-urgencia as log
field nr-doc-original like docrecon.dt-alta
field hr-internacao like docrecon.nrhr-doc-originalinternacao
field nrhr-guia alta as dec like docrecon.hr-alta
field cdaa-unidade-dh guia-atendimento like moviptmp.cd-unidade
field cd-prestador-dh like docrecon.aa-guia-atendimento
field nr-guia-atendimento like moviptmp.cd-prestador
field lg-div-honosadt like docrecon.nr-guia-atendimento
field nr-processo as logas int
field cd-unidade-solicitante pacote like moviptmp.cd-unidade as int
field cd-prestador-solicitante lg-resposta like moviptmp.cd-prestador as log
field dtlg-internacao troca like docrecon.dt-internacao
field dt-alta as logical
field lg-mantem-qtde like docrecon.dt-alta
field hr-internacao like docrecon.hr-internacao
field hr-alta like docrecon.hr-alta
field aa-guia-atendimento like docrecon.aa-guia-atendimento
field nr-guia-atendimento like docrecon.nr-guia-atendimento
field nr-processo as int
field cd-pacote as int
field lg-resposta as log
field lg-troca as logical
field lg-mantem-qtde as log
field nr-rowid-paproins as rowid as rowid
field cd-unidade-pagto like preserv.cd-unidade
field cd-prestador-pagto like preserv.cd-prestador
field lg-manual as log
field cd-clinica like clinicas.cd-clinica
field cd-local-atendimento like locaaten.cd-local-atendimento.
Definição campo a campo da tabela de saída
as log
field nr-rowid-paproins as rowid
field cd-unidade-pagto like preserv.cd-unidade
field cd-prestador-pagto like preserv.cd-prestador
field lg-manual as log
field cd-clinica like clinicas.cd-clinica
field cd-local-atendimento like locaaten.cd-local-atendimento
field r-assinsum as rowid
field cd-cla-hos as int
field lg-alt-insumo as logical
field cd-tipo-insumo like mov-insu.cd-tipo-insumo
field cd-insumo like mov-insu.cd-insumo
field lg-busca-insumo as logical initial yes
field lg-convert as logical
field lg-continua as logical initial yes
field lg-valida-ind-clinica as logical initial yes.
Definição campo a campo da tabela de saída
- lg-troca - Indica se o sistema deve ou não realizar a troca dos dados do profissional executante;
- lg-mantem-qtde - Indica que não deve ser validada a quantidade de dígitos do campo insumo na importação do Lote Guias;
- cd-clinica - código da clínica;
- cd-local-atendimento - código do local de atendimento
- r-assinsum - rowid da tabela "assinsum"
- nr-rowid-paproins - rowid da tabela "paproins"
- cd-unidade-pagto - código da unidade de pagamento
- cd-prestador-pagto - código do prestador de pagamento
- lg-manual - indica
- cd-cla-hos - código da classe hospitalar
- lg-alt-insumo - indica se altera insumo
- cd-tipo-insumo - código do tipo de insumo
- cd-insumo - código do insumo
- lg-busca-insumo - variável que indica se busca ou não o insumo
- lg-convert - identifica se o insumo foi convertido
- lg-valida-ind-clinica - indica se o produto deve fazer a consistência da indicação clínica
- lg-troca - Indica se o sistema deve ou não realizar a troca dos dados do profissional executante;
- lg-mantem-qtde - Indica que não deve ser validada a quantidade de dígitos do campo insumo na importação do Lote Guias;