CPC-API-GERA-CARTA-PORTAB-CARENCIA.p

Observação: Esta CPC somente é utilizada no Gestão de Planos 2.00.

• Rotina para executar operações referentes a geração da carta de portabilidade de carência.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

Localização

• Dentro da api-gera-carta-portab-carencia.p.

Pontos de Utilização

• "ANTES-IMPRIMIR".

Include das definições das tabelas temporárias

• cpc-api-gera-carta-portab-carencia.i

Tabelas de entrada e saída

      Tabela tmp-cpc-api-gera-carta-entrada

def temp-table tmp-cpc-api-gera-carta-entrada no-undo
    field cd-modalidade          as integer
    field nr-proposta            as integer
    field cd-benef               as integer
    field nm-benef               as char format "x(70)"
    field dt-port-ini            as date format "99/99/9999"
    field dt-port-fim            as date format "99/99/9999"
    field vl-ult-mensalid        as dec format ">>>>99,99"
    field dt-inclusao-plano      like usuario.dt-inclusao-plano
    field dt-exclusao-plano      like usuario.dt-exclusao-plano
    field dt-fim-carencia-cpt    as date format "99/99/9999"
    field ds-inadimplente        as char
    field cd-cpf                 like usuario.cd-cpf
    field dt-nascimento          like usuario.dt-nascimento
    field ds-portabilidade       as char
    field ds-ampliou-cobertura   as char
    field ds-tipo-regulamentacao as char
    field cod-plano              as char format "x(30)"
    field nom-plano              like reg-plano-saude.nom-plano-ans
    field ds-data-geracao as char
    field dt-inicio-vinculo like usuario.dt-inicio-vinculo-unidade
    field cd-motivo-cancel like usuario.cd-motivo-cancel
    field ds-motivo like motcange.ds-motivo
    field ds-especifico-1 as char
    field ds-especifico-2 as char
    field ds-especifico-3 as char
    field ds-especifico-4 as char
    field ds-especifico-5 as char
    field ds-especifico-6 as char
    field ds-especifico-7 as char
    field ds-especifico-8 as char
    field ds-especifico-9 as char
    field ds-especifico-10 as char.

      Tabela tmp-cpc-api-gera-carta-saida

def temp-table tmp-cpc-api-gera-carta-saida no-undo
         field lg-undo-retry                     as logical
         field cd-mensagem                       as int
         field ds-mensagem-erro                  as char format "x(75)"
         field dt-exclusao-plano                 like usuario.dt-exclusao-plano
         field lg-atualiza                       as logical
         field lg-continua                       as logical     initial yes.