APPS.FA_LEASES2_PKG dependencies on FA_LEASES

Line 1: PACKAGE BODY FA_LEASES2_PKG as

1: PACKAGE BODY FA_LEASES2_PKG as
2: /* $Header: faxils2b.pls 120.4 2009/03/27 03:03:29 bridgway ship $ */
3:
4: /* Bug 1782129 : Added a new column TERMS_ID in fa_leases
5: and fa_lease_payment_items tables. Terms_ID is a unique identifier

Line 4: /* Bug 1782129 : Added a new column TERMS_ID in fa_leases

1: PACKAGE BODY FA_LEASES2_PKG as
2: /* $Header: faxils2b.pls 120.4 2009/03/27 03:03:29 bridgway ship $ */
3:
4: /* Bug 1782129 : Added a new column TERMS_ID in fa_leases
5: and fa_lease_payment_items tables. Terms_ID is a unique identifier
6: for AP Payment Term. - YYOON 5/21/01
7: */
8: PROCEDURE INSERT_ROW( X_Rowid IN OUT NOCOPY VARCHAR2,

Line 50: CURSOR C IS SELECT rowid FROM fa_leases

46: X_DIST_CODE_COMBINATION_ID NUMBER,
47: X_TERMS_ID NUMBER,
48: X_Calling_Fn VARCHAR2
49: , p_log_level_rec IN FA_API_TYPES.log_level_rec_type) IS
50: CURSOR C IS SELECT rowid FROM fa_leases
51: WHERE lease_id = X_Lease_Id;
52: BEGIN
53:
54: INSERT INTO fa_leases(

Line 54: INSERT INTO fa_leases(

50: CURSOR C IS SELECT rowid FROM fa_leases
51: WHERE lease_id = X_Lease_Id;
52: BEGIN
53:
54: INSERT INTO fa_leases(
55: lease_id,
56: lease_number,
57: lessor_id,
58: description,

Line 145: (Called_Fn => 'FA_LEASES2_PKG.Insert_Row',

141: CLOSE C;
142: EXCEPTION
143: WHEN Others THEN
144: FA_STANDARD_PKG.RAISE_ERROR
145: (Called_Fn => 'FA_LEASES2_PKG.Insert_Row',
146: Calling_Fn => X_Calling_Fn, p_log_level_rec => p_log_level_rec);
147: END Insert_Row;
148:
149:

Line 194: FROM fa_leases

190: , p_log_level_rec IN FA_API_TYPES.log_level_rec_type) IS
191:
192: CURSOR C IS
193: SELECT *
194: FROM fa_leases
195: WHERE rowid = X_Rowid
196: FOR UPDATE of Lease_Id NOWAIT;
197: Recinfo C%ROWTYPE;
198:

Line 352: UPDATE fa_leases

348: X_Calling_Fn VARCHAR2
349:
350: , p_log_level_rec IN FA_API_TYPES.log_level_rec_type) IS
351: BEGIN
352: UPDATE fa_leases
353: SET
354: lease_id = X_lease_id,
355: lease_number = X_lease_number,
356: lessor_id = X_lessor_id,

Line 401: (Called_Fn => 'FA_LEASES_PKG.Update_Row',

397: end if;
398: EXCEPTION
399: WHEN Others THEN
400: FA_STANDARD_PKG.RAISE_ERROR
401: (Called_Fn => 'FA_LEASES_PKG.Update_Row',
402: Calling_Fn => X_Calling_Fn, p_log_level_rec => p_log_level_rec);
403: END Update_Row;
404: --
405: PROCEDURE Delete_Row(X_Rowid VARCHAR2 DEFAULT NULL,

Line 410: DELETE FROM fa_leases

406: X_Lease_Id NUMBER DEFAULT NULL,
407: X_Calling_Fn VARCHAR2, p_log_level_rec IN FA_API_TYPES.log_level_rec_type) IS
408: BEGIN
409: if X_Rowid is not null then
410: DELETE FROM fa_leases
411: WHERE rowid = X_Rowid;
412: elsif X_Lease_Id is not null then
413: DELETE FROM fa_leases
414: WHERE lease_id = X_Lease_Id;

Line 413: DELETE FROM fa_leases

409: if X_Rowid is not null then
410: DELETE FROM fa_leases
411: WHERE rowid = X_Rowid;
412: elsif X_Lease_Id is not null then
413: DELETE FROM fa_leases
414: WHERE lease_id = X_Lease_Id;
415: else
416: -- error
417: null;

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

421: end if;
422: EXCEPTION
423: WHEN Others THEN
424: FA_STANDARD_PKG.RAISE_ERROR
425: (Called_Fn => 'FA_LEASES_PKG.Delete_Row',
426: Calling_Fn => X_Calling_Fn, p_log_level_rec => p_log_level_rec);
427: END Delete_Row;
428:
429:

Line 430: END FA_LEASES2_PKG;

426: Calling_Fn => X_Calling_Fn, p_log_level_rec => p_log_level_rec);
427: END Delete_Row;
428:
429:
430: END FA_LEASES2_PKG;