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 (AT-02-A).
  Ponto de Utilização
  "CART-ANTIGA"
  "CART-REPASSE"
  "HIST-ALTERA"
  "ANTES-MENS-TELA"
  Include das definições das tabelas temporárias
  cpc-rtlocart.i
  Tabelas de entrada e saída
  Tabela de entrada tt-cpc-rtclpart-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.
  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.: CARTEIRA
  Nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para a rotina rtlocart.p: CART-ANTIGA
  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 – Menu AT-02-A (Procedimentos Permitidos e Inclusão de Guias de Autorização);
  PP0411C.P – Menu PP-02-A (Movimentos Extras dos Prestadores);
  RC0110W.P – Menu RC-04-G (Cancela Movimentos do RC gerados pelo AC);
  RC0210F.P – Menu RC-05-E (Movimentos por Beneficiário);
  RC0311A4.P – Menu RC-04-C (Documentos do 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.
  Tabela de saída tt-cpc-rtclpart-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 rowed
  field lg-mens-tela as log.
  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.