PACKAGE BODY: APPS.AD_CONFIG

Source

1 package body AD_CONFIG as
2 /* $Header: adconfgb.pls 115.0 99/07/17 04:29:59 porting ship $ */
3 
4 FUNCTION release_name(p_release_type IN varchar2 default null) RETURN varchar2
5 IS
6   l_release_name varchar2(50) := '';
7 BEGIN
8 
9    SELECT decode(p_release_type,
10              'B', substr(release_name, 1,
11                      decode(sign(instr(release_name, ' ')), 1,
12                               instr(release_name, ' ')-1,
13                               length(release_name))),
14               release_name)
15    INTO   l_release_name
16    FROM fnd_product_groups;
17 
18    return(l_release_name);
19 END;
20 
21 FUNCTION is_multi_org        RETURN varchar2
22 IS
23   l_flag  varchar2(1);
24 BEGIN
25    SELECT nvl(multi_org_flag, 'N')
26    INTO   l_flag
27    FROM   fnd_product_groups;
28 
29    return(l_flag);
30 END;
31 
32 FUNCTION is_multi_lingual    RETURN varchar2
33 IS
34   l_flag  varchar2(1);
35 BEGIN
36    SELECT nvl(multi_lingual_flag, 'N')
37    INTO   l_flag
38    FROM   fnd_product_groups;
39 
40    return(l_flag);
41 END;
42 
43 FUNCTION is_multi_currency   RETURN varchar2
44 IS
45   l_flag  varchar2(1);
46 BEGIN
47    SELECT nvl(multi_currency_flag, 'N')
48    INTO   l_flag
49    FROM   fnd_product_groups;
50 
51    return(l_flag);
52 END;
53 
54 FUNCTION get_default_org_id  RETURN number
55 IS
56   l_org_id number;
57 BEGIN
58 
59   if (is_multi_org() = 'N')
60   then return NULL;
61   end if;
62 
63   SELECT to_number(profile_option_value)
64   INTO   l_org_id
65   FROM   fnd_profile_option_values pov
66        , fnd_profile_options po
67   WHERE  po.profile_option_name = 'ORG_ID'
68   AND    pov.profile_option_id = po.profile_option_id
69   AND    pov.level_id = 10001;
70 
71   return(l_org_id);
72 
73 EXCEPTION
74   WHEN NO_DATA_FOUND THEN
75      return(null);
76 END;
77 
78 end AD_CONFIG;