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.3 2005/07/25 10:01:22 yyoon 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.3 2005/07/25 10:01:22 yyoon 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 default null) 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
147: ,p_log_level_rec => p_log_level_rec);
148: END Insert_Row;
149:

Line 193: FROM fa_leases

189: p_log_level_rec in fa_api_types.log_level_rec_type default null) IS
190:
191: CURSOR C IS
192: SELECT *
193: FROM fa_leases
194: WHERE rowid = X_Rowid
195: FOR UPDATE of Lease_Id NOWAIT;
196: Recinfo C%ROWTYPE;
197:

Line 349: UPDATE fa_leases

345: X_TERMS_ID NUMBER,
346: X_Calling_Fn VARCHAR2,
347: p_log_level_rec in fa_api_types.log_level_rec_type default null) IS
348: BEGIN
349: UPDATE fa_leases
350: SET
351: lease_id = X_lease_id,
352: lease_number = X_lease_number,
353: lessor_id = X_lessor_id,

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

394: end if;
395: EXCEPTION
396: WHEN Others THEN
397: FA_STANDARD_PKG.RAISE_ERROR
398: (Called_Fn => 'FA_LEASES_PKG.Update_Row',
399: Calling_Fn => X_Calling_Fn
400: ,p_log_level_rec => p_log_level_rec);
401: END Update_Row;
402: --

Line 409: DELETE FROM fa_leases

405: X_Calling_Fn VARCHAR2,
406: p_log_level_rec in fa_api_types.log_level_rec_type default null) IS
407: BEGIN
408: if X_Rowid is not null then
409: DELETE FROM fa_leases
410: WHERE rowid = X_Rowid;
411: elsif X_Lease_Id is not null then
412: DELETE FROM fa_leases
413: WHERE lease_id = X_Lease_Id;

Line 412: DELETE FROM fa_leases

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

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

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

Line 430: END FA_LEASES2_PKG;

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