271: return null;
272: end get_user_attributes;
273: --
274: -------------------------------------------------------------------------------
275: function get_ldap_event_str(p_ldap_event in ldap_event)
276: return varchar2 is
277:
278: l_module_source varchar2(256);
279: l_str varchar2(4000);
278: l_module_source varchar2(256);
279: l_str varchar2(4000);
280:
281: begin
282: l_module_source := G_MODULE_SOURCE || 'get_ldap_event_str: ';
283:
284: if (p_ldap_event is not null) then
285: l_str := 'event_type: ' || p_ldap_event.event_type;
286: l_str := l_str || ', event_id: ' || p_ldap_event.event_id;
280:
281: begin
282: l_module_source := G_MODULE_SOURCE || 'get_ldap_event_str: ';
283:
284: if (p_ldap_event is not null) then
285: l_str := 'event_type: ' || p_ldap_event.event_type;
286: l_str := l_str || ', event_id: ' || p_ldap_event.event_id;
287: l_str := l_str || ', event_src: ' || p_ldap_event.event_src;
288: l_str := l_str || ', event_time: ' || p_ldap_event.event_time;
281: begin
282: l_module_source := G_MODULE_SOURCE || 'get_ldap_event_str: ';
283:
284: if (p_ldap_event is not null) then
285: l_str := 'event_type: ' || p_ldap_event.event_type;
286: l_str := l_str || ', event_id: ' || p_ldap_event.event_id;
287: l_str := l_str || ', event_src: ' || p_ldap_event.event_src;
288: l_str := l_str || ', event_time: ' || p_ldap_event.event_time;
289: l_str := l_str || ', object_name: ' || p_ldap_event.object_name;
282: l_module_source := G_MODULE_SOURCE || 'get_ldap_event_str: ';
283:
284: if (p_ldap_event is not null) then
285: l_str := 'event_type: ' || p_ldap_event.event_type;
286: l_str := l_str || ', event_id: ' || p_ldap_event.event_id;
287: l_str := l_str || ', event_src: ' || p_ldap_event.event_src;
288: l_str := l_str || ', event_time: ' || p_ldap_event.event_time;
289: l_str := l_str || ', object_name: ' || p_ldap_event.object_name;
290: l_str := l_str || ', object_type: ' || p_ldap_event.object_type;
283:
284: if (p_ldap_event is not null) then
285: l_str := 'event_type: ' || p_ldap_event.event_type;
286: l_str := l_str || ', event_id: ' || p_ldap_event.event_id;
287: l_str := l_str || ', event_src: ' || p_ldap_event.event_src;
288: l_str := l_str || ', event_time: ' || p_ldap_event.event_time;
289: l_str := l_str || ', object_name: ' || p_ldap_event.object_name;
290: l_str := l_str || ', object_type: ' || p_ldap_event.object_type;
291: l_str := l_str || ', object_guid: ' || p_ldap_event.object_guid;
284: if (p_ldap_event is not null) then
285: l_str := 'event_type: ' || p_ldap_event.event_type;
286: l_str := l_str || ', event_id: ' || p_ldap_event.event_id;
287: l_str := l_str || ', event_src: ' || p_ldap_event.event_src;
288: l_str := l_str || ', event_time: ' || p_ldap_event.event_time;
289: l_str := l_str || ', object_name: ' || p_ldap_event.object_name;
290: l_str := l_str || ', object_type: ' || p_ldap_event.object_type;
291: l_str := l_str || ', object_guid: ' || p_ldap_event.object_guid;
292: l_str := l_str || ', object_dn: ' || p_ldap_event.object_dn;
285: l_str := 'event_type: ' || p_ldap_event.event_type;
286: l_str := l_str || ', event_id: ' || p_ldap_event.event_id;
287: l_str := l_str || ', event_src: ' || p_ldap_event.event_src;
288: l_str := l_str || ', event_time: ' || p_ldap_event.event_time;
289: l_str := l_str || ', object_name: ' || p_ldap_event.object_name;
290: l_str := l_str || ', object_type: ' || p_ldap_event.object_type;
291: l_str := l_str || ', object_guid: ' || p_ldap_event.object_guid;
292: l_str := l_str || ', object_dn: ' || p_ldap_event.object_dn;
293: l_str := l_str || ', profile_id: ' || p_ldap_event.profile_id;
286: l_str := l_str || ', event_id: ' || p_ldap_event.event_id;
287: l_str := l_str || ', event_src: ' || p_ldap_event.event_src;
288: l_str := l_str || ', event_time: ' || p_ldap_event.event_time;
289: l_str := l_str || ', object_name: ' || p_ldap_event.object_name;
290: l_str := l_str || ', object_type: ' || p_ldap_event.object_type;
291: l_str := l_str || ', object_guid: ' || p_ldap_event.object_guid;
292: l_str := l_str || ', object_dn: ' || p_ldap_event.object_dn;
293: l_str := l_str || ', profile_id: ' || p_ldap_event.profile_id;
294:
287: l_str := l_str || ', event_src: ' || p_ldap_event.event_src;
288: l_str := l_str || ', event_time: ' || p_ldap_event.event_time;
289: l_str := l_str || ', object_name: ' || p_ldap_event.object_name;
290: l_str := l_str || ', object_type: ' || p_ldap_event.object_type;
291: l_str := l_str || ', object_guid: ' || p_ldap_event.object_guid;
292: l_str := l_str || ', object_dn: ' || p_ldap_event.object_dn;
293: l_str := l_str || ', profile_id: ' || p_ldap_event.profile_id;
294:
295: end if;
288: l_str := l_str || ', event_time: ' || p_ldap_event.event_time;
289: l_str := l_str || ', object_name: ' || p_ldap_event.object_name;
290: l_str := l_str || ', object_type: ' || p_ldap_event.object_type;
291: l_str := l_str || ', object_guid: ' || p_ldap_event.object_guid;
292: l_str := l_str || ', object_dn: ' || p_ldap_event.object_dn;
293: l_str := l_str || ', profile_id: ' || p_ldap_event.profile_id;
294:
295: end if;
296:
289: l_str := l_str || ', object_name: ' || p_ldap_event.object_name;
290: l_str := l_str || ', object_type: ' || p_ldap_event.object_type;
291: l_str := l_str || ', object_guid: ' || p_ldap_event.object_guid;
292: l_str := l_str || ', object_dn: ' || p_ldap_event.object_dn;
293: l_str := l_str || ', profile_id: ' || p_ldap_event.profile_id;
294:
295: end if;
296:
297: return l_str;
303: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, sqlerrm);
304: end if;
305: raise;
306: return null;
307: end get_ldap_event_str;
308: --
309: -------------------------------------------------------------------------------
310: function get_ldap_attr_str(p_ldap_attr in ldap_attr)
311: return varchar2 is
337: return null;
338: end get_ldap_attr_str;
339: --
340: -------------------------------------------------------------------------------
341: function get_ldap_event_status_str(p_ldap_event_status in ldap_event_status)
342: return varchar2 is
343:
344: l_module_source varchar2(256);
345: l_str varchar2(4000);
344: l_module_source varchar2(256);
345: l_str varchar2(4000);
346:
347: begin
348: l_module_source := G_MODULE_SOURCE || 'get_ldap_event_status_str: ';
349:
350: if (p_ldap_event_status is not null) then
351: l_str := 'event_id : ' || p_ldap_event_status.event_id;
352: l_str := l_str || ', orclguid: ' || p_ldap_event_status.orclguid;
346:
347: begin
348: l_module_source := G_MODULE_SOURCE || 'get_ldap_event_status_str: ';
349:
350: if (p_ldap_event_status is not null) then
351: l_str := 'event_id : ' || p_ldap_event_status.event_id;
352: l_str := l_str || ', orclguid: ' || p_ldap_event_status.orclguid;
353: l_str := l_str || ', error_code: ' || p_ldap_event_status.error_code;
354: l_str := l_str || ', error_String: ' || p_ldap_event_status.error_String;
347: begin
348: l_module_source := G_MODULE_SOURCE || 'get_ldap_event_status_str: ';
349:
350: if (p_ldap_event_status is not null) then
351: l_str := 'event_id : ' || p_ldap_event_status.event_id;
352: l_str := l_str || ', orclguid: ' || p_ldap_event_status.orclguid;
353: l_str := l_str || ', error_code: ' || p_ldap_event_status.error_code;
354: l_str := l_str || ', error_String: ' || p_ldap_event_status.error_String;
355: l_str := l_str || ', error_disposition: ' ||
348: l_module_source := G_MODULE_SOURCE || 'get_ldap_event_status_str: ';
349:
350: if (p_ldap_event_status is not null) then
351: l_str := 'event_id : ' || p_ldap_event_status.event_id;
352: l_str := l_str || ', orclguid: ' || p_ldap_event_status.orclguid;
353: l_str := l_str || ', error_code: ' || p_ldap_event_status.error_code;
354: l_str := l_str || ', error_String: ' || p_ldap_event_status.error_String;
355: l_str := l_str || ', error_disposition: ' ||
356: p_ldap_event_status.error_disposition;
349:
350: if (p_ldap_event_status is not null) then
351: l_str := 'event_id : ' || p_ldap_event_status.event_id;
352: l_str := l_str || ', orclguid: ' || p_ldap_event_status.orclguid;
353: l_str := l_str || ', error_code: ' || p_ldap_event_status.error_code;
354: l_str := l_str || ', error_String: ' || p_ldap_event_status.error_String;
355: l_str := l_str || ', error_disposition: ' ||
356: p_ldap_event_status.error_disposition;
357: end if;
350: if (p_ldap_event_status is not null) then
351: l_str := 'event_id : ' || p_ldap_event_status.event_id;
352: l_str := l_str || ', orclguid: ' || p_ldap_event_status.orclguid;
353: l_str := l_str || ', error_code: ' || p_ldap_event_status.error_code;
354: l_str := l_str || ', error_String: ' || p_ldap_event_status.error_String;
355: l_str := l_str || ', error_disposition: ' ||
356: p_ldap_event_status.error_disposition;
357: end if;
358:
352: l_str := l_str || ', orclguid: ' || p_ldap_event_status.orclguid;
353: l_str := l_str || ', error_code: ' || p_ldap_event_status.error_code;
354: l_str := l_str || ', error_String: ' || p_ldap_event_status.error_String;
355: l_str := l_str || ', error_disposition: ' ||
356: p_ldap_event_status.error_disposition;
357: end if;
358:
359: return (l_str);
360: exception
365: end if;
366:
367: raise;
368: return null;
369: end get_ldap_event_status_str;
370: --
371: -------------------------------------------------------------------------------
372: function get_fnd_user(p_user_guid in varchar2)
373: return apps_user_key_type is
639:
640: end isUserEnabled;
641: --
642: -------------------------------------------------------------------------------
643: procedure process_identity_add(p_event in ldap_event) is
644:
645: l_module_source varchar2(256);
646: l_ldap_attr_list ldap_attr_list;
647: l_user_name fnd_user.user_name%type;
659: then
660: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source
661: , 'Begin');
662: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source
663: , 'p_event = ' || get_ldap_event_str(p_event));
664: end if;
665:
666: --check for OrclIsEnabled flag and stop further processing
667: -- bug fix for bug #4583452
730: end process_identity_add;
731: --
732: -------------------------------------------------------------------------------
733: -------------------------------------------------------------------------------
734: procedure process_identity_modify(p_event in ldap_event) is
735:
736: cursor cur_fnd_users(p_user_guid in varchar2) is
737: select user_name, user_id
738: from fnd_user
754: then
755: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source
756: , 'Begin');
757: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source
758: , 'p_event = ' || get_ldap_event_str(p_event));
759: end if;
760:
761:
762: open cur_fnd_users(p_event.object_guid);
823: end process_identity_modify;
824: --
825: --
826: -------------------------------------------------------------------------------
827: procedure process_identity_delete(p_event in ldap_event) is
828:
829: cursor cur_fnd_users(p_user_guid in varchar2) is
830: select user_name, user_id
831: from fnd_user
844: then
845: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source
846: , 'Begin');
847: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source
848: , 'p_event = ' || get_ldap_event_str(p_event));
849: end if;
850:
851: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
852: then
946: raise;
947: end process_identity_delete;
948: --
949: -------------------------------------------------------------------------------
950: procedure process_subscription_add(p_event in ldap_event) is
951:
952: l_module_source varchar2(256);
953: l_ldap_attr_list ldap_attr_list;
954: l_user_name fnd_user.user_name%type;
962: then
963: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source
964: , 'Begin');
965: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source
966: , 'p_event = ' || get_ldap_event_str(p_event));
967: end if;
968:
969: l_ldap_attr_list := get_user_attributes(p_event.object_guid, l_user_name);
970: if( isUserEnabled(l_ldap_attr_list)) then
1015: raise;
1016: end process_subscription_add;
1017: --
1018: -------------------------------------------------------------------------------
1019: procedure process_subscription_delete(p_event in ldap_event) is
1020:
1021: l_module_source varchar2(256);
1022:
1023: begin
1027: then
1028: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source
1029: , 'Begin');
1030: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source
1031: , 'p_event = ' || get_ldap_event_str(p_event));
1032: end if;
1033:
1034: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1035: then
1548: raise;
1549: end on_demand_user_create;
1550: --
1551: -------------------------------------------------------------------------------
1552: procedure process_no_success_event(p_event_status in ldap_event_status) is
1553:
1554: l_module_source varchar2(256);
1555: l_entity_key_value wf_entity_changes.entity_key_value%type;
1556: l_event_name varchar2(80);