Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

CPC-AT0112C.p

Produto:

Gestão de Planos de Saúde

Módulo:Todos
Versão:12.x.x
Assuntos:

cpc-at0112c.p

Rotina utilizada para:

  • Obrigar a informação da autorização origem, quando do atendimento de beneficiário de intercâmbio. Ressalta-se que para este processo o tipo de guia, associada a autorização, deverá estar com o parâmetro "Pede autoriz.origem" Ativo (igual a Sim)
  • Consistir/validar o código do procedimento em autorização, quando da inclusão do mesmo.
  • Fazer uso da herança da guia no programa de alteração de guias do módulo AT.
  • Possibilita alterar uma guia já comunicada via intercâmbio eletrônico.
  • Rotina utilizada para informar e gravar a informação de prestador de alto custo.
  • Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

...

  • Quando da solicitação da autorização origem, dentro do programa AT0112C.P;
  • O ponto "ALTERA-GUIA-SCS", quando ativo, permite o usuário alterar uma guia já comunicada via intercâmbio eletrônico;
  • O ponto "ANTES-MODIFICA", quando ativo, pergunta se a alteração da guia trata-se de uma troca de AIH, se este for verdadeiro, é realizado o processo referente a herança da guia.
  • na atual função de "F10", que atualmente mostra o frame "Valores da Guia".
  • No momento da digitação da unidade e prestador principal
  • No momento da digitação da unidade e prestador solicitante
  • Após a informação da unidade e prestador principal.
  • Após a informação da unidade e prestador solicitante.APOS-BUSCA-GUIA.
  • Antes de salvar os dados na tabela guiautor.
  • Após gravar e gerar o número da guia.
  • No momento de informar o anexo da guia, sendo possível alterar toda a lógica da tela do anexo.
  • Após as observações de guias que permitem que somente elas sejam alteradas devido a situação da guia.

Ponto de Utilização

  • "GUIA-ORIGEM" ,"VALIDA-PROC", "ANTES-MODIFICA", "ALTERA-GUIA-SCS" e "VALOR-INSUMO".
  • "VALIDA-PREST", "VALIDA-PREST-SO"
  • "GRAVA-GUIA"
  • "CON-CART-BENEF"
  • "APOS-BUSCA-GUIA"
  • "FIM-GRAVA-GUIA"
  • "ANEXOS-GUIA"
  • "APOS-OBSERVACAO"

Include das definições das tabelas temporárias

...

Tabela de entrada tmp-cpc-at0112c-entrada

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

field in-evento-programa                   as char format "x(10)"
field nm-ponto-chamada-cpc            as as char format "x(15)"
field cd-tipo-guia                                like like tip-guia.cd-tipo-guia
field cd-unidade-carteira                   like unimed.cd-unimed
field cd-cateira-usuario                     like guiautor.cd-carteira-usuario
field cd-unidade-exec                        like like preserv.cd-unidade
field cd-prestador-exec                     like preserv.cd-prestador
field cd-esp-exec                               like procguia.cd-esp-prest-executante
field cd-unidade-princ                       like preserv.cd-unidade
field cd-prestador-princ                    like like preserv.cd-prestador
field cd-unidade-solic                       like preserv.cd-unidade
field cd-prestador-solic                    like like preserv.cd-prestador
field cd-proced-completo                 as int format "99999999"
field cd-modalidade like modalid.cd-modalidade
field r-guiautor                                  as cd-plano like propost.cd-plano
field cd-tipo-plano like propost.cd-tipo-plano
field ds-motivo as char format "x(750)"
field r-guiautor as rowid
field vl-custo-op                                as as dec
field vl-taxa-part                               as dec
field vl-tot-val                                   as decas dec
field lg-dados-internacao like tranrevi.lg-dados-internacao
field r-propost as rowid
field cd-unid-neg as int
field cd-transacao like tranrevi.cd-transacao
field nr-proposta like propost.nr-proposta
field cd-usuario like guiautor.cd-usuario
field aa-guia-atendimento like guiautor.aa-guia-atendimento
field nr-guia-atendimento like guiautor.nr-guia-atendimento
field dt-interna-ini as date format 99/99/9999
field dt-interna-fim as date format 99/99/9999
field r-usuario as rowid.

