CPC-AT1000-SOLIC.p
Produto: | Gestão de Planos de Saúde |
Módulo: | Todos |
Versão: | 12.x.x |
Assuntos: | cpc-at1000-solic.p |
- Rotina utilizada para permitir a operadora alterar a situação da GUIA, quando a mesma solicitada via TRANSAÇÃO XML de SOLICITAÇÃO DE PROCEDIMENTO;
- Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
Localização
- Após a criação da GUIA, dentro do programa AT1000-SOLIC.P. Ressalta-se que somente será chamada a CPC caso ela esteja ativa, no cadastro de CPC.
Ponto de Utilização
- "ATUALIZA-STATUS"
- "LOC-TIP-GUIA"
- "ANTES-ENVIA-IE"
- "VALIDA-COB"
- "ANT-VER-TISS"
- "COMUM-ORIGEM"
- "CRIA-MENS"
- "antes-tem-serious"
- "ATUALIZA-DADOS"
- "INI-TRAT-RET-AU" - a partir da versão 12.1.2307
Include das definições das tabelas temporárias
- CPC-AT1000-SOLIC.I
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-at1000-solic-entrada
def temp-table tmp-cpc-at1000-solic-entrada no-undo
field in-evento-programa as char format "x(10)"
field nm-ponto-chamada-cpc as char format "x(15)"
field cd-clinica like clinpres.cd-clinica
field in-liberado-guias like guiautor.in-liberado-guias
field lg-glosa as log
field cd-tipo-guia like guiautor.cd-tipo-guia
field cd-unidade-solicitante like guiautor.cd-unidade-solicitante
field cd-prestador-solicitante like guiautor.cd-prestador-solicitante
field cd-unidade-principal like guiautor.cd-unidade-principal
field cd-prestador-principal like guiautor.cd-prestador-principal
field cd-unidade-carteira like guiautor.cd-unidade-carteira
field cd-carteira-usuario like guiautor.cd-carteira-usuario
field r-guiautor as rowid
field lg-tem-serious as log
field lg-tiss as log
field nr-guia-prestador as dec
field cd-unidade-exec as int
field cd-prestador-exec as int
field cd-transacao-exec as dec
field cd-mensagem-sistema as int
field cd-mensagem-tiss as int
field ds-mensagem as char
field tp-acomodacao as char
field h-buffer-tmp-cabecalho-guia as handle.
Definição campo a campo da tabela de entrada
- in-evento-programa – Evento do programa que chama a CPC-AT1000.P. Os valores desse campo podem ser: "INCLUI", "RETORNA".
- nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.
- cd-clinica – Código da clinica que está solicitando a GUIA;
- in-liberado-guias – Indicador da situação atual da GUIA;
- lg-glosa – Variável que indica se ocorreu glosa em algum movimento (procedimentos e insumos) da GUIA.
- cd-tipo-guia – Código do tipo da guia vinculada a GUIA solicitada.
- cd-unidade-solicitante - Código da unidade do prestador solicitante da GUIA.
- cd-prestador-solicitante - Código do prestador solicitante da GUIA.
- cd-unidade-principal - Código da unidade do prestador principal da GUIA.
- cd-prestador-principal - Código do prestador principal da GUIA.
- cd-unidade-carteira - Código da unidade da carteira do beneficiário da GUIA.
- cd-carteira-usuario - Código da carteira do beneficiário da GUIA.
- r-guiautor – RECID de acesso a tabela GUIAUTOR
- lg-tem-serious – Indica se a unidade utiliza Sistema Serious ou não.
- lg-tiss – Indica se é TISS ou não.
nr-guia-prestador - Número da guia do prestador.
cd-unidade-exec - Código da unidade do prestador executante da GUIA.
cd-prestador-exec - Código do prestador executante da GUIA.
cd-transacao-exec - Código da transação da GUIA.
cd-mensagem-sistema - Código da mensagem do sistema.
cd-mensagem-tiss - Código da glosaTISS do sistema
ds-mensagem - Descrição da mensagem.
tp-acomodacao - Tipo de acomodação do usuário.
h-buffer-tmp-cabecalho-guia - Handle da temporária cabecalho guia (tmp-cabecalho-guia).
Tabela de entrada tmp-cpc-at1000-solic-movtos
def temp-table tmp-cpc-at1000-solic-movtos no-undo
field cd-procedimento like ambcbhpm.cd-amb
field cd-tipo-insumo like insumos.cd-tipo-insumo
field cd-insumo like insumos.cd-insumo
field cd-unidade like insuguia.cd-unidade-prestador
field cd-prestador like insuguia.cd-prestador
field lg-glosa as log.
Definição campo a campo da tabela de movtos
- cd-procedimento – Código do procedimento que está associado a GUIA.
- cd-tipo-insumo - Código do tipo do insumo, vinculado ao insumo, que está associado a GUIA..
- cd-insumo - Código do insumo que está associado a GUIA..
- cd-unidade – Código da unidade do prestador executante do movimento.
- cd-prestador – Código do prestador executante do movimento.
- Lg-glosa – Indicador da ocorrência de glosa no movimento, associado a GUIA.
Tabela de saída tmp-cpc-at1000-solic-saida
def temp-table tmp-cpc-at1000-solic-saida no-undo
field lg-undo-retry as log
field in-liberado-guias like guiautor.in-liberado-guias
field cd-erro-sistema like mensauto.cd-retorno
field cd-tipo-guia like guiautor.cd-tipo-guia
field ds-mensagem as char
field cd-unidade-carteira like guiautor.cd-unidade-carteira
field lg-ind-comunica as log
field lg-tem-serious as log
field lg-tiss as log
field lg-retorna as log
field lg-erro-cobertura as log
field lg-atualiza-transacao as logical initial yes.
Definição campo a campo da tabela de saída
- lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC. Se o retorno desta variável for igual a SIM, indicará que erros aconteceram e se o retorno for igual à NÃO, indicará que o processo foi concluído por completo.
- In-liberado-guias – Variável que indicará a NOVA situação da GUIA, conforme necessidade da operadora.
- cd-erro-sistema – Código do erro processado dentro da CPC, quando o parâmetro lg-undo-retry estiver habilitado.
- cd-tipo-guia – Código do tipo da guia.
- Ds-mensagem – Descricao da mensagem de erro.
- Cd-unidade-carteira – Código da unidade do beneficiario.
- lg-ind-comunica - Log que retorna se comunica ou não com a origem
- lg-tem-serious – Indica se a unidade utiliza Sistema Serious ou não.
- lg-tiss – Indica se é TISS ou não.
- lg-retorna – Indica se retorna ou não.
- lg-erro-cobertura - Variável que indica se ocorreu erro devido a cobertura.
- lg-atualiza-transacao - indica se deve atualizar a transação com base no tipo de guia; em caso afirmativo a transação é buscada na tabela "trantipi".