CPC-ATAPI023.p

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

Rotina utilizada no recebimento de autorizações eletrônicas (intercâmbio eletrônico).
Rotina utilizada para permitir a mudança nos valores dos campos recebidos dos sistemas conectados ao intercâmbio eletrônico.
Rotina utilizada para permitir alterar a ação do intercâmbio, conforme classe de erro.
Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
Rotina utilizada para permitir alterar a observação da guia recebida nas autorizações eletrônicas (intercâmbio eletrônico).
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.
Essa cpc possui uma particularidade que é a utilização de temp de input-output na passagem de parâmetros.
Rotina utilizada para alterar o status da guia após o retorno da cpc no ponto de chamada status-rthiguia. Sempre quando retornado uma guia com status 8 Negada e com status 2 Autorizada será desconsiderada qualquer outra atualização de status feita pelo sistema. A guia com status 8-Negada terá seu status alterado para 1-Digitada pelo ponto de cpc status-rthiguia.
Não existe função de utilização, pois essa cpc tem a funcionalidade de converter quaisquer dados que por ventura o cliente ache necessário para o bom funcionamento da montagem da resposta das solicitações.

Localização

Dentro do atapi023.p no início do processo de recebimento e montagem da resposta da solicitação.

Ponto de Utilização

"ALTERA-STATUS"
"DPS-ENC-SOLIC"
"ALTERA-GLOSA"
"ALTERA-OBS"
"ANTES-CRIA-GUIA"
"DPS-CRIA-GUIA"
"STATUS-RTHIGUIA"
"FINAL-SEG-500"
"CONV-SERIOUS-IE"
"TRATA-SIT-RESP"
"STATUS-AUDIT"
"TROCA-STS-AUT"
"TROCA-STS-GN"
"REGRA-ALTO-CUST"
"ANT-EXP-PACOTE" - ponto disponível partir da versão 12.1.2403
"INI-ATZ-PACOTE" - ponto disponível partir da versão 12.1.2403
"ANT-REG-URG-BXR" - ponto disponível a partir da versão 12.1.2407
"ANT-REGRA-URG" - ponto disponível a partir da versão 12.1.2407

Include das definições das tabelas temporárias

cpc-atapi023.i

Tabelas de entrada e saída

Tabela de entrada e saída tmp-campos-layout-recebido – Dados do documento

def temp-table tmp-campos-layout-recebido no-undo
field cd-transacao-ptu as char format "x(05)"
field tp-cliente as char format "x(15)"
field cd-unidade-origem as char format "x(04)"
field cd-unidade-destino as char format "x(04)"
field nr-ident-origem as char format "x(10)"
field nr-ident-destino as char format "x(10)"
field cd-unidade as char format "x(04)"
field id-beneficiario as char format "x(13)"
field nr-via-cartao as char format "x(02)"
field cd-cid as char format "x(04)"
field id-alto-custo as char format "x(01)"
field nm-prestador as char format "x(25)"
field ds-observacao as char format "x(999)"
field cd-unidade-prestador-req as char format "x(04)"
field cd-prestador-req as char format "x(08)"
field cd-unidade-prestador as char format "x(04)"
field cd-prestador as char format "x(08)"
field cd-especialidade-prestador as char format "x(03)"
field ds-just-internacao as char format "x(200)"
field qt-dias-evol-patol as char format "x(4)"
field tp-atendimento as char format "x(1)"
field tp-carater-atend as char format "x(1)"
field dt-atendimento as char format "x(8)"
field ds-linha-origem as char format "x(256)"
field in-classe-nota as char format "x(02)"
field id-rn as char format "x(01)"
field tp-inter as char format "x(01)"
field id-acidente as char format "x(01)"
field dt-sug-internacao as char format "x(08)"
field id-ordem-servico as char format "x(01)"
field nr-ident-os as char format "x(10)"
field nr-ver-tiss as char format "x(07)"
field cd-uni-atend as char format "x(04)"
field nr-versao-ptu as char format "x(03)"
field nm-pro-solic-opme as char format "x(70)"
field nr-telefone-opme as char format "x(11)"
field end-email-opme as char format "x(60)"
field ds-diag-cit-hist-quimio as char format "x(1000)"
field ds-diag-cit-hist-radio as char format "x(1000)"
field ds-inf-relev-quimio as char format "x(1000)"
field ds-inf-relev-radio as char format "x(1000)"
field ds-pl-terap as char format "x(999)"
field ds-quimio as char format "x(1000)"
field ds-radio as char format "x(1000)"
field ds-opme as char format "x(1000)"
field ds-just-tec as char format "x(999)"
field ds-mat-solic as char format "x(999)"
field id-anexo as char format "x"
field tp-sexo as char format "x"
field nr-idade as char format "x(3)"
field tpRedeMIN as char format "x(01)"
field idLiminar as char format "x(01)"
field cdIBGE as int
field protocoloAtendimento as char format "x(20)"
field token as char format "x(6)"
field tipoEtapaAutorizacao as int
field dataSolicitacao as date
field tipoGuia as int
field tpAcomodacao as char
field cd-prest-solic-recebido as char
field exec-numero-cbo as char
field nomePrestadorSolic as char
field siglaConselho as char
field numeroConselho as char
field unidadeFederativa as char
field numeroCBO as char
field idCoberturaEspecial as char
field saudeOcupacional as int
index i-campos is unique primary
cd-transacao-ptu.

