[Home] [Help]
2164: v_top_level_found boolean ;
2165:
2166:
2167: /* sequence used in this program
2168: ** BOM_EXPLOSION_TEMP_S
2169: */
2170:
2171: gUserID number ;
2172: gLoginId number ;
2201: x_return_status := FND_API.G_RET_STS_SUCCESS;
2202:
2203: v_step := 'Step A1' ;
2204:
2205: select bom_explosion_temp_s.nextval
2206: into v_mfg_comp_seq_id
2207: from dual;
2208:
2209: IF PG_DEBUG <> 0 THEN
4815: end isModelMLMO;
4816:
4817: /*----------------------------------------------------------------------+
4818: This function recursively explodes a configuration item BOM and inserts
4819: it into bom_explosion_temp with a unique group_id. It is called while
4820: displaying the configuration BOM from iSupplierPortal.
4821: +----------------------------------------------------------------------*/
4822:
4823: FUNCTION create_isp_bom
4835: If PG_DEBUG <> 0 Then
4836: cto_wip_workflow_api_pk.cto_debug('create_isp_bom', 'entering');
4837: End if;
4838:
4839: select bom_explosion_temp_s.nextval
4840: into xGrpId
4841: from dual;
4842:
4843: If PG_DEBUG <> 0 Then
4847: End if;
4848:
4849: -- insert top level config BOM
4850:
4851: insert into bom_explosion_temp(
4852: top_bill_sequence_id,
4853: bill_sequence_id,
4854: organization_id,
4855: sort_order,
4890: while rowcount > 0 LOOP
4891:
4892: l_sort := l_sort + 1;
4893:
4894: insert into bom_explosion_temp(
4895: top_bill_sequence_id,
4896: bill_sequence_id,
4897: organization_id,
4898: sort_order,
4917: xGrpId
4918: from
4919: bom_inventory_components bic,
4920: bom_bill_of_materials bbom,
4921: bom_explosion_temp bet,
4922: mtl_system_items msi
4923: where bbom.assembly_item_id = bet.component_item_id
4924: and bbom.organization_id = bet.organization_id
4925: and bbom.alternate_bom_designator is null
4944: End if;
4945:
4946: END LOOP;
4947:
4948: delete from bom_explosion_temp bet
4949: where bet.group_id = xGrpId
4950: and bet.component_item_id =
4951: (select msi.inventory_item_id
4952: from mtl_system_items msi