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. 

...

• 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 (AT-02-AAT0110Z).

Ponto de Utilização

"CAM-ESPEC"

"APOS-TRIA"

"CART-ANTIGA"

"CARTANTES-MENS-REPASSETELA"

"HIST-ALTERA"

"CART-REPASSE"

"ANTES-MENS-TELACART"

Include das definições das tabelas temporárias

...

Tabelas de entrada e saída

Tabela de entrada tt-cpc-rtclpartrtlocart-entrada

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

field nm-ponto-chamada-cpc                     as char format "x(15)"
field in-evento-programa programa                             as as char format "x(10)"
field lg-mensagem-na-tela tela      as log
field nr-rowid-out-uni uni              as rowid
field nm-programa as programa                   as char format "x(25)"
field cd-carteira-usuario like usuario           like guiautor.cd-carteira-usuario
field cd-unidade-carteira carteira          like guiautor.cd-unidade-carteira
field nr-via-carteira like 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

• • • Inin-evento-programa – Evento do programa que chama a rotina rtlocart, na qual será passada para a cpc-rtlocart.p.: CARTEIRA.
    • Nmnm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para a rotina rtlocart.p: CART-ANTIGA. 
    • lgLg-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).
    • Nrnr-rowid-out-uni – não utilizado neste ponto de chamada.
    • Nmnm-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 –
      Menu AT-02-A
      • Programa AT0110Z (Procedimentos Permitidos e Inclusão de Guias de Autorização)
      .
      • ;
      • PP0411C.P –
      Menu PP-02-A (Movimentos Extras dos Prestadores).
      • Programa PP0410C (Manutenção Pagamentos Extras Prestadores → Inclui);
      • RC0110W.P –
      Menu RC-04-G (Cancela Movimentos do
      • Programa RC0110W (Manutenção Cancelamento Movimentos Módulo RC gerados pelo AC)
      .
      • ;
      • RC0210F.P –
      Menu RC-05-E (
      • Programa RC0210N (Consulta Movimentos por Beneficiário)
      .
      • ;
      • RC0311A4.P –
      Menu RC-04-C (Documentos do
      • Programa RC0310A (Manutenção Documentos Revisão de Contas).
    • Cdcd-carteira-usuario – código da carteira do usuário.
    • Cdcd-unidade-carteira– código da unidade da carteira.
    • Nrnr-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-rtclpartrtlocart-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 rowedrowid
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

• • • Lglg-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.
    • Dsds-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.
    • Cdcd-carteira-usuario – código Código da carteira do usuário .
    • Cdcd-unidade-carteira – código Código da unidade da carteira.
    • Nrnr-rowid – rowid Rowid do registro acessado da tabela car-ide.
    • LGlg-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.