cpc-rtconaut.p1

• Rotina para permitir que seja cobrado um movimento "X" em guia de autorização com movimento "Y", sem cocorrer glosa referente a autorização X realização/utilização. EX. Que seja cobrado cesárea em guia de autorização de parto normal).
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
• Será permitido para esta CPC apenas um registro na tabela temporária de saída. Caso possuir mais de um registro um erro será reportado.

Localização
Dentro da rotina rtconaut.p.
Ponto de Utilização
"CONS-AUTORIZA"
"VALIDA-ENTRADA"
Include das definições das tabelas temporárias
cpc-rtconaut.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-rtconaut-entrada
def temp-table tmp-cpc-rtconaut-entrada no-undo
field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15)"
field tp-movimento as char format "x(01)"
field cd-tipo-insumo as int format "99"
field cd-codigo-ent as int format "99999999"
field cd-unidade-prestadora like moviproc.cd-unidade-prestadora
field cd-unidade-carteira like moviproc.cd-unidade-carteira.
field cd-insumo as int format "99999999"
field cd-tipo-movto as char format "x(01)"
field in-glosa-movto as int.
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa que chama a rotina rtconaut, na qual será passada para a cpc-rtconaut.p. O valor desse campo podem ser:
"CONSULTA".
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para a rotina rtconaut.p:
"CONS-AUTORIZA"
"VALIDA-ENTRADA"
tp-movimento – Código do Tipo de Movimento. Será igual a 'P' para Procedimento e "I" para Insumo.
cd-tipo-insumo – Código do Tipo de Insumo. Será igual a zeros quando o tp-movimento for igual a "P".
cd-codigo-ent – Código do procedimento/Insumo realizado.
cd-unidade-prestadora – Código da unidade prestadora do movimento.
cd-undade-carteira – Código da unidade da carteira do beneficiário.
cd-insumo - Código do insumo.
cd-tipo-movto – Código do tipo de movimento.
in-glosa-movto – Indicador da glosa do movimento.
Tabela de saída tmp-cpc-rtconaut-saida
def temp-table tmp-cpc-rtconaut-saida no-undo
field lg-undo-retry as log
field cd-tipo-insumo-sai as int format "99"
field cd-codigo-sai as int format "99999999"
field lg-exige-autoriz as log.
Definição campo a campo da tabela de saída
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.
cd-tipo-insumo – Código do Tipo de Insumo. Será igual a zeros quando o tp-movimento for igual a "P".
cd-codigo-sai - Código do procedimento/insumo autorizado.
lg-exige-autoriz – Retorna SIM/NÃO para a exigência de autorização do insumo.