3172: RETURN BOOLEAN IS
3173: l_return_value BOOLEAN;
3174: l_debug NUMBER;
3175: BEGIN
3176: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
3177: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3178: END IF;
3179: l_debug := g_debug;
3180: IF p_simulation_mode <> wms_engine_pvt.g_no_simulation THEN
3262:
3263: l_ctr := wms_rule_pvt.g_rule_list_pick_ctr;
3264: l_list_pkg := 'wms_rule_pick_pkg' || l_ctr ;
3265:
3266: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
3267: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3268: END IF;
3269: l_debug := g_debug;
3270:
3435: BEGIN
3436: -- Initialize API return status to success
3437: x_return_status := fnd_api.g_ret_sts_success;
3438:
3439: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
3440: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3441: END IF;
3442: l_debug := g_debug;
3443:
3603: l_debug NUMBER;
3604:
3605: BEGIN
3606:
3607: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
3608: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3609: END IF;
3610: l_debug := g_debug;
3611:
3757: l_debug NUMBER;
3758:
3759: BEGIN
3760:
3761: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
3762: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3763: END IF;
3764: l_debug := g_debug;
3765:
4110: WHERE type_code = 1
4111: AND line_type_code = 2
4112: GROUP BY to_locator_id;
4113: BEGIN
4114: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
4115: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4116: END IF;
4117: l_debug := g_debug;
4118:
4197: l_transaction_type_id NUMBER := 0 ;
4198:
4199: BEGIN
4200:
4201: IF inv_cache.set_mol_rec(p_transaction_temp_id) THEN
4202: l_transaction_type_id := inv_cache.mol_rec.transaction_type_id;
4203: END IF;
4204:
4205: IF l_transaction_type_id <> 0 THEN
4198:
4199: BEGIN
4200:
4201: IF inv_cache.set_mol_rec(p_transaction_temp_id) THEN
4202: l_transaction_type_id := inv_cache.mol_rec.transaction_type_id;
4203: END IF;
4204:
4205: IF l_transaction_type_id <> 0 THEN
4206: IF inv_cache.set_mtt_rec(l_transaction_type_id) THEN
4202: l_transaction_type_id := inv_cache.mol_rec.transaction_type_id;
4203: END IF;
4204:
4205: IF l_transaction_type_id <> 0 THEN
4206: IF inv_cache.set_mtt_rec(l_transaction_type_id) THEN
4207: l_transaction_action_id := inv_cache.mtt_rec.transaction_action_id;
4208: END IF;
4209: END IF;
4210:
4203: END IF;
4204:
4205: IF l_transaction_type_id <> 0 THEN
4206: IF inv_cache.set_mtt_rec(l_transaction_type_id) THEN
4207: l_transaction_action_id := inv_cache.mtt_rec.transaction_action_id;
4208: END IF;
4209: END IF;
4210:
4211: IF l_transaction_action_id = 2 THEN
4297: From mtl_reservations
4298: Where reservation_id = p_reservation_id
4299: and lot_number = g_locs(p_record_id).lot_number;
4300: BEGIN
4301: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
4302: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4303: END IF;
4304: l_debug := g_debug;
4305:
4317: ;
4318: Close C_item_info;
4319: */
4320: -- [ Added the following code and commented the above item cursor
4321: l_lot_divisible_flag := inv_cache.item_rec.lot_divisible_flag;
4322: l_lot_control_code := inv_cache.item_rec.lot_control_code;
4323: l_dual_uom_ctl := inv_cache.item_rec.dual_uom_control;
4324: -- ]
4325: /* lot specific conversion 3986955*/
4318: Close C_item_info;
4319: */
4320: -- [ Added the following code and commented the above item cursor
4321: l_lot_divisible_flag := inv_cache.item_rec.lot_divisible_flag;
4322: l_lot_control_code := inv_cache.item_rec.lot_control_code;
4323: l_dual_uom_ctl := inv_cache.item_rec.dual_uom_control;
4324: -- ]
4325: /* lot specific conversion 3986955*/
4326: IF l_dual_uom_ctl > 1 and nvl(g_locs(p_record_id).lot_number,'-9999') <> '-9999' THEN
4319: */
4320: -- [ Added the following code and commented the above item cursor
4321: l_lot_divisible_flag := inv_cache.item_rec.lot_divisible_flag;
4322: l_lot_control_code := inv_cache.item_rec.lot_control_code;
4323: l_dual_uom_ctl := inv_cache.item_rec.dual_uom_control;
4324: -- ]
4325: /* lot specific conversion 3986955*/
4326: IF l_dual_uom_ctl > 1 and nvl(g_locs(p_record_id).lot_number,'-9999') <> '-9999' THEN
4327: /* bug 5441849, if detailed reservation exist, meaning that user has made the
5074:
5075: l_debug NUMBER;
5076:
5077: BEGIN
5078: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
5079: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
5080: END IF;
5081: l_debug := g_debug;
5082:
5421: l_next_rec NUMBER;
5422:
5423: l_debug NUMBER;
5424: BEGIN
5425: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
5426: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
5427: END IF;
5428: l_debug := g_debug;
5429:
5589: l_uom_index NUMBER;
5590:
5591: l_debug NUMBER;
5592: BEGIN
5593: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
5594: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
5595: END IF;
5596: l_debug := g_debug;
5597:
6086:
6087: l_debug NUMBER;
6088:
6089: BEGIN
6090: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
6091: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6092: END IF;
6093: l_debug := g_debug;
6094: IF l_debug = 1 THEN
6260: , p_debug_on => p_debug_on
6261: , p_needed_sec_quantity => l_sec_needed_quantity
6262: , p_secondary_uom => p_secondary_uom
6263: , p_grade_code => p_grade_code
6264: , p_lot_divisible_flag => inv_cache.item_rec.lot_divisible_flag
6265: , x_success => x_finished
6266: );
6267:
6268: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6316: l_prev_group NUMBER;
6317: l_next_group NUMBER;
6318: l_debug NUMBER;
6319: BEGIN
6320: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
6321: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6322: END IF;
6323: l_debug := g_debug;
6324: IF l_debug = 1 THEN
6419: g_locator.segment19 := p_project_id;
6420: g_locator.segment20 := p_task_id;
6421:
6422: -- Cache for better performance
6423: retval := inv_cache.set_org_rec(g_locator.organization_id);
6424: /*
6425: select *
6426: into l_org
6427: from mtl_parameters
6426: into l_org
6427: from mtl_parameters
6428: where organization_id = l_locator.organization_id;
6429: */
6430: retval := inv_cache.set_tosub_rec(g_locator.organization_id, g_locator.subinventory_code);
6431: /* select *
6432: into l_sub
6433: from mtl_secondary_inventories
6434: where secondary_inventory_name = l_locator.subinventory_code
6435: and organization_id = l_locator.organization_id;
6436: */
6437: success := INV_Validate.ValidateLocator(
6438: p_locator => g_locator,
6439: p_org => inv_cache.org_rec,
6440: p_sub => inv_cache.tosub_rec,
6441: p_validation_mode => INV_Validate.EXISTS_OR_CREATE,
6442: p_value_or_id => 'I');
6443:
6436: */
6437: success := INV_Validate.ValidateLocator(
6438: p_locator => g_locator,
6439: p_org => inv_cache.org_rec,
6440: p_sub => inv_cache.tosub_rec,
6441: p_validation_mode => INV_Validate.EXISTS_OR_CREATE,
6442: p_value_or_id => 'I');
6443:
6444: COMMIT;
6680: l_serial_status_id NUMBER;
6681:
6682: ---
6683:
6684: l_serial_status INV_CACHE.ITEM_REC.serial_status_enabled%TYPE;
6685: l_lot_status INV_CACHE.ITEM_REC.lot_status_enabled%TYPE;
6686:
6687: ---- End Mat Status Var
6688:
6681:
6682: ---
6683:
6684: l_serial_status INV_CACHE.ITEM_REC.serial_status_enabled%TYPE;
6685: l_lot_status INV_CACHE.ITEM_REC.lot_status_enabled%TYPE;
6686:
6687: ---- End Mat Status Var
6688:
6689: l_lot_divisible_flag VARCHAR2(1);
6772: WHERE rule_id = l_rule_id;
6773:
6774:
6775: BEGIN
6776: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
6777: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6778: END IF;
6779: l_debug := g_debug;
6780: l_progress := 10;
6780: l_progress := 10;
6781:
6782: -- debugging portion
6783: -- can be commented ut for final code
6784: if nvl(inv_cache.is_pickrelease, FALSE) THEN
6785: If (l_debug = 1) then
6786: log_event(l_api_name, 'Check if Pick Release', 'True');
6787: End if;
6788: l_consider_staging_capacity := FALSE;
6813: fnd_msg_pub.initialize;
6814: END IF;
6815:
6816: -- LPN Status Project
6817: if (inv_cache.set_org_rec(p_organization_id)) then
6818: l_default_status_id := nvl(inv_cache.org_rec.default_status_id,-1);
6819: IF l_debug = 1 THEN
6820: log_statement(l_api_name, 'Value of l_default_status_id: ', l_default_status_id);
6821: END IF;
6814: END IF;
6815:
6816: -- LPN Status Project
6817: if (inv_cache.set_org_rec(p_organization_id)) then
6818: l_default_status_id := nvl(inv_cache.org_rec.default_status_id,-1);
6819: IF l_debug = 1 THEN
6820: log_statement(l_api_name, 'Value of l_default_status_id: ', l_default_status_id);
6821: END IF;
6822: end if;
7061:
7062:
7063: -- Removed the above code and added the following variables for performances
7064:
7065: l_return_value := INV_CACHE.set_item_rec(
7066: p_organization_id,
7067: p_inventory_item_id);
7068: If NOT l_return_value Then
7069: If l_debug = 1 then
7071: end if;
7072: RAISE fnd_api.g_exc_unexpected_error;
7073: End If;
7074:
7075: l_serial_control_code := NVL(inv_cache.item_rec.serial_number_control_code,1);
7076: l_restrict_subs_code := NVL(inv_cache.item_rec.restrict_subinventories_code, 2);
7077: l_restrict_locs_code := NVL(inv_cache.item_rec.restrict_locators_code, 2);
7078: l_lot_divisible_flag := inv_cache.item_rec.lot_divisible_flag;
7079: l_lot_control_code := inv_cache.item_rec.lot_control_code;
7072: RAISE fnd_api.g_exc_unexpected_error;
7073: End If;
7074:
7075: l_serial_control_code := NVL(inv_cache.item_rec.serial_number_control_code,1);
7076: l_restrict_subs_code := NVL(inv_cache.item_rec.restrict_subinventories_code, 2);
7077: l_restrict_locs_code := NVL(inv_cache.item_rec.restrict_locators_code, 2);
7078: l_lot_divisible_flag := inv_cache.item_rec.lot_divisible_flag;
7079: l_lot_control_code := inv_cache.item_rec.lot_control_code;
7080: l_revision_control_code := inv_cache.item_rec.revision_qty_control_code;
7073: End If;
7074:
7075: l_serial_control_code := NVL(inv_cache.item_rec.serial_number_control_code,1);
7076: l_restrict_subs_code := NVL(inv_cache.item_rec.restrict_subinventories_code, 2);
7077: l_restrict_locs_code := NVL(inv_cache.item_rec.restrict_locators_code, 2);
7078: l_lot_divisible_flag := inv_cache.item_rec.lot_divisible_flag;
7079: l_lot_control_code := inv_cache.item_rec.lot_control_code;
7080: l_revision_control_code := inv_cache.item_rec.revision_qty_control_code;
7081: l_grade_control_flag := inv_cache.item_rec.grade_control_flag;
7074:
7075: l_serial_control_code := NVL(inv_cache.item_rec.serial_number_control_code,1);
7076: l_restrict_subs_code := NVL(inv_cache.item_rec.restrict_subinventories_code, 2);
7077: l_restrict_locs_code := NVL(inv_cache.item_rec.restrict_locators_code, 2);
7078: l_lot_divisible_flag := inv_cache.item_rec.lot_divisible_flag;
7079: l_lot_control_code := inv_cache.item_rec.lot_control_code;
7080: l_revision_control_code := inv_cache.item_rec.revision_qty_control_code;
7081: l_grade_control_flag := inv_cache.item_rec.grade_control_flag;
7082:
7075: l_serial_control_code := NVL(inv_cache.item_rec.serial_number_control_code,1);
7076: l_restrict_subs_code := NVL(inv_cache.item_rec.restrict_subinventories_code, 2);
7077: l_restrict_locs_code := NVL(inv_cache.item_rec.restrict_locators_code, 2);
7078: l_lot_divisible_flag := inv_cache.item_rec.lot_divisible_flag;
7079: l_lot_control_code := inv_cache.item_rec.lot_control_code;
7080: l_revision_control_code := inv_cache.item_rec.revision_qty_control_code;
7081: l_grade_control_flag := inv_cache.item_rec.grade_control_flag;
7082:
7083: -- ]
7076: l_restrict_subs_code := NVL(inv_cache.item_rec.restrict_subinventories_code, 2);
7077: l_restrict_locs_code := NVL(inv_cache.item_rec.restrict_locators_code, 2);
7078: l_lot_divisible_flag := inv_cache.item_rec.lot_divisible_flag;
7079: l_lot_control_code := inv_cache.item_rec.lot_control_code;
7080: l_revision_control_code := inv_cache.item_rec.revision_qty_control_code;
7081: l_grade_control_flag := inv_cache.item_rec.grade_control_flag;
7082:
7083: -- ]
7084:
7077: l_restrict_locs_code := NVL(inv_cache.item_rec.restrict_locators_code, 2);
7078: l_lot_divisible_flag := inv_cache.item_rec.lot_divisible_flag;
7079: l_lot_control_code := inv_cache.item_rec.lot_control_code;
7080: l_revision_control_code := inv_cache.item_rec.revision_qty_control_code;
7081: l_grade_control_flag := inv_cache.item_rec.grade_control_flag;
7082:
7083: -- ]
7084:
7085: -- Only detail serial numbers if they are prespecified or entered
7102: ------------ Added new code -----
7103:
7104:
7105: -- Logic to improve the performance for Material Status Checks
7106: -- Getting Values from INV CACHE and setting the l_detail_serial flag based on the following algoritham
7107: -- Based on the l_detail_falg, Serial_material status would be checked inside the Rule packages or
7108: -- Rules Engine API.
7109: -- ** Serial Mat.Status Check inside Rule Sql(R) / Engine (E)
7110: /*------------------------------------------------------------------------------------------------
7121: N N Y Y Y N - 4
7122: N N N N(MOQD) N N - 0
7123: --------------------------------------------------------------------------------------------------*/
7124: IF l_is_serial_control = 1 THEN
7125: l_serial_status := INV_CACHE.ITEM_REC.serial_status_enabled;
7126: --l_serial_status_id := INV_CACHE.ITEM_REC.serial_status_id;
7127: l_lot_status := INV_CACHE.ITEM_REC.lot_status_enabled;
7128:
7129: IF l_detail_serial = 1 THEN
7122: N N N N(MOQD) N N - 0
7123: --------------------------------------------------------------------------------------------------*/
7124: IF l_is_serial_control = 1 THEN
7125: l_serial_status := INV_CACHE.ITEM_REC.serial_status_enabled;
7126: --l_serial_status_id := INV_CACHE.ITEM_REC.serial_status_id;
7127: l_lot_status := INV_CACHE.ITEM_REC.lot_status_enabled;
7128:
7129: IF l_detail_serial = 1 THEN
7130: IF NVL(l_serial_status, 'N') = 'Y' THEN
7123: --------------------------------------------------------------------------------------------------*/
7124: IF l_is_serial_control = 1 THEN
7125: l_serial_status := INV_CACHE.ITEM_REC.serial_status_enabled;
7126: --l_serial_status_id := INV_CACHE.ITEM_REC.serial_status_id;
7127: l_lot_status := INV_CACHE.ITEM_REC.lot_status_enabled;
7128:
7129: IF l_detail_serial = 1 THEN
7130: IF NVL(l_serial_status, 'N') = 'Y' THEN
7131: l_detail_serial := 1;
7150: --
7151: -- [ If the org level flag is set to use Custom logic for Serial numbers,
7152: -- the MSNT is used but grouped by sub/loc
7153: If p_type_code = 2 THEN
7154: l_allocate_serial_flag := inv_cache.org_rec.allocate_serial_flag;
7155: END IF;
7156:
7157: IF l_allocate_serial_flag = 'C' Then
7158: l_detail_serial := 4;
7652: g_first_lpn_group := 0;
7653: g_last_lpn_group := 0;
7654: l_cur_lpn_rec := 0;
7655:
7656: l_allocate_serial_flag := inv_cache.org_rec.allocate_serial_flag;
7657:
7658: IF l_debug = 1 THEN
7659: log_statement(l_api_name, 'alloc_lpns', 'Allocating Entire LPNs');
7660: log_statement(l_api_name, 'allocate_serial_flag', 'allocate_serial_flag = '||l_allocate_serial_flag);
7817: END IF;
7818: ELSE -- IF l_default_status_id = -1 THEN
7819:
7820: l_sub_loc_lot_trx_allowed:='N';
7821: IF (inv_cache.item_rec.serial_number_control_code in (1,6)) THEN
7822: l_onhand_status_trx_allowed := inv_detail_util_pvt.is_onhand_status_trx_allowed(
7823: p_transaction_type_id
7824: ,p_organization_id
7825: ,p_inventory_item_id
9002: END IF;
9003:
9004: ELSE
9005: l_sub_loc_lot_trx_allowed:='N';
9006: if (inv_cache.item_rec.serial_number_control_code in (1,6)) then
9007: l_onhand_status_trx_allowed := inv_detail_util_pvt.is_onhand_status_trx_allowed(
9008: p_transaction_type_id
9009: ,p_organization_id
9010: ,p_inventory_item_id
9265: , p_debug_on => l_debug_on
9266: , p_needed_sec_quantity => l_sec_needed_quantity
9267: , p_secondary_uom => p_secondary_uom
9268: , p_grade_code => p_grade_code
9269: , p_lot_divisible_flag => inv_cache.item_rec.lot_divisible_flag
9270: , x_success => l_finished
9271: );
9272:
9273: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
11186: ELSE
11187: l_putaway_sub := p_to_subinventory_code ;
11188: END IF;
11189:
11190: l_sub_found := INV_CACHE.set_tosub_rec(l_organization_id, l_putaway_sub);
11191:
11192: -- now get the locator control and then determine if
11193: -- default locator needs to be selected from item defaults
11194: --
11197: fnd_msg_pub.ADD;
11198: RAISE fnd_api.g_exc_error;
11199: END if;
11200:
11201: l_sub_loc_control := INV_CACHE.tosub_rec.locator_type;
11202:
11203: IF l_debug = 1 THEN
11204: log_statement(l_api_name, 'p_org_locator_control_code', p_org_locator_control_code);
11205: log_statement(l_api_name, 'l_sub_loc_control ' , l_sub_loc_control);
11255: -- If not defined there, or if avg. costing org
11256: -- try to get the default cost group from the organization
11257:
11258: IF p_to_cost_group_id IS NULL THEN
11259: IF INV_CACHE.set_org_rec(l_organization_id) THEN
11260: l_primary_cost_method := INV_CACHE.org_rec.primary_cost_method;
11261: l_putaway_cg_org := INV_CACHE.org_rec.default_cost_group_id;
11262: ELSE
11263: l_primary_cost_method := 2;
11256: -- try to get the default cost group from the organization
11257:
11258: IF p_to_cost_group_id IS NULL THEN
11259: IF INV_CACHE.set_org_rec(l_organization_id) THEN
11260: l_primary_cost_method := INV_CACHE.org_rec.primary_cost_method;
11261: l_putaway_cg_org := INV_CACHE.org_rec.default_cost_group_id;
11262: ELSE
11263: l_primary_cost_method := 2;
11264: l_putaway_cg_org := NULL;
11257:
11258: IF p_to_cost_group_id IS NULL THEN
11259: IF INV_CACHE.set_org_rec(l_organization_id) THEN
11260: l_primary_cost_method := INV_CACHE.org_rec.primary_cost_method;
11261: l_putaway_cg_org := INV_CACHE.org_rec.default_cost_group_id;
11262: ELSE
11263: l_primary_cost_method := 2;
11264: l_putaway_cg_org := NULL;
11265: End If;
11265: End If;
11266:
11267: If l_primary_cost_method = 1 Then
11268: IF l_sub_found THEN
11269: l_putaway_cg := INV_CACHE.tosub_rec.default_cost_group_id;
11270: ELSE
11271: l_putaway_cg := NULL;
11272: end if;
11273: End If;
11459:
11460:
11461: BEGIN
11462:
11463: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
11464: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
11465: END IF;
11466: l_debug := g_debug;
11467:
11617: p_inventory_item_id,
11618: l_to_subinventory_code,
11619: l_to_locator_id,
11620: l_to_cost_group_id,
11621: inv_cache.org_rec.stock_locator_control_code,
11622: inv_cache.item_rec.location_control_code,
11623: p_transaction_type_id,
11624: x_subinventory_code ,
11625: x_locator_id,
11618: l_to_subinventory_code,
11619: l_to_locator_id,
11620: l_to_cost_group_id,
11621: inv_cache.org_rec.stock_locator_control_code,
11622: inv_cache.item_rec.location_control_code,
11623: p_transaction_type_id,
11624: x_subinventory_code ,
11625: x_locator_id,
11626: x_cost_group_id,
14331: l_rule_counter INTEGER;
14332: BEGIN
14333: SAVEPOINT assignttsp;
14334:
14335: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
14336: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
14337: END IF;
14338: l_debug := g_debug;
14339:
14686: AND (rules.organization_id = wlr.organization_id
14687: OR rules.organization_id = -1
14688: ) ;
14689: ----
14690: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
14691: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
14692: END IF;
14693: l_debug := g_debug;
14694: IF l_debug = 1 THEN
15102:
15103:
15104: BEGIN
15105:
15106: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
15107: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
15108: END IF;
15109: l_debug := g_debug;
15110: l_progress := 10;
15222: */
15223: END IF;
15224:
15225: -- LPN Status Project
15226: if (inv_cache.set_org_rec(p_organization_id)) then
15227: l_default_status_id := nvl(inv_cache.org_rec.default_status_id,-1);
15228: end if;
15229: -- LPN Status Project
15230: --
15223: END IF;
15224:
15225: -- LPN Status Project
15226: if (inv_cache.set_org_rec(p_organization_id)) then
15227: l_default_status_id := nvl(inv_cache.org_rec.default_status_id,-1);
15228: end if;
15229: -- LPN Status Project
15230: --
15231: -- backup qty tree
15348:
15349:
15350: ELSE
15351: l_allowed:='N';
15352: if (inv_cache.item_rec.serial_number_control_code in (1,6)) then
15353: l_onhand_status_trx_allowed := inv_detail_util_pvt.is_onhand_status_trx_allowed(
15354: p_transaction_type_id
15355: ,p_organization_id
15356: ,p_inventory_item_id
15371: IF l_debug = 1 THEN
15372: log_error_msg(l_api_name, x_msg_data);
15373: END IF;
15374: END IF;
15375: end if; -- if (inv_cache.item_rec.serial_number_control_code in (1,6))
15376:
15377: END IF; -- IF l_default_status_id = -1
15378:
15379: --LPN Status Project
15911: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
15912: l_progress := 10;
15913: -- debugging portion
15914: -- can be commented ut for final code
15915: if nvl(inv_cache.is_pickrelease, FALSE) THEN
15916: If (l_debug = 1) then
15917: log_event(l_api_name, 'Check if Pick Release', 'True');
15918: End if;
15919: l_consider_staging_capacity := FALSE;