• 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
field nm-tabela as char format "x(8)"
field rowid-tabela as rowid

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.
    • nm-tabela - Nome da tabela cujo identificador do registro é passado no campo rowid-tabela.
    • rowid-tabela - Identificador do registro corrente na tabela indicada no campo nm-tabela.

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
field lg-desconsidera-movto 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.
    • lg-desconsidera-movto - Indica que o registro identificado pelos campos nm-tabela e rowid-tabela, não será considerado na contagem de movimentos para glosa 23.