The following lines contain the word 'select', 'insert', 'update' or 'delete':
/*FOR INSERT */
PROCEDURE INSERT_MEMBER(
P_API_VERSION IN NUMBER,
P_INIT_MSG_LIST IN VARCHAR2,
P_COMMIT IN VARCHAR2,
P_GROUP_MEMBER_ID IN NUMBER,
P_GROUP_ID IN NUMBER,
P_RESOURCE_ID IN NUMBER,
P_PERSON_ID IN NUMBER,
P_OBJECT_VERSION_NUMBER IN NUMBER,
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2)
IS
l_group_member_audit_id jtf_rs_group_members_aud.group_member_audit_id%type;
l_api_name CONSTANT VARCHAR2(30) := 'INSERT_MEMBER';
select jtf_rs_group_members_aud_s.nextval
into l_group_member_audit_id
from dual;
JTF_RS_GROUP_MEMBERS_AUD_PKG.INSERT_ROW (
X_ROWID => l_row_id,
x_group_member_audit_id => l_group_member_audit_id,
x_group_member_id => p_group_member_id,
x_new_group_id => p_group_id,
x_old_group_id => jtf_rs_group_members_pvt.g_moved_fr_group_id,
x_new_resource_id => P_resource_id,
x_old_resource_id => null,
x_new_person_id => P_person_id,
x_old_person_id => null,
x_new_object_version_number => P_object_version_number,
X_OLD_object_version_number => null,
X_CREATION_DATE => l_date,
X_CREATED_BY => l_user_id ,
X_LAST_UPDATE_DATE => l_date,
X_LAST_UPDATED_BY => l_user_id,
X_LAST_UPDATE_LOGIN => l_login_id
);
END INSERT_MEMBER;
/* FOR UPDATE */
PROCEDURE UPDATE_MEMBER(
P_API_VERSION IN NUMBER,
P_INIT_MSG_LIST IN VARCHAR2,
P_COMMIT IN VARCHAR2,
P_GROUP_MEMBER_ID IN NUMBER,
P_GROUP_ID IN NUMBER,
P_RESOURCE_ID IN NUMBER,
P_PERSON_ID IN NUMBER,
P_OBJECT_VERSION_NUMBER IN NUMBER,
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2)
IS
CURSOR rr_old_cur(l_group_member_id JTF_RS_GROUP_MEMBERS.GROUP_MEMBER_ID%TYPE)
IS
SELECT b.group_id ,
b.resource_id ,
b.person_id ,
b.object_version_number
FROM jtf_rs_group_members b
WHERE b.group_member_id = l_group_member_id;
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_MEMBER';
select jtf_rs_group_members_aud_s.nextval
into l_group_member_audit_id
from dual;
JTF_RS_GROUP_MEMBERS_AUD_PKG.INSERT_ROW (
X_ROWID => l_row_id,
x_group_member_audit_id => l_group_member_audit_id,
x_group_member_id => p_group_member_id,
x_new_group_id => l_group_id_n,
x_old_group_id => l_group_id,
x_new_resource_id => l_resource_id_n,
x_old_resource_id => l_resource_id,
x_new_person_id => l_person_id_n,
x_old_person_id => l_person_id,
X_new_object_version_number => l_object_version_number_n,
X_old_object_version_number => l_object_version_number,
X_CREATION_DATE => l_date,
X_CREATED_BY => l_user_id ,
X_LAST_UPDATE_DATE => l_date,
X_LAST_UPDATED_BY => l_user_id,
X_LAST_UPDATE_LOGIN => l_login_id
);
END UPDATE_MEMBER;
PROCEDURE DELETE_MEMBER(
P_API_VERSION IN NUMBER,
P_INIT_MSG_LIST IN VARCHAR2,
P_COMMIT IN VARCHAR2,
P_GROUP_MEMBER_ID IN NUMBER,
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2 )
IS
CURSOR rr_old_cur(l_group_member_id JTF_RS_GROUP_MEMBERS.GROUP_MEMBER_ID%TYPE)
IS
SELECT b.group_id ,
b.resource_id ,
b.person_id ,
b.object_version_number
FROM jtf_rs_group_members b
WHERE b.group_member_id = l_group_member_id;
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_MEMBER';
select jtf_rs_group_members_aud_s.nextval
into l_group_member_audit_id
from dual;
JTF_RS_GROUP_MEMBERS_AUD_PKG.INSERT_ROW (
X_ROWID => l_row_id,
x_group_member_audit_id => l_group_member_audit_id,
x_group_member_id => p_group_member_id,
x_new_group_id => NULL,
x_old_group_id => l_group_id,
x_new_resource_id => NULL,
x_old_resource_id => l_resource_id,
x_new_person_id => NULL,
x_old_person_id => l_person_id,
X_NEW_object_version_number => NULL,
X_old_object_version_number => l_object_version_number,
X_CREATION_DATE => l_date,
X_CREATED_BY => l_user_id ,
X_LAST_UPDATE_DATE => l_date,
X_LAST_UPDATED_BY => l_user_id,
X_LAST_UPDATE_LOGIN => l_login_id
);
END delete_member;