Árvore de páginas

Versões comparadas

Chave

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

...

  • Dentro do programa fp0711j.p e fp0711j-indep.p, após criar as tabelas temporárias utilizadas pelas rotinas de valorização (nos procedimentos: pi-cria-tmp-rtvlinsu e pi-cria-tmp-rtvalori)
  • Dentro do programa fp0711j.p e fp0711j-indep.p, ao calcular a base do imposto.
  • Dentro do programa fp0711j.p e fp0711j-indep.p, após o Cálculo.
  • Dentro do programa fp0711j.p e fp0711j-indep.p, na leitura dos movimentos.
  • Dentro do programa fp0711j.p e fp0711j-indep.p, na rotina "gera-fatueven-e-nota".
  • Dentro do programa fp0711j.p, fp0711j-indep.p, dtvw0711j.p e dtvw0711j-indep.p após o calculo da taxa.
  • Nos programas fp0711j.p, fp0711j-indep.p, dtvw0711j.p e dtvw0711j-indep.p no início do processo.
  • Nos programas fp0711j.p, fp0711j-indep.p, dtvw0711j.p e dtvw0711j-indep.p antes de chamar as rotinas de valorização (rtvalori.p/rtvlinsu.p).
  • Nos programas fp0711j.p, fp0711j-indep.p, dtvw0711j.p e dtvw0711j-indep.p antes de verificar se o documento está liberado para faturamento.
  • Nos programas fp0711j.p, fp0711j-indep.p, dtvw0711j.p e dtvw0711j-indep.p antes de buscar a data da última autorização.

Ponto de Utilização

  • "ALT-TEMP-VALORI"
  • "CALC-BASE-IMP"
  • "APOS-CALCULO"
  • "CRIA-EVENT-TAXA" 
  • "LE-MOVIMENTO"
  • "APOS-CALC-TAXA"
  • "FIM-SELECAO"
  • "ANTES-TAXA"
  • "INICIO-PROCESSO"
  • "ANTES-VALORIZAR"
  • "ANT-VER-LIB-FAT"
  • "ANT-DT-ULT-AUT"

Include das definições das Include das definições das tabelas temporárias

  • cpc-fp0711j.i
  • cpc-fp0711j-indep.i
  • {rtp/rtvalori.i}
  • {rtp/rtvlinsu.i}

...

                           field dt-liberacao-inicial                                  as date
                           field dt-liberacao-final                                    as date
                           field lg-tipo-conta                                          as log
                           field lg-simula-par                                         as log
                           field  field cd-unidade-carteira                              like  like docrecon.cd-unidade-carteira
                         
 Field  field cd-carteira-usuario                                like docrecon.cd-carteira-usuario
                           field lg-guia-fechada                                     as logical
.

Definição campo a campo da tabela de entrada

    • in-evento-programa – Indica o evento, que pode ser ALTERA e APOS-CALCULO;
    • nm-ponto-chamada-cpc – Indica o ponto de chamada;
    • r-moviproc-mov-insu – Identificação do registro da moviproc ou mov-insu apontado;
    • in-entidade – Entidade que pertence a estrutura que está sendo calculada;
    • cd-imposto – Código do imposto que está sendo calculado;
    • cd-evento – Código do evento que está sendo calculado;
    • dt-vigencia – Data de vigência do imposto que está sendo calculada;
    • cd-unidade-grupo – Código da unidade do grupo do contratante que está sendo calculado;
    • cd-grupo-contratante – Grupo do contratante que está sendo calculado;
    • cd-compl-grupo-contratante – Código do complemento do grupo do contratante que está sendo calculado;
    • nr-insc-contratante – Número da inscrição do contratante que está sendo calulado;
    • vl-base-imp – Valor da base de cálculo do imposto que está sendo calculado;
    • tp-movimento – Tipo do Movimento;
    • r-docrecon – Valor do Recid da tabela Docrecon;
    • vl-cobranca – Valor de Cobrança;
    • rowid-unicamco – Valor do Rowid da tabela Unicamco;
    • dt-emissao – Data de emissão do relatório;
    • cd-modalidade - Código da modalidade;
    • cd-plano - Código do plano;
    • h-tmp-erro - handle da temporária de erros;
    • cc-erro - Controle de sequencia dos erros;
    • cd-contratante - Código do contratante;
    • pc-taxa - Percentual da taxa encontrado pelo sistema;
    • vl-taxa - Valor da taxa calculado pelo sistema.
    • dt-liberacao-inicial - Data de liberação inicial
    • dt-liberacao-final - Data de liberação final
    • lg-tipo-conta - Tipo da conta
    • lg-simula-par - Variável que indica se é simulação ou não.
    • cd-unidade-carteira - Código  código da unidade da carteira do beneficiário;
    • cd-carteira-usuario - Número número da carteira do beneficiário;
    • lg-guia-fechada - corresponde ao parâmetro de tela que indica se deve considerar apenas guias fechadas.


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

