1: PACKAGE BODY FA_LEASES_PKG as
2: /* $Header: faxilsb.pls 120.4 2009/03/27 03:06:42 bridgway ship $ */
3:
4: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5: X_Lease_Id NUMBER,
100: CLOSE C;
101: EXCEPTION
102: WHEN Others THEN
103: FA_STANDARD_PKG.RAISE_ERROR
104: (Called_Fn => 'FA_LEASES_PKG.Insert_Row',
105: Calling_Fn => X_Calling_Fn, p_log_level_rec => p_log_level_rec);
106: END Insert_Row;
107: --
108: PROCEDURE Lock_Row(X_Rowid VARCHAR2,
273: X_Return_Status := TRUE;
274: EXCEPTION
275: WHEN Others THEN
276: FA_SRVR_MSG.Add_SQL_Error(
277: CALLING_FN => 'FA_LEASES_PKG.Update_Row', p_log_level_rec => p_log_level_rec);
278: -- FA_STANDARD_PKG.RAISE_ERROR
279: -- (Called_Fn => 'FA_LEASES_PKG.Update_Row',
280: -- Calling_Fn => X_Calling_Fn, p_log_level_rec => p_log_level_rec);
281: X_Return_Status := FALSE;
275: WHEN Others THEN
276: FA_SRVR_MSG.Add_SQL_Error(
277: CALLING_FN => 'FA_LEASES_PKG.Update_Row', p_log_level_rec => p_log_level_rec);
278: -- FA_STANDARD_PKG.RAISE_ERROR
279: -- (Called_Fn => 'FA_LEASES_PKG.Update_Row',
280: -- Calling_Fn => X_Calling_Fn, p_log_level_rec => p_log_level_rec);
281: X_Return_Status := FALSE;
282: END Update_Row;
283: --
300: end if;
301: EXCEPTION
302: WHEN Others THEN
303: FA_STANDARD_PKG.RAISE_ERROR
304: (Called_Fn => 'FA_LEASES_PKG.Delete_Row',
305: Calling_Fn => X_Calling_Fn, p_log_level_rec => p_log_level_rec);
306: END Delete_Row;
307:
308:
305: Calling_Fn => X_Calling_Fn, p_log_level_rec => p_log_level_rec);
306: END Delete_Row;
307:
308:
309: END FA_LEASES_PKG;