289: )
290: RETURN BOOLEAN
291: IS
292:
293: l_item_mst_rec ic_item_mst%ROWTYPE;
294: l_loct_inv_rec ic_loct_inv%ROWTYPE;
295: l_lot_no ic_lots_mst.lot_no%TYPE;
296: l_sublot_no ic_lots_mst.sublot_no%TYPE;
297: l_sts_ctl NUMBER;
322:
323: BEGIN
324: /* fetch item details */
325: l_item_mst_rec.item_id := p_item_id;
326: IF NOT gmivdbl.ic_item_mst_select (
327: p_ic_item_mst_row => l_item_mst_rec,
328: x_ic_item_mst_row => l_item_mst_rec
329: ) THEN
330: RETURN FALSE;
323: BEGIN
324: /* fetch item details */
325: l_item_mst_rec.item_id := p_item_id;
326: IF NOT gmivdbl.ic_item_mst_select (
327: p_ic_item_mst_row => l_item_mst_rec,
328: x_ic_item_mst_row => l_item_mst_rec
329: ) THEN
330: RETURN FALSE;
331: END IF;
324: /* fetch item details */
325: l_item_mst_rec.item_id := p_item_id;
326: IF NOT gmivdbl.ic_item_mst_select (
327: p_ic_item_mst_row => l_item_mst_rec,
328: x_ic_item_mst_row => l_item_mst_rec
329: ) THEN
330: RETURN FALSE;
331: END IF;
332: