1: PACKAGE BODY MTL_ABC_COMPILE_PKG AS
2: /* $Header: INVCAACB.pls 120.3 2008/06/24 10:33:13 sdpaul ship $ */
3:
4: PROCEDURE COMPILE_FUTURE_VALUE(x_organization_id IN NUMBER,
5: x_compile_id IN NUMBER,
21: BEGIN
22: SELECT F.INVENTORY_ITEM_ID,
23: SUM(F.ORIGINAL_FORECAST_QUANTITY),
24: SUM(F.ORIGINAL_FORECAST_QUANTITY *
25: MTL_ABC_COMPILE_PKG.get_item_cost(F.ORGANIZATION_ID,
26: F.INVENTORY_ITEM_ID,
27: F.PROJECT_ID,
28: x_org_cost_group_id))
29: BULK COLLECT INTO l_item_id,l_qty_demand_total,l_value_demand_total
61: UNION ALL
62: SELECT F.INVENTORY_ITEM_ID,
63: SUM(F.ORIGINAL_FORECAST_QUANTITY/(C2.NEXT_SEQ_NUM-C3.NEXT_SEQ_NUM)),
64: SUM((F.ORIGINAL_FORECAST_QUANTITY/(C2.NEXT_SEQ_NUM-C3.NEXT_SEQ_NUM)) *
65: MTL_ABC_COMPILE_PKG.get_item_cost(F.ORGANIZATION_ID,
66: F.INVENTORY_ITEM_ID,
67: F.PROJECT_ID,
68: x_org_cost_group_id))
69: FROM BOM_CALENDAR_DATES C1, BOM_CALENDAR_DATES C2,
117: SUM(F.ORIGINAL_FORECAST_QUANTITY/
118: (C2.NEXT_SEQ_NUM - C3.NEXT_SEQ_NUM)),
119: SUM(F.ORIGINAL_FORECAST_QUANTITY/
120: (C2.NEXT_SEQ_NUM - C3.NEXT_SEQ_NUM) *
121: MTL_ABC_COMPILE_PKG.get_item_cost(F.ORGANIZATION_ID,
122: F.INVENTORY_ITEM_ID,
123: F.PROJECT_ID,
124: x_org_cost_group_id))
125: FROM BOM_CALENDAR_DATES C1, BOM_CALENDAR_DATES C2,
294:
295: END CALCULATE_COMPILE_VALUE;
296: -- END INVCONV
297:
298: END MTL_ABC_COMPILE_PKG;