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

• "DATA-EXCLUSAO" - Dentro do programa mc0410a.p, na leitura do termo de adesão.
• "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

• cpc-mc0410a.i

Tabelas de entrada e saída

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 char format "x(15)"
field r-usuario                               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.
• in-evento-programa – Nome dol evento do ponto de chamada da cpc.
• r-usuario - 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 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 usuario.dt-exclusao-plano
field ds-grau-parentesco              like gra-par.ds-grau-parentesco
field lg-retorna                             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 da mensagem de erro caso ocorra, dentro na cpc.
• cd-modalidade – Código da modalidade.
• nr-ter-adesão - Número do termo de adesão.
• cd-sit-adesao  - Situação do termo 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.               
• lg-retorna - Log que indica se deve atualizar o usuário ou retornar sem cancelar.