CPC-BOGENERATEDSIB.p

Produto:	Gestão de Planos de Saúde
Módulo:	Todos
Versão:	12.x.x
Assuntos:	cpc-bogeneratedsib.p

Rotina utilizada para permitir que a data limite de envio para beneficiários sem CNS seja alterada.
Caso o cliente não queira executar a chamada da CPC no seu programa deve colocar CPC Ativo como não.

Localização

Inclusão de ponto antes da validação da data de verificação de beneficiários sem CNS no programa bogeneratedsib.p

Ponto de Utilização

"VALIDA-CNS"

Include das definições das tabelas temporárias

cpc-bogeneratedsib.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-bogeneratedsib-entrada

def temp-table tmp-cpc-bogeneratedsib-entrada no-undo

field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15)"
field cd-erro as int
field cd-modalidade like modalid.cd-modalidade
field cd-reg-propost like reg-plano-saude.cdn-plano-ans
field cd-mod-usuario like usuario.cd-modalidade
field cd-reg-usuario like reg-plano-saude.cdn-plano-ans
field in-registro-plano like propost.in-registro-plano
field nr-ter-adesao like propost.nr-ter-adesao
field cd-usuario like usuario.cd-usuario
field nm-usuario like usuario.nm-usuario
field nm-contratante like contrat.nm-contratante
field ds-erro as char format "x(81)"
field ds-status as char format "x(13)"
field ds-acao-registro as char format "x(14)"
field r-usuario as rowid
field ds-tipo-ponto as char
filed tp-movimento as char
field id-registro like hist-movto-usuario.id-registro
field cod-livre-1 like hist-movto-usuario.cod-livre-1
field cco-complementar like usuario.cd-controle-oper-ans
field cd-carteira like sib-mov-inc-ret.cod-carteira

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.
  - Cd-erro – Codigo de erro.
  - Cd-modalidade – Código da modalidade
  - Cd-reg-propost – Código do registro da proposta
  - Cd-mod-usuario – Código da modalidade do usuário
  - Cd-reg-usuario – Código do registro do usuário
  - In-registro-plano – Início do registro do plano
  - Nr-ter-adesao – Número do termo de adesão
  - Cd-usuario – Código do usuário
  - Nm-usuario – Nome do usuário
  - Nm-contratante – Nome do Contratante
  - Ds-erro – Descrição do erro
  - Ds-status – Descrição do status
  - Ds-acao-registro – Descrição da ação do registro
  - R-usuario - Rowid do usuário
  - Ds-tipo-ponto - Nome da função do ponto
  - Tp-movimento - Tipo do movimento
  - Id-registro - Id de registro do histório de movimentação do usuário
  - Cod-livre-1 - Atributo livre para uso interno
  - Cco-complementar - Código de controle
  - Cd-carteira - Código da Carteira

Tabela de saída tmp-cpc-bogeneratedsib-saida

def temp-table tmp-cpc-bogeneratedsib-saida no-undo

field lg-undo-retry as log
field lg-erro as log
field ds-mensagem as char format "x(80)"
field lg-considera-erro as log
field lg-invalida-modalidade as log
field lg-invalida-proposta as log
field lg-invalida-usuario as log
field lg-agreado as log
field lg-titular-agregado as log
field cd-cnpj like contrat.nr-cgc-cpf
field nr-cei like contrat.nr-cei
field cod-carteira-titular like sib-mov-inc-ret.cod-carteira-titular
field dt-cns-obrigatorio as date format 99/99/9999
field dt-contratacao as date
field cod-carteira-inteira like sib-mov-inc-ret.cod-carteira-titular
field idi-plano-ans-propost like propost.idi-plano-ans
field idi-plano-ans-usuario like usuario.idi-plano-ans
field nr-insc-contratante like propost.nr-insc-contratante
field cd-contratante like propost.cd-contratante
field cd-modalidade like usuario.cd-modalidade
field nr-proposta like usuario.nr-proposta
field lg-next as logical
field cd-motivo as int.

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

- - lg-undo-retry - Campo que controla se erros aconteceram dentro da CPC. Se o retorno desta variável for igual a SIM, indicará que erros aconteceram e se o retorno for igual à NÃO, indicará que o processo foi concluído por completo.
  - lg-erro - Campo que informa condição de erro
  - ds-mesagem - Campo que retorna mensagem de erro, se ocorrido dentro da CPC.
  - lg-considera-erro – Log para considerar erro ou não
  - lg-invalida-modalidade – Log para invalidar a modalidade
  - lg-invalida-proposta – Log para invalidar a proposta
  - lg-invalida-usuario – Log para invalidar o usuário
  - lg-agregado - Log para indicar agregado
  - lg-titular-agregado - Log para indicar titular agregado
  - cd-cnpj – Código do cnpj
  - nr-cei – Número do CEI
  - cod-carteira-titular - Código da carteira do titular
  - dt-cns-obrigatorio - Variável de controle da data da CNS.
  - dt-contratacao - Data de contratação
  - cod-carteira-inteira - Código inteiro da carteira
  - idi-plano-ans-propost - Indicador Vinculo Plano
  - idi-plano-ans-usuario - Indicador Vinculo Plano
  - nr-insc-contratante - Número de inscrição contratante
  - cd-contratante - Código do cliente associado ao administrativo
  - cd-modalidade - Código da Modalidade
  - nr-proposta - Número da Proposta
  - lg-next - Log

Ponto de Utilização

"BENEF-AGREG"

Include das definições das tabelas temporárias

