cpc-botisssolicproc.p

Produto:	Gestão de Planos de Saúde
Módulo:	Todos
Versão:	12.x.xx
Assuntos:	cpc-botisssolicproc.p

Rotina utilizada ao processar solicitação de procedimento TISS via WebService.
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 apenas um registro na tabela temporária de saída. Caso possuir mais de um registro um erro será reportado.

Localização

Dentro da solicitação de procedimento TISS.

Ponto de Utilização

"PREST-EXECUT" => Ao consultar o prestador executante informado no WebService (codigoProfExec, codigoIndicadonaOperadora ou codigonaOperadora).
"ANTES-OUT-UNI"
"APOS-BUSCA-GUIA"
"GUIA-AUT"
"GUIA-PRORROGA"
"GERA-SIMULACAO"
"TRATA-ODONTO"
"VERIFICA-BENEF" => Ao buscar informações do beneficiário informado no WebService (dadosBeneficiario > numeroCarteira), caso encontre o cadastro do mesmo, aciona CPC.
"VALIDA-VARIACAO"
"CODIGO-INSUMO" => Antes de realizar a pesquisa do insumo informado no WebService, é possível manipular a informação dos campos "Tipo de Insumo" e "Código do insumo" que serão utilizados.
"ANTES-ASSOTGCL" => Disponível a partir da versão 12.1.2407.

Include das definições das tabelas temporárias

cpc-botisssolicproc.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-botisssolicproc-entrada

def temp-table tmp-cpc-botisssolicproc-entrada no-undo

field in-evento-programa as char format "x(10)"
field nm-ponto-chamada-cpc as char format "x(15)"
field nr-guiautor                as rowid
field nr-procguia                 as rowid
field cd-unidade-carteira like guiautor.cd-unidade-carteira
field cd-carteira-usuario like guiautor.cd-carteira-usuario
field cd-unidade-principal       like guiautor.cd-unidade-principal
field cd-prestador-principal       like guiautor.cd-prestador-principal
field cd-servico                  as int64 format "9999999999"
field tp-tabela                  as int format "99"
field ds-observacao              as char
field cd-codigo                  as char
field tp-tipoTransacao             as char
field cd-unidade-prestador-exec    like preserv.cd-unidade
field cd-prestador-exec          like preserv.cd-prestador
field cd-esp-prest-executante like previesp.cd-especialid
field in-carater-internacao as char
field qt-servico                  as char
field qt-us                         as char
field nm-prest-exec-compl        like guiainod.nm-prest-exec-compl
field char-3                  like guiainod.char-2
field nr-registro                   like guiainod.nr-conse-prest-exec-compl
field uf-conselho             like guiainod.uf-conse-prest-exec-compl
field char-2                    like guiainod.char-2
field lg-odonto                   as log
field nr-versao                  as char
field nr-guia-prestador              like guiautor.nr-guia-atendimento
field nr-guia-operadora        as char
field identificador-beneficiario as char
field id-pessoa                   like usuario.id-pessoa
field cd-modalidade          like usuario.cd-modalidade
field nr-proposta               like usuario.nr-proposta
field cd-usuario             like usuario.cd-usuario
field cd-unidade-prestador-solic like preserv.cd-unidade
field cd-prestador-solic          like preserv.cd-prestador

field ds-movimento as char

field in-tipo-guia as char
field id as int
field h-tmp-proced-solicproc as handle
field dt-emissao as date.

Definição campo a campo da tabela de entrada

