The following lines contain the word 'select', 'insert', 'update' or 'delete':
G_UPDATE constant pls_integer := 2;
function delete_user_by_name(p_ldap_session in dbms_ldap.session, p_cn in varchar2) return pls_integer;
function delete_user_nodes(p_ldap_session in dbms_ldap.session, p_orclguid in fnd_user.user_guid%type) return pls_integer;
function delete_user_subscription(p_ldap_session in dbms_ldap.session, guid raw) return pls_integer;
function delete_uniquemember(p_ldap_session in dbms_ldap.session, p_orclguid in fnd_user.user_guid%type) return pls_integer;
function update_user(p_ldap_user in fnd_ldap_util.ldap_user_type) return pls_integer;
function update_user(p_ldap_user in fnd_ldap_util.ldap_user_type, p_expire_password in pls_integer) return pls_integer;
function update_user_nodes(p_ldap_session in dbms_ldap.session, p_mod_array in dbms_ldap.mod_array, p_orclguid in raw) return pls_integer;
procedure delete_user(ldapSession in dbms_ldap.session, p_user_guid in fnd_user.user_guid%type ,
x_result out nocopy pls_integer) is
l_module_source varchar2(256) := G_MODULE_SOURCE || 'delete_user: ';
l_module_source := G_MODULE_SOURCE || 'delete_user: ';
x_result := delete_user_subscription(ldapSession, l_guid);
x_result := delete_uniquemember(ldapSession, l_orclguid);
x_result := delete_user_nodes(ldapSession, l_orclguid);
end delete_user;
procedure delete_user(p_user_guid in fnd_user.user_guid%type ,
x_result out nocopy pls_integer) is
ldapSession dbms_ldap.session;
delete_user(ldapSession,p_user_guid,x_result);
end delete_user;
select user_id into l_user_id
from fnd_user
where user_name = p_user_name;
x_result := update_user(usertype, p_expire_password);
x_result := update_user(usertype);
the flag to enabled after the password has been updated by proxying as that user. This is because
we cannot proxy as a disabled user. */
if ( (l_password is null) and (usertype.orclisEnabled = fnd_oid_util.G_DISABLED) ) then
l_enabled := fnd_oid_util.G_DISABLED;
delete_user(x_user_guid, x_result);
result := delete_user_by_name(ldapSession, p_ldap_user.cn);
select user_id, decode(p_start_date, fnd_user_pkg.null_date, null,
null, start_date,
p_start_date) l_start_date,
decode(p_end_date, fnd_user_pkg.null_date, null,
null, end_date,
p_end_date) l_end_date
from fnd_user
where user_name = p_user_name;
function delete_user_by_name(p_ldap_session in dbms_ldap.session, p_cn in varchar2)
return pls_integer is
l_module_source varchar2(256);
l_module_source := G_MODULE_SOURCE || 'delete_user: ';
delete_user(p_ldap_session,l_guid,result);
end delete_user_by_name;
function delete_user_nodes(p_ldap_session in dbms_ldap.session,
p_orclguid in fnd_user.user_guid%type) return pls_integer is
l_module_source varchar2(256);
l_module_source := G_MODULE_SOURCE || 'delete_user_nodes: ';
l_result := dbms_ldap.delete_s(ld => p_ldap_session, entrydn => usersNode);
end delete_user_nodes;
function delete_user_subscription(p_ldap_session in dbms_ldap.session, guid in raw)
return pls_integer is
l_module_source varchar2(256);
l_module_source := G_MODULE_SOURCE || 'delete_user_subscription ';
l_result := dbms_ldap.delete_s(ld => p_ldap_session, entrydn => 'orclOwnerGUID=' || l_user_guid||','||subsNode);
end delete_user_subscription;
function delete_uniquemember(p_ldap_session in dbms_ldap.session,
p_orclguid in fnd_user.user_guid%type) return pls_integer is
l_module_source varchar2(256);
l_module_source := G_MODULE_SOURCE || 'delete_uniquemember: ';
dbms_ldap.populate_mod_array(modptr => modArray, mod_op => dbms_ldap.mod_delete, mod_type => 'uniquemember', modval => modmultivalues);
end delete_uniquemember;
x_result := update_user(usertype);
select user_name
from fnd_user
where user_guid = p_user_guid
and user_name <> p_user_name;
x_result := delete_user_subscription(l_ldap_session, p_user_guid);
x_result := delete_uniquemember(l_ldap_session, p_user_guid);
procedure update_user(p_user_guid in raw,
p_user_name in varchar2,
p_password in varchar2 default null,
p_start_date in date default null,
p_end_date in date default null,
p_description in varchar2 default null,
p_email_address in varchar2 default null,
p_fax in varchar2 default null,
x_result out nocopy pls_integer) is
l_password pls_integer;
update_user(p_user_guid ,
p_user_name,
p_password ,
p_start_date ,
p_end_date,
p_description,
p_email_address ,
p_fax,
l_password,
x_result );
end update_user;
procedure update_user(p_user_guid in raw,
p_user_name in varchar2,
p_password in varchar2 default null,
p_start_date in date default null,
p_end_date in date default null,
p_description in varchar2 default null,
p_email_address in varchar2 default null,
p_fax in varchar2 default null,
x_password out nocopy varchar2,
x_result out nocopy pls_integer) is
l_orclisEnabled varchar2(256);
l_module_source := G_MODULE_SOURCE || 'update_user[proc]: ';
x_result := update_user(usertype);
end update_user;
procedure update_user(p_user_guid in raw,
p_user_name in varchar2,
p_password in varchar2 default null,
p_start_date in date default null,
p_end_date in date default null,
p_description in varchar2 default null,
p_email_address in varchar2 default null,
p_fax in varchar2 default null,
p_expire_password in pls_integer,
x_password out nocopy varchar2,
x_result out nocopy pls_integer) is
l_orclisEnabled varchar2(256);
l_module_source := G_MODULE_SOURCE || 'update_user: ';
x_result := update_user(usertype);
end update_user;
function update_user(p_ldap_user in fnd_ldap_util.ldap_user_type)
return pls_integer is
l_module_source varchar2(256);
l_module_source := G_MODULE_SOURCE || 'update_user: ';
num_attributes := process_attributes(p_ldap_user, G_UPDATE,
x_atts => l_atts, x_att_values => l_att_values);
retval := update_user_nodes(ldapSession, modArray, p_ldap_user.orclGUID);
end update_user;
function update_user(p_ldap_user in fnd_ldap_util.ldap_user_type, p_expire_password in pls_integer)
return pls_integer is
l_module_source varchar2(256);
l_module_source := G_MODULE_SOURCE || 'update_user: ';
num_attributes := process_attributes(p_ldap_user, G_UPDATE,
x_atts => l_atts, x_att_values => l_att_values);
retval := update_user_nodes(ldapSession, modArray, p_ldap_user.orclGUID);
end update_user;
function update_user_nodes(p_ldap_session in dbms_ldap.session, p_mod_array in dbms_ldap.mod_array, p_orclguid in raw)
return pls_integer is
l_module_source varchar2(256);
l_module_source := G_MODULE_SOURCE || 'update_user_nodes: ';
end update_user_nodes;
select user_guid into l_user_guid from fnd_user where user_name=p_user_name;