The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT gem5_journal_id_s.nextval INTO l_journal_id FROM dual;
l_ic_jrnl_mst_rec.last_update_date := SYSDATE;
l_ic_jrnl_mst_rec.last_updated_by := l_user_id;
l_ic_jrnl_mst_rec.last_update_login := TO_NUMBER(FND_PROFILE.Value(
'LOGIN_ID'));
l_ic_jrnl_mst_rec.delete_mark := 0;
l_ic_jrnl_mst_rec.program_update_date := SYSDATE;
l_ic_jrnl_mst_rec.last_update_login := l_user_id;
IF NOT GMI_QUANTITY_PVT.insert_ic_jrnl_mst(l_ic_jrnl_mst_rec)
THEN
RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
SELECT gem5_doc_id_s.nextval INTO l_doc_id FROM dual;
SELECT gem5_line_id_s.nextval INTO l_line_id FROM dual;
l_ic_adjs_jnl_rec.last_update_date := SYSDATE;
l_ic_adjs_jnl_rec.last_updated_by := l_user_id;
l_ic_adjs_jnl_rec.program_update_date := SYSDATE;
l_ic_adjs_jnl_rec.last_update_login :=l_user_id;
IF NOT GMI_QUANTITY_PVT.insert_ic_adjs_jnl(l_ic_adjs_jnl_rec)
THEN
RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
IF NOT GMI_CMP_TRAN_PVT.Update_quantity_transaction(l_cmp_tran_rec)
THEN
RAISE FND_API.G_EXC_UNEXPECTED_ERROR;