95: end if;
96:
97: select user_name into l_usr_name
98: from fnd_user_view
99: where user_id = fnd_global.user_id;
100:
101: debug_log(p_origin,
102: 'Checking if user context is available in deal instance..');
103:
100:
101: debug_log(p_origin,
102: 'Checking if user context is available in deal instance..');
103:
104: l_sql := 'begin :1 := fnd_global.user_id' || l_db_link || '; end;';
105:
106: execute immediate l_sql using out l_usr_id;
107:
108: debug_log(p_origin, 'Deal user id: ' || l_usr_id);
119:
120: execute immediate l_sql into l_appl_id, l_resp_id
121: using l_responsibility_name ;
122:
123: l_sql := 'begin fnd_global.apps_initialize' || l_db_link ;
124: l_sql := l_sql || '(:usr, :resp, :appl_id);end; ' ;
125:
126: execute immediate l_sql using in l_usr_id, l_resp_id, l_appl_id;
127: exception