87: null, decode(customer_id, null, 'FND', 'TCA'),
88: 'HR'),
89: user_id, start_date, end_date
90: into my_flavor, my_userid, my_start, my_end
91: from fnd_user
92: where user_name = p_username;
93: exception
94: when no_data_found then
95: my_flavor := 'FND';
342: return null;
343: end get_ldap_event_status_str;
344: --
345: -------------------------------------------------------------------------------
346: function get_fnd_user(p_user_guid in varchar2)
347: return apps_user_key_type is
348:
349:
350: cursor cur_fnd_users is
346: function get_fnd_user(p_user_guid in varchar2)
347: return apps_user_key_type is
348:
349:
350: cursor cur_fnd_users is
351: select user_id, user_name, user_guid, person_party_id
352: from fnd_user
353: where user_guid = p_user_guid;
354:
348:
349:
350: cursor cur_fnd_users is
351: select user_id, user_name, user_guid, person_party_id
352: from fnd_user
353: where user_guid = p_user_guid;
354:
355: l_module_source varchar2(256);
356: l_apps_user_key apps_user_key_type;
356: l_apps_user_key apps_user_key_type;
357: l_found boolean;
358:
359: begin
360: l_module_source := G_MODULE_SOURCE || 'get_fnd_user: ';
361: l_found := false;
362:
363: open cur_fnd_users;
364: fetch cur_fnd_users into l_apps_user_key.user_id, l_apps_user_key.user_name
359: begin
360: l_module_source := G_MODULE_SOURCE || 'get_fnd_user: ';
361: l_found := false;
362:
363: open cur_fnd_users;
364: fetch cur_fnd_users into l_apps_user_key.user_id, l_apps_user_key.user_name
365: , l_apps_user_key.user_guid, l_apps_user_key.person_party_id;
366: l_found := cur_fnd_users%found;
367:
360: l_module_source := G_MODULE_SOURCE || 'get_fnd_user: ';
361: l_found := false;
362:
363: open cur_fnd_users;
364: fetch cur_fnd_users into l_apps_user_key.user_id, l_apps_user_key.user_name
365: , l_apps_user_key.user_guid, l_apps_user_key.person_party_id;
366: l_found := cur_fnd_users%found;
367:
368: if (not l_found)
362:
363: open cur_fnd_users;
364: fetch cur_fnd_users into l_apps_user_key.user_id, l_apps_user_key.user_name
365: , l_apps_user_key.user_guid, l_apps_user_key.person_party_id;
366: l_found := cur_fnd_users%found;
367:
368: if (not l_found)
369: then
370: l_apps_user_key.user_guid := null;
371: l_apps_user_key.user_id := null;
372: l_apps_user_key.user_name := null;
373: l_apps_user_key.person_party_id := null;
374: end if;
375: close cur_fnd_users;
376:
377: return (l_apps_user_key);
378:
379: exception
377: return (l_apps_user_key);
378:
379: exception
380: when others then
381: if (cur_fnd_users%isopen)
382: then
383: close cur_fnd_users;
384: end if;
385:
379: exception
380: when others then
381: if (cur_fnd_users%isopen)
382: then
383: close cur_fnd_users;
384: end if;
385:
386: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
387: then
389: end if;
390:
391: raise;
392: return null;
393: end get_fnd_user;
394: --
395: -------------------------------------------------------------------------------
396: function get_fnd_user(p_user_name in varchar2)
397: return apps_user_key_type is
392: return null;
393: end get_fnd_user;
394: --
395: -------------------------------------------------------------------------------
396: function get_fnd_user(p_user_name in varchar2)
397: return apps_user_key_type is
398:
399:
400: cursor cur_fnd_users is
396: function get_fnd_user(p_user_name in varchar2)
397: return apps_user_key_type is
398:
399:
400: cursor cur_fnd_users is
401: select user_id, user_name, user_guid, person_party_id
402: from fnd_user
403: where user_name = upper(p_user_name);
404:
398:
399:
400: cursor cur_fnd_users is
401: select user_id, user_name, user_guid, person_party_id
402: from fnd_user
403: where user_name = upper(p_user_name);
404:
405: l_module_source varchar2(256);
406: l_apps_user_key apps_user_key_type;
406: l_apps_user_key apps_user_key_type;
407: l_found boolean;
408:
409: begin
410: l_module_source := G_MODULE_SOURCE || 'get_fnd_user: ';
411: l_found := false;
412:
413: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
414: then
416: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source
417: , 'p_user_name = ' || p_user_name);
418: end if;
419:
420: open cur_fnd_users;
421: fetch cur_fnd_users into l_apps_user_key.user_id, l_apps_user_key.user_name
422: , l_apps_user_key.user_guid, l_apps_user_key.person_party_id;
423: l_found := cur_fnd_users%found;
424:
417: , 'p_user_name = ' || p_user_name);
418: end if;
419:
420: open cur_fnd_users;
421: fetch cur_fnd_users into l_apps_user_key.user_id, l_apps_user_key.user_name
422: , l_apps_user_key.user_guid, l_apps_user_key.person_party_id;
423: l_found := cur_fnd_users%found;
424:
425: if (not l_found)
419:
420: open cur_fnd_users;
421: fetch cur_fnd_users into l_apps_user_key.user_id, l_apps_user_key.user_name
422: , l_apps_user_key.user_guid, l_apps_user_key.person_party_id;
423: l_found := cur_fnd_users%found;
424:
425: if (not l_found)
426: then
427: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
440: ,'User found: user_guid: '||l_apps_user_key.user_guid ||
441: ' user_name: '||l_apps_user_key.user_name);
442: end if;
443: end if;
444: close cur_fnd_users;
445:
446: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
447: then
448: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'End');
451: return (l_apps_user_key);
452:
453: exception
454: when others then
455: if (cur_fnd_users%isopen)
456: then
457: close cur_fnd_users;
458: end if;
459:
453: exception
454: when others then
455: if (cur_fnd_users%isopen)
456: then
457: close cur_fnd_users;
458: end if;
459:
460: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
461: then
463: end if;
464:
465: raise;
466: return null;
467: end get_fnd_user;
468: --
469: -------------------------------------------------------------------------------
470: function isUserEnabled(p_ldap_attr_list in ldap_attr_list) return boolean is
471:
638: procedure process_identity_add(p_event in ldap_event) is
639:
640: l_module_source varchar2(256);
641: l_ldap_attr_list ldap_attr_list;
642: l_user_name fnd_user.user_name%type;
643: my_ent_type varchar2(50);
644: my_parms wf_parameter_list_t;
645: l_allow_identity_add varchar2(1);
646: l_profile_defined boolean;
727: --
728: -------------------------------------------------------------------------------
729: procedure process_identity_modify(p_event in ldap_event) is
730:
731: cursor cur_fnd_users(p_user_guid in varchar2) is
732: select user_name, user_id
733: from fnd_user
734: where user_guid = p_user_guid;
735:
729: procedure process_identity_modify(p_event in ldap_event) is
730:
731: cursor cur_fnd_users(p_user_guid in varchar2) is
732: select user_name, user_id
733: from fnd_user
734: where user_guid = p_user_guid;
735:
736: l_module_source varchar2(256);
737: l_profiles apps_sso_user_profiles_type;
734: where user_guid = p_user_guid;
735:
736: l_module_source varchar2(256);
737: l_profiles apps_sso_user_profiles_type;
738: l_user_name fnd_user.user_name%type;
739: l_oid_user_name fnd_user.user_name%type;
740: l_user_id fnd_user.user_id%type;
741: l_ldap_attr_list ldap_attr_list;
742:
735:
736: l_module_source varchar2(256);
737: l_profiles apps_sso_user_profiles_type;
738: l_user_name fnd_user.user_name%type;
739: l_oid_user_name fnd_user.user_name%type;
740: l_user_id fnd_user.user_id%type;
741: l_ldap_attr_list ldap_attr_list;
742:
743: begin
736: l_module_source varchar2(256);
737: l_profiles apps_sso_user_profiles_type;
738: l_user_name fnd_user.user_name%type;
739: l_oid_user_name fnd_user.user_name%type;
740: l_user_id fnd_user.user_id%type;
741: l_ldap_attr_list ldap_attr_list;
742:
743: begin
744: l_module_source := G_MODULE_SOURCE || 'process_identity_modify: ';
752: , 'p_event = ' || get_ldap_event_str(p_event));
753: end if;
754:
755:
756: open cur_fnd_users(p_event.object_guid);
757: loop
758: fetch cur_fnd_users into l_user_name, l_user_id;
759: exit when cur_fnd_users%notfound;
760:
754:
755:
756: open cur_fnd_users(p_event.object_guid);
757: loop
758: fetch cur_fnd_users into l_user_name, l_user_id;
759: exit when cur_fnd_users%notfound;
760:
761: l_profiles := fnd_ldap_mapper.map_sso_user_profiles(l_user_name);
762:
755:
756: open cur_fnd_users(p_event.object_guid);
757: loop
758: fetch cur_fnd_users into l_user_name, l_user_id;
759: exit when cur_fnd_users%notfound;
760:
761: l_profiles := fnd_ldap_mapper.map_sso_user_profiles(l_user_name);
762:
763: if ( (l_profiles.ldap_sync = G_Y)
780: upper(l_user_name), null, null);
781:
782: end if;
783: end loop;
784: close cur_fnd_users;
785:
786:
787: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
788: then
791: end if;
792:
793: exception
794: when others then
795: if (cur_fnd_users%isopen)
796: then
797: close cur_fnd_users;
798: end if;
799:
793: exception
794: when others then
795: if (cur_fnd_users%isopen)
796: then
797: close cur_fnd_users;
798: end if;
799:
800: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
801: then
808: --
809: -------------------------------------------------------------------------------
810: procedure process_identity_delete(p_event in ldap_event) is
811:
812: cursor cur_fnd_users(p_user_guid in varchar2) is
813: select user_name, user_id
814: from fnd_user
815: where user_guid = p_user_guid;
816:
810: procedure process_identity_delete(p_event in ldap_event) is
811:
812: cursor cur_fnd_users(p_user_guid in varchar2) is
813: select user_name, user_id
814: from fnd_user
815: where user_guid = p_user_guid;
816:
817: l_module_source varchar2(256);
818: l_profiles apps_sso_user_profiles_type;
815: where user_guid = p_user_guid;
816:
817: l_module_source varchar2(256);
818: l_profiles apps_sso_user_profiles_type;
819: l_user_name fnd_user.user_name%type;
820: l_user_id fnd_user.user_id%type;
821:
822: begin
823: l_module_source := G_MODULE_SOURCE || 'process_identity_delete: ';
816:
817: l_module_source varchar2(256);
818: l_profiles apps_sso_user_profiles_type;
819: l_user_name fnd_user.user_name%type;
820: l_user_id fnd_user.user_id%type;
821:
822: begin
823: l_module_source := G_MODULE_SOURCE || 'process_identity_delete: ';
824:
829: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source
830: , 'p_event = ' || get_ldap_event_str(p_event));
831: end if;
832:
833: open cur_fnd_users(p_event.object_guid);
834: loop
835: fetch cur_fnd_users into l_user_name, l_user_id;
836: exit when cur_fnd_users%notfound;
837:
831: end if;
832:
833: open cur_fnd_users(p_event.object_guid);
834: loop
835: fetch cur_fnd_users into l_user_name, l_user_id;
836: exit when cur_fnd_users%notfound;
837:
838: l_profiles := fnd_ldap_mapper.map_sso_user_profiles(l_user_name);
839:
832:
833: open cur_fnd_users(p_event.object_guid);
834: loop
835: fetch cur_fnd_users into l_user_name, l_user_id;
836: exit when cur_fnd_users%notfound;
837:
838: l_profiles := fnd_ldap_mapper.map_sso_user_profiles(l_user_name);
839:
840: if ( (l_profiles.ldap_sync = G_Y)
847: G_ORCLGUID, p_event.object_guid);
848: wf_entity_mgr.process_changes(G_USER, l_user_name,
849: G_OID, G_DELETE);
850: */
851: -- don't call fnd_user_pkg.DisableUser(), it'd fail because user is deleted on OID
852: update fnd_user
853: set end_date = sysdate,
854: user_guid = null
855: where user_name = l_user_name;
848: wf_entity_mgr.process_changes(G_USER, l_user_name,
849: G_OID, G_DELETE);
850: */
851: -- don't call fnd_user_pkg.DisableUser(), it'd fail because user is deleted on OID
852: update fnd_user
853: set end_date = sysdate,
854: user_guid = null
855: where user_name = l_user_name;
856: end if;
854: user_guid = null
855: where user_name = l_user_name;
856: end if;
857: end loop;
858: close cur_fnd_users;
859:
860: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
861: then
862: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source
864: end if;
865:
866: exception
867: when others then
868: if (cur_fnd_users%isopen)
869: then
870: close cur_fnd_users;
871: end if;
872:
866: exception
867: when others then
868: if (cur_fnd_users%isopen)
869: then
870: close cur_fnd_users;
871: end if;
872:
873: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
874: then
882: procedure process_subscription_add(p_event in ldap_event) is
883:
884: l_module_source varchar2(256);
885: l_ldap_attr_list ldap_attr_list;
886: l_user_name fnd_user.user_name%type;
887: my_ent_type varchar2(50);
888: my_parms wf_parameter_list_t;
889:
890: begin
980: end process_subscription_delete;
981: --
982: -------------------------------------------------------------------------------
983: procedure synch_user_from_LDAP(
984: p_user_name in fnd_user.user_name%type
985: , p_result out nocopy pls_integer
986: ) is
987: l_module_source varchar2(256);
988: l_apps_user_key apps_user_key_type;
985: , p_result out nocopy pls_integer
986: ) is
987: l_module_source varchar2(256);
988: l_apps_user_key apps_user_key_type;
989: l_user_name fnd_user.user_name%type;
990: l_ldap_attr_list ldap_attr_list;
991: l_ldap_message fnd_oid_util.ldap_message_type;
992: l_return_status varchar2(1);
993:
1005: raise user_name_null_exp;
1006: end if;
1007:
1008: l_user_name := p_user_name;
1009: l_apps_user_key := fnd_oid_util.get_fnd_user(p_user_name => l_user_name);
1010:
1011: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1012: then
1013: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source,
1056: then
1057: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1058: then
1059: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source,
1060: 'Person Party exists in FND_USER for user:'||l_apps_user_key.user_name);
1061: end if;
1062: fnd_oid_users.hz_update(
1063: p_ldap_message => l_ldap_message
1064: , x_return_status => l_return_status);
1071: else
1072: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1073: then
1074: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source,
1075: 'Person Party does NOT exist in FND_USER for user:'||l_apps_user_key.user_name||', creating a new TCA entry');
1076: end if;
1077: if (isTCAenabled('ADD')) then
1078: fnd_oid_users.hz_create(
1079: p_ldap_message => l_ldap_message
1126: end synch_user_from_LDAP;
1127: --
1128: -------------------------------------------------------------------------------
1129: procedure synch_user_from_LDAP_NO_AUTO(
1130: p_user_name in fnd_user.user_name%type
1131: , p_result out nocopy pls_integer
1132: ) is
1133: l_module_source varchar2(256);
1134: l_apps_user_key apps_user_key_type;
1131: , p_result out nocopy pls_integer
1132: ) is
1133: l_module_source varchar2(256);
1134: l_apps_user_key apps_user_key_type;
1135: l_user_name fnd_user.user_name%type;
1136: l_ldap_attr_list ldap_attr_list;
1137: l_ldap_message fnd_oid_util.ldap_message_type;
1138: l_return_status varchar2(1);
1139: begin
1149: raise user_name_null_exp;
1150: end if;
1151:
1152: l_user_name := p_user_name;
1153: l_apps_user_key := fnd_oid_util.get_fnd_user(p_user_name => l_user_name);
1154:
1155: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1156: then
1157: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source,
1200: then
1201: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1202: then
1203: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source,
1204: 'Person Party exists in FND_USER for user:'||l_apps_user_key.user_name);
1205: end if;
1206: fnd_oid_users.hz_update(
1207: p_ldap_message => l_ldap_message
1208: , x_return_status => l_return_status);
1215: else
1216: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1217: then
1218: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source,
1219: 'Person Party does NOT exist in FND_USER for user:'||l_apps_user_key.user_name||', creating a new TCA entry');
1220: end if;
1221: if (isTCAenabled('ADD')) then
1222: fnd_oid_users.hz_create(
1223: p_ldap_message => l_ldap_message
1270: p_user_name in varchar2,
1271: p_user_guid in varchar2
1272: ) is
1273:
1274: cursor cur_fnd_users is
1275: select user_id, start_date, end_date, encrypted_user_password
1276: from fnd_user
1277: where user_name = p_user_name
1278: and (user_guid is NULL or user_guid = p_user_guid)
1272: ) is
1273:
1274: cursor cur_fnd_users is
1275: select user_id, start_date, end_date, encrypted_user_password
1276: from fnd_user
1277: where user_name = p_user_name
1278: and (user_guid is NULL or user_guid = p_user_guid)
1279: and sysdate >= start_date
1280: and (end_date is NULL or end_date > sysdate);
1285: l_result pls_integer;
1286: l_sub_add_result pls_integer;
1287: l_ldap_attr_list ldap_attr_list;
1288: l_ldap_message ldap_message_type;
1289: l_user_name fnd_user.user_name%type;
1290: l_rec cur_fnd_users%rowtype;
1291: l_found boolean;
1292: l_local_login varchar2(10);
1293: l_profile_defined boolean;
1286: l_sub_add_result pls_integer;
1287: l_ldap_attr_list ldap_attr_list;
1288: l_ldap_message ldap_message_type;
1289: l_user_name fnd_user.user_name%type;
1290: l_rec cur_fnd_users%rowtype;
1291: l_found boolean;
1292: l_local_login varchar2(10);
1293: l_profile_defined boolean;
1294: l_user_id number;
1338: then
1339: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'After calling map_ldap_message');
1340: end if;
1341:
1342: open cur_fnd_users;
1343: fetch cur_fnd_users into l_rec;
1344: l_found := cur_fnd_users%found;
1345: close cur_fnd_users;
1346:
1339: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'After calling map_ldap_message');
1340: end if;
1341:
1342: open cur_fnd_users;
1343: fetch cur_fnd_users into l_rec;
1344: l_found := cur_fnd_users%found;
1345: close cur_fnd_users;
1346:
1347: if (l_found)
1340: end if;
1341:
1342: open cur_fnd_users;
1343: fetch cur_fnd_users into l_rec;
1344: l_found := cur_fnd_users%found;
1345: close cur_fnd_users;
1346:
1347: if (l_found)
1348: then
1341:
1342: open cur_fnd_users;
1343: fetch cur_fnd_users into l_rec;
1344: l_found := cur_fnd_users%found;
1345: close cur_fnd_users;
1346:
1347: if (l_found)
1348: then
1349: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1362: if(l_local_login <>G_LOCAL)
1363: then
1364: if(l_local_login = G_SSO)
1365: then
1366: fnd_user_pkg.UpdateUser(
1367: x_user_name=>p_user_name
1368: , x_owner=>null
1369: , x_unencrypted_password=>fnd_web_sec.EXTERNAL_PWD
1370: , x_email_address => l_ldap_message.mail
1369: , x_unencrypted_password=>fnd_web_sec.EXTERNAL_PWD
1370: , x_email_address => l_ldap_message.mail
1371: , x_fax => l_ldap_message.facsimileTelephoneNumber
1372: , x_user_guid=>p_user_guid
1373: , x_change_source => fnd_user_pkg.change_source_oid
1374: );
1375:
1376: else
1377: fnd_user_pkg.UpdateUser(
1373: , x_change_source => fnd_user_pkg.change_source_oid
1374: );
1375:
1376: else
1377: fnd_user_pkg.UpdateUser(
1378: x_user_name=>p_user_name
1379: , x_owner=>null
1380: , x_email_address => l_ldap_message.mail
1381: , x_fax => l_ldap_message.facsimileTelephoneNumber
1379: , x_owner=>null
1380: , x_email_address => l_ldap_message.mail
1381: , x_fax => l_ldap_message.facsimileTelephoneNumber
1382: , x_user_guid=>p_user_guid
1383: , x_change_source => fnd_user_pkg.change_source_oid
1384: );
1385: end if;
1386: end if;
1387: else
1389: then
1390: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Could not find a linkable user: ');
1391: end if;
1392: -- Changed to CreateUserId - we need the user_id to set the profile.
1393: l_user_id := fnd_user_pkg.CreateUserId(
1394: x_user_name=>p_user_name
1395: , x_owner=>null
1396: , x_unencrypted_password=>fnd_web_sec.EXTERNAL_PWD
1397: , x_email_address => l_ldap_message.mail
1396: , x_unencrypted_password=>fnd_web_sec.EXTERNAL_PWD
1397: , x_email_address => l_ldap_message.mail
1398: , x_fax => l_ldap_message.facsimileTelephoneNumber
1399: , x_user_guid=>p_user_guid
1400: , x_change_source => fnd_user_pkg.change_source_oid
1401: );
1402:
1403: -- Bug 4880490 New users should have the local login profile set to SSO
1404: l_found := fnd_profile.save(x_name => 'APPS_SSO_LOCAL_LOGIN'
1448: then
1449: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source
1450: , 'Cannot call on_demand_user_create will null GUID');
1451: end if;
1452: if (cur_fnd_users%isopen)
1453: then
1454: close cur_fnd_users;
1455: end if;
1456: raise;
1450: , 'Cannot call on_demand_user_create will null GUID');
1451: end if;
1452: if (cur_fnd_users%isopen)
1453: then
1454: close cur_fnd_users;
1455: end if;
1456: raise;
1457:
1458: when user_name_null_exp then
1460: then
1461: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source
1462: , 'Cannot call on_demand_user_create will null username');
1463: end if;
1464: if (cur_fnd_users%isopen)
1465: then
1466: close cur_fnd_users;
1467: end if;
1468: raise;
1462: , 'Cannot call on_demand_user_create will null username');
1463: end if;
1464: if (cur_fnd_users%isopen)
1465: then
1466: close cur_fnd_users;
1467: end if;
1468: raise;
1469:
1470: when others then
1471: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1472: then
1473: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, sqlerrm);
1474: end if;
1475: if (cur_fnd_users%isopen)
1476: then
1477: close cur_fnd_users;
1478: end if;
1479:
1473: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, sqlerrm);
1474: end if;
1475: if (cur_fnd_users%isopen)
1476: then
1477: close cur_fnd_users;
1478: end if;
1479:
1480: raise;
1481: end on_demand_user_create;
1504: elsif (p_event_status.error_disposition = wf_oid.EVENT_RESEND)
1505: then
1506: l_event_name := 'oracle.apps.fnd.oidsync.resend';
1507: end if;
1508: -- Get the fnd_user.user_name
1509: fnd_oid_util.get_entity_key_value(p_event_status.event_id
1510: , l_entity_key_value);
1511:
1512: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1906:
1907: end get_entity_changes_rec_str;
1908: --
1909: -------------------------------------------------------------------------------
1910: function get_oid_nickname(p_user_guid in fnd_user.user_guid%type)
1911: return varchar2 is
1912:
1913: l_module_source varchar2(256);
1914: result pls_integer;
1962: then
1963: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Begin');
1964: end if;
1965:
1966: l_apps_user_key := get_fnd_user(p_user_name => p_user_name);
1967:
1968: if (l_apps_user_key.person_party_id is not null)
1969: then
1970: l_retval := true;
2035: end if;
2036: end set_ldap_message_attr;
2037: --
2038: -------------------------------------------------------------------------------
2039: procedure add_user_to_OID_sub_list(p_orclguid in fnd_user.user_guid%type, x_result out nocopy pls_integer) is
2040:
2041: l_module_source varchar2(256);
2042: usersDN varchar2(1000);
2043: subsNode varchar2(1000);
2158: end add_user_to_OID_sub_list;
2159: --
2160: -------------------------------------------------------------------------------
2161: procedure send_subscription_add_to_OID
2162: (p_orcl_guid fnd_user.user_guid%type)
2163: is
2164: l_module_source varchar2(256);
2165: l_apps_user_key apps_user_key_type;
2166: l_user_name fnd_user.user_name%type;
2162: (p_orcl_guid fnd_user.user_guid%type)
2163: is
2164: l_module_source varchar2(256);
2165: l_apps_user_key apps_user_key_type;
2166: l_user_name fnd_user.user_name%type;
2167: my_parms wf_parameter_list_t;
2168: begin
2169: l_module_source := G_MODULE_SOURCE || 'send_subscription_add_to_OID: ';
2170:
2172: then
2173: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source
2174: , 'Begin');
2175: end if;
2176: -- Cache attributes are queried in wf_oid.GetAppEvent based on FND user_name
2177: l_apps_user_key:= get_fnd_user(p_user_guid => p_orcl_guid);
2178: l_user_name := l_apps_user_key.user_name;
2179: if (l_user_name is null) then
2180: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2173: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source
2174: , 'Begin');
2175: end if;
2176: -- Cache attributes are queried in wf_oid.GetAppEvent based on FND user_name
2177: l_apps_user_key:= get_fnd_user(p_user_guid => p_orcl_guid);
2178: l_user_name := l_apps_user_key.user_name;
2179: if (l_user_name is null) then
2180: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2181: then
2180: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2181: then
2182: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source
2183: , 'Cannot send SUBSCRIPTION_ADD to OID because user ' ||
2184: 'does not exist in FND_USER');
2185: end if;
2186: return;
2187: end if;
2188: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)