CPC-RTLOCART.P

Rotina para localizar:

• A carteira antiga do beneficiário, quando utilizado o ponto de chamada "CART-ANTIGA". Essa rotina deve devolver o código da carteira do usuário e a unidade da mesma.
• A carteira do beneficiário, quando utilizado o ponto de chamada "CART-REPASSE" e o beneficiário for repassado. Essa rotina deve devolver o código da carteira do usuário e a unidade da mesma.
• da carteira antiga do beneficiário. Essa rotina deve devolver o código da carteira do usuário e a unidade da mesma.
• Rotina utilizada para gravar informações do beneficiário de outras unidades incluído ou alterado na tabela especifica de histórico de movimentações e mostrar em tela o último usuário e data de alteração.
• 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 rtlocart.p .
• Dentro do programa rrtlocart.p antes de salvar um beneficiário de outra unidade. Opção de Autorização de Guias - Beneficiários (Inclusão/Alteração), no Atendimento ao Público (AT0110Z).

Ponto de Utilização

"CAM-ESPEC"

"APOS-TRIA"

"CART-ANTIGA"

"ANTES-MENS-TELA"

"HIST-ALTERA"

"CART-REPASSE"

"ANTES-CART"

Include das definições das tabelas temporárias

• cpc-rtlocart.i

Tabelas de entrada e saída

Tabela de entrada tt-cpc-rtlocart-entrada

def temp-table tt-cpc-rtlocart-entrada no-undo

field nm-ponto-chamada-cpc as char format "x(15)"
field in-evento-programa        as char format "x(10)"
field lg-mensagem-na-tela      as log
field nr-rowid-out-uni              as rowid
field nm-programa                   as char format "x(25)"
field cd-carteira-usuario           like guiautor.cd-carteira-usuario
field cd-unidade-carteira          like guiautor.cd-unidade-carteira
field nr-via-carteira                   like guiautor.nr-via-carteira
field r-usuario                           as rowid
field cd-unidade-prestador      as int
field in-entidade                      as char
field lg-considera-out-uni       as log.

Definição campo a campo da tabela de entrada

• • • in-evento-programa – Evento do programa que chama a rotina rtlocart, na qual será passada para a cpc-rtlocart.p.
    • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. 
    • lg-mensagem-na-tela – Indica se as mensagens de erro devem ser dispostas na tela ou não. Caso o indicador for não o campo da tabela de saída ds-mensagem deve ser preenchido. (não obrigatório).
    • nr-rowid-out-uni – não utilizado neste ponto de chamada.
    • nm-programa – nome do programa chamador da rotina rtlocart.p. O programa RTLOCART.P é chamado pelos programas abaixo listados, sendo que o cliente pode dentro de sua CPC verificar qual é o programa chamador para realizar as consistências conforme sua necessidade.
      • AT0110C1.P – Programa AT0110Z (Procedimentos Permitidos e Inclusão de Guias de Autorização);
      • PP0411C.P – Programa PP0410C (Manutenção Pagamentos Extras Prestadores → Inclui);
      • RC0110W.P – Programa RC0110W (Manutenção Cancelamento Movimentos Módulo RC gerados pelo AC);
      • RC0210F.P – Programa RC0210N (Consulta Movimentos por Beneficiário);
      • RC0311A4.P – Programa RC0310A (Manutenção Documentos Revisão de Contas).
    • cd-carteira-usuario – código da carteira do usuário.
    • cd-unidade-carteira– código da unidade da carteira.
    • nr-via-carteira – número da via da carteira.
    • r-usuario - rowid do registro da tabela USUARIO
    • cd-unidade-prestador - unidade do prestador recebida pelo rotina
    • in-entidade - refere-se ao módulo, "AT", "RC" etc
    • lg-considera-out-uni - indicador se considera beneficiários de intercambio.

Tabela de saída tt-cpc-rtlocart-saida

def temp-table tt-cpc-rtlocart-saida no-undo

field lg-undo-retry                                as log
field ds-mensagem-relatorio                as char format "x(75)"
field cd-carteira-usuario                        like guiautor.cd-carteira-usuario
field cd-unidade-carteira                      like guiautor.cd-unidade-carteira
field nr-rowid                                        as rowid
field lg-mens-tela                                 as log

field lg-continua                                   as log 
field lg-intercambio-eventual               as log format "Sim/Nao".

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-relatorio – Deve conter mensagens de erro ou qualquer outro tipo de mensagem. Utilizado em conjunto com a entrada lg-mens-tela. Se lg-mens-tela for Não então esse campo deve ser preenchido.
    • cd-carteira-usuario – Código da carteira do usuário .
    • cd-unidade-carteira – Código da unidade da carteira.
    • nr-rowid – Rowid do registro acessado da tabela car-ide.
    • lg-mens-tela – Indica se irá mostrar mensagem em tela ou não.
    • lg-continua – Indica se irá continuar ou não a execução do processo.
    • lg-intercambio-eventual - indica se é intercâmbio eventual ou não.