CPC-RC0310A.P

• Rotina utilizada para tratar restrições especificas de cada operadora quando da execução da glosa manual;
• 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 de seleção da glosa manual.

Ponto de Utilização

• "INCLUI"

Include das definições das tabelas temporárias

• cpc-rc0310a.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rc0310a-entrada

def temp-table tmp-cpc-rc0310a-entrada no-undo

field in-evento-programa                   as char format "x(06)"
field nm-ponto-chamada-cpc             as char format "x(15)"
field tp-movto                                  as char
field r-docrecon                               as recid
field r-movto                                   as recid
field cd-cod-glo                               like codiglos.cd-cod-glo.

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama a cpc-rc0310a.p. Os valores desse campo pode ser:
• "INCLUI".
• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa rc0310a.i:
• "GLOSA-MANUAL"
• tp-movto – Tipo do movimento que está sofrendo a Glosa Manual. Poderá ser igual a "documento", "procedimento" ou "insumo".
• r-docrecon – Recid do documento (DOCRECON). Será o recid da tabela DOCRECON quando tp-movto for igual a "documento".
• r-movto – Recid do movimento. Será o recid da tabela MOVIPROC quando tp-movto for igual a "procedimento" e será o recid da tabela MOV-INSU quando tp-movto for igual a "insumo";
• cd-cod-glo – Código da glosa manual, informada pelo usuário.

Tabela de saída tmp-cpc-rc030a-saida

def temp-table tmp-cpc-rc0310a-saida no-undo

field lg-undo-retry                           as log
field ds-mensagem                         as char format "x(75)".

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.
• ds-mensagem – Deve conter mensagens de erro ou qualquer outro tipo de mensagem. Utilizado em conjunto com lg-undo-retry.