72: END; return (TRUE);
73: end;
74:
75: FUNCTION get_company_name RETURN BOOLEAN IS
76: l_name gl_sets_of_books.name%TYPE;
77:
78: BEGIN
79: SELECT rtrim(gl.name)
80: INTO l_name
77:
78: BEGIN
79: SELECT rtrim(gl.name)
80: INTO l_name
81: FROM gl_sets_of_books gl,pa_implementations pi
82: WHERE gl.set_of_books_id = pi.set_of_books_id;
83:
84: c_company_name_header := l_name;
85: