CPC-BOSAU-PROVIDER-PAYMENT

• Cálculo do pagamento médico HTML (providerhpp.providerPayment).

Localização

• Dentro do hpp/bosau/bosau-provider-payment executa a api responsável pelo cálculo do pagamento.

...

Tabela de entrada tmp-cpc-boprovider-pay-entrada
def temp-table tmp-cpc-boprovider-pay-entrada no-undo
      field nm-ponto-chamada-cpc as char format "x(15)"
     field in-evento-programa as char format "x(20)"
     field cd-unidade like preserv.cd-unidade
     field cd-prestador like preserv.cd-prestador
     field cd-fornecedor like preserv.cd-contratante
     field dt-anoref like perimovi.dt-anoref
     field nr-perref like perimovi.nr-perref
     field vl-base-cofins like titupres.vl-base-inss-movto
     field vl-base-csll like titupres.vl-base-inss-movto
     field vl-base-pis-pasep like titupres.vl-base-inss-movto
     field dt-producao as date
     field cd-unidade-operadora like preserv.cd-unidade
     field vl-base-imp-unico like titupres.vl-base-inss-movto
     field cd-unidade-sel like preserv.cd-unidade
     field cd-tipo-medicina-ini like titupres.cd-tipo-medicina
     field cd-tipo-medicina-fim like titupres.cd-tipo-medicina
     field aa-fatura-ini like moviproc.aa-fatura
     field aa-fatura-fim like moviproc.aa-fatura
     field cd-serie-ini like moviproc.cd-serie-nf
     field cd-serie-fim like moviproc.cd-serie-nf
     field nr-fatura-ini like moviproc.cod-fatur-ap
     field nr-fatura-fim like moviproc.cod-fatur-ap
     field cd-local-ini like locaaten.cd-local-atendimento
     field cd-local-fim like locaaten.cd-local-atendimento
     field lg-transacao as log
     field lg-procedimento as log
     field lg-insumo as log
     field lg-periodo as log
     field in-liberado-1 as char format "x(1)"
     field in-liberado-2 as char format "x(1)"
     field cd-transacao-ini like moviproc.cd-transacao
     field cd-transacao-fim like moviproc.cd-transacao
     field cd-unidade-principal-ini like preserv.cd-unidade
     field cd-unidade-principal-fim like preserv.cd-unidade
     field cd-prestador-principal-ini like preserv.cd-prestador
     field cd-prestador-principal-fim like preserv.cd-prestador
     field in-selec-benef as char
     field lg-local as log
     field in-calculo-pagamento as char format "x(1)"
     field in-tipo-calculo as int
     field cd-tipo-insumo like insumos.cd-tipo-insumo
     field cd-proc-insumo like insumos.cd-insumo
     field cd-pacote like paproins.cd-pacote
     field dt-realizacao like moviproc.dt-realizacao
     field dt-vencimento like moviproc.dt-realizacao
     field vl-producao like titupres.vl-producao-movto
     field lg-per-anterior as log
     field ds-processo-aux like pagapres.ds-processo
     field in-tipo-fatura as integer
     field cd-contratante like preserv.cd-contratante
     field lg-pagamento-unificado as log initial false
     field h-tmp-prestador as handle
     field h-tmpProviderpayment as handle.

...

def temp-table tmp-cpc-boprovider-pay-saida no-undo
     field lg-undo-retry as log
     field ds-mensagem-relatorio as char format "x(75)"
     field lg-calcula as log
     field lg-calcula-cofins as log
     field lg-calcula-pis-pasep as log
     field lg-calcula-csll as log
     field lg-calcula-unico as log
     field lg-calculo-especifico as log
     field lg-valor-pacote as log
     field nm-arquivo-imp as char
     field cd-evento-imp like evenfatu.cd-evento
     field lg-considera-prest-imp as log
     field lg-gera-evento-deb-imp as log.

...