cpc-at0112c3.p1

Permite indicar se o usuário terá ou na permissão para alterar a quantidade solicitada de procedimentos.
Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
Enviara e recebera uma tabela temporária.
Localização
Quando da solicitação da informação "Qt Rep.Cob" (Quantidade de vezes que cobra a tabela médica do beneficiário), no processo de alteração de procedimento do módulo AT, e o parâmetro "Muda qt.vezes tab." do tipo de Guia estiver definido igual a "Não"

Ponto de Utilização
"ALTERA-QTD-AUT"
"VALIDA-INSUMO"
"TRATA-VL-INSUMO"
"VER-VAL-ALCADA"
"APOS-VALOR"

Include das definições das tabelas temporárias
CPC-AT0112C3.I
Tabelas de entrada e saída
Tabela de entrada tmp-cpc- at0112c3-entrada
def temp-table tmp-cpc-at0112c3-entrada no-undo
field in-evento-programa as char format "x(10)"
field nm-ponto-chamada-cpc as char format "x(15)"
field cd-unid-exec like presev.cd-unidade
field cd-prestador-exec like preserv.cd-prestador
field nr-guia-atendimento like procguia.nr-guia-atendimento
field aa-guia-atendimento like procguia.aa-guia-atendimento
field cd-insumo like insumos.cd-insumo
field cd-tipo-insumo like insumos.cd-tipo-insumo
field vl-insumo-cob like insuguia.vl-insumo
field vl-valorizado like insuguia.vl-insumo
field qt-insumo like insuguia.qt-insumo.
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa que chama CPC-AT0112C3.P. O valor desse campo pode ser "ALTERA", "MODIFICA";
nm-ponto-chamada-cpc – "ALTERA-QTD-AUT";
cd-unid-exec – Código da unidade do prestador executante;
cd-prestador-exex – Código do prestadoe executante;
Nr-guia-atendimento - Número da guia de atendimento
Aa-guia-atendimento – Ano da guia de atendimento
Cd-insumo – Codigo do isnumo
Cd-tipo-insumo – Codigo do tipo do insumo.
Vl-isnumo-cob – Valor do insumo cobrado;
Vl-valorizado - Valor total dos insumos cobrados.
Qt-insumo – Quantidade de Insumo.
Tabela de saída tmp-cpc-at0112c3-saida
def temp-table tmp-cpc-at0112c3-saida no-undo
field lg-erro as log
field ds-mensagem as char format "x(75)"
field lg-alt-qtd-aut as log
fields ds-mensagem-alerta as char format "x(75)"
field vl-insumo-cob like insuguia.vl-insumo-cob
field vl-unitario like insuguia.vl-insumo.
Definição campo a campo da tabela de saída
lg-erro – Indica a ocorrência de erro no processamento da CPC;
ds-mensagem – E a mensagem que a operadora quer que seja apresentada ao usuário quando da ocorrência de erro no processamento da CPC;
lg-alt-qtd-aut - Autoriza quantidade autorizada (Sim/Não)
ds-mensagem-alerta – devolve mensagem de alerta em caso de algum erro ou confome regra especifica
Vl-isnumo-cob – Valor do insumo cobrado;
Vl-unitario – Possui o valor unitário do insumo;
Tabela de entrada tmp-cpc-at0112c3-insuguia
def temp-table tmp-cpc-at0112c3-insuguia no-undo
field cd-tipo-insumo like insuguia.cd-tipo-insumo
field cd-insumo like insuguia.cd-insumo
field vl-insumo-cob like insuguia.vl-insumo-cob.
Definição campo a campo da tabela de saída
cd-tipo-insumo – Código do tipo do insumo;
cd-isnumo – Código do insumo;
vl-isnumo-cob – Valor do insumo cobrado;