cpc-bogeneratedsib.i
bogeneratedsib.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-bogeneratedsib-entrada

def temp-table tmp-cpc-bogeneratedsib-entrada no-undo

field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15)"
field cd-erro as int
field cd-modalidade like modalid.cd-modalidade
field cd-reg-propost like reg-plano-saude.cdn-plano-ans
field cd-mod-usuario like usuario.cd-modalidade
field cd-reg-usuario like reg-plano-saude.cdn-plano-ans
field in-registro-plano like propost.in-registro-plano
field nr-ter-adesao like propost.nr-ter-adesao
field cd-usuario like usuario.cd-usuario
field nm-usuario like usuario.nm-usuario
field nm-contratante like contrat.nm-contratante
field ds-erro as char format "x(81)"
field ds-status as char format "x(13)"
field ds-acao-registro as char format "x(14)"
field r-usuario as rowid
field ds-tipo-ponto as char
filed tp-movimento as char
field id-registro like hist-movto-usuario.id-registro
field cod-livre-1 like hist-movto-usuario.cod-livre-1
field cco-complementar like usuario.cd-controle-oper-ans
field cd-carteira like sib-mov-inc-ret.cod-carteira

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.
  - Cd-erro – Codigo de erro.
  - Cd-modalidade – Código da modalidade
  - Cd-reg-propost – Código do registro da proposta
  - Cd-mod-usuario – Código da modalidade do usuário
  - Cd-reg-usuario – Código do registro do usuário
  - In-registro-plano – Início do registro do plano
  - Nr-ter-adesao – Número do termo de adesão
  - Cd-usuario – Código do usuário
  - Nm-usuario – Nome do usuário
  - Nm-contratante – Nome do Contratante
  - Ds-erro – Descrição do erro
  - Ds-status – Descrição do status
  - Ds-acao-registro – Descrição da ação do registro
  - R-usuario - Rowid do usuário
  - Ds-tipo-ponto - Nome da função do ponto
  - Tp-movimento - Tipo do movimento
  - Id-registro - Id de registro do histório de movimentação do usuário
  - Cod-livre-1 - Atributo livre para uso interno
  - Cco-complementar - Código de controle
  - Cd-carteira - Código da Carteira

Tabela de saída tmp-cpc-bogeneratedsib-saida

def temp-table tmp-cpc-bogeneratedsib-saida no-undo

field lg-undo-retry as log
field lg-erro as log
field ds-mensagem as char format "x(80)"
field lg-considera-erro as log
field lg-invalida-modalidade as log
field lg-invalida-proposta as log
field lg-invalida-usuario as log
field cd-cnpj like contrat.nr-cgc-cpf
field nr-cei like contrat.nr-cei
field dt-cns-obrigatorio as date format 99/99/9999.

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

- lg-undo-retry - Campo que controla se erros aconteceram dentro da CPC. Se o retorno desta variável for igual a SIM, indicará que erros aconteceram e se o retorno for igual à NÃO, indicará que o processo foi concluído por completo.
- ds-mesagem - Campo que retorna mensagem de erro, se ocorrido dentro da CPC.
- lg-considera-erro – Log para considerar erro ou não
- lg-invalida-modalidade – Log para invalidar a modalidade
- lg-invalida-proposta – Log para invalidar a proposta
- lg-invalida-usuario – Log para invalidar o usuário
- cd-cnpj – Código do cnpj
- nr-cei – Número do CEI
- dt-cns-obrigatorio - Variável de controle da data da CNS.

Tabela de entrada/saída tmpSibMovementAgreg

def temp-table tmpSibMovementeAgreg no-undo like hist-movto-usuario

field log-agregado as log
field log-possui-agregado as log

Definição campo a campo da tabela tmpSibMovementAgreg

- - log-agregado - Log indicador de agregado
  - log-possui-agregado - Log de indicador possui agregado
Tabela de entrada/saída rowErrorsSib

def temp-table rowErrrorsSib no-undo

field errorSequence as integer
field errorNumber as integer
field errorDescription as char format "x(500)"
field errorParameters as char format "x(500)"
field errorType as char format "x(10)"
field errorHelp as char format "x(500)"
field errorSubType as char format "x(12)"
field errorMovementType as char
field errorModality as int
field errorProposal as int
field errorContract as int
field errorUser as int
field errorPersonID as dec
field errorPlan as int
field errorPlanType as int
field errorUnit as int
field errorCard as dec
field errorDate as char
field errorBirthDate as char
field errorCity as int
field errorContractorIncription as int
field errorContractorNumber as int

Definição campo a campo da tabela rowErrorsSib

- - errorSequence - Gera internamente
  - errorNumber - Número da mensagem de erro, caso não venha na mensiste
  - errorDescription - Se preencher, considera, senão busca.
  - errorParameters - Livre. Chave do Registro, etc.
  - errorType - Progress / GP / Outros
  - errorHelp - Se preencher, considera, senão mensiste.ds-mensagem-detalhada
  - errorSubType - Error, Warning ou Information
  - errorMovementType - Tipo de movimento
  - errorModality - Modalidade
  - errorProposal - Proposta
  - errorContract - Contrato
  - errorUser - Usuário
  - errorPersonID - Identificação do usuário
  - errorPlan - Plano
  - errorPlanType - Tipo de Plano
  - errorUnit - Unidade
  - errorCard - Carteira
  - errorDate - Data
  - errorBirthDate - Data de aniversario
  - errorCity - Cidade
  - errorContractorInscription - Inscrição contratnate
  - errorContractorNumber - Número do contratante