cpc-rc0610z1

Rotina utilizada para:
Permitir a obrigatoriedade da verificação da Restrição de Usuário por Prestador nas liberações de documentos por Lote (RC-06-C). No caso do ponto de chamada estar ativo o usuário não poderá optar por não verificar a restrição na parametrização deste programa.
Permitir restringir a abertura da seleção de liberação/desliberação de movimentos por usuários que realizaram as operações.
Permitir tratar os insumos e procedimentos que estão sendo liberados.
Permitir liberar ou não os movimentos.
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 do programa RC0610Z (Liberação de documentos por Lote), na opção "Parâmetros", antes de solicitar o parâmetro " Considera Restricao Usuario x Prestador ?"
Para o Ponto de Utilização "SELECAO", dentro do programa RC0610Z(Liberação de documentos por Lote), na seleção de usuários e data de liberação/desliberação realizados.
Para o Ponto de Utilização "LIBERA-MOVTO", dentro do programa RC0610Z(Liberação de documentos por Lote), na atualização dos movimentos selecionados. Contempla os eventos "MOVIPROC" para os procedimentos e "MOV-INSU" para os insumos.
Para o Ponto de Utilização "VALIDA-GLOSA", dentro do programa RC0610Z(Liberação de documentos por Período), utilizado para validar glosas de procedimentos antes do precesso de liberação.
Ponto de Utilização
"RESTRICAO-USU";
"SELECAO".
"VER-PROC"
"VER-INS"
"LIBERA-MOVTO".
"VALIDA-GLOSA".
"VER-STATUS-DOC"
"ANTES-DESFAZ".
Include das definições das tabelas temporárias
CPC-RC0610Z.I
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-rc0610z-entrada
def temp-table tmp-cpc-rc0610z-entrada no-undo
field nm-ponto-chamada as char format "x(15)"
field in-evento-programa as char format "x(10)"
field r-moviproc as rowid
field r-mov-insu as rowed
field nr-rowid-docrecon as rowid.
Definição campo a campo da tabela de entrada
nm-ponto-chamada – Ponto de chamada de cpc.
in-evento-programa – Identifica qual procedimento a cpc deve executar no momento que está sendo chamada.
r-moviproc – Rowid do procedimento
r-mov-nsu – Rowid do insumo
nr-rowid-docrecon – Ponteiro de registro da tabela docrecon.
Tabela de saída tmp-cpc-rc0610z-saida
def temp-table tmp-cpc-rc0610z-saida no-undo
field lg-undo-retry as log
field ds-mensagem as char format "x(75)"
field lg-continua as log initial yes
field lg-verifica-restricao as log initial no
field ds-mensagem-liberacao as char format "x(75)".


Definição campo a campo da tabela de saída
lg-undo-retry – Variável que controla os erros que podem ocorrer na CPC.
ds-mensagem – Variável que recebe a descrição dos erros que ocorreram na CPC.
lg-continua – Variável que indica se a execução do programa deve continuar ou não.
lg-verifica-restricao – Variável que indica se a verificação da restrição para o usuário deve ser
obrigatória(quando este campo estiver com "sim") ou se o usuário poderá optar por parametrizar se deseja
verificar a restrição (quanto este campo estiver com "não").
ds-mensagem-liberacao – Mensagem do processamento da lógica da CPC.