PACKAGE BODY: APPS.FND_XDF_APP_UTIL

Source

1 PACKAGE BODY FND_XDF_APP_UTIL as
2 /* $Header: fndpxaub.pls 115.1 2004/03/12 22:09:40 bhthiaga noship $ */
3 
4 function get_oracle_usernames( p_apps_shortname_list in FND_XDF_TABLE_OF_VARCHAR2_30)
5    return FND_XDF_TABLE_OF_VARCHAR2_30 is
6 
7  ind integer;
8  l_oracle_usernames FND_XDF_TABLE_OF_VARCHAR2_30 := FND_XDF_TABLE_OF_VARCHAR2_30();
9 
10  begin
11 
12   for ind in 1 .. p_apps_shortname_list.count loop
13 
14       l_oracle_usernames.extend(1);
15 
16       if ( p_apps_shortname_list(ind) = 'APPS' ) then
17            l_oracle_usernames(ind) := 'APPS';
18       else
19            select oracle_username
20            into   l_oracle_usernames(ind)
21            from   fnd_oracle_userid a,
22                   fnd_product_installations b,
23                   fnd_application c
24            where  a.ORACLE_ID = b.ORACLE_ID
25            and    b.APPLICATION_ID = c.APPLICATION_ID
26            and    c.APPLICATION_SHORT_NAME = p_apps_shortname_list(ind);
27       end if;
28 
29   end loop;
30 
31   return l_oracle_usernames;
32 
33  end get_oracle_usernames;
34 
35 
36 end FND_XDF_APP_UTIL;