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.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,

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 default null) 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
106: ,p_log_level_rec => p_log_level_rec);
107: END Insert_Row;
108: --

Line 135: FROM fa_leases

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

Line 241: UPDATE fa_leases

237: X_Return_Status OUT NOCOPY BOOLEAN,
238: X_Calling_Fn VARCHAR2,
239: p_log_level_rec in fa_api_types.log_level_rec_type default null) IS
240: BEGIN
241: UPDATE fa_leases
242: SET
243: lease_id = X_Lease_Id,
244: lease_number = X_Lease_Number,
245: lessor_id = X_Lessor_Id,

Line 276: CALLING_FN => 'FA_LEASES_PKG.Update_Row'

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);

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

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

Line 290: DELETE FROM fa_leases

286: X_Calling_Fn VARCHAR2,
287: p_log_level_rec in fa_api_types.log_level_rec_type default null) IS
288: BEGIN
289: if X_Rowid is not null then
290: DELETE FROM fa_leases
291: WHERE rowid = X_Rowid;
292: elsif X_Lease_Id is not null then
293: DELETE FROM fa_leases
294: WHERE lease_id = X_Lease_Id;

Line 293: DELETE FROM fa_leases

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

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

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:

Line 311: END FA_LEASES_PKG;

307: ,p_log_level_rec => p_log_level_rec);
308: END Delete_Row;
309:
310:
311: END FA_LEASES_PKG;