CPC-RC0610Z.P

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.