R12供应商地点层付款方法SQL

--R12供应商地点层付款方法SQL:

select ipmv.payment_method_name,
ipmv.payment_method_code,
'N' primary_flag,
'Y' global
from iby_applicable_pmt_mthds aipmv,
iby_payment_methods_vl ipmv
where aipmv.payment_method_code = ipmv.payment_method_code
and aipmv.payment_flow = 'DISBURSEMENTS'
and nvl(ipmv.inactive_date, trunc(sysdate + 1)) > trunc(sysdate)
and aipmv.application_id = 200
and aipmv.applicable_type_code = 'PAYEE'
and aipmv.applicable_value_to is null
and not exists
(select 1
from iby_ext_party_pmt_mthds iepp,
iby_external_payees_all iepa
where aipmv.payment_method_code = iepp.payment_method_code
and aipmv.payment_flow = iepp.payment_flow
and iepp.payment_function = 'PAYABLES_DISB'
  and iepp.ext_pmt_party_id = iepa.ext_payee_id

/*and iepa.org_id = &p_org_id
  and iepa.supplier_site_id = &p_vendor_site_id*/)
union
select ipmv.payment_method_name,
iepp.payment_method_code,
iepp.primary_flag,
'N' global
from iby_payment_methods_vl ipmv,
iby_ext_party_pmt_mthds iepp,
iby_external_payees_all iepa
where ipmv.payment_method_code = iepp.payment_method_code(+)
and iepp.payment_flow = 'DISBURSEMENTS'
and nvl(ipmv.inactive_date, trunc(sysdate + 1)) > trunc(sysdate)
and iepp.payment_function = 'PAYABLES_DISB'
and iepp.ext_pmt_party_id = iepa.ext_payee_id

/*and iepa.org_id = &p_org_id
  and iepa.supplier_site_id = &p_vendor_site_id;*/