[Home] [Help]
1: PACKAGE BODY FA_DEPRN_SUMMARY_PKG as
2: /* $Header: faxidsb.pls 120.9 2010/12/23 14:38:28 gigupta ship $ */
3:
4: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5: X_Book_Type_Code VARCHAR2,
31: X_set_of_books_id NUMBER ,
32: X_Calling_Fn VARCHAR2
33: , p_log_level_rec IN FA_API_TYPES.log_level_rec_type) IS
34:
35: CURSOR C_ds IS SELECT rowid FROM fa_deprn_summary
36: WHERE asset_id = X_Asset_Id
37: AND book_type_code = X_Book_Type_Code
38: AND period_counter = X_Period_Counter;
39:
112: end if;
113: CLOSE C_ds_mc;
114:
115: else
116: INSERT INTO fa_deprn_summary(
117: book_type_code,
118: asset_id,
119: deprn_run_date,
120: deprn_amount,
180:
181: exception
182: when others then
183: FA_STANDARD_PKG.RAISE_ERROR(
184: CALLED_FN => 'fa_deprn_summary_pkg.insert_row',
185: CALLING_FN => X_Calling_Fn, p_log_level_rec => p_log_level_rec);
186:
187: END Insert_Row;
188:
227: reval_reserve,
228: ytd_production,
229: ytd_reval_deprn_expense,
230: prior_fy_expense
231: FROM fa_deprn_summary
232: WHERE rowid = X_Rowid
233: FOR UPDATE of Asset_Id NOWAIT;
234: Recinfo C%ROWTYPE;
235:
430: WHERE rowid = X_Rowid;
431:
432: else
433:
434: UPDATE fa_deprn_summary
435: SET
436: book_type_code = decode(X_Book_Type_Code,
437: NULL, book_type_code,
438: FND_API.G_MISS_CHAR, null,
638: and set_of_books_id = X_set_of_books_id;
639:
640: else
641:
642: UPDATE fa_deprn_summary
643: SET
644: book_type_code = decode(X_Book_Type_Code,
645: NULL, book_type_code,
646: FND_API.G_MISS_CHAR, null,
750:
751: exception
752: when others then
753: fa_srvr_msg.add_sql_error(
754: calling_fn => 'fa_deprn_summary_pkg.update_row', p_log_level_rec => p_log_level_rec);
755: raise;
756:
757: END Update_Row;
758:
777: null;
778: end if;
779: else
780: if X_Rowid is not null then
781: DELETE FROM fa_deprn_summary
782: WHERE rowid = X_Rowid;
783: elsif X_Asset_Id is not null then
784: DELETE FROM fa_deprn_summary
785: WHERE asset_id = X_Asset_Id;
780: if X_Rowid is not null then
781: DELETE FROM fa_deprn_summary
782: WHERE rowid = X_Rowid;
783: elsif X_Asset_Id is not null then
784: DELETE FROM fa_deprn_summary
785: WHERE asset_id = X_Asset_Id;
786: else
787: -- print error message
788: null;
796:
797: exception
798: when others then
799: FA_STANDARD_PKG.RAISE_ERROR(
800: CALLED_FN => 'fa_deprn_summary_pkg.delete_row',
801: CALLING_FN => X_Calling_Fn, p_log_level_rec => p_log_level_rec);
802:
803: END Delete_Row;
804:
968: system_bonus_deprn_amount,
969: impairment_amount,
970: ytd_impairment,
971: impairment_reserve
972: FROM fa_deprn_summary
973: WHERE Book_Type_Code = nvl(X_Book_Type_Code, Book_Type_Code)
974: AND Asset_Id = X_Asset_Id
975: AND Deprn_Source_Code = 'BOOKS'
976: FOR UPDATE of Asset_Id NOWAIT;
1014: CLOSE C_DeprnSummary;
1015: EXCEPTION
1016: when app_exception.record_lock_exception then
1017: FA_STANDARD_PKG.RAISE_ERROR(
1018: CALLED_FN => 'fa_deprn_summary_pkg.lock_b_row',
1019: CALLING_FN => X_Calling_Fn,
1020: NAME => 'FA_SHARED_ASSETS_LOCKED', p_log_level_rec => p_log_level_rec);
1021: when others then
1022: FA_STANDARD_PKG.RAISE_ERROR(
1019: CALLING_FN => X_Calling_Fn,
1020: NAME => 'FA_SHARED_ASSETS_LOCKED', p_log_level_rec => p_log_level_rec);
1021: when others then
1022: FA_STANDARD_PKG.RAISE_ERROR(
1023: CALLED_FN => 'fa_deprn_summary_pkg.lock_b_row',
1024: CALLING_FN => X_Calling_Fn, p_log_level_rec => p_log_level_rec);
1025: END Lock_B_Row;
1026:
1027:
1032:
1033: EXCEPTION
1034: when others then
1035: FA_STANDARD_PKG.RAISE_ERROR(
1036: CALLED_FN => 'fa_deprn_summary_pkg.unlock_b_row',
1037: CALLING_FN => X_Calling_Fn, p_log_level_rec => p_log_level_rec);
1038: END UnLock_B_Row;
1039:
1040: END FA_DEPRN_SUMMARY_PKG;
1036: CALLED_FN => 'fa_deprn_summary_pkg.unlock_b_row',
1037: CALLING_FN => X_Calling_Fn, p_log_level_rec => p_log_level_rec);
1038: END UnLock_B_Row;
1039:
1040: END FA_DEPRN_SUMMARY_PKG;