[Home] [Help]
The following lines contain the word 'select', 'insert', 'update' or 'delete':
Update table attributes
Delete table attributes
Calls to these procedures will invoke procedures from jtf_rs_table_attributes_pub
to do business validations and to do actual inserts, updates and deletes into tables.
******************************************************************************************/
/* Package variables. */
G_PKG_NAME VARCHAR2(30) := 'JTF_RS_TABLE_ATTRIBUTES_PVT';
SELECT attribute_access_level,
attribute_id
FROM jtf_rs_table_attributes_b
WHERE attribute_name = ll_attribute_name;
SELECT jtf_rs_table_attributes_s.nextval
INTO l_attribute_id
FROM dual;
JTF_RS_TABLE_ATTRIBUTES_PKG.INSERT_ROW(
X_ROWID => l_rowid,
X_ATTRIBUTE_ID => l_attribute_id,
X_ATTRIBUTE_NAME => l_attribute_name,
X_ATTRIBUTE_ACCESS_LEVEL => l_attribute_access_level,
X_ATTRIBUTE1 => p_attribute1,
X_ATTRIBUTE2 => p_attribute2,
X_ATTRIBUTE3 => p_attribute3,
X_ATTRIBUTE4 => p_attribute4,
X_ATTRIBUTE5 => p_attribute5,
X_ATTRIBUTE6 => p_attribute6,
X_ATTRIBUTE7 => p_attribute7,
X_ATTRIBUTE8 => p_attribute8,
X_ATTRIBUTE9 => p_attribute9,
X_ATTRIBUTE10 => p_attribute10,
X_ATTRIBUTE11 => p_attribute11,
X_ATTRIBUTE12 => p_attribute12,
X_ATTRIBUTE13 => p_attribute13,
X_ATTRIBUTE14 => p_attribute14,
X_ATTRIBUTE15 => p_attribute15,
X_ATTRIBUTE_CATEGORY => p_attribute_category,
X_OBJECT_VERSION_NUMBER => l_object_version_number,
X_USER_ATTRIBUTE_NAME => p_user_attribute_name,
X_CREATION_DATE => sysdate,
X_CREATED_BY => l_user_id,
X_LAST_UPDATE_DATE => sysdate,
X_LAST_UPDATED_BY => l_user_id,
X_LAST_UPDATE_LOGIN => 0);
/* Procedure to update the table attributes
based on input values passed by calling routines. */
PROCEDURE update_table_attribute
(P_API_VERSION IN NUMBER,
P_INIT_MSG_LIST IN VARCHAR2,
P_COMMIT IN VARCHAR2,
P_ATTRIBUTE_ID IN JTF_RS_TABLE_ATTRIBUTES_B.ATTRIBUTE_ID%TYPE,
P_ATTRIBUTE_NAME IN JTF_RS_TABLE_ATTRIBUTES_B.ATTRIBUTE_NAME%TYPE,
P_ATTRIBUTE_ACCESS_LEVEL IN JTF_RS_TABLE_ATTRIBUTES_B.ATTRIBUTE_ACCESS_LEVEL%TYPE,
P_USER_ATTRIBUTE_NAME IN JTF_RS_TABLE_ATTRIBUTES_TL.USER_ATTRIBUTE_NAME%TYPE,
P_OBJECT_VERSION_NUM IN OUT NOCOPY JTF_RS_TABLE_ATTRIBUTES_B.OBJECT_VERSION_NUMBER%TYPE,
P_ATTRIBUTE1 IN JTF_RS_TABLE_ATTRIBUTES_B.ATTRIBUTE1%TYPE,
P_ATTRIBUTE2 IN JTF_RS_TABLE_ATTRIBUTES_B.ATTRIBUTE2%TYPE,
P_ATTRIBUTE3 IN JTF_RS_TABLE_ATTRIBUTES_B.ATTRIBUTE3%TYPE,
P_ATTRIBUTE4 IN JTF_RS_TABLE_ATTRIBUTES_B.ATTRIBUTE4%TYPE,
P_ATTRIBUTE5 IN JTF_RS_TABLE_ATTRIBUTES_B.ATTRIBUTE5%TYPE,
P_ATTRIBUTE6 IN JTF_RS_TABLE_ATTRIBUTES_B.ATTRIBUTE6%TYPE,
P_ATTRIBUTE7 IN JTF_RS_TABLE_ATTRIBUTES_B.ATTRIBUTE7%TYPE,
P_ATTRIBUTE8 IN JTF_RS_TABLE_ATTRIBUTES_B.ATTRIBUTE8%TYPE,
P_ATTRIBUTE9 IN JTF_RS_TABLE_ATTRIBUTES_B.ATTRIBUTE9%TYPE,
P_ATTRIBUTE10 IN JTF_RS_TABLE_ATTRIBUTES_B.ATTRIBUTE10%TYPE,
P_ATTRIBUTE11 IN JTF_RS_TABLE_ATTRIBUTES_B.ATTRIBUTE11%TYPE,
P_ATTRIBUTE12 IN JTF_RS_TABLE_ATTRIBUTES_B.ATTRIBUTE12%TYPE,
P_ATTRIBUTE13 IN JTF_RS_TABLE_ATTRIBUTES_B.ATTRIBUTE13%TYPE,
P_ATTRIBUTE14 IN JTF_RS_TABLE_ATTRIBUTES_B.ATTRIBUTE14%TYPE,
P_ATTRIBUTE15 IN JTF_RS_TABLE_ATTRIBUTES_B.ATTRIBUTE15%TYPE,
P_ATTRIBUTE_CATEGORY IN JTF_RS_TABLE_ATTRIBUTES_B.ATTRIBUTE_CATEGORY%TYPE,
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2
)IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TABLE_ATTRIBUTE';
SELECT attribute_id,
attribute_name,
attribute_access_level,
user_attribute_name,
object_version_number,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15,
attribute_category
FROM jtf_rs_table_attributes_vl
WHERE attribute_id = ll_attribute_id;
jtf_rs_table_attributes_pkg.update_row(X_ATTRIBUTE_ID => l_attribute_id,
X_ATTRIBUTE_NAME => l_attribute_name,
X_ATTRIBUTE_ACCESS_LEVEL => l_attribute_access_level,
X_USER_ATTRIBUTE_NAME => l_user_attribute_name,
X_OBJECT_VERSION_NUMBER => l_object_version_number ,
X_ATTRIBUTE1 => l_attribute1,
X_ATTRIBUTE2 => l_attribute2,
X_ATTRIBUTE3 => l_attribute3,
X_ATTRIBUTE4 => l_attribute4,
X_ATTRIBUTE5 => l_attribute5,
X_ATTRIBUTE6 => l_attribute6,
X_ATTRIBUTE7 => l_attribute7,
X_ATTRIBUTE8 => l_attribute8,
X_ATTRIBUTE9 => l_attribute9,
X_ATTRIBUTE10 => l_attribute10,
X_ATTRIBUTE11 => l_attribute11,
X_ATTRIBUTE12 => l_attribute12,
X_ATTRIBUTE13 => l_attribute13,
X_ATTRIBUTE14 => l_attribute14,
X_ATTRIBUTE15 => l_attribute15,
X_ATTRIBUTE_CATEGORY => l_attribute_category,
X_LAST_UPDATE_DATE => l_date,
X_LAST_UPDATED_BY => l_user_id,
X_LAST_UPDATE_LOGIN => l_login_id ) ;
END update_table_attribute;
/* Procedure to delete the table attributes. */
PROCEDURE delete_table_attribute
(P_API_VERSION IN NUMBER,
P_INIT_MSG_LIST IN VARCHAR2,
P_COMMIT IN VARCHAR2,
P_ATTRIBUTE_ID IN JTF_RS_TABLE_ATTRIBUTES_B.ATTRIBUTE_ID%TYPE,
P_OBJECT_VERSION_NUM IN JTF_RS_TABLE_ATTRIBUTES_B.OBJECT_VERSION_NUMBER%TYPE,
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2
)IS
CURSOR chk_att_exist_cur(ll_attribute_id JTF_RS_TABLE_ATTRIBUTES_B.ATTRIBUTE_ID%TYPE)
IS
SELECT attribute_name
FROM jtf_rs_table_attributes_b
WHERE attribute_id = ll_attribute_id;
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_TABLE_ATTRIBUTE';
JTF_RS_TABLE_ATTRIBUTES_PKG.DELETE_ROW(
X_ATTRIBUTE_ID => l_attribute_id);
END delete_table_attribute;