CPC-FP0711J.P

Localização

• Dentro do programa fp0711j.p e fp0711j-indep.p, após criar as Rotina utilizada no cálculo do faturamento de outras unidades para alterar dados das 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, rtvlinsu.p). Juntamente com a tabela de entrada da CPC, são passadas as tabelas temporária da valorização (procedimento ou insumo) e a tmp2 para que o cliente possa tratar as informações como desejar, retornando quatro tabelas temporárias com as as alterações realizadas .Se a CPC estiver ativa, vale a regra da CPC.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
• Será utilizado para esta CPC apenas um registro na tabela temporária de saída.

Localização

• 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, 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, ao calcular a base do imposto.
• Dentro do programa fp0711j.p após o Cálculo.
• Dentro do programa fp0711j.p antes do for each tmp2.
• Dentro do programa fp0711j.p na rotina "acessa-evento".
• Dentro do programa fp0711j.p na rotina "acessa-evento-tx-adm".

Ponto de Utilização

• p e fp0711j-indep.p, na leitura dos movimentos.
• Dentro do programa fp0711j.p e fp0711j-indep.p, na rotina "gera-fatueven-e-nota".

Ponto de Utilização

• ""ALT-TEMP-VALORI"
• "CALC-BASE-IMP"
• "APOS-CALCULO"
• "CRIA-EVENT-TAXA" 
• "INI-ACESSA-EVEN""INI-ACES-EVENTX"LE-MOVIMENTO"

Include das definições das tabelas temporárias

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

...

Tabelas de entrada e saída

...

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

field in-evento-programa programa                                as char format "x(10)"
field nm-ponto-chamada-cpc as cpc                         as char format "x(15)"
field r-moviproc-mov-insu insu                              as recid
field in-entidade entidade                                              like evenimp.in-entidade
field cd-imposto imposto                                              like evenimp.cd-imposto
field cd-evento like evenimp.cd-evento
field dt-vigencia evento                                                like evenimp.cd-evento
field dt-vigencia                                              like evenimp.dt-vigencia-ini
field cd-unidade-grupo like evengrimp.cd-unidade-grupo                                   like evengrimp.cd-unidade-grupo
field cd-grupo-contratante contratante                              like evengrimp.cd-grupo-contratante
field cd-compl-grupo-contrat contrat                          like evengrimp.cd-compl-grupo-contrat
field nr-insc-contratante like evenctrimp.nr-insc-contratante                                  like evenctrimp.nr-insc-contratante
field vl-base-imp like imp                                             like fatueven.vl-evento
field tp-movimento as char format "x(1)"
field r-docrecon as recid
field vl-cobranca like fateveco.vl-evento
field rowid-unicamco as rowid
field dt-emissao as date format 99/99/9999movimento                                         as char format "x(1)"
field r-docrecon                                     

...

        as recid
field vl-cobranca                   

...

...

 like fateveco.vl-evento
field rowid-unicamco                           

...

          as rowid
field dt-emissao                                             as date format 99/99/9999

    field cc-erro as int
                            field cd-contratante like contrat.cd-contratante.

Definição campo a campo da tabela de entrada

• in-evento-programa – Indica o evento, que pode ser ALT-TEMP-VALORI e CALC-BASE-IMP
• nm-ponto-chamada-cpc – Indica o ponto de chamada, que pode ser ALT-TEMP-VALORI e CALC-BASE-IMP
• 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 erro
• cc-erro - controle de sequencia dos erros
• cd-contratante - código do contratante

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

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

like tmp-rtvalori-entrada.

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

like tmp-rtvlinsu-entrada.

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

field cd-modalidade                                       like modalid.cd-modalidade
                            field cd-plano                                                like pla-sau.cd-plano
                            field cd-tipo-plano                                         like ti-pl-sa.cd-tipo-plano
                            field h-tmp-erro                                             as handle
                            field cc-erro                                                  as int
                            field cd-contratante                                       like contrat.cd-contratante.

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.

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

def temp-table tmp-cpc-rtvalori-saida no-undo like tmp-rtvalori-entrada.

def temp-table tmp-cpc-rtvlinsu-saida no-undo like tmp-rtvlinsu-entrada.

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

field lg-undo-retry                        as log
field ds-mensagem                     as char
field lg-continua                           as log
field vl-base-imp                         like fatueven.vl-evento
field vl-cobranca                         like fateveco.vl-evento

field cc-erro                                 as int.

def shared temp-table tmp2 no-undo

field lg-prestador-cooperado        like preserv.lg-cooperado 
field cd-tipo-cob                            like moviproc.cd-tipo-cob
field in-atos-cooperativos             like evenfatu.in-atos-cooperativos
field cd-evento                              like evenfatu.cd-evento
field lg-modulo                              like evenfatu.lg-modulo
field lg-cred-deb                           like evenfatu.lg-cred-deb
field lg-destacado                         like evenfatu.lg-destacado
field cd-especie                            like tiplesp.cd-especie-custo
field ct-codigo         field lg-undo-retry                        as loglike tipleven.ct-codigo
field ds-mensagem sc-codigo                             as char like tipleven.sc-codigo
field lgct-codigo-continua diferenca              like tipleven.ct-codigo-diferenca 
field sc-codigo-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 log
field vl-base-imp                         like fatueven.vl-evento
field vl-cobranca                         like fatevecofatueven.vl-evento
field ccqt-erro evento                                 as int.

