64: END; return (TRUE);
65: end;
66:
67: FUNCTION get_company_name RETURN BOOLEAN IS
68: l_name gl_sets_of_books.name%TYPE;
69: BEGIN
70: SELECT gl.name
71: INTO l_name
72: FROM gl_sets_of_books gl,pa_implementations pi
68: l_name gl_sets_of_books.name%TYPE;
69: BEGIN
70: SELECT gl.name
71: INTO l_name
72: FROM gl_sets_of_books gl,pa_implementations pi
73: WHERE gl.set_of_books_id = pi.set_of_books_id;
74:
75: c_company_name_header := l_name;
76: