1 PACKAGE BODY GMA_GET_PROFILE AS
2 /* $Header: GMAPROFB.pls 115.0 99/07/16 02:46:53 porting shi $ */
3 FUNCTION get_profile_value(appl_short_name IN VARCHAR2,profile_name IN VARCHAR2) RETURN VARCHAR2 IS
4 CURSOR get_profile_cursor(c_appl_short_name VARCHAR2,c_profile_name VARCHAR2) IS
5 SELECT substr(profile_option_value,1,30)
6 FROM fnd_profile_options opt,
7 fnd_application appl,
8 fnd_profile_option_values val
9 WHERE opt.application_id = val.application_id
10 AND opt.profile_option_id = val.profile_option_id
11 AND opt.application_id = appl.application_id
12 AND appl.application_short_name = c_appl_short_name
13 AND opt.profile_option_name = c_profile_name
14 AND val.level_id = 10001 /* Site */
15 ORDER BY opt.profile_option_id, level_id desc;
16 l_pr_value VARCHAR2(30);
17 BEGIN
18 OPEN get_profile_cursor(appl_short_name,profile_name);
19 FETCH get_profile_cursor INTO l_pr_value;
20 CLOSE get_profile_cursor;
21 return(l_pr_value);
22 END get_profile_value;
23 END GMA_GET_PROFILE;