The following lines contain the word 'select', 'insert', 'update' or 'delete':
select count(1)
into dummy
from FND_SECURITY_GROUPS
where SECURITY_GROUP_ID = Id_Exists.security_group_id;
select 1
into dummy
from FND_SECURITY_GROUPS
where SECURITY_GROUP_KEY = Key_Exists.security_group_key;
select 1
into dummy
from FND_SECURITY_GROUPS_VL
where SECURITY_GROUP_NAME = Name_Exists.security_group_name;
select FND_SECURITY_GROUPS_S.NEXTVAL
into security_group_id
from SYS.DUAL;
Fnd_Security_Groups_Pkg.Insert_Row(
row_id,
security_group_id,
security_group_key,
security_group_name,
description,
sysdate,
Fnd_Global.User_Id,
sysdate,
Fnd_Global.User_Id,
Fnd_Global.Login_Id);
procedure Update_Group(
security_group_key in varchar2,
security_group_name in varchar2,
description in varchar2)
is
security_group_id number;
select FSG.SECURITY_GROUP_ID
into security_group_id
from FND_SECURITY_GROUPS FSG
where FSG.SECURITY_GROUP_KEY = Update_Group.security_group_key;
Fnd_Security_Groups_Pkg.Update_Row(
security_group_id,
security_group_key,
security_group_name,
description,
sysdate,
Fnd_Global.User_Id,
Fnd_Global.Login_Id);
Generic_Error('FND_SECURITY_GROUPS_API.UPDATE_GROUP',
sqlcode, sqlerrm);
end Update_Group;