[Home] [Help]
134:
135: l_wms_txn_temp_tbl_size NUMBER;
136: l_temp_id_tbl g_number_tbl_type;
137: BEGIN
138: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
139: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
140: END IF;
141: l_debug := g_debug;
142: IF l_debug = 1 THEN
286: ) IS
287: l_api_name CONSTANT VARCHAR2(30) := 'purge_detail_temp_records';
288: l_debug NUMBER;
289: BEGIN
290: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
291: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
292: END IF;
293: l_debug := g_debug;
294: IF l_debug = 1 THEN
356: l_wms_txn_temp_tbl g_wms_txn_temp_tbl_type;
357: l_wms_txn_temp_tbl_size NUMBER;
358: l_debug NUMBER;
359: BEGIN
360: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
361: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
362: END IF;
363: l_debug := g_debug;
364: IF l_debug = 1 THEN
486: l_debug NUMBER;
487: l_rsv_ctr NUMBER; -- [ Added to track number of detailed serial numbers ]
488: --
489: BEGIN
490: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
491: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
492: END IF;
493: l_debug := g_debug;
494: IF l_debug = 1 THEN
791: x_msg_data VARCHAR2(2000);
792: -- Added for Bug 6063903
793:
794: BEGIN
795: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
796: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
797: END IF;
798: l_debug := g_debug;
799: IF l_debug = 1 THEN
1139: l_curr_rec inv_detail_util_pvt.g_output_process_rec_type;
1140: l_debug NUMBER;
1141: --
1142: BEGIN
1143: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
1144: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1145: END IF;
1146: l_debug := g_debug;
1147: IF l_debug = 1 THEN
1350: l_sec_xfer_qty NUMBER;
1351: l_grade_code VARCHAR2(150);
1352: l_debug NUMBER;
1353: BEGIN
1354: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
1355: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1356: END IF;
1357: l_debug := g_debug;
1358: IF l_debug = 1 THEN
1814: WHERE uom_code = p_uom;
1815:
1816: BEGIN
1817:
1818: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
1819: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1820: END IF;
1821: l_debug := g_debug;
1822: l_progress := 10;
2048: --setting global variables used in wms_rule_pvt.
2049: If l_debug = 1 THEN
2050: log_event(l_api_name, 'Create Suggestions', 'before fetching move order type '||l_move_order_type);
2051: END IF;
2052: --8809951 start, Removed code to fetch from cursor and fetched it from INV.CACHE
2053:
2054: IF NOT inv_cache. set_mtrh_rec(l_request_line_rec.header_id) THEN
2055: If l_debug = 1 THEN
2056: log_event(l_api_name,'Create Suggestions','MTRH not found ');
2050: log_event(l_api_name, 'Create Suggestions', 'before fetching move order type '||l_move_order_type);
2051: END IF;
2052: --8809951 start, Removed code to fetch from cursor and fetched it from INV.CACHE
2053:
2054: IF NOT inv_cache. set_mtrh_rec(l_request_line_rec.header_id) THEN
2055: If l_debug = 1 THEN
2056: log_event(l_api_name,'Create Suggestions','MTRH not found ');
2057: End If;
2058: RAISE fnd_api.g_exc_unexpected_error;
2056: log_event(l_api_name,'Create Suggestions','MTRH not found ');
2057: End If;
2058: RAISE fnd_api.g_exc_unexpected_error;
2059: END IF;
2060: l_move_order_type :=inv_cache.mtrh_rec.move_order_type;
2061: --8809951 end
2062: IF l_debug = 1 THEN
2063: log_event(l_api_name, 'Create Suggestions', 'after fetching move order type '||l_move_order_type);
2064: log_event(l_api_name, 'Create Suggestions', 'before fetching wip entity type'||l_wip_entity_type);
2094: --log_event(l_api_name, 'Create Suggestions', 'else ');
2095: g_dest_sub_pick_allowed := 0;
2096: END IF; -- bug 3972784 populate the globals regardless.
2097:
2098: --8809951 start Removed cursors and using INV_CACHE
2099:
2100: IF (inv_cache.set_fromsub_rec(l_request_line_rec.organization_id, l_request_line_rec.from_subinventory_code))
2101: THEN
2102: l_loc_control_from:=inv_cache. fromsub_rec.locator_type;
2096: END IF; -- bug 3972784 populate the globals regardless.
2097:
2098: --8809951 start Removed cursors and using INV_CACHE
2099:
2100: IF (inv_cache.set_fromsub_rec(l_request_line_rec.organization_id, l_request_line_rec.from_subinventory_code))
2101: THEN
2102: l_loc_control_from:=inv_cache. fromsub_rec.locator_type;
2103: END IF;
2104: IF (inv_cache.set_tosub_rec(l_request_line_rec.to_organization_id, l_request_line_rec.to_subinventory_code))
2098: --8809951 start Removed cursors and using INV_CACHE
2099:
2100: IF (inv_cache.set_fromsub_rec(l_request_line_rec.organization_id, l_request_line_rec.from_subinventory_code))
2101: THEN
2102: l_loc_control_from:=inv_cache. fromsub_rec.locator_type;
2103: END IF;
2104: IF (inv_cache.set_tosub_rec(l_request_line_rec.to_organization_id, l_request_line_rec.to_subinventory_code))
2105: THEN
2106: l_loc_control_to:=inv_cache. tosub_rec.locator_type;
2100: IF (inv_cache.set_fromsub_rec(l_request_line_rec.organization_id, l_request_line_rec.from_subinventory_code))
2101: THEN
2102: l_loc_control_from:=inv_cache. fromsub_rec.locator_type;
2103: END IF;
2104: IF (inv_cache.set_tosub_rec(l_request_line_rec.to_organization_id, l_request_line_rec.to_subinventory_code))
2105: THEN
2106: l_loc_control_to:=inv_cache. tosub_rec.locator_type;
2107: END IF;
2108: IF ( INV_CACHE.set_item_rec(l_request_line_rec.organization_id, l_request_line_rec.inventory_item_id) )
2102: l_loc_control_from:=inv_cache. fromsub_rec.locator_type;
2103: END IF;
2104: IF (inv_cache.set_tosub_rec(l_request_line_rec.to_organization_id, l_request_line_rec.to_subinventory_code))
2105: THEN
2106: l_loc_control_to:=inv_cache. tosub_rec.locator_type;
2107: END IF;
2108: IF ( INV_CACHE.set_item_rec(l_request_line_rec.organization_id, l_request_line_rec.inventory_item_id) )
2109: THEN
2110: l_item_control_from:= inv_cache.item_rec.location_control_code;
2104: IF (inv_cache.set_tosub_rec(l_request_line_rec.to_organization_id, l_request_line_rec.to_subinventory_code))
2105: THEN
2106: l_loc_control_to:=inv_cache. tosub_rec.locator_type;
2107: END IF;
2108: IF ( INV_CACHE.set_item_rec(l_request_line_rec.organization_id, l_request_line_rec.inventory_item_id) )
2109: THEN
2110: l_item_control_from:= inv_cache.item_rec.location_control_code;
2111: END IF;
2112: IF ( INV_CACHE.set_item_rec(l_request_line_rec.to_organization_id, l_request_line_rec.inventory_item_id) )
2106: l_loc_control_to:=inv_cache. tosub_rec.locator_type;
2107: END IF;
2108: IF ( INV_CACHE.set_item_rec(l_request_line_rec.organization_id, l_request_line_rec.inventory_item_id) )
2109: THEN
2110: l_item_control_from:= inv_cache.item_rec.location_control_code;
2111: END IF;
2112: IF ( INV_CACHE.set_item_rec(l_request_line_rec.to_organization_id, l_request_line_rec.inventory_item_id) )
2113: THEN
2114: l_item_control_to := inv_cache.item_rec.location_control_code;
2108: IF ( INV_CACHE.set_item_rec(l_request_line_rec.organization_id, l_request_line_rec.inventory_item_id) )
2109: THEN
2110: l_item_control_from:= inv_cache.item_rec.location_control_code;
2111: END IF;
2112: IF ( INV_CACHE.set_item_rec(l_request_line_rec.to_organization_id, l_request_line_rec.inventory_item_id) )
2113: THEN
2114: l_item_control_to := inv_cache.item_rec.location_control_code;
2115: END IF;
2116: IF (INV_CACHE.set_org_rec(l_request_line_rec.organization_id) ) THEN
2110: l_item_control_from:= inv_cache.item_rec.location_control_code;
2111: END IF;
2112: IF ( INV_CACHE.set_item_rec(l_request_line_rec.to_organization_id, l_request_line_rec.inventory_item_id) )
2113: THEN
2114: l_item_control_to := inv_cache.item_rec.location_control_code;
2115: END IF;
2116: IF (INV_CACHE.set_org_rec(l_request_line_rec.organization_id) ) THEN
2117: l_org_loc_control := inv_cache.org_rec. stock_locator_control_code;
2118: END If;
2112: IF ( INV_CACHE.set_item_rec(l_request_line_rec.to_organization_id, l_request_line_rec.inventory_item_id) )
2113: THEN
2114: l_item_control_to := inv_cache.item_rec.location_control_code;
2115: END IF;
2116: IF (INV_CACHE.set_org_rec(l_request_line_rec.organization_id) ) THEN
2117: l_org_loc_control := inv_cache.org_rec. stock_locator_control_code;
2118: END If;
2119:
2120: g_sub_loc_control := NVL(l_loc_control_from, l_loc_control_to);
2113: THEN
2114: l_item_control_to := inv_cache.item_rec.location_control_code;
2115: END IF;
2116: IF (INV_CACHE.set_org_rec(l_request_line_rec.organization_id) ) THEN
2117: l_org_loc_control := inv_cache.org_rec. stock_locator_control_code;
2118: END If;
2119:
2120: g_sub_loc_control := NVL(l_loc_control_from, l_loc_control_to);
2121: g_item_loc_control := NVL(l_item_control_from, l_item_control_to);
2173: g_sec_qty_round_mode := NULL;
2174: g_fulfillment_base := 'P';
2175:
2176: IF l_request_context.type_code = 2 THEN --{
2177: IF (inv_cache.set_item_rec(
2178: l_request_line_rec.to_organization_id
2179: ,l_request_line_rec.inventory_item_id))
2180: THEN --{
2181: IF inv_cache.item_rec.dual_uom_control > 1 AND
2177: IF (inv_cache.set_item_rec(
2178: l_request_line_rec.to_organization_id
2179: ,l_request_line_rec.inventory_item_id))
2180: THEN --{
2181: IF inv_cache.item_rec.dual_uom_control > 1 AND
2182: inv_cache.item_rec.tracking_quantity_ind = 'PS'
2183: THEN --{
2184: IF inv_cache.set_mol_rec(p_transaction_temp_id) THEN
2185: IF l_request_context.transaction_action_id = 28
2178: l_request_line_rec.to_organization_id
2179: ,l_request_line_rec.inventory_item_id))
2180: THEN --{
2181: IF inv_cache.item_rec.dual_uom_control > 1 AND
2182: inv_cache.item_rec.tracking_quantity_ind = 'PS'
2183: THEN --{
2184: IF inv_cache.set_mol_rec(p_transaction_temp_id) THEN
2185: IF l_request_context.transaction_action_id = 28
2186: AND l_request_context.transaction_source_type_id IN (2,8)
2180: THEN --{
2181: IF inv_cache.item_rec.dual_uom_control > 1 AND
2182: inv_cache.item_rec.tracking_quantity_ind = 'PS'
2183: THEN --{
2184: IF inv_cache.set_mol_rec(p_transaction_temp_id) THEN
2185: IF l_request_context.transaction_action_id = 28
2186: AND l_request_context.transaction_source_type_id IN (2,8)
2187: THEN
2188: IF l_debug = 1 THEN
2187: THEN
2188: IF l_debug = 1 THEN
2189: log_error(l_api_name,'Create Suggestions','Staging transfer');
2190: END IF;
2191: IF NVL(OE_DUAL_UOM_UTIL.get_fulfillment_base(inv_cache.mol_rec.txn_source_line_id), 'P') = 'S'
2192: THEN
2193: g_fulfillment_base := 'S'; -- secondary UOM
2194: ELSE
2195: g_fulfillment_base := 'P'; -- primary UOM
2206: g_fulfillment_base := 'P';
2207: END IF;
2208: ELSE
2209: IF l_debug = 1 THEN
2210: log_error(l_api_name, 'Create Suggestions','Error calling inv_cache.set_mol_rec: ');
2211: END IF;
2212: RAISE fnd_api.g_exc_unexpected_error;
2213: END IF;
2214:
2267: END IF;
2268:
2269: -- Secondary qty rounding is only supported if OM indivisible
2270: -- is not set to 'Y'
2271: IF NVL(inv_cache.item_rec.indivisible_flag,'N') = 'Y' THEN
2272: g_sec_qty_round_mode := NULL;
2273: END IF;
2274:
2275: -- For fulfillment based on secondary, only flooring the
2306: FETCH c_uom_class INTO l_txn_uom_class;
2307: CLOSE c_uom_class;
2308:
2309: IF l_sec_uom_class <> l_txn_uom_class THEN
2310: l_request_context.transaction_uom_code := inv_cache.item_rec.primary_uom_code;
2311: END IF;
2312:
2313: IF l_debug = 1 THEN
2314: log_event(l_api_name, 'Create Suggestions', 'l_sec_uom_class :'||l_sec_uom_class);
2336: , l_request_context.customer_id
2337: );
2338:
2339: -- Check whether this is a pick release process and if locator is specified bug3237702
2340: If inv_cache.is_pickrelease then
2341: is_pickrelease := true;
2342: l_locator_id := inv_cache.tolocator_id;
2343: ELSIF p_wave_simulation_mode = 'Y' THEN
2344: l_locator_id := inv_cache.tolocator_id;
2338:
2339: -- Check whether this is a pick release process and if locator is specified bug3237702
2340: If inv_cache.is_pickrelease then
2341: is_pickrelease := true;
2342: l_locator_id := inv_cache.tolocator_id;
2343: ELSIF p_wave_simulation_mode = 'Y' THEN
2344: l_locator_id := inv_cache.tolocator_id;
2345: End if;
2346:
2340: If inv_cache.is_pickrelease then
2341: is_pickrelease := true;
2342: l_locator_id := inv_cache.tolocator_id;
2343: ELSIF p_wave_simulation_mode = 'Y' THEN
2344: l_locator_id := inv_cache.tolocator_id;
2345: End if;
2346:
2347: -- log_event(l_api_name, 'Create Suggestions', 'after insert txn_context');
2348: -- the first round will deal with issues, receipts
2522: l_unit_number := l_request_line_rec.unit_number;
2523:
2524: IF l_type_code = 2 THEN
2525: --8809951 start
2526: IF ( INV_CACHE.set_pjm_org_parms_rec(l_request_line_rec.organization_id)) THEN --9650219
2527: l_allow_cross_proj_issues := Nvl(inv_cache.pjm_org_parms_rec.allow_cross_proj_issues,'Y');
2528: l_allow_cross_unitnum_issues := Nvl(inv_cache.pjm_org_parms_rec.allow_cross_unitnum_issues,'Y');
2529: ELSE
2530: log_procedure(l_api_name, 'Error in setting pjm_org_parms_rec','Setting pjm_org_parms');
2523:
2524: IF l_type_code = 2 THEN
2525: --8809951 start
2526: IF ( INV_CACHE.set_pjm_org_parms_rec(l_request_line_rec.organization_id)) THEN --9650219
2527: l_allow_cross_proj_issues := Nvl(inv_cache.pjm_org_parms_rec.allow_cross_proj_issues,'Y');
2528: l_allow_cross_unitnum_issues := Nvl(inv_cache.pjm_org_parms_rec.allow_cross_unitnum_issues,'Y');
2529: ELSE
2530: log_procedure(l_api_name, 'Error in setting pjm_org_parms_rec','Setting pjm_org_parms');
2531: END IF;
2524: IF l_type_code = 2 THEN
2525: --8809951 start
2526: IF ( INV_CACHE.set_pjm_org_parms_rec(l_request_line_rec.organization_id)) THEN --9650219
2527: l_allow_cross_proj_issues := Nvl(inv_cache.pjm_org_parms_rec.allow_cross_proj_issues,'Y');
2528: l_allow_cross_unitnum_issues := Nvl(inv_cache.pjm_org_parms_rec.allow_cross_unitnum_issues,'Y');
2529: ELSE
2530: log_procedure(l_api_name, 'Error in setting pjm_org_parms_rec','Setting pjm_org_parms');
2531: END IF;
2532: --8809951 end
2570: END IF;
2571:
2572: --start change for bug 9210454
2573: BEGIN
2574: l_return_val := inv_cache.set_item_rec(l_request_line_rec.organization_id, l_request_line_rec.inventory_item_id);
2575: log_procedure(l_api_name, 'Setting inv_cache', 'for soft pegg item');
2576: EXCEPTION
2577: WHEN OTHERS THEN
2578: NULL;
2571:
2572: --start change for bug 9210454
2573: BEGIN
2574: l_return_val := inv_cache.set_item_rec(l_request_line_rec.organization_id, l_request_line_rec.inventory_item_id);
2575: log_procedure(l_api_name, 'Setting inv_cache', 'for soft pegg item');
2576: EXCEPTION
2577: WHEN OTHERS THEN
2578: NULL;
2579: END;
2577: WHEN OTHERS THEN
2578: NULL;
2579: END;
2580:
2581: IF (l_wms_installed= FALSE AND inv_cache.item_rec.end_assembly_pegging_flag IN ('A','Y','B')) THEN
2582: log_procedure(l_api_name, 'Soft Pegged Item in INV org', 'Nulling project and Task for soft pegged item ');
2583: l_project_id := NULL;
2584: l_task_id := NULL;
2585: END IF;
2903: based on the quantity, quantity detailed calculations which is not reverted back
2904: after creating suggestion. Reverting the primary quantity back to correct quantity
2905: for inbound mtrls.. */
2906: -- collecting values of current mtrl...
2907: if (inv_cache.set_mol_rec(p_transaction_temp_id)) then
2908: -- collecting values of current item + org combination..
2909: if (inv_cache.set_item_rec(inv_cache.mol_rec.organization_id, inv_cache.mol_rec.inventory_item_id)) then
2910:
2911: l_mtrl_pri_qty := inv_convert.inv_um_convert(
2905: for inbound mtrls.. */
2906: -- collecting values of current mtrl...
2907: if (inv_cache.set_mol_rec(p_transaction_temp_id)) then
2908: -- collecting values of current item + org combination..
2909: if (inv_cache.set_item_rec(inv_cache.mol_rec.organization_id, inv_cache.mol_rec.inventory_item_id)) then
2910:
2911: l_mtrl_pri_qty := inv_convert.inv_um_convert(
2912: inv_cache.mol_rec.inventory_item_id,
2913: 5, -- precision
2908: -- collecting values of current item + org combination..
2909: if (inv_cache.set_item_rec(inv_cache.mol_rec.organization_id, inv_cache.mol_rec.inventory_item_id)) then
2910:
2911: l_mtrl_pri_qty := inv_convert.inv_um_convert(
2912: inv_cache.mol_rec.inventory_item_id,
2913: 5, -- precision
2914: inv_cache.mol_rec.quantity,
2915: inv_cache.mol_rec.uom_code,
2916: inv_cache.item_rec.PRIMARY_UOM_CODE,
2910:
2911: l_mtrl_pri_qty := inv_convert.inv_um_convert(
2912: inv_cache.mol_rec.inventory_item_id,
2913: 5, -- precision
2914: inv_cache.mol_rec.quantity,
2915: inv_cache.mol_rec.uom_code,
2916: inv_cache.item_rec.PRIMARY_UOM_CODE,
2917: NULL,
2918: NULL);
2911: l_mtrl_pri_qty := inv_convert.inv_um_convert(
2912: inv_cache.mol_rec.inventory_item_id,
2913: 5, -- precision
2914: inv_cache.mol_rec.quantity,
2915: inv_cache.mol_rec.uom_code,
2916: inv_cache.item_rec.PRIMARY_UOM_CODE,
2917: NULL,
2918: NULL);
2919:
2912: inv_cache.mol_rec.inventory_item_id,
2913: 5, -- precision
2914: inv_cache.mol_rec.quantity,
2915: inv_cache.mol_rec.uom_code,
2916: inv_cache.item_rec.PRIMARY_UOM_CODE,
2917: NULL,
2918: NULL);
2919:
2920:
2917: NULL,
2918: NULL);
2919:
2920:
2921: if (abs(inv_cache.mol_rec.primary_quantity - l_mtrl_pri_qty) > 0.00005) then --BUG13591755
2922: update mtl_txn_Request_lines mtrl
2923: set primary_quantity = l_mtrl_pri_qty
2924: where line_id = p_transaction_temp_id
2925: and TRANSACTION_SOURCE_TYPE_ID in (1,7,12); -- only inbound mtrls
3017: l_allow_expired_lot_txn := 0 ; --By Default we would not allow expired lots to be transacted.
3018: --Only some transactions like move order txfer or sub txfer allow exp or custom API lot txn
3019:
3020:
3021: IF inv_cache.set_mol_rec(p_mol_id) THEN
3022: l_organization_id := inv_cache.mol_rec.organization_id;
3023: l_inventory_item_id := inv_cache.mol_rec.inventory_item_id;
3024: l_transaction_source_type_id := inv_cache.mol_rec.transaction_source_type_id;
3025: l_txn_source_line_id := inv_cache.mol_rec.txn_source_line_id;
3018: --Only some transactions like move order txfer or sub txfer allow exp or custom API lot txn
3019:
3020:
3021: IF inv_cache.set_mol_rec(p_mol_id) THEN
3022: l_organization_id := inv_cache.mol_rec.organization_id;
3023: l_inventory_item_id := inv_cache.mol_rec.inventory_item_id;
3024: l_transaction_source_type_id := inv_cache.mol_rec.transaction_source_type_id;
3025: l_txn_source_line_id := inv_cache.mol_rec.txn_source_line_id;
3026: l_transaction_type_id := inv_cache.mol_rec.transaction_type_id;
3019:
3020:
3021: IF inv_cache.set_mol_rec(p_mol_id) THEN
3022: l_organization_id := inv_cache.mol_rec.organization_id;
3023: l_inventory_item_id := inv_cache.mol_rec.inventory_item_id;
3024: l_transaction_source_type_id := inv_cache.mol_rec.transaction_source_type_id;
3025: l_txn_source_line_id := inv_cache.mol_rec.txn_source_line_id;
3026: l_transaction_type_id := inv_cache.mol_rec.transaction_type_id;
3027: ELSE
3020:
3021: IF inv_cache.set_mol_rec(p_mol_id) THEN
3022: l_organization_id := inv_cache.mol_rec.organization_id;
3023: l_inventory_item_id := inv_cache.mol_rec.inventory_item_id;
3024: l_transaction_source_type_id := inv_cache.mol_rec.transaction_source_type_id;
3025: l_txn_source_line_id := inv_cache.mol_rec.txn_source_line_id;
3026: l_transaction_type_id := inv_cache.mol_rec.transaction_type_id;
3027: ELSE
3028: RAISE fnd_api.g_exc_unexpected_error;
3021: IF inv_cache.set_mol_rec(p_mol_id) THEN
3022: l_organization_id := inv_cache.mol_rec.organization_id;
3023: l_inventory_item_id := inv_cache.mol_rec.inventory_item_id;
3024: l_transaction_source_type_id := inv_cache.mol_rec.transaction_source_type_id;
3025: l_txn_source_line_id := inv_cache.mol_rec.txn_source_line_id;
3026: l_transaction_type_id := inv_cache.mol_rec.transaction_type_id;
3027: ELSE
3028: RAISE fnd_api.g_exc_unexpected_error;
3029: END IF;
3022: l_organization_id := inv_cache.mol_rec.organization_id;
3023: l_inventory_item_id := inv_cache.mol_rec.inventory_item_id;
3024: l_transaction_source_type_id := inv_cache.mol_rec.transaction_source_type_id;
3025: l_txn_source_line_id := inv_cache.mol_rec.txn_source_line_id;
3026: l_transaction_type_id := inv_cache.mol_rec.transaction_type_id;
3027: ELSE
3028: RAISE fnd_api.g_exc_unexpected_error;
3029: END IF;
3030:
3027: ELSE
3028: RAISE fnd_api.g_exc_unexpected_error;
3029: END IF;
3030:
3031: l_return_value := INV_CACHE.set_item_rec(l_organization_id, l_inventory_item_id);
3032:
3033: IF (l_return_value) THEN
3034: l_is_item_lot_controlled := NVL(inv_cache.item_rec.lot_control_code,1);
3035: ELSE
3030:
3031: l_return_value := INV_CACHE.set_item_rec(l_organization_id, l_inventory_item_id);
3032:
3033: IF (l_return_value) THEN
3034: l_is_item_lot_controlled := NVL(inv_cache.item_rec.lot_control_code,1);
3035: ELSE
3036: RAISE fnd_api.g_exc_unexpected_error;
3037: END IF;
3038:
3053: l_allow_expired_lot_txn := 1;
3054: RETURN TRUE;
3055: END IF;
3056:
3057: IF inv_cache.set_mtt_rec(l_transaction_type_id) THEN
3058: l_transaction_action_id := inv_cache.mtt_rec.transaction_action_id;
3059: l_txn_source_type_id := inv_cache.mtt_rec.transaction_source_type_id;
3060: ELSE
3061: RAISE fnd_api.g_exc_unexpected_error;
3054: RETURN TRUE;
3055: END IF;
3056:
3057: IF inv_cache.set_mtt_rec(l_transaction_type_id) THEN
3058: l_transaction_action_id := inv_cache.mtt_rec.transaction_action_id;
3059: l_txn_source_type_id := inv_cache.mtt_rec.transaction_source_type_id;
3060: ELSE
3061: RAISE fnd_api.g_exc_unexpected_error;
3062: END IF;
3055: END IF;
3056:
3057: IF inv_cache.set_mtt_rec(l_transaction_type_id) THEN
3058: l_transaction_action_id := inv_cache.mtt_rec.transaction_action_id;
3059: l_txn_source_type_id := inv_cache.mtt_rec.transaction_source_type_id;
3060: ELSE
3061: RAISE fnd_api.g_exc_unexpected_error;
3062: END IF;
3063: