5: l_status VARCHAR2(100) := '';
6: l_industry VARCHAR2(100) := '';
7: l_result BOOLEAN;
8: l_schema_owner VARCHAR2(10) := '';
9: l_debug_level number := fnd_log.g_current_runtime_level;
10: l_stat_level number := fnd_log.level_statement;
11:
12: BEGIN
13: l_result := FND_INSTALLATION.GET_APP_INFO(
6: l_industry VARCHAR2(100) := '';
7: l_result BOOLEAN;
8: l_schema_owner VARCHAR2(10) := '';
9: l_debug_level number := fnd_log.g_current_runtime_level;
10: l_stat_level number := fnd_log.level_statement;
11:
12: BEGIN
13: l_result := FND_INSTALLATION.GET_APP_INFO(
14: 'PER',
16: l_industry,
17: l_schema_owner);
18:
19: if( l_stat_level >= l_debug_level ) then
20: fnd_log.string(fnd_log.level_statement,
21: 'per.plsql.'||gv_package||'.getTableSchema', 'l_schema_owner : '||l_schema_owner );
22: end if;
23:
24: IF l_result THEN
76: AND trunc(sysdate) between trunc(fr.start_date) and nvl(fr.end_date, trunc(sysdate)));
77:
78: l_resp_owner_table resp_owner_table;
79: I integer default 0;
80: l_debug_level number := fnd_log.g_current_runtime_level;
81: l_proc_level number := fnd_log.level_procedure;
82:
83: BEGIN
84:
77:
78: l_resp_owner_table resp_owner_table;
79: I integer default 0;
80: l_debug_level number := fnd_log.g_current_runtime_level;
81: l_proc_level number := fnd_log.level_procedure;
82:
83: BEGIN
84:
85: OPEN owned_resps(get_object_id(p_fnd_object), p_user_name);
99: )
100: IS
101: l_resp_owner_table resp_owner_table;
102: I integer default 0;
103: l_debug_level number := fnd_log.g_current_runtime_level;
104: l_proc_level number := fnd_log.level_procedure;
105: l_event_level number := fnd_log.level_event;
106:
107: BEGIN
100: IS
101: l_resp_owner_table resp_owner_table;
102: I integer default 0;
103: l_debug_level number := fnd_log.g_current_runtime_level;
104: l_proc_level number := fnd_log.level_procedure;
105: l_event_level number := fnd_log.level_event;
106:
107: BEGIN
108:
101: l_resp_owner_table resp_owner_table;
102: I integer default 0;
103: l_debug_level number := fnd_log.g_current_runtime_level;
104: l_proc_level number := fnd_log.level_procedure;
105: l_event_level number := fnd_log.level_event;
106:
107: BEGIN
108:
109: if( l_event_level >= l_debug_level ) then
106:
107: BEGIN
108:
109: if( l_event_level >= l_debug_level ) then
110: fnd_log.string(fnd_log.level_event,
111: 'per.plsql.'||gv_package||'.populate_respowner_temp_table', 'Entered, p_user_name : '||p_user_name);
112: end if;
113:
114: --first get the owned responsibilites for the passed in user
128: END LOOP;
129: commit;
130:
131: if( l_proc_level >= l_debug_level ) then
132: fnd_log.string(fnd_log.level_procedure,
133: 'per.plsql.'||gv_package||'.populate_respowner_temp_table', 'Rows Inserted : '||to_char(I));
134: end if;
135:
136: if( l_event_level >= l_debug_level ) then
133: 'per.plsql.'||gv_package||'.populate_respowner_temp_table', 'Rows Inserted : '||to_char(I));
134: end if;
135:
136: if( l_event_level >= l_debug_level ) then
137: fnd_log.string(fnd_log.level_event,
138: 'per.plsql.'||gv_package||'.populate_respowner_temp_table', 'Leaving ..');
139: end if;
140:
141: END populate_respowner_temp_table;
167: activity in varchar2,
168: result in varchar2)
169: IS
170:
171: l_debug_level number := fnd_log.g_current_runtime_level;
172: l_event_level number := fnd_log.level_event;
173: l_exp_level number := fnd_log.level_exception;
174:
175: BEGIN
168: result in varchar2)
169: IS
170:
171: l_debug_level number := fnd_log.g_current_runtime_level;
172: l_event_level number := fnd_log.level_event;
173: l_exp_level number := fnd_log.level_exception;
174:
175: BEGIN
176:
169: IS
170:
171: l_debug_level number := fnd_log.g_current_runtime_level;
172: l_event_level number := fnd_log.level_event;
173: l_exp_level number := fnd_log.level_exception;
174:
175: BEGIN
176:
177: if( l_event_level >= l_debug_level ) then
174:
175: BEGIN
176:
177: if( l_event_level >= l_debug_level ) then
178: fnd_log.string(fnd_log.level_event,
179: 'per.plsql.'||gv_package||'.CompleteNotiActivity', 'Entered, Revoke user : '||username);
180: end if;
181:
182: IF (username is null) THEN
195: EXCEPTION
196: -- when other retry
197: WHEN OTHERS THEN
198: if( l_exp_level >= l_debug_level ) then
199: fnd_log.string(fnd_log.level_exception,
200: 'per.plsql.'||gv_package||'.CompleteNotiActivity', 'Exception, Could not send notification to Revoke user : '||username);
201: end if;
202: wf_engine.HandleError(itemtype => itemtype,
203: itemkey => itemkey,
216:
217: block_actid number;
218: l_noti_ref_cursor ref_cursor;
219: l_user_name fnd_user.user_name%type;
220: l_debug_level number := fnd_log.g_current_runtime_level;
221: l_stat_level number := fnd_log.level_statement;
222: l_event_level number := fnd_log.level_event;
223:
224: BEGIN
217: block_actid number;
218: l_noti_ref_cursor ref_cursor;
219: l_user_name fnd_user.user_name%type;
220: l_debug_level number := fnd_log.g_current_runtime_level;
221: l_stat_level number := fnd_log.level_statement;
222: l_event_level number := fnd_log.level_event;
223:
224: BEGIN
225: if( l_event_level >= l_debug_level ) then
218: l_noti_ref_cursor ref_cursor;
219: l_user_name fnd_user.user_name%type;
220: l_debug_level number := fnd_log.g_current_runtime_level;
221: l_stat_level number := fnd_log.level_statement;
222: l_event_level number := fnd_log.level_event;
223:
224: BEGIN
225: if( l_event_level >= l_debug_level ) then
226: fnd_log.string(fnd_log.level_event,
222: l_event_level number := fnd_log.level_event;
223:
224: BEGIN
225: if( l_event_level >= l_debug_level ) then
226: fnd_log.string(fnd_log.level_event,
227: 'per.plsql.'||gv_package||'.send_notification', 'Entered, p_resp_name : '||p_resp_name||
228: ' , itemtype : RESPOWN, itemKey : '||p_seq);
229: end if;
230:
263: itemkey => p_seq,
264: aname => 'HR_REVOKE_ACCESS_BLOCK_ACTID');
265:
266: if( l_stat_level >= l_debug_level ) then
267: fnd_log.string(fnd_log.level_statement,
268: 'per.plsql.'||gv_package||'.send_notification', 'Revoke Block Actid : '||block_actid);
269: end if;
270:
271: --Loop thru the users and send notification
290: activity => wf_engine.GetActivityLabel(block_actid),
291: result => 'N');
292:
293: if( l_event_level >= l_debug_level ) then
294: fnd_log.string(fnd_log.level_event,
295: 'per.plsql.'||gv_package||'.send_notification', 'Leaving ...');
296: end if;
297:
298: END send_notification;
311: --
312: cursor get_seq is
313: select hr_api_transactions_s.nextval from dual;
314: --
315: l_debug_level number := fnd_log.g_current_runtime_level;
316: l_proc_level number := fnd_log.level_procedure;
317: l_event_level number := fnd_log.level_event;
318:
319: BEGIN
312: cursor get_seq is
313: select hr_api_transactions_s.nextval from dual;
314: --
315: l_debug_level number := fnd_log.g_current_runtime_level;
316: l_proc_level number := fnd_log.level_procedure;
317: l_event_level number := fnd_log.level_event;
318:
319: BEGIN
320: if( l_event_level >= l_debug_level ) then
313: select hr_api_transactions_s.nextval from dual;
314: --
315: l_debug_level number := fnd_log.g_current_runtime_level;
316: l_proc_level number := fnd_log.level_procedure;
317: l_event_level number := fnd_log.level_event;
318:
319: BEGIN
320: if( l_event_level >= l_debug_level ) then
321: fnd_log.string(fnd_log.level_event,
317: l_event_level number := fnd_log.level_event;
318:
319: BEGIN
320: if( l_event_level >= l_debug_level ) then
321: fnd_log.string(fnd_log.level_event,
322: 'per.plsql.'||gv_package||'.raise_wfevent', 'Entered, p_event_name : '||p_event_name);
323: end if;
324:
325: -- check the status of the business event
326: l_message := wf_event.test(p_event_name);
327: --
328:
329: if( l_proc_level >= l_debug_level ) then
330: fnd_log.string(fnd_log.level_procedure,
331: 'per.plsql.'||gv_package||'.raise_wfevent', 'Subscription Type : '||l_message);
332: end if;
333:
334: IF (l_message='MESSAGE') THEN
354: ,p_userid_clause => p_userid_clause);
355: END IF;
356:
357: if( l_event_level >= l_debug_level ) then
358: fnd_log.string(fnd_log.level_event,
359: 'per.plsql.'||gv_package||'.raise_wfevent', 'Leaving ...');
360: end if;
361:
362: END raise_wfevent;