[Home] [Help]
402:
403:
404:
405: CURSOR USER_EXISTS_FOR_CONTACT (l_rel_party_id VARCHAR2) IS
406: select user_name from fnd_user where customer_id=l_rel_party_id;
407:
408: CURSOR USER_EXISTS_FOR_PERSON (l_person_party_id VARCHAR2) IS
409: select user_name from fnd_user where person_party_id=l_person_party_id;
410:
405: CURSOR USER_EXISTS_FOR_CONTACT (l_rel_party_id VARCHAR2) IS
406: select user_name from fnd_user where customer_id=l_rel_party_id;
407:
408: CURSOR USER_EXISTS_FOR_PERSON (l_person_party_id VARCHAR2) IS
409: select user_name from fnd_user where person_party_id=l_person_party_id;
410:
411:
412: BEGIN
413:
1157:
1158: -- dbms_output.put_line('Test user name');
1159: if l_update_allowed = FND_API.G_FALSE OR l_mode='CREATE' then
1160:
1161: l_test_user_return_code := FND_USER_PKG.TestUserName(l_contact_details_rec.user_name);
1162: if l_test_user_return_code = 1 then
1163: l_contact_create_ok:= 'FALSE';
1164: x_contact_output_rec.return_status:='ERROR';
1165: fnd_message.set_name('FND','INVALID_USER_NAME');
1168:
1169: elsif l_test_user_return_code = 2 then
1170: l_contact_create_ok:= 'FALSE';
1171: x_contact_output_rec.return_status:='ERROR';
1172: fnd_message.set_name('FND','FND_USER_EXISTS_IN_FND');
1173: l_log_count:= l_log_count + 1;
1174: l_log_msg(l_log_count):=substrb(fnd_message.get, 1, 1000);
1175:
1176: elsif l_test_user_return_code = 4 then
1175:
1176: elsif l_test_user_return_code = 4 then
1177: l_contact_create_ok:= 'FALSE';
1178: x_contact_output_rec.return_status:='ERROR';
1179: fnd_message.set_name('FND','FND_USER_EXISTS_NO_LINK');
1180: l_log_count:= l_log_count + 1;
1181: l_log_msg(l_log_count):=substrb(fnd_message.get, 1, 1000);
1182:
1183: end if;
1505: and jtus.subscription_id = jtsr.subscription_id
1506: and (jtsr.effective_end_date is null or jtsr.effective_end_date > sysdate);
1507:
1508: CURSOR get_user_id(l_user_name VARCHAR2) is
1509: select user_id from fnd_user where user_name=l_user_name;
1510:
1511:
1512: BEGIN
1513:
1694:
1695:
1696:
1697:
1698: FND_USER_PKG.CreateUser(x_user_name => l_user_name,
1699: x_owner => 'SYSTEM',
1700: x_unencrypted_password => l_password,
1701: x_start_date => sysdate,
1702: x_end_date => null,
1820:
1821: --- Will remove this once the Register_partner_user start date is fixed.
1822:
1823:
1824: fnd_user_pkg.updateUser(
1825: x_user_name => l_user_name,
1826: x_owner => null,
1827: x_start_date => sysdate
1828: );
1990: CURSOR user_type_id (user_type VARCHAR2) IS
1991: select usertype_id ,nvl(approval_id,-1) from JTF_UM_USERTYPES_B where usertype_key=user_type;
1992:
1993: CURSOR user_type_reg_id (USERNAME VARCHAR2 , USERTYPE VARCHAR2) IS
1994: select USERTYPE_REG_ID from jtf_um_usertype_reg reg, fnd_user fu, JTF_UM_USERTYPES_B type where
1995: fu.user_id=reg.user_id and fu.user_name=username and
1996: type.usertype_key=USERTYPE and
1997: reg.usertype_id=type.usertype_id and
1998: reg.user_id=fu.user_id;
1996: type.usertype_key=USERTYPE and
1997: reg.usertype_id=type.usertype_id and
1998: reg.user_id=fu.user_id;
1999: CURSOR get_user_id(l_user_name VARCHAR2) is
2000: select user_id from fnd_user where user_name=l_user_name;
2001:
2002: CURSOR enrollment_id (user_type VARCHAR2) IS
2003: select a.subscription_id from JTF_UM_USERTYPE_SUBSCRIP a,JTF_UM_SUBSCRIPTIONS_B b,JTF_UM_USERTYPES_B c
2004: where a.subscription_id=b.subscription_id
2072: and hzr.object_id = org_hzp.party_id and
2073: rel_hzp.party_id=hzr.party_id;
2074:
2075: CURSOR CHECK_CONTACT(rel_party_id VARCHAR2,l_user_name VARCHAR2) is
2076: select hzr.subject_id from hz_parties rel,hz_relationships hzr ,pv_partner_profiles pvpp, fnd_user fu
2077: where rel.party_id=rel_party_id and
2078: hzr.party_id=rel.party_id and
2079: hzr.relationship_code in ('EMPLOYEE_OF') and
2080: fu.user_name=l_user_name and
2350:
2351: --- Will remove this once the Register_partner_user start date is fixed.
2352:
2353:
2354: fnd_user_pkg.updateUser(
2355: x_user_name => l_user_name,
2356: x_owner => null,
2357: x_start_date => sysdate
2358: );