CPC-MC0510M.P

• Rotina que permitirá realizar algumas consistências no termo de adesão antes de renovar as carteiras/cartão.
• Rotina que permitirá realizar a manipulação do endereço das etiquetas de cartão.
• Rotina permitirá aparecer mais uma forma de classificação : 06 - Modalidade/Termo/Campos Específicos/Nome Responsável. Caso a empresa não possua campos específicos cadastrados, então o sistema deverá apresentar a classificação da seguinte forma :Modalidade/Termo/NomeResponsável.
• 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 do programa mc0510m.p, na leitura do termo de adesão.
• Dentro do programa mc0510m.p, logo após ser selecionada em tela a opção "Renovação" e antes da pergunta de confirmação ao usuário.
• Dentro do programa mc0510m.p, após a identificação do endereço da etiqueta do cartão.
• Dentro do programa mc0510m.p, após receber contratante final.
• Dentro do programa mc0510m.p, após cada chamada do programa mc0510m.i.

Ponto de Utilização

• "RENOVA-CART"
• "ANTES-RENOVA"
• "ORDEM-CAMPPROP"
• "ENDERECO"
• "APOS-SELECAO"
• "RENOVA-CART-BEN"
• "INI-TRATA-USUA"

Include das definições das tabelas temporárias

• cpc-mc0510m.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-mc0510m-entrada

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

field in-evento-programa                     as char format "x(10)"
field nm-ponto-chamada-cpc              as char format "x(15)"
field cd-modalidade                           like propost.cd-modalidade
field cd-plano                                     like propost.cd-plano
field cd-tipo-plano                             like propost.cd-tipo-plano
field nr-proposta                                like propost.nr-proposta
field nr-ter-adesao                             like propost.nr-ter-adesao
field r-usuario                                      as rowid
field mostra-classif                              as handle
field lg-exc-prog-benef                       as log
field lg-selecao-aleatoria                     as log
cd-lote                                                 as int
in-tipo-impressao                                as int
in-tipo-layout                                       as int
lg-plano-nacional                                 as log
lg-emite-etiqueta                                 as log
in-quant-copia-etiq                              as int
lg-tipo-impressao-etiq                         as log
in-quant-linhas-etiq                             as int
lg-contrat-origem                                as log
lg-nao-inadimplentes                           as log
lg-inadimplentes                                  as log
nr-dias-inadimplentes                          as int
lg-pea                                                   as log
lg-data-parecer                                    as log
lg-proximo-mes                                   as log
lg-empresa-gp                                     as log
lg-considera-cpt                                   as log
lg-inc-prog                                           as log
lg-exc-prog                                          as log
in-classifini                                           as int
in-classificacao                                     as int
lg-quebra-aux                                      as log
nr-linhas-cart                                       as int
lg-imprime-tit                                      as log
cd-motivo-suspensao                          as char format "x(1000)"
lg-benef-suspenso                               as log
cd-userid                                              as char format "x(12)"
cdd-seq                                                as dec
field h-buffer-usuario                           as handle
field h-t-rel-erros                                  as handle.

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama a cpc-mc0510m.p. Os valores desse campo podem ser: "ATU", "CRIAOPCLASS" ou "SELCAMPESP"
• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.:"RENOVA-CART" , "ANTES-RENOVA" e "ORDEM-CAMPPROP".
• cd-modalidade – Código da modalidade de comercialização (somente para RENOVA-CART);
• cd-plano – Código de identificação do Plano no produto (somente para RENOVA-CART);
• cd-tipo-plano - Código de identificação do Tipo de Plano no produto (somente para RENOVA-CART);
• nr-proposta – Número da proposta (somente para RENOVA-CART);
• nr-ter-adesao- Número do termo de adesão (somente para RENOVA-CART);
• r-usuario – Rowid do Usuário
• mostra-classif – Utilizada para montar o sexto item de classificação(06 - Modalidade/Termo/Campos Específicos/Nome Responsável. Caso a empresa não possua campos específicos cadastrados, então o sistema deverá apresentar a classificação da seguinte forma :Modalidade/Termo/NomeResponsável.) 
• lg-exc-prog-benef - Utilizada para marcar a exclusão programada
• lg-selecao-aleatoria – Utilizada para marcar a seleção aletatoria
• cd-lote
• in-tipo-impressao
• in-tipo-layout
• lg-plano-nacional
• lg-emite-etiqueta
• in-quant-copia-etiq
• lg-tipo-impressao-etiq
• in-quant-linhas-etiq
• lg-contrat-origem
• lg-nao-inadimplentes
• lg-inadimplentes
• nr-dias-inadimplentes
• lg-pea
• lg-data-parecer
• lg-proximo-mes
• lg-empresa-gp
• lg-considera-cpt
• lg-inc-prog
• lg-exc-prog
• in-classifini
• in-classificacao
• lg-quebra-aux
• nr-linhas-cart
• lg-imprime-tit
• cd-motivo-suspensao
• lg-benef-suspenso
• cd-userid
• cdd-seq 
• h-usuarios
• h-buffer-usuario – buffer do registro corrente da tabela usuário
• h-t-rel-erros - handle da temp-table t-rel-erros.

