[Home] [Help]
71: is_debugging boolean := false;
72:
73: -- Wildcard name for determining when to dump the stack when the
74: -- name's value is changed.
75: debug_trace_name fnd_profile_option_values.profile_option_value%type;
76:
77: -- Logging to fnd_core_log circumvents other logging.
78: -- That is, if this is enabled, the other two methods
79: -- will not be reached.
92: -- used to order records when using debug_to_table mode
93: debug_counter integer := 0;
94:
95: -- used to determine whether an org context change was made by MO_GLOBAL
96: -- using fnd_profile.initialize(name, value)
97: -- Bug 7685798
98: MOAC_context_change_attempt boolean := false;
99:
100: --
119: if debug_trace_name is null then
120: begin
121: select fpov.profile_option_value
122: into debug_trace_name
123: from fnd_profile_option_values fpov, fnd_profile_options fpo
124: where fpo.profile_option_name = 'AFGLOBAL_TRACE_NAME'
125: and fpo.profile_option_id = fpov.profile_option_id
126: and fpov.level_id = 10001
127: and fpo.application_id = fpov.application_id;
311: as
312: begin
313: if z_allow_profile_puts and is_new(name) then
314: if is_debugging then
315: debugger('. fnd_profile.put('||name||','||value||')');
316: end if;
317: fnd_profile.put(name,value);
318: end if;
319: end initialize_profile_value;
313: if z_allow_profile_puts and is_new(name) then
314: if is_debugging then
315: debugger('. fnd_profile.put('||name||','||value||')');
316: end if;
317: fnd_profile.put(name,value);
318: end if;
319: end initialize_profile_value;
320:
321: -- set the profile value based on the cached value, if it has changed.
490: value varchar2(2000);
491: begin
492: value := get(name);
493: if value is null or is_undefined(name) then
494: value := fnd_profile.value(name);
495: if is_debugging then
496: debugger('. fnd_profile.value('||name||')='||value);
497: end if;
498: put(name,value,false);
492: value := get(name);
493: if value is null or is_undefined(name) then
494: value := fnd_profile.value(name);
495: if is_debugging then
496: debugger('. fnd_profile.value('||name||')='||value);
497: end if;
498: put(name,value,false);
499: end if;
500: end put_from_profile;
540: -- If this is the first time that the function has been invoked then
541: -- retrieve the value for the profile option.
542: buffer := substrb(get(AUDIT_TRAIL_PROFILE),1,1);
543: if buffer is null then
544: buffer := fnd_profile.value(AUDIT_TRAIL_PROFILE);
545: put_nosys(AUDIT_TRAIL_PROFILE,buffer);
546: end if;
547:
548: return buffer = 'Y';
1873: begin
1874:
1875: -- For R12, MO supports Multiple Organization Access Control (MOAC)
1876: -- which allows access to multiple operating units during a session.
1877: -- FND still requires an org_id context to set for FND_PROFILE via
1878: -- FND_GLOBAL.ORG_ID. Per guidance from MO Team, there are 3
1879: -- profiles to determine the ORG_ID to set at initialization:
1880: -- MO: Security Profile
1881: -- MO: Default Operating Unit
1886: begin
1887: -- Bug 7109984
1888: -- Check the value of MO: Security Profile using get_specific
1889: -- since a context has not been set yet.
1890: fnd_profile.get_specific('XLA_MO_SECURITY_PROFILE_LEVEL',
1891: user_id,
1892: resp_id,
1893: resp_appl_id,
1894: v_sec_prof_s,
1898: -- If MO: Security Profile is not NULL then check for the
1899: -- MO: Default Operating Unit using get_specific since a context
1900: -- has not been set yet.
1901: if defined and v_sec_prof_s is not NULL then
1902: fnd_profile.get_specific('DEFAULT_ORG_ID',
1903: user_id,
1904: resp_id,
1905: resp_appl_id,
1906: v_org_id_s,
1910: -- If MO: Default Operating Unit returns a value, set it as
1911: -- the initial ORG_ID.
1912: -- Note: this would make the return value of
1913: -- FND_GLOBAL.ORG_ID not always equal to the return value of
1914: -- FND_PROFILE.value('ORG_ID') since FND_GLOBAL.ORG_ID refers
1915: -- to the org context while FND_PROFILE.value('ORG_ID')
1916: -- refers to the value of the profile option MO: Operating
1917: -- Unit which are not the same.
1918: if defined and (org_id <> v_org_id_s) then
1911: -- the initial ORG_ID.
1912: -- Note: this would make the return value of
1913: -- FND_GLOBAL.ORG_ID not always equal to the return value of
1914: -- FND_PROFILE.value('ORG_ID') since FND_GLOBAL.ORG_ID refers
1915: -- to the org context while FND_PROFILE.value('ORG_ID')
1916: -- refers to the value of the profile option MO: Operating
1917: -- Unit which are not the same.
1918: if defined and (org_id <> v_org_id_s) then
1919: put_i(FND_CONST.ORG_ID,v_org_id_s);
1928: -- uses the ORG_ID profile for determining the org context.
1929: if v_org_id_s is NULL then
1930: -- This get specific call has to be made to get the org_id because
1931: -- the context is not yet set.
1932: fnd_profile.get_specific('ORG_ID',
1933: user_id,
1934: resp_id,
1935: resp_appl_id,
1936: v_org_id_s,
1962: -- This synchronizes the org context with the client_info space such
1963: -- that FND_GLOBAL.ORG_ID = substrb(userenv('CLIENT_INFO'),1,10).
1964: fnd_client_info.set_org_context(org_id);
1965: -- Reset the transient profile option CURRENT_ORG_CONTEXT if the org
1966: -- context changes. Re-initialize the org context for FND_PROFILE.
1967: if fnd_release.major_version >= 12 then
1968: fnd_profile.put('CURRENT_ORG_CONTEXT', org_id);
1969: fnd_profile.initialize_org_context;
1970: end if;
1964: fnd_client_info.set_org_context(org_id);
1965: -- Reset the transient profile option CURRENT_ORG_CONTEXT if the org
1966: -- context changes. Re-initialize the org context for FND_PROFILE.
1967: if fnd_release.major_version >= 12 then
1968: fnd_profile.put('CURRENT_ORG_CONTEXT', org_id);
1969: fnd_profile.initialize_org_context;
1970: end if;
1971: end if;
1972:
1965: -- Reset the transient profile option CURRENT_ORG_CONTEXT if the org
1966: -- context changes. Re-initialize the org context for FND_PROFILE.
1967: if fnd_release.major_version >= 12 then
1968: fnd_profile.put('CURRENT_ORG_CONTEXT', org_id);
1969: fnd_profile.initialize_org_context;
1970: end if;
1971: end if;
1972:
1973: --
1987: --
1988: if context_changed then
1989:
1990: if is_debugging then
1991: debugger('before fnd_profile.initialize');
1992: dump_context;
1993: end if;
1994:
1995: --
1994:
1995: --
1996: -- Initialize profile cache
1997: --
1998: fnd_profile.initialize(user_id,
1999: resp_id,
2000: resp_appl_id,
2001: site_id);
2002:
2028: -- Operating Units. So, in the WEB world where we reuse sessions, you
2029: -- could get different values for this profile.
2030: --
2031: if resp_context_change or appl_context_change then
2032: z_security_groups_enabled := 'Y' = fnd_profile.value('ENABLE_SECURITY_GROUPS');
2033: end if;
2034:
2035: if not z_security_groups_enabled then
2036: put_i(FND_CONST.SECURITY_GROUP_ID,0);
2075: returns a value. It will only be useful if there is an actual profile
2076: option value fetch for the ORG_ID profile option.
2077: */
2078: if fnd_release.major_version >= 12 then
2079: fnd_profile.get('XLA_MO_SECURITY_PROFILE_LEVEL',tsec_prof);
2080: if tsec_prof is not null then
2081: fnd_profile.get('DEFAULT_ORG_ID',tdef_org_id);
2082: end if;
2083: else
2077: */
2078: if fnd_release.major_version >= 12 then
2079: fnd_profile.get('XLA_MO_SECURITY_PROFILE_LEVEL',tsec_prof);
2080: if tsec_prof is not null then
2081: fnd_profile.get('DEFAULT_ORG_ID',tdef_org_id);
2082: end if;
2083: else
2084: -- This code was moved so that the release version should be only
2085: -- checked once. MRC is no longer used beyond 11i.
2082: end if;
2083: else
2084: -- This code was moved so that the release version should be only
2085: -- checked once. MRC is no longer used beyond 11i.
2086: fnd_profile.get('MRC_REPORTING_SOB_ID',mrc_reporting_sob_id);
2087: put('MRC_REPORTING_SOB_ID',mrc_reporting_sob_id);
2088: end if;
2089:
2090: -- If release is less than R12 or 'MO: Default Operating Unit' does not
2090: -- If release is less than R12 or 'MO: Default Operating Unit' does not
2091: -- have a usable value, then need to fall back on ORG_ID for the org
2092: -- context.
2093: if tdef_org_id is null then
2094: fnd_profile.get(FND_CONST.ORG_ID,torg_id);
2095: end if;
2096:
2097: fnd_profile.get(FND_CONST.ICX_LANGUAGE,icx_language);
2098: put(FND_CONST.ICX_LANGUAGE,icx_language);
2093: if tdef_org_id is null then
2094: fnd_profile.get(FND_CONST.ORG_ID,torg_id);
2095: end if;
2096:
2097: fnd_profile.get(FND_CONST.ICX_LANGUAGE,icx_language);
2098: put(FND_CONST.ICX_LANGUAGE,icx_language);
2099:
2100: end;
2101:
2121: -- has been a real context change.
2122: declare
2123: -- This is declared as 240 simply because that is the maximum length of
2124: -- a profile value
2125: icx_date_format varchar(240) := fnd_profile.value('ICX_DATE_FORMAT_MASK');
2126: begin
2127: -- this should never happen, but just in case
2128: -- ICX_DATE_FORMAT is null, we'll let fnd_date
2129: -- default to whatever it does.
2141: pro_rcg varchar2(30);
2142: old_rcg varchar2(30);
2143: begin
2144: begin
2145: fnd_profile.get('FND_RESOURCE_CONSUMER_GROUP', pro_rcg);
2146: if (pro_rcg is not null) then -- bug 4466432
2147: dbms_session.switch_current_consumer_group(pro_rcg,old_rcg,FALSE);
2148: end if;
2149: end;
2195: tmpbuf varchar2(2000) := get(FND_CONST.FND_INIT_SQL);
2196: rows integer;
2197: begin
2198: -- Check if FND_INIT_SQL has a value
2199: fnd_profile.get(FND_CONST.FND_INIT_SQL, sqlbuf);
2200:
2201: if sqlbuf is not null then
2202: -- If FND_CONST.FND_INIT_SQL is null or if the profile option value
2203: -- is different from FND_CONST.FND_INIT_SQL
2518: --
2519: procedure restore is
2520: begin
2521:
2522: if (fnd_profile.value('FND_DEVELOPER_MODE') = 'Y') then
2523: raise_application_error(-20009,
2524: 'Developer error: FND_GLOBAL initialization potential side effects. '||
2525: 'Remove the call that initialized the context to resp_id: '||
2526: resp_id||' resp_appl_id: '||resp_appl_id||' user_id: '||
2602: -- the general 'name=(length)value' text
2603: g := p||'=('||length(z_context(p))||')'||substr(z_context(p),1,100);
2604:
2605: -- check if the name has a corresponding profile value
2606: f := fnd_profile.value(p);
2607:
2608: -- if there is a profile value but it's different than the context,
2609: -- add a 'p' to the change/no-change symbol and concatenate the
2610: -- profile as ':(length)value'
2629: -- all these constants can't reference the FND_CONST package
2630: -- because of pragam issues with the spec for this package.
2631:
2632: -- true means to initialize these values after calling
2633: -- fnd_profile.initialize.
2634: -- false is reserved for the PER* in which we don't want
2635: -- to do initialization along with the others.
2636: z_init_profiles('CONC_LOGIN_ID') := true;
2637: z_init_profiles('CONC_PRIORITY_REQUEST') := true;