The following lines contain the word 'select', 'insert', 'update' or 'delete':
create, update and delete resource Roles.
Its main procedures are as following:
Create Resource Roles
Update Resource Roles
Delete Resource Roles
This package valoidates the input parameters to these procedures and then
to do business validations and to do actual inserts, updates and deletes into tables.
******************************************************************************************/
--Package variables.
G_PKG_NAME VARCHAR2(30) := 'JTF_RS_ROLES_PUB';
PROCEDURE update_rs_resource_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_ROLES_B.ROLE_ID%TYPE,
P_ROLE_TYPE_CODE IN JTF_RS_ROLES_B.ROLE_TYPE_CODE%TYPE DEFAULT FND_API.G_MISS_CHAR,
P_ROLE_CODE IN JTF_RS_ROLES_B.ROLE_CODE%TYPE DEFAULT FND_API.G_MISS_CHAR,
P_ROLE_NAME IN JTF_RS_ROLES_TL.ROLE_NAME%TYPE DEFAULT FND_API.G_MISS_CHAR,
P_ROLE_DESC IN JTF_RS_ROLES_TL.ROLE_DESC%TYPE DEFAULT FND_API.G_MISS_CHAR,
P_SEEDED_FLAG IN JTF_RS_ROLES_B.SEEDED_FLAG%TYPE DEFAULT FND_API.G_MISS_CHAR,
P_ACTIVE_FLAG IN JTF_RS_ROLES_B.ACTIVE_FLAG%TYPE DEFAULT FND_API.G_MISS_CHAR,
P_MEMBER_FLAG IN JTF_RS_ROLES_B.MEMBER_FLAG%TYPE DEFAULT FND_API.G_MISS_CHAR,
P_ADMIN_FLAG IN JTF_RS_ROLES_B.ADMIN_FLAG%TYPE DEFAULT FND_API.G_MISS_CHAR,
P_LEAD_FLAG IN JTF_RS_ROLES_B.LEAD_FLAG%TYPE DEFAULT FND_API.G_MISS_CHAR,
P_MANAGER_FLAG IN JTF_RS_ROLES_B.MANAGER_FLAG%TYPE DEFAULT FND_API.G_MISS_CHAR,
P_OBJECT_VERSION_NUMBER IN OUT NOCOPY JTF_RS_ROLES_B.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_RS_RESOURCE_ROLES';
SAVEPOINT update_rs_resource_roles_pub;
jtf_rs_roles_pvt.update_rs_resource_roles (
P_API_VERSION => 1,
P_INIT_MSG_LIST => fnd_api.g_false,
P_COMMIT => fnd_api.g_false,
P_ROLE_ID => l_role_id,
P_ROLE_CODE => l_role_code,
P_ROLE_TYPE_CODE => l_role_type_code,
P_ROLE_NAME => l_role_name,
P_ROLE_DESC => l_role_desc,
P_ACTIVE_FLAG => l_active_flag,
P_SEEDED_FLAG => l_seeded_flag,
P_MEMBER_FLAG => l_member_flag,
P_ADMIN_FLAG => l_admin_flag,
P_LEAD_FLAG => l_lead_flag,
P_MANAGER_FLAG => l_manager_flag,
P_OBJECT_VERSION_NUMBER=> l_object_version_number,
X_RETURN_STATUS => x_return_status,
X_MSG_COUNT => x_msg_count,
X_MSG_DATA => x_msg_data
);
ROLLBACK TO update_rs_resource_roles_pub;
ROLLBACK TO update_rs_resource_roles_pub;
END update_rs_resource_roles;
/* Procedure to delete the resource roles. */
PROCEDURE delete_rs_resource_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_ROLES_B.ROLE_ID%TYPE,
P_ROLE_CODE IN JTF_RS_ROLES_B.ROLE_CODE%TYPE,
P_OBJECT_VERSION_NUMBER IN JTF_RS_ROLES_B.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_RS_RESOURCE_ROLES';
SAVEPOINT delete_rs_resource_roles_pub;
jtf_rs_roles_pvt.delete_rs_resource_roles (
P_API_VERSION => 1,
P_INIT_MSG_LIST => fnd_api.g_false,
P_COMMIT => fnd_api.g_false,
P_ROLE_ID => l_role_id,
P_ROLE_CODE => l_role_code,
P_OBJECT_VERSION_NUMBER=> l_object_version_number,
X_RETURN_STATUS => x_return_status,
X_MSG_COUNT => x_msg_count,
X_MSG_DATA => x_msg_data
);
ROLLBACK TO delete_rs_resource_roles_pub;
ROLLBACK TO delete_rs_resource_roles_pub;
END delete_rs_resource_roles;