101: END; return (TRUE);
102: end;
103:
104: FUNCTION get_company_name RETURN BOOLEAN IS
105: l_name gl_sets_of_books.name%TYPE;
106: BEGIN
107: SELECT gl.name
108: INTO l_name
109: FROM gl_sets_of_books gl,pa_implementations pi
105: l_name gl_sets_of_books.name%TYPE;
106: BEGIN
107: SELECT gl.name
108: INTO l_name
109: FROM gl_sets_of_books gl,pa_implementations pi
110: WHERE gl.set_of_books_id = pi.set_of_books_id;
111:
112: c_company_name_header := l_name;
113: