1: PACKAGE BODY FA_RECLASS_UTIL_PVT AS
2: /* $Header: FAVRCUTB.pls 120.18.12020000.3 2013/02/07 07:23:41 adaluru ship $ */
3:
4:
5: /* Global Variables */
13: p_category_id IN VARCHAR2,
14: p_calling_fn IN VARCHAR2 , p_log_level_rec IN FA_API_TYPES.log_level_rec_type) return boolean IS
15:
16: v_count number;
17: l_calling_fn varchar2(40) := 'fa_reclass_util_pvt.validate_cip_accts';
18:
19: BEGIN
20: if p_asset_type = 'CIP' then
21: select count(1)
55: p_calling_fn IN VARCHAR2 , p_log_level_rec IN FA_API_TYPES.log_level_rec_type) 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.
111: v_old_cap_flag varchar2(3);
112: v_old_cat_type varchar2(30);
113:
114: v_count number;
115: l_calling_fn varchar2(40) := 'fa_reclass_util_pvt.validate_cat_types';
116: BEGIN
117: -- both categories must be capitalized or expensed types
118: --old values
119: select capitalize_flag, category_type
209: CURSOR get_dh_units IS
210: SELECT sum(units_assigned) FROM FA_DISTRIBUTION_HISTORY
211: WHERE asset_id = p_asset_id
212: AND date_ineffective is NULL;
213: l_calling_fn varchar2(40) := 'fa_reclass_util_pvt.validate_units';
214: BEGIN
215:
216: -- Units in asset history and
217: -- distribution history must match.
246: p_asset_id IN NUMBER,
247: p_calling_fn IN VARCHAR2 , p_log_level_rec IN FA_API_TYPES.log_level_rec_type) return boolean IS
248:
249: v_count number:= 0;
250: l_calling_fn varchar2(40) := 'fa_reclass_util_pvt.validate_pending_ret';
251: BEGIN
252:
253: -- no pending retirements
254: select count(1)
281: p_asset_id IN NUMBER,
282: p_calling_fn IN VARCHAR2 , p_log_level_rec IN FA_API_TYPES.log_level_rec_type) return boolean IS
283:
284: v_count NUMBER := 0;
285: l_calling_fn varchar2(40) := 'fa_reclass_util_pvt.validate_fully_ret';
286:
287: BEGIN
288: SELECT count(1)
289: INTO v_count
320: p_calling_fn IN VARCHAR2 , p_log_level_rec IN FA_API_TYPES.log_level_rec_type) return boolean IS
321:
322:
323: v_is_prior_period NUMBER :=0;
324: l_calling_fn varchar2(40) := 'fa_reclass_util_pvt.val_prior_per_add';
325:
326: BEGIN
327:
328: /**** donot know whether I need this
383: l_prior_trans_date DATE;
384: l_prior_date_effective DATE;
385: l_check_another_trans NUMBER := 0;
386:
387: l_calling_fn varchar2(40) := 'fa_reclass_util_pvt.validate_trx_date';
388:
389: CURSOR get_prior_trans_date IS
390: SELECT max(transaction_date_entered)
391: FROM FA_TRANSACTION_HEADERS
456: prior_date_effective DATE;
457: check_another_trans NUMBER;
458: l_period_of_addition varchar2(1);
459:
460: l_calling_fn varchar2(40) := 'fa_reclass_util_pvt.validate_adjustment';
461:
462: CURSOR check_mass_change_allowed IS
463: SELECT 'x' FROM FA_BOOK_CONTROLS
464: WHERE book_type_code = p_book_type_code AND allow_mass_changes = 'NO'
618: h_concat_segs varchar2(2000) := '';
619: h_delimiter varchar2(1);
620:
621: l_err_stage varchar2(250);
622: l_calling_fn varchar2(40) := 'fa_reclass_util_pvt.get_new_ccid';
623:
624: BEGIN
625:
626: l_err_stage := 'Get the new category DEPRN_EXPENSE_ACCT';
798:
799: l_new_deprn_exp_acct fa_category_books.deprn_expense_acct%type;
800: l_old_deprn_exp_acct fa_category_books.deprn_expense_acct%type;
801: l_err_stage varchar2(250);
802: l_calling_fn varchar2(40) := 'fa_reclass_util_pvt.get_asset_dist';
803: l_trx_date_entered date; -- fix for bug 3255715
804:
805: BEGIN
806:
949: l_seg varchar2(30);
950: l_err_stage varchar2(100);
951:
952: l_bal_seg_equal varchar2(1):= null;
953: l_calling_fn varchar2(40) := 'fa_reclass_util_pvt.get_cat_desc_flex';
954:
955: --
956:
957: delim varchar2(1);
1085: l_concat_cat := concat_string;
1086:
1087: --
1088: -- determine whether balancing seg of old and new cat is same
1089: l_err_stage:= 'FA_RECLASS_UTIL_PVT.check_bal_seg_equal';
1090: -- dbms_output.put_line(l_err_stage);
1091: if FA_RECLASS_UTIL_PVT.check_bal_seg_equal(
1092: p_old_category_id => p_asset_cat_rec_old.category_id,
1093: p_new_category_id => px_asset_cat_rec_new.category_id,
1087: --
1088: -- determine whether balancing seg of old and new cat is same
1089: l_err_stage:= 'FA_RECLASS_UTIL_PVT.check_bal_seg_equal';
1090: -- dbms_output.put_line(l_err_stage);
1091: if FA_RECLASS_UTIL_PVT.check_bal_seg_equal(
1092: p_old_category_id => p_asset_cat_rec_old.category_id,
1093: p_new_category_id => px_asset_cat_rec_new.category_id,
1094: p_calling_fn => l_calling_fn , p_log_level_rec => p_log_level_rec) then
1095: l_bal_seg_equal:= 'Y';
1244: l_all_segs_old FND_FLEX_EXT.SegmentArray;
1245: l_all_segs_new FND_FLEX_EXT.SegmentArray;
1246: l_old_bal_seg VARCHAR2(30);
1247: l_new_bal_seg VARCHAR2(30);
1248: l_calling_fn varchar2(40) := 'fa_reclass_util_pvt.check_bal_seg_equal';
1249:
1250: seg_err EXCEPTION;
1251: BEGIN
1252:
1323: return FALSE;
1324:
1325: END check_bal_seg_equal;
1326:
1327: END FA_RECLASS_UTIL_PVT;