CPC-AT1000.p
Produto: | Gestão de Planos de Saúde |
Módulo: | Todos |
Versão: | 12.x.x |
Assuntos: | cpc-at1000.p |
- Rotina utilizada para permitir a operadora alterar a situação da AIH, quando a mesma solicitada via portal WAC;
- 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 AIH, dentro do programa at1000.p. Ressalta-se que somente será chamada a CPC caso ela esteja ativa, no cadastro de CPC.
- Antes da chamada das APIS do Modulo de Atendimento, responsáveis pela criação da Guia de Atendimento. Permite consistir os movimentos antes da inclusão da Guia de Atendimento.
- Antes da transação que cria a temporária da guiautor (tmp-guiautor). Antes da chamadas das apis que realizam a criação da guia.
Ponto de Utilização
- "ATUALIZA-STATUS": considera 2 eventos: "INCLUI" e "MOD".
- "CONSISTE-MOVTOS"
- "LOC-TIP-GUIA"
- "ANTES-ENVIA-IE"
- "AUT-AUTOMATICO"
- "ALTERA-CART"
- "CONS_ANEST"
- "APOS-AUTOR-AUTO"
- "LOC-TIP-GUIA"
- "VALOR-GUIA"
- "COMUNICA-INTERC"
- "APOS-ATAPI020" - a partir da versão 12.1.2209
- "TRATA-PROCED" - a partir da versão 12.1.2209
- "INI-TRAT-RET-AU" - a partir da versão 12.1.2305
- "ANT-SOLIC-FOUND" - a partir da versão 12.1.23411
Include das definições das tabelas temporárias
- cpc-at1000.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc- at1000 -entrada
def temp-table tmp-cpc-at1000-entrada no-undo
field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15)"
field cd-clinica like clinpres.cd-clinica
field cd-unidade like clinpres.cd-unidade
field cd-prestador like clinpres.cd-prestador
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-carteira like car-ide.cd-unimed
field lg-sadt as log
field lg-aih as log
field cd-carteira-usuario as decimal
field nr-rowid-guiaautor as rowid
field aa-guia-atendimento like guiautor.aa-guia-atendimento
field nr-guia-atendimento like guiautor.nr-guia-atendimento
field lg-autoriza-aut as log
field lg-libera-aut as log
field cd-transacao like guiautor.cd-transacao
field h-tmp-procguia as handle
field h-tmp-insuguia as handle
field cd-servico as int
field h-tmp-guia as handle
field h-tmp-servico as handle
field cd-local-autorizacao as int
field aa-guia-atendimento-ant like guiautor.aa-guia-atendimento-ant
field nr-guia-atendimento-ant like guiautor.nr-guia-atendimento-ant
field h-tmp-mensa-guiautor as handle
field h-pacproce as handle
field h-buffer-tmp-cabecalho-guia as handle.
Tabela de entrada tmp-cpc- at1000 -movtos
def temp-table tmp-cpc-at1000-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 clinpres.cd-unidade
field cd-prestador like clinpres.cd-prestador
field qt-movimentos as int.
Tabela de saída tmp-cpc-at1000-saida
def temp-table tmp-cpc-at1000-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 lg-cria-guia as log
field lg-comunica-scs as log
field ds-observ-guia as char
field cd-tipo-guia like guiautor.cd-tipo-guia
field cd-transacao like guiautor.cd-transacao
field ds-mensagem as char
field cd-unidade-carteira like guiautor.cd-unidade-carteira
field cd-carteira-usuario like usuario.cd-identific-uni-destino
field lg-continua as log init yes
field cd-local-autorizacao as int
field lg-retorno-trata-proc as log..