The following lines contain the word 'select', 'insert', 'update' or 'delete':
create and update resource roles.
Its main procedures are as following:
Create Resource Role Relate
Update Resource Role Relate
Delete Resource Role Relate
This package validates the input parameters to these procedures and then
Calls corresponding procedures from jtf_rs_role_relate_pvt
to do business validations and to do actual inserts, updates and deletes into tables.
******************************************************************************************/
/* Package variables. */
G_PKG_NAME VARCHAR2(30) := 'JTF_RS_ROLE_RELATE_PUB';
select b.object_code
from jtf_objects_b a, jtf_object_usages b
where b.OBJECT_USER_CODE = 'RESOURCE_ROLES'
AND b.object_code = a.object_code;
select role_id
from jtf_rs_roles_b
where (role_id = l_role_id )
OR (role_code = l_role_code );
P_SELECT_ID => l_role_resource_id ,
P_OBJECT_USER_CODE => 'RESOURCE_ROLES',
X_FOUND => L_FOUND,
X_RETURN_STATUS => L_RETURN_STATUS
);
/* Procedure to update the resource roles
based on input values passed by calling routines. */
PROCEDURE update_resource_role_relate
(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_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,
P_OBJECT_VERSION_NUM IN OUT NOCOPY JTF_RS_ROLE_RELATIONS.OBJECT_VERSION_NUMBER%TYPE,
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2
) IS
CURSOR role_relate_cur(l_role_relate_id JTF_RS_ROLE_RELATIONS.ROLE_RELATE_ID%TYPE)
IS
SELECT role_relate_id,
object_version_number
FROM jtf_rs_role_relations
WHERE role_relate_id = l_role_relate_id;
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_RESOURCE_ROLE_RELATE';
jtf_rs_role_relate_pvt.update_resource_role_relate
(P_API_VERSION => 1.0,
P_INIT_MSG_LIST => null,
P_COMMIT => null,
P_ROLE_RELATE_ID => l_role_relate_id,
P_START_DATE_ACTIVE => l_start_date_active,
P_END_DATE_ACTIVE => l_end_date_active,
P_OBJECT_VERSION_NUM => l_object_version_number,
X_RETURN_STATUS => l_return_status,
X_MSG_COUNT => l_msg_count,
X_MSG_DATA => l_msg_data);
END UPDATE_RESOURCE_ROLE_RELATE;
/* Procedure to delete the resource roles. */
PROCEDURE delete_resource_role_relate
(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_NUM IN JTF_RS_ROLE_RELATIONS.OBJECT_VERSION_NUMBER%TYPE,
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2)
IS
CURSOR role_relate_cur(l_role_relate_id JTF_RS_ROLE_RELATIONS.ROLE_RELATE_ID%TYPE)
IS
SELECT role_relate_id,
object_version_number
FROM jtf_rs_role_relations
WHERE role_relate_id = l_role_relate_id;
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_RESOURCE_ROLE_RELATE';
jtf_rs_role_relate_pvt.delete_resource_role_relate
(P_API_VERSION => 1.0,
P_INIT_MSG_LIST => null,
P_COMMIT => null,
P_ROLE_RELATE_ID => l_role_relate_id,
P_OBJECT_VERSION_NUM => l_object_version_number,
X_RETURN_STATUS => l_return_status,
X_MSG_COUNT => l_msg_count,
X_MSG_DATA => l_msg_data);
END delete_resource_role_relate;