The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE INSERT_GROUP_ROLES(P_API_VERSION IN NUMBER,
P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
P_ROLE_ID IN JTF_RS_ROLE_RELATIONS.ROLE_ID%TYPE,
P_GROUP_ID IN JTF_RS_GROUP_MEMBERS.GROUP_ID%TYPE,
P_RESOURCE_ID IN JTF_RS_GROUP_MEMBERS.RESOURCE_ID%TYPE,
P_ROLE_RESOURCE_TYPE IN JTF_RS_ROLE_RELATIONS.ROLE_RESOURCE_TYPE%TYPE,
P_START_DATE_ACTIVE IN JTF_RS_ROLE_RELATIONS.START_DATE_ACTIVE%TYPE,
P_END_DATE_ACTIVE IN JTF_RS_ROLE_RELATIONS.END_DATE_ACTIVE%TYPE DEFAULT NULL,
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2,
X_GROUP_MEMBER_ID OUT NOCOPY NUMBER,
X_ROLE_RELATE_ID OUT NOCOPY NUMBER
)
IS
l_api_version CONSTANT NUMBER := 1.0;
select group_member_id
from jtf_rs_group_members
where group_id = l_group_id
and resource_id = l_resource_id
and nvl(delete_flag, 'N') <> 'Y';
Debug_Message('Entering INSERT_GROUP_ROLES', 'CSF_RES_GROUP_ROLE_PVT.INSERT_GROUP_ROLES', fnd_log.level_procedure);
Debug_Message('group member does not exist calling jtf_rs_group_members_pub.create_resource_group_members', 'CSF_RES_GROUP_ROLE_PVT.INSERT_GROUP_ROLES', fnd_log.level_procedure);
Debug_Message('jtf_rs_group_members_pub.create_resource_group_members Successful,X_GROUP_MEMBER_ID'||X_GROUP_MEMBER_ID, 'CSF_RES_GROUP_ROLE_PVT.INSERT_GROUP_ROLES', fnd_log.level_procedure);
Debug_Message('Group Member Id Exists,value='||l_group_member_id_exists, 'CSF_RES_GROUP_ROLE_PVT.INSERT_GROUP_ROLES', fnd_log.level_procedure);
Debug_Message('l_role_resource_id='||l_role_resource_id, 'CSF_RES_GROUP_ROLE_PVT.INSERT_GROUP_ROLES', fnd_log.level_procedure);
Debug_Message('l_role_id = '||l_role_id, 'CSF_RES_GROUP_ROLE_PVT.INSERT_GROUP_ROLES', fnd_log.level_procedure);
Debug_Message('Calling jtf_rs_role_relate_pub.create_resource_role_relate', 'CSF_RES_GROUP_ROLE_PVT.INSERT_GROUP_ROLES', fnd_log.level_procedure);
Debug_Message('jtf_rs_role_relate_pub.create_resource_role_relate Successful,X_ROLE_RELATE_ID='||X_ROLE_RELATE_ID, 'CSF_RES_GROUP_ROLE_PVT.INSERT_GROUP_ROLES', fnd_log.level_procedure);
Debug_Message('In Exception Block of INSERT_GROUP_ROLES'||l_msg_data, 'CSF_RES_GROUP_ROLE_PVT.INSERT_GROUP_ROLES', fnd_log.level_procedure);
END INSERT_GROUP_ROLES;
PROCEDURE DELETE_GROUP_ROLES(P_API_VERSION IN NUMBER,
P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
P_ROLE_RELATE_ID IN JTF_RS_ROLE_RELATIONS.ROLE_RELATE_ID%TYPE,
P_OBJECT_VERSION_NUM1 IN JTF_RS_ROLE_RELATIONS.OBJECT_VERSION_NUMBER%TYPE,
P_GROUP_MEMBER_ID IN JTF_RS_GROUP_MEMBERS.GROUP_MEMBER_ID%TYPE,
P_GROUP_ID IN JTF_RS_GROUP_MEMBERS.GROUP_ID%TYPE,
P_RESOURCE_ID IN JTF_RS_GROUP_MEMBERS.RESOURCE_ID%TYPE,
P_OBJECT_VERSION_NUM IN JTF_RS_GROUP_MEMBERS.OBJECT_VERSION_NUMBER%TYPE,
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2
)
IS
l_api_version CONSTANT NUMBER := 1.0;
l_role_deleted BOOLEAN := FALSE;
select role_relate_id
from jtf_rs_role_relations
where role_resource_id = l_resource_role_id
and role_resource_type = 'RS_GROUP_MEMBER'
and nvl(delete_flag, 'N') <> 'Y';
Debug_Message('Calling jtf_rs_role_relate_pub.delete_resource_role_relate,l_role_relate_id'||l_role_relate_id, 'CSF_RES_GROUP_ROLE_PVT.DELETE_GROUP_ROLES', fnd_log.level_procedure);
jtf_rs_role_relate_pub.delete_resource_role_relate
(P_API_VERSION => l_api_version,
P_INIT_MSG_LIST => P_INIT_MSG_LIST,
P_COMMIT => P_COMMIT,
P_ROLE_RELATE_ID => l_role_relate_id,
P_OBJECT_VERSION_NUM => l_object_version_number1,
X_RETURN_STATUS => X_RETURN_STATUS,
X_MSG_COUNT => X_MSG_COUNT,
X_MSG_DATA => X_MSG_DATA
);
Debug_Message('Call to jtf_rs_role_relate_pub.delete_resource_role_relate Successful', 'CSF_RES_GROUP_ROLE_PVT.DELETE_GROUP_ROLES', fnd_log.level_procedure);
l_role_deleted := TRUE;
Debug_Message('No Roles Associated setting l_role_deleted to true', 'CSF_RES_GROUP_ROLE_PVT.DELETE_GROUP_ROLES', fnd_log.level_procedure);
--No Role Present set l_role_deleted to true for group deletion to occur
l_role_deleted := TRUE;
IF (l_role_deleted) THEN
OPEN c_csf_res_role_relation_id(l_group_member_id);
Debug_Message('No more Roles left in the Group, calling jtf_rs_group_members_pub.delete_resource_group_members', 'CSF_RES_GROUP_ROLE_PVT.DELETE_GROUP_ROLES', fnd_log.level_procedure);
jtf_rs_group_members_pub.delete_resource_group_members
(P_API_VERSION => l_api_version,
P_INIT_MSG_LIST => P_INIT_MSG_LIST,
P_COMMIT => P_COMMIT,
P_GROUP_ID => l_group_id,
P_GROUP_NUMBER => null,
P_RESOURCE_ID => l_resource_id,
P_RESOURCE_NUMBER => null,
P_OBJECT_VERSION_NUM => l_object_version_number,
X_RETURN_STATUS => X_RETURN_STATUS,
X_MSG_COUNT => X_MSG_COUNT,
X_MSG_DATA => X_MSG_DATA
);
Debug_Message('Call to jtf_rs_group_members_pub.delete_resource_group_members Successful', 'CSF_RES_GROUP_ROLE_PVT.DELETE_GROUP_ROLES', fnd_log.level_procedure);
Debug_Message('In Exception Block of DELETE_GROUP_ROLES'||l_msg_data, 'CSF_RES_GROUP_ROLE_PVT.DELETE_GROUP_ROLES', fnd_log.level_procedure);
END DELETE_GROUP_ROLES;