CPC-BOTISSLOTEGUIA.P
Produto: | Gestão de Planos de Saúde |
Módulo: | Todos |
Versão: | 12.x.x |
Assuntos: | 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.
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"
"ANTES-PROC-LOTE"
"MANT-QTDE-INS"
"CRIA-DOCRETMP"
"LEITURA-PACOTES"
"TRATA-PREINPR"
Include das definições das tabelas temporárias
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.
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 as int
field cd-unidade-carteira like docretmp.cd-unidade-carteira
field cd-carteira-usuario like docretmp.cd-carteira-usuario
field cd-unidade-prestador like preserv.cd-unidade
field cd-prestador like preserv.cd-prestador
field cd-tipo-percentual as int
field cd-transacao as int
field ds-mensagem as char format "x(75)"
field ds-caminho-xml-tiss as char format "x(200)"
field dt-internacao-aux as date
field dt-alta-aux as date
field hr-internacao-aux as char
field hr-alta-aux as char
field in-nivel-prestador as int
field lg-erro as logical
field lg-undo-retry as logical
field nr-serie-doc-original like docrecon.nr-serie-doc-original
field nr-cpf like preserv.nr-cgc-cpf
field nr-lote as int
field nr-sequencia as dec
field pc-red-acr as dec
field ds-mensagem-retorno 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
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.
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;
#trackbackRdf ($trackbackUtils.getContentIdentifier($page) $page.title $trackbackUtils.getPingUrl($page))