The following lines contain the word 'select', 'insert', 'update' or 'delete':
create, update and delete resource group members.
Its main procedures are as following:
Create Resource Group Members
Delete Resource Group Members
This package validates the input parameters to these procedures and then
Calls corresponding procedures from jtf_rs_group_members_pvt
to do business validations and to do actual inserts and deletes into tables.
******************************************************************************************/
/* Package variables. */
G_PKG_NAME VARCHAR2(30) := 'JTF_RS_GROUP_MEMBERS_PUB';
/* Procedure to update the resource group members
based on input values passed by calling routines. */
PROCEDURE update_resource_group_members
(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_GROUP_MEMBER_ID IN JTF_RS_GROUP_MEMBERS.GROUP_MEMBER_ID%TYPE,
P_GROUP_ID IN JTF_RS_GROUP_MEMBERS.GROUP_ID%TYPE,
P_GROUP_NUMBER IN JTF_RS_GROUPS_VL.GROUP_NUMBER%TYPE,
P_RESOURCE_ID IN JTF_RS_GROUP_MEMBERS.RESOURCE_ID%TYPE,
P_RESOURCE_NUMBER IN JTF_RS_RESOURCE_EXTNS.RESOURCE_NUMBER%TYPE,
P_OBJECT_VERSION_NUMBER IN OUT NOCOPY 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_api_name CONSTANT VARCHAR2(30) := 'UPDATE_RESOURCE_GROUP_MEMBERS';
SAVEPOINT update_resource_member_pub;
jtf_rs_group_members_pvt.update_resource_group_members
(P_API_VERSION => 1,
P_INIT_MSG_LIST => fnd_api.g_false,
P_COMMIT => fnd_api.g_false,
P_GROUP_MEMBER_ID => l_group_member_id,
P_GROUP_ID => l_group_id,
P_RESOURCE_ID => l_resource_id,
P_OBJECT_VERSION_NUMBER => p_object_version_number,
X_RETURN_STATUS => x_return_status,
X_MSG_COUNT => x_msg_count,
X_MSG_DATA => x_msg_data
);
ROLLBACK TO update_resource_member_pub;
ROLLBACK TO update_resource_member_pub;
END update_resource_group_members;
/* Procedure to delete the resource group members. */
PROCEDURE delete_resource_group_members
(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_GROUP_ID IN JTF_RS_GROUP_MEMBERS.GROUP_ID%TYPE,
P_GROUP_NUMBER IN JTF_RS_GROUPS_VL.GROUP_NUMBER%TYPE,
P_RESOURCE_ID IN JTF_RS_GROUP_MEMBERS.RESOURCE_ID%TYPE,
P_RESOURCE_NUMBER IN JTF_RS_RESOURCE_EXTNS.RESOURCE_NUMBER%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_api_name CONSTANT VARCHAR2(30) := 'DELETE_RESOURCE_GROUP_MEMBERS';
SELECT resource_id
FROM jtf_rs_resource_extns
WHERE resource_id = p_resource_id;
SELECT resource_id
FROM jtf_rs_resource_extns
WHERE resource_number = p_resource_number;
SAVEPOINT delete_resource_member_pub;
/* Call the private procedure for delete */
jtf_rs_group_members_pvt.delete_resource_group_members
(P_API_VERSION => 1,
P_INIT_MSG_LIST => fnd_api.g_false,
P_COMMIT => fnd_api.g_false,
P_GROUP_ID => l_group_id,
P_RESOURCE_ID => l_resource_id,
P_OBJECT_VERSION_NUM => p_object_version_num,
X_RETURN_STATUS => x_return_status,
X_MSG_COUNT => x_msg_count,
X_MSG_DATA => x_msg_data
);
ROLLBACK TO delete_resource_member_pub;
ROLLBACK TO delete_resource_member_pub;
END delete_resource_group_members;