CPC-API-TRANSF-BENEF.P

• Rotina utilizada API para tratar transferência de forma diferenciada a reativação do beneficiário.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

...

• Dentro do programa api-transf-benef.p.

Ponto de Utilização

• "EXCLUI-TIT"
• "REATIVAENT-BENEFDADOS"
• "SETAENT-DTDADOS-REATDEST"
• "REST-JUR"
• "TRANSF-BENEF"
• "VALIDA-CALC-FATVERIF-SIT-BENEF"
• "VALIDVAL-DT-REPASCALC-REPAS"
• "APOS-INCLUSAO"
• "ANT-CRIA-CONTR"
• "ANTES-TRANSF"
• "ANTES-CONSISTE"
• "CONSISTE-DADOS"
• "VALIDA-COD-FUNC"

Include das definições das tabelas temporárias

• cpc-api-transf-benef.i

Exemplo de chamada da cpc

run cpc/cpc-api-transf-benef.p (input table tmp-cpc-api-transf-benef-entrada,
                                                  input-output table wk-replica-param,
                                                  input-output table wk-usuario,
                                                  output table tmp-cpc-api-transf-benef-saida) no-error.

Na cpc, deve ser utilizada a {api/ api-transf-benef.i} que é a include que define a tabela wk-usuario.

Exemplo de definição das temporárias cpc

def input parameter table             for tmp-cpc-api-transf-benef-entrada.
def input-output parameter table for wk-replica-param.
def input-output parameter table for wk-usuario.
def output parameter table           for tmp-cpc-api-transf-benef-saida.

Tabelas de entrada e saída

...

    field nm-ponto-chamada-cpc   cpc     as  as char format "x(15)"

    field cd-modalidade               as modalidade                    as int

    field nr-proposta              proposta                         as int

    field nr-ter-adesao            as adesao                      as int

    field cd-modalidade-dest       as dest            as int

    field nr-proposta-dest         dest                 as int

    field nr-ter-adesao-dest       as dest              as int

    field cd-usuario               as int

    field cd-unimed                as int.

usuario                          as int

    field cd-unimed                          as int

    field id-pessoa                           as int

    field nm-usuario                         as char

    field cd-cpf                                 as char

    field dt-nascimento                    as date

    field cd-grau-parentesco            as int

    field cd-unimed-atendimento     like usureate.cd-unidade-atendimento

    field cd-cidade                           like usuario.cd-cidade

    field lg-acesso-emp                   as log

    field cd-motivo-cancel              as int.

Definição campo a campo da tabela de entrada

• • nm-ponto-chamada-cpc - Nome do ponto de chamada da
cpc
• • CPC dentro do programa que a utiliza.
• R-usuario – rowid do beneficiário
• Lg-reativa – Indicador que forca a reativação do beneficiário.
• Mm-ult-fat – mês de referncia da ultima fatura.
• Aa-ult-fat – Ano de referencia da ultima fatura.

...

• • cd-modalidade - Modalidade do usuário.
  • nr-proposta - Proposta do usuário.
  • nr-ter-adesao - Termo de Adesão do usuário.
  • cd-modalidade-dest - Modalidade destino do usuário.
  • nr-proposta-dest - Proposta destino do usuário.
  • nr-ter-adesao-dest - Termo de Adesão destino do usuário.
  • cd-usuario - Código do beneficiário.
  • cd-unimed - Código da Unimed de repasse destino do beneficiário.
  • id-pessoa - Identificação da pessoa
  • nm-usuario - Nome do beneficiário
  • cd-cpf - CPF do beneficiário
  • dt-nascimento - Data de nascimento do beneficiário
  • cd-grau-parentesco - Grau de parentesco do beneficiário
  • cd-unimed-atendimento - Código da Unimed de atendimento destino do beneficiário.
  • cd-cidade - Código da cidade do beneficiário.
  • lg-acesso-emp - Identifica se a transferência se refere ao Acesso Empresarial ou ao Gestão de Planos.
  • cd-motivo-cancel - Código do motivo de cancelamento do beneficiário na proposta origem.

Tabela de entrada e saída wk-replica-param

         def temp-table wk-replica-param no-undo
                  field cd-modalidade-orig           like propost.cd-modalidade
                  field nr-proposta-orig                like propost.nr-proposta
                  field cd-modalidade-dest          like propost.cd-modalidade
                  field nr-proposta-dest               like propost.nr-proposta
                  field nm-tabela                         as char
                  field nr-reg                                as int.

Definição campo a campo da tabela de entrada e saída

• cd-modalidade-orig - Modalidade Origem do usuário.
• nr-proposta-orig - Proposta Origem do usuário.
• cd-modalidade-dest - Modalidade Destino do usuário.
• nr-proposta-dest - Proposta Destino do usuário.
• nm-tabela - Nome da tabela que será replicada
• nr-reg - Número de registros criados de cada tabela replicada

Tabela de saída tmp-cpc-api-transf-benef-saida

define temp-table tmp-cpc-api-transf-benef-saida no-undo

    field lg-undo-retry         retry             as log

    field lg-continua           continua               as log

    field cd-mensagem           as mensagem          as int

    field ds-mensagem           as char.

...

mensagem          as char

   field lg-mensagem-na-tela as log init yes

   field cd-vendedor-aux          as int
   field lg-usa-vendedor          as log

    field cd-usuario                   like usuario.cd-usuario.

Definição campo a campo da tabela de saída

• • lg-undo-retry - Variável que controla
se erros
• • caso inconsistências aconteceram dentro da CPC.
Se
• • Caso o retorno desta variável for igual a "SIM", indicará que erros aconteceram e
se
• • caso o retorno for igual à "NÃO", indicará que o processo foi concluído por completo.
  • lg-continua - Indica se deve continuar na regra ou passar para o próximo registro.
  • cd-mensagem - Código do erro retornado da CPC.
  • ds-mensagem - Variável que retornar mensagem de erro, se ocorrido dentro da CPC.
• Lg-reativa – Indicador que forca a reativação do beneficiário.
Dt-ult-fat – Retorna data da ultima fatura
• • lg-mensagem-na-tela - Indica se a mensagem de erro (retornada pela cpc) será listada em tela ou não.
  • cd-vendedor-aux - Código do vendedor que será gravado no beneficiário destino.
  • lg-
atualiza
• • usa-
benef - Controla o disparo da mensagem: "Situacao do beneficiario nao permite ser reativado".Lg-continua – determina se o processo deve continuar
• • vendedor - Variável que identifica se o vendedor será alterado ou não.
lg
• • cd-
erro - Indica se ocorreu erro na regra do cliente.

...

• • usuario -  Código do beneficiário.