[Home] [Help]
907: be.component_code compCode,
908: be.rowid beRowID,
909: be.plan_level bomLevel, --level of nesting. 1 is a top level component
910: bic.basis_type /* LBM Project */
911: from bom_explosion_temp be,
912: bom_inventory_components bic,
913: mtl_system_items msi
914: where be.group_id = v_grpID
915: and be.component_sequence_id = bic.component_sequence_id
946: decode(mp.project_reference_enabled,
947: null,milk.concatenated_segments,
948: 2,milk.concatenated_segments,
949: 1, inv_project.get_pjm_locsegs(milk.concatenated_segments)) locatorName
950: from bom_explosion_temp be,
951: bom_inventory_components bic,
952: mtl_system_items_kfv msi,
953: mtl_item_locations_kfv milk,
954: mtl_parameters mp
1088: end if;
1089:
1090: begin
1091: select bp.inherit_phantom_op_seq,
1092: bom_explosion_temp_s.nextval,
1093: msi.bom_item_type,
1094: bp.maximum_bom_level
1095: into l_inheritPhOpSeq,
1096: l_grpID,
1157: raise fnd_api.g_exc_unexpected_error;
1158: end if;
1159:
1160: /* Fix for Bug 5646262. Added code to check if there are any LOOP in BOM */
1161: select count(1) into l_errCode from bom_explosion_temp
1162: where group_id = l_grpID and loop_flag=1;
1163:
1164: if(l_errCode <> 0) then
1165: fnd_message.set_name('WIP', 'WIP_BOM_LOOP');
1169: end if;
1170:
1171: --don't explode, just delete all exploded components
1172: if(l_bomItemType in (wip_constants.option_class_type, wip_constants.model_type)) then
1173: delete bom_explosion_temp
1174: where group_id = l_grpID
1175: and plan_level > 2;
1176: else
1177: --first pass: update quantities and delete components
1206: if(l_compRec.wipSupplyType = wip_constants.phantom) then --if item is a phantom
1207: if(l_inheritPhOpSeq = wip_constants.no) then
1208: select operation_seq_num
1209: into l_opSeqNum
1210: from bom_explosion_temp
1211: where rowid = l_compRec.beRowID;
1212:
1213:
1214: update bom_explosion_temp
1210: from bom_explosion_temp
1211: where rowid = l_compRec.beRowID;
1212:
1213:
1214: update bom_explosion_temp
1215: set operation_seq_num = l_opSeqNum
1216: where group_id = l_grpID
1217: and operation_seq_num = 1
1218: and component_code like l_compRec.compCode || '-%';
1238: *Keep component_quantity free from component yield
1239: *For phantoms, recalcuate component_yield_factor by multiplying it with child yield */
1240: /* Fix for bug 5221306 lot basis was taken care for children of phantom
1241: Added decode in basis_type of component */
1242: update bom_explosion_temp
1243: set component_quantity = (component_quantity * decode (basis_type , wip_constants.lot_based_mtl,1,l_compRec.priQty) ) / (1 - l_compRec.shrinkageRate),
1244: /* For phantoms, recalcuate component_yield_factor by multiplying it with child yield only for components
1245: having basis_type as item. Bug fix 5524603. */
1246: component_yield_factor = decode(basis_type,wip_constants.lot_based_mtl,component_yield_factor,component_yield_factor * l_compRec.compYield),
1248: where group_id = l_grpID
1249: and component_code like l_compRec.compCode || '-%';
1250: else
1251: --delete all descendants of the subassembly
1252: delete bom_explosion_temp
1253: where group_id = l_grpID
1254: and component_code like l_compRec.compCode || '-%';
1255:
1256: l_bomLevel := l_compRec.bomLevel;
1427: --trim any trailing null entries
1428: x_compTbl.trim(g_compTblExtendSize - l_extendCount);
1429:
1430: --finally bom doesn't want us to leave anything in there temp table. delete the rows.
1431: delete bom_explosion_temp
1432: where group_id = l_grpID;
1433: x_returnStatus := fnd_api.g_ret_sts_success;
1434: if (l_logLevel <= wip_constants.trace_logging) then
1435: wip_logger.exitPoint(p_procName => 'wip_bflProc_priv.explodeRequirements',