CPC-FICHA-CADASTRAL.p

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

• Rotina para executar operações referentes a geração da ficha cadastral.
• 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 bosau-report.p.

Pontos de Utilização

• "FICHA-CADASTRAL".

Include das definições das tabelas temporárias

• cpc-ficha-cadastral.i

Tabelas de entrada e saída

      Tabela tmp-cpc-ficha-cadastral-entrada

def temp-table tmp-cpc-ficha-cadastral-entrada  no-undo
         field nm-beneficiario        as char serialize-name "nmBeneficiario" 
         field cd-beneficiario        as char serialize-name "cdBeneficiario"
         field cd-funcionario         as char serialize-name "cdFuncionario "
         field cd-carteira            as char serialize-name "cdCarteira"
         field dt-nascimento          as char serialize-name "dtNascimento"
         field nm-sexo                as char serialize-name "nmSexo"
         field nm-estado-civil        as char serialize-name "nmEstadoCivil"
         field nm-mae                 as char serialize-name "nmMae"
         field nm-pai                 as char serialize-name "nmPai"
         field cd-cpf                 as char serialize-name "cdCpf"
         field cd-rg                  as char serialize-name "cdRg"
         field nm-orgao-emissor       as char serialize-name "nmOrgaoEmissor"
         field cd-cns                 as char serialize-name "cdCns"
         field nm-genero-social       as char serialize-name "nmGeneroSocial"
         field nm-nome-social         as char serialize-name "nmNomeSocial"
         field nm-endereco            as char serialize-name "nmEndereco"
         field nm-bairro              as char serialize-name "nmBairro"
         field nm-cidade              as char serialize-name "nmCidade"
         field nm-estado              as char serialize-name "nmEstado"
         field cd-cep                 as char serialize-name "cdCep"
         field cd-fone-01             as char serialize-name "cdFone01"
         field cd-fone-02             as char serialize-name "cdFone02"
         field nm-email               as char serialize-name "nmEmail"
         field cd-cbo                 as char serialize-name "cdCBO"
         field nm-cbo                 as char serialize-name "nmCBO"
         field cd-modalidade          as char serialize-name "cdModalidade"
         field cd-proposta            as char serialize-name "cdProposta"
         field cd-contrato            as char serialize-name "cdContrato"
         field nm-parentesco          as char serialize-name "nmParentesco"
         field nm-contratante         as char serialize-name "nmContratante"
         field cgc-cpf-contratante    as char serialize-name "cgcCpfContratante"
         field caepf-contratante      as char serialize-name "caepfContratante"
         field nm-abrangencia         as char serialize-name "nmAbrangencia"
         field nm-acomodacao          as char serialize-name "nmAcomodacao "
         field nm-operadora-bairro    as char serialize-name "nmOperadoraBairro" 
         field nm-operadora-uf        as char serialize-name "nmOperadoraUF" 
         field nm-operadora-cep       as char serialize-name "nmOperadoraCep" 
         field nm-operadora-endereco  as char serialize-name "nmOperadoraEndereco" 
         field nm-operadora-site      as char serialize-name "nmOperadoraSite" 
         field nm-operadora-telefone  as char serialize-name "nmOperadoraTelefone" 
         field nm-cidade-operadora    as char serialize-name "nmCidadeOperadora" 
         field nm-operadora           as char serialize-name "nmOperadora" 
         field susep-operadora        as char serialize-name "susepOperadora" 
         field nm-tipo-plano          as char serialize-name "nmTipoPlano"
         field cd-plano-ans           as char serialize-name "cdPlanoAns"
         field nm-tipo-plano-ans      as char serialize-name "nmTipoPlanoAns"
         field nm-forma-pagamento     as char serialize-name "nmFormaPagamento"
         field ds-data-geracao        as char serialize-name "dsDataGeracao"
         field ds-especifico-01       as char serialize-name "dsEspecifico01"
         field ds-especifico-02       as char serialize-name "dsEspecifico02"
         field ds-especifico-03       as char serialize-name "dsEspecifico03"
         field ds-especifico-04       as char serialize-name "dsEspecifico04"
         field ds-especifico-05       as char serialize-name "dsEspecifico05"
         field ds-especifico-06       as char serialize-name "dsEspecifico06"
         field ds-especifico-07       as char serialize-name "dsEspecifico07"
         field ds-especifico-08       as char serialize-name "dsEspecifico08"
         field ds-especifico-09       as char serialize-name "dsEspecifico09"
         field ds-especifico-10       as char serialize-name "dsEspecifico10".

      Tabela tmp-cpc-dependentes

