[Home] [Help]
3525: RETURN BOOLEAN IS
3526: l_return_value BOOLEAN;
3527: l_debug NUMBER;
3528: BEGIN
3529: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
3530: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3531: END IF;
3532: l_debug := g_debug;
3533: IF p_simulation_mode <> wms_engine_pvt.g_no_simulation THEN
3615:
3616: l_ctr := wms_rule_pvt.g_rule_list_pick_ctr;
3617: l_list_pkg := 'wms_rule_pick_pkg' || l_ctr ;
3618:
3619: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
3620: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3621: END IF;
3622: l_debug := g_debug;
3623:
3788: BEGIN
3789: -- Initialize API return status to success
3790: x_return_status := fnd_api.g_ret_sts_success;
3791:
3792: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
3793: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3794: END IF;
3795: l_debug := g_debug;
3796:
3956: l_debug NUMBER;
3957:
3958: BEGIN
3959:
3960: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
3961: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3962: END IF;
3963: l_debug := g_debug;
3964:
4110: l_debug NUMBER;
4111:
4112: BEGIN
4113:
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:
4463: WHERE type_code = 1
4464: AND line_type_code = 2
4465: GROUP BY to_locator_id;
4466: BEGIN
4467: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
4468: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4469: END IF;
4470: l_debug := g_debug;
4471:
4550: l_transaction_type_id NUMBER := 0 ;
4551:
4552: BEGIN
4553:
4554: IF inv_cache.set_mol_rec(p_transaction_temp_id) THEN
4555: l_transaction_type_id := inv_cache.mol_rec.transaction_type_id;
4556: END IF;
4557:
4558: IF l_transaction_type_id <> 0 THEN
4551:
4552: BEGIN
4553:
4554: IF inv_cache.set_mol_rec(p_transaction_temp_id) THEN
4555: l_transaction_type_id := inv_cache.mol_rec.transaction_type_id;
4556: END IF;
4557:
4558: IF l_transaction_type_id <> 0 THEN
4559: IF inv_cache.set_mtt_rec(l_transaction_type_id) THEN
4555: l_transaction_type_id := inv_cache.mol_rec.transaction_type_id;
4556: END IF;
4557:
4558: IF l_transaction_type_id <> 0 THEN
4559: IF inv_cache.set_mtt_rec(l_transaction_type_id) THEN
4560: l_transaction_action_id := inv_cache.mtt_rec.transaction_action_id;
4561: END IF;
4562: END IF;
4563:
4556: END IF;
4557:
4558: IF l_transaction_type_id <> 0 THEN
4559: IF inv_cache.set_mtt_rec(l_transaction_type_id) THEN
4560: l_transaction_action_id := inv_cache.mtt_rec.transaction_action_id;
4561: END IF;
4562: END IF;
4563:
4564: IF l_transaction_action_id = 2 THEN
4718: FROM mtl_units_of_measure_vl
4719: WHERE uom_code = p_uom;
4720:
4721: BEGIN
4722: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
4723: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4724: END IF;
4725: l_debug := g_debug;
4726:
4756: l_needed_sec_quantity := p_needed_sec_quantity;
4757: l_use_pick_uom := p_use_pick_uom;
4758:
4759: -- bug 9378888
4760: l_indivisible_flag := NVL(inv_cache.item_rec.indivisible_flag,'N');
4761:
4762: l_allocate_lot_flag := get_allocate_lot_flag
4763: ( p_organization_id => p_organization_id
4764: , p_move_order_line_id => p_transaction_temp_id
4840: l_allocation_quantity := l_needed_quantity;
4841: l_sallocation_quantity := l_needed_sec_quantity;
4842: l_to_locator_id := p_to_locator_id;
4843:
4844: l_lot_divisible_flag := inv_cache.item_rec.lot_divisible_flag;
4845: l_lot_control_code := inv_cache.item_rec.lot_control_code;
4846: l_dual_uom_ctl := inv_cache.item_rec.dual_uom_control;
4847: l_rsv_id := 0;
4848:
4841: l_sallocation_quantity := l_needed_sec_quantity;
4842: l_to_locator_id := p_to_locator_id;
4843:
4844: l_lot_divisible_flag := inv_cache.item_rec.lot_divisible_flag;
4845: l_lot_control_code := inv_cache.item_rec.lot_control_code;
4846: l_dual_uom_ctl := inv_cache.item_rec.dual_uom_control;
4847: l_rsv_id := 0;
4848:
4849: IF g_locs(p_record_id).lpn_id IS NOT NULL THEN
4842: l_to_locator_id := p_to_locator_id;
4843:
4844: l_lot_divisible_flag := inv_cache.item_rec.lot_divisible_flag;
4845: l_lot_control_code := inv_cache.item_rec.lot_control_code;
4846: l_dual_uom_ctl := inv_cache.item_rec.dual_uom_control;
4847: l_rsv_id := 0;
4848:
4849: IF g_locs(p_record_id).lpn_id IS NOT NULL THEN
4850: IF l_debug = 1 THEN
5139: --}
5140: ELSE --{
5141: -- fulfillment based on primary
5142: /* lot specific conversion 3986955*/
5143: IF (l_dual_uom_ctl > 1 AND inv_cache.item_rec.tracking_quantity_ind = 'PS') --{
5144: -- Bug 7587155 - item could be PS but not lot controlled!
5145: -- and nvl(g_locs(p_record_id).lot_number,'-9999') <> '-9999'
5146: THEN
5147: IF wms_engine_pvt.g_sec_qty_round_mode IS NOT NULL THEN --{
5546: IF l_debug = 1 THEN
5547: log_statement(l_api_name, 'p_transaction_temp_id', 'p_transaction_temp_id: ' || p_transaction_temp_id);
5548: log_statement(l_api_name, 'p_type_code', 'p_type_code: ' || p_type_code);
5549: END IF;
5550: IF inv_cache.set_mol_rec(p_transaction_temp_id) THEN
5551: l_transaction_type_id := inv_cache.mol_rec.transaction_type_id;
5552: END IF;
5553: IF l_debug = 1 THEN
5554: log_statement(l_api_name, 'l_transaction_type_id', 'l_transaction_type_id: ' || l_transaction_type_id);
5547: log_statement(l_api_name, 'p_transaction_temp_id', 'p_transaction_temp_id: ' || p_transaction_temp_id);
5548: log_statement(l_api_name, 'p_type_code', 'p_type_code: ' || p_type_code);
5549: END IF;
5550: IF inv_cache.set_mol_rec(p_transaction_temp_id) THEN
5551: l_transaction_type_id := inv_cache.mol_rec.transaction_type_id;
5552: END IF;
5553: IF l_debug = 1 THEN
5554: log_statement(l_api_name, 'l_transaction_type_id', 'l_transaction_type_id: ' || l_transaction_type_id);
5555: END IF;
5553: IF l_debug = 1 THEN
5554: log_statement(l_api_name, 'l_transaction_type_id', 'l_transaction_type_id: ' || l_transaction_type_id);
5555: END IF;
5556: IF l_transaction_type_id <> 0 THEN
5557: IF inv_cache.set_mtt_rec(l_transaction_type_id) THEN
5558: l_transaction_action_id := inv_cache.mtt_rec.transaction_action_id;
5559: l_transaction_source_type_id := inv_cache.mtt_rec.transaction_source_type_id;
5560: END IF;
5561: END IF;
5554: log_statement(l_api_name, 'l_transaction_type_id', 'l_transaction_type_id: ' || l_transaction_type_id);
5555: END IF;
5556: IF l_transaction_type_id <> 0 THEN
5557: IF inv_cache.set_mtt_rec(l_transaction_type_id) THEN
5558: l_transaction_action_id := inv_cache.mtt_rec.transaction_action_id;
5559: l_transaction_source_type_id := inv_cache.mtt_rec.transaction_source_type_id;
5560: END IF;
5561: END IF;
5562: l_to_subinventory_code := chk_for_passing_xfer_sub ( TO_NUMBER(p_transaction_temp_id) ,
5555: END IF;
5556: IF l_transaction_type_id <> 0 THEN
5557: IF inv_cache.set_mtt_rec(l_transaction_type_id) THEN
5558: l_transaction_action_id := inv_cache.mtt_rec.transaction_action_id;
5559: l_transaction_source_type_id := inv_cache.mtt_rec.transaction_source_type_id;
5560: END IF;
5561: END IF;
5562: l_to_subinventory_code := chk_for_passing_xfer_sub ( TO_NUMBER(p_transaction_temp_id) ,
5563: p_to_subinventory_code );
5634:
5635: -- bug 9378888 start
5636: IF l_debug = 1 THEN
5637: log_statement(l_api_name, 'validate and insert', 'Fetch the l_top_model_line_id using txn_source_line_id: '
5638: || inv_cache.mol_rec.txn_source_line_id);
5639: END IF;
5640: IF (p_type_code = 2
5641: AND l_transaction_action_id = inv_globals.g_action_stgxfr
5642: AND inv_cache.set_oola_rec(inv_cache.mol_rec.txn_source_line_id))
5638: || inv_cache.mol_rec.txn_source_line_id);
5639: END IF;
5640: IF (p_type_code = 2
5641: AND l_transaction_action_id = inv_globals.g_action_stgxfr
5642: AND inv_cache.set_oola_rec(inv_cache.mol_rec.txn_source_line_id))
5643: THEN
5644: l_top_model_line_id := inv_cache.oola_rec.top_model_line_id;
5645: ELSE
5646: l_top_model_line_id := NULL;
5640: IF (p_type_code = 2
5641: AND l_transaction_action_id = inv_globals.g_action_stgxfr
5642: AND inv_cache.set_oola_rec(inv_cache.mol_rec.txn_source_line_id))
5643: THEN
5644: l_top_model_line_id := inv_cache.oola_rec.top_model_line_id;
5645: ELSE
5646: l_top_model_line_id := NULL;
5647: END IF;
5648:
5667: IF (l_indivisible_flag = 'Y' AND l_att <> 0)
5668: THEN -- Bug12381218
5669: l_floored_att := FLOOR(l_att);
5670: -- Scale the secondary quantity
5671: IF (inv_cache.item_rec.tracking_quantity_ind = 'PS') --16500984
5672: THEN
5673: l_satt := (l_satt/l_att) * l_floored_att;
5674: l_satt := ROUND(l_satt,5);
5675: END IF;
5678: AND NVL(wms_engine_pvt.g_fulfillment_base,'P') = 'S'
5679: THEN
5680: l_floored_satt := FLOOR(l_satt);
5681: -- Scale the primary quantity
5682: IF inv_cache.item_rec.secondary_default_ind = 'F'
5683: THEN
5684: l_att := (l_att/l_satt) * l_floored_satt;
5685: l_att := ROUND(l_att,5);
5686: END IF;
6805:
6806: l_debug NUMBER;
6807:
6808: BEGIN
6809: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
6810: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6811: END IF;
6812: l_debug := g_debug;
6813:
7152: l_next_rec NUMBER;
7153:
7154: l_debug NUMBER;
7155: BEGIN
7156: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
7157: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
7158: END IF;
7159: l_debug := g_debug;
7160:
7326: l_prev_rec NUMBER := 0;
7327: l_original_needed_quantity NUMBER;
7328: l_original_needed_sec_qty NUMBER;
7329: l_uom_index NUMBER;
7330: l_lot_control_code NUMBER :=inv_cache.item_rec.lot_control_code; -- added for bug7267861
7331: l_insert NUMBER := 0; --bug# 8270806
7332: l_debug NUMBER;
7333: BEGIN
7334: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
7330: l_lot_control_code NUMBER :=inv_cache.item_rec.lot_control_code; -- added for bug7267861
7331: l_insert NUMBER := 0; --bug# 8270806
7332: l_debug NUMBER;
7333: BEGIN
7334: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
7335: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
7336: END IF;
7337: l_debug := g_debug;
7338:
7923:
7924: l_debug NUMBER;
7925:
7926: BEGIN
7927: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
7928: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
7929: END IF;
7930: l_debug := g_debug;
7931: IF l_debug = 1 THEN
8219: , p_debug_on => p_debug_on
8220: , p_needed_sec_quantity => p_needed_sec_quantity -- l_sec_needed_quantity; bug 10228168
8221: , p_secondary_uom => p_secondary_uom
8222: , p_grade_code => p_grade_code
8223: , p_lot_divisible_flag => inv_cache.item_rec.lot_divisible_flag
8224: , x_success => x_finished
8225: , p_orig_needed_quantity => p_orig_needed_quantity -- Added for 14699845 (Flexible lot allocation)
8226: , p_orig_needed_sec_qty => p_orig_needed_sec_qty -- Added for 14699845 (Flexible lot allocation)
8227: , p_simulation_mode => p_simulation_mode -- Added for 14699845 (Flexible lot allocation)
8279: l_prev_group NUMBER;
8280: l_next_group NUMBER;
8281: l_debug NUMBER;
8282: BEGIN
8283: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
8284: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
8285: END IF;
8286: l_debug := g_debug;
8287: IF l_debug = 1 THEN
8382: g_locator.segment19 := p_project_id;
8383: g_locator.segment20 := p_task_id;
8384:
8385: -- Cache for better performance
8386: retval := inv_cache.set_org_rec(g_locator.organization_id);
8387: /*
8388: select *
8389: into l_org
8390: from mtl_parameters
8389: into l_org
8390: from mtl_parameters
8391: where organization_id = l_locator.organization_id;
8392: */
8393: retval := inv_cache.set_tosub_rec(g_locator.organization_id, g_locator.subinventory_code);
8394: /* select *
8395: into l_sub
8396: from mtl_secondary_inventories
8397: where secondary_inventory_name = l_locator.subinventory_code
8398: and organization_id = l_locator.organization_id;
8399: */
8400: success := INV_Validate.ValidateLocator(
8401: p_locator => g_locator,
8402: p_org => inv_cache.org_rec,
8403: p_sub => inv_cache.tosub_rec,
8404: p_validation_mode => INV_Validate.EXISTS_OR_CREATE,
8405: p_value_or_id => 'I');
8406:
8399: */
8400: success := INV_Validate.ValidateLocator(
8401: p_locator => g_locator,
8402: p_org => inv_cache.org_rec,
8403: p_sub => inv_cache.tosub_rec,
8404: p_validation_mode => INV_Validate.EXISTS_OR_CREATE,
8405: p_value_or_id => 'I');
8406:
8407: COMMIT;
8644: l_serial_status_id NUMBER;
8645:
8646: ---
8647:
8648: l_serial_status INV_CACHE.ITEM_REC.serial_status_enabled%TYPE;
8649: l_lot_status INV_CACHE.ITEM_REC.lot_status_enabled%TYPE;
8650:
8651: ---- End Mat Status Var
8652:
8645:
8646: ---
8647:
8648: l_serial_status INV_CACHE.ITEM_REC.serial_status_enabled%TYPE;
8649: l_lot_status INV_CACHE.ITEM_REC.lot_status_enabled%TYPE;
8650:
8651: ---- End Mat Status Var
8652:
8653: l_lot_divisible_flag VARCHAR2(1);
8711: WHERE rule_id = l_rule_id;
8712:
8713:
8714: BEGIN
8715: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
8716: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
8717: END IF;
8718: l_debug := g_debug;
8719: l_progress := 10;
8719: l_progress := 10;
8720:
8721: -- debugging portion
8722: -- can be commented ut for final code
8723: IF (NVL(inv_cache.is_pickrelease, FALSE) OR p_wave_simulation_mode = 'Y') THEN
8724: IF (l_debug = 1) THEN
8725: log_event(l_api_name, 'Check if Pick Release', 'True');
8726: END IF;
8727: l_consider_staging_capacity := FALSE;
8752: fnd_msg_pub.initialize;
8753: END IF;
8754:
8755: -- LPN Status Project
8756: IF (inv_cache.set_org_rec(p_organization_id)) THEN
8757: l_default_status_id := NVL(inv_cache.org_rec.default_status_id,-1);
8758: IF l_debug = 1 THEN
8759: log_statement(l_api_name, 'Value of l_default_status_id: ', l_default_status_id);
8760: END IF;
8753: END IF;
8754:
8755: -- LPN Status Project
8756: IF (inv_cache.set_org_rec(p_organization_id)) THEN
8757: l_default_status_id := NVL(inv_cache.org_rec.default_status_id,-1);
8758: IF l_debug = 1 THEN
8759: log_statement(l_api_name, 'Value of l_default_status_id: ', l_default_status_id);
8760: END IF;
8761: END IF;
8790: /* get the org defaults */
8791: IF l_debug = 1 THEN
8792: log_statement(l_api_name,'no_rule','Getting default rule at org level');
8793: END IF;
8794: -- 8809951 start, removed cursors and using INV CACHE
8795: IF (INV_CACHE.set_org_rec(p_organization_id) ) THEN
8796: l_default_pick_rule := inv_cache.org_rec.default_wms_picking_rule_id;
8797: l_default_put_rule := inv_cache.org_rec.default_put_away_rule_id;
8798: l_rule_override_flag := inv_cache.org_rec.rules_override_lot_reservation;
8791: IF l_debug = 1 THEN
8792: log_statement(l_api_name,'no_rule','Getting default rule at org level');
8793: END IF;
8794: -- 8809951 start, removed cursors and using INV CACHE
8795: IF (INV_CACHE.set_org_rec(p_organization_id) ) THEN
8796: l_default_pick_rule := inv_cache.org_rec.default_wms_picking_rule_id;
8797: l_default_put_rule := inv_cache.org_rec.default_put_away_rule_id;
8798: l_rule_override_flag := inv_cache.org_rec.rules_override_lot_reservation;
8799: l_default_inv_pick_rule := inv_cache.org_rec.default_picking_rule_id;
8792: log_statement(l_api_name,'no_rule','Getting default rule at org level');
8793: END IF;
8794: -- 8809951 start, removed cursors and using INV CACHE
8795: IF (INV_CACHE.set_org_rec(p_organization_id) ) THEN
8796: l_default_pick_rule := inv_cache.org_rec.default_wms_picking_rule_id;
8797: l_default_put_rule := inv_cache.org_rec.default_put_away_rule_id;
8798: l_rule_override_flag := inv_cache.org_rec.rules_override_lot_reservation;
8799: l_default_inv_pick_rule := inv_cache.org_rec.default_picking_rule_id;
8800: l_wms_enabled_flag := inv_cache.org_rec.wms_enabled_flag;
8793: END IF;
8794: -- 8809951 start, removed cursors and using INV CACHE
8795: IF (INV_CACHE.set_org_rec(p_organization_id) ) THEN
8796: l_default_pick_rule := inv_cache.org_rec.default_wms_picking_rule_id;
8797: l_default_put_rule := inv_cache.org_rec.default_put_away_rule_id;
8798: l_rule_override_flag := inv_cache.org_rec.rules_override_lot_reservation;
8799: l_default_inv_pick_rule := inv_cache.org_rec.default_picking_rule_id;
8800: l_wms_enabled_flag := inv_cache.org_rec.wms_enabled_flag;
8801: END If;
8794: -- 8809951 start, removed cursors and using INV CACHE
8795: IF (INV_CACHE.set_org_rec(p_organization_id) ) THEN
8796: l_default_pick_rule := inv_cache.org_rec.default_wms_picking_rule_id;
8797: l_default_put_rule := inv_cache.org_rec.default_put_away_rule_id;
8798: l_rule_override_flag := inv_cache.org_rec.rules_override_lot_reservation;
8799: l_default_inv_pick_rule := inv_cache.org_rec.default_picking_rule_id;
8800: l_wms_enabled_flag := inv_cache.org_rec.wms_enabled_flag;
8801: END If;
8802:
8795: IF (INV_CACHE.set_org_rec(p_organization_id) ) THEN
8796: l_default_pick_rule := inv_cache.org_rec.default_wms_picking_rule_id;
8797: l_default_put_rule := inv_cache.org_rec.default_put_away_rule_id;
8798: l_rule_override_flag := inv_cache.org_rec.rules_override_lot_reservation;
8799: l_default_inv_pick_rule := inv_cache.org_rec.default_picking_rule_id;
8800: l_wms_enabled_flag := inv_cache.org_rec.wms_enabled_flag;
8801: END If;
8802:
8803: -- 8809951 end
8796: l_default_pick_rule := inv_cache.org_rec.default_wms_picking_rule_id;
8797: l_default_put_rule := inv_cache.org_rec.default_put_away_rule_id;
8798: l_rule_override_flag := inv_cache.org_rec.rules_override_lot_reservation;
8799: l_default_inv_pick_rule := inv_cache.org_rec.default_picking_rule_id;
8800: l_wms_enabled_flag := inv_cache.org_rec.wms_enabled_flag;
8801: END If;
8802:
8803: -- 8809951 end
8804: -- changed by jcearley on 11/22/99, b/c a null rule_id is now allowed
8970:
8971: g_trace_recs.DELETE;
8972: l_debug_on := isruledebugon(p_simulation_mode);
8973:
8974: l_return_value := INV_CACHE.set_item_rec(
8975: p_organization_id,
8976: p_inventory_item_id);
8977: IF NOT l_return_value THEN
8978: IF l_debug = 1 THEN
8980: END IF;
8981: RAISE fnd_api.g_exc_unexpected_error;
8982: END IF;
8983:
8984: l_serial_control_code := NVL(inv_cache.item_rec.serial_number_control_code,1);
8985: l_restrict_subs_code := NVL(inv_cache.item_rec.restrict_subinventories_code, 2);
8986: l_restrict_locs_code := NVL(inv_cache.item_rec.restrict_locators_code, 2);
8987: l_lot_divisible_flag := inv_cache.item_rec.lot_divisible_flag;
8988: l_lot_control_code := inv_cache.item_rec.lot_control_code;
8981: RAISE fnd_api.g_exc_unexpected_error;
8982: END IF;
8983:
8984: l_serial_control_code := NVL(inv_cache.item_rec.serial_number_control_code,1);
8985: l_restrict_subs_code := NVL(inv_cache.item_rec.restrict_subinventories_code, 2);
8986: l_restrict_locs_code := NVL(inv_cache.item_rec.restrict_locators_code, 2);
8987: l_lot_divisible_flag := inv_cache.item_rec.lot_divisible_flag;
8988: l_lot_control_code := inv_cache.item_rec.lot_control_code;
8989: l_revision_control_code := inv_cache.item_rec.revision_qty_control_code;
8982: END IF;
8983:
8984: l_serial_control_code := NVL(inv_cache.item_rec.serial_number_control_code,1);
8985: l_restrict_subs_code := NVL(inv_cache.item_rec.restrict_subinventories_code, 2);
8986: l_restrict_locs_code := NVL(inv_cache.item_rec.restrict_locators_code, 2);
8987: l_lot_divisible_flag := inv_cache.item_rec.lot_divisible_flag;
8988: l_lot_control_code := inv_cache.item_rec.lot_control_code;
8989: l_revision_control_code := inv_cache.item_rec.revision_qty_control_code;
8990: l_grade_control_flag := inv_cache.item_rec.grade_control_flag;
8983:
8984: l_serial_control_code := NVL(inv_cache.item_rec.serial_number_control_code,1);
8985: l_restrict_subs_code := NVL(inv_cache.item_rec.restrict_subinventories_code, 2);
8986: l_restrict_locs_code := NVL(inv_cache.item_rec.restrict_locators_code, 2);
8987: l_lot_divisible_flag := inv_cache.item_rec.lot_divisible_flag;
8988: l_lot_control_code := inv_cache.item_rec.lot_control_code;
8989: l_revision_control_code := inv_cache.item_rec.revision_qty_control_code;
8990: l_grade_control_flag := inv_cache.item_rec.grade_control_flag;
8991:
8984: l_serial_control_code := NVL(inv_cache.item_rec.serial_number_control_code,1);
8985: l_restrict_subs_code := NVL(inv_cache.item_rec.restrict_subinventories_code, 2);
8986: l_restrict_locs_code := NVL(inv_cache.item_rec.restrict_locators_code, 2);
8987: l_lot_divisible_flag := inv_cache.item_rec.lot_divisible_flag;
8988: l_lot_control_code := inv_cache.item_rec.lot_control_code;
8989: l_revision_control_code := inv_cache.item_rec.revision_qty_control_code;
8990: l_grade_control_flag := inv_cache.item_rec.grade_control_flag;
8991:
8992: -- Only detail serial numbers if they are prespecified or entered
8985: l_restrict_subs_code := NVL(inv_cache.item_rec.restrict_subinventories_code, 2);
8986: l_restrict_locs_code := NVL(inv_cache.item_rec.restrict_locators_code, 2);
8987: l_lot_divisible_flag := inv_cache.item_rec.lot_divisible_flag;
8988: l_lot_control_code := inv_cache.item_rec.lot_control_code;
8989: l_revision_control_code := inv_cache.item_rec.revision_qty_control_code;
8990: l_grade_control_flag := inv_cache.item_rec.grade_control_flag;
8991:
8992: -- Only detail serial numbers if they are prespecified or entered
8993: -- at inventory receipt for this item.
8986: l_restrict_locs_code := NVL(inv_cache.item_rec.restrict_locators_code, 2);
8987: l_lot_divisible_flag := inv_cache.item_rec.lot_divisible_flag;
8988: l_lot_control_code := inv_cache.item_rec.lot_control_code;
8989: l_revision_control_code := inv_cache.item_rec.revision_qty_control_code;
8990: l_grade_control_flag := inv_cache.item_rec.grade_control_flag;
8991:
8992: -- Only detail serial numbers if they are prespecified or entered
8993: -- at inventory receipt for this item.
8994: IF p_type_code = 2 THEN -- pick
9007: l_detail_serial := 0;
9008: END IF;
9009:
9010: -- Logic to improve the performance for Material Status Checks
9011: -- Getting Values from INV CACHE and setting the l_detail_serial flag based on the following algoritham
9012: -- Based on the l_detail_falg, Serial_material status would be checked inside the Rule packages or
9013: -- Rules Engine API.
9014: -- ** Serial Mat.Status Check inside Rule Sql(R) / Engine (E)
9015: /*------------------------------------------------------------------------------------------------
9026: N N Y Y Y N - 4
9027: N N N N(MOQD) N N - 0
9028: --------------------------------------------------------------------------------------------------*/
9029: IF l_is_serial_control = 1 THEN
9030: l_serial_status := INV_CACHE.ITEM_REC.serial_status_enabled;
9031: l_lot_status := INV_CACHE.ITEM_REC.lot_status_enabled;
9032:
9033: IF l_detail_serial = 1 THEN
9034: IF NVL(l_serial_status, 'N') = 'Y' THEN
9027: N N N N(MOQD) N N - 0
9028: --------------------------------------------------------------------------------------------------*/
9029: IF l_is_serial_control = 1 THEN
9030: l_serial_status := INV_CACHE.ITEM_REC.serial_status_enabled;
9031: l_lot_status := INV_CACHE.ITEM_REC.lot_status_enabled;
9032:
9033: IF l_detail_serial = 1 THEN
9034: IF NVL(l_serial_status, 'N') = 'Y' THEN
9035: l_detail_serial := 1;
9054:
9055: -- [ If the org level flag is set to use Custom logic for Serial numbers,
9056: -- the MSNT is used but grouped by sub/loc
9057: If p_type_code = 2 THEN
9058: l_allocate_serial_flag := inv_cache.org_rec.allocate_serial_flag;
9059: END IF;
9060:
9061: IF l_allocate_serial_flag = 'C' THEN
9062: l_detail_serial := 4;
9409: log_statement(l_api_name, 'detailed - l_sub_loc_lot_trx_allowed ', l_sub_loc_lot_trx_allowed);
9410: END IF;
9411: ELSE -- IF l_default_status_id = -1 THEN
9412: l_sub_loc_lot_trx_allowed:='N';
9413: IF (inv_cache.item_rec.serial_number_control_code in (1,6)) THEN
9414: l_onhand_status_trx_allowed := inv_detail_util_pvt.is_onhand_status_trx_allowed(
9415: p_transaction_type_id
9416: ,p_organization_id
9417: ,p_inventory_item_id
9638: g_first_lpn_group := 0;
9639: g_last_lpn_group := 0;
9640: l_cur_lpn_rec := 0;
9641:
9642: l_allocate_serial_flag := inv_cache.org_rec.allocate_serial_flag;
9643:
9644: IF l_debug = 1 THEN
9645: log_statement(l_api_name, 'alloc_lpns', 'Allocating Entire LPNs');
9646: log_statement(l_api_name, 'allocate_serial_flag', 'allocate_serial_flag = '||l_allocate_serial_flag);
9704: RAISE fnd_api.g_exc_error;
9705: END IF;
9706:
9707: -- Start 1 of bug 13026723 change
9708: IF inv_cache.set_mtt_rec(p_transaction_type_id) THEN
9709: IF ( v_current_row.lpn_id IS NOT NULL AND inv_cache.mtt_rec.transaction_source_type_id = 4
9710: AND inv_cache.mtt_rec.transaction_action_id= 2
9711: AND IS_LPN_CYC_RESERVED (p_organization_id,v_current_row.lpn_id) )
9712: THEN
9705: END IF;
9706:
9707: -- Start 1 of bug 13026723 change
9708: IF inv_cache.set_mtt_rec(p_transaction_type_id) THEN
9709: IF ( v_current_row.lpn_id IS NOT NULL AND inv_cache.mtt_rec.transaction_source_type_id = 4
9710: AND inv_cache.mtt_rec.transaction_action_id= 2
9711: AND IS_LPN_CYC_RESERVED (p_organization_id,v_current_row.lpn_id) )
9712: THEN
9713: IF l_debug = 1 THEN
9706:
9707: -- Start 1 of bug 13026723 change
9708: IF inv_cache.set_mtt_rec(p_transaction_type_id) THEN
9709: IF ( v_current_row.lpn_id IS NOT NULL AND inv_cache.mtt_rec.transaction_source_type_id = 4
9710: AND inv_cache.mtt_rec.transaction_action_id= 2
9711: AND IS_LPN_CYC_RESERVED (p_organization_id,v_current_row.lpn_id) )
9712: THEN
9713: IF l_debug = 1 THEN
9714: log_error(l_api_name, 'lpn cycle count reserved check ', 'This LPN has Cycle count reservation. Hence skipping it.');
9840: log_statement(l_api_name, 'fetch_cursor - l_sub_loc_lot_trx_allowed ', l_sub_loc_lot_trx_allowed);
9841: END IF;
9842: ELSE -- IF l_default_status_id = -1 THEN
9843: l_sub_loc_lot_trx_allowed:='N';
9844: IF (inv_cache.item_rec.serial_number_control_code in (1,6)) THEN
9845: l_onhand_status_trx_allowed := inv_detail_util_pvt.is_onhand_status_trx_allowed(
9846: p_transaction_type_id
9847: ,p_organization_id
9848: ,p_inventory_item_id
11139: log_statement(l_api_name, 'start_alloc', 'Start allocation process');
11140: END IF;
11141:
11142: -- bug#9589015 start
11143: l_allocate_serial_flag := inv_cache.org_rec.allocate_serial_flag;
11144:
11145: IF l_debug = 1 THEN
11146: log_statement(l_api_name, 'allocate_serial_flag', 'allocate_serial_flag = '||l_allocate_serial_flag);
11147: END IF;
11207: -- is_serial_trx_allowed is_sub_loc_lot_trx_allowed
11208: -- bug#9589015 start
11209:
11210: -- Start 2 of bug 13026723 change
11211: IF inv_cache.set_mtt_rec(p_transaction_type_id) THEN
11212: IF ( v_current_row.lpn_id IS NOT NULL AND inv_cache.mtt_rec.transaction_source_type_id = 4
11213: AND inv_cache.mtt_rec.transaction_action_id= 2
11214: AND IS_LPN_CYC_RESERVED (p_organization_id,v_current_row.lpn_id) )
11215: THEN
11208: -- bug#9589015 start
11209:
11210: -- Start 2 of bug 13026723 change
11211: IF inv_cache.set_mtt_rec(p_transaction_type_id) THEN
11212: IF ( v_current_row.lpn_id IS NOT NULL AND inv_cache.mtt_rec.transaction_source_type_id = 4
11213: AND inv_cache.mtt_rec.transaction_action_id= 2
11214: AND IS_LPN_CYC_RESERVED (p_organization_id,v_current_row.lpn_id) )
11215: THEN
11216: IF l_debug = 1 THEN
11209:
11210: -- Start 2 of bug 13026723 change
11211: IF inv_cache.set_mtt_rec(p_transaction_type_id) THEN
11212: IF ( v_current_row.lpn_id IS NOT NULL AND inv_cache.mtt_rec.transaction_source_type_id = 4
11213: AND inv_cache.mtt_rec.transaction_action_id= 2
11214: AND IS_LPN_CYC_RESERVED (p_organization_id,v_current_row.lpn_id) )
11215: THEN
11216: IF l_debug = 1 THEN
11217: log_error(l_api_name, 'lpn cycle count reserved check ',
11343: log_statement(l_api_name, 'fetch_cursor - l_sub_loc_lot_trx_allowed: ', l_sub_loc_lot_trx_allowed);
11344: END IF;
11345: ELSE
11346: l_sub_loc_lot_trx_allowed:='N';
11347: IF (inv_cache.item_rec.serial_number_control_code IN (1,6)) THEN
11348: l_onhand_status_trx_allowed := inv_detail_util_pvt.is_onhand_status_trx_allowed(
11349: p_transaction_type_id
11350: ,p_organization_id
11351: ,p_inventory_item_id
11660: , p_debug_on => l_debug_on
11661: , p_needed_sec_quantity => l_sec_needed_quantity
11662: , p_secondary_uom => p_secondary_uom
11663: , p_grade_code => p_grade_code
11664: , p_lot_divisible_flag => inv_cache.item_rec.lot_divisible_flag
11665: , x_success => l_finished
11666: , p_orig_needed_quantity => l_orig_needed_quantity -- Added for 14699845 (Flexible lot allocation)
11667: , p_orig_needed_sec_qty => l_orig_needed_sec_qty -- Added for 14699845 (Flexible lot allocation)
11668: , p_simulation_mode => p_simulation_mode -- Added for 14699845 (Flexible lot allocation)
12482: -- to reservable sub only;
12483: --we know if sub has to be reservable based on global value set in
12484: -- create_suggestions
12485: IF wms_engine_pvt.g_reservable_putaway_sub_only THEN
12486: -- 8809951 removed curosr and using INV CACHE
12487: IF (inv_cache. set_tosub_rec(p_organization_id, l_osubinventory_code) ) THEN
12488: l_lpn_controlled_flag := inv_cache.tosub_rec.lpn_controlled_flag;
12489: l_sub_rsv_type := inv_cache.tosub_rec.reservable_type;
12490: END IF;
12483: --we know if sub has to be reservable based on global value set in
12484: -- create_suggestions
12485: IF wms_engine_pvt.g_reservable_putaway_sub_only THEN
12486: -- 8809951 removed curosr and using INV CACHE
12487: IF (inv_cache. set_tosub_rec(p_organization_id, l_osubinventory_code) ) THEN
12488: l_lpn_controlled_flag := inv_cache.tosub_rec.lpn_controlled_flag;
12489: l_sub_rsv_type := inv_cache.tosub_rec.reservable_type;
12490: END IF;
12491:
12484: -- create_suggestions
12485: IF wms_engine_pvt.g_reservable_putaway_sub_only THEN
12486: -- 8809951 removed curosr and using INV CACHE
12487: IF (inv_cache. set_tosub_rec(p_organization_id, l_osubinventory_code) ) THEN
12488: l_lpn_controlled_flag := inv_cache.tosub_rec.lpn_controlled_flag;
12489: l_sub_rsv_type := inv_cache.tosub_rec.reservable_type;
12490: END IF;
12491:
12492: If l_sub_rsv_type <> 1 Then
12485: IF wms_engine_pvt.g_reservable_putaway_sub_only THEN
12486: -- 8809951 removed curosr and using INV CACHE
12487: IF (inv_cache. set_tosub_rec(p_organization_id, l_osubinventory_code) ) THEN
12488: l_lpn_controlled_flag := inv_cache.tosub_rec.lpn_controlled_flag;
12489: l_sub_rsv_type := inv_cache.tosub_rec.reservable_type;
12490: END IF;
12491:
12492: If l_sub_rsv_type <> 1 Then
12493: IF l_debug = 1 THEN
12878:
12879: --only execute query if we did not already find lpn_controlled_flag
12880: -- when determining if sub is reservable
12881: If l_lpn_controlled_flag IS NULL Then
12882: --8809951 Removed cursor and using INV CACHE
12883: IF (inv_cache. set_tosub_rec(p_organization_id, l_osubinventory_code) ) THEN
12884: l_lpn_controlled_flag := inv_cache.tosub_rec.lpn_controlled_flag;
12885: l_sub_rsv_type := inv_cache.tosub_rec.reservable_type;
12886: END IF;
12879: --only execute query if we did not already find lpn_controlled_flag
12880: -- when determining if sub is reservable
12881: If l_lpn_controlled_flag IS NULL Then
12882: --8809951 Removed cursor and using INV CACHE
12883: IF (inv_cache. set_tosub_rec(p_organization_id, l_osubinventory_code) ) THEN
12884: l_lpn_controlled_flag := inv_cache.tosub_rec.lpn_controlled_flag;
12885: l_sub_rsv_type := inv_cache.tosub_rec.reservable_type;
12886: END IF;
12887: End If;
12880: -- when determining if sub is reservable
12881: If l_lpn_controlled_flag IS NULL Then
12882: --8809951 Removed cursor and using INV CACHE
12883: IF (inv_cache. set_tosub_rec(p_organization_id, l_osubinventory_code) ) THEN
12884: l_lpn_controlled_flag := inv_cache.tosub_rec.lpn_controlled_flag;
12885: l_sub_rsv_type := inv_cache.tosub_rec.reservable_type;
12886: END IF;
12887: End If;
12888:
12881: If l_lpn_controlled_flag IS NULL Then
12882: --8809951 Removed cursor and using INV CACHE
12883: IF (inv_cache. set_tosub_rec(p_organization_id, l_osubinventory_code) ) THEN
12884: l_lpn_controlled_flag := inv_cache.tosub_rec.lpn_controlled_flag;
12885: l_sub_rsv_type := inv_cache.tosub_rec.reservable_type;
12886: END IF;
12887: End If;
12888:
12889: -- Start Added for Bug 14784282(FP of 11i bug 14757458)
13769: ELSE
13770: l_putaway_sub := p_to_subinventory_code ;
13771: END IF;
13772:
13773: l_sub_found := INV_CACHE.set_tosub_rec(l_organization_id, l_putaway_sub);
13774:
13775: -- now get the locator control and then determine if
13776: -- default locator needs to be selected from item defaults
13777: --
13780: fnd_msg_pub.ADD;
13781: RAISE fnd_api.g_exc_error;
13782: END if;
13783:
13784: l_sub_loc_control := INV_CACHE.tosub_rec.locator_type;
13785:
13786: IF l_debug = 1 THEN
13787: log_statement(l_api_name, 'p_org_locator_control_code', p_org_locator_control_code);
13788: log_statement(l_api_name, 'l_sub_loc_control ' , l_sub_loc_control);
13838: -- If not defined there, or if avg. costing org
13839: -- try to get the default cost group from the organization
13840:
13841: IF p_to_cost_group_id IS NULL THEN
13842: IF INV_CACHE.set_org_rec(l_organization_id) THEN
13843: l_primary_cost_method := INV_CACHE.org_rec.primary_cost_method;
13844: l_putaway_cg_org := INV_CACHE.org_rec.default_cost_group_id;
13845: ELSE
13846: l_primary_cost_method := 2;
13839: -- try to get the default cost group from the organization
13840:
13841: IF p_to_cost_group_id IS NULL THEN
13842: IF INV_CACHE.set_org_rec(l_organization_id) THEN
13843: l_primary_cost_method := INV_CACHE.org_rec.primary_cost_method;
13844: l_putaway_cg_org := INV_CACHE.org_rec.default_cost_group_id;
13845: ELSE
13846: l_primary_cost_method := 2;
13847: l_putaway_cg_org := NULL;
13840:
13841: IF p_to_cost_group_id IS NULL THEN
13842: IF INV_CACHE.set_org_rec(l_organization_id) THEN
13843: l_primary_cost_method := INV_CACHE.org_rec.primary_cost_method;
13844: l_putaway_cg_org := INV_CACHE.org_rec.default_cost_group_id;
13845: ELSE
13846: l_primary_cost_method := 2;
13847: l_putaway_cg_org := NULL;
13848: End If;
13848: End If;
13849:
13850: If l_primary_cost_method = 1 Then
13851: IF l_sub_found THEN
13852: l_putaway_cg := INV_CACHE.tosub_rec.default_cost_group_id;
13853: ELSE
13854: l_putaway_cg := NULL;
13855: end if;
13856: End If;
14043:
14044:
14045: BEGIN
14046:
14047: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
14048: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
14049: END IF;
14050: l_debug := g_debug;
14051:
14209: p_inventory_item_id,
14210: l_to_subinventory_code,
14211: l_to_locator_id,
14212: l_to_cg_id, --10244350
14213: inv_cache.org_rec.stock_locator_control_code,
14214: inv_cache.item_rec.location_control_code,
14215: p_transaction_type_id,
14216: x_subinventory_code ,
14217: x_locator_id,
14210: l_to_subinventory_code,
14211: l_to_locator_id,
14212: l_to_cg_id, --10244350
14213: inv_cache.org_rec.stock_locator_control_code,
14214: inv_cache.item_rec.location_control_code,
14215: p_transaction_type_id,
14216: x_subinventory_code ,
14217: x_locator_id,
14218: x_cost_group_id,
16982: l_rule_counter INTEGER;
16983: BEGIN
16984: SAVEPOINT assignttsp;
16985:
16986: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
16987: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
16988: END IF;
16989: l_debug := g_debug;
16990:
17331: AND (rules.organization_id = wlr.organization_id
17332: OR rules.organization_id = -1
17333: ) ;
17334: ----
17335: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
17336: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
17337: END IF;
17338: l_debug := g_debug;
17339: IF l_debug = 1 THEN
17760:
17761:
17762: BEGIN
17763:
17764: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
17765: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
17766: END IF;
17767: l_debug := g_debug;
17768: l_progress := 10;
17880: */
17881: END IF;
17882:
17883: -- LPN Status Project
17884: if (inv_cache.set_org_rec(p_organization_id)) then
17885: l_default_status_id := nvl(inv_cache.org_rec.default_status_id,-1);
17886: end if;
17887: -- LPN Status Project
17888: --
17881: END IF;
17882:
17883: -- LPN Status Project
17884: if (inv_cache.set_org_rec(p_organization_id)) then
17885: l_default_status_id := nvl(inv_cache.org_rec.default_status_id,-1);
17886: end if;
17887: -- LPN Status Project
17888: --
17889: -- backup qty tree
18006:
18007:
18008: ELSE
18009: l_allowed:='N';
18010: if (inv_cache.item_rec.serial_number_control_code in (1,6)) then
18011: l_onhand_status_trx_allowed := inv_detail_util_pvt.is_onhand_status_trx_allowed(
18012: p_transaction_type_id
18013: ,p_organization_id
18014: ,p_inventory_item_id
18029: IF l_debug = 1 THEN
18030: log_error_msg(l_api_name, x_msg_data);
18031: END IF;
18032: END IF;
18033: end if; -- if (inv_cache.item_rec.serial_number_control_code in (1,6))
18034:
18035: END IF; -- IF l_default_status_id = -1
18036:
18037: --LPN Status Project
18520: -- especially useful when exception occurs
18521:
18522: l_default_inv_pick_rule NUMBER; --added for bug8310188
18523: l_wms_enabled_flag VARCHAR2(1); --added for bug8310188
18524: l_rule_override_flag inv_cache.org_rec.rules_override_lot_reservation%TYPE; -- 8809951
18525: l_return_value BOOLEAN; -- 8809951
18526:
18527: --cursor used to determine if suggestions should be minimized
18528: -- for this rule. This flag affects how the Pick UOM functionality
18551: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
18552: l_progress := 10;
18553: -- debugging portion
18554: -- can be commented ut for final code
18555: if nvl(inv_cache.is_pickrelease, FALSE) THEN
18556: If (l_debug = 1) then
18557: log_event(l_api_name, 'Check if Pick Release', 'True');
18558: End if;
18559: l_consider_staging_capacity := FALSE;
18620: --query org parameters to get user's default rule
18621: IF l_debug = 1 THEN
18622: log_statement(l_api_name,'no_rule','Getting default rule at org level');
18623: END IF;
18624: -- 8809951 removed cursor and using INV CACHE
18625: IF (INV_CACHE. set_org_rec(p_organization_id) ) THEN
18626: l_default_pick_rule := inv_cache.org_rec.default_wms_picking_rule_id;
18627: l_default_put_rule := inv_cache.org_rec.default_put_away_rule_id;
18628: l_rule_override_flag := inv_cache.org_rec.rules_override_lot_reservation;
18621: IF l_debug = 1 THEN
18622: log_statement(l_api_name,'no_rule','Getting default rule at org level');
18623: END IF;
18624: -- 8809951 removed cursor and using INV CACHE
18625: IF (INV_CACHE. set_org_rec(p_organization_id) ) THEN
18626: l_default_pick_rule := inv_cache.org_rec.default_wms_picking_rule_id;
18627: l_default_put_rule := inv_cache.org_rec.default_put_away_rule_id;
18628: l_rule_override_flag := inv_cache.org_rec.rules_override_lot_reservation;
18629: l_default_inv_pick_rule := inv_cache.org_rec.default_picking_rule_id;
18622: log_statement(l_api_name,'no_rule','Getting default rule at org level');
18623: END IF;
18624: -- 8809951 removed cursor and using INV CACHE
18625: IF (INV_CACHE. set_org_rec(p_organization_id) ) THEN
18626: l_default_pick_rule := inv_cache.org_rec.default_wms_picking_rule_id;
18627: l_default_put_rule := inv_cache.org_rec.default_put_away_rule_id;
18628: l_rule_override_flag := inv_cache.org_rec.rules_override_lot_reservation;
18629: l_default_inv_pick_rule := inv_cache.org_rec.default_picking_rule_id;
18630: l_wms_enabled_flag := inv_cache.org_rec.wms_enabled_flag;
18623: END IF;
18624: -- 8809951 removed cursor and using INV CACHE
18625: IF (INV_CACHE. set_org_rec(p_organization_id) ) THEN
18626: l_default_pick_rule := inv_cache.org_rec.default_wms_picking_rule_id;
18627: l_default_put_rule := inv_cache.org_rec.default_put_away_rule_id;
18628: l_rule_override_flag := inv_cache.org_rec.rules_override_lot_reservation;
18629: l_default_inv_pick_rule := inv_cache.org_rec.default_picking_rule_id;
18630: l_wms_enabled_flag := inv_cache.org_rec.wms_enabled_flag;
18631: END If;
18624: -- 8809951 removed cursor and using INV CACHE
18625: IF (INV_CACHE. set_org_rec(p_organization_id) ) THEN
18626: l_default_pick_rule := inv_cache.org_rec.default_wms_picking_rule_id;
18627: l_default_put_rule := inv_cache.org_rec.default_put_away_rule_id;
18628: l_rule_override_flag := inv_cache.org_rec.rules_override_lot_reservation;
18629: l_default_inv_pick_rule := inv_cache.org_rec.default_picking_rule_id;
18630: l_wms_enabled_flag := inv_cache.org_rec.wms_enabled_flag;
18631: END If;
18632:
18625: IF (INV_CACHE. set_org_rec(p_organization_id) ) THEN
18626: l_default_pick_rule := inv_cache.org_rec.default_wms_picking_rule_id;
18627: l_default_put_rule := inv_cache.org_rec.default_put_away_rule_id;
18628: l_rule_override_flag := inv_cache.org_rec.rules_override_lot_reservation;
18629: l_default_inv_pick_rule := inv_cache.org_rec.default_picking_rule_id;
18630: l_wms_enabled_flag := inv_cache.org_rec.wms_enabled_flag;
18631: END If;
18632:
18633: --if default rule not defined, use default seeded rule
18626: l_default_pick_rule := inv_cache.org_rec.default_wms_picking_rule_id;
18627: l_default_put_rule := inv_cache.org_rec.default_put_away_rule_id;
18628: l_rule_override_flag := inv_cache.org_rec.rules_override_lot_reservation;
18629: l_default_inv_pick_rule := inv_cache.org_rec.default_picking_rule_id;
18630: l_wms_enabled_flag := inv_cache.org_rec.wms_enabled_flag;
18631: END If;
18632:
18633: --if default rule not defined, use default seeded rule
18634: IF p_type_code = 1 THEN --put away
18813: g_trace_recs.DELETE;
18814: l_debug_on := isruledebugon(p_simulation_mode);
18815: --query items table to see if item is serial controlled (picking) or if it
18816: -- restricts subs or locators (putaway)
18817: -- 8809951 start removed cursor and using INV CACHE
18818: l_return_value := INV_CACHE.set_item_rec(
18819: p_organization_id,
18820: p_inventory_item_id);
18821: If NOT l_return_value Then
18814: l_debug_on := isruledebugon(p_simulation_mode);
18815: --query items table to see if item is serial controlled (picking) or if it
18816: -- restricts subs or locators (putaway)
18817: -- 8809951 start removed cursor and using INV CACHE
18818: l_return_value := INV_CACHE.set_item_rec(
18819: p_organization_id,
18820: p_inventory_item_id);
18821: If NOT l_return_value Then
18822: If l_debug = 1 then
18824: end if;
18825: RAISE fnd_api.g_exc_unexpected_error;
18826: End If;
18827:
18828: l_serial_control_code := NVL(inv_cache.item_rec.serial_number_control_code,1);
18829: l_restrict_subs_code := NVL(inv_cache.item_rec.restrict_subinventories_code, 2);
18830: l_restrict_locs_code := NVL(inv_cache.item_rec.restrict_locators_code, 2);
18831: -- 8809951 end
18832:
18825: RAISE fnd_api.g_exc_unexpected_error;
18826: End If;
18827:
18828: l_serial_control_code := NVL(inv_cache.item_rec.serial_number_control_code,1);
18829: l_restrict_subs_code := NVL(inv_cache.item_rec.restrict_subinventories_code, 2);
18830: l_restrict_locs_code := NVL(inv_cache.item_rec.restrict_locators_code, 2);
18831: -- 8809951 end
18832:
18833: -- Only detail serial numbers if they are prespecified or entered
18826: End If;
18827:
18828: l_serial_control_code := NVL(inv_cache.item_rec.serial_number_control_code,1);
18829: l_restrict_subs_code := NVL(inv_cache.item_rec.restrict_subinventories_code, 2);
18830: l_restrict_locs_code := NVL(inv_cache.item_rec.restrict_locators_code, 2);
18831: -- 8809951 end
18832:
18833: -- Only detail serial numbers if they are prespecified or entered
18834: -- at inventory receipt for this item.
19253: l_update BOOLEAN := FALSE;
19254:
19255: BEGIN
19256:
19257: IF inv_cache.set_org_rec(p_organization_id) THEN
19258: l_proj_ref_enabled := inv_cache.org_rec.project_reference_enabled;
19259: l_wms_enabled_flag := inv_cache.org_rec.wms_enabled_flag; -- Added for Bug 12585446
19260: END IF;
19261:
19254:
19255: BEGIN
19256:
19257: IF inv_cache.set_org_rec(p_organization_id) THEN
19258: l_proj_ref_enabled := inv_cache.org_rec.project_reference_enabled;
19259: l_wms_enabled_flag := inv_cache.org_rec.wms_enabled_flag; -- Added for Bug 12585446
19260: END IF;
19261:
19262:
19255: BEGIN
19256:
19257: IF inv_cache.set_org_rec(p_organization_id) THEN
19258: l_proj_ref_enabled := inv_cache.org_rec.project_reference_enabled;
19259: l_wms_enabled_flag := inv_cache.org_rec.wms_enabled_flag; -- Added for Bug 12585446
19260: END IF;
19261:
19262:
19263: IF l_proj_ref_enabled is null or l_proj_ref_enabled <> 1 THEN
19352: log_statement(l_api_name, 'get_allocate_lot_flag', 'p_revision: '|| p_revision);
19353: log_statement(l_api_name, 'get_allocate_lot_flag', 'p_lpn_id: '|| p_lpn_id);
19354: END IF;
19355:
19356: IF inv_cache.set_org_rec(p_organization_id) THEN
19357: l_allocate_lot_flag := NVL (inv_flex_lot_allocation_pub.get_allocate_lot_flag
19358: ( p_organization_id => p_organization_id
19359: , p_move_order_line_id => p_move_order_line_id
19360: , p_transaction_temp_id => p_transaction_temp_id