The following lines contain the word 'select', 'insert', 'update' or 'delete':
(l_ic_item_mst_rec.delete_mark = 1)
THEN
FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_ITEM_NO');
SELECT gem5_lot_id_s.nextval INTO l_lot_id FROM dual;
l_ic_lots_mst_rec.last_update_date := SYSDATE;
l_ic_lots_mst_rec.last_updated_by := l_user_id;
l_ic_lots_mst_rec.last_update_login :=TO_NUMBER(FND_PROFILE.Value(
'LOGIN_ID'));
l_ic_lots_mst_rec.delete_mark := 0;
IF NOT GMI_LOTS_PVT.insert_ic_lots_mst(l_ic_lots_mst_rec)
THEN
RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
l_ic_lots_cpg_rec.last_update_date := SYSDATE;
l_ic_lots_cpg_rec.last_updated_by := l_user_id;
l_ic_lots_cpg_rec.last_update_login :=TO_NUMBER(FND_PROFILE.Value(
'LOGIN_ID'));
IF NOT GMI_LOTS_PVT.insert_ic_lots_cpg(l_ic_lots_cpg_rec)
THEN
RAISE FND_API.G_EXC_UNEXPECTED_ERROR;