[Home] [Help]
The following lines contain the word 'select', 'insert', 'update' or 'delete':
G_UPDATE constant pls_integer := 2;
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 CanUpdate( attr in varchar2 , user_name in varchar2 , realm in varchar2,x_user_creation in boolean default FALSE) return boolean;
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,
x_user_creation in boolean default FALSE ) ;
TYPE update_record IS record (
att varchar2(200),
op varchar2(10),
val varchar2(4000)
);
TYPE update_list IS table OF update_record INDEX BY pls_integer;
PROCEDURE ProcessUpdateRec(ldap in dbms_ldap.session, dn in varchar2, upd in update_list);
PROCEDURE delete_user(ldapSession in dbms_ldap.session, p_user_guid in fnd_user.user_guid%type ,
x_result out nocopy pls_integer,
p_forced in boolean default false) 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);
fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source,'NOT DELETED BECAUSE was created by '||l_creatorname);
fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source,'NOT DELETED BECAUSE is still enabled '||l_isenabled);
end delete_user;
procedure delete_user(p_user_guid in fnd_user.user_guid%type ,
x_result out nocopy pls_integer,
p_forced in boolean ) is
ldapSession dbms_ldap.session;
delete_user(ldapSession,p_user_guid,x_result,p_forced);
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(p_user_guid,x_result,false);
end delete_user;
fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Begin - call update user');
update_user(p_user_guid =>p_user_guid,
p_user_name=>p_user_name,
p_password => p_new_pwd,
p_expire_password =>p_expire_password,
x_password=>x_password,
x_result => x_result,
x_user_creation=>p_user_creation);
upd update_list;
SELECT user_id
INTO l_user_id
FROM FND_USER
WHERE user_guid=p_user_guid
AND user_name =p_old_user_name;
target.delete;
fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Cannot update nickname attribute');
list1.delete();
select user_id, decode(p_start_date, fnd_user_pkg.null_date, to_date(null),
null, start_date,
p_start_date) l_start_date,
decode(p_end_date, fnd_user_pkg.null_date, to_date(null),
null, end_date,
p_end_date) l_end_date
from fnd_user
where user_name = p_user_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;
update_user(p_user_guid =>p_user_guid,p_user_name =>p_user_name,
p_end_date =>sysdate-100,
p_expire_password => 0,x_password => x_password,x_result => x_result , x_user_creation=>FALSE);
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,
p_expire_password in pls_integer,
x_password out nocopy varchar2,
x_result out nocopy pls_integer,
x_user_creation in boolean default FALSE ) is
l_orclisEnabled varchar2(256);
upd update_list;
l_module_source := G_MODULE_SOURCE || 'update_user[proc]: ';
select user_id into l_user_id from fnd_user
where user_name=p_user_name and user_guid=p_user_guid;
FND_OID_PLUG.fixupLDAPUser(ldap_user,FND_OID_PLUG.G_UPDATE_USER);
OR canUpdate('userpassword',ldap_user.user_name, ldap_user.realmDN,x_user_creation)
)
) THEN
i:= upd.count;
and canUpdate('description',ldap_user.user_name, ldap_user.realmDN,x_user_creation) ) THEN
i:= upd.count;
and canUpdate('mail',ldap_user.user_name, ldap_user.realmDN,x_user_creation) ) THEN
i:= upd.count;
and canUpdate('facsimileTelephoneNumber',ldap_user.user_name, ldap_user.realmDN,x_user_creation)
) THEN
i:= upd.count;
and canUpdate('orclisenabled',ldap_user.user_name, ldap_user.realmDN)
and l_orclIsEnabled = fnd_oid_util.G_ENABLED) THEN
i:= upd.count;
ProcessUpdateRec(ldap,ldap_user.dn,upd);
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
BEGIN
update_user(p_user_guid,p_user_name,p_password,p_start_date,p_end_date,p_description,p_email_address,p_fax,p_expire_password,x_password,x_result,FALSE);
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;
select user_id,user_name,user_guid into ret.user_id,ret.user_name, ret.user_guid
from FND_USER WHERE
FND_USER.USER_NAME= ret.user_name;
l_user.user_data.delete(attr);
select 'Y' into l_user_linked from fnd_user
where user_guid = l_user_guid
and rownum = 1;
delete_user(ldapSession, p_ldap_user.user_guid,result);
the flag to disabled after the password has been updated by proxying as that user. This is because
we cannot proxy as a disabled user. */
-- Bug 9398572.
-- IF ( (l_password IS NULL) AND l_disabled_usr ) THEN
IF ( (p_expire_password = fnd_ldap_util.G_FALSE) AND (l_disabled_usr) ) THEN
l_enabled := fnd_oid_util.G_DISABLED;
delete_user(x_user_guid, x_result,true);
fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source,'Error occurred - delete user');
delete_user(x_user_guid, x_result);
usr.user_data.delete(l_name);
PROCEDURE deleteAttribute( usr in out nocopy ldap_user_type,
attName in varchar2,
attVal in varchar2 )
IS
i pls_integer ;
usr.user_data(attName).delete(i);
END deleteAttribute;
PROCEDURE deleteAttribute( usr in out nocopy ldap_user_type,
attName in varchar2)
is
l_name varchar2(4000) := lower(attName);
usr.user_data(l_name).delete;
usr.user_data.delete(l_name);
END deleteAttribute;
select user_id into l_user_id from FND_USER where user_name =l_user_name;
select user_name into l_user_name from FND_USER where user_id =l_user_id;
PROCEDURE ProcessUpdateRec(ldap in dbms_ldap.session, dn in varchar2, upd in update_list)
IS
i pls_integer;
l_module_source := G_MODULE_SOURCE || 'ProcessUpdateRec: ';
l.delete;
END ProcessUpdateRec;
select user_id into p_ldap_user.user_id from fnd_user where
user_name=l_v and user_guid=p_ldap_user.user_guid;
function CanUpdate( attr in varchar2 , user_name in varchar2 , realm in varchar2, x_user_creation in boolean default FALSE ) return boolean
IS
x_fnd pls_integer;
END CanUpdate;