Tabela de entrada tmp-mc0510m-parametros – somente utilizada para o ponto "ANTES-RENOVA"

def temp-table tmp-cpc-mc0510m-parametros no-undo

field in-tipo-layout                           as int
field nr-linhas-cart                           as int
field lg-plano-nacional                     as log
field in-tipo-impressao                     as int
field lg-emite-etiqueta                     as log
field in-quant-copia                         as int
field lg-tipo-impressao                     as log
field in-quant-linha                          as int
field lg-pre-gerado                          as log
field nm-arq-carteiras                      as char
field lg-não-inadimplentes               as log
field lg-inadimplentes                      as log
field nr-dias                                   as int
field lg-pea                                   as log
field lg-dt-parecer                           as log
field lg-proximo-mes                        as log
field lg-empresa-gp                         as log
field lg-exc-prog-benef                     as log
field lg-benef-suspenso                    as log
field in-suspensos                           as int
field lg-inc-prog                              as log
field lg-exc-prog                             as log
field in-uniplan                               as int
field lg-quebra                               as log
field lg-cobranca-cart                       as log
field lg-imprime-cart-rel                    as log
field lg-troca-car                             as log
field dt-mes-renov                           as int
field dt-ano-renov                           as int
field in-cancela-mes                        as int
field lg-dt-renovacao                       as log
field lg-lista-carteira                        as log
field mostra-classifini                      as char
field mostra-classif                         as char
field cd-empresa-ini                        as int
field cd-estabel-ini                          as int
field cd-estabel-fim                         as int
field cd-modalidade-ini                    as int
field cd-modalidade-fim                   as int
field cd-plano-ini                           as int
field cd-plano-fim                           as int
field cd-tipo-plano-ini                      as int
field cd-tipo-plano-fim                     as int
field cd-und-propost-ini                   as int
field cd-und-propost-fim                  as int
field cd-convenio-ini                       as int
field cd-convenio-fim                      as int
field nr-termo-ini                           as int
field nr-termo-fim                           as int
field cd-contratante-ini                   as int
field cd-contratante-fim                  as int.

Definição campo a campo da tabela tmp-mc0510m-parametros

