121: return (TRUE);
122: end;
123:
124: FUNCTION get_company_name RETURN BOOLEAN IS
125: l_name gl_sets_of_books.name%TYPE;
126: BEGIN
127: SELECT gl.name
128: INTO l_name
129: FROM gl_sets_of_books gl,pa_implementations pi
125: l_name gl_sets_of_books.name%TYPE;
126: BEGIN
127: SELECT gl.name
128: INTO l_name
129: FROM gl_sets_of_books gl,pa_implementations pi
130: WHERE gl.set_of_books_id = pi.set_of_books_id;
131:
132: c_company_name_header := l_name;
133: