[Home] [Help]
1: PACKAGE BODY FA_RECLASS_UTIL_PVT AS
2: /* $Header: FAVRCUTB.pls 120.15 2005/07/25 10:04:10 yyoon noship $ */
3:
4: ------------------------------------------------------------------
5: FUNCTION validate_CIP_accounts(
10: p_calling_fn IN VARCHAR2,
11: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) return boolean IS
12:
13: v_count number;
14: l_calling_fn varchar2(40) := 'fa_reclass_util_pvt.validate_cip_accts';
15:
16: BEGIN
17: if p_asset_type = 'CIP' then
18: select count(1)
55: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) return boolean IS
56:
57: l_count1 number;
58: l_count2 number;
59: l_calling_fn varchar2(40) := 'fa_reclass_util_pvt.check_cat_book_setup';
60: BEGIN
61:
62: -- Make sure the new category is defined in all the books the asset belongs to.
63: -- Get the number of books in which the new category is defined for the asset.
114: v_old_cap_flag varchar2(3);
115: v_old_cat_type varchar2(30);
116:
117: v_count number;
118: l_calling_fn varchar2(40) := 'fa_reclass_util_pvt.validate_cat_types';
119: BEGIN
120: -- both categories must be capitalized or expensed types
121: --old values
122: select capitalize_flag, category_type
217: CURSOR get_dh_units IS
218: SELECT sum(units_assigned) FROM FA_DISTRIBUTION_HISTORY
219: WHERE asset_id = p_asset_id
220: AND date_ineffective is NULL;
221: l_calling_fn varchar2(40) := 'fa_reclass_util_pvt.validate_units';
222: BEGIN
223:
224: -- Units in asset history and
225: -- distribution history must match.
257: p_calling_fn IN VARCHAR2,
258: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) return boolean IS
259:
260: v_count number:= 0;
261: l_calling_fn varchar2(40) := 'fa_reclass_util_pvt.validate_pending_ret';
262: BEGIN
263:
264: -- no pending retirements
265: select count(1)
295: p_calling_fn IN VARCHAR2,
296: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) return boolean IS
297:
298: v_count NUMBER := 0;
299: l_calling_fn varchar2(40) := 'fa_reclass_util_pvt.validate_fully_ret';
300:
301: BEGIN
302: SELECT count(1)
303: INTO v_count
337: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) return boolean IS
338:
339:
340: v_is_prior_period NUMBER :=0;
341: l_calling_fn varchar2(40) := 'fa_reclass_util_pvt.val_prior_per_add';
342:
343: BEGIN
344:
345: /**** donot know whether I need this
402: l_prior_trans_date DATE;
403: l_prior_date_effective DATE;
404: l_check_another_trans NUMBER := 0;
405:
406: l_calling_fn varchar2(40) := 'fa_reclass_util_pvt.validate_trx_date';
407:
408: CURSOR get_prior_trans_date IS
409: SELECT max(transaction_date_entered)
410: FROM FA_TRANSACTION_HEADERS
479: prior_date_effective DATE;
480: check_another_trans NUMBER;
481: l_period_of_addition varchar2(1);
482:
483: l_calling_fn varchar2(40) := 'fa_reclass_util_pvt.validate_adjustment';
484:
485: CURSOR check_mass_change_allowed IS
486: SELECT 'x' FROM FA_BOOK_CONTROLS
487: WHERE book_type_code = p_book_type_code AND allow_mass_changes = 'NO'
651: h_concat_segs varchar2(2000) := '';
652: h_delimiter varchar2(1);
653:
654: l_err_stage varchar2(250);
655: l_calling_fn varchar2(40) := 'fa_reclass_util_pvt.get_new_ccid';
656:
657: BEGIN
658:
659: l_err_stage := 'Get the new category DEPRN_EXPENSE_ACCT';
834:
835: l_new_deprn_exp_acct fa_category_books.deprn_expense_acct%type;
836: l_old_deprn_exp_acct fa_category_books.deprn_expense_acct%type;
837: l_err_stage varchar2(250);
838: l_calling_fn varchar2(40) := 'fa_reclass_util_pvt.get_asset_dist';
839: l_trx_date_entered date; -- fix for bug 3255715
840:
841: BEGIN
842:
979: l_seg varchar2(30);
980: l_err_stage varchar2(100);
981:
982: l_bal_seg_equal varchar2(1):= null;
983: l_calling_fn varchar2(40) := 'fa_reclass_util_pvt.get_cat_desc_flex';
984:
985: --
986:
987: delim varchar2(1);
1115: l_concat_cat := concat_string;
1116:
1117: --
1118: -- determine whether balancing seg of old and new cat is same
1119: l_err_stage:= 'FA_RECLASS_UTIL_PVT.check_bal_seg_equal';
1120: -- dbms_output.put_line(l_err_stage);
1121: if FA_RECLASS_UTIL_PVT.check_bal_seg_equal(
1122: p_old_category_id => p_asset_cat_rec_old.category_id,
1123: p_new_category_id => px_asset_cat_rec_new.category_id,
1117: --
1118: -- determine whether balancing seg of old and new cat is same
1119: l_err_stage:= 'FA_RECLASS_UTIL_PVT.check_bal_seg_equal';
1120: -- dbms_output.put_line(l_err_stage);
1121: if FA_RECLASS_UTIL_PVT.check_bal_seg_equal(
1122: p_old_category_id => p_asset_cat_rec_old.category_id,
1123: p_new_category_id => px_asset_cat_rec_new.category_id,
1124: p_calling_fn => l_calling_fn,
1125: p_log_level_rec => p_log_level_rec) then
1277: l_all_segs_old FND_FLEX_EXT.SegmentArray;
1278: l_all_segs_new FND_FLEX_EXT.SegmentArray;
1279: l_old_bal_seg VARCHAR2(30);
1280: l_new_bal_seg VARCHAR2(30);
1281: l_calling_fn varchar2(40) := 'fa_reclass_util_pvt.check_bal_seg_equal';
1282:
1283: seg_err EXCEPTION;
1284: BEGIN
1285:
1358: return FALSE;
1359:
1360: END check_bal_seg_equal;
1361:
1362: END FA_RECLASS_UTIL_PVT;