135: END; return (TRUE);
136: end;
137:
138: FUNCTION get_company_name RETURN BOOLEAN IS
139: l_name gl_sets_of_books.name%TYPE;
140: BEGIN
141: SELECT gl.name
142: INTO l_name
143: FROM gl_sets_of_books gl,pa_implementations pi
139: l_name gl_sets_of_books.name%TYPE;
140: BEGIN
141: SELECT gl.name
142: INTO l_name
143: FROM gl_sets_of_books gl,pa_implementations pi
144: WHERE gl.set_of_books_id = pi.set_of_books_id;
145:
146: c_company_name_header := l_name;
147: