1: PACKAGE BODY FA_BOOK_CONTROLS_PKG as
2: /* $Header: faxibcb.pls 120.3 2005/10/20 16:00:24 hhafid noship $ */
3:
4:
5: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
150: X_Return_Status OUT NOCOPY BOOLEAN,
151: X_Calling_Fn VARCHAR2,
152: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) AS
153:
154: CURSOR C_bc IS SELECT rowid FROM fa_book_controls
155: WHERE book_type_code = X_Book_Type_Code;
156:
157: CURSOR C_bc_mc IS SELECT rowid FROM fa_book_controls_mrc_v
158: WHERE book_type_code = X_Book_Type_Code;
153:
154: CURSOR C_bc IS SELECT rowid FROM fa_book_controls
155: WHERE book_type_code = X_Book_Type_Code;
156:
157: CURSOR C_bc_mc IS SELECT rowid FROM fa_book_controls_mrc_v
158: WHERE book_type_code = X_Book_Type_Code;
159:
160: BEGIN
161:
160: BEGIN
161:
162: if (X_mrc_sob_type_code = 'R') then
163:
164: insert into fa_book_controls_mrc_v (
165: book_type_code,
166: book_type_name,
167: set_of_books_id,
168: initial_date,
454: CLOSE C_bc_mc;
455:
456: else
457:
458: insert into fa_book_controls (
459: book_type_code,
460: book_type_name,
461: set_of_books_id,
462: initial_date,
752: Raise NO_DATA_FOUND;
753: end if;
754: CLOSE C_bc;
755:
756: insert into fa_book_controls_history (
757: book_type_code,
758: date_active,
759: date_inactive,
760: book_type_name,
1053:
1054: EXCEPTION
1055: WHEN OTHERS THEN
1056: fa_srvr_msg.add_sql_error(
1057: calling_fn => 'fa_book_controls_pkg.insert_row'
1058: ,p_log_level_rec => p_log_level_rec);
1059: X_Return_Status := FALSE;
1060: raise;
1061: END Insert_Row;
1222: BEGIN
1223:
1224: if (X_mrc_sob_type_code = 'R') then
1225:
1226: UPDATE fa_book_controls_mrc_v
1227: SET
1228: book_type_name = X_Book_Type_Name,
1229: set_of_books_id = X_Set_Of_Books_Id,
1230: initial_date = X_Initial_Date,
1374: end if;
1375:
1376: else
1377:
1378: UPDATE fa_book_controls
1379: SET
1380: book_type_name = X_Book_Type_Name,
1381: set_of_books_id = X_Set_Of_Books_Id,
1382: initial_date = X_Initial_Date,
1526: end if;
1527:
1528: select sysdate into l_sysdate from dual;
1529:
1530: UPDATE fa_book_controls_history
1531: SET date_inactive = l_sysdate
1532: WHERE book_type_code = X_Book_Type_Code
1533: AND date_inactive is null;
1534:
1531: SET date_inactive = l_sysdate
1532: WHERE book_type_code = X_Book_Type_Code
1533: AND date_inactive is null;
1534:
1535: insert into fa_book_controls_history (
1536: book_type_code,
1537: date_active,
1538: date_inactive,
1539: book_type_name,
1831:
1832: EXCEPTION
1833: when others then
1834: fa_srvr_msg.add_sql_error(
1835: calling_fn => 'FA_BOOK_CONTROLS_PKG.Update_Row'
1836: ,p_log_level_rec => p_log_level_rec);
1837:
1838: X_Return_Status := FALSE;
1839:
1859: if (X_Rowid is not null) then
1860: if (X_mrc_sob_type_code = 'R') then
1861: select book_type_code
1862: into l_book_type_code
1863: from fa_book_controls_mrc_v
1864: where rowid = X_Rowid;
1865: else
1866: select book_type_code
1867: into l_book_type_code
1864: where rowid = X_Rowid;
1865: else
1866: select book_type_code
1867: into l_book_type_code
1868: from fa_book_controls
1869: where rowid = X_Rowid;
1870: end if;
1871: else
1872: raise del_error;
1905: if (X_mrc_sob_type_code = 'R') then
1906: DELETE FROM fa_deprn_periods_mrc_v
1907: WHERE book_type_code = l_book_type_code;
1908:
1909: DELETE FROM fa_book_controls_mrc_v
1910: WHERE book_type_code = l_book_type_code;
1911:
1912: else
1913: DELETE FROM fa_deprn_periods
1912: else
1913: DELETE FROM fa_deprn_periods
1914: WHERE book_type_code = l_book_type_code;
1915:
1916: DELETE FROM fa_book_controls
1917: WHERE book_type_code = l_book_type_code;
1918:
1919: DELETE FROM fa_book_controls_history
1920: WHERE book_type_code = l_book_type_code;
1915:
1916: DELETE FROM fa_book_controls
1917: WHERE book_type_code = l_book_type_code;
1918:
1919: DELETE FROM fa_book_controls_history
1920: WHERE book_type_code = l_book_type_code;
1921:
1922: end if;
1923:
1923:
1924: exception
1925: when validation_error then
1926: fa_srvr_msg.add_message (
1927: calling_fn => 'fa_book_controls_pkg.delete_row',
1928: name => 'FA_SHARED_CANT_DEL_USED'
1929: ,p_log_level_rec => p_log_level_rec);
1930: FA_STANDARD_PKG.RAISE_ERROR(
1931: CALLED_FN => 'fa_book_controls_pkg.delete_row',
1927: calling_fn => 'fa_book_controls_pkg.delete_row',
1928: name => 'FA_SHARED_CANT_DEL_USED'
1929: ,p_log_level_rec => p_log_level_rec);
1930: FA_STANDARD_PKG.RAISE_ERROR(
1931: CALLED_FN => 'fa_book_controls_pkg.delete_row',
1932: CALLING_FN => X_Calling_Fn
1933: ,p_log_level_rec => p_log_level_rec);
1934: when del_error then
1935: FA_STANDARD_PKG.RAISE_ERROR(
1932: CALLING_FN => X_Calling_Fn
1933: ,p_log_level_rec => p_log_level_rec);
1934: when del_error then
1935: FA_STANDARD_PKG.RAISE_ERROR(
1936: CALLED_FN => 'fa_book_controls_pkg.delete_row',
1937: CALLING_FN => X_Calling_Fn
1938: ,p_log_level_rec => p_log_level_rec);
1939: when others then
1940: FA_STANDARD_PKG.RAISE_ERROR(
1937: CALLING_FN => X_Calling_Fn
1938: ,p_log_level_rec => p_log_level_rec);
1939: when others then
1940: FA_STANDARD_PKG.RAISE_ERROR(
1941: CALLED_FN => 'fa_book_controls_pkg.delete_row',
1942: CALLING_FN => X_Calling_Fn
1943: ,p_log_level_rec => p_log_level_rec);
1944: END Delete_Row;
1945:
1942: CALLING_FN => X_Calling_Fn
1943: ,p_log_level_rec => p_log_level_rec);
1944: END Delete_Row;
1945:
1946: END FA_BOOK_CONTROLS_PKG;