CPC-FP0610W2.p

• Rotina que passa a tabela temporária de valores por beneficiário para que o cliente possa tratar as informações como desejar, é utilizada para impressão diferenciada do relatório.
• 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 do fp0610w.p, na rotina de impressão do relatório, antes de imprimir.

Ponto de Utilização

• "EXPORTA-TXT"

Include das definições das tabelas temporárias

• cpc-fp0610w2.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-fp0610w2-entrada

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

fields in-evento-programa                      as char format "x(06)"
fields nm-ponto-chamada-cpc               as char format "x(15)"
fields lg-imp-generico                            as log
fields lg-frame-ida-excl                          as log
fields in-classif                                       as int.

Definição campo a campo da tabela de entrada tmp-cpc-fp0610w2-entrada

• in-evento-programa – Evento do programa que chama a cpc-fp0610w.p. O valor desse campo pode ser:
• "EXP-TXT".
• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza:
• "EXPORTA-TXT"

Tabela de entrada tmp-cpc-valor-beneficiario

def temp-table tmp-cpc-valor-beneficiario no-undo

field cd-modalidade                           like modalid.cd-modalidade
field ds-modalidade                           like modalid.ds-modalidade
field cd-contratante                            like contrat.cd-contratante
field nm-contratante                           like contrat.nm-contratante
field cd-contratante-origem               like propost.cd-contrat-origem
field nm-contratante-origem-aux       like contrat.nm-contratante
field nr-ter-adesao                              like ter-ade.nr-ter-adesao
field cd-plano                                      like pla-sau.cd-plano
field nm-plano                                    like pla-sau.nm-plano-reduz
field cd-tipo-plano                              like ti-pl-sa.cd-tipo-plano
field nm-tipo-plano                             like ti-pl-sa.nm-tipo-plano
field dt-referencia                               as char format "x(7)"
field nr-titulo                                       as char format "x(9)"
field dt-emissao                                 as date
field dt-vencimento                            as date
field vl-nota                                        as dec format "->>,>>>,>>9.99"
field cd-titular                                     like usuario.cd-titular
field nm-titular                                    like usuario.nm-usuario
field cd-usuario                                  like usuario.cd-usuario
field nm-usuario                                 like usuario.nm-usuario

field cd-cns                                        as dec format "999999999999999"

field cd-pad-cob                                 like usuario.cd-padrao-cobertura
field cd-unidade                                 like propost.cd-unimed
field ds-unidade                                 as char format "x(19)"
field dt-inclusao                                 like usuario.dt-inclusao-plano
field gr-parentesco                            like gra-par.cd-grau-parentesco
field ds-parentesco                           like gra-par.ds-grau-parentesco
field nr-faixa-etaria                            like pl-gr-pa.nr-faixa-etaria
field ds-faixa                                     as char format "x(9)"
field cd-evento                                  like evenfatu.cd-evento
field cd-modulo                                 like pla-mod.cd-modulo
field qt-evemod                                 like fatueven.qt-evento
field vl-evemod                                 as dec format "->>,>>>,>>9.99"
field dt-nascimento                           like usuario.dt-nascimento
field vl-total                                       as dec format "->>,>>>,>>9.99"
field nr-sequencia                             like notaserv.nr-sequencia
field in-tipo-nota                                like notaserv.in-tipo-nota
field mm-referencia                          like fatgrmod.mm-referencia
field aa-referencia                             like fatgrmod.aa-referencia
field cd-forma-pagto-modu               like pro-pla.cd-forma-pagto
field cd-carteira-inteira                     like car-ide.cd-carteira-inteira
field in-classe-evento                      like evenfatu.in-classe-evento
field cd-grau-parent-mes-fat            like usuario.cd-grau-parentesco
field nr-fatura                                    like fatura.nr-fatura
field nr-proposta                               like propost.nr-proposta
field lg-cred-deb                               like evenfatu.lg-cred-deb
index tmp-cpc-valor-beneficiario-1 cd-contratante
cd-modalidade
nr-ter-adesao
nr-sequencia
cd-titular
cd-usuario
cd-pad-cob
cd-evento
cd-modulo
index tmp-cpc-valor-beneficiario-2 cd-contratante
cd-modalidade
nr-ter-adesao
nr-sequencia
nm-titular
cd-titular
cd-usuario
cd-pad-cob
cd-evento
cd-modulo
index tmp-cpc-valor-beneficiario-3 cd-contratante
cd-unidade
cd-modalidade
nr-ter-adesao
nr-sequencia
cd-titular
cd-usuario
cd-pad-cob
cd-evento
cd-modulo
index tmp-cpc-valor-beneficiario-4 cd-contratante
cd-unidade
cd-modalidade
nr-ter-adesao
nr-sequencia
nm-titular
cd-titular
cd-usuario
cd-pad-cob
cd-evento
cd-modulo
index tmp-cpc-valor-beneficiario-5 cd-contratante
cd-unidade
cd-modalidade
cd-contratante-origem
nr-ter-adesao
nr-sequencia
cd-titular
cd-usuario
cd-pad-cob
cd-evento
cd-modulo
index tmp-cpc-valor-beneficiario-6 cd-contratante
cd-unidade
cd-modalidade
cd-contratante-origem
nm-titular
cd-titular
nr-ter-adesao
nr-sequencia
cd-usuario
cd-pad-cob
cd-evento
cd-modulo
index tmp-cpc-valor-beneficiario-7 cd-contratante
cd-modalidade
nr-ter-adesao
mm-referencia
aa-referencia
nr-sequencia
cd-evento
cd-modulo
cd-usuario
index tmp-cpc-valor-beneficiario-8 nm-contratante
cd-contratante
cd-modalidade
nr-ter-adesao
nr-sequencia
cd-titular
cd-usuario
cd-pad-cob
cd-evento
cd-modulo
index tmp-cpc-valor-beneficiario-9 nm-contratante
cd-contratante
cd-modalidade
nr-ter-adesao
nr-sequencia
nm-titular
cd-titular
cd-usuario
cd-pad-cob
cd-evento
cd-modulo
index tmp-cpc-valor-beneficiario-10 cd-contratante
nr-titulo
cd-modalidade
nr-ter-adesao
nr-sequencia
cd-titular
cd-usuario
cd-pad-cob
cd-evento
cd-modulo
index tmp-cpc-valor-beneficiario-11 cd-contratante
nr-titulo
cd-modalidade
nr-ter-adesao
nr-sequencia
nm-titular
cd-titular
cd-usuario
cd-pad-cob
cd-evento
cd-modulo.

