The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
X_Asset_Id NUMBER,
X_Category_Id NUMBER,
X_Asset_Type VARCHAR2,
X_Units NUMBER,
X_Date_Effective DATE,
X_Date_Ineffective DATE DEFAULT NULL,
X_Transaction_Header_Id_In NUMBER,
X_Transaction_Header_Id_Out NUMBER DEFAULT NULL,
X_Last_Update_Date DATE,
X_Last_Updated_By NUMBER,
X_Last_Update_Login NUMBER DEFAULT NULL,
X_Return_Status OUT NOCOPY BOOLEAN,
X_Calling_Fn VARCHAR2,
p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) IS
CURSOR C IS SELECT rowid FROM fa_asset_history
WHERE asset_id = X_asset_id
AND transaction_header_id_in = X_Transaction_Header_Id_In;
INSERT INTO fa_asset_history
(asset_id,
category_id,
asset_type,
units,
date_effective,
date_ineffective,
transaction_header_id_in,
transaction_header_id_out,
last_update_date,
last_updated_by,
last_update_login
) VALUES (
X_Asset_Id,
X_Category_Id,
X_Asset_Type,
X_Units,
X_Date_Effective,
X_Date_Ineffective,
X_Transaction_Header_Id_In,
X_Transaction_Header_Id_Out,
X_Last_Update_Date,
X_Last_Updated_By,
X_Last_Update_Login
);
calling_fn => 'fa_asset_history_pkg.insert_row'
,p_log_level_rec => p_log_level_rec);
CALLED_FN => 'fa_distribution_history_pkg.insert_row',
CALLING_FN => X_Calling_Fn
,p_log_level_rec => p_log_level_rec);
END Insert_Row;
SELECT *
FROM fa_asset_history
WHERE rowid = X_Rowid
FOR UPDATE of Transaction_Header_Id_In NOWAIT;
FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
PROCEDURE Update_Row(X_Rowid VARCHAR2 DEFAULT NULL,
X_Asset_Id NUMBER DEFAULT NULL,
X_Category_Id NUMBER DEFAULT NULL,
X_Asset_Type VARCHAR2 DEFAULT NULL,
X_Units NUMBER DEFAULT NULL,
X_Date_Effective DATE DEFAULT NULL,
X_Date_Ineffective DATE DEFAULT NULL,
X_Transaction_Header_Id_In NUMBER DEFAULT NULL,
X_Transaction_Header_Id_Out NUMBER DEFAULT NULL,
X_Last_Update_Date DATE DEFAULT NULL,
X_Last_Updated_By NUMBER DEFAULT NULL,
X_Last_Update_Login NUMBER DEFAULT NULL,
X_Return_Status OUT NOCOPY BOOLEAN,
X_Calling_Fn VARCHAR2,
p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) IS
BEGIN
If x_rowid is null then
UPDATE fa_asset_history
SET asset_id = decode(X_Asset_Id,
NULL, asset_id,
FND_API.G_MISS_NUM, null,
X_Asset_Id),
category_id = decode(X_Category_Id,
NULL, category_id,
FND_API.G_MISS_NUM, null,
X_Category_Id),
asset_type = decode(X_Asset_Type,
NULL, asset_type,
FND_API.G_MISS_CHAR, null,
X_Asset_Type),
units = decode(X_Units,
NULL, units,
FND_API.G_MISS_NUM, null,
X_Units),
date_effective = decode(X_Date_Effective,
NULL, date_effective,
X_Date_Effective),
date_ineffective = decode(X_Date_Ineffective,
NULL, date_ineffective,
X_Date_Ineffective),
transaction_header_id_in = decode(X_Transaction_Header_Id_In,
NULL, transaction_header_id_in,
FND_API.G_MISS_NUM, null,
X_Transaction_Header_Id_In),
transaction_header_id_out = decode(X_Transaction_Header_Id_Out,
NULL, transaction_header_id_out,
FND_API.G_MISS_NUM, null,
X_Transaction_Header_Id_Out),
last_update_date = decode(X_Last_Update_Date,
NULL, last_update_date,
X_Last_Update_Date),
last_updated_by = decode(X_Last_Updated_By,
NULL, last_updated_by,
FND_API.G_MISS_NUM, null,
X_Last_Updated_By),
last_update_login = decode(X_Last_Update_Login,
NULL, last_update_login,
FND_API.G_MISS_NUM, null,
X_Last_Update_Login)
WHERE asset_id = X_asset_id and
date_ineffective is null;
UPDATE fa_asset_history
SET asset_id = decode(X_Asset_Id,
NULL, asset_id,
FND_API.G_MISS_NUM, null,
X_Asset_Id),
category_id = decode(X_Category_Id,
NULL, category_id,
FND_API.G_MISS_NUM, null,
X_Category_Id),
asset_type = decode(X_Asset_Type,
NULL, asset_type,
FND_API.G_MISS_CHAR, null,
X_Asset_Type),
units = decode(X_Units,
NULL, units,
FND_API.G_MISS_NUM, null,
X_Units),
date_effective = decode(X_Date_Effective,
NULL, date_effective,
X_Date_Effective),
date_ineffective = decode(X_Date_Ineffective,
NULL, date_ineffective,
X_Date_Ineffective),
transaction_header_id_in = decode(X_Transaction_Header_Id_In,
NULL, transaction_header_id_in,
FND_API.G_MISS_NUM, null,
X_Transaction_Header_Id_In),
transaction_header_id_out = decode(X_Transaction_Header_Id_Out,
NULL, transaction_header_id_out,
FND_API.G_MISS_NUM, null,
X_Transaction_Header_Id_Out),
last_update_date = decode(X_Last_Update_Date,
NULL, last_update_date,
X_Last_Update_Date),
last_updated_by = decode(X_Last_Updated_By,
NULL, last_updated_by,
FND_API.G_MISS_NUM, null,
X_Last_Updated_By),
last_update_login = decode(X_Last_Update_Login,
NULL, last_update_login,
FND_API.G_MISS_NUM, null,
X_Last_Update_Login)
WHERE rowid = X_Rowid;
calling_fn => 'fa_asset_history_pkg.update_row'
,p_log_level_rec => p_log_level_rec);
CALLED_FN => 'fa_distribution_history_pkg.update_row',
CALLING_FN => X_Calling_Fn
,p_log_level_rec => p_log_level_rec);
END Update_Row;
PROCEDURE Delete_Row(X_Rowid VARCHAR2 DEFAULT NULL,
X_Asset_Id NUMBER DEFAULT NULL,
X_Transaction_Header_Id_In NUMBER DEFAULT NULL,
X_Calling_Fn VARCHAR2,
p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) IS
BEGIN
if X_Rowid is not null then
DELETE FROM fa_asset_history
WHERE rowid = X_Rowid;
DELETE FROM fa_asset_history
WHERE asset_id = X_asset_id
AND transaction_header_id_in = X_Transaction_Header_Id_In;
DELETE FROM fa_asset_history
WHERE asset_id = X_Asset_Id;
calling_fn => 'fa_asset_history_pkg.delete_row'
,p_log_level_rec => p_log_level_rec);
CALLED_FN => 'fa_distribution_history_pkg.delete_row',
CALLING_FN => X_Calling_Fn
,p_log_level_rec => p_log_level_rec);
END Delete_Row;
UPDATE fa_asset_history
set Transaction_Header_Id_Out = null,
date_ineffective = null
where asset_id = X_asset_id
and Transaction_Header_Id_Out = X_Transaction_Header_Id_Out;