Histórico da Página
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
- Após a informação da unidade e prestador principal.
- Antes de salvar os dados na tabela guiautor.
Âncora
- "GUIA-ORIGEM" ,"VALIDA-PROC", "ANTES-MODIFICA", "ALTERA-GUIA-SCS" e "VALOR-INSUMO".
- "VALIDA-PREST"
- "GRAVA-GUIA"
- "CON-CART-BENEF"
...
- CPC-AT0112C.I
...
anchor
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 char format "x(15)"
field cd-tipo-guia 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 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 preserv.cd-prestador
field cd-unidade-solic
...
like preserv.cd-unidade
field cd-prestador-solic like preserv.cd-prestador
field cd-proced-completo
...
as int format "99999999"
field r-guiautor
...
as rowid
field vl-custo-op
...
as dec
field vl-taxa-part
...
as dec
field vl-tot-val as dec.
...
...
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).
...
...
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.
...
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.
...
...
- 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.
...
...
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.
...
Import HTML Content
Visão Geral
Conteúdo das Ferramentas