1: PACKAGE BODY FA_BOOKS_SUMMARY_PKG as
2: /* $Header: faxibsb.pls 120.3 2005/07/25 10:01:43 yyoon noship $ */
3:
4: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5: X_Book_Type_Code VARCHAR2,
100: X_Calling_Fn VARCHAR2,
101: p_log_level_rec in fa_api_types.log_level_rec_type default null) IS
102:
103: CURSOR C_bs IS SELECT rowid
104: FROM fa_books_summary
105: WHERE asset_id = X_Asset_ID
106: AND book_type_code = X_Book_Type_Code
107: AND period_counter = X_Period_Counter;
108:
106: AND book_type_code = X_Book_Type_Code
107: AND period_counter = X_Period_Counter;
108:
109: CURSOR C_bs_mc IS SELECT rowid
110: FROM fa_books_summary_mrc_v
111: WHERE asset_id = X_Asset_ID
112: AND book_type_code = X_Book_Type_Code
113: AND period_counter = X_Period_Counter;
114:
114:
115: BEGIN
116:
117: if (X_mrc_sob_type_code = 'R') then
118: INSERT INTO fa_books_summary_mrc_v(
119: book_type_code,
120: asset_id,
121: period_counter,
122: fiscal_year,
314: CLOSE C_bs_mc;
315:
316: else
317:
318: INSERT INTO fa_books_summary(
319: book_type_code,
320: asset_id,
321: period_counter,
322: fiscal_year,
519:
520: EXCEPTION
521: WHEN OTHERS THEN
522: fa_srvr_msg.add_sql_error(
523: calling_fn => 'fa_books_summary_pkg.insert_row'
524: ,p_log_level_rec => p_log_level_rec);
525: X_Return_Status := FALSE;
526: raise;
527: END Insert_Row;
716: last_updated_by,
717: last_update_login,
718: change_in_eofy_reserve,
719: switch_code
720: FROM fa_books_summary
721: WHERE rowid = X_Rowid
722: FOR UPDATE of Asset_Id, Book_Type_Code, Period_Counter NOWAIT;
723:
724: Recinfo C%ROWTYPE;
853: BEGIN
854:
855: if (X_mrc_sob_type_code = 'R') then
856: if X_Rowid is not null then
857: UPDATE fa_books_summary_mrc_v
858: SET
859: book_type_code = decode(X_Book_Type_Code,
860: NULL, book_type_code,
861: FND_API.G_MISS_CHAR, NULL,
1228: AND period_counter = X_Period_Counter;
1229: end if;
1230: else
1231: if X_Rowid is not null then
1232: UPDATE fa_books_summary
1233: SET
1234: book_type_code = decode(X_Book_Type_Code,
1235: NULL, book_type_code,
1236: FND_API.G_MISS_CHAR, NULL,
1610:
1611: EXCEPTION
1612: WHEN OTHERS THEN
1613: fa_srvr_msg.add_sql_error(
1614: calling_fn => 'fa_books_summary_pkg.update_row'
1615: ,p_log_level_rec => p_log_level_rec);
1616: raise;
1617: END Update_Row;
1618:
1627: BEGIN
1628:
1629: if (X_mrc_sob_type_code = 'R') then
1630: if (X_Rowid is not null) then
1631: DELETE FROM fa_books_summary_mrc_v
1632: WHERE rowid = X_Rowid;
1633: elsif ((X_Asset_ID is not null) AND
1634: (X_Book_Type_Code is not null) AND
1635: (X_Period_Counter is not null)) then
1632: WHERE rowid = X_Rowid;
1633: elsif ((X_Asset_ID is not null) AND
1634: (X_Book_Type_Code is not null) AND
1635: (X_Period_Counter is not null)) then
1636: DELETE FROM fa_books_summary_mrc_v
1637: WHERE asset_id = X_Asset_ID
1638: AND book_type_code = X_Book_Type_Code
1639: AND period_counter = X_Period_Counter;
1640: elsif (X_Asset_Id is not null) then
1637: WHERE asset_id = X_Asset_ID
1638: AND book_type_code = X_Book_Type_Code
1639: AND period_counter = X_Period_Counter;
1640: elsif (X_Asset_Id is not null) then
1641: DELETE FROM fa_books_summary_mrc_v
1642: WHERE asset_id = X_Asset_Id;
1643: else
1644: -- print some error message
1645: null;
1645: null;
1646: end if;
1647: else
1648: if (X_Rowid is not null) then
1649: DELETE FROM fa_books_summary
1650: WHERE rowid = X_Rowid;
1651: elsif ((X_Asset_ID is not null) AND
1652: (X_Book_Type_Code is not null) AND
1653: (X_Period_Counter is not null)) then
1650: WHERE rowid = X_Rowid;
1651: elsif ((X_Asset_ID is not null) AND
1652: (X_Book_Type_Code is not null) AND
1653: (X_Period_Counter is not null)) then
1654: DELETE FROM fa_books_summary
1655: WHERE asset_id = X_Asset_ID
1656: AND book_type_code = X_Book_Type_Code
1657: AND period_counter = X_Period_Counter;
1658: elsif (X_Asset_Id is not null) then
1655: WHERE asset_id = X_Asset_ID
1656: AND book_type_code = X_Book_Type_Code
1657: AND period_counter = X_Period_Counter;
1658: elsif (X_Asset_Id is not null) then
1659: DELETE FROM fa_books_summary
1660: WHERE asset_id = X_Asset_Id;
1661: else
1662: -- print some error message
1663: null;
1670:
1671: EXCEPTION
1672: WHEN OTHERS THEN
1673: FA_STANDARD_PKG.RAISE_ERROR(
1674: CALLED_FN => 'fa_books_summary_pkg.delete_row',
1675: CALLING_FN => X_Calling_Fn
1676: ,p_log_level_rec => p_log_level_rec);
1677: END Delete_Row;
1678:
1675: CALLING_FN => X_Calling_Fn
1676: ,p_log_level_rec => p_log_level_rec);
1677: END Delete_Row;
1678:
1679: END FA_BOOKS_SUMMARY_PKG;