APPS.FA_LEASES_PKG dependencies on FA_LEASES

Line 1: PACKAGE BODY FA_LEASES_PKG as

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,

Line 32: CURSOR C IS SELECT rowid FROM fa_leases

28: X_Attribute15 VARCHAR2 DEFAULT NULL,
29: X_Attribute_Category_Code VARCHAR2 DEFAULT NULL,
30: X_Calling_Fn VARCHAR2
31: , p_log_level_rec IN FA_API_TYPES.log_level_rec_type) IS
32: CURSOR C IS SELECT rowid FROM fa_leases
33: WHERE lease_id = X_Lease_Id;
34:
35: BEGIN
36:

Line 38: INSERT INTO fa_leases(

34:
35: BEGIN
36:
37:
38: INSERT INTO fa_leases(
39:
40: lease_id,
41: lease_number,
42: lessor_id,

Line 104: (Called_Fn => 'FA_LEASES_PKG.Insert_Row',

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,

Line 134: FROM fa_leases

130: X_Calling_Fn VARCHAR2
131: , p_log_level_rec IN FA_API_TYPES.log_level_rec_type) IS
132: CURSOR C IS
133: SELECT *
134: FROM fa_leases
135: WHERE rowid = X_Rowid
136: FOR UPDATE of Lease_Id NOWAIT;
137: Recinfo C%ROWTYPE;
138:

Line 242: UPDATE fa_leases

238: X_Calling_Fn VARCHAR2
239:
240: , p_log_level_rec IN FA_API_TYPES.log_level_rec_type) IS
241: BEGIN
242: UPDATE fa_leases
243: SET
244: lease_id = X_Lease_Id,
245: lease_number = X_Lease_Number,
246: lessor_id = X_Lessor_Id,

Line 277: CALLING_FN => 'FA_LEASES_PKG.Update_Row', p_log_level_rec => p_log_level_rec);

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;

Line 279: -- (Called_Fn => 'FA_LEASES_PKG.Update_Row',

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: --

Line 289: DELETE FROM fa_leases

285: X_Lease_Id NUMBER DEFAULT NULL,
286: X_Calling_Fn VARCHAR2, p_log_level_rec IN FA_API_TYPES.log_level_rec_type) IS
287: BEGIN
288: if X_Rowid is not null then
289: DELETE FROM fa_leases
290: WHERE rowid = X_Rowid;
291: elsif X_Lease_Id is not null then
292: DELETE FROM fa_leases
293: WHERE lease_id = X_Lease_Id;

Line 292: DELETE FROM fa_leases

288: if X_Rowid is not null then
289: DELETE FROM fa_leases
290: WHERE rowid = X_Rowid;
291: elsif X_Lease_Id is not null then
292: DELETE FROM fa_leases
293: WHERE lease_id = X_Lease_Id;
294: else
295: -- error
296: null;

Line 304: (Called_Fn => 'FA_LEASES_PKG.Delete_Row',

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:

Line 309: END FA_LEASES_PKG;

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;