Definição campo a campo da tabela de entrada e saída – Dados do documento

cd-transacao-ptu – Código da transação PTU conforme manual PTU 2.8.
tp-cliente – Código definido no manual PTU 2.8 campo TP_CLIENTE
cd-unidade-origem – Código da unidade que originou a solicitação.
cd-unidade-destino – Código da unidade que recebeu a solicitação.
nr-ident-origem – Numero da solicitação da unidade que originou a solicitação.
nr-ident-destino – Numero da guia de autorização da unidade que recebeu a solicitação.
cd-unidade – Código da unidade do beneficiário.
id-beneficiario – Código de identificação do beneficiário.
nr-via-cartao – Numero da via do documento de identificação do beneficiário.
cd-cid – Código do CID.
id-ato-custo – campo ID_ALTO_CUSTO do PTU 2.8
nm-prestador – Nome do prestador.
ds-observacao1, 2 e 3 – Observações gerais.
cd-unidade-prestador-req – Código da unidade do prestasdor requisitante
cd-prestador-req – Código do prestador requisitante
cd-unidade-prestador – Código da unidade do prestador executante
cd-prestador – Código do prestador executante
ds-linha-origem – Descrição de observação oriunda da unidade que solicitou a autorização
in-classe-nota – Código da classe da nota para identificação do tipo da guia de autorização que deve ser gerada. Seu conteúdo pode ser:

01 – Consulta
02 – Exames SADT
03 – Atendimento Ambulatorial
04 – Internação Clínica
05 – Internação Cirúrgica
06 – Internação Obstétrica
07 – Odontologia
08 – Consulta em Emergência
09 - Internacao Hospital Dia
10 - Internacao Domiciliar
11 - Internacao Pediatrica
12 - Internacao Psiquiatrica
13 - Consultas Medicina Ocupacional
14 - Exames medicina ocupacional
15 - Remocao
16 - Pequena cirurgia
17 - Terapias
18 - Atendimento domiciliar
19 - SADT internado
20 - Quimioterapia
21 - Radioterapia
22 - TRS (terapia renal substitutiva)
23 - Consulta (primeira consulta)
24 - Consulta (seguimento)
25 - Consulta (pré-natal)

