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"
• "ANTES-IMPRIME"
• "ATUALIZA-BENEF"
• "SELEC-PROPOST"
• "ANTES-ARQUIVO"
• "EMITE-REEMITE"
• "FIM-PROCESSO"
• "ANT-IMPRI-CART"
• "APOS-SELECAO"

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 dt-fim like ter-ade.dt-fim
field r-usuario as rowid
field r-propost as rowid
field r-car-ide as rowid
field rec-usuario as recid
field mostra-classif as handle
field lg-exc-prog-benef as log
field lg-selecao-aleatoria as log
field cd-lote as int
field in-tipo-impressao as int
field in-tipo-layout as int
field lg-plano-nacional as log
field lg-emite-etiqueta as log
field in-quant-copia-etiq as int
field lg-tipo-impressao-etiq as log
field in-quant-linhas-etiq as int
field lg-contrat-origem as log
field lg-nao-inadimplentes as log
field lg-inadimplentes as log
field nr-dias-inadimplentes as int
field lg-pea as log
field lg-data-parecer as log
field lg-proximo-mes as log
field lg-empresa-gp as log
field lg-considera-cpt as log
field lg-inc-prog as log
field lg-exc-prog as log
field in-classifini as int
field in-classificacao as int
field lg-quebra-aux as log
field nr-linhas-cart as int
field lg-imprime-tit as log
field cd-motivo-suspensao as char format "x(1000)"
field lg-benef-suspenso as log
field cd-userid as char format "x(12)"
field cdd-seq as dec
field h-usuarios as handle
field h-buffer-usuario as handle
field h-t-rel-erros as handle

field rec-propost as recid
field rec-pla-sau as recid
field rec-ti-pl-sa as recid
field rec-contrat as recid
field cd-cart-impressao as char
field ct-est-carteiras as int
field nr-cartao as char
field dt-valid-cartao like car-ide.dt-validade
field ds-linha-aux as char extent 12
field h-buffer-tt-param as handle

field lg-card-presso as log.

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama a cpc-mc0510m.p;
• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza;
• cd-modalidade – Código da modalidade de comercialização;
• cd-plano – Código de identificação do Plano no produto;
• cd-tipo-plano - Código de identificação do Tipo de Plano no produto;
• nr-proposta – Número da proposta;
• nr-ter-adesao- Número do termo de adesão;
• r-usuario – Rowid do Usuário
• r-propost - Rowid da proposta
• r-car-ide - Rowid da car-ide
• 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 – Número do lote
• in-tipo-impressão – Indica se na impressão da carteira deve deverá constar a unidade do sistema, origem ou destino.
• in-tipo-layout – Indica tipo de lay-out (1-Carteira ou 2-Cartao)
• lg-plano-nacional – Indicador para Plano Nacional.
• lg-emite-etiqueta – Indicador para emitir etiquetas aos contratantes automaticamente no momento em que estiverem sendo emitidas as carteiras/cartões.
• in-quant-copia-etiq – Número de etiquetas que serão emitidas
• lg-tipo-impressao-etiq – Indicador de tipo de impressão "Condensada/Normal"
• in-quant-linhas-etiq – Quantidade de linhas
• lg-contrat-origem – Indicador para imprimir Contratante Origem
• lg-nao-inadimplentes –  Indicador para imprimir carteira/cartão para os contratantes não inadimplentes
• lg-inadimplentes –  Indicador para imprimir carteira/cartão para os contratantes inadimplentes
• nr-dias-inadimplentes – Ao se selecionar o campo "Inadimplentes" será permitido selecionar contratantes inadimplentes acrescentando-se a quantidade de dias de inadimplência. Caso seja colocado 9999 como padrão então o sistema manterá a funcionalidade atual. Conforme a quantidade parametrizada o programa selecionará os contratantes baseados na sua inadimplência.
• lg-pea – Indicador para selecionar as propostas dos beneficiários que já estão sob a atuação do seguro assistencial (PEA,PCA etc..).
• lg-data-parecer – Indicador para selecionar proposta pela validade Data Parecer 
• lg-proximo-mes – Indicador para selecionar proposta pela validade Proximo Mes.
• lg-empresa-gp – Indicador para ler os beneficiários cuja suas empresas utilizam o modulo GP para gerenciamento das movimentações.
• lg-considera-cpt – Indicador para Considera CPT antes Dt.Incl.
• lg-inc-prog – Indicador para ler os beneficiários cujos módulos com inclusão programada
• lg-exc-prog – Indicador para ler os beneficiários cujos módulos com exclusão programada
• in-classifini – Indicador das classificações disponíveis para impressão do relatório de conferencia, isto é, qual a ordem que deve ser impresso o relatório.  
• in-classificacao – Indicador das subclassificações disponíveis para impressão do relatório de conferencia, isto é, qual a ordem que deve ser impresso o relatório.   
• lg-quebra-aux – Indicador para ter salto de página entre suas classificações.
• nr-linhas-cart – Indicador da quantidade de linhas a serem usadas para imprimir o formulário. 
• lg-imprime-tit – Indicador para impressão de titulares
• cd-motivo-suspensao – Código do motivo de suspensão dos usuários
• lg-benef-suspenso – Indicador para considerar os beneficiários que já se encontram suspensos.
• cd-userid – Código do usuário corrente que está utilizando o sistema
• cdd-seq – Número sequencial de beneficiários
• h-usuarios – Tabela temporária de usuários
• h-buffer-usuario  – Tabela temporária de usuários
• h-t-rel-erros – Tabela temporária de erros
• rec-propost - Recid da tabela propost

• rec-pla-sau  - Recid da tabela plano de saúde.

• rec-ti-pl-sa - Recid da tabela tipo de plano de saude

• rec-contrat - Recid da tabela de contratantes.

• cd-cart-impressao

• ct-est-carteiras 

• nr-cartao - Número do cartão

• dt-valid-cartao - Data de validade do cartão

• ds-linha-aux - Mensagens do cartão

• h-buffer-tt-param - Handle da tabela temporária de parâmetros

• lg-card-presso - Indicador de cartão

Tabela de entrada tmp-mc0510m-parametros  

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 

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
field cd-lote as int
field cdd-seq as dec
field lg-nao-pede-arq 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.
• cd-lote – Número do lote
• cdd-seq – Número sequencial de beneficiários
• lg-nao-pede-arq – Indicador para solicitar nome do arquivo