cpc-rc0312a7.p2

Rotina utilizada para efetuar a consistência da quantidade de insumos digitados para um determindado contratante/prestador.
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.
Localização
Dentro do programa de alteração/inclusão de insumos do processo de alteração de movimentos do RC.
Pontos de Utilização
"APÓS-QUANTIDADE"
Include das definições das tabelas temporárias
cpc-rc0312a7.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-rc0312a7-entrada
def tmp-cpc-rc0312a7-entrada no-undo
field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15)"
field lg-mensagem-na-tela as logical
field cd-unidade-carteira like docrecon.cd-unidade-carteira
field cd-carteira-usuario like docrecon.cd-carteira-usuario
field cd-unidade-pre-princ like preserv.cd-unidade
field cd-prestador-princ like preserv.cd-prestador
field cd-unidade-pre-solic like preserv.cd-unidade
field cd-prestador-solic like preserv.cd-prestador
field cd-unidade-pre-execu like preserv.cd-unidade
field cd-prestador-execu like preserv.cd-prestador
field cd-tipo-insumo like insuguia.cd-tipo-insumo
field cd-insumo like insuguia.cd-insumo
field qt-insumo like insuguia.qt-insumo.
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa de chamada da CPC (modifica);
nm-ponto-chmada-cpc – Ponto de chamada da CPC (após-quantidade);
Lg-mensagem-tela – indica se as mensagens de erro, que ocorreram dentro da cpc, serão ou não visualizadas em tela;
Cd-unidade-carteira – unidade da carteira do beneficiário;
Cd-carteira-usuario – código da carteira do beneficiário;
Cd-unidade-pre-princ – unidade do prestador principal;
Cd-prestador-princ – código do prestador principal
Cd-unidade-pre-solic – unidade do prestador solicitante;
Cd-prestador-solic - código do prestador solicitante
Cd-unidade-pre-execu – unidade do prestador executante;
Cd-prestador-execu - código do prestador executante
Cd-tipo-insumo – código do tipo de insumo
Cd-insumo – código do insumo
Qt-insumo – quantidade do insumo
Tabela de saída tmp-cpc-rc0312a7-saida
def tmp-cpc-rc0312a7-saida no-undo
fields lg-undo-retry as log
fields ds-mensagem-relatorio as char format "x(75)".

Definição campo a campo da tabela de saída
lg-undo-retry – indica que ocorreu algum erro durante o processamento.
Ds-mensagem-relatorio – retorna a mensagem correspondente ao erro, caso o campo lg-erro esteja ligado.