...

field lg-undo-retry                         as log
field ds-mensagem                       as  as char
field lg-continua                             as log
field vl-base-imp                           like  like fatueven.vl-evento
field vl-cobranca                        like      like fateveco.vl-evento
field cc-erro                                   as  as int
field pc-taxa                                    as dec
field vl-taxa                                as      as dec
field lg-next                                    as logical
field lg-calcula-taxa                       as  as logical initial yes
field lg-valorizar-movimento          as logical initial yes
field lg-altera-vl-calculo                   as as logical
field vl-calculo                            like      like moviproc.vl-auxiliar.

...


field lg-prestador-cooperado valida-guia-fechada             like preserv.lg-cooperado 
field cd-tipo-cob as logical initial yes
field lg-valida-libera-faturamento   as logical initial yes
field dt-base                             like moviproc.cd-tipo-cob
field in-atos-cooperativos             like evenfatu.in-atos-cooperativosas date
field cddt-ult-evento autoriz                               like evenfatu.cd-eventoas date
field lg-busca-dt-ult-autoriz           as logical initial yes.

def temp-table tmp2 no-undo

field lg-modulo           prestador-cooperado                    like evenfatu like preserv.lg-modulocooperado 
field lgcd-credtipo-deb cob                           like evenfatu like moviproc.lgcd-credtipo-debcob
field lgin-atos-destacado cooperativos                         like evenfatu.lg-destacadolike evenfatu.in-atos-cooperativos
field cd-especie evento                              like tiplespevenfatu.cd-especie-custoevento
field ctlg-codigo modulo                               like tipleven.ct-codigo
field sc-codigo  like evenfatu.lg-modulo
field lg-cred-deb                              like tipleven.sc-codigo
field ct-codigo-diferenca like evenfatu.lg-cred-deb
field lg-destacado                          like tiplevenlike evenfatu.ctlg-codigo-diferenca destacado
field sc-codigo-diferenca cd-especie                        like tipleven.sc-codigo-diferencafield ct-codigo-diferenca-neg       like tipleventiplesp.ctcd-codigoespecie-diferenca custo
field sc-codigo-diferenca-neg      like tipleven.sc-codigo-diferencafield vl-evento ct-codigo                               like fatueventipleven.vlct-eventocodigo
field qtsc-evento codigo                               like fatueven.qt-evento like tipleven.sc-codigo
field vlct-eventocodigo-sem-taxa diferenca              like fatueventipleven.vlct-codigo-eventodiferenca 
field nmsc-codigo-rotina diferenca              like tipleven.sc-codigo-diferenca

field ct-codigo-diferenca-neg       like tipleven.ct-codigo-diferenca 
field sc-codigo-diferenca-neg      like tipleven.sc-codigo-diferenca

