cpc-at0112c.p3

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.
Localizaçã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
Ponto de Utilização
"GUIA-ORIGEM" ,"VALIDA-PROC", "ANTES-MODIFICA", "ALTERA-GUIA-SCS" e "VALOR-INSUMO".
"VALIDA-PREST"
"GRAVA-GUIA"
"CON-CART-BENEF"
Include das definições das tabelas temporárias
CPC-AT0112C.I
Tabelas de entrada e saída
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.