108: END; return (TRUE);
109: end;
110:
111: FUNCTION get_company_name RETURN BOOLEAN IS
112: l_name gl_sets_of_books.name%TYPE;
113: l_currency gl_sets_of_books.currency_code%TYPE;
114:
115: BEGIN
116: SELECT gl.name, gl.currency_code
109: end;
110:
111: FUNCTION get_company_name RETURN BOOLEAN IS
112: l_name gl_sets_of_books.name%TYPE;
113: l_currency gl_sets_of_books.currency_code%TYPE;
114:
115: BEGIN
116: SELECT gl.name, gl.currency_code
117: INTO l_name, l_currency
114:
115: BEGIN
116: SELECT gl.name, gl.currency_code
117: INTO l_name, l_currency
118: FROM gl_sets_of_books gl,pa_implementations pi
119: WHERE gl.set_of_books_id = pi.set_of_books_id;
120:
121: c_company_name_header := l_name;
122: c_currency := l_currency;