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.

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.