[Home] [Help]
1: PACKAGE BODY MRP_SCATP_PUB AS
2: /* $Header: MRPPATPB.pls 120.4 2007/11/29 12:34:54 rgurugub ship $ */
3: G_PKG_NAME CONSTANT VARCHAR2(30) := 'MRP_SCATP_PUB';
4:
5: -- ========================================================================
1: PACKAGE BODY MRP_SCATP_PUB AS
2: /* $Header: MRPPATPB.pls 120.4 2007/11/29 12:34:54 rgurugub ship $ */
3: G_PKG_NAME CONSTANT VARCHAR2(30) := 'MRP_SCATP_PUB';
4:
5: -- ========================================================================
6: -- This procedure inserts information from so_lines to mtl_demand_interface
7: -- for Supply Chain ATP.
154: AND bom.alternate_bom_designator is NULL
155: AND be.top_bill_sequence_id = bom.bill_sequence_id
156: AND be.optional = 2
157: AND be.explosion_type = 'ALL'
158: AND MRP_SCATP_PUB.required_component(be.top_bill_sequence_id,
159: be.plan_level,
160: mdi.requirement_date,
161: be.component_sequence_id,
162: be.component_code) = 1
337: INTO l_required
338: FROM BOM_INVENTORY_COMPONENTS
339: WHERE COMPONENT_SEQUENCE_ID = p_comp_seq_id
340: AND NVL(WIP_SUPPLY_TYPE,
341: MRP_SCATP_PUB.mtl_wip_supply_type(
342: p_top_bill_seq_id,
343: component_item_id)) <> 6; /* Bug 2777745 */
344: EXCEPTION WHEN NO_DATA_FOUND THEN
345: l_required := 0;
376: AND TRUNC(BE.DISABLE_DATE) >TRUNC(p_request_date)
377: AND BIC.COMPONENT_SEQUENCE_ID =
378: BE.COMPONENT_SEQUENCE_ID
379: AND nvl(BIC.WIP_SUPPLY_TYPE,
380: MRP_SCATP_PUB.mtl_wip_supply_type(
381: p_top_bill_seq_id,
382: bic.component_item_id)) = 6 /* Bug 2777745 */
383: AND BIC.BOM_ITEM_TYPE NOT IN (1,2); -- not a model or oc
384: EXCEPTION WHEN NO_DATA_FOUND THEN
413: RETURN(l_wip_supply_type);
414:
415: END mtl_wip_supply_type;
416:
417: END MRP_SCATP_PUB;