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 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.

...

• "ATUALIZA-STATUS"
• "CONSISTE-MOVTOS"
• "LOC-TIP-GUIA"
• "ANTES-ENVIA-IE"
• "AUT-AUTOMATICO"
• "ALTERA-CART"
• "CONS_ANEST"
• "APOS-AUTOR-AUTO"
• "LOC-TIP-GUIA"
• "VALOR-GUIA"

Include das definições das tabelas temporárias

...

Tabela de entrada tmp-cpc- at1000 -entrada

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

...

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

...