field vl-evento                            as char format "x(30)"
field in-classe-rotina                    as int
field lg-dias-acima                       as logfield in-tipo-fatura                       like fatura.in-tipo-fatura 
field lg-fatura-relacionada          as log 
field nr-sequencia                      like fatueven.nrvl-sequencia evento
field pcqt-taxa  evento                                as declike fatueven.qt-evento
field vl-evento-sem-taxa  taxa                               as decfield lg-next   like fatueven.vl-evento
field nm-rotina                              as logicalchar format "x(30)"
field lgin-calculaclasse-taxa  rotina                    as logical initial yes.
index tmp2 int
field lg-prestador-cooperado dias-acima                       cdas log

field in-tipo-cob 
fatura                       like fatura.in-atostipo-cooperativos 
fatura 
field lg-fatura-relacionada          as log 
field nr-sequencia              cd-evento 
        like fatueven.nr-sequencia 
field pc-taxa            lg-dias-acima 
                  in-tipo-fatura 
index tmp2-2 lg-prestador-cooperado 
 as dec
field vl-taxa                        lg-dias-acima 
          as dec

field lg-next                      in-tipo-fatura 
         as logical
field lg-calcula-taxa                  lg-fatura-relacionada  as logical initial yes.
index tmp2 lg-3 cdprestador-evento cooperado 

                      lgcd-prestadortipo-cooperado cob 
                      lgin-diasatos-acima cooperativos 
                      in-tipo-fatura cd-evento 
                      lg-fatura-relacionadadias-acima 
                  in-tipo-fatura 
index tmp2-2 lg-prestador-cooperado 
                      lg-dias-acima 
                      in-tipo-fatura 
                      lg-fatura-relacionada 
index tmp2-3 cd-evento 
                      lg-prestador-cooperado 
                      lg-dias-acima 
                      in-tipo-fatura 
                      lg-fatura-relacionada.


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

...

    • in-evento-programa - Indica o evento que originou a chamada da rotina (INCLUI ou ALTERA).
    • lg-mensagem-na-tela – Indica se as mensagens de erro devem ser dispostas na tela ou não. Caso o indicador for não o campo da tabela de saída ds-mensagem-relatorio deve ser preenchido. (não obrigatório).
    • in-tipo-valori - Indica se o movimento e um "Insumo" ou "Procedimento".
    • lg-sem-cobertura - Indica se o movimento possui ou não cobertura.
    • lg-preco-padrao - preço Padrao
    • nr-rowid-precproc - rowid preço do insumo
    • nr-recid-precproc - recid do peço do insumo
    • in-moeda – Indica a moeda do procedimento ou insumo
    • cd-tab-preco-proc - tabela de preço do insumo
    • cd-tipo-insumo – Código do tipo do insumo se a variável in-tipo-movimento for igual a "I".
    • cd-insumo – Código do insumo se a variável in-tipo-movimento for igual a "I".
    • qt-insumo - Quantidade de procedimento/insumo executado/utilizado
    • dt-base-valor – Data base do movimento
    • qt-faixa-participacao - Faixa de participação
    • cd-transacao - Codigo da transação
    • dt-anoref - Ano na qual foi digitado o movimento.
    • nr-perref - Numero do período de referencia na qual foi digitado o movimento.
    • cd-unidade-prestador-exec – Código da unidade do prestador executante.
    • cd-prestador-exec – Código do prestador executante.
    • cd-esp-prest-executante – Código da especialidade do prestador executante.
    • cd-tipo-vinculo-exec - Codigo do tipo de vinculo do prestador executante.
    • nr-rowid-proposta - rowid da proposta, para find na tabela propost. (proposta do beneficiário da base).
    • nr-rowid-usuario - rowid do usuário, para find na tabela usuario. (usuário da base).
    • nr-rowid-unicamco - rowid da unidade do beneficiário em intercâmbio, para find na tabela unicamco.
    • nr-rowid-out-uni - rowid dos usuário de outras unidade, para find na tabela out-uni. (usuário em intercâmbio).
    • lg-guia – Indica se o documento teve origem em uma guia de atendimento.
    • cd-modulo – Código do módulo de cobertura.
    • cd-local-atendimento – Código do local de atendimento.
    • cd-clinica – Código da Clínica.
    • cd-cid – Código do CID.

