CPC-BOTISSLOTEGUIA.P

• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
• Será permitido para esta CPC no máximo um registro na tabela temporária de saída.

Ponto Pontos de Utilização 

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

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

...

"MANT-QTDE-INS"
"CRIA-DOCRETMP"
"LEITURA-PACOTES"
"TRATA-PREINPR"
"ANTES-DOCRETMP"
"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      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 as int
field cd-unidade-executante carteira                                        like moviptmpdocretmp.cd-unidade-carteira
field cd-prestadorcarteira-executante usuario                                          like moviptmplike docretmp.cd-prestador
field nr-recid-perimovi                                                  as recid
field nr-recid-tranrevi carteira-usuario
field cd-unidade-prestador                                                    as recid
field nmlike preserv.cd-unidade
field cd-prestador                                                        like like preserv.nmcd-prestador
field dtcd-suspensaotipo-par percentual                                                 like sitprest.dt-inicio-suspensao as int
field h-tmp-lote-guia-tiss cd-transacao                                                  as handleint
field h-tmp-sadt-loteguia ds-mensagem                                                as handlechar format "x(75)"
field hds-tmpcaminho-desp-sadt-loteguia xml-tiss                                       as handlechar format "x(200)"
field hdt-tmp-equip-loteguias internacao-aux                                            as handleas date
field hdt-tmp-internacao-loteguia alta-aux                                                      as handledate
field hhr-tmp-declara-inter-loteguias internacao-aux                                           as handlechar
field hhr-tmp-diag-inter-loteguias alta-aux                                      as handle
field h-tmp-honorarios-loteguia                  as char
field in-nivel-prestador                   as handle
field h-tmp-proc-loteguia                         as int
field lg-erro                     as handle
field h-tmp-consulta-loteguia                                       as handle as logical
field hlg-tmp-odonto-loteguia undo-retry                                                 as handle as logical
field hnr-tmp-odont-inic-odonto-loteguia serie-doc-original                                      as handle
field h-tmp-dentes-odonto-loteguias  like docrecon.nr-serie-doc-original
field nr-cpf                                   as handle
field h-tmp-proced-odonto-loteguias                           as handlelike preserv.nr-cgc-cpf
field hnr-tmp-param-lote-guia lote                                                            as handleint
field in-tipo-pessoa     nr-sequencia                                                 as char

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

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

field cd-motivo-alta dec
field pc-red-acr                                                      as intas dec
field cdds-unidademensagem-carteira retorno                                        like docretmp.cd-unidade-carteira
field cd-carteira-usuario  as char format "x(75)"
field lg-grava-movto                                             like docretmp.cd-carteira-usuario
field cd-unidade-prestador  as log
field lg-pc-red-acr-diferente                                     like preserv.cd-unidade as log
field cdlg-prestador urgencia                                                   like preserv.cd-prestador as log
field cdnr-tipo-percentual doc-original                                                as intlike docrecon.nr-doc-original
field cd-transacao nr-guia                                                          as intdec
field dscd-unidade-mensagem dh                                                as char format "x(75)"
field ds-caminho-xml-tiss  like moviptmp.cd-unidade
field cd-prestador-dh                                           as char format "x(200)"
field dt-internacao-aux like moviptmp.cd-prestador
field lg-div-honosadt                                           as date as log
field dtcd-alta-aux unidade-solicitante                                  like moviptmp.cd-unidade
field cd-prestador-solicitante                                 as datelike moviptmp.cd-prestador
field hrdt-internacao -aux                                               as char like docrecon.dt-internacao
field hrdt-alta -aux                                                            as charlike docrecon.dt-alta
field in-nivel-prestador hr-internacao                                                  as intlike docrecon.hr-internacao
field lghr-erro alta                                                             as logical like docrecon.hr-alta
field lgaa-undoguia-retry atendimento                                                   as logicallike docrecon.aa-guia-atendimento
field nr-serieguia-doc-original atendimento                                       like docrecon.nr-serieguia-doc-originalatendimento
field nr-cpf processo                                                              like preserv.nr-cgc-cpfas int
field nr-lote         cd-pacote                                                     as int
field nrlg-sequencia resposta                                                  as dec as log
field pc-red-acr lg-troca                                                        as dec as logical
field dslg-mensagem-retorno mantem-qtde                                            as char format "x(75)"
field lg-grava-movto                                              as log
field lg-pc-red-acr-diferente                                  as log
field lg-urgencia                                                    as log
field nr-doc-original                                               like docrecon.nr-doc-original
field nr-guia                                                          as dec
field cd-unidade-dh                                              like moviptmp.cd-unidade
field cd-prestador-dh                                           like moviptmp.cd-prestador
field lg-div-honosadt                                            as log
field cd-unidade-solicitante                                  like moviptmp.cd-unidade
field cd-prestador-solicitante                               like moviptmp.cd-prestador
field dt-internacao                                                like docrecon.dt-internacao
field dt-alta                                                           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

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

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ínicalg-troca - Indica se o sistema deve ou não realizar a troca dos dados do profissional executante;