cpc-fp0610w1.p1

Rotina que passa a tabela temporária de valores por beneficiário para que o cliente possa tratar as informações como desejar. Antigo ponto 3 do fp0610wx.p.
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 que retorna a faixa etária do beneficiário.
Ponto de Utilização
"EXP-VAL-BENEF"
Include das definições das tabelas temporárias
cpc-fp0610w1.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-fp0610w1-entrada
def temp-table tmp-cpc-fp0610w1-entrada no-undo
field in-evento-programa as char format "x(10)"
field nm-ponto-chamada-cpc as char format "x(15)".
Definição campo a campo da tabela de entrada tmp-cpc-fp0610w1-entrada
in-evento-programa – Evento do programa que chama a cpc-fp0610w.p. O valor desse campo pode ser:
"EXP-VL-BEN".
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa fp0610w.i1:
"EXP-VAL-BENEF"
Tabela de entrada tmp-cpc-valor-beneficiario
def temp-table tmp-cpc-valor-beneficiario
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 like notaserv.vl-total
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-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 like fatueven.vl-evento
field dt-nascimento like usuario.dt-nascimento
field vl-total like notaserv.vl-total
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-valor-beneficiario-1 cd-modalidade
nr-ter-adesao
nr-sequencia
cd-titular
cd-usuario
cd-pad-cob
cd-evento
cd-modulo
index tmp-valor-beneficiario-2 cd-modalidade
nr-ter-adesao
nr-sequencia
nm-titular
cd-usuario
cd-pad-cob
cd-evento
cd-modulo
index tmp-valor-beneficiario-3 cd-unidade
cd-modalidade
nr-ter-adesao
nr-sequencia
cd-titular
cd-usuario
cd-pad-cob
cd-evento
cd-modulo
index tmp-valor-beneficiario-4 cd-unidade
cd-modalidade
nr-ter-adesao
nr-sequencia
nm-titular
cd-usuario
cd-pad-cob
cd-evento
cd-modulo
index tmp-valor-beneficiario-5 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-valor-beneficiario-6 cd-unidade
cd-modalidade
cd-contratante-origem
nm-titular
nr-ter-adesao
nr-sequencia
cd-usuario
cd-pad-cob
cd-evento
cd-modulo
index tmp-valor-beneficiario-7 cd-modalidade
nr-ter-adesao
mm-referencia
aa-referencia
nr-sequencia
cd-evento
cd-modulo
cd-usuario.
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 saída tmp-cpc-fp0610w1-saida
def temp-table tmp-cpc-fp0610w1-saida no-undo
field lg-undo-retry as logical
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.
ds-mensagem-relatorio – Deve conter mensagem de erro ou qualquer outro tipo de mensagem.