cpc-at1000.p0

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 chamda 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"
"CONSISTE-MOVTOS"
"LOC-TIP-GUIA"
"ANTES-ENVIA-IE"
"AUT-AUTOMATICO"
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.
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".
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa at1000.p:
"ATUALIZA-STATUS" ou "CONSISTE-MOVTOS"
cd-clinica – Código da clinica que está solicitando a AIH;
cd-unidade – Código da unidade do prestador executante dos procedimentos da AIH;
cd-prestador – Código do prestador executante dos procedimentos da AIH;
in-liberado-guias – Indicador da situação atual da AIH;
lg-glosa – Variável que indica se ocorreu glosa em algum movimento (procedimentos e insumos) da AIH.
Cd-tipo-guia – Código do tipo da guia vinculada a AIH solicitada.
cd-unidade-carteira - Código da unidade da carteira do beneficiário da GUIA.
lg-sadt - Indicador de que a Guia Solicitada trata-se de um SPSADT
lg-aih - Indicador de que a Guia Solicitada trata-se de uma Autorização de Internação Hospitalar
cd-carteira-usuario - Código da carteira do beneficiário da GUIA.
Nr-rowid-guiaautor – Ponteiro da tabela de Guias de Autorização (guiautor)
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.

Definição campo a campo da tabela de movtos
cd-procedimento – Código do procedimento que está associado a AIH.
Cd-tipo-insumo – Código do Tipo de Insumo solicitado na Guia de Autorização
Cd-insumo – Código do Insumo solicitado na Guia de Autorização.

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 ds-mensagem as char
field cd-unidade-carteira like guiautor.cd-unidade-carteira.
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 situação da AIH;
Cd-erro-sistema – Código do erro ocorrido no retorno da CPC, este erro sera utilizado para localizar a mensagem a ser apresentada em tela na Solicitação da Guia.
Lg-cria-guia – Indicador de retorno da CPC, sinalizando se após passar pela CPC a Guia de Atendimento será ou não criada.
Lg-comunica-scs – Indicador de que a Solicitação de Guia de Atendimento irá gerar uma comunicação SCS Intercambio Eletrônico
Ds-observ-guia – Campo de observações a ser gravado na Guia de Autorização.
Ds-mensagem – Descrição da mensagem
Cd-unidade-carteira – código da unidade da carteira.