id-rn - Indica se o beneficiário é recém-nato
tp-inter - Indica o Tipo de Internação
id-acidente - Indicador de Acidente
dt-sug-internacao - Data sugerida para a internação
id-ordem-servico - Indica se o pedido de autorização foi gerado através de uma comunicação de Ordem de Serviço
nr-ident-os - Número da Transação da Ordem de Serviço
nr-ver-tiss - Número de versão da TISS que o prestador enviou a transação
cd-uni-atend - Código da Unimed na qual o Beneficiário será atendido
nr-versao-ptu - Versão do PTU da Unimed Prestadora
nm-pro-solic-opme - Nome do Profissional Solicitante de OPME
nr-telefone-opme - Número de Telefone do Profissional Solicitante de OPME
end-email-opme - Endereço de E-mail do Profissional Solicitante de OPME
ds-diag-cit-hist-quimio - Descrição do diagnóstico citopatológico e histopatológico
ds-diag-cit-hist-radio - Descrição do diagnóstico citopatológico e histopatológico
ds-inf-relev-quimio - Informações relevantes a serem fornecidas pelo profissional solicitante para esclarecimento do caso.
ds-inf-relev-radio - Informações relevantes a serem fornecidas pelo profissional solicitante para esclarecimento do caso.
ds-pl-terap - Plano Terapêutico proposto pelo profissional solicitante
ds-quimio - Observação da Quimioterapia
ds-radio - Observação da Radioterapia
ds-opme - Observação do OPME
ds-just-tec - Relatório profissional embasando a solicitação
ds-mat-solic - Descrição do Material Solicitado
id-anexo - Indica a existência de um anexo na transação
tp-sexo - Sexo do Beneficiário
nr-idade - Idade do Beneficiário
tpRedeMIN - Tipo de Rede conforme Manual do Intercâmbio Nacional
idLiminar - Indica se o pedido está sendo realizado a partir de uma demanda judicial
cdIBGE - Código IBGE
protocoloAtendimento - Protocolo de Atendimento
token - Validação do beneficiário
tipoEtapaAutorizacao - Indica a etapa da solicitação de autorização
dataSolicitacao - Momento em que a Unimed Prestadora toma conhecimento do pedido
tipoGuia - Classifica o tipo de Guia TISS
tpAcomodacao - Tipo de acomodação na qual o beneficiário será submetido
cd-prest-solic-recebido - Código do Prestador Solicitante
exec-numero-cbo - Código na Classificação Brasileira de Ocupações do executante
nomePrestadorSolic - Razão Social, nome fantasia ou nome do prestador que está solicitando o procedimento
siglaConselho - Conselho profissional do solicitante
numeroConselho - Número do solicitante no conselho profissional
unidadeFederativa - UF do conselho do profissional solicitante
numeroCBO - Código na Classificação Brasileira de Ocupações do solicitante
idCoberturaEspecial - Indica cobertura especial de atendimento
saudeOcupacional - Classifica o tipo de atendimento quando se tratar de Saúde Ocupacional

Tabela de entrada e saída tmp-campos- layout-bl-servic – Dados dos movimentos

def temp-table tmp-campos-layout-bl-servic no-undo
field nr-servico as int
field tp-tabela as char format "x(01)"
field cd-servico as char
field tp-tabela-recebido as char format "x(01)"
field cd-servico-recebido as char
field qt-servico as char format "x(08)"
field ds-opme as char format "x(80)"
field vl-servico as char format "x(14)"
field vl-uni-servico as char format "x(14)"
field cd-anvisa-inf as char format "x(15)"
field cd-ref-fab as char format "x(60)"
field tp-anexo as char format "x(01)"
field dt-provavel as char format "x(08)"
field cd-via-admin as char format "x(2)"
field qt-frequencia as char format "x(2)"
field id-pacote as char format "x(1)"
field tp-ordem as char format "x(1)"
field sqItem as int
field unMedicamento as int
field totalDosagem as dec
field qt-pacote-solic as int
field seq-item-pacote as int
index i-servico is unique primary
nr-servico.

Definição campo a campo da tabela de entrada e saída – Dados dos movimentos

nr-servico – Numero do serviço , na ordem de entrada da solicitação.
Tp-tabela – Tipo da tabela no manual PTU 2.8 TP_TABELA .
Cd-servico – Código do movimento.
Qt-servico – Quantidade do serviço solicitado.

Tabela de entrada e saída tmp-campos-layout-retorno – Dados dos movimentos

def temp-table tmp-campos-layout-retorno no-undo
field cd-transacao-ptu as char format "x(05)"
field tp-cliente as char format "x(15)"
field cd-unidade-origem as char format "x(04)"
field cd-unidade-destino as char format "x(04)"
field nr-ident-origem as char format "x(10)"
field nr-ident-destino as char format "x(10)"
field cd-unidade as char format "x(04)"
field id-beneficiario as char format "x(13)"
field nm-beneficiario as char format "x(25)"
field ds-observacao as char format "x(120)"
field ds-linha-origem as char format "x(256)"
index i-campos is unique primary
cd-transacao-ptu.

Definição campo a campo da tabela de entrada e saída – Dados dos movimentos

cd-transacao-ptu – Código da transação PTU conforme manual PTU 2.8.
tp-cliente – Código definido no manual PTU 2.8 campo TP_CLIENTE
cd-unidade-origem – Código da unidade que originou a solicitação.
cd-unidade-destino – Código da unidade que recebeu a solicitação
nr-ident-origem – Numero da solicitação da unidade que originou a solicitação.
nr-ident-destino – Numero da guia de autorização da unidade que recebeu a solicitação.
id-status – Status do registro. Seu conteúdo pode ser:

