cpc-bosaudemographic.p1

Obs: Esta CPC somente é utilizada no Gestão de Planos 2.00.
Rotina para validar dados da pessoa-fisica antes de aplicar uma atualização na base de dados. É possível atualizar valores e retornar mensagens, conforme a necessidade do cliente.
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.
Localização
Dentro da bosaudemographic.p.
Ponto de Utilização
"CONSIST-PFISICA"
Include das definições das tabelas temporárias
cpc-bosaudemographic.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-bosaudemographic-entrada
def temp-table tmp-cpc-bosaudemographic-entrada no-undo
field nm-ponto-chamada-cpc as char format "x(15)"
field in-evento-programa as char format "x(06)".
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. Para o programa BOSAUDEMOGRAPHIC.P o valor possível é "CONSIST-PFISICA";
in-evento-programa – Evento do programa que chama CPC-BOSAUDEMOGRAPHIC.P. O valor desse campo deve ser "VALIDA";
Tabela com os dados da pessoa física: tmp-cpc-bosaudemographic-dados
def temp-table tmp-cpc-bosaudemographic-dados no-undo
field id-pessoa like pessoa-fisica.id-pessoa
field nm-pessoa like pessoa-fisica.nm-pessoa
field cd-cpf like pessoa-fisica.cd-cpf
field dt-nascimento like pessoa-fisica.dt-nascimento
field in-estado-civil like pessoa-fisica.in-estado-civil
field cd-cbo like pessoa-fisica.cd-cbo
field lg-sexo like pessoa-fisica.lg-sexo
field nr-identidade like pessoa-fisica.nr-identidade
field uf-emissor-ident like pessoa-fisica.uf-emissor-ident
field nm-cartao like pessoa-fisica.nm-cartao
field nm-internacional like pessoa-fisica.nm-internacional
field ds-nacionalidade like pessoa-fisica.ds-nacionalidade
field ds-natureza-doc like pessoa-fisica.ds-natureza-doc
field nr-pis-pasep like pessoa-fisica.nr-pis-pasep
field nm-mae like pessoa-fisica.nm-mae
field nm-pai like pessoa-fisica.nm-pai
field nm-conjuge like pessoa-fisica.nm-conjuge
field ds-orgao-emissor-ident like pessoa-fisica.ds-orgao-emissor-ident
field nm-pais-emissor-ident like pessoa-fisica.nm-pais-emissor-ident
field dt-emissao-ident like pessoa-fisica.dt-emissao-ident
field nr-cei like pessoa-fisica.nr-cei
field cd-cartao-nacional-saude like pessoa-fisica.cd-cartao-nacional-saude.
Definição campo a campo da tabela tmp-cpc-bosaudemographic-dados
id-pessoa – código identificador da pessoa física no sistema
nm-pessoa – nome da pessoa
cd-cpf – CPF da pessoa
dt-nascimento – data de nascimento da pessoa
in-estado-civil - estado civil da pessoa: 1-solteiro, 2-casado, 3-viuvo, 4-divorciado, 5-outros
cd-cbo – código brasileiro de ocupações
lg-sexo – sexo: yes-masculino, no-feminino
nr-identidade – número da identidade
uf-emissor-ident – UF emissor da identidade
nm-cartao – nome da pessoa para o cartão magnético
nm-internacional – nome internacional da pessoa
ds-nacionalidade – nacionalidade
ds-natureza-doc – natureza da identidade
nr-pis-pasep – número do pis/pasep
nm-mae – nome da mãe
nm-pai – nome do pai
nm-conjuge – nome do conjuge
ds-orgao-emissor-ident – orgão de emissão da identidade
nm-pais-emissor-ident – país de emissão da identidade
dt-emissao-ident – data de emissão da identidade
nr-cei – número do CEI da pessoa
cd-cartao-nacional-saude – número do cartão nacional de sáude
Tabela de saída tmp-cpc-bosaudemographic-saida
def temp-table tmp-cpc-bosaudemographic-saida no-undo
field lg-erro as logical
field ds-mensagem as char format "x(75)".
Definição campo a campo da tabela de saída
lg-erro – Variável que controla os erros que podem ocorrer na CPC.
Ds-mensagem– Variável que recebe a descrição dos erros que ocorreram na CPC.