• in-tipo-layout – 1-Carteira, 2-Cartão magético;
• nr-linhas-cart – numero de linhas do formulário;
• lg-plano-nacional – indica se é plano nacional;
• in-tipo-impressao – 1-Emissão/Reemissão, 2-Renovação, 3-Nova via;
• lg-emite-etiqueta – indica se deve emitir etiquetas;
• in-quant-copia – quantidade de cópias das etiquetas;
• lg-tipo-impressao – Condensada ou Normal;
• in-quant-linha – quantidade de linhas da etiqueta;
• lg-pre-gerado – indica se imprime arquivo gerado;
• nm-arq-carteiras – nome do arquivo gerado;
• lg-não-inadimplentes – indica se renova não inadimplentes;
• lg-inadimplentes – indica se renova inadimplentes;
• nr-dias – numero de dias de inadimplencia para permitir renovar;
• lg-pea – se renova proposta seguro assistencial;
• lg-dt-parecer – se renova propostas com vencimento do tipo data parecer;
• lg-proximo-mês – se renova propostas com vencimento do tipo próximo mês;
• lg-empresa-gp – se renova termos de contratantes que utilizam GP;
• lg-exc-prog-benef – se renova beneficiarios com exclusão programada;
• lg-benef-suspenso – se renova beneficiários suspensos;
• in-suspensos – 1-renova todos os suspensos, 2-permite selecionar o motivo da suspensão (os motivos selecionados são listados na temp tmp-mc0510m-motcange);
• lg-inc-prog – se considera modulos com inclusão programada;
• lg-exc-prog - se considera modulos com exclusão programada;
• in-uniplan – 1-Sistema, 2-origem;
• lg-quebra – quebra de página;
• lg-cobranca-cart – se atualiza indicador de cobrança nova via para o beneficiário;
• lg-imprime-cart-rel – se lista carteira com parametros impressão unidade destino;
• lg-troca-car – se troca carteira para cartão;
• dt-mes-renov – mês de vencimento para renovar;
• dt-ano-renov – ano de vencimento para renovar;
• in-cancela-mes – 1-corrente, 2-validade;
• lg-dt-renovacao – se trata suspensos antes da renovação;
• lg-lista-carteira – se lista carteira;
• mostra-classifini – 1-Modalidade/Termo Adesão; 2-Código Contratante; 3-Nome Contratante; 3-Cod. Contratante / Modalidade / Termo; 5-Nome Contratante / Modalidade / Termo;
• mostra-classif – 1-Cod. Responsável; 2-Nome Responsável; 3-Cod. Funcionário; 4-Unidade Destino/Cod. Responsável; 5-Unidade Destino/Nome Responsável;
•  Os campos abaixo referem-se à seleção que o usuário informou:
  • cd-empresa-ini - empresa
  • cd-estabel-ini - estabelecimento
  • cd-estabel-fim
  • cd-modalidade-ini - modalidade
  • cd-modalidade-fim
  • cd-plano-ini - plano
  • cd-plano-fim
  • cd-tipo-plano-ini – tipo de plano
  • cd-tipo-plano-fim
  • cd-und-propost-ini - proposta
  • cd-und-propost-fim
  • cd-convenio-ini - convenio
  • cd-convenio-fim
  • nr-termo-ini – número do termo de adesão
  • nr-termo-fim
  • cd-contratante-ini – código do contratante
  • cd-contratante-fim

Tabela de entrada tmp-cpc-mc0510m-motcange – somente utilizada para o ponto "ANTES-RENOVA"

def temp-table tmp-cpc-mc0510M-motcange no-undo

field cd-motivo                             like motcange.cd-motivo
field ds-motivo                             like motcange.ds-motivo.

Definição campo a campo da tabela cpc-mc0510m-motcange – somente quando cpc-mc0510m-parametros in-suspensos tiver valor 2:

• cd-motivo – código do motivo de suspensão do beneficiário
• ds-motivo – descrição do motivo de suspensão do beneficiário

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

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

field lg-undo-retry                        as log
field ds-mensagem                      as char
field lg-continua                          as log initial yes
field cd-chave-esp                       as char
field cd-chave-esp-aux                 as char format "X(20)" extent 4
field ds-chave-esp-aux                 as char format "X(20)" extent 4
field lg-endereco-termo                as log
field en-cep                                 like contrat.en-rua
field en-rua                                 like contrat.en-bairro
field en-cidade                            like contrat.en-cep
field en-bairro                             like contrat.en-uf
field en-uf                                  like dzcidade.nm-cidade
field en-pais                               like dzestado.nm-pais
field lg-quebra-rel-campo-esp        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 – descrição da mensagem de erro caso ocorra, dentro na cpc.
• lg-continua – Log que informa se continua o processo ou não, conforme tratativa na cpc.
• Cd-chave-esp – Conteúdo do campo especifico da da tabela USUARIO.
• Lg-endereco-termo – Campo que indica se o endereço dos cartões deverá ser alterado;
• En-cep – Campo que indica o CEP no endereço dos cartões;
• En-rua – Campo que indica a Rua no endereço dos cartões;
• En-cidade – Campo que indica a Cidade no endereço dos cartões;
• En-bairro – Campo que indica o Bairro no endereço dos cartões;
• En-uf – Campo que indida a UF no endereço dos cartões;
• En-pais – Campo que indica o Pais no endereço dos cartões;
• Lg-quebra-rel-campo-esp – Indicador para efetuar a quebra do relatório pela campo cd-chave-esp retornado. É importante frisar que está indicação de quebra para o relatório, somente será considerada caso no programa MC0510M o usuário informar que deseja efetuar a quebra do relatório, caso contrário este parâmetro será desconsiderado.