[Home] [Help]
96: is_debugging boolean := false;
97:
98: -- Wildcard name for determining when to dump the stack when the
99: -- name's value is changed.
100: debug_trace_name fnd_profile_option_values.profile_option_value%type;
101:
102: -- Logging to fnd_core_log circumvents other logging.
103: -- That is, if this is enabled, the other two methods
104: -- will not be reached.
117: -- used to order records when using debug_to_table mode
118: debug_counter integer := 0;
119:
120: -- used to determine whether an org context change was made by MO_GLOBAL
121: -- using fnd_profile.initialize(name, value)
122: -- Bug 7685798
123: MOAC_context_change_attempt boolean := false;
124:
125: -- used to determine whether FND_INIT_SQL is being executed.
154: if debug_trace_name is null then
155: begin
156: select fpov.profile_option_value
157: into debug_trace_name
158: from fnd_profile_option_values fpov, fnd_profile_options fpo
159: where fpo.profile_option_name = 'AFGLOBAL_TRACE_NAME'
160: and fpo.profile_option_id = fpov.profile_option_id
161: and fpov.level_id = 10001
162: and fpo.application_id = fpov.application_id;
346: as
347: begin
348: if z_allow_profile_puts and is_new(name) then
349: if is_debugging then
350: debugger('. fnd_profile.put('||name||','||value||')');
351: end if;
352: fnd_profile.put(name,value);
353: end if;
354: end initialize_profile_value;
348: if z_allow_profile_puts and is_new(name) then
349: if is_debugging then
350: debugger('. fnd_profile.put('||name||','||value||')');
351: end if;
352: fnd_profile.put(name,value);
353: end if;
354: end initialize_profile_value;
355:
356: -- set the profile value based on the cached value, if it has changed.
525: value varchar2(2000);
526: begin
527: value := get(name);
528: if value is null or is_undefined(name) then
529: value := fnd_profile.value(name);
530: if is_debugging then
531: debugger('. fnd_profile.value('||name||')='||value);
532: end if;
533: put(name,value,false);
527: value := get(name);
528: if value is null or is_undefined(name) then
529: value := fnd_profile.value(name);
530: if is_debugging then
531: debugger('. fnd_profile.value('||name||')='||value);
532: end if;
533: put(name,value,false);
534: end if;
535: end put_from_profile;
632: -- If this is the first time that the function has been invoked then
633: -- retrieve the value for the profile option.
634: buffer := substrb(get(AUDIT_TRAIL_PROFILE),1,1);
635: if buffer is null then
636: buffer := fnd_profile.value(AUDIT_TRAIL_PROFILE);
637: put_nosys(AUDIT_TRAIL_PROFILE,buffer);
638: end if;
639:
640: return buffer = 'Y';
1764: begin
1765:
1766: -- For R12, MO supports Multiple Organization Access Control (MOAC)
1767: -- which allows access to multiple operating units during a session.
1768: -- FND still requires an org_id context to set for FND_PROFILE via
1769: -- FND_GLOBAL.ORG_ID. Per guidance from MO Team, there are 3
1770: -- profiles to determine the ORG_ID to set at initialization:
1771: -- MO: Security Profile
1772: -- MO: Default Operating Unit
1777: begin
1778: -- Bug 7109984
1779: -- Check the value of MO: Security Profile using get_specific
1780: -- since a context has not been set yet.
1781: fnd_profile.get_specific('XLA_MO_SECURITY_PROFILE_LEVEL',
1782: user_id,
1783: resp_id,
1784: resp_appl_id,
1785: v_sec_prof_s,
1789: -- If MO: Security Profile is not NULL then check for the
1790: -- MO: Default Operating Unit using get_specific since a context
1791: -- has not been set yet.
1792: if defined and v_sec_prof_s is not NULL then
1793: fnd_profile.get_specific('DEFAULT_ORG_ID',
1794: user_id,
1795: resp_id,
1796: resp_appl_id,
1797: v_org_id_s,
1801: -- If MO: Default Operating Unit returns a value, set it as
1802: -- the initial ORG_ID, the organization context.
1803: -- Note: this would make the return value of
1804: -- FND_GLOBAL.ORG_ID not always equal to the return value of
1805: -- FND_PROFILE.value('ORG_ID') since FND_GLOBAL.ORG_ID refers
1806: -- to the org context while FND_PROFILE.value('ORG_ID')
1807: -- refers to the value of the profile option MO: Operating
1808: -- Unit which are not the same.
1809: --
1802: -- the initial ORG_ID, the organization context.
1803: -- Note: this would make the return value of
1804: -- FND_GLOBAL.ORG_ID not always equal to the return value of
1805: -- FND_PROFILE.value('ORG_ID') since FND_GLOBAL.ORG_ID refers
1806: -- to the org context while FND_PROFILE.value('ORG_ID')
1807: -- refers to the value of the profile option MO: Operating
1808: -- Unit which are not the same.
1809: --
1810: -- Bug 10177414
1830: else
1831: -- If MO: Security Profile is not set, then get the value of
1832: -- ORG_ID profile option. This get specific call has to be
1833: -- made to get the org_id because the context is not yet set.
1834: fnd_profile.get_specific('ORG_ID',
1835: user_id,
1836: resp_id,
1837: resp_appl_id,
1838: v_org_id_s,
1862: else
1863: -- This is for 11i.
1864: -- This get specific call has to be made to get the org_id because
1865: -- the context is not yet set.
1866: fnd_profile.get_specific('ORG_ID',
1867: user_id,
1868: resp_id,
1869: resp_appl_id,
1870: v_org_id_s,
1913: -- This synchronizes the org context with the client_info space such
1914: -- that FND_GLOBAL.ORG_ID = substrb(userenv('CLIENT_INFO'),1,10).
1915: fnd_client_info.set_org_context(org_id);
1916: -- Reset the transient profile option CURRENT_ORG_CONTEXT if the org
1917: -- context changes. Re-initialize the org context for FND_PROFILE.
1918: if fnd_release.major_version >= 12 then
1919: fnd_profile.put('CURRENT_ORG_CONTEXT', org_id);
1920: fnd_profile.initialize_org_context;
1921: end if;
1915: fnd_client_info.set_org_context(org_id);
1916: -- Reset the transient profile option CURRENT_ORG_CONTEXT if the org
1917: -- context changes. Re-initialize the org context for FND_PROFILE.
1918: if fnd_release.major_version >= 12 then
1919: fnd_profile.put('CURRENT_ORG_CONTEXT', org_id);
1920: fnd_profile.initialize_org_context;
1921: end if;
1922: end if;
1923:
1916: -- Reset the transient profile option CURRENT_ORG_CONTEXT if the org
1917: -- context changes. Re-initialize the org context for FND_PROFILE.
1918: if fnd_release.major_version >= 12 then
1919: fnd_profile.put('CURRENT_ORG_CONTEXT', org_id);
1920: fnd_profile.initialize_org_context;
1921: end if;
1922: end if;
1923:
1924: -- Get_specific checks the cache but does not save to it.
1942: --
1943: -- if release >= 12
1944: if fnd_release.major_version >= 12 then
1945: -- get XLA_MO_SECURITY_PROFILE_LEVEL value
1946: fnd_profile.get('XLA_MO_SECURITY_PROFILE_LEVEL',tsec_prof);
1947: -- if XLA_MO_SECURITY_PROFILE_LEVEL is not null
1948: if tsec_prof is not null then
1949: -- get DEFAULT_ORG_ID value
1950: fnd_profile.get('DEFAULT_ORG_ID',tdef_org_id);
1946: fnd_profile.get('XLA_MO_SECURITY_PROFILE_LEVEL',tsec_prof);
1947: -- if XLA_MO_SECURITY_PROFILE_LEVEL is not null
1948: if tsec_prof is not null then
1949: -- get DEFAULT_ORG_ID value
1950: fnd_profile.get('DEFAULT_ORG_ID',tdef_org_id);
1951: else
1952: -- if XLA_MO_SECURITY_PROFILE_LEVEL is null
1953: -- get ORG_ID value
1954: fnd_profile.get(FND_CONST.ORG_ID,torg_id);
1950: fnd_profile.get('DEFAULT_ORG_ID',tdef_org_id);
1951: else
1952: -- if XLA_MO_SECURITY_PROFILE_LEVEL is null
1953: -- get ORG_ID value
1954: fnd_profile.get(FND_CONST.ORG_ID,torg_id);
1955: end if;
1956: else
1957: -- If release is less than R12 then need to fall back on ORG_ID for
1958: -- the org context.
1955: end if;
1956: else
1957: -- If release is less than R12 then need to fall back on ORG_ID for
1958: -- the org context.
1959: fnd_profile.get(FND_CONST.ORG_ID,torg_id);
1960: end if;
1961:
1962: end;
1963:
2211: --
2212: if context_changed then
2213:
2214: if is_debugging then
2215: debugger('before fnd_profile.initialize');
2216: dump_context;
2217: end if;
2218:
2219: --
2218:
2219: --
2220: -- Initialize profile cache
2221: --
2222: fnd_profile.initialize(user_id,
2223: resp_id,
2224: resp_appl_id,
2225: site_id);
2226:
2251: -- bugs that customers can and will change profile definitions so where we can
2252: -- we should accommodate this behavior so we should get this value accordingly.
2253: --
2254: if security_context_changed then
2255: z_security_groups_enabled := 'Y' = fnd_profile.value('ENABLE_SECURITY_GROUPS');
2256: end if;
2257:
2258: /* NOTE: the logic below seems incorrect ... just because Security groups is
2259: NOT enabled we should NOT be reseting SECURITY_GROUP_ID or sec_context_change
2310: begin
2311:
2312: if fnd_release.major_version < 12 then
2313: -- MRC is no longer used beyond 11i.
2314: fnd_profile.get('MRC_REPORTING_SOB_ID',mrc_reporting_sob_id);
2315: put('MRC_REPORTING_SOB_ID',mrc_reporting_sob_id);
2316: end if;
2317:
2318: fnd_profile.get(FND_CONST.ICX_LANGUAGE,icx_language);
2314: fnd_profile.get('MRC_REPORTING_SOB_ID',mrc_reporting_sob_id);
2315: put('MRC_REPORTING_SOB_ID',mrc_reporting_sob_id);
2316: end if;
2317:
2318: fnd_profile.get(FND_CONST.ICX_LANGUAGE,icx_language);
2319: put(FND_CONST.ICX_LANGUAGE,icx_language);
2320:
2321: end;
2322:
2344: user_calendar varchar2(20);
2345: plsql_block varchar2(240) := 'begin fnd_date.initialize_with_calendar(:1, null, :2); end;';
2346: -- This is declared as 240 simply because that is the maximum length of
2347: -- a profile value
2348: icx_date_format varchar(240) := fnd_profile.value('ICX_DATE_FORMAT_MASK');
2349: begin
2350: -- this should never happen, but just in case ICX_DATE_FORMAT is null,
2351: -- we'll let fnd_date default to whatever it does.
2352: if icx_date_format is not null then
2357: -- Fetch the value of the FND_FORMS_USER_CALENDAR. This profile was
2358: -- introduced in R12.FND.B. This profile should only be fetched if
2359: -- instance is 12.1 or higher. This saves a profile fetch for EBS
2360: -- instances < 12.1.
2361: user_calendar := nvl(fnd_profile.value('FND_FORMS_USER_CALENDAR'),'GREGORIAN');
2362: execute immediate plsql_block using icx_date_format, user_calendar;
2363: else
2364: fnd_date.initialize(icx_date_format);
2365: end if;
2375: pro_rcg varchar2(30);
2376: old_rcg varchar2(30);
2377: begin
2378: begin
2379: fnd_profile.get('FND_RESOURCE_CONSUMER_GROUP', pro_rcg);
2380: if (pro_rcg is not null) then -- bug 4466432
2381: dbms_session.switch_current_consumer_group(pro_rcg,old_rcg,FALSE);
2382: end if;
2383: end;
2466: debugger('in_fnd_init_sql is NOW TRUE');
2467: end if;
2468:
2469: -- Check if FND_INIT_SQL has a value
2470: fnd_profile.get(FND_CONST.FND_INIT_SQL, sqlbuf);
2471:
2472: if sqlbuf is not null then
2473: -- If FND_CONST.FND_INIT_SQL is null or if the profile option value
2474: -- is different from FND_CONST.FND_INIT_SQL
2510:
2511: -- Bug 12875860 - mskees - HR security group profile control
2512: --
2513: -- "ENABLE_SECURITY_GROUPS = 'N' -> use actual FND table values stored by
2514: -- standard FND profile forms and code, use normal FND profile hierarchy
2515: -- behavior returning value at site level unless set at one of the lower
2516: -- security/hierarchy levels RESP_ID, APP_ID or USER.
2517: --
2518: -- "ENABLE_SECURITY_GROUPS = 'Y' -> call HR_SIGNON.INITIALIZE_HR_SECURITY
2535: -- HR_SIGNON.INITIALIZE_HR_SECURITY was called they updated profile PUT's
2536: -- so we should load Local CONST values
2537:
2538: -- get value from PUT cache
2539: v := fnd_profile.value(FND_CONST.PER_BUSINESS_GROUP_ID);
2540: -- load local value
2541: put(FND_CONST.PER_BUSINESS_GROUP_ID,v,false);
2542:
2543: -- get value from PUT cache
2540: -- load local value
2541: put(FND_CONST.PER_BUSINESS_GROUP_ID,v,false);
2542:
2543: -- get value from PUT cache
2544: v := fnd_profile.value(FND_CONST.PER_SECURITY_PROFILE_ID);
2545: -- load local value
2546: put(FND_CONST.PER_SECURITY_PROFILE_ID,v,false);
2547:
2548: if is_debugging then
2555: -- HR_SIGNON not called but we are in security group mode
2556: -- this could be a duplicated call to init with same values
2557: -- this could be a change in NLS, ORG or Server
2558:
2559: if FND_PROFILE.PUT_CACHE_CLEARED then
2560: -- profile PUT cache was cleared so we need to reset HR values from
2561: -- previous call to HR_SIGNON as stored in CONST local values
2562: fnd_profile.put(FND_CONST.PER_BUSINESS_GROUP_ID, get(FND_CONST.PER_BUSINESS_GROUP_ID));
2563: fnd_profile.put(FND_CONST.PER_SECURITY_PROFILE_ID, get(FND_CONST.PER_SECURITY_PROFILE_ID));
2558:
2559: if FND_PROFILE.PUT_CACHE_CLEARED then
2560: -- profile PUT cache was cleared so we need to reset HR values from
2561: -- previous call to HR_SIGNON as stored in CONST local values
2562: fnd_profile.put(FND_CONST.PER_BUSINESS_GROUP_ID, get(FND_CONST.PER_BUSINESS_GROUP_ID));
2563: fnd_profile.put(FND_CONST.PER_SECURITY_PROFILE_ID, get(FND_CONST.PER_SECURITY_PROFILE_ID));
2564:
2565: if is_debugging then
2566: debugger('HR_SIGNON not called but PUT cleared');
2559: if FND_PROFILE.PUT_CACHE_CLEARED then
2560: -- profile PUT cache was cleared so we need to reset HR values from
2561: -- previous call to HR_SIGNON as stored in CONST local values
2562: fnd_profile.put(FND_CONST.PER_BUSINESS_GROUP_ID, get(FND_CONST.PER_BUSINESS_GROUP_ID));
2563: fnd_profile.put(FND_CONST.PER_SECURITY_PROFILE_ID, get(FND_CONST.PER_SECURITY_PROFILE_ID));
2564:
2565: if is_debugging then
2566: debugger('HR_SIGNON not called but PUT cleared');
2567: debugger('HR PER_BUSINESS_GROUP_ID: '||get(FND_CONST.PER_BUSINESS_GROUP_ID));
2582: -- prods it may/should not be enabled but then they are not likely using
2583: -- PER profiles so we have never seen a bug.
2584:
2585: -- first clear PUT cache
2586: fnd_profile.put(FND_CONST.PER_BUSINESS_GROUP_ID, FND_DELETE_VALUE);
2587: fnd_profile.put(FND_CONST.PER_SECURITY_PROFILE_ID, FND_DELETE_VALUE);
2588:
2589: -- get real profile value
2590: v := fnd_profile.value(FND_CONST.PER_BUSINESS_GROUP_ID);
2583: -- PER profiles so we have never seen a bug.
2584:
2585: -- first clear PUT cache
2586: fnd_profile.put(FND_CONST.PER_BUSINESS_GROUP_ID, FND_DELETE_VALUE);
2587: fnd_profile.put(FND_CONST.PER_SECURITY_PROFILE_ID, FND_DELETE_VALUE);
2588:
2589: -- get real profile value
2590: v := fnd_profile.value(FND_CONST.PER_BUSINESS_GROUP_ID);
2591: -- load local value
2586: fnd_profile.put(FND_CONST.PER_BUSINESS_GROUP_ID, FND_DELETE_VALUE);
2587: fnd_profile.put(FND_CONST.PER_SECURITY_PROFILE_ID, FND_DELETE_VALUE);
2588:
2589: -- get real profile value
2590: v := fnd_profile.value(FND_CONST.PER_BUSINESS_GROUP_ID);
2591: -- load local value
2592: put(FND_CONST.PER_BUSINESS_GROUP_ID,v,false);
2593:
2594: -- get real profile value
2591: -- load local value
2592: put(FND_CONST.PER_BUSINESS_GROUP_ID,v,false);
2593:
2594: -- get real profile value
2595: v := fnd_profile.value(FND_CONST.PER_SECURITY_PROFILE_ID);
2596: -- load local value
2597: put(FND_CONST.PER_SECURITY_PROFILE_ID,v,false);
2598:
2599: -- put debug out just for FYI
2875: --
2876: procedure restore is
2877: begin
2878:
2879: if (fnd_profile.value('FND_DEVELOPER_MODE') = 'Y') then
2880: raise_application_error(-20009,
2881: 'Developer error: FND_GLOBAL initialization potential side effects. '||
2882: 'Remove the call that initialized the context to resp_id: '||
2883: resp_id||' resp_appl_id: '||resp_appl_id||' user_id: '||
2959: -- the general 'name=(length)value' text
2960: g := p||'=('||length(z_context(p))||')'||substr(z_context(p),1,100);
2961:
2962: -- check if the name has a corresponding profile value
2963: f := fnd_profile.value(p);
2964:
2965: -- if there is a profile value but it's different than the context,
2966: -- add a 'p' to the change/no-change symbol and concatenate the
2967: -- profile as ':(length)value'
3056: l_action_col_len integer;
3057: l_module_name varchar2(1000);
3058: l_module_name_prefix varchar2(100);
3059: begin
3060: isConnEnabled := fnd_profile.value('FND_CONNECTION_TAGGING');
3061: if(isConnEnabled is null or isConnEnabled = 'DISABLED') then
3062: return;
3063: end if;
3064: if(is_invalid_module_type(module_type)) then
3176: -- all these constants can't reference the FND_CONST package
3177: -- because of pragam issues with the spec for this package.
3178:
3179: -- true means to initialize these values after calling
3180: -- fnd_profile.initialize.
3181: -- false is reserved for the PER* in which we don't want
3182: -- to do initialization along with the others.
3183: z_init_profiles('CONC_LOGIN_ID') := true;
3184: z_init_profiles('CONC_PRIORITY_REQUEST') := true;