def shared temp-table tmp2 no-undo

field lg-prestador-cooperado        like preserv.lg-cooperado
field cd-tipo-cob               like fatueven.qt-evento
field vl-evento-sem-taxa              like moviprocfatueven.cdvl-tipo-cobevento
field in-atos-cooperativos nm-rotina                   like evenfatu.in-atos-cooperativos
field cd-evento            as char format "x(30)"
field in-classe-rotina                    like evenfatu.cd-evento as int
field lg-dias-modulo     acima                          like evenfatu.lg-moduloas log

field lgin-credtipo-deb fatura                            like evenfatu.lg-cred-deb like fatura.in-tipo-fatura 
field lg-fatura-destacado relacionada          as log 
field nr-sequencia                      like evenfatu.lg-destacado
field cd-especie         fatueven.nr-sequencia 
index tmp2 lg-prestador-cooperado 
                   like tiplesp. cd-especietipo-custocob 
field ct-codigo                   in-atos-cooperativos 
                  like tipleven.ct-codigo
field sc-codigo cd-evento 
                  lg-dias-acima 
                   like tipleven.sc-codigo
field ct-codigo-diferenca in-tipo-fatura 
index tmp2-2 lg-prestador-cooperado 
             like tipleven.ct-codigo-diferenca
field sc-codigo-diferenca              like tipleven.sc-codigo-diferenca
field vl-evento lg-dias-acima 
                      in-tipo-fatura 
        like fatueven.vl-evento
field qt-evento                   lg-fatura-relacionada 
index tmp2-3 cd-evento 
            like fatueven.qt-evento
field vl-evento-sem-taxa              like fatueven.vl-evento
field nm-rotina lg-prestador-cooperado 
                      lg-dias-acima 
       as char format "x(30)"
field in-classe-rotina                    as int
field lg-dias-acima in-tipo-fatura 
                      as log
index tmp2 lg-prestador-cooperado
cd-tipo-cob
in-atos-cooperativos
cd-evento
lg-dias-acimafatura-relacionada.

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

Temp-table tmp-cpc-rtvalori-saida

• • in-evento-programa - Indica o evento que originou a chamada da rotina (INCLUI ou ALTERA).
  • in-tipo-valori - Indica se o movimento e um "Insumo" ou "Procedimento".
  • 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).
  • lg-sem-cobertura – Indica se o movimento possui ou não cobertura.
  • lg-urgencia - Indica se o movimento foi executado em urgência.
  • lg-anestesista – Indica se o procedimento/insumo foi executado por um anestesiologista.
  • nr-rowid-precproc – Rowid da tabela de preço do rpoecediemnto
  • nr-recid-precproc – Recid da tabela de preço do procediemnto
  • in-moeda - Indica a meda do procedimento ou insumo
  • in-nivel-prestador - Indica o nível do prestador (Principal (01), Auxiliar (02), Demais...).
  • cd-tab-preco-proc- Tabela de preço do procedimento
  • cd-porte-anestesico- Indica o porte anestésico do procedimetno
  • cd-via-acesso – Indica a via de acesso do procedimento
  • cd-esp-amb – Indica a especialidade dos procedimentos
  • cd-grupo-proc-amb- indica o grupo de procedimentos
  • cd-procedimento – indica o procedimento
  • dv-procedimento – Inidca o digito verificador do procedimento
  • qt-procedimento – Quantidade de procedimento/insumo executado/utilizado.
  • qt-repasse – Quantidade de vezes que paga a tabela medica ao prestador.
  • dt-base-valor – Data base do procedimento
  • qt-faixa-participacao – Faixa de participação do procedimento
  • 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.
  • 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.
  • hr-realizacao – Hora de realização do movimento.

Temp-table tmp-cpc-rtvlinsu-saida

• • 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-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.

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
  • 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
  •  Numero da conta contabil para diferenca negativa.
  • sc-codigo-diferenca-neg -
  Numero
  •  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.

Tabela de entrada tmp-cpc-fp0711j-indep-entrada

               def temp-table tmp-cpc-fp0711j-indep-entrada no-undo
                    field nm-ponto-chamada-cpc as cpc                   as char format "x(15)"
                    field r-moviproc-mov-insu as recid
-insu                        as recid
                    field tp-movimento                                    field tp-movimento as  as char format "x(1)".

Definição campo a campo da tabela de entrada

• • nm-ponto-chamada-cpc – Indica o ponto de chamada
  • r-moviproc-mov-insu - id do registro da tabela mov-insu
  • tp-movimento - tipo de movimento

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

               def temp-table tmp-cpc-fp0711j-indep-saida no-undo
                    field lg-undo-retry retry                              as log
                    field ds-mensagem as mensagem                           as char
                    field lg-continua continua                                as log.

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

• • 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.