27: , p_reference_lot_number VARCHAR2 -- OSFM need this to inherite the attributes
28: , p_source NUMBER
29: , x_is_new_lot out nocopy VARCHAR2
30: ) IS
31: l_in_lot_rec MTL_LOT_NUMBERS%ROWTYPE;
32: l_out_lot_rec MTL_LOT_NUMBERS%ROWTYPE;
33: x_lot_rec MTL_LOT_NUMBERS%ROWTYPE;
34: l_api_version NUMBER;
35: l_init_msg_list VARCHAR2(100);
28: , p_source NUMBER
29: , x_is_new_lot out nocopy VARCHAR2
30: ) IS
31: l_in_lot_rec MTL_LOT_NUMBERS%ROWTYPE;
32: l_out_lot_rec MTL_LOT_NUMBERS%ROWTYPE;
33: x_lot_rec MTL_LOT_NUMBERS%ROWTYPE;
34: l_api_version NUMBER;
35: l_init_msg_list VARCHAR2(100);
36: l_commit VARCHAR2(100);
29: , x_is_new_lot out nocopy VARCHAR2
30: ) IS
31: l_in_lot_rec MTL_LOT_NUMBERS%ROWTYPE;
32: l_out_lot_rec MTL_LOT_NUMBERS%ROWTYPE;
33: x_lot_rec MTL_LOT_NUMBERS%ROWTYPE;
34: l_api_version NUMBER;
35: l_init_msg_list VARCHAR2(100);
36: l_commit VARCHAR2(100);
37: l_validation_level NUMBER;
54:
55: BEGIN
56: select lot_number
57: into l_lot_number
58: from mtl_lot_numbers
59: where organization_id = p_organization_id
60: and inventory_item_id = p_inventory_item_id
61: and lot_number = p_lot_number;
62: -- this is an existing lot, nothing to do
102: BEGIN
103: -- get the lot attribute context
104: SELECT lot_attribute_category
105: INTO l_user_context
106: FROM mtl_lot_numbers
107: WHERE organization_id = p_organization_id
108: AND inventory_item_id = p_reference_inventory_item_id
109: AND lot_number = p_reference_lot_number;
110: mydebug('reference lot context:'||l_user_context);
281: l_in_lot_rec.attribute12,
282: l_in_lot_rec.attribute13,
283: l_in_lot_rec.attribute14,
284: l_in_lot_rec.attribute15
285: FROM mtl_lot_numbers
286: WHERE organization_id = p_organization_id
287: AND inventory_item_id = p_reference_inventory_item_id
288: AND lot_number = p_reference_lot_number;
289: ELSE /* (l_user_context is not null and
346: l_in_lot_rec.attribute12,
347: l_in_lot_rec.attribute13,
348: l_in_lot_rec.attribute14,
349: l_in_lot_rec.attribute15
350: FROM mtl_lot_numbers
351: WHERE organization_id = p_organization_id
352: AND inventory_item_id = p_reference_inventory_item_id
353: AND lot_number = p_reference_lot_number;
354:
447: )
448: IS
449: BEGIN
450:
451: delete from mtl_lot_numbers
452: where organization_id = p_organization_id
453: and inventory_item_id = p_inventory_item_id
454: and lot_number = p_lot_number;
455: EXCEPTION