cpc-fp0711j.p0

Rotina utilizada no cálculo do faturamento de outras unidades para alterar dados das tabelas temporárias utilizadas pelas rotinas de valorização (rtvalori.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
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.
Ponto de Utilização
"ALT-TEMP-VALORI"
"CALC-BASE-IMP"
"APOS-CALCULO"
"CRIA-EVENT-TAXA"
Include das definições das tabelas temporárias
cpc-fp0711j.i
{rtp/rtvalori.i}
{rtp/rtvlinsu.i}
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-fp0711j-entrada
def temp-table tmp-cpc-fp0711j-entrada no-undo
field in-evento-programa as char format "x(10)"
field nm-ponto-chamada-cpc as char format "x(15)"
field r-moviproc-mov-insu as recid
field in-entidade like evenimp.in-entidade
field cd-imposto like evenimp.cd-imposto
field cd-evento like evenimp.cd-evento
field dt-vigencia like evenimp.dt-vigencia-ini
field cd-unidade-grupo like evengrimp.cd-unidade-grupo
field cd-grupo-contratante like evengrimp.cd-grupo-contratante
field cd-compl-grupo-contrat like evengrimp.cd-compl-grupo-contrat
field nr-insc-contratante like evenctrimp.nr-insc-contratante
field vl-base-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/9999.
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.
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.
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 like tipleven.ct-codigo
field sc-codigo like tipleven.sc-codigo
field ct-codigo-diferenca like tipleven.ct-codigo-diferenca
field sc-codigo-diferenca like tipleven.sc-codigo-diferenca
field vl-evento like fatueven.vl-evento
field qt-evento like fatueven.qt-evento
field vl-evento-sem-taxa like fatueven.vl-evento
field nm-rotina as char format "x(30)"
field in-classe-rotina as int
field lg-dias-acima as log
index tmp2 lg-prestador-cooperado
cd-tipo-cob
in-atos-cooperativos
cd-evento
lg-dias-acima.
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.
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.
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.