in-evento-programa - Nome do evento relacionado ao ponto de CPC dentro do programa que a utiliza.
nm-ponto-chamada-cpc – Nome do ponto de chamada da CPC dentro do programa que a utiliza.
nr-guiautor - Identificador do registro da guia.
nr-procguia - Identificador do registro de procedimentos da guia.
cd-unidade-carteira - Código da unidade do beneficiário.
cd-carteira-usuario - Código da carteira do beneficiário.
cd-unidade-principal - Código da unidade do prestador principal.
cd-prestador-principal - Código do prestador principal.
cd-servico - Código do serviço.
tp-tabela - Código da tabela
ds-observacao - Observação
cd-codigo - Código
tp-tipoTransacao - Tipo da Transação
cd-unidade-prestador-exec - Código da unidade do prestador executante.
cd-prestador-exec - Código do prestador executante.
cd-esp-prest-executante - Código da especialidade do prestador executante.
in-carater-internação - Caráter da internação: Urgência ou Eletiva.
qt-servico - Indica a quantidade do serviço.
qt-us - Quantidade
nm-prest-exec-compl - Nome do prestador
char-3 - Código do conselho do prestador
nr-registro - Número do registro do prestador
uf-conselho - Unidade federativa do conselho do prestador
char-2
lg-odonto - Identifica se é referente a Odonto
nr-versao - Versão TISS.
nr-guia-prestador - Número guia prestador.
nr-guia-operadora - Número guia operadora.
identificador-beneficiario - Biometria do beneficiário.
id-pessoa - Código da tabela pessoa do beneficiário.
cd-modalidade - Código da modalidade do beneficiário.
nr-proposta - Número da proposta do beneficiário.
cd-usuario - Código do beneficiário.
cd-unidade-prestador-solic - Código da unidade do solicitante.
cd-prestador-solic - Código do prestador solicitante.
ds-movimento - Descrição do movimento
in-tipo-guia - indica o tipo da guia ("I" = internação; "P" = prorrogação; "S" =SADT; "O" = odontologia)
id - ID da tabela temporária
h-tmp-proced-solicproc - handle para a tabela temporária "tmp-proced-solicproc"
dt-emissao - data de emissão da guia

Tabela de entrada de movimentos tmp-cpc-botisssolicproc-movtos

def temp-table tmp-cpc-botisssolicproc-movtos no-undo

field cd-unidade like procguia.cd-unidade
field cd-unidade-prestador-exec like procguia.cd-unidade-prestador
field cd-prestador-exec like procguia.cd-prestador
field qt-servico like insuguia.qt-insumo
field tp-servico as char format "x(1)"
field cd-servico as int64 format "9999999999"
field tipo-insumo like mov-insu.cd-tipo-insumo
index serv-1 as primary
cd-servico.

Definição campo a campo da tabela de entrada de movimentos

- cd-unidade - Código da unidade.
- cd-unidade-prestador-exec - Código da unidade do prestador executante.
- cd-prestador-exec - Código do prestador executante.
- qt-servico - Indica a quantidade do serviço.
- tp-servico - Indica o tipo do serviço: "A" Pacote, "I" Insumo e "P" Procedimento.
- cd-servico - Código do serviço.
- tipo-insumo - Tipo do Insumo - se tp-servico = "I".

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

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

field lg-undo-retry as log
field ds-mensagem as char
field ds-observacao as char
field aa-guia-atendimento like guiautor.aa-guia-atendimento
field nr-guia-atendimento like guiautor.nr-guia-atendimento
field tp-movto as char format "x(01)"
field cd-tipo-insumo as int format "99"
field cd-servico as int format "99999999"
field lg-simulacao as log
field lg-modulo-odonto as log
field lg-retorno-erro as log
field lg-grava-erro as log
field lg-tem-serious as log

field id-seq-variacao as dec
field cd-unidade-prestador-exec like preserv.cd-unidade
field cd-prestador-exec like preserv.cd-prestador

field lg-sobrepoe-classe-nota as logical
field in-classe-nota as int.

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

lg-undo-retry - Informa ao programa se ocorreu algum na CPC.
ds-mensagem - Mensagem de erro retornada do programa CPC.
ds-observacao - Observação
aa-guia-atendimento - Ano da guia de atendimento.
nr-guia-atendimento - Número da guia de atendimento.
tp-movto - Indica o tipo do serviço: "A" Pacote, "I" Insumo e "P" Procedimento
cd-tipo-insumo - Tipo do Insumo - se tp-movto = "I"
cd-servico - Código do serviço.
lg-simulacao - Identifica se é simulação
lg-modulo-odonto - identifica se é referente a Odonto
lg-retorno-erro - Identifica se é erro
lg-grava-erro - identifica se grava erro
lg-tem-serious - Identifica se é sistema Serious
id-seq-variacao - Identificador da variação.
cd-unidade-prestador-exec - Código da unidade do prestador executante.
cd-prestador-exec - Código do prestador executante.
lg-sobrepoe-classe-nota - indica se deve sobrepor a classe de nota
in-classe-nota - código da classe de nota