1 – Não Autorizado
2 - Autorizado
3 – Pendencias/Glosas

cd-unidade – Código da unidade do beneficiário.
id-beneficiario – Código de identificação do beneficiário.
nm-beneficiario – Nome do Beneficiario.
tp-sexo-beneficiario – Sexo do Beneficiário.
tp-inscr-beneficiario – Tipo de Inscricao do Beneficiario.
dt-nascimento – Data de Nascimento do Beneficiário.
tp-mens-geral-1, 2, 3, 4, 5 – Tipo de mensagem, conforme status do registro.
ds-mens-geral-1, 2, 3, 4, 5 – Descrição da Mensagem.
cd-mens-geral-1, 2, 3, 4, 5 – Codigo da Mensagem.
ds-observacao-1, 2, 3 – Observações gerais.
ds-linha-origem – Observações internas.

Tabela de entrada e saída tmp-campos-layout-ret-bl-servic – Dados dos movimentos

def temp-table tmp-campos-layout-ret-bl-serv no-undo
field nr-servico as int
field tp-tabela as char format "x(01)"
field cd-servico as char
field ds-servico as char format "x(80)"
field qt-servico as char format "x(08)"
field id-autoriza as char format "x(01)"
field cd-mens-espec-1 as char format "x(04)"
field cd-mens-espec-2 as char format "x(04)"
field cd-mens-espec-3 as char format "x(04)"
field cd-mens-espec-4 as char format "x(04)"
field cd-mens-espec-5 as char format "x(04)"
field cd-servico-convertido as char format "x(08)"
field sqItem as int
index i-campos is unique primary
nr-servico.

Definição campo a campo da tabela de entrada e saída – Dados dos movimentos

nr-servico – Numero do serviço , na ordem de entrada da solicitação.
tp-tabela – Tipo da tabela no manual PTU 2.8 TP_TABELA .
cd-servico – Código do movimento.
ds-servico – Descrição do movimento.
qt-servico – Quantidade do serviço solicitado.
id-autoriza – Status do registro.
tp-mens-espec-1, 2, 3, 4, 5 – Tipo de mensagem, conforme status do registro.
ds-mens-espec-1, 2, 3, 4, 5 – Descrição da Mensagem.
cd-mens-espec-1, 2, 3, 4, 5 – Codigo da Mensagem.

Tabela de entrada tmp-cpc-atapi023-entrada

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

field nm-ponto-chamada-cpc as char format "x(15)"
field ds-segmento-recebido as char format "x(8000)"
field ds-segmento-retorno as char format "x(8000)"
field r-guiautor as recid
field in-liberado-guias like guiautor.in-liberado-guias
field aa-guia-atendimento like guiautor.aa-guia-atendimento
field nr-guia-atendimento like guiautor.nr-guia-atendimento
field registro as rowid
field cd-classe-erro as int
field cd-unidade-principal like guiautor.cd-unidade-principal
field cd-prestador as dec
field cd-unidade-prestador as int
field cd-unidade-carteira like guiautor.cd-unidade-carteira
field cd-carteira-usuario like guiautor.cd-carteira-usuario
field nr-via-carteira like guiautor.nr-via-carteira
field cd-cla-hos as int
field cd-transacao as dec
field authorization-status as char
field cd-erro-retorno as char format "x(4)"
field status-guia-negada like guia-negada.char-1
field cd-tipo-insumo-ptu like ptuinsum.cd-tipo-insumo-serious
field cd-insumo-ptu like ptuinsum.cd-insumo-ptu
field token as char
field h-tmp-guiautor as handle.

Definição campo a campo da tabela de entrada

nm-ponto-chamada-cpc – Ponto de chamada da CPC.
ds-segmento-recebido – Segmento de solicitação recebido.
ds-segmento-retorno – Segmento da de solicitação de retorno.
r-guiautor – Recid da guiautor.
in-liberado-guias – Situação da guia.
aa-guia-atendimento – Ano de emissão da guia de autorização.
nr-guia-atendimento – Numero da guia de autorização.
registro – Rowid do registro.
cd-classe-erro – Código da classe de erro.
cd-unidade-principal – Unidade do prestador principal.
cd-prestador - Código do prestador.
cd-unidade-prestador - Unidade do prestador.
cd-unidade-carteira – Código da unidade da carteira do beneficiário.
cd-carteira-usuario – Documento de identificação do beneficiário
nr-via-carteira – Número da via da carteira.
cd-cla-hos - Código da classe hospitalar.
cd-transacao - Código da transação
authorization-status - Código do status da autorização
cd-erro-retorno - Código do erro
status-guia-negada - Código do status da guia
cd-tipo-insumo-ptu - Código do tipo de insumo PTU
cd-insumo-ptu - Código do insumo PTU
token - Campo token do PTU
h-tmp-guiautor - handle da tabela temporaria guiautor.

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

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

