The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row(
p_TRANSACTION_TYPE_ID NUMBER,
px_SUB_TYPE_ID IN OUT NOCOPY NUMBER,
p_DEFAULT_FLAG VARCHAR2,
p_UPDATE_IB_FLAG VARCHAR2)
IS
CURSOR C2 IS SELECT CSI_TXN_SUB_TYPES_S.nextval FROM sys.dual;
INSERT INTO CSI_SOURCE_IB_TYPES(
TRANSACTION_TYPE_ID,
SUB_TYPE_ID,
DEFAULT_FLAG,
UPDATE_IB_FLAG
) VALUES (
decode( p_TRANSACTION_TYPE_ID, FND_API.G_MISS_NUM, NULL, p_TRANSACTION_TYPE_ID),
px_SUB_TYPE_ID,
decode( p_DEFAULT_FLAG, FND_API.G_MISS_CHAR, NULL, p_DEFAULT_FLAG),
decode( p_UPDATE_IB_FLAG, FND_API.G_MISS_CHAR, NULL, p_UPDATE_IB_FLAG));
End Insert_Row;
PROCEDURE Update_Row(
p_TRANSACTION_TYPE_ID NUMBER,
p_SUB_TYPE_ID NUMBER,
p_DEFAULT_FLAG VARCHAR2,
p_UPDATE_IB_FLAG VARCHAR2)
IS
BEGIN
Update CSI_SOURCE_IB_TYPES
SET
SUB_TYPE_ID = decode( p_SUB_TYPE_ID, FND_API.G_MISS_NUM, SUB_TYPE_ID, p_SUB_TYPE_ID),
DEFAULT_FLAG = decode( p_DEFAULT_FLAG, FND_API.G_MISS_CHAR, DEFAULT_FLAG, p_DEFAULT_FLAG),
UPDATE_IB_FLAG = decode( p_UPDATE_IB_FLAG, FND_API.G_MISS_CHAR, UPDATE_IB_FLAG, p_UPDATE_IB_FLAG)
where SUB_TYPE_ID = p_SUB_TYPE_ID;
END Update_Row;
PROCEDURE Delete_Row(
p_SUB_TYPE_ID NUMBER)
IS
BEGIN
DELETE FROM CSI_SOURCE_IB_TYPES
WHERE SUB_TYPE_ID = p_SUB_TYPE_ID;
END Delete_Row;
p_UPDATE_IB_FLAG VARCHAR2)
IS
CURSOR C IS
SELECT *
FROM CSI_SOURCE_IB_TYPES
WHERE SUB_TYPE_ID = p_SUB_TYPE_ID
FOR UPDATE of SUB_TYPE_ID NOWAIT;
FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
AND ( ( Recinfo.UPDATE_IB_FLAG = p_UPDATE_IB_FLAG)
OR ( ( Recinfo.UPDATE_IB_FLAG IS NULL )
AND ( p_UPDATE_IB_FLAG IS NULL )))
) then
return;