[Home] [Help]
3215: l_resp_appl_id NUMBER;
3216: BEGIN
3217: l_func_name := g_api_name || 'apps_initialize';
3218:
3219: l_user_id := fnd_global.user_id;
3220: l_resp_id := fnd_global.resp_id;
3221: l_resp_appl_id := fnd_global.resp_appl_id;
3222: --
3223: -- If context is not set:
3216: BEGIN
3217: l_func_name := g_api_name || 'apps_initialize';
3218:
3219: l_user_id := fnd_global.user_id;
3220: l_resp_id := fnd_global.resp_id;
3221: l_resp_appl_id := fnd_global.resp_appl_id;
3222: --
3223: -- If context is not set:
3224: -- Set the Apps Context. This is a workaround. CP team should set
3217: l_func_name := g_api_name || 'apps_initialize';
3218:
3219: l_user_id := fnd_global.user_id;
3220: l_resp_id := fnd_global.resp_id;
3221: l_resp_appl_id := fnd_global.resp_appl_id;
3222: --
3223: -- If context is not set:
3224: -- Set the Apps Context. This is a workaround. CP team should set
3225: -- an ANONYMOUS context. See bug2014695.
3250: WHERE r.application_id = a.application_id
3251: AND a.application_short_name = 'SYSADMIN'
3252: AND r.responsibility_key = 'SYSTEM_ADMINISTRATOR';
3253:
3254: fnd_global.apps_initialize(user_id => l_user_id,
3255: resp_id => l_resp_id,
3256: resp_appl_id => l_resp_appl_id);
3257:
3258: IF (g_debug_on) THEN
10466: l_pos1 NUMBER;
10467: l_pos2 NUMBER;
10468: l_cva VARCHAR2(32000);
10469: BEGIN
10470: l_newline := fnd_global.newline; -- for pragma rnps.
10471: l_newline_length := Length(l_newline);
10472:
10473: l_cva := l_newline || p_compiled_value_attributes || l_newline;
10474: l_pos1 := Instr(l_cva, l_newline, 1, p_assignment_order);
10919: -- the PL/SQL problem.
10920: --
10921: g_null_value := g_null_value_constant;
10922:
10923: g_newline := fnd_global.newline();
10924: --
10925: -- Old ldt files do not have LAST_UPDATE_DATE data in them. So
10926: -- use 2001/12/15 as their last update date. This is the date when
10927: -- this change was added. It is as good as any other date.