The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure UpdateUserInternal (
x_user_name in varchar2,
x_owner in varchar2,
x_unencrypted_password in varchar2,
x_session_number in number,
x_start_date in date,
x_end_date in date,
x_last_logon_date in date,
x_description in varchar2,
x_password_date in date,
x_password_accesses_left in number,
x_password_lifespan_accesses in number,
x_password_lifespan_days in number,
x_employee_id in number,
x_email_address in varchar2,
x_fax in varchar2,
x_customer_id in number,
x_supplier_id in number,
x_person_party_id in number,
x_old_password in varchar2,
x_mode in varchar2,
x_last_update_date in date default sysdate,
x_user_guid in raw default null,
x_change_source in number default null)
is
l_api_name varchar2(30) := 'UPDATEUSERINTERNAL';
select customer_id, employee_id, person_party_id, user_guid
from fnd_user
where user_name = upper(x_user_name);
select start_date, end_date
into l_start_date, l_end_date
from fnd_user
where user_name = upper(x_user_name);
select decode(x_session_number, fnd_user_pkg.null_number, null,
null, u.session_number,
x_session_number),
-- bug 6608790 this preserves timestamp for iRecruitement
decode(x_last_logon_date, fnd_user_pkg.null_date, to_date(null),
to_date(null), u.last_logon_date,
x_last_logon_date),
decode(x_description, fnd_user_pkg.null_char, null,
null, u.description,
x_description),
decode(x_password_date, fnd_user_pkg.null_date, null,
null, u.password_date,
x_password_date),
decode(x_password_accesses_left, fnd_user_pkg.null_number, null,
null, u.password_accesses_left,
x_password_accesses_left),
decode(x_password_lifespan_accesses, fnd_user_pkg.null_number, null,
null, u.password_lifespan_accesses,
x_password_lifespan_accesses),
decode(x_password_lifespan_days, fnd_user_pkg.null_number, null,
null, u.password_lifespan_days,
x_password_lifespan_days),
decode(x_employee_id, fnd_user_pkg.null_number, null,
null, u.employee_id,
x_employee_id),
decode(x_email_address, fnd_user_pkg.null_char, null,
null, u.email_address,
x_email_address),
decode(x_fax, fnd_user_pkg.null_char, null,
null, u.fax,
x_fax),
decode(x_customer_id, fnd_user_pkg.null_number, null,
null, u.customer_id,
x_customer_id),
decode(x_supplier_id, fnd_user_pkg.null_number, null,
null, u.supplier_id,
x_supplier_id),
decode(x_person_party_id, fnd_user_pkg.null_number, null,
null, u.person_party_id,
x_person_party_id),
decode(x_user_guid, fnd_user_pkg.null_raw, null,
null, u.user_guid,
x_user_guid )
into l_session_number,
l_last_logon_date, l_description, l_password_date,
l_password_accesses_left, l_password_lifespan_accesses,
l_password_lifespan_days, l_employee_id,
l_email_address, l_fax, l_customer_id, l_supplier_id,
l_person_party_id , l_user_guid
from fnd_user u
where u.user_name = upper(x_user_name);
SAVEPOINT update_user;
'UpdateUser(): before updating user');
update fnd_user set
last_update_date = x_last_update_date,
last_updated_by = owner_id,
last_update_login = owner_id,
session_number = l_session_number,
start_date = l_start_date,
end_date = l_end_date,
last_logon_date = l_last_logon_date,
description = l_description,
password_date = l_password_date,
password_accesses_left = l_password_accesses_left,
password_lifespan_accesses = l_password_lifespan_accesses,
password_lifespan_days = l_password_lifespan_days,
employee_id = l_employee_id,
email_address = l_email_address,
fax = l_fax,
customer_id = l_customer_id,
supplier_id = l_supplier_id,
person_party_id = l_person_party_id,
user_guid = l_user_guid
where user_name = upper(x_user_name);
select user_id into l_user_id
from fnd_user
where user_name = upper(x_user_name);
fnd_function_security_cache.update_user(l_user_id);
'Start calling ldap_wrapper_update_user');
select fnd_ldap_wrapper.G_TRUE
into l_expire_pwd
from fnd_user
where user_name = upper(x_user_name)
and (PASSWORD_DATE is NULL or
(PASSWORD_LIFESPAN_ACCESSES is not NULL and
nvl(PASSWORD_ACCESSES_LEFT, 0) < 1) or
(PASSWORD_LIFESPAN_DAYS is not NULL and
SYSDATE >= PASSWORD_DATE + PASSWORD_LIFESPAN_DAYS));
ldap_wrapper_update_user(upper(x_user_name), x_unencrypted_password,
x_start_date, x_end_date, x_description,
x_email_address, x_fax, l_expire_pwd);
ROLLBACK to update_user;
fnd_message.set_name('FND', 'FND_UPDATE_USER_FAILED');
'After calling ldap_wrapper_update_user');
end UpdateUserInternal;
X_LAST_UPDATE_DATE=> '');
X_LAST_UPDATE_DATE in VARCHAR2,
X_PERSON_PARTY_NAME in VARCHAR2 default NULL) is
owner_id number := 0;
f_ludate date; -- entity update date in file
db_ludate date; -- entity update date in db
PROCEDURE DoPassword_update( puser_name in varchar2, pcrypt_pass in varchar2 ) is
encPwd varchar2(100);
update fnd_user
set encrypted_foundation_password = encPwd,
encrypted_user_password = encPwd
where user_name = puser_name;
f_ludate := nvl(to_date(x_last_update_date, 'YYYY/MM/DD'), sysdate);
UpdateUser and CreateUser procedures. */
if (X_END_DATE = fnd_user_pkg.null_char) then
l_end_date := fnd_user_pkg.null_date;
select LAST_UPDATED_BY, LAST_UPDATE_DATE
into db_luby, db_ludate
from FND_USER
where USER_NAME = X_USER_NAME;
UpdateUserInternal(
x_user_name => x_user_name,
x_owner => x_owner, -- bug 7687370
x_unencrypted_password => '',
x_session_number => to_number(x_session_number),
x_start_date => to_date(X_START_DATE, 'YYYY/MM/DD'),
x_end_date => L_END_DATE,
x_last_logon_date => L_LAST_LOGON_DATE,
x_description => X_DESCRIPTION,
x_password_date => L_PASSWORD_DATE,
x_password_accesses_left => L_PASSWORD_ACCESSES_LEFT,
x_password_lifespan_accesses => L_PASSWORD_LIFESPAN_ACCESSES,
x_password_lifespan_days => L_PASSWORD_LIFESPAN_DAYS,
x_employee_id => null,
x_email_address => x_email_address,
x_fax => x_fax,
x_customer_id => null,
x_supplier_id => null,
x_person_party_id => l_person_party_id,
x_old_password => null,
x_mode => 'EMPLOYEE',
x_last_update_date => f_ludate);
DoPassword_update(X_USER_NAME, X_ENCRYPTED_USER_PASSWORD);
DoPassword_update(X_USER_NAME, X_ENCRYPTED_USER_PASSWORD);
update fnd_user
set created_by = owner_id
where user_name = upper(x_user_name);
'CreateUser(): calling fnd_user_pkg.UpdateUser');
fnd_user_pkg.UpdateUserInternal(
-- End bug 4318754, 4424225
x_user_name => x_user_name,
x_owner => x_owner,
x_unencrypted_password => l_oid_pwd,
x_session_number => x_session_number,
x_start_date => x_start_date,
x_end_date => x_end_date,
x_last_logon_date => x_last_logon_date,
x_description => x_description,
x_password_date => x_password_date,
x_password_accesses_left => x_password_accesses_left,
x_password_lifespan_accesses => x_password_lifespan_accesses,
x_password_lifespan_days => x_password_lifespan_days,
x_employee_id => null,
x_email_address => x_email_address,
x_fax => x_fax,
x_customer_id => null,
x_supplier_id => null,
x_person_party_id => x_person_party_id,
x_old_password => null,
x_mode => 'PARTY',
x_user_guid => l_user_guid,
x_change_source => fnd_user_pkg.change_source_oid);
fnd_user_pkg.UpdateUser(
x_user_name => x_user_name,
x_owner => x_owner,
x_unencrypted_password => l_oid_pwd,
x_session_number => x_session_number,
x_start_date => x_start_date,
x_end_date => x_end_date,
x_last_logon_date => x_last_logon_date,
x_description => x_description,
x_password_date => x_password_date,
x_password_accesses_left => x_password_accesses_left,
x_password_lifespan_accesses => x_password_lifespan_accesses,
x_password_lifespan_days => x_password_lifespan_days,
x_employee_id => x_employee_id,
x_email_address => x_email_address,
x_fax => x_fax,
x_customer_id => x_customer_id,
x_supplier_id => x_supplier_id,
x_old_password => null,
x_user_guid => l_user_guid,
x_change_source => fnd_user_pkg.change_source_oid);
procedure UpdateUser (
x_user_name in varchar2,
x_owner in varchar2,
x_unencrypted_password in varchar2 default null,
x_session_number in number default null,
x_start_date in date default null,
x_end_date in date default null,
x_last_logon_date in date default null,
x_description in varchar2 default null,
x_password_date in date default null,
x_password_accesses_left in number default null,
x_password_lifespan_accesses in number default null,
x_password_lifespan_days in number default null,
x_employee_id in number default null,
x_email_address in varchar2 default null,
x_fax in varchar2 default null,
x_customer_id in number default null,
x_supplier_id in number default null,
x_old_password in varchar2 default null)
is
begin
UpdateUserInternal(
x_user_name => x_user_name,
x_owner => x_owner,
x_unencrypted_password => x_unencrypted_password,
x_session_number => x_session_number,
x_start_date => x_start_date,
x_end_date => x_end_date,
x_last_logon_date => x_last_logon_date,
x_description => x_description,
x_password_date => x_password_date,
x_password_accesses_left => x_password_accesses_left,
x_password_lifespan_accesses => x_password_lifespan_accesses,
x_password_lifespan_days => x_password_lifespan_days,
x_employee_id => x_employee_id,
x_email_address => x_email_address,
x_fax => x_fax,
x_customer_id => x_customer_id,
x_supplier_id => x_supplier_id,
x_person_party_id => null,
x_old_password => x_old_password,
x_mode => 'EMPLOYEE');
end UpdateUser;
procedure UpdateUserParty (
x_user_name in varchar2,
x_owner in varchar2,
x_unencrypted_password in varchar2 default null,
x_session_number in number default null,
x_start_date in date default null,
x_end_date in date default null,
x_last_logon_date in date default null,
x_description in varchar2 default null,
x_password_date in date default null,
x_password_accesses_left in number default null,
x_password_lifespan_accesses in number default null,
x_password_lifespan_days in number default null,
x_email_address in varchar2 default null,
x_fax in varchar2 default null,
x_person_party_id in number default null,
x_old_password in varchar2 default null)
is
begin
UpdateUserInternal(
x_user_name => x_user_name,
x_owner => x_owner,
x_unencrypted_password => x_unencrypted_password,
x_session_number => x_session_number,
x_start_date => x_start_date,
x_end_date => x_end_date,
x_last_logon_date => x_last_logon_date,
x_description => x_description,
x_password_date => x_password_date,
x_password_accesses_left => x_password_accesses_left,
x_password_lifespan_accesses => x_password_lifespan_accesses,
x_password_lifespan_days => x_password_lifespan_days,
x_employee_id => null,
x_email_address => x_email_address,
x_fax => x_fax,
x_customer_id => null,
x_supplier_id => null,
x_person_party_id => x_person_party_id,
x_old_password => x_old_password,
x_mode => 'PARTY');
end UpdateUserParty;
'LoadUser(): before update statement');
select 'Y'
into exists_flag
from fnd_user u
where u.user_name = x_user_name;
fnd_user_pkg.UpdateUser(x_user_name,
x_owner,
x_unencrypted_password,
x_session_number,
x_start_date,
x_end_date,
x_last_logon_date,
x_description,
x_password_date,
x_password_accesses_left,
x_password_lifespan_accesses,
x_password_lifespan_days,
x_employee_id,
x_email_address,
x_fax,
x_customer_id,
x_supplier_id,
null);
'LoadUser(): before update statement');
select 'Y'
into exists_flag
from fnd_user u
where u.user_name = x_user_name;
fnd_user_pkg.UpdateUserParty(x_user_name,
x_owner,
x_unencrypted_password,
x_session_number,
x_start_date,
x_end_date,
x_last_logon_date,
x_description,
x_password_date,
x_password_accesses_left,
x_password_lifespan_accesses,
x_password_lifespan_days,
x_email_address,
x_fax,
x_person_party_id,
null);
fnd_user_pkg.UpdateUser(x_user_name => DisableUser.username,
x_owner => null,
x_end_date => sysdate);
update fnd_user
set customer_id = p_to_fk_id
where customer_id = p_from_fk_id;
fnd_function_security_cache.update_user(p_from_id);
select nvl(description, '*NULL*'),
nvl(email_address, '*NULL*'),
nvl(fax, '*NULL*'),
user_name,
user_id
from fnd_user
where user_guid = userGuid;
if (my_mode = 'DELETE') then
begin
fnd_user_pkg.disableUser(my_username);
select nvl(description, '*NULL*'),
nvl(email_address, '*NULL*'),
nvl(fax, '*NULL*'),
user_guid
into old_desc, old_email, old_fax, old_guid
from fnd_user
where user_name = my_username;
fnd_user_pkg.UpdateUser(
x_user_name => my_username,
x_owner => 'CUST',
x_description => new_desc2,
x_email_address => new_email2,
x_fax => new_fax2,
-- This api is called by LDAP so pass the change source so that we don't
-- start the synch loop.
x_user_guid => old_guid,
x_change_source => fnd_user_pkg.change_source_oid);
'LDAP - finished fnd_user_pkg.UpdateUser('||my_username||')');
if (p_event.GetValueForParameter('CHANGE_TYPE') = 'DELETE') then
begin
fnd_user_pkg.disableUser(my_user);
fnd_user_pkg.UpdateUser(
x_user_name => my_user,
x_owner => 'CUST',
x_description => new_desc,
x_email_address => new_email,
x_fax => new_fax);
'OID - finished fnd_user_pkg.UpdateUser('||my_user||')');
select 'Y' into existing_user
from fnd_user
where user_name = my_username;
select 'Y' into existing_user
from fnd_user
where user_name = my_cachekey;
update fnd_user set user_guid = new_guid
where user_name = my_cachekey;
procedure UpdateUserNameChildren(old_name in varchar2,
new_name in varchar2) is
colnames fnd_dictionary_pkg.NameArrayTyp;
l_api_name CONSTANT varchar2(30) := 'UpdateUsernameChildren';
tmpbuf := 'Start calling fnd_dictionary_pkg.updatepkcolumns('||
old_name||','||new_name||')';
ret := fnd_dictionary_pkg.updatepkcolumns('FND', 'FND_USER', colnames, colold,
colnew);
tmpbuf := 'Finished fnd_dictionary_pkg.updatepkcolumns';
fnd_message.set_name('FND', 'FND_FAILED_UPDATE_UNAME_CHILD');
end UpdateUserNameChildren;
select user_id, email_address, description, fax, employee_id,
person_party_id,
start_date, end_date, user_guid, encrypted_user_password,
to_char(start_date, 'YYYYMMDDHH24MISS'),
to_char(end_date, 'YYYYMMDDHH24MISS')
into my_userid, my_email, my_desc, my_fax, my_empid, my_partyid,
my_start, my_exp, my_guid, my_pwd, ch_start, ch_exp
from fnd_user
where user_name = upper(p_user_name);
UpdateUsernameChildren(g_old_user_name, p_user_name);
select user_id into userid
from fnd_user
where user_name = DelResp.username;
select application_id into appid
from fnd_application
where application_short_name = DelResp.Resp_app;
/* sysdate in call to fnd_user_resp_groups_api.update_assignment */
select responsibility_id
into respid
from fnd_responsibility
where application_id = appid
and responsibility_key = DelResp.resp_key;
select security_group_id into secid
from fnd_security_groups
where security_group_key = DelResp.security_group;
select start_date into startdate
from fnd_user_resp_groups_all
where user_id = userid
and responsibility_id = respid
and responsibility_application_id = appid;
fnd_user_resp_groups_api.update_assignment(
user_id => userid,
responsibility_id => respid,
responsibility_application_id => appid,
security_group_id => secid,
start_date => startdate,
end_date => sysdate,
description => null);
select user_id into userid
from fnd_user
where user_name = AddResp.username;
select application_id into appid
from fnd_application
where application_short_name = AddResp.resp_app;
select responsibility_id into respid
from fnd_responsibility
where application_id = appid
and responsibility_key = AddResp.resp_key;
select security_group_id into secid
from fnd_security_groups
where security_group_key = AddResp.security_group;
fnd_user_resp_groups_api.update_assignment(
user_id => userid,
responsibility_id => respid,
responsibility_application_id => appid,
security_group_id => secid,
start_date => AddResp.start_date,
end_date => AddResp.end_date,
description => AddResp.description);
fnd_user_resp_groups_api.insert_assignment(
user_id => userid,
responsibility_id => respid,
responsibility_application_id => appid,
security_group_id => secid,
start_date => AddResp.start_date,
end_date => AddResp.end_date,
description => AddResp.description);
Procedure UpdatePassword_WF(itemtype in varchar2,
itemkey in varchar2,
actid in number,
funcmode in varchar2,
resultout in out nocopy varchar2) is
begin
if (funcmode = 'RUN') then
FND_USER_PKG.UpdateUser(
x_user_name=>
WF_ENGINE.GetActivityAttrText(itemtype, itemkey, actid,
'X_USER_NAME'),
x_owner=>'CUST',
x_unencrypted_password=>
WF_ENGINE.GetActivityAttrText(itemtype, itemkey, actid,
'X_UNENCRYPTED_PASSWORD',
TRUE),
x_password_date=>
WF_ENGINE.GetActivityAttrDate(itemtype, itemkey, actid,
'X_PASSWORD_DATE', TRUE),
x_password_accesses_left=>
WF_ENGINE.GetActivityAttrNumber(itemtype, itemkey, actid,
'X_PASSWORD_ACCESSES_LEFT',
TRUE),
x_password_lifespan_accesses=>
WF_ENGINE.GetActivityAttrNumber(itemtype, itemkey, actid,
'X_PASSWORD_LIFESPAN_ACCESSES',
TRUE),
x_password_lifespan_days=>
WF_ENGINE.GetActivityAttrNumber(itemtype, itemkey, actid,
'X_PASSWORD_LIFESPAN_DAYS',
TRUE));
Wf_Core.Context('FND_WF_STANDARD', 'UpdatePassword', itemtype, itemkey,
actid);
select party_id
into l_emp_person_party_id
from per_all_people_f
where person_id = l_employee_id
and trunc(sysdate) between effective_start_date
and effective_end_date;
fnd_user_pkg.UpdateUser(x_user_name => EnableUser.username,
x_owner => NULL,
x_start_date => EnableUser.start_date,
x_end_date => EnableUser.end_date);
select user_id, user_guid
into l_user_id, l_user_guid
from fnd_user
where user_name = upper(username)
and to_char(start_date) = to_char(FND_API.G_MISS_DATE)
and to_char(end_date) = to_char(FND_API.G_MISS_DATE);
fnd_ldap_wrapper.delete_user(l_user_guid, retval);
delete from fnd_user
where user_name = upper(username)
and to_char(start_date) = to_char(FND_API.G_MISS_DATE)
and to_char(end_date) = to_char(FND_API.G_MISS_DATE);
fnd_function_security_cache.delete_user(l_user_id);
select party_id
into pid
from hz_parties
where upper(party_name) = upper(x_party);
fnd_user_pkg.UpdateUserParty(x_user_name => x_user_name,
x_owner => 'SEED',
x_person_party_id => pid);
fnd_user_pkg.UpdateUserParty(x_user_name => x_user_name,
x_owner => 'SEED',
x_person_party_id => x_party_id);
select USER_GUID, encrypted_user_password
into l_user_guid, encpwd
from fnd_user
where user_name = upper(x_old_user_name);
select null into dummy from fnd_user
where user_name = upper(x_new_user_name);
-- Move ldap_wrapper synch call to here before we do FND user update
begin
tmpbuf := 'Calling ldap_wrapper_change_user_name to change '||
x_old_user_name|| ' to '|| x_new_user_name;
update fnd_user set user_name = upper(x_new_user_name)
where user_name = upper(x_old_user_name);
select user_id
into l_user_id
from fnd_user
where user_name = upper(x_new_user_name);
fnd_function_security_cache.update_user(l_user_id);
update fnd_grants
set grantee_key = x_new_user_name
where grantee_key = x_old_user_name
and grantee_type = 'USER';
update fnd_user
set person_party_id = p_to_fk_id
where person_party_id = p_from_fk_id;
fnd_function_security_cache.update_user(p_from_id);
procedure UpdateUser (
x_user_name in varchar2,
x_owner in varchar2,
x_unencrypted_password in varchar2 default null,
x_session_number in number default null,
x_start_date in date default null,
x_end_date in date default null,
x_last_logon_date in date default null,
x_description in varchar2 default null,
x_password_date in date default null,
x_password_accesses_left in number default null,
x_password_lifespan_accesses in number default null,
x_password_lifespan_days in number default null,
x_employee_id in number default null,
x_email_address in varchar2 default null,
x_fax in varchar2 default null,
x_customer_id in number default null,
x_supplier_id in number default null,
x_old_password in varchar2 default null,
x_user_guid in raw,
x_change_source in number default null)
is
begin
UpdateUserInternal(
x_user_name => x_user_name,
x_owner => x_owner,
x_unencrypted_password => x_unencrypted_password,
x_session_number => x_session_number,
x_start_date => x_start_date,
x_end_date => x_end_date,
x_last_logon_date => x_last_logon_date,
x_description => x_description,
x_password_date => x_password_date,
x_password_accesses_left => x_password_accesses_left,
x_password_lifespan_accesses => x_password_lifespan_accesses,
x_password_lifespan_days => x_password_lifespan_days,
x_employee_id => x_employee_id,
x_email_address => x_email_address,
x_fax => x_fax,
x_customer_id => x_customer_id,
x_supplier_id => x_supplier_id,
x_person_party_id => null,
x_old_password => x_old_password,
x_mode => 'EMPLOYEE',
x_user_guid => x_user_guid,
x_change_source => x_change_source);
end UpdateUser;
select 1 into dummy from fnd_user
where user_name = upper(x_user_name);
function ldap_wrp_update_user_helper(x_user_name in varchar2,
x_unencrypted_password in varchar2,
x_start_date in date,
x_end_date in date,
x_description in varchar2,
x_email_address in varchar2,
x_fax in varchar2,
x_expire_pwd in pls_integer) return varchar2
is
l_user_guid raw(16);
select user_guid, user_id into l_user_guid, userid
from fnd_user
where user_name = x_user_name;
fnd_ldap_wrapper.update_user(l_user_guid, x_user_name,
l_pwd, x_start_date, x_end_date, x_description,
x_email_address, x_fax, x_expire_pwd, l_pwd_ret, l_result);
fnd_message.set_name('FND', 'LDAP_WRAPPER_UPDATE_USER_FAIL');
fnd_message.set_name('FND', 'LDAP_WRAPPER_UPDATE_USER_FAIL');
procedure ldap_wrapper_update_user(x_user_name in varchar2,
x_unencrypted_password in varchar2,
x_start_date in date,
x_end_date in date,
x_description in varchar2,
x_email_address in varchar2,
x_fax in varchar2,
x_expire_pwd in pls_integer default 0) is
l_pwd_ret varchar2(100);
l_pwd_ret := ldap_wrp_update_user_helper(x_user_name,
x_unencrypted_password, x_start_date, x_end_date, x_description,
x_email_address, x_fax, x_expire_pwd);
update fnd_user
set encrypted_foundation_password = l_pwd_ret,
encrypted_user_password = l_pwd_ret
where user_name = upper(x_user_name);
update fnd_user
set user_guid = l_user_guid
where user_name = x_user_name;
select user_guid
into l_user_guid
from fnd_user
where user_name = x_old_user_name;
procedure form_ldap_wrapper_update_user(x_user_name in varchar2,
x_unencrypted_password in varchar2,
x_start_date in date,
x_end_date in date,
x_description in varchar2,
x_email_address in varchar2,
x_fax in varchar2,
x_out_pwd in out nocopy varchar2) is
l_end_date date;
l_pwd_ret := ldap_wrp_update_user_helper(x_user_name,
x_unencrypted_password, x_start_date, l_end_date, l_description,
l_email_address, l_fax, fnd_ldap_wrapper.G_TRUE );
procedure ldap_wrp_update_user_loader(x_user_name in varchar2,
x_hashed_password in varchar2,
x_start_date in date,
x_end_date in date,
x_description in varchar2,
x_email_address in varchar2,
x_fax in varchar2,
x_expire_pwd in pls_integer default 1)
is
l_pwd_ret varchar2(100);
select user_guid, user_id into l_user_guid, userid
from fnd_user
where user_name = x_user_name;
fnd_ldap_wrapper.update_user(l_user_guid, x_user_name,
x_hashed_password, x_start_date, x_end_date, x_description,
x_email_address, x_fax, x_expire_pwd, l_pwd_ret, l_result);
fnd_message.set_name('FND', 'LDAP_WRAPPER_UPDATE_USER_FAIL');
update fnd_user
set encrypted_foundation_password = 'EXTERNAL',
encrypted_user_password = 'EXTERNAL'
where user_name = upper(x_user_name);
fnd_message.set_name('FND', 'LDAP_WRAPPER_UPDATE_USER_LOADER_FAIL');