define temp-table tmp-cpc-dependentes no-undo 
         field nm-beneficiario        as char serialize-name "nmBeneficiario" 
         field cd-beneficiario        as char serialize-name "cdBeneficiario"
         field cd-funcionario         as char serialize-name "cdFuncionario "
         field cd-carteira            as char serialize-name "cdCarteira"
         field dt-nascimento          as char serialize-name "dtNascimento"
         field nm-sexo                as char serialize-name "nmSexo"
         field nm-estado-civil        as char serialize-name "nmEstadoCivil"
         field nm-mae                 as char serialize-name "nmMae"
         field nm-pai                 as char serialize-name "nmPai"
         field cd-cpf                 as char serialize-name "cdCpf"
         field cd-rg                  as char serialize-name "cdRg"
         field nm-orgao-emissor       as char serialize-name "nmOrgaoEmissor"
         field cd-cns                 as char serialize-name "cdCns"
         field nm-genero-social       as char serialize-name "nmGeneroSocial"
         field nm-nome-social         as char serialize-name "nmNomeSocial"
         field nm-endereco            as char serialize-name "nmEndereco"
         field nm-bairro              as char serialize-name "nmBairro"
         field nm-cidade              as char serialize-name "nmCidade"
         field nm-estado              as char serialize-name "nmEstado"
         field cd-cep                 as char serialize-name "cdCep"
         field cd-fone-01             as char serialize-name "cdFone01"
         field cd-fone-02             as char serialize-name "cdFone02"
         field nm-email               as char serialize-name "nmEmail"
         field cd-cbo                 as char serialize-name "cdCBO"
         field nm-cbo                 as char serialize-name "nmCBO"
         field cd-modalidade          as char serialize-name "cdModalidade"
         field cd-proposta            as char serialize-name "cdProposta"
         field cd-contrato            as char serialize-name "cdContrato"
         field nm-parentesco          as char serialize-name "nmParentesco"
         field nm-contratante         as char serialize-name "nmContratante"
         field cgc-cpf-contratante    as char serialize-name "cgcCpfContratante"
         field caepf-contratante      as char serialize-name "caepfContratante"
         field nm-abrangencia         as char serialize-name "nmAbrangencia"
         field nm-acomodacao          as char serialize-name "nmAcomodacao "
         field nm-operadora-bairro    as char serialize-name "nmOperadoraBairro" 
         field nm-operadora-uf        as char serialize-name "nmOperadoraUF" 
         field nm-operadora-cep       as char serialize-name "nmOperadoraCep" 
         field nm-operadora-endereco  as char serialize-name "nmOperadoraEndereco" 
         field nm-operadora-site      as char serialize-name "nmOperadoraSite" 
         field nm-operadora-telefone  as char serialize-name "nmOperadoraTelefone" 
         field nm-cidade-operadora    as char serialize-name "nmCidadeOperadora" 
         field nm-operadora           as char serialize-name "nmOperadora" 
         field nm-tipo-plano          as char serialize-name "nmTipoPlano"
         field cd-plano-ans           as char serialize-name "cdPlanoAns"
         field nm-tipo-plano-ans      as char serialize-name "nmTipoPlanoAns"
         field nm-forma-pagamento     as char serialize-name "nmFormaPagamento".

      Tabela tmp-cpc-ficha-cadastral-saida

def temp-table tmp-cpc-ficha-cadastral-saida     no-undo
         field lg-undo-retry         as log
         field ds-mensagem           as char format "x(75)".