Definição campo a campo da tabela de entrada

  • in-evento-programa – Evento do programa que chama CPC-AT0112C.P. O valor desse campo pode ser "MODIFICA;
  • nm-ponto-chamada-cpc – "GUIA-ORIGEM ", "ALTERA-GUIA-SCS" e "VALIDA-PROC"
  • cd-tipo-guia – Código do tipo da guia utilizado pela Guia (AIH);
  • cd-unidade-carteira – Código da unidade da carteira do beneficiário;
  • cd-carteira-usuario – Código da carteira do beneficiário;
  • cd-unidade-exec – Código da unidade do prestador executante;
  • cd-prestador-exec – Código do prestador executante;
  • cd-esp-exec – Código da especialidade do prestador executante;
  • cd-unidade-princ – Código da unidade do prestador principal;
  • cd-prestador-princ – Código do prestador principal;
  • cd-unidade-solic – Código da unidade do prestador solicitante;
  • cd-prestador-solic - Código do prestador solicitante;
  • cd-proced-completo – Código do procedimento em autorização completo, ou seja, com oito dígitos;
  • r-guiautor – Rowid da tabela guiautor;
  • vl-custo-op – Valor do custo operacional;
  • vl-taxa-part – Valor da taxa de participação;
  • vl-tot-val - Total da guia (custo operacional + taxa de participação)
  • lg-dados-internacao
  • r-propost - Rowid da tabela propost.

...

  • cd-unid-neg
  • cd-transacao
  • nr-proposta - Número da proposta.
  • cd-usuario - Código do usuário.
  • aa-guia-atendimento - Ano da guia de atendimento.
  • nr-guia-atendimento - Número da guia de atendimento.
  • dt-interna-ini
  • dt-interna-fim
  • r-usuario - Rowid da tabela usuario.


Tabela de saída tmp-cpc-at0112c-saida

def temp-table tmp-cpc-at0112c-saida no-undo

field lg-erro                          as log
field ds-mensagem             as char format "x(75)"
field ds-motivo                    as char format "x(750)"
field lg-undo-retry               as log
field lg-dados-aux-guia       as log
field lg-bloq-mod-insu         as log
field dt-interna-ini                as date
field dt-interna-fim               as date.

Definição campo a campo da tabela de saída

  • lg-erro – Indica a ocorrência de erro no processo de verificar/consistir a autorização origem, quando do processo de alteração de guia;
  • ds-mensagem – E a mensagem que a operadora quer que seja apresentada ao usuário quando da ocorrência de erro/restrição no processo de verificação/consistencia da autorização origem ,quando do processo da alteração de guia;
  • ds-motivo – Variável que retorna os motivos para alterar ou não alterar o registro.
  • lg-undo-retry - Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros aconteceram e NÃO se o processo foi concluído por completo.
  • lg-dados-aux-guia
  • lg-bloq-mod-insu
  • dt-interna-ini
  • dt-interna-fim
  • lg-alerta - Retorna se a mensagem deverá ser somente um alerta, sem parar o processo.


Tabela de entrada tmp-cpc-at0112c-insuguia

def temp-table tmp-cpc- at0112c-insuguia no-undo

field cd-unidade                               like insuguia.cd-unidade
field aa-guia-atendimento               like insuguia.aa-guia-atendimento
field nr-guia-atendimento                like insuguia.nr-guia-atendimento
field nr-processo                             like insuguia.nr-processo
field nr-seq-digitacao                      like insuguia.nr-seq-digitacao
field vl-insumo-cob                         like insuguia.vl-insumo-cob
field cd-modulo                               like insuguia.cd-modulo
field cd-tipo-insumo                        like insuguia.cd-tipo-insumo
field cd-insumo                               like insuguia.cd-insumo.

Definição campo a campo da tabela de entrada

  • cd-unidade – Código da Unidade.
  • aa-guia-atendimento – Ano da Guia de Atendimento.
  • nr-guia-atendimento – Número da Guia de Atendimento.
  • nr-processo – Número do Processo.
  • nr-seq-digitacao – Número da Seqüência de Digitação.
  • vl-insumo-cob - Valor do Insumo Cobrado.
  • cd-modulo - Código do módulo.
  • cd-tipo-insumo - Tipo do insumo.
  • cd-insumo - Código do insumo.


Tabela de entrada tmp-cpc-at0112c-procguia

def temp-table tmp-cpc- at0112c-procguia no-undo

field cd-modulo                               like insuguia.cd-modulo
field cd-procedimento                     like procguia.cd-procedimento.

Definição campo a campo da tabela de entrada

  • cd-modulo - Código do módulo.
  • cd-procedimento - Código do procedimento.