Definição campo a campo da tabela de entrada tmp-cpc-valor-beneficiario

• cd-modalidade – Modalidade do termo da nota de serviço;
• ds-modalidade – Descrição da modalidade do termo da nota de serviço;
• cd-contratante – Código do contratante da nota de serviço;
• nm-contratante – Nome do contratante da nota de serviço;
• cd-contratante-origem – Código do contratante origem da nota de serviço;
• nm-contratante-origem-aux – Nome do contratante origem da nota de serviço;
• nr-ter-adesao – Número do termo de adesão da nota de serviço;
• cd-plano – Código do plano do termo da nota de serviço;
• nm-plano – Descrição do plano do termo da nota de serviço;
• cd-tipo-plano – Código do tipo de plano do termo da nota de serviço;
• nm-tipo-plano – Descrição do tipo de plano do termo da nota de serviço;
• dt-referencia - Mês e ano de referência da nota de serviço;
• nr-titulo – Número do título gerado;
• dt-emissao – Data de emissão da nota de serviço;
• dt-vencimento - Data de vencimento da nota de serviço;
• vl-nota – Valor total da nota de serviço;
• cd-titular – Código do titular do beneficiário;
• nm-titular – Nome do titular do beneficiário;
• cd-usuario – Código do beneficiário;
• nm-usuario – Nome do beneficiário;
• cd-pad-cob – Padrão de cobertura do beneficiário;
• cd-unidade – Código da unidade da proposta;
• ds-unidade – Descrição da unidade da proposta;
• dt-inclusao – Data de inclusão do beneficiário no termo;
• gr-parentesco – Grau de parentesco do beneficiário;
• ds-parentesco – Descrição do grau de parentesco do beneficiário;
• nr-faixa-etaria – Número da faixa etária do beneficiário;
• ds-faixa – Descrição da faixa etária do beneficiário;
• cd-evento – Código do evento da nota;
• cd-modulo – Código do módulo da nota;
• qt-evemod – Quantidade do evento para o beneficiário (sempre igual a 1);
• vl-evemod – Valor do evento e módulo do beneficiário;
• dt-nascimento – Data de nascimento do beneficiário;
• vl-total – Valor acumulado do beneficiário por evento;
• nr-sequencia – Número da seqüência da nota;
• in-tipo-nota – Tipo da nota;
• mm-referencia – Mês de referência da nota;
• aa-referencia – Ano de referência da nota;
• cd-forma-pagto-modu – Código da forma de pagamento do módulo;
• cd-carteira-inteira – Código da carteirinha do beneficiário;
• in-classe-evento – Classe do evento da nota;
• cd-grau-parent-mes-fat – Grau de Parentesco do usuário da nota de serviço.
• nr-fatura – número da fatura.
• nr-proposta – número da proposta.
• lg-cred-deb – Log que indica se o evento é de debito ou crédito.

Tabela de entrada tmp-cpc-valor-evento

def temp-table tmp-valor-evento no-undo

field cd-modalidade                           like usuario.cd-modalidade
field cd-plano                                     like pla-sau.cd-plano
field cd-tipo-plano                              like ti-pl-sa.cd-tipo-plano
field nr-ter-adesao                             like usuario.nr-ter-adesao
field nr-sequencia                              like notaserv.nr-sequencia
field cd-evento                                   like evenfatu.cd-evento
field ds-evento                                   like evenfatu.ds-evento
field qt-evento                                    like fatueven.qt-evento
field vl-evento                                   as dec format "->>,>>>,>>9.99"
field in-classe-evento                       like evenfatu.in-classe-evento
index tmp-valor-evento                     is primary cd-modalidade
nr-ter-adesao
nr-sequencia
cd-evento.

Definição campo a campo da tabela de entrada tmp-cpc-valor-evento

• cd-modalidade – Código da Modalidade
• cd-plano - Código do Plano
• cd-tipo-plano – Código do Tipo do Plano
• nr-ter-adesao – Número do termo de adesão
• nr-sequencia – Seqüência da nota de serviço
• cd-evento – Código do evento
• ds-evento - Descrição do evento
• qt-evento - Quantidade do evento
• vl-evento - Valor do evento
• in-classe-evento – Classe do Evento

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

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

field lg-undo-retry                           as logical
field lg-tem-cpc                              as logical initial yes
field ds-mensagem-relatorio         as char format "x(75)".

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

• lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros acontecerem e NÃO se o processo foi concluído por completo.
• lg-tem-cpc – Variável que controla se deverá ser impresso o relatório mesmo com a CPC ativa. Se retornar SIM não imprime o relatório se retornar Não imprime.
• ds-mensagem-relatorio – Deve conter mensagem de erro ou qualquer outro tipo de mensagem.