7: WHEN OTHERS THEN
8: RETURN(FALSE);
9: END;
10: FUNCTION get_company_name RETURN BOOLEAN IS
11: l_name gl_sets_of_books.name%TYPE;
12: BEGIN
13: SELECT gl.name
14: INTO l_name
15: FROM gl_sets_of_books gl,pa_implementations pi
11: l_name gl_sets_of_books.name%TYPE;
12: BEGIN
13: SELECT gl.name
14: INTO l_name
15: FROM gl_sets_of_books gl,pa_implementations pi
16: WHERE gl.set_of_books_id = pi.set_of_books_id;
17: c_company_name_header := l_name;
18: RETURN (TRUE);
19: EXCEPTION