Temp-table tmp-cpc-fp0711j-saida

    • ).
    • lg-guia – Indica se o documento teve origem em uma guia de atendimento.
    • cd-modulo – Código do módulo de cobertura.
    • cd-local-atendimento – Código do local de atendimento.
    • cd-clinica – Código da Clínica.
    • cd-cid – Código do CID.

Temp-table tmp-cpc-fp0711j-saida

    • lg-undo-retry – Indica se ocorreu erro durante processamento da cpc.
    • ds-mensagem – Mensagem de retorno da cpc.
    • lg-continua – Indica se processo deve continuar ou não.
    • vl-base-imp – Valor da base de cálculo do imposto que está sendo calculado pela cpc
    • vl-cobranca – Valor de Cobrança.
    • cc-erro - controle de sequencia dos erros.
    • pc-taxa - Percentual de taxa que deve ser considerado pelo sistema.
    • vl-taxa - Valor de taxa que deve ser considerado pelo sistema.
    • lg-next - Indica
    • lg-undo-retry – Indica se ocorreu erro durante processamento da cpc.
    • ds-mensagem – Mensagem de retorno da cpc.
    • lg-continua – Indica se processo deve continuar ou não.
    • vllg-calcula-base-imp – Valor da base de cálculo do imposto que está sendo calculado pela cpc
    • vl-cobranca – Valor de Cobrança.
    • cc-erro - controle de sequencia dos erros.
    • pc-taxa - Percentual de taxa que deve ser considerado pelo sistema.
    • vl-taxa - Valor de taxa que deve ser considerado pelo sistema.
    • lg-next - Indica se processo deve continuar ou não.
    • lg-calcula-taxa - Indica se calcula taxa ou não
    • lg-valorizar-movimento - indica se deve valorizar o movimento;
    • lg-altera-vl-calculo - indica se deve sobrepor o valor calculado pelo valor retornado pela CPC;
    • taxa - Indica se calcula taxa ou não
    • lg-valorizar-movimento - indica se deve valorizar o movimento;
    • lg-altera-vl-calculo - indica se deve sobrepor o valor calculado pelo valor retornado pela CPC;
    • vl-calculo - valor calculado na CPC;
    • lg-valida-guia-fechada - indica se deve validar se apenas as guias fechadas devem ser consideradas;
    • lg-valida-libera-faturamento - indica se deve validar se o documento está liberado para faturamento;
    • dt-base - data base utilizada no cálculo da data da última autorização;
    • dt-ult-autoriz - data da última autorização;
    • lg-busca-dt-ult-autoriz - indica se deve buscar a data da última autorizaçãovl-calculo - valor calculado na CPC.

Temp-table tmp2

    • lg-prestador-cooperado – Indica prestador cooperado.
    • cd-tipo-cob – Tipo de cobrança.
    • in-atos-cooperativos – Tipos de atos credenciados 1-Principal/2-Auxiliar/3-Não Credenciado.
    • cd-evento – Código do evento.
    • lg-modulo – Evento será calculado por módulo.
    • lg-cred-deb – Evento será debito ou credito.
    • lg-destacado – Imprime grau de parentesco.
    • cd-especie – Especie para documentos de custo operacional.
    • ct-codigo – Conta contabil.
    • sc-codigo – Numero do centro do custo.
    • ct-codigo-diferenca - Numero da conta contabil para diferenca.
    • sc-codigo-diferenca - Numero da sub-conta contabil para diferenca.
    • ct-codigo-diferenca-neg - Numero da conta contabil para diferenca negativa.
    • sc-codigo-diferenca-neg - Numero da sub-conta contabil para diferenca negativa.
    • vl-evento – Valor do evento.
    • qt-evento – Quantidade do evento.
    • vl-evento-sem-taxa – Valor do evento sem taxa.
    • nm-rotina – Nome da rotina de calculo.
    • in-classe-rotina – Tipo de classe da rotina de calculo.
    • lg-dias-acima – Prazo das notas de serviço.

...