CPC-FP0610W2.p
Produto: | Gestão de Planos de Saúde |
Módulo: | Todos |
Versão: | 12.x.x |
Assuntos: | 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.