field in-liberado-guias like guiautor.in-liberado-guias
field cd-local-autorizacao like guiautor.cd-local-autorizacao
field lg-undo-retry as log
field ds-mensagem as char
field lg-id-autoriza as log
field ds-observacao-interna like guiautor.ds-observacao-interna
field lg-desconsidera as log
field cd-unidade-prestador as char format "x(04)"
field cd-prestador as char format "x(08)"
field in-classe-nota as char format "x(02)"
field cd-cla-hos as int
field authorization-status as char
field status-guia-negada like guia-negada.char-1
field cd-tipo-insumo-serious like ptuinsum.cd-tipo-insumo-serious
field cd-insumo-serious like ptuinsum.cd-insumo-serious
field lg-alto-custo-tab-propria as log
field lg-busca-insumo as logical initial yes
field lg-busca-tmp-lay-recebido as log
field lg-vincula-pacote as log initial yes
field lg-desvincula-movto as log initial yes
field lg-permite-guia-urg-pendente as logical
field lg-valida-regra-urg-eme as logical initial yes.

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

in-liberado-guias - Situação da guia.
cd-local-autorizacao – Local de autorização dos movimentos.
lg-undo-retry – Indica se foi gerado erro.
ds-mensagem – Mensagem de erro.
lg-id-autoriza – Variável que controla se o registro será autorizado ou não.
ds-observacao-interna - Campo que retorna as observações internas da guia.
lg-desconsidera – Campo que desconsidera o status original da guia setado pelo sistema e grava o status retornado pela cpc quando ativa.
cd-unidade-prestador - Unidade do prestador.
cd-prestador - Código do prestador.
in-classe-nota - Código da classe de nota
cd-cla-hos - Código da classe hospitalar.
authorization-status - Código do status da autorização
status-guia-negada - Código do status da guia
cd-tipo-insumo-serious - Código do tipo de insumo Serious
cd-insumo-serious - Código do insumo Serious
lg-alto-custo-tab-propria - Campo utilizado para considerar ou não as regras de auto custo e tabela própria.
lg-busca-insumo - Campo que indica a busca ou não de insumo
lg-busca-tmp-lay-recebido - busca o registro do layout.
lg-vincula-pacote - Verifica se o pacote será vinculado ao procedimento/insumo.
lg-desvincula-movto - Verifica se o pacote será desvinculado do movimento.
lg-permite-guia-urg-pendente - indica se permite que uma guia de urgência/emergência entre pendente ou se deve seguir a regra da mensagem de automação
lg-valida-regra-urg-eme - indica se valida a regra de urgência/emergência

Tabela de saída tmp-ptu-servicos

def temp-table tmp-ptu-servicos no-undo
field nr-servico as int
field tp-tabela as char format "x(01)"
field cd-servico as char format "x(08)"
field tp-tabela-recebido as char format "x(01)"
field cd-servico-recebido as char format "x(08)"
field qt-servico as char format "x(08)"
field ds-opme as char format "x(80)"
field vl-servico as char format "x(14)"
index i-servico is unique primary
nr-servico.

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

nr-servico - Número do serviço
tp-tabela - Tipo de tabela: 1 = Serviços Hospitalares / Taxas / Complementos ; 2 = TNUMM Materiais; 3 = TNUMM Medicamentos; 4 = Serviços com Custo Fechado / Pacote; 5 = TUSS Materiais; 6 = TUSS Medicamentos; 22 = Procedimento; etc.
cd-servico - Código do serviço
tp-tabela-recebido - Tipo de tabela: 2 = TNUMM Materiais; 5 = TUSS Materiais; etc.
cd-servico-recebido - Tipo de tabela: procedimento, pacote
qt-servico - Quantidade do serviço.
ds-opme - Descrição do serviço.
vl-servico - Valor do serviço