The following lines contain the word 'select', 'insert', 'update' or 'delete':
'SELECT COUNT(1) FROM ' || X_TABLE_NAME || ' WHERE RULE_DETAIL_ID = :X_RULE_DETAIL_ID' ,
DBMS_SQL.native);
'SELECT COUNT(1) FROM ' || X_TABLE_NAME || ' WHERE RULE_DETAIL_ID = :X_RULE_DETAIL_ID AND RULE_OBJECT_ID = :X_RULE_OBJECT_ID' ,
DBMS_SQL.native);
FUN_RULE_DFF_PKG.Insert_Row (
X_TABLE_NAME,
X_RULE_DETAIL_ID,
X_ATTRIBUTE_CATEGORY,
X_ATTRIBUTE1,
X_ATTRIBUTE2,
X_ATTRIBUTE3,
X_ATTRIBUTE4,
X_ATTRIBUTE5,
X_ATTRIBUTE6,
X_ATTRIBUTE7,
X_ATTRIBUTE8,
X_ATTRIBUTE9,
X_ATTRIBUTE10,
X_ATTRIBUTE11,
X_ATTRIBUTE12,
X_ATTRIBUTE13,
X_ATTRIBUTE14,
X_ATTRIBUTE15,
X_RULE_OBJECT_ID);
FUN_RULE_DFF_PKG.Update_Row (
X_TABLE_NAME,
X_RULE_DETAIL_ID,
X_ATTRIBUTE_CATEGORY,
X_ATTRIBUTE1,
X_ATTRIBUTE2,
X_ATTRIBUTE3,
X_ATTRIBUTE4,
X_ATTRIBUTE5,
X_ATTRIBUTE6,
X_ATTRIBUTE7,
X_ATTRIBUTE8,
X_ATTRIBUTE9,
X_ATTRIBUTE10,
X_ATTRIBUTE11,
X_ATTRIBUTE12,
X_ATTRIBUTE13,
X_ATTRIBUTE14,
X_ATTRIBUTE15,
X_RULE_OBJECT_ID);
PROCEDURE Insert_Row (
X_TABLE_NAME IN VARCHAR2,
X_RULE_DETAIL_ID IN NUMBER,
X_ATTRIBUTE_CATEGORY IN VARCHAR2,
X_ATTRIBUTE1 IN VARCHAR2,
X_ATTRIBUTE2 IN VARCHAR2,
X_ATTRIBUTE3 IN VARCHAR2,
X_ATTRIBUTE4 IN VARCHAR2,
X_ATTRIBUTE5 IN VARCHAR2,
X_ATTRIBUTE6 IN VARCHAR2,
X_ATTRIBUTE7 IN VARCHAR2,
X_ATTRIBUTE8 IN VARCHAR2,
X_ATTRIBUTE9 IN VARCHAR2,
X_ATTRIBUTE10 IN VARCHAR2,
X_ATTRIBUTE11 IN VARCHAR2,
X_ATTRIBUTE12 IN VARCHAR2,
X_ATTRIBUTE13 IN VARCHAR2,
X_ATTRIBUTE14 IN VARCHAR2,
X_ATTRIBUTE15 IN VARCHAR2,
X_RULE_OBJECT_ID IN NUMBER
) IS
destination_cursor INTEGER;
'INSERT INTO ' || X_TABLE_NAME ||' ( '||
' RULE_DETAIL_ID, '||
' ATTRIBUTE_CATEGORY, '||
' ATTRIBUTE1, '||
' ATTRIBUTE2, '||
' ATTRIBUTE3, '||
' ATTRIBUTE4, '||
' ATTRIBUTE5, '||
' ATTRIBUTE6, '||
' ATTRIBUTE7, '||
' ATTRIBUTE8, '||
' ATTRIBUTE9, '||
' ATTRIBUTE10, '||
' ATTRIBUTE11, '||
' ATTRIBUTE12, '||
' ATTRIBUTE13, '||
' ATTRIBUTE14, '||
' ATTRIBUTE15, '||
' CREATED_BY, '||
' CREATION_DATE, '||
' LAST_UPDATE_LOGIN, '||
' LAST_UPDATE_DATE, '||
' LAST_UPDATED_BY, '||
' RULE_OBJECT_ID '||
' ) '||
' VALUES( '||
' :X_RULE_DETAIL_ID , '||
' :X_ATTRIBUTE_CATEGORY , '||
' :X_ATTRIBUTE1, '||
' :X_ATTRIBUTE2, '||
' :X_ATTRIBUTE3, '||
' :X_ATTRIBUTE4, '||
' :X_ATTRIBUTE5, '||
' :X_ATTRIBUTE6, '||
' :X_ATTRIBUTE7, '||
' :X_ATTRIBUTE8, '||
' :X_ATTRIBUTE9, '||
' :X_ATTRIBUTE10, '||
' :X_ATTRIBUTE11, '||
' :X_ATTRIBUTE12, '||
' :X_ATTRIBUTE13, '||
' :X_ATTRIBUTE14, '||
' :X_ATTRIBUTE15, '||
' FUN_RULE_UTILITY_PKG.CREATED_BY, '||
' FUN_RULE_UTILITY_PKG.CREATION_DATE, '||
' FUN_RULE_UTILITY_PKG.LAST_UPDATE_LOGIN, '||
' FUN_RULE_UTILITY_PKG.LAST_UPDATE_DATE, '||
' FUN_RULE_UTILITY_PKG.LAST_UPDATED_BY, '||
' :X_RULE_OBJECT_ID )',
DBMS_SQL.native);
'INSERT INTO ' || X_TABLE_NAME ||' ( '||
' RULE_DETAIL_ID, '||
' ATTRIBUTE_CATEGORY, '||
' ATTRIBUTE1, '||
' ATTRIBUTE2, '||
' ATTRIBUTE3, '||
' ATTRIBUTE4, '||
' ATTRIBUTE5, '||
' ATTRIBUTE6, '||
' ATTRIBUTE7, '||
' ATTRIBUTE8, '||
' ATTRIBUTE9, '||
' ATTRIBUTE10, '||
' ATTRIBUTE11, '||
' ATTRIBUTE12, '||
' ATTRIBUTE13, '||
' ATTRIBUTE14, '||
' ATTRIBUTE15, '||
' CREATED_BY, '||
' CREATION_DATE, '||
' LAST_UPDATE_LOGIN, '||
' LAST_UPDATE_DATE, '||
' LAST_UPDATED_BY '||
' ) '||
' VALUES( '||
' :X_RULE_DETAIL_ID , '||
' :X_ATTRIBUTE_CATEGORY , '||
' :X_ATTRIBUTE1, '||
' :X_ATTRIBUTE2, '||
' :X_ATTRIBUTE3, '||
' :X_ATTRIBUTE4, '||
' :X_ATTRIBUTE5, '||
' :X_ATTRIBUTE6, '||
' :X_ATTRIBUTE7, '||
' :X_ATTRIBUTE8, '||
' :X_ATTRIBUTE9, '||
' :X_ATTRIBUTE10, '||
' :X_ATTRIBUTE11, '||
' :X_ATTRIBUTE12, '||
' :X_ATTRIBUTE13, '||
' :X_ATTRIBUTE14, '||
' :X_ATTRIBUTE15, '||
' FUN_RULE_UTILITY_PKG.CREATED_BY, '||
' FUN_RULE_UTILITY_PKG.CREATION_DATE, '||
' FUN_RULE_UTILITY_PKG.LAST_UPDATE_LOGIN, '||
' FUN_RULE_UTILITY_PKG.LAST_UPDATE_DATE, '||
' FUN_RULE_UTILITY_PKG.LAST_UPDATED_BY )',
DBMS_SQL.native);
END Insert_Row;
PROCEDURE Update_Row (
X_TABLE_NAME IN VARCHAR2,
X_RULE_DETAIL_ID IN NUMBER,
X_ATTRIBUTE_CATEGORY IN VARCHAR2,
X_ATTRIBUTE1 IN VARCHAR2,
X_ATTRIBUTE2 IN VARCHAR2,
X_ATTRIBUTE3 IN VARCHAR2,
X_ATTRIBUTE4 IN VARCHAR2,
X_ATTRIBUTE5 IN VARCHAR2,
X_ATTRIBUTE6 IN VARCHAR2,
X_ATTRIBUTE7 IN VARCHAR2,
X_ATTRIBUTE8 IN VARCHAR2,
X_ATTRIBUTE9 IN VARCHAR2,
X_ATTRIBUTE10 IN VARCHAR2,
X_ATTRIBUTE11 IN VARCHAR2,
X_ATTRIBUTE12 IN VARCHAR2,
X_ATTRIBUTE13 IN VARCHAR2,
X_ATTRIBUTE14 IN VARCHAR2,
X_ATTRIBUTE15 IN VARCHAR2,
X_RULE_OBJECT_ID IN NUMBER
) IS
destination_cursor INTEGER;
'UPDATE ' || X_TABLE_NAME ||' SET '||
' ATTRIBUTE_CATEGORY = :X_ATTRIBUTE_CATEGORY, '||
' ATTRIBUTE1 = :X_ATTRIBUTE1, '||
' ATTRIBUTE2 = :X_ATTRIBUTE2, '||
' ATTRIBUTE3 = :X_ATTRIBUTE3, '||
' ATTRIBUTE4 = :X_ATTRIBUTE4, '||
' ATTRIBUTE5 = :X_ATTRIBUTE5, '||
' ATTRIBUTE6 = :X_ATTRIBUTE6, '||
' ATTRIBUTE7 = :X_ATTRIBUTE7, '||
' ATTRIBUTE8 = :X_ATTRIBUTE8, '||
' ATTRIBUTE9 = :X_ATTRIBUTE9, '||
' ATTRIBUTE10 = :X_ATTRIBUTE10, '||
' ATTRIBUTE11 = :X_ATTRIBUTE11, '||
' ATTRIBUTE12 = :X_ATTRIBUTE12, '||
' ATTRIBUTE13 = :X_ATTRIBUTE13, '||
' ATTRIBUTE14 = :X_ATTRIBUTE14, '||
' ATTRIBUTE15 = :X_ATTRIBUTE15, '||
' CREATED_BY = FUN_RULE_UTILITY_PKG.CREATED_BY, '||
' CREATION_DATE = FUN_RULE_UTILITY_PKG.CREATION_DATE, '||
' LAST_UPDATE_LOGIN = FUN_RULE_UTILITY_PKG.LAST_UPDATE_LOGIN, '||
' LAST_UPDATE_DATE = FUN_RULE_UTILITY_PKG.LAST_UPDATE_DATE, '||
' LAST_UPDATED_BY = FUN_RULE_UTILITY_PKG.LAST_UPDATED_BY '||
' WHERE RULE_DETAIL_ID = :X_RULE_DETAIL_ID AND RULE_OBJECT_ID = :X_RULE_OBJECT_ID',
DBMS_SQL.native);
'UPDATE ' || X_TABLE_NAME ||' SET '||
' ATTRIBUTE_CATEGORY = :X_ATTRIBUTE_CATEGORY, '||
' ATTRIBUTE1 = :X_ATTRIBUTE1, '||
' ATTRIBUTE2 = :X_ATTRIBUTE2, '||
' ATTRIBUTE3 = :X_ATTRIBUTE3, '||
' ATTRIBUTE4 = :X_ATTRIBUTE4, '||
' ATTRIBUTE5 = :X_ATTRIBUTE5, '||
' ATTRIBUTE6 = :X_ATTRIBUTE6, '||
' ATTRIBUTE7 = :X_ATTRIBUTE7, '||
' ATTRIBUTE8 = :X_ATTRIBUTE8, '||
' ATTRIBUTE9 = :X_ATTRIBUTE9, '||
' ATTRIBUTE10 = :X_ATTRIBUTE10, '||
' ATTRIBUTE11 = :X_ATTRIBUTE11, '||
' ATTRIBUTE12 = :X_ATTRIBUTE12, '||
' ATTRIBUTE13 = :X_ATTRIBUTE13, '||
' ATTRIBUTE14 = :X_ATTRIBUTE14, '||
' ATTRIBUTE15 = :X_ATTRIBUTE15, '||
' CREATED_BY = FUN_RULE_UTILITY_PKG.CREATED_BY, '||
' CREATION_DATE = FUN_RULE_UTILITY_PKG.CREATION_DATE, '||
' LAST_UPDATE_LOGIN = FUN_RULE_UTILITY_PKG.LAST_UPDATE_LOGIN, '||
' LAST_UPDATE_DATE = FUN_RULE_UTILITY_PKG.LAST_UPDATE_DATE, '||
' LAST_UPDATED_BY = FUN_RULE_UTILITY_PKG.LAST_UPDATED_BY '||
' WHERE RULE_DETAIL_ID = :X_RULE_DETAIL_ID',
DBMS_SQL.native);
END Update_Row;
X_LAST_UPDATE_LOGIN IN NUMBER,
X_LAST_UPDATE_DATE IN DATE,
X_LAST_UPDATED_BY IN NUMBER,
X_RULE_OBJECT_ID IN NUMBER
) IS
CURSOR C IS
SELECT * FROM FUN_RULE_DFF
WHERE RULE_DETAIL_ID = X_RULE_DETAIL_ID
FOR UPDATE NOWAIT;
FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
AND ( ( LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN )
OR ( ( LAST_UPDATE_LOGIN IS NULL )
AND ( X_LAST_UPDATE_LOGIN IS NULL ) ) )
AND ( ( LAST_UPDATE_DATE = X_LAST_UPDATE_DATE )
OR ( ( LAST_UPDATE_DATE IS NULL )
AND ( X_LAST_UPDATE_DATE IS NULL ) ) )
AND ( ( LAST_UPDATED_BY = X_LAST_UPDATED_BY )
OR ( ( LAST_UPDATED_BY IS NULL )
AND ( X_LAST_UPDATED_BY IS NULL ) ) )
) THEN
RETURN;
FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
X_LAST_UPDATE_LOGIN IN NUMBER,
X_LAST_UPDATE_DATE IN DATE,
X_LAST_UPDATED_BY IN NUMBER,
X_RULE_OBJECT_ID IN NUMBER
) IS
source_cursor INTEGER;
LAST_UPDATE_LOGIN NUMBER;
LAST_UPDATE_DATE DATE;
LAST_UPDATED_BY NUMBER;
'SELECT * FROM '|| X_TABLE_NAME || ' WHERE RULE_DETAIL_ID = :X_RULE_DETAIL_ID AND RULE_OBJECT_ID = :X_RULE_OBJECT_ID FOR UPDATE NOWAIT',
DBMS_SQL.native);
'SELECT * FROM '|| X_TABLE_NAME || ' WHERE RULE_DETAIL_ID = :X_RULE_DETAIL_ID FOR UPDATE NOWAIT',
DBMS_SQL.native);
DBMS_SQL.DEFINE_COLUMN(source_cursor , 20,LAST_UPDATE_LOGIN);
DBMS_SQL.DEFINE_COLUMN(source_cursor , 21,LAST_UPDATE_DATE);
DBMS_SQL.DEFINE_COLUMN(source_cursor , 22,LAST_UPDATED_BY);
AND ( ( LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN )
OR ( ( LAST_UPDATE_LOGIN IS NULL )
AND ( X_LAST_UPDATE_LOGIN IS NULL ) ) )
AND ( ( LAST_UPDATE_DATE = X_LAST_UPDATE_DATE )
OR ( ( LAST_UPDATE_DATE IS NULL )
AND ( X_LAST_UPDATE_DATE IS NULL ) ) )
AND ( ( LAST_UPDATED_BY = X_LAST_UPDATED_BY )
OR ( ( LAST_UPDATED_BY IS NULL )
AND ( X_LAST_UPDATED_BY IS NULL ) ) )
) THEN
RETURN;
FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
PROCEDURE Select_Row (
X_TABLE_NAME IN VARCHAR2,
X_RULE_DETAIL_ID IN OUT NOCOPY NUMBER,
X_ATTRIBUTE_CATEGORY OUT NOCOPY VARCHAR2,
X_ATTRIBUTE1 OUT NOCOPY VARCHAR2,
X_ATTRIBUTE2 OUT NOCOPY VARCHAR2,
X_ATTRIBUTE3 OUT NOCOPY VARCHAR2,
X_ATTRIBUTE4 OUT NOCOPY VARCHAR2,
X_ATTRIBUTE5 OUT NOCOPY VARCHAR2,
X_ATTRIBUTE6 OUT NOCOPY VARCHAR2,
X_ATTRIBUTE7 OUT NOCOPY VARCHAR2,
X_ATTRIBUTE8 OUT NOCOPY VARCHAR2,
X_ATTRIBUTE9 OUT NOCOPY VARCHAR2,
X_ATTRIBUTE10 OUT NOCOPY VARCHAR2,
X_ATTRIBUTE11 OUT NOCOPY VARCHAR2,
X_ATTRIBUTE12 OUT NOCOPY VARCHAR2,
X_ATTRIBUTE13 OUT NOCOPY VARCHAR2,
X_ATTRIBUTE14 OUT NOCOPY VARCHAR2,
X_ATTRIBUTE15 OUT NOCOPY VARCHAR2,
X_RULE_OBJECT_ID OUT NOCOPY NUMBER
) IS
l_select_stmt VARCHAR2(2000);
l_select_stmt :='SELECT '||
' RULE_DETAIL_ID, '||
' ATTRIBUTE_CATEGORY, '||
' ATTRIBUTE1, '||
' ATTRIBUTE2, '||
' ATTRIBUTE3, '||
' ATTRIBUTE4, '||
' ATTRIBUTE5, '||
' ATTRIBUTE6, '||
' ATTRIBUTE7, '||
' ATTRIBUTE8, '||
' ATTRIBUTE9, '||
' ATTRIBUTE10, '||
' ATTRIBUTE11, '||
' ATTRIBUTE12, '||
' ATTRIBUTE13, '||
' ATTRIBUTE14, '||
' ATTRIBUTE15 '||
' FROM '|| X_TABLE_NAME ||
' WHERE RULE_DETAIL_ID = :X_RULE_DETAIL_ID AND RULE_OBJECT_ID = :X_RULE_OBJECT_ID ' ||
' AND ROWNUM = 1 ';
l_select_stmt :='SELECT '||
' RULE_DETAIL_ID, '||
' ATTRIBUTE_CATEGORY, '||
' ATTRIBUTE1, '||
' ATTRIBUTE2, '||
' ATTRIBUTE3, '||
' ATTRIBUTE4, '||
' ATTRIBUTE5, '||
' ATTRIBUTE6, '||
' ATTRIBUTE7, '||
' ATTRIBUTE8, '||
' ATTRIBUTE9, '||
' ATTRIBUTE10, '||
' ATTRIBUTE11, '||
' ATTRIBUTE12, '||
' ATTRIBUTE13, '||
' ATTRIBUTE14, '||
' ATTRIBUTE15 '||
' FROM '|| X_TABLE_NAME ||
' WHERE RULE_DETAIL_ID = :X_RULE_DETAIL_ID ' ||
' AND ROWNUM = 1 ';
DBMS_SQL.PARSE(source_cursor,l_select_stmt , DBMS_SQL.native);
END Select_Row;
PROCEDURE Delete_Row (
X_TABLE_NAME IN VARCHAR2,
X_RULE_DETAIL_ID IN NUMBER,
X_RULE_OBJECT_ID IN NUMBER
) IS
source_cursor INTEGER;
DBMS_SQL.PARSE(source_cursor, 'delete from ' || X_TABLE_NAME ||' WHERE RULE_DETAIL_ID = :X_RULE_DETAIL_ID AND RULE_OBJECT_ID = :X_RULE_OBJECT_ID',
DBMS_SQL.native);
DBMS_SQL.PARSE(source_cursor, 'delete from ' || X_TABLE_NAME ||' WHERE RULE_DETAIL_ID = :X_RULE_DETAIL_ID',
DBMS_SQL.native);
END Delete_Row;