1: PACKAGE BODY FA_LEASES_PKG as
2: /* $Header: faxilsb.pls 120.3 2005/07/25 10:01:17 yyoon 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
106: ,p_log_level_rec => p_log_level_rec);
107: END Insert_Row;
108: --
272: X_Return_Status := TRUE;
273: EXCEPTION
274: WHEN Others THEN
275: FA_SRVR_MSG.Add_SQL_Error(
276: CALLING_FN => 'FA_LEASES_PKG.Update_Row'
277: ,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);
275: FA_SRVR_MSG.Add_SQL_Error(
276: CALLING_FN => 'FA_LEASES_PKG.Update_Row'
277: ,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);
281: X_Return_Status := FALSE;
282: END Update_Row;
283: --
301: end if;
302: EXCEPTION
303: WHEN Others THEN
304: FA_STANDARD_PKG.RAISE_ERROR
305: (Called_Fn => 'FA_LEASES_PKG.Delete_Row',
306: Calling_Fn => X_Calling_Fn
307: ,p_log_level_rec => p_log_level_rec);
308: END Delete_Row;
309:
307: ,p_log_level_rec => p_log_level_rec);
308: END Delete_Row;
309:
310:
311: END FA_LEASES_PKG;