109: return (TRUE);
110: end;
111:
112: FUNCTION get_company_name RETURN BOOLEAN IS
113: l_name gl_sets_of_books.name%TYPE;
114: BEGIN
115: SELECT gl.name
116: INTO l_name
117: FROM gl_sets_of_books gl,pa_implementations pi
113: l_name gl_sets_of_books.name%TYPE;
114: BEGIN
115: SELECT gl.name
116: INTO l_name
117: FROM gl_sets_of_books gl,pa_implementations pi
118: WHERE gl.set_of_books_id = pi.set_of_books_id;
119:
120: c_company_name_header := l_name;
121: