PACKAGE BODY: APPS.GMA_GET_PROFILE

Source

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;