CPC-MC0410A.P

• Rotina que permitirá realizar algumas consistências no termo de adesão antes de renova-lo.
• 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.

...

• Lembrando que os pontos de CPC também são chamados na versão RPW do processo.

Localização

• Dentro "DATA-EXCLUSAO" - Dentro do programa mc0410a.p, na leitura do termo de adesão.
• Dentro "ANTES-CAN-BENEF" - Dentro do programa mc0410a.p, antes do beneficiário ser atualizado.
• "GERACAO-CSV" - Dentro do programa mc0410a.p, na geração do relatório de erros.
• "FIN-CAN-BENE" - Dentro do programa mc0410a.p após a exclusão do beneficiário.

Ponto de Utilização

• "DATA-EXCLUSAO"
• "ANTES-CAN-BENEF"
• "FIN-CAN-BENE"
• "GERACAO-CSV"

Include das definições das tabelas temporárias

...

Tabela de entrada tmp-cpc-mc0410a-entrada

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

field in-evento-programa               as char format "x(10)"
field nm-ponto-chamada-cpc          as    as char format "x(15)"
field r-usuario                              as rowid  as rowid

field ch-caminho-destino             as char.

Definição campo a campo da tabela de entrada

• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.:"DATA-EXCLUSAO"
• in-evento-programa – Qual Nome dol evento do programaponto de chamada da cpc.
• Rr-usuario - O registro do usuário.

• Identificador do registro da tabela de usuários.
• ch-caminho-destino - Diretório e  arquivo do relatório de erros.

Tabela de entrada tmp-cpc-mc0410a-erro 

         def temp-table tmp-cpc-mc0410a-erro no-undo

field cd-unimed like usuario.cd-unimed
field cd-contratante like propost.cd-contratante
field cd-modalidade like ter-ade.cd-modalidade
field nr-proposta like propost.nr-proposta
field cd-convenio like propost.cd-convenio
field nr-ter-adesao like ter-ade.nr-ter-adesao
field dt-exclusao-termo as date
field dt-mov-exclusao-termo like ter-ade.dt-mov-exclusao
field cd-userid-exclusao-termo like ter-ade.cd-userid-exclusao
field lg-faturar like ter-ade.lg-faturar
field dt-ult-fat-termo as char format "99/9999"
field cd-usuario like usuario.cd-usuario
field cd-sit-usuario like usuario.cd-sit-usuario
field dt-exclusao-plano like usuario.dt-exclusao-plano
field dt-mov-exclusao like usuario.dt-mov-exclusao
field cd-userid-exclusao like usuario.cd-userid-exclusao
field dt-ult-fat as char format "99/9999"
field ch-descricao-erro as char.

      Definição campo a campo da tabela de entrada de erros

• cd-unimed - Código da unidade
• cd-contratante - Código do contratante
• cd-modalidade - Código da modalidade
• nr-proposta - Número da proposta
• cd-convenio - Código do convênio
• nr-ter-adesão - Número do termo de adesão
• dt-exclusao-termo - Data de cancelamento do termo de adesão
• dt-mov-exclusao-termo - Data do movimento de exclusão do termo
• cd-userid-exclusao-termo - Usuário de exclusão do termo
• lg-faturar - Indicador de faturamento do termo
• dt-ult-fat-termo - Último faturamento do termo
• cd-usuário - Código do beneficiário 
• cd-sit-usuário -  Código da situação beneficiário
• dt-exclusao-plano - Data de exclusão do beneficiário
• dt-mov-exclusao - Data do movimento de exclusão do beneficiário 
• cd-userid-exclusão - Usuário de exclusão do beneficiário 
• dt-ult-fat - Último faturamento do beneficiário
• ch-descricao-erro - Descrição do erro

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

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

          field lg-undo-retry                         as log

field lg-erro                                    as as log
field ds-mensagem                      as char format "x(75)"
field cd-modalidade                     like ter-ade.cd-modalidade
field nr-ter-adesao                       like ter-ade.nr-ter-adesao
field cd-sit-adesao                       like ter-ade.cd-sit-adesao
field dt-cancelamento                   like ter-ade.dt-cancelamento
field nr-proposta                          like propost.nr-proposta
field cd-sit-proposta                     like propost.cd-sit-proposta
field cd-contratante                      like propost.cd-contratante
field nm-contratante                     like contrat.nm-contratante
field cd-usuario                            like usuario.cd-usuario
field nm-usuario                           like usuario.nm-usuario
field dt-exclusao-plano                  like like usuario.dt-exclusao-plano
field ds-grau-parentesco                like    like gra-par.ds-grau-parentesco
field lg-retorna                             as log
field lg-continua                           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.
• lg-erro - Variável que controla se erros aconteceram dentro da CPC.
• ds-mensagem – descrição 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-modalidade – Código da modalidade de comercialização;cd-plano – Código de identificação do Plano no produto;.
• nr-ter-adesão - Número do termo de adesão.
• cd-tiposit-plano adesao  - Código de identificação Situação do Tipo de Plano no produtotermo de adesão.           
• dt-cancelamento - Data cancelamento. 
• nr-proposta – - Número da proposta.                        
• cd-sit-proposta - Situação da proposta.                     
• cd-contratante - Código do contratante.                     
• nm-contratante - Nome do contratante. 
• cd-usuário - Código do beneficiário.                           
• nm-usuario - Nome beneficiário.                         
• dt-exclusao-plano - Data exclusão plano.               
• ds-grau-parentesco - Descrição grau de parentesco.               nr-ter-adesao- Número do termo de adesão
• lg-retorna - Log que indica se deve atualizar o usuário ou retornar sem cancelar.
• Lg-continua - Controla se continuar o processo ou não.

...