Inventory Value Up to a Specific Date

select
p.organization_code,
org.name organization_name,
si.segment1 item_code,
si.primary_uom_code item_uom,
sum(ta.primary_quantity) onhand_quantity,
sum(ta.base_transaction_value) inventory_value

from
mtl_transaction_accounts ta,
mtl_system_items si,
mtl_parameters p,
hr_all_organization_units org

where
ta.inventory_item_id=si.inventory_item_id and
ta.organization_id=si.organization_id and
ta.organization_id=p.organization_id and
p.organization_id=org.organization_id and
ta.accounting_line_type in (1,14) and
to_date(to_char(ta.transaction_date,'DD-MON-YYYY'))<=:p_date and
p.organization_code=nvl(:org_code,p.organization_code) and
si.segment1 like nvl(:item_code,si.segment1)

group by
p.organization_code,
org.name,
si.segment1,
si.primary_uom_code

order by
p.organization_code,
si.segment1