[Home] [Help]
2162: v_top_level_found boolean ;
2163:
2164:
2165: /* sequence used in this program
2166: ** BOM_EXPLOSION_TEMP_S
2167: */
2168:
2169: gUserID number ;
2170: gLoginId number ;
2199: x_return_status := FND_API.G_RET_STS_SUCCESS;
2200:
2201: v_step := 'Step A1' ;
2202:
2203: select bom_explosion_temp_s.nextval
2204: into v_mfg_comp_seq_id
2205: from dual;
2206:
2207: IF PG_DEBUG <> 0 THEN
4791: end isModelMLMO;
4792:
4793: /*----------------------------------------------------------------------+
4794: This function recursively explodes a configuration item BOM and inserts
4795: it into bom_explosion_temp with a unique group_id. It is called while
4796: displaying the configuration BOM from iSupplierPortal.
4797: +----------------------------------------------------------------------*/
4798:
4799: FUNCTION create_isp_bom
4811: If PG_DEBUG <> 0 Then
4812: cto_wip_workflow_api_pk.cto_debug('create_isp_bom', 'entering');
4813: End if;
4814:
4815: select bom_explosion_temp_s.nextval
4816: into xGrpId
4817: from dual;
4818:
4819: If PG_DEBUG <> 0 Then
4823: End if;
4824:
4825: -- insert top level config BOM
4826:
4827: insert into bom_explosion_temp(
4828: top_bill_sequence_id,
4829: bill_sequence_id,
4830: organization_id,
4831: sort_order,
4866: while rowcount > 0 LOOP
4867:
4868: l_sort := l_sort + 1;
4869:
4870: insert into bom_explosion_temp(
4871: top_bill_sequence_id,
4872: bill_sequence_id,
4873: organization_id,
4874: sort_order,
4893: xGrpId
4894: from
4895: bom_inventory_components bic,
4896: bom_bill_of_materials bbom,
4897: bom_explosion_temp bet,
4898: mtl_system_items msi
4899: where bbom.assembly_item_id = bet.component_item_id
4900: and bbom.organization_id = bet.organization_id
4901: and bbom.alternate_bom_designator is null
4920: End if;
4921:
4922: END LOOP;
4923:
4924: delete from bom_explosion_temp bet
4925: where bet.group_id = xGrpId
4926: and bet.component_item_id =
4927: (select msi.inventory_item_id
4928: from mtl_system_items msi