cpc-botisssolicproc.p

Produto:	Gestão de Planos de Saúde
Módulo:	Todos
Versão:	12.1.22
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 do programa Manutenção Reativa Exclusão - HVP.ViewReactiveExclusion ao reativar os beneficiários.

Ponto de Utilização

"PREST-EXECUT" => Ao consultar o prestador executante informado no WebService (codigoProfExec, codigoIndicadonaOperadora ou codigonaOperadora).

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 nm-ponto-chamada-cpc as char format "x(15)"
field cd-modalidade as int
field nr-proposta as int
field cd-usuario as int.

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.
nr-procguia.
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
tp-tabela
ds-observacao
cd-codigo
tp-tipoTransacao
cd-unidade-prestador-exec - Código da unidade do prestador executante.
cd-prestador-exec - Código do prestador executante.
cd-esp-prest-executante
in-carater-internacao
qt-servico
qt-us
nm-prest-exec-compl
char-3
nr-registro
uf-conselho
char-2
lg-odonto
nr-versao
nr-guia-prestador
nr-guia-operadora

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 int format "999999999"
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

- 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.
- tp-servico.
- cd-servico.
- tipo-insumo.

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 cd-unidade-prestador-exec like preserv.cd-unidade
field cd-prestador-exec like preserv.cd-prestador.

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
aa-guia-atendimento - Ano da guia de atendimento.
nr-guia-atendimento - Número da guia de atendimento.
tp-movto
cd-tipo-insumo
cd-servico
lg-simulacao
lg-modulo-odonto
lg-retorno-erro
lg-grava-erro
lg-tem-serious
cd-unidade-prestador-exec - Código da unidade do prestador executante.
cd-prestador-exec - Código do prestador executante.