select
x.ledger
,x.operating_unit
,x.c_hold_type hold_type
,x.c_nls_hold_code hold_name
,x.c_hold_code hold_code
,x.c_nls_hold_desc "Hold Description"
,x.c_hold_reason hold_reason
,x.c_hold_date hold_date
,decode(x.c_held_by,5,(select alc5.displayed_field from ap_lookup_codes alc5 where alc5.lookup_type(+)='NLS TRANSLATION' and alc5.lookup_code(+)='SYSTEM'),xxen_util.user_name(x.c_held_by)) held_by
,x.c_postable "Accounting Allowed"
,x.c_batch_name batch_name
,x.c_vendor_name trading_partner
,x.c_vendor_site site
,x.c_invoice_num invoice_number
,(select poh.segment1
from po_line_locations_all plla, po_headers_all poh
where plla.line_location_id=x.c_hold_line_location_id and plla.po_header_id=poh.po_header_id
) po_number
,(select pol.line_num
from po_line_locations_all plla, po_lines_all pol
where plla.line_location_id=x.c_hold_line_location_id and plla.po_line_id=pol.po_line_id
) po_line_number
,(select listagg(ail.line_number,', ') within group (order by ail.line_number)
from ap_invoice_lines ail
where ail.invoice_id=x.c_invoice_id and ail.po_line_location_id=x.c_hold_line_location_id
) invoice_line_number
,to_char(x.c_invoice_date,'fmMonth YYYY') invoice_month
,x.c_invoice_date invoice_date
,x.c_original_amount "Original Amount (Func Curr)"
,x.c_amount_remaining "Amount Remaining (Func Curr)"
,x.c_description description
,trunc(x.c_inv_creation_date) invoice_creation_date
,trunc(x.payment_date) payment_date
,x.invoice_pay_group
,x.dispute_reason
,(select distinct listagg(description,', ') within group (order by description) description
from
(
select distinct
aid.invoice_id
, ah.hold_lookup_code
, ap_utilities_pkg.get_charge_account(aid.dist_code_combination_id,gls.chart_of_accounts_id,'APXINROH') description
from
ap_invoice_distributions aid
, gl_sets_of_books gls
, ap_holds ah
where
ah.hold_lookup_code = 'DIST ACCT INVALID'
and ah.release_lookup_code is null
and aid.invoice_id = ah.invoice_id
and gls.set_of_books_id = aid.set_of_books_id
and (
exists
(select 'x'
from gl_code_combinations c
where aid.dist_code_combination_id = c.code_combination_id (+)
and ( c.code_combination_id is null
or c.detail_posting_allowed_flag = 'N'
or trunc(c.start_date_active) > aid.accounting_date
or trunc(c.end_date_active) < aid.accounting_date
or c.template_id is not null
or c.enabled_flag <> 'Y'
or c.summary_flag <>'N'
))
or
(aid.dist_code_combination_id = -1)
)
) d
where
d.invoice_id = x.c_invoice_id
and d.hold_lookup_code = x.c_hold_code
) invalid_account,
to_char(x.c_invoice_date,'YYYY/MM') || ' - ' || to_char(x.c_invoice_date,'fmMonth YYYY') invoice_month_label
from
(
select -- invoices on hold
gsob.name ledger,
haou.name operating_unit,
hp.party_name c_vendor_name,
inv1.party_id c_party_id,
inv1.vendor_id c_vendor_id,
vs.vendor_site_code c_vendor_site,
decode(h.hold_lookup_code, null,:c_nls_na, h.hold_lookup_code) c_hold_code,
decode(h.hold_lookup_code, null,:c_nls_na, alc.displayed_field) c_nls_hold_code,
decode(h.hold_lookup_code, null,:c_nls_na, alc.description) c_nls_hold_desc,
decode(ahc.postable_flag,'Y',:c_nls_yes,:c_nls_no) c_postable,
inv1.invoice_date c_invoice_date,
b.batch_name c_batch_name,
inv1.invoice_id c_invoice_id,
inv1.invoice_num c_invoice_num,
h.line_location_id c_hold_line_location_id,
h.hold_reason c_hold_reason,
h.hold_date c_hold_date,
h.held_by c_held_by,
decode(inv1.invoice_currency_code, gsob.currency_code, inv1.invoice_amount, inv1.base_amount) c_original_amount,
decode(inv1.invoice_currency_code,
gsob.currency_code, inv1.invoice_amount,
inv1.base_amount) -
decode(inv1.payment_currency_code,
gsob.currency_code,
nvl(inv1.amount_paid,0) + nvl(discount_amount_taken,0),
decode(f.minimum_accountable_unit,
null, round(((decode(inv1.payment_cross_rate_type,
'EMU FIXED', 1/inv1.payment_cross_rate,
inv1.exchange_rate)) *
nvl(inv1.amount_paid,0)),
f.precision),
round(((decode(inv1.payment_cross_rate_type,
'EMU FIXED', 1/inv1.payment_cross_rate,
inv1.exchange_rate)) * nvl(inv1.amount_paid,0)) /
f.minimum_accountable_unit) *
f.minimum_accountable_unit) +
decode(f.minimum_accountable_unit,
null, round(((decode(inv1.payment_cross_rate_type,
'EMU FIXED', 1/inv1.payment_cross_rate,
inv1.exchange_rate)) *
nvl(inv1.discount_amount_taken,0)),
f.precision),
round(((decode(inv1.payment_cross_rate_type,
'EMU FIXED', 1/inv1.payment_cross_rate,
inv1.exchange_rate)) *
nvl(inv1.discount_amount_taken,0)) /
f.minimum_accountable_unit) *
f.minimum_accountable_unit))
c_amount_remaining,
inv1.description c_description,
'Invoice Hold' c_hold_type,
inv1.creation_date c_inv_creation_date,
inv1.pay_group_lookup_code invoice_pay_group,
inv1.dispute_reason,
(select
max(aca.check_date)
from
ap_invoice_payments_all aipa,
ap_checks_all aca
where
aipa.check_id = aca.check_id and
aca.void_date is null and
aca.stopped_date is null and
aipa.invoice_id = inv1.invoice_id
) payment_date
from
gl_sets_of_books gsob,
hr_all_organization_units haou,
hz_parties hp,
ap_supplier_sites vs,
ap_invoices inv1,
ap_batches_all b,
ap_payment_schedules s,
ap_holds h,
ap_hold_codes ahc,
ap_lookup_codes alc,
fnd_currencies_vl f
where
2=2
and hp.party_id = inv1.party_id
and gsob.set_of_books_id = inv1.set_of_books_id
and haou.organization_id = inv1.org_id
and vs.vendor_id (+) = inv1.vendor_id
and vs.vendor_site_id (+) = inv1.vendor_site_id
and h.invoice_id = inv1.invoice_id
and b.batch_id(+) = inv1.batch_id
and s.invoice_id(+) = inv1.invoice_id
and h.release_lookup_code is null
and f.currency_code = gsob.currency_code
and alc.lookup_type = 'HOLD CODE'
and alc.lookup_code = h.hold_lookup_code
and ahc.hold_lookup_code = h.hold_lookup_code
group by
gsob.name,
haou.name,
h.hold_lookup_code,
alc.displayed_field,
alc.description,
ahc.postable_flag,
hp.party_name,
inv1.party_id,
inv1.vendor_id,
vs.vendor_site_code,
inv1.invoice_date,
inv1.invoice_id,
b.batch_name,
inv1.invoice_num,
h.line_location_id,
h.hold_reason,
h.hold_date,
h.held_by,
decode(inv1.invoice_currency_code, gsob.currency_code, inv1.invoice_amount, inv1.base_amount),
decode(inv1.invoice_currency_code,
gsob.currency_code, inv1.invoice_amount,
inv1.base_amount) -
decode(inv1.payment_currency_code,
gsob.currency_code,
nvl(inv1.amount_paid,0) + nvl(discount_amount_taken,0),
decode(f.minimum_accountable_unit,
null, round(((decode(inv1.payment_cross_rate_type,
'EMU FIXED', 1/inv1.payment_cross_rate,
inv1.exchange_rate)) *
nvl(inv1.amount_paid,0)),
f.precision),
round(((decode(inv1.payment_cross_rate_type,
'EMU FIXED', 1/inv1.payment_cross_rate,
inv1.exchange_rate)) * nvl(inv1.amount_paid,0)) /
f.minimum_accountable_unit) *
f.minimum_accountable_unit) +
decode(f.minimum_accountable_unit,
null, round(((decode(inv1.payment_cross_rate_type,
'EMU FIXED', 1/inv1.payment_cross_rate,
inv1.exchange_rate)) *
nvl(inv1.discount_amount_taken,0)),
f.precision),
round(((decode(inv1.payment_cross_rate_type,
'EMU FIXED', 1/inv1.payment_cross_rate,
inv1.exchange_rate)) *
nvl(inv1.discount_amount_taken,0)) /
f.minimum_accountable_unit) *
f.minimum_accountable_unit)),
inv1.description,
inv1.creation_date,
inv1.pay_group_lookup_code,
inv1.dispute_reason
union
select -- payments on hold
gsob.name ledger,
haou.name operating_unit,
hp.party_name c_vendor_name,
inv1.party_id c_party_id,
inv1.vendor_id c_vendor_id,
vs.vendor_site_code c_vendor_site,
:c_nls_na c_hold_code,
'Scheduled Payment Hold' c_nls_hold_code,
:c_nls_na c_nls_hold_desc,
:c_nls_na c_postable,
inv1.invoice_date c_invoice_date,
b.batch_name c_batch_name,
inv1.invoice_id c_nr_invoice_id,
inv1.invoice_num c_invoice_num,
to_number(null) c_hold_line_location_id,
to_char(null) c_hold_reason,
cast(null as date) c_hold_date,
to_number(null) c_held_by,
decode(inv1.invoice_currency_code, gsob.currency_code, inv1.invoice_amount, inv1.base_amount) c_original_amount,
decode(inv1.invoice_currency_code, gsob.currency_code, inv1.invoice_amount,inv1.base_amount) -
decode(inv1.payment_currency_code,
gsob.currency_code,
nvl(inv1.amount_paid,0) + nvl(discount_amount_taken,0),
decode(f.minimum_accountable_unit,
null, round(((decode(inv1.payment_cross_rate_type,
'EMU FIXED', 1/inv1.payment_cross_rate,
inv1.exchange_rate)) *
nvl(inv1.amount_paid,0)),
f.precision),
round(((decode(inv1.payment_cross_rate_type,
'EMU FIXED', 1/inv1.payment_cross_rate,
inv1.exchange_rate)) * nvl(inv1.amount_paid,0)) /
f.minimum_accountable_unit) *
f.minimum_accountable_unit) +
decode(f.minimum_accountable_unit,
null, round(((decode(inv1.payment_cross_rate_type,
'EMU FIXED', 1/inv1.payment_cross_rate,
inv1.exchange_rate)) *
nvl(inv1.discount_amount_taken,0)),
f.precision),
round(((decode(inv1.payment_cross_rate_type,
'EMU FIXED', 1/inv1.payment_cross_rate,
inv1.exchange_rate)) *
nvl(inv1.discount_amount_taken,0)) /
f.minimum_accountable_unit) *
f.minimum_accountable_unit)) c_amount_remaining,
max(s.iby_hold_reason) c_description,
'Scheduled Payment Hold' c_hold_type,
inv1.creation_date c_inv_creation_date,
inv1.pay_group_lookup_code invoice_pay_group,
inv1.dispute_reason,
(select
max(aca.check_date)
from
ap_invoice_payments_all aipa,
ap_checks_all aca
where
aipa.check_id = aca.check_id and
aca.void_date is null and
aca.stopped_date is null and
aipa.invoice_id = inv1.invoice_id
) payment_date
from
gl_sets_of_books gsob,
hr_all_organization_units haou,
hz_parties hp,
ap_supplier_sites vs,
ap_invoices inv1,
ap_batches_all b,
ap_payment_schedules s,
fnd_currencies_vl f
where
2=2
and hp.party_id = inv1.party_id
and gsob.set_of_books_id = inv1.set_of_books_id
and haou.organization_id = inv1.org_id
and vs.vendor_id (+) = inv1.vendor_id
and vs.vendor_site_id (+) = inv1.vendor_site_id
and b.batch_id(+) = inv1.batch_id
and s.invoice_id = inv1.invoice_id
and s.hold_flag = 'Y'
and f.currency_code = gsob.currency_code
group by
gsob.name,
haou.name,
hp.party_name,
inv1.party_id,
inv1.vendor_id,
vs.vendor_site_code,
vs.vendor_site_code,
inv1.invoice_date,
inv1.invoice_id,
b.batch_name,
inv1.invoice_num,
decode(inv1.invoice_currency_code, gsob.currency_code, inv1.invoice_amount, inv1.base_amount),
decode(inv1.invoice_currency_code, gsob.currency_code, inv1.invoice_amount,inv1.base_amount) -
decode(inv1.payment_currency_code,
gsob.currency_code,
nvl(inv1.amount_paid,0) + nvl(discount_amount_taken,0),
decode(f.minimum_accountable_unit,
null, round(((decode(inv1.payment_cross_rate_type,
'EMU FIXED', 1/inv1.payment_cross_rate,
inv1.exchange_rate)) *
nvl(inv1.amount_paid,0)),
f.precision),
round(((decode(inv1.payment_cross_rate_type,
'EMU FIXED', 1/inv1.payment_cross_rate,
inv1.exchange_rate)) * nvl(inv1.amount_paid,0)) /
f.minimum_accountable_unit) *
f.minimum_accountable_unit) +
decode(f.minimum_accountable_unit,
null, round(((decode(inv1.payment_cross_rate_type,
'EMU FIXED', 1/inv1.payment_cross_rate,
inv1.exchange_rate)) *
nvl(inv1.discount_amount_taken,0)),
f.precision),
round(((decode(inv1.payment_cross_rate_type,
'EMU FIXED', 1/inv1.payment_cross_rate,
inv1.exchange_rate)) *
nvl(inv1.discount_amount_taken,0)) /
f.minimum_accountable_unit) *
f.minimum_accountable_unit)),
inv1.creation_date,
inv1.pay_group_lookup_code,
inv1.dispute_reason
union
select -- vendor sites on hold
gsob.name ledger,
haou.name operating_unit,
hp.party_name c_vendor_name,
inv1.party_id c_party_id,
v.vendor_id c_vendor_id,
vs.vendor_site_code c_vendor_site,
:c_nls_na c_hold_code,
'Supplier Site Hold' c_nls_hold_code,
:c_nls_na c_nls_hold_desc,
:c_nls_na c_postable,
inv1.invoice_date c_invoice_date,
b.batch_name c_batch_name,
inv1.invoice_id c_invoice_id,
inv1.invoice_num c_invoice_num,
to_number(null) c_hold_line_location_id,
to_char(null) c_hold_reason,
cast(null as date) c_hold_date,
to_number(null) c_held_by,
decode(inv1.invoice_currency_code, gsob.currency_code, inv1.invoice_amount, inv1.base_amount) c_original_amount,
decode(inv1.invoice_currency_code,gsob.currency_code, inv1.invoice_amount,inv1.base_amount) -
decode(inv1.payment_currency_code,
gsob.currency_code,
nvl(inv1.amount_paid,0) + nvl(discount_amount_taken,0),
decode(f.minimum_accountable_unit,
null, round(((decode(inv1.payment_cross_rate_type,
'EMU FIXED', 1/inv1.payment_cross_rate,
inv1.exchange_rate)) *
nvl(inv1.amount_paid,0)),
f.precision),
round(((decode(inv1.payment_cross_rate_type,
'EMU FIXED', 1/inv1.payment_cross_rate,
inv1.exchange_rate)) * nvl(inv1.amount_paid,0)) /
f.minimum_accountable_unit) *
f.minimum_accountable_unit) +
decode(f.minimum_accountable_unit,
null, round(((decode(inv1.payment_cross_rate_type,
'EMU FIXED', 1/inv1.payment_cross_rate,
inv1.exchange_rate)) *
nvl(inv1.discount_amount_taken,0)),
f.precision),
round(((decode(inv1.payment_cross_rate_type,
'EMU FIXED', 1/inv1.payment_cross_rate,
inv1.exchange_rate)) *
nvl(inv1.discount_amount_taken,0)) /
f.minimum_accountable_unit) *
f.minimum_accountable_unit)) c_amount_remaining,
inv1.description c_description,
'Supplier Site Hold' c_hold_type,
inv1.creation_date c_inv_creation_date,
inv1.pay_group_lookup_code invoice_pay_group,
inv1.dispute_reason,
(select
max(aca.check_date)
from
ap_invoice_payments_all aipa,
ap_checks_all aca
where
aipa.check_id = aca.check_id and
aca.void_date is null and
aca.stopped_date is null and
aipa.invoice_id = inv1.invoice_id
) payment_date
from
gl_sets_of_books gsob,
hr_all_organization_units haou,
hz_parties hp,
ap_suppliers v,
ap_supplier_sites vs,
ap_invoices inv1,
ap_batches_all b,
ap_payment_schedules s,
fnd_currencies_vl f
where
2=2
and hp.party_id = inv1.party_id
and gsob.set_of_books_id = inv1.set_of_books_id
and haou.organization_id = inv1.org_id
and v.vendor_id (+) = inv1.vendor_id
and vs.vendor_id (+) = inv1.vendor_id
and vs.vendor_site_id (+) = inv1.vendor_site_id
and b.batch_id(+) = inv1.batch_id
and s.invoice_id(+) = inv1.invoice_id
and vs.hold_all_payments_flag = 'Y'
and f.currency_code = gsob.currency_code
and inv1.cancelled_date is null
and inv1.payment_status_flag != 'Y'
group by
gsob.name,
haou.name,
hp.party_name,
inv1.party_id,
v.vendor_id,
vs.vendor_site_code,
b.batch_name,
inv1.invoice_date,
inv1.invoice_id,
inv1.invoice_num,
decode(inv1.invoice_currency_code, gsob.currency_code, inv1.invoice_amount, inv1.base_amount),
decode(inv1.invoice_currency_code,gsob.currency_code, inv1.invoice_amount,inv1.base_amount) -
decode(inv1.payment_currency_code,
gsob.currency_code,
nvl(inv1.amount_paid,0) + nvl(discount_amount_taken,0),
decode(f.minimum_accountable_unit,
null, round(((decode(inv1.payment_cross_rate_type,
'EMU FIXED', 1/inv1.payment_cross_rate,
inv1.exchange_rate)) *
nvl(inv1.amount_paid,0)),
f.precision),
round(((decode(inv1.payment_cross_rate_type,
'EMU FIXED', 1/inv1.payment_cross_rate,
inv1.exchange_rate)) * nvl(inv1.amount_paid,0)) /
f.minimum_accountable_unit) *
f.minimum_accountable_unit) +
decode(f.minimum_accountable_unit,
null, round(((decode(inv1.payment_cross_rate_type,
'EMU FIXED', 1/inv1.payment_cross_rate,
inv1.exchange_rate)) *
nvl(inv1.discount_amount_taken,0)),
f.precision),
round(((decode(inv1.payment_cross_rate_type,
'EMU FIXED', 1/inv1.payment_cross_rate,
inv1.exchange_rate)) *
nvl(inv1.discount_amount_taken,0)) /
f.minimum_accountable_unit) *
f.minimum_accountable_unit)),
inv1.description,
inv1.creation_date,
inv1.pay_group_lookup_code,
inv1.dispute_reason
) x
where
1=1
order by
decode(:p_order_by, 'Hold Name',c_nls_hold_code,x.c_vendor_name)
,x.c_vendor_name
,x.c_vendor_site
,x.c_invoice_date
,x.c_invoice_num
,x.c_nls_hold_code |
