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.

...