CPC-MC0510M.P

Produto:	Gestão de Planos de Saúde
Módulo:	Todos
Versão:	12.x.x
Assuntos:	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 &if "{&rowid_ready}" = "yes" &then rowid &else recid &endif
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 lg-card-presso as log

/**CAMPOS DO LAYOUT*/
field rec-propost as &if "{&rowid_ready}" = "yes" &then rowid &else recid &endif
field rec-pla-sau as &if "{&rowid_ready}" = "yes" &then rowid &else recid &endif
field rec-ti-pl-sa as &if "{&rowid_ready}" = "yes" &then rowid &else recid &endif
field rec-contrat as &if "{&rowid_ready}" = "yes" &then rowid &else recid &endif
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

/** FIM CAMPOS LAYOUT */

field h-buffer-tt-param as handle
field nm-arq-carteiras as char
field dt-exclusao-prog as date.

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;
dt-fim -
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
lg-card-presso -Indicador de cartão
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
nm-arq-carteiras
dt-exclusao-prog

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