57: END; return (TRUE);
58: end;
59:
60: FUNCTION get_company_name RETURN BOOLEAN IS
61: l_name gl_sets_of_books.name%TYPE;
62: BEGIN
63: SELECT gl.name
64: INTO l_name
65: FROM gl_sets_of_books gl,pa_implementations pi
61: l_name gl_sets_of_books.name%TYPE;
62: BEGIN
63: SELECT gl.name
64: INTO l_name
65: FROM gl_sets_of_books gl,pa_implementations pi
66: WHERE gl.set_of_books_id = pi.set_of_books_id;
67:
68: c_company_name_header := l_name;
69: