68: , x_return_status OUT NOCOPY VARCHAR2
69: , x_msg_data OUT NOCOPY VARCHAR2
70: ) IS
71:
72: -- declare cursor to fetch ic_loct_inv lot status and onhand qty
73: CURSOR get_inv_sts_qty IS
74: SELECT loct_onhand, lot_status
75: FROM ic_loct_inv
76: WHERE item_id = p_item_id
71:
72: -- declare cursor to fetch ic_loct_inv lot status and onhand qty
73: CURSOR get_inv_sts_qty IS
74: SELECT loct_onhand, lot_status
75: FROM ic_loct_inv
76: WHERE item_id = p_item_id
77: AND whse_code = p_whse_code
78: AND lot_id = p_lot_id
79: AND location = p_location;
193: --IN:
194: -- p_item_id
195: -- item id
196: -- p_whse_code
197: -- ic_loct_inv whse
198: -- p_lot_id
199: -- items Lot id
200: -- p_location
201: -- ic_loct_inv location
197: -- ic_loct_inv whse
198: -- p_lot_id
199: -- items Lot id
200: -- p_location
201: -- ic_loct_inv location
202: -- p_to_status
203: -- status to which the ic_loct_inv needs to be changed.
204: --IN OUT:
205: --
199: -- items Lot id
200: -- p_location
201: -- ic_loct_inv location
202: -- p_to_status
203: -- status to which the ic_loct_inv needs to be changed.
204: --IN OUT:
205: --
206: --OUT:
207: -- x_return_status
298: IF Get_Reason_Code%NOTFOUND THEN
299: CLOSE Get_Reason_Code;
300:
301: BEGIN
302: UPDATE IC_LOCT_INV
303: SET lot_status = p_to_status
304: WHERE item_id = p_item_id
305: AND whse_code = p_whse_code
306: AND location = p_location
306: AND location = p_location
307: AND lot_id = p_lot_id;
308:
309: EXCEPTION WHEN OTHERS THEN
310: x_msg_data := 'Error updating the status in ic_loct_inv';
311: x_return_status := FND_API.G_RET_STS_ERROR;
312: END;
313: RETURN;
314: