The following lines contain the word 'select', 'insert', 'update' or 'delete':
select curr.precision
into h_precision
from fnd_currencies curr, gl_sets_of_books sob,
fa_book_controls bc
where curr.currency_code = sob.currency_code
and sob.set_of_books_id = bc.set_of_books_id
and bc.book_type_code = X_book;
select round(X_amount,h_precision)
into X_amount
from dual;
select curr.precision
into h_precision
from fnd_currencies curr, gl_sets_of_books sob,
fa_book_controls bc
where curr.currency_code = sob.currency_code
and sob.set_of_books_id = bc.set_of_books_id
and bc.book_type_code = X_book;
select ceil(X_amount * power(10,h_precision)) / power(10,h_precision)
into X_amount
from dual;
select curr.precision
into h_precision
from fnd_currencies curr, gl_sets_of_books sob,
fa_book_controls bc
where curr.currency_code = sob.currency_code
and sob.set_of_books_id = bc.set_of_books_id
and bc.book_type_code = X_book;
select trunc(X_amount * power(10,h_precision)) / power(10,h_precision)
into X_amount
from dual;