Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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

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