[Home] [Help]
258: h_user_id := user_id;
259: h_wip_asset := ret.wip_asset;
260:
261: if (p_log_level_rec.statement_level) then
262: fa_debug_pkg.add
263: (fname => l_calling_fn,
264: element => 'Updating fa_retirements',
265: value => '', p_log_level_rec => p_log_level_rec);
266: end if;
333: h_ret_id);
334: end if;
335:
336: LOOP
337: fa_debug_pkg.add
338: (fname => l_calling_fn,
339: element => 'adj_row.adjustment_amount ###',
340: value => 'start of loop', p_log_level_rec => p_log_level_rec);
341: -- Get misc cost info
371: adj_row.mrc_sob_type_code := ret.mrc_sob_type_code;
372: adj_row.set_of_books_id := ret.set_of_books_id;
373: adj_row.track_member_flag := h_track_member_flag; --Bug8244128
374:
375: fa_debug_pkg.add
376: (fname => l_calling_fn,
377: element => 'adj_row.adjustment_amount ###',
378: value => adj_row.adjustment_amount, p_log_level_rec => p_log_level_rec);
379:
386: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
387:
388: return(false);
389: end if;
390: fa_debug_pkg.add
391: (fname => l_calling_fn,
392: element => 'adj_row.adjustment_amount ###',
393: value => 'end of loop', p_log_level_rec => p_log_level_rec);
394: END LOOP;
391: (fname => l_calling_fn,
392: element => 'adj_row.adjustment_amount ###',
393: value => 'end of loop', p_log_level_rec => p_log_level_rec);
394: END LOOP;
395: fa_debug_pkg.add
396: (fname => l_calling_fn,
397: element => 'adj_row.adjustment_amount ###',
398: value => 'end of call', p_log_level_rec => p_log_level_rec);
399: if (ret.mrc_sob_type_code <> 'R') then
559: adj_row.units_retired := 0;
560: adj_row.leveling_flag := TRUE;
561:
562: if (p_log_level_rec.statement_level) then
563: fa_debug_pkg.add
564: (fname => l_calling_fn,
565: element => '+++ Step 1',
566: value => '', p_log_level_rec => p_log_level_rec);
567: end if;
566: value => '', p_log_level_rec => p_log_level_rec);
567: end if;
568:
569: if (p_log_level_rec.statement_level) then
570: fa_debug_pkg.add
571: (fname => l_calling_fn,
572: element => 'Get category from fa_asset_history',
573: value => '', p_log_level_rec => p_log_level_rec);
574: end if;
573: value => '', p_log_level_rec => p_log_level_rec);
574: end if;
575:
576: if (p_log_level_rec.statement_level) then
577: fa_debug_pkg.add
578: (fname => l_calling_fn,
579: element => 'asset_id',
580: value => RET.asset_id, p_log_level_rec => p_log_level_rec);
581: end if;
586: WHERE asset_id = RET.asset_id
587: AND date_ineffective is null;
588:
589: if (p_log_level_rec.statement_level) then
590: fa_debug_pkg.add
591: (fname => l_calling_fn,
592: element => '+++ Step 2',
593: value => '', p_log_level_rec => p_log_level_rec);
594: end if;
597:
598: LOOP
599:
600: if (p_log_level_rec.statement_level) then
601: fa_debug_pkg.add
602: (fname => l_calling_fn,
603: element => 'Fetch Tax Books_DR',
604: value => '', p_log_level_rec => p_log_level_rec);
605: end if;
1580: FROM fa_retirements
1581: WHERE retirement_id = h_ret_id;
1582:
1583: if (p_log_level_rec.statement_level) then
1584: fa_debug_pkg.add
1585: (fname => l_calling_fn,
1586: element => 'Updating FA_BOOKS',
1587: value => '', p_log_level_rec => p_log_level_rec);
1588: fa_debug_pkg.add(l_calling_fn, '++ h_ret_id in fagiat',h_ret_id, p_log_level_rec => p_log_level_rec);
1584: fa_debug_pkg.add
1585: (fname => l_calling_fn,
1586: element => 'Updating FA_BOOKS',
1587: value => '', p_log_level_rec => p_log_level_rec);
1588: fa_debug_pkg.add(l_calling_fn, '++ h_ret_id in fagiat',h_ret_id, p_log_level_rec => p_log_level_rec);
1589: fa_debug_pkg.add(l_calling_fn, '++ h_rethdrout',h_rethdrout, p_log_level_rec => p_log_level_rec);
1590: ENd if;
1591:
1592: /* Replaced this with the following
1585: (fname => l_calling_fn,
1586: element => 'Updating FA_BOOKS',
1587: value => '', p_log_level_rec => p_log_level_rec);
1588: fa_debug_pkg.add(l_calling_fn, '++ h_ret_id in fagiat',h_ret_id, p_log_level_rec => p_log_level_rec);
1589: fa_debug_pkg.add(l_calling_fn, '++ h_rethdrout',h_rethdrout, p_log_level_rec => p_log_level_rec);
1590: ENd if;
1591:
1592: /* Replaced this with the following
1593: if (h_mrc_primary_book_flag = 1) then
1601: AND date_ineffective is null;
1602: end if;
1603: */
1604: if (p_log_level_rec.statement_level) then
1605: fa_debug_pkg.add
1606: (fname => l_calling_fn,
1607: element => 'Deactivate fa_books row',
1608: value => '', p_log_level_rec => p_log_level_rec);
1609: end if;
1608: value => '', p_log_level_rec => p_log_level_rec);
1609: end if;
1610:
1611: if (p_log_level_rec.statement_level) then
1612: fa_debug_pkg.add
1613: (fname => l_calling_fn,
1614: element => 'X_transaction_header_id_out',
1615: value => h_rethdrout, p_log_level_rec => p_log_level_rec);
1616: end if;
1625: and book_type_code = ret.book
1626: and transaction_header_id_out is null;
1627:
1628: if p_log_level_rec.statement_level then
1629: fa_debug_pkg.add(l_calling_fn, 'rate_in_use (P) ', l_rate_in_use);
1630: end if;
1631:
1632: else -- for reporting
1633: -- MRC
1639: and set_of_books_id = ret.set_of_books_id
1640: and transaction_header_id_out is null;*/
1641:
1642: if p_log_level_rec.statement_level then
1643: fa_debug_pkg.add(l_calling_fn, 'rate_in_use (R) ', l_rate_in_use);
1644: end if;
1645: end if;
1646: end if;
1647: -- Bug:5930979:Japan Tax Reform Project (End)
1658: , p_log_level_rec => p_log_level_rec);
1659:
1660:
1661: if (p_log_level_rec.statement_level) then
1662: fa_debug_pkg.add
1663: (fname => l_calling_fn,
1664: element => 'Create a new fa_books row',
1665: value => '', p_log_level_rec => p_log_level_rec);
1666: end if;
1940: AND transaction_header_id_out = h_rethdrout;
1941: end if;
1942:
1943: if (p_log_level_rec.statement_level) then
1944: fa_debug_pkg.add
1945: (fname => l_calling_fn,
1946: element => 'Fetch DH.TRANSACTION_HEADER_ID_OUT',
1947: value => '', p_log_level_rec => p_log_level_rec);
1948: end if;
1947: value => '', p_log_level_rec => p_log_level_rec);
1948: end if;
1949:
1950: if (p_log_level_rec.statement_level) then
1951: fa_debug_pkg.add
1952: (fname => l_calling_fn,
1953: element => '+++ Step 3',
1954: value => '', p_log_level_rec => p_log_level_rec);
1955: end if;
1963: and book_type_code = ret.Book
1964: and transaction_header_id_out is null;
1965:
1966: if p_log_level_rec.statement_level then
1967: fa_debug_pkg.add(l_calling_fn, 'Updated rate_in_use (P) ', l_rate_in_use);
1968: end if;
1969:
1970: else -- For Reporting
1971: -- TO DO -- MRC
1976: and set_of_books_id = ret.set_of_books_id
1977: and transaction_header_id_out is null;*/
1978:
1979: if p_log_level_rec.statement_level then
1980: fa_debug_pkg.add(l_calling_fn, 'Updated rate_in_use (R) ', l_rate_in_use);
1981: end if;
1982: end if;
1983: end if;
1984: -- Bug:5930979:Japan Tax Reform Project (End)
1994: NULL;
1995: END;
1996:
1997: if (p_log_level_rec.statement_level) then
1998: fa_debug_pkg.add
1999: (fname => l_calling_fn,
2000: element => '+++ Step 4',
2001: value => '', p_log_level_rec => p_log_level_rec);
2002: end if;
2047: h_tdistid;
2048: EXIT WHEN OLD_NEW_DIST%NOTFOUND or OLD_NEW_DIST%NOTFOUND IS NULL;
2049:
2050: if (p_log_level_rec.statement_level) then
2051: fa_debug_pkg.add(l_calling_fn, '++ h_pdistid OLD DIST', h_pdistid, p_log_level_rec => p_log_level_rec);
2052: fa_debug_pkg.add(l_calling_fn, '++ h_tdistid NEW DIST', h_tdistid, p_log_level_rec => p_log_level_rec);
2053: end if;
2054:
2055: if ret.mrc_sob_type_code <> 'R' then
2048: EXIT WHEN OLD_NEW_DIST%NOTFOUND or OLD_NEW_DIST%NOTFOUND IS NULL;
2049:
2050: if (p_log_level_rec.statement_level) then
2051: fa_debug_pkg.add(l_calling_fn, '++ h_pdistid OLD DIST', h_pdistid, p_log_level_rec => p_log_level_rec);
2052: fa_debug_pkg.add(l_calling_fn, '++ h_tdistid NEW DIST', h_tdistid, p_log_level_rec => p_log_level_rec);
2053: end if;
2054:
2055: if ret.mrc_sob_type_code <> 'R' then
2056: UPDATE fa_adjustments aj
2080: if (h_drflag = 1) then
2081: -- There is a Header out, must be partialunit retired
2082:
2083: if p_log_level_rec.statement_level then
2084: fa_debug_pkg.add
2085: (fname => l_calling_fn,
2086: element => 'Update FA_DISTRIBUTION_HISTORY',
2087: value => '', p_log_level_rec => p_log_level_rec);
2088: end if;
2100: -- to be terminated. They will be the duplicates of the
2101: -- retired distributions we are now reinstating.
2102:
2103: if p_log_level_rec.statement_level then
2104: fa_debug_pkg.add
2105: (fname => l_calling_fn,
2106: element => '+++ Step 4',
2107: value => '', p_log_level_rec => p_log_level_rec);
2108: end if;
2129: and asset_id = h_asset_id
2130: and retirement_id = h_ret_id;
2131:
2132: if p_log_level_rec.statement_level then
2133: fa_debug_pkg.add
2134: (fname => l_calling_fn,
2135: element => '+++ Step 4.1',
2136: value => '', p_log_level_rec => p_log_level_rec);
2137: end if;
2143: end if;
2144: else
2145:
2146: if p_log_level_rec.statement_level then
2147: fa_debug_pkg.add
2148: (fname => l_calling_fn,
2149: element => '+++ Step 4.6',
2150: value => '', p_log_level_rec => p_log_level_rec);
2151: end if;
2165: -- END UPDATING FA_DISTRIBUTION_HISTORY
2166: upd_ctr := upd_ctr + 1;
2167:
2168: if p_log_level_rec.statement_level then
2169: fa_debug_pkg.add
2170: (fname => l_calling_fn,
2171: element => '+++ Step 4.7',
2172: value => '', p_log_level_rec => p_log_level_rec);
2173: end if;
2176: END LOOP;
2177: CLOSE UPD_DIST;
2178:
2179: if p_log_level_rec.statement_level then
2180: fa_debug_pkg.add
2181: (fname => l_calling_fn,
2182: element => '+++ Step 5',
2183: value => '', p_log_level_rec => p_log_level_rec);
2184: end if;
2189: -- if (h_mrc_primary_book_flag = 1) then
2190: if (ret.mrc_sob_type_code <> 'R') then
2191:
2192: if p_log_level_rec.statement_level then
2193: fa_debug_pkg.add
2194: (fname => l_calling_fn,
2195: element => '+++ Step 5.1',
2196: value => '', p_log_level_rec => p_log_level_rec);
2197: end if;
2203: where asset_id = RET.asset_id
2204: and date_ineffective is null;
2205:
2206: if p_log_level_rec.statement_level then
2207: fa_debug_pkg.add
2208: (fname => l_calling_fn,
2209: element => '+++ Step 5.1.5',
2210: value => '', p_log_level_rec => p_log_level_rec);
2211: end if;
2215: transaction_header_id_out = h_rethdrout
2216: where rowid = h_rowid;
2217:
2218: if p_log_level_rec.statement_level then
2219: fa_debug_pkg.add
2220: (fname => l_calling_fn,
2221: element => '+++ Step 5.2',
2222: value => '', p_log_level_rec => p_log_level_rec);
2223: end if;
2234: from fa_asset_history
2235: where rowid = h_rowid;
2236:
2237: if p_log_level_rec.statement_level then
2238: fa_debug_pkg.add
2239: (fname => l_calling_fn,
2240: element => '+++ Step 5.3',
2241: value => '', p_log_level_rec => p_log_level_rec);
2242: end if;
2250: set current_units = current_units + h_units_retired
2251: where asset_id = RET.asset_id;
2252:
2253: if p_log_level_rec.statement_level then
2254: fa_debug_pkg.add
2255: (fname => l_calling_fn,
2256: element => '+++ Step 5.4',
2257: value => '', p_log_level_rec => p_log_level_rec);
2258: end if;
2262: -- END INSERTING FA_ASSET_HISTORY,
2263: -- END UPDATING FA_ADDITIONS
2264:
2265: if p_log_level_rec.statement_level then
2266: fa_debug_pkg.add
2267: (fname => l_calling_fn,
2268: element => '+++ Step 6',
2269: value => '', p_log_level_rec => p_log_level_rec);
2270: end if;
2272:
2273: else -- Must be full retirement else for if There is a Header out
2274:
2275: if p_log_level_rec.statement_level then
2276: fa_debug_pkg.add
2277: (fname => l_calling_fn,
2278: element => 'Update FA_DISTRIBUTION_HISTORY (FULL RETIREMENT)',
2279: value => '');
2280: end if;
2295: end if;
2296: end if; -- if h_drflag = 1
2297:
2298: if p_log_level_rec.statement_level then
2299: fa_debug_pkg.add
2300: (fname => l_calling_fn,
2301: element => 'Update FA_DISTRIBUTION_HISTORY (new)',
2302: value => '');
2303: end if;
2838: h_user_id := user_id;
2839: h_wip_asset := ret.wip_asset;
2840:
2841: if p_log_level_rec.statement_level then
2842: fa_debug_pkg.add
2843: (fname => l_calling_fn,
2844: element => 'Get thid_out from fa_rets',
2845: value => '', p_log_level_rec => p_log_level_rec);
2846: end if;
2878: adj_row.units_retired := 0;
2879: adj_row.leveling_flag := TRUE;
2880:
2881: if p_log_level_rec.statement_level then
2882: fa_debug_pkg.add
2883: (fname => l_calling_fn,
2884: element => 'Populate PL-SQL tables',
2885: value => '', p_log_level_rec => p_log_level_rec);
2886: end if;
2916: end if;
2917: end if;
2918:
2919: if p_log_level_rec.statement_level then
2920: fa_debug_pkg.add
2921: (fname => l_calling_fn,
2922: element => 'Calling process_adj_table',
2923: value => '', p_log_level_rec => p_log_level_rec);
2924: end if;
2932: return false;
2933: end if ;
2934:
2935: if p_log_level_rec.statement_level then
2936: fa_debug_pkg.add
2937: (fname => l_calling_fn,
2938: element => 'process_adj_table done',
2939: value => '', p_log_level_rec => p_log_level_rec);
2940: end if;
3263: h_user_id := user_id;
3264: h_book := ret.book;
3265:
3266: if p_log_level_rec.statement_level then
3267: fa_debug_pkg.add
3268: (fname => l_calling_fn,
3269: element => 'Get thid_out from fa_rets',
3270: value => '', p_log_level_rec => p_log_level_rec);
3271: end if;
3314: * reserve and reserve adjustment amount created by the retirement.
3315: */
3316:
3317: if p_log_level_rec.statement_level then
3318: fa_debug_pkg.add
3319: (fname => l_calling_fn,
3320: element => 'Get category from fa_asset_history',
3321: value => '', p_log_level_rec => p_log_level_rec);
3322: end if;
3331: adj_row.account_type := NULL;
3332: adj_row.gen_ccid_flag := FALSE;
3333:
3334: if p_log_level_rec.statement_level then
3335: fa_debug_pkg.add
3336: (fname => l_calling_fn,
3337: element => 'Get deprn_reserve info',
3338: value => '', p_log_level_rec => p_log_level_rec);
3339: end if;
3351: are inserted in fa_adjustments for a group when member asset
3352: is retired
3353: */
3354: if p_log_level_rec.statement_level then
3355: fa_debug_pkg.add
3356: (fname => l_calling_fn,
3357: element => 'Populate PL-SQL tables',
3358: value => '', p_log_level_rec => p_log_level_rec);
3359: end if;
3386: end if; -- mrc
3387: end if; -- partial_unit retirement
3388:
3389: if p_log_level_rec.statement_level then
3390: fa_debug_pkg.add
3391: (fname => l_calling_fn,
3392: element => 'Before calling process_adj_table',
3393: value => '', p_log_level_rec => p_log_level_rec);
3394: end if;
3402: return false;
3403: end if ;
3404:
3405: if p_log_level_rec.statement_level then
3406: fa_debug_pkg.add
3407: (fname => l_calling_fn,
3408: element => 'After calling process_adj_table for non group',
3409: value => '', p_log_level_rec => p_log_level_rec);
3410: end if;
3435:
3436: end if;
3437:
3438: if p_log_level_rec.statement_level then
3439: fa_debug_pkg.add
3440: (fname => l_calling_fn,
3441: element => 'After calling process_adj_table for group',
3442: value => '', p_log_level_rec => p_log_level_rec);
3443: end if;
3798: h_today := today;
3799: h_book := ret.book;
3800:
3801: if p_log_level_rec.statement_level then
3802: fa_debug_pkg.add
3803: (fname => l_calling_fn,
3804: element => 'Get thid_out from fa_rets',
3805: value => '', p_log_level_rec => p_log_level_rec);
3806: end if;
3927:
3928: if RET.units_retired is NULL or RET.units_retired <= 0 then
3929:
3930: if p_log_level_rec.statement_level then
3931: fa_debug_pkg.add
3932: (fname => l_calling_fn,
3933: element => 'Get dist and deprn 1 info',
3934: value => '', p_log_level_rec => p_log_level_rec);
3935: end if;
3942:
3943: LOOP
3944:
3945: if p_log_level_rec.statement_level then
3946: fa_debug_pkg.add
3947: (fname => l_calling_fn,
3948: element => 'Fetch dist and deprn 1 info',
3949: value => '', p_log_level_rec => p_log_level_rec);
3950: end if;
4031:
4032: -- Inserting to FA_ADJUSTMENTS which dist-id is NOT active distributions
4033:
4034: if p_log_level_rec.statement_level then
4035: fa_debug_pkg.add
4036: (fname => l_calling_fn,
4037: element => 'Get dist and deprn 2 info',
4038: value => '', p_log_level_rec => p_log_level_rec);
4039: end if;
4053:
4054: LOOP
4055:
4056: if p_log_level_rec.statement_level then
4057: fa_debug_pkg.add
4058: (fname => l_calling_fn,
4059: element => 'Fetch dist and deprn 2 info',
4060: value => '', p_log_level_rec => p_log_level_rec);
4061: end if;
4106: return(TRUE);
4107:
4108: else
4109: if p_log_level_rec.statement_level then
4110: fa_debug_pkg.add
4111: (fname => l_calling_fn,
4112: element => 'Get dist and deprn 3 info',
4113: value => '', p_log_level_rec => p_log_level_rec);
4114: end if;
4120: end if;
4121: LOOP
4122:
4123: if p_log_level_rec.statement_level then
4124: fa_debug_pkg.add
4125: (fname => l_calling_fn,
4126: element => 'Fetch dist and deprn 3 info',
4127: value => '', p_log_level_rec => p_log_level_rec);
4128: end if;
4196: CLOSE MRC_DIST_DEPRN3;
4197: end if;
4198:
4199: if p_log_level_rec.statement_level then
4200: fa_debug_pkg.add
4201: (fname => l_calling_fn,
4202: element => 'Get dist and deprn 4 info',
4203: value => '', p_log_level_rec => p_log_level_rec);
4204: end if;
4218:
4219: LOOP
4220:
4221: if p_log_level_rec.statement_level then
4222: fa_debug_pkg.add
4223: (fname => l_calling_fn,
4224: element => 'Fetch dist and deprn 4 info',
4225: value => '', p_log_level_rec => p_log_level_rec);
4226: end if;
4443: /* EXEC SQL WHENEVER SQLERROR GOTO fagirv_error;
4444: EXEC SQL WHENEVER NOT FOUND GOTO fagirv_error; */
4445:
4446: if p_log_level_rec.statement_level then
4447: fa_debug_pkg.add
4448: (fname => l_calling_fn,
4449: element => 'Retirement Periods',
4450: value => '', p_log_level_rec => p_log_level_rec);
4451: end if;
4459: RET.date_effective)
4460: AND fadp.book_type_code = h_book;
4461:
4462: if p_log_level_rec.statement_level then
4463: fa_debug_pkg.add
4464: (fname => l_calling_fn,
4465: element => 'reserve (Before Retirement)',
4466: value => '');
4467: end if;
4531: h_tot_impairment_adj := 0;
4532: h_tot_reval_adj := 0;
4533:
4534: if p_log_level_rec.statement_level then
4535: fa_debug_pkg.add
4536: (fname => l_calling_fn,
4537: element => 'reserve (at Retirement)',
4538: value => '');
4539: end if;
4583: END;
4584: end if;
4585:
4586: if p_log_level_rec.statement_level then
4587: fa_debug_pkg.add
4588: (fname => l_calling_fn,
4589: element => 'bonus reserve (at Retirement)',
4590: value => '');
4591: end if;
4633: END;
4634: end if;
4635:
4636: if p_log_level_rec.statement_level then
4637: fa_debug_pkg.add
4638: (fname => l_calling_fn,
4639: element => 'impair reserve (at Retirement)',
4640: value => '');
4641: end if;
4683: END;
4684: end if;
4685:
4686: if p_log_level_rec.statement_level then
4687: fa_debug_pkg.add
4688: (fname => l_calling_fn,
4689: element => 'reval reserve (at Retirement)',
4690: value => '');
4691: end if;
4817: END IF;
4818:
4819:
4820: adj_row.selection_thid := h_th_id_out ;
4821: fa_debug_pkg.add
4822: (fname => l_calling_fn,
4823: element => 'h_th_id_out ###------',
4824: value =>h_th_id_out, p_log_level_rec => p_log_level_rec);
4825:
4849:
4850: adj_row.transaction_header_id := h_th_id_out;
4851: adj_row.selection_thid := h_th_id_out ;
4852:
4853: fa_debug_pkg.add
4854: (fname => l_calling_fn,
4855: element => 'books units------',
4856: value =>bk.cur_units, p_log_level_rec => p_log_level_rec);
4857: OPEN TERM_DIST;
4858: LOOP
4859: FETCH TERM_DIST
4860: INTO h_dist_id;
4861: EXIT WHEN TERM_DIST%NOTFOUND OR TERM_DIST%NOTFOUND IS NULL;
4862: fa_debug_pkg.add
4863: (fname => l_calling_fn,
4864: element => 'books units------11111',
4865: value =>bk.cur_units, p_log_level_rec => p_log_level_rec);
4866: if(ret.mrc_sob_type_code <> 'R')then
4920: adj_row.adjustment_amount := 0;
4921: adj_row.mrc_sob_type_code := ret.mrc_sob_type_code;
4922: adj_row.set_of_books_id := ret.set_of_books_id;
4923: if p_log_level_rec.statement_level then
4924: fa_debug_pkg.add
4925: (fname => l_calling_fn,
4926: element => 'before clear',
4927: value => '', p_log_level_rec => p_log_level_rec);
4928: END if;
4935: return(false);
4936:
4937: end if;
4938: if p_log_level_rec.statement_level then
4939: fa_debug_pkg.add
4940: (fname => l_calling_fn,
4941: element => 'after clear',
4942: value => '', p_log_level_rec => p_log_level_rec);
4943: fa_debug_pkg.add
4939: fa_debug_pkg.add
4940: (fname => l_calling_fn,
4941: element => 'after clear',
4942: value => '', p_log_level_rec => p_log_level_rec);
4943: fa_debug_pkg.add
4944: (fname => l_calling_fn,
4945: element => 'TERM h_dist_id ++$$$$$++',
4946: value => h_dist_id);
4947: END if;
4966:
4967: adj_row.mrc_sob_type_code := ret.mrc_sob_type_code;
4968: adj_row.set_of_books_id := ret.set_of_books_id;
4969: if p_log_level_rec.statement_level then
4970: fa_debug_pkg.add
4971: (fname => l_calling_fn,
4972: element => 'before clear',
4973: value => '', p_log_level_rec => p_log_level_rec);
4974: fa_debug_pkg.add
4970: fa_debug_pkg.add
4971: (fname => l_calling_fn,
4972: element => 'before clear',
4973: value => '', p_log_level_rec => p_log_level_rec);
4974: fa_debug_pkg.add
4975: (fname => l_calling_fn,
4976: element => 'h_misc_cost ++$$$$$++1',
4977: value => h_misc_cost);
4978: fa_debug_pkg.add
4974: fa_debug_pkg.add
4975: (fname => l_calling_fn,
4976: element => 'h_misc_cost ++$$$$$++1',
4977: value => h_misc_cost);
4978: fa_debug_pkg.add
4979: (fname => l_calling_fn,
4980: element => 'bk.current_cost ++$$$$$++1',
4981: value => bk.current_cost);
4982: fa_debug_pkg.add
4978: fa_debug_pkg.add
4979: (fname => l_calling_fn,
4980: element => 'bk.current_cost ++$$$$$++1',
4981: value => bk.current_cost);
4982: fa_debug_pkg.add
4983: (fname => l_calling_fn,
4984: element => 'h_dist_id ++$$$$$++1',
4985: value => h_dist_id);
4986: fa_debug_pkg.add
4982: fa_debug_pkg.add
4983: (fname => l_calling_fn,
4984: element => 'h_dist_id ++$$$$$++1',
4985: value => h_dist_id);
4986: fa_debug_pkg.add
4987: (fname => l_calling_fn,
4988: element => 'h_units_assign ++$$$$$++1',
4989: value => h_units_assign);
4990: fa_debug_pkg.add
4986: fa_debug_pkg.add
4987: (fname => l_calling_fn,
4988: element => 'h_units_assign ++$$$$$++1',
4989: value => h_units_assign);
4990: fa_debug_pkg.add
4991: (fname => l_calling_fn,
4992: element => 'bk.cur_units ++$$$$$++1',
4993: value => bk.cur_units);
4994: fa_debug_pkg.add
4990: fa_debug_pkg.add
4991: (fname => l_calling_fn,
4992: element => 'bk.cur_units ++$$$$$++1',
4993: value => bk.cur_units);
4994: fa_debug_pkg.add
4995: (fname => l_calling_fn,
4996: element => 'adj_row.adjustment_amount ###1',
4997: value => adj_row.adjustment_amount, p_log_level_rec => p_log_level_rec);
4998: END if;
5103: --End for 8651843
5104: BEGIN <
5105:
5106: if p_log_level_rec.statement_level then
5107: fa_debug_pkg.add
5108: (fname => l_calling_fn,
5109: element => '+++ FAGRIN: Step 1',
5110: value => '', p_log_level_rec => p_log_level_rec);
5111: end if;
5145: l_cur_grp_id := NULL;
5146: END;
5147:
5148: IF p_log_level_rec.statement_level THEN
5149: fa_debug_pkg.add(l_calling_fn, 'in fagrin group asset id', l_cur_grp_id, p_log_level_rec => p_log_level_rec);
5150: END IF;
5151:
5152: IF l_cur_grp_id IS NOT NULL THEN
5153: bk.group_asset_id := l_cur_grp_id;
5158: prior_fy_exp := 0;
5159: ytd_deprn := 0;
5160: cost_frac := 0;
5161:
5162: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in fagrin 1', '', p_log_level_rec => p_log_level_rec); end if;
5163: -- bug 5008040
5164: -- if ( bk.current_cost is NULL or bk.current_cost <= 0) then
5165:
5166: if ( bk.current_cost is NULL or bk.current_cost = 0) then
5175: -- return(FALSE);
5176: --end if;
5177: end if;
5178:
5179: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in fagrin 2', '', p_log_level_rec => p_log_level_rec); end if;
5180: /* bg344494 base 334428, re-added in the afmround function. Should have been
5181: * added in version 75.20 but seems to have disappered. Readding
5182: */
5183:
5210: return(FALSE);
5211: end if;
5212:
5213: if p_log_level_rec.statement_level then
5214: fa_debug_pkg.add
5215: (fname => l_calling_fn,
5216: element => 'after fagirv:deprn_reserve',
5217: value => deprn_reserve, p_log_level_rec => p_log_level_rec);
5218: fa_debug_pkg.add
5214: fa_debug_pkg.add
5215: (fname => l_calling_fn,
5216: element => 'after fagirv:deprn_reserve',
5217: value => deprn_reserve, p_log_level_rec => p_log_level_rec);
5218: fa_debug_pkg.add
5219: (fname => l_calling_fn,
5220: element => 'after fagirv:bonus_deprn_reserve',
5221: value => bonus_deprn_reserve, p_log_level_rec => p_log_level_rec);
5222: fa_debug_pkg.add
5218: fa_debug_pkg.add
5219: (fname => l_calling_fn,
5220: element => 'after fagirv:bonus_deprn_reserve',
5221: value => bonus_deprn_reserve, p_log_level_rec => p_log_level_rec);
5222: fa_debug_pkg.add
5223: (fname => l_calling_fn,
5224: element => 'after fagirv:impairment_reserve',
5225: value => impairment_reserve, p_log_level_rec => p_log_level_rec);
5226: fa_debug_pkg.add
5222: fa_debug_pkg.add
5223: (fname => l_calling_fn,
5224: element => 'after fagirv:impairment_reserve',
5225: value => impairment_reserve, p_log_level_rec => p_log_level_rec);
5226: fa_debug_pkg.add
5227: (fname => l_calling_fn,
5228: element => 'after fagirv:reval_reserve',
5229: value => reval_reserve, p_log_level_rec => p_log_level_rec);
5230: fa_debug_pkg.add
5226: fa_debug_pkg.add
5227: (fname => l_calling_fn,
5228: element => 'after fagirv:reval_reserve',
5229: value => reval_reserve, p_log_level_rec => p_log_level_rec);
5230: fa_debug_pkg.add
5231: (fname => l_calling_fn,
5232: element => 'after fagirv:prior_fy_exp',
5233: value => prior_fy_exp, p_log_level_rec => p_log_level_rec);
5234: fa_debug_pkg.add
5230: fa_debug_pkg.add
5231: (fname => l_calling_fn,
5232: element => 'after fagirv:prior_fy_exp',
5233: value => prior_fy_exp, p_log_level_rec => p_log_level_rec);
5234: fa_debug_pkg.add
5235: (fname => l_calling_fn,
5236: element => 'after fagirv:ytd_deprn',
5237: value => ytd_deprn, p_log_level_rec => p_log_level_rec);
5238: end if;
5273:
5274: -- Bug:6349882
5275: dpr.transaction_type_code := 'REINSTATEMENT';
5276:
5277: if p_log_level_rec.statement_level then fa_debug_pkg.add(l_calling_fn, 'in fagrin 3', '', p_log_level_rec => p_log_level_rec); end if;
5278:
5279:
5280: --Bug5887343 Added retirement_id
5281: if (NOT FA_GAINLOSS_DPR_PKG.fagcdp(
5367: END IF;
5368:
5369: -- Bug # 7184690,7199183
5370: --Changed the deprn_amt calculation so that penny differences are removed
5371: fa_debug_pkg.add (l_calling_fn, '+++dpr.deprn_rsv (from fagcdp)', dpr.deprn_rsv);
5372: fa_debug_pkg.add (l_calling_fn, '+++l_reserve_ret (from fagcdp)', l_reserve_ret);
5373: fa_debug_pkg.add (l_calling_fn, '+++l_exp_ret (from fagcdp)', l_exp_ret);
5374: fa_debug_pkg.add (l_calling_fn, '+++deprn_amt (from fagcdp)', deprn_amt);
5375: fa_debug_pkg.add (l_calling_fn, '+++l_dpr.deprn_rsv (from fagcdp)', l_dpr.deprn_rsv);
5368:
5369: -- Bug # 7184690,7199183
5370: --Changed the deprn_amt calculation so that penny differences are removed
5371: fa_debug_pkg.add (l_calling_fn, '+++dpr.deprn_rsv (from fagcdp)', dpr.deprn_rsv);
5372: fa_debug_pkg.add (l_calling_fn, '+++l_reserve_ret (from fagcdp)', l_reserve_ret);
5373: fa_debug_pkg.add (l_calling_fn, '+++l_exp_ret (from fagcdp)', l_exp_ret);
5374: fa_debug_pkg.add (l_calling_fn, '+++deprn_amt (from fagcdp)', deprn_amt);
5375: fa_debug_pkg.add (l_calling_fn, '+++l_dpr.deprn_rsv (from fagcdp)', l_dpr.deprn_rsv);
5376: deprn_amt := (dpr.deprn_rsv - l_reserve_ret + l_exp_ret + deprn_amt ) - l_dpr.deprn_rsv;
5369: -- Bug # 7184690,7199183
5370: --Changed the deprn_amt calculation so that penny differences are removed
5371: fa_debug_pkg.add (l_calling_fn, '+++dpr.deprn_rsv (from fagcdp)', dpr.deprn_rsv);
5372: fa_debug_pkg.add (l_calling_fn, '+++l_reserve_ret (from fagcdp)', l_reserve_ret);
5373: fa_debug_pkg.add (l_calling_fn, '+++l_exp_ret (from fagcdp)', l_exp_ret);
5374: fa_debug_pkg.add (l_calling_fn, '+++deprn_amt (from fagcdp)', deprn_amt);
5375: fa_debug_pkg.add (l_calling_fn, '+++l_dpr.deprn_rsv (from fagcdp)', l_dpr.deprn_rsv);
5376: deprn_amt := (dpr.deprn_rsv - l_reserve_ret + l_exp_ret + deprn_amt ) - l_dpr.deprn_rsv;
5377:
5370: --Changed the deprn_amt calculation so that penny differences are removed
5371: fa_debug_pkg.add (l_calling_fn, '+++dpr.deprn_rsv (from fagcdp)', dpr.deprn_rsv);
5372: fa_debug_pkg.add (l_calling_fn, '+++l_reserve_ret (from fagcdp)', l_reserve_ret);
5373: fa_debug_pkg.add (l_calling_fn, '+++l_exp_ret (from fagcdp)', l_exp_ret);
5374: fa_debug_pkg.add (l_calling_fn, '+++deprn_amt (from fagcdp)', deprn_amt);
5375: fa_debug_pkg.add (l_calling_fn, '+++l_dpr.deprn_rsv (from fagcdp)', l_dpr.deprn_rsv);
5376: deprn_amt := (dpr.deprn_rsv - l_reserve_ret + l_exp_ret + deprn_amt ) - l_dpr.deprn_rsv;
5377:
5378: -- deprn_amt := cost_frac * deprn_amt ;
5371: fa_debug_pkg.add (l_calling_fn, '+++dpr.deprn_rsv (from fagcdp)', dpr.deprn_rsv);
5372: fa_debug_pkg.add (l_calling_fn, '+++l_reserve_ret (from fagcdp)', l_reserve_ret);
5373: fa_debug_pkg.add (l_calling_fn, '+++l_exp_ret (from fagcdp)', l_exp_ret);
5374: fa_debug_pkg.add (l_calling_fn, '+++deprn_amt (from fagcdp)', deprn_amt);
5375: fa_debug_pkg.add (l_calling_fn, '+++l_dpr.deprn_rsv (from fagcdp)', l_dpr.deprn_rsv);
5376: deprn_amt := (dpr.deprn_rsv - l_reserve_ret + l_exp_ret + deprn_amt ) - l_dpr.deprn_rsv;
5377:
5378: -- deprn_amt := cost_frac * deprn_amt ;
5379: --bug6853328 ends
5383: reval_deprn_amt := cost_frac * reval_deprn_amt;
5384: reval_amort_amt := cost_frac * reval_amort_amt;
5385:
5386: if p_log_level_rec.statement_level then
5387: fa_debug_pkg.add (l_calling_fn, '++++++++++++++++++++++++++++++ BEGIN fagcpd', '...', p_log_level_rec => p_log_level_rec);
5388: fa_debug_pkg.add (l_calling_fn, '+++ start_pd', start_pd, p_log_level_rec => p_log_level_rec);
5389: fa_debug_pkg.add (l_calling_fn, '+++ cpdnum', cpdnum, p_log_level_rec => p_log_level_rec);
5390: fa_debug_pkg.add (l_calling_fn, '+++ deprn_amt (from fagcdp)', deprn_amt);
5391: fa_debug_pkg.add (l_calling_fn, '+++ dpr.deprn_rsv (from fagcdp)', dpr.deprn_rsv);
5384: reval_amort_amt := cost_frac * reval_amort_amt;
5385:
5386: if p_log_level_rec.statement_level then
5387: fa_debug_pkg.add (l_calling_fn, '++++++++++++++++++++++++++++++ BEGIN fagcpd', '...', p_log_level_rec => p_log_level_rec);
5388: fa_debug_pkg.add (l_calling_fn, '+++ start_pd', start_pd, p_log_level_rec => p_log_level_rec);
5389: fa_debug_pkg.add (l_calling_fn, '+++ cpdnum', cpdnum, p_log_level_rec => p_log_level_rec);
5390: fa_debug_pkg.add (l_calling_fn, '+++ deprn_amt (from fagcdp)', deprn_amt);
5391: fa_debug_pkg.add (l_calling_fn, '+++ dpr.deprn_rsv (from fagcdp)', dpr.deprn_rsv);
5392: fa_debug_pkg.add (l_calling_fn, '++++++++++++++++++++++++++++++ END fagcpd', '...', p_log_level_rec => p_log_level_rec);
5385:
5386: if p_log_level_rec.statement_level then
5387: fa_debug_pkg.add (l_calling_fn, '++++++++++++++++++++++++++++++ BEGIN fagcpd', '...', p_log_level_rec => p_log_level_rec);
5388: fa_debug_pkg.add (l_calling_fn, '+++ start_pd', start_pd, p_log_level_rec => p_log_level_rec);
5389: fa_debug_pkg.add (l_calling_fn, '+++ cpdnum', cpdnum, p_log_level_rec => p_log_level_rec);
5390: fa_debug_pkg.add (l_calling_fn, '+++ deprn_amt (from fagcdp)', deprn_amt);
5391: fa_debug_pkg.add (l_calling_fn, '+++ dpr.deprn_rsv (from fagcdp)', dpr.deprn_rsv);
5392: fa_debug_pkg.add (l_calling_fn, '++++++++++++++++++++++++++++++ END fagcpd', '...', p_log_level_rec => p_log_level_rec);
5393: end if;
5386: if p_log_level_rec.statement_level then
5387: fa_debug_pkg.add (l_calling_fn, '++++++++++++++++++++++++++++++ BEGIN fagcpd', '...', p_log_level_rec => p_log_level_rec);
5388: fa_debug_pkg.add (l_calling_fn, '+++ start_pd', start_pd, p_log_level_rec => p_log_level_rec);
5389: fa_debug_pkg.add (l_calling_fn, '+++ cpdnum', cpdnum, p_log_level_rec => p_log_level_rec);
5390: fa_debug_pkg.add (l_calling_fn, '+++ deprn_amt (from fagcdp)', deprn_amt);
5391: fa_debug_pkg.add (l_calling_fn, '+++ dpr.deprn_rsv (from fagcdp)', dpr.deprn_rsv);
5392: fa_debug_pkg.add (l_calling_fn, '++++++++++++++++++++++++++++++ END fagcpd', '...', p_log_level_rec => p_log_level_rec);
5393: end if;
5394:
5387: fa_debug_pkg.add (l_calling_fn, '++++++++++++++++++++++++++++++ BEGIN fagcpd', '...', p_log_level_rec => p_log_level_rec);
5388: fa_debug_pkg.add (l_calling_fn, '+++ start_pd', start_pd, p_log_level_rec => p_log_level_rec);
5389: fa_debug_pkg.add (l_calling_fn, '+++ cpdnum', cpdnum, p_log_level_rec => p_log_level_rec);
5390: fa_debug_pkg.add (l_calling_fn, '+++ deprn_amt (from fagcdp)', deprn_amt);
5391: fa_debug_pkg.add (l_calling_fn, '+++ dpr.deprn_rsv (from fagcdp)', dpr.deprn_rsv);
5392: fa_debug_pkg.add (l_calling_fn, '++++++++++++++++++++++++++++++ END fagcpd', '...', p_log_level_rec => p_log_level_rec);
5393: end if;
5394:
5395: else
5388: fa_debug_pkg.add (l_calling_fn, '+++ start_pd', start_pd, p_log_level_rec => p_log_level_rec);
5389: fa_debug_pkg.add (l_calling_fn, '+++ cpdnum', cpdnum, p_log_level_rec => p_log_level_rec);
5390: fa_debug_pkg.add (l_calling_fn, '+++ deprn_amt (from fagcdp)', deprn_amt);
5391: fa_debug_pkg.add (l_calling_fn, '+++ dpr.deprn_rsv (from fagcdp)', dpr.deprn_rsv);
5392: fa_debug_pkg.add (l_calling_fn, '++++++++++++++++++++++++++++++ END fagcpd', '...', p_log_level_rec => p_log_level_rec);
5393: end if;
5394:
5395: else
5396: if p_log_level_rec.statement_level then
5393: end if;
5394:
5395: else
5396: if p_log_level_rec.statement_level then
5397: fa_debug_pkg.add
5398: (fname => l_calling_fn,
5399: element => 'Skipping to call FA_GAINLOSS_DPR_PKG.fagcdp',
5400: value => bk.tracking_method, p_log_level_rec => p_log_level_rec);
5401: end if;
5429: impairment_amt := cost_frac * nvl(l_impairment_exp, 0);
5430: */
5431:
5432: if p_log_level_rec.statement_level then
5433: fa_debug_pkg.add (l_calling_fn, '+++ Values from CALC_CATCHUP wil replace', 'amounts from faxcde', p_log_level_rec => p_log_level_rec);
5434: fa_debug_pkg.add (l_calling_fn, '+++ l_deprn_exp', l_deprn_exp, p_log_level_rec => p_log_level_rec);
5435: fa_debug_pkg.add (l_calling_fn, '+++ l_bonus_deprn_exp', l_bonus_deprn_exp, p_log_level_rec => p_log_level_rec);
5436: fa_debug_pkg.add (l_calling_fn, '+++ cost_frac', cost_frac, p_log_level_rec => p_log_level_rec);
5437: fa_debug_pkg.add (l_calling_fn, '+++ NEW deprn_amt', deprn_amt, p_log_level_rec => p_log_level_rec);
5430: */
5431:
5432: if p_log_level_rec.statement_level then
5433: fa_debug_pkg.add (l_calling_fn, '+++ Values from CALC_CATCHUP wil replace', 'amounts from faxcde', p_log_level_rec => p_log_level_rec);
5434: fa_debug_pkg.add (l_calling_fn, '+++ l_deprn_exp', l_deprn_exp, p_log_level_rec => p_log_level_rec);
5435: fa_debug_pkg.add (l_calling_fn, '+++ l_bonus_deprn_exp', l_bonus_deprn_exp, p_log_level_rec => p_log_level_rec);
5436: fa_debug_pkg.add (l_calling_fn, '+++ cost_frac', cost_frac, p_log_level_rec => p_log_level_rec);
5437: fa_debug_pkg.add (l_calling_fn, '+++ NEW deprn_amt', deprn_amt, p_log_level_rec => p_log_level_rec);
5438: fa_debug_pkg.add (l_calling_fn, '+++ NEW bonue_deprn_amt', bonus_deprn_amt, p_log_level_rec => p_log_level_rec);
5431:
5432: if p_log_level_rec.statement_level then
5433: fa_debug_pkg.add (l_calling_fn, '+++ Values from CALC_CATCHUP wil replace', 'amounts from faxcde', p_log_level_rec => p_log_level_rec);
5434: fa_debug_pkg.add (l_calling_fn, '+++ l_deprn_exp', l_deprn_exp, p_log_level_rec => p_log_level_rec);
5435: fa_debug_pkg.add (l_calling_fn, '+++ l_bonus_deprn_exp', l_bonus_deprn_exp, p_log_level_rec => p_log_level_rec);
5436: fa_debug_pkg.add (l_calling_fn, '+++ cost_frac', cost_frac, p_log_level_rec => p_log_level_rec);
5437: fa_debug_pkg.add (l_calling_fn, '+++ NEW deprn_amt', deprn_amt, p_log_level_rec => p_log_level_rec);
5438: fa_debug_pkg.add (l_calling_fn, '+++ NEW bonue_deprn_amt', bonus_deprn_amt, p_log_level_rec => p_log_level_rec);
5439: end if;
5432: if p_log_level_rec.statement_level then
5433: fa_debug_pkg.add (l_calling_fn, '+++ Values from CALC_CATCHUP wil replace', 'amounts from faxcde', p_log_level_rec => p_log_level_rec);
5434: fa_debug_pkg.add (l_calling_fn, '+++ l_deprn_exp', l_deprn_exp, p_log_level_rec => p_log_level_rec);
5435: fa_debug_pkg.add (l_calling_fn, '+++ l_bonus_deprn_exp', l_bonus_deprn_exp, p_log_level_rec => p_log_level_rec);
5436: fa_debug_pkg.add (l_calling_fn, '+++ cost_frac', cost_frac, p_log_level_rec => p_log_level_rec);
5437: fa_debug_pkg.add (l_calling_fn, '+++ NEW deprn_amt', deprn_amt, p_log_level_rec => p_log_level_rec);
5438: fa_debug_pkg.add (l_calling_fn, '+++ NEW bonue_deprn_amt', bonus_deprn_amt, p_log_level_rec => p_log_level_rec);
5439: end if;
5440: /*
5433: fa_debug_pkg.add (l_calling_fn, '+++ Values from CALC_CATCHUP wil replace', 'amounts from faxcde', p_log_level_rec => p_log_level_rec);
5434: fa_debug_pkg.add (l_calling_fn, '+++ l_deprn_exp', l_deprn_exp, p_log_level_rec => p_log_level_rec);
5435: fa_debug_pkg.add (l_calling_fn, '+++ l_bonus_deprn_exp', l_bonus_deprn_exp, p_log_level_rec => p_log_level_rec);
5436: fa_debug_pkg.add (l_calling_fn, '+++ cost_frac', cost_frac, p_log_level_rec => p_log_level_rec);
5437: fa_debug_pkg.add (l_calling_fn, '+++ NEW deprn_amt', deprn_amt, p_log_level_rec => p_log_level_rec);
5438: fa_debug_pkg.add (l_calling_fn, '+++ NEW bonue_deprn_amt', bonus_deprn_amt, p_log_level_rec => p_log_level_rec);
5439: end if;
5440: /*
5441: *
5434: fa_debug_pkg.add (l_calling_fn, '+++ l_deprn_exp', l_deprn_exp, p_log_level_rec => p_log_level_rec);
5435: fa_debug_pkg.add (l_calling_fn, '+++ l_bonus_deprn_exp', l_bonus_deprn_exp, p_log_level_rec => p_log_level_rec);
5436: fa_debug_pkg.add (l_calling_fn, '+++ cost_frac', cost_frac, p_log_level_rec => p_log_level_rec);
5437: fa_debug_pkg.add (l_calling_fn, '+++ NEW deprn_amt', deprn_amt, p_log_level_rec => p_log_level_rec);
5438: fa_debug_pkg.add (l_calling_fn, '+++ NEW bonue_deprn_amt', bonus_deprn_amt, p_log_level_rec => p_log_level_rec);
5439: end if;
5440: /*
5441: *
5442: *
5512:
5513: end if;
5514:
5515: if p_log_level_rec.statement_level then
5516: fa_debug_pkg.add (l_calling_fn, '+++ ELSE PART: Values from CALC_CATCHUP','...', p_log_level_rec => p_log_level_rec);
5517: fa_debug_pkg.add (l_calling_fn, '+++ l_deprn_exp', l_deprn_exp, p_log_level_rec => p_log_level_rec);
5518: fa_debug_pkg.add (l_calling_fn, '+++ l_bonus_deprn_exp', l_bonus_deprn_exp, p_log_level_rec => p_log_level_rec);
5519: fa_debug_pkg.add (l_calling_fn, '+++ cost_frac', cost_frac, p_log_level_rec => p_log_level_rec);
5520: fa_debug_pkg.add (l_calling_fn, '+++ NEW deprn_amt', deprn_amt, p_log_level_rec => p_log_level_rec);
5513: end if;
5514:
5515: if p_log_level_rec.statement_level then
5516: fa_debug_pkg.add (l_calling_fn, '+++ ELSE PART: Values from CALC_CATCHUP','...', p_log_level_rec => p_log_level_rec);
5517: fa_debug_pkg.add (l_calling_fn, '+++ l_deprn_exp', l_deprn_exp, p_log_level_rec => p_log_level_rec);
5518: fa_debug_pkg.add (l_calling_fn, '+++ l_bonus_deprn_exp', l_bonus_deprn_exp, p_log_level_rec => p_log_level_rec);
5519: fa_debug_pkg.add (l_calling_fn, '+++ cost_frac', cost_frac, p_log_level_rec => p_log_level_rec);
5520: fa_debug_pkg.add (l_calling_fn, '+++ NEW deprn_amt', deprn_amt, p_log_level_rec => p_log_level_rec);
5521: fa_debug_pkg.add (l_calling_fn, '+++ NEW bonue_deprn_amt', bonus_deprn_amt, p_log_level_rec => p_log_level_rec);
5514:
5515: if p_log_level_rec.statement_level then
5516: fa_debug_pkg.add (l_calling_fn, '+++ ELSE PART: Values from CALC_CATCHUP','...', p_log_level_rec => p_log_level_rec);
5517: fa_debug_pkg.add (l_calling_fn, '+++ l_deprn_exp', l_deprn_exp, p_log_level_rec => p_log_level_rec);
5518: fa_debug_pkg.add (l_calling_fn, '+++ l_bonus_deprn_exp', l_bonus_deprn_exp, p_log_level_rec => p_log_level_rec);
5519: fa_debug_pkg.add (l_calling_fn, '+++ cost_frac', cost_frac, p_log_level_rec => p_log_level_rec);
5520: fa_debug_pkg.add (l_calling_fn, '+++ NEW deprn_amt', deprn_amt, p_log_level_rec => p_log_level_rec);
5521: fa_debug_pkg.add (l_calling_fn, '+++ NEW bonue_deprn_amt', bonus_deprn_amt, p_log_level_rec => p_log_level_rec);
5522: end if;
5515: if p_log_level_rec.statement_level then
5516: fa_debug_pkg.add (l_calling_fn, '+++ ELSE PART: Values from CALC_CATCHUP','...', p_log_level_rec => p_log_level_rec);
5517: fa_debug_pkg.add (l_calling_fn, '+++ l_deprn_exp', l_deprn_exp, p_log_level_rec => p_log_level_rec);
5518: fa_debug_pkg.add (l_calling_fn, '+++ l_bonus_deprn_exp', l_bonus_deprn_exp, p_log_level_rec => p_log_level_rec);
5519: fa_debug_pkg.add (l_calling_fn, '+++ cost_frac', cost_frac, p_log_level_rec => p_log_level_rec);
5520: fa_debug_pkg.add (l_calling_fn, '+++ NEW deprn_amt', deprn_amt, p_log_level_rec => p_log_level_rec);
5521: fa_debug_pkg.add (l_calling_fn, '+++ NEW bonue_deprn_amt', bonus_deprn_amt, p_log_level_rec => p_log_level_rec);
5522: end if;
5523:
5516: fa_debug_pkg.add (l_calling_fn, '+++ ELSE PART: Values from CALC_CATCHUP','...', p_log_level_rec => p_log_level_rec);
5517: fa_debug_pkg.add (l_calling_fn, '+++ l_deprn_exp', l_deprn_exp, p_log_level_rec => p_log_level_rec);
5518: fa_debug_pkg.add (l_calling_fn, '+++ l_bonus_deprn_exp', l_bonus_deprn_exp, p_log_level_rec => p_log_level_rec);
5519: fa_debug_pkg.add (l_calling_fn, '+++ cost_frac', cost_frac, p_log_level_rec => p_log_level_rec);
5520: fa_debug_pkg.add (l_calling_fn, '+++ NEW deprn_amt', deprn_amt, p_log_level_rec => p_log_level_rec);
5521: fa_debug_pkg.add (l_calling_fn, '+++ NEW bonue_deprn_amt', bonus_deprn_amt, p_log_level_rec => p_log_level_rec);
5522: end if;
5523:
5524: deprn_amt := l_deprn_exp;
5517: fa_debug_pkg.add (l_calling_fn, '+++ l_deprn_exp', l_deprn_exp, p_log_level_rec => p_log_level_rec);
5518: fa_debug_pkg.add (l_calling_fn, '+++ l_bonus_deprn_exp', l_bonus_deprn_exp, p_log_level_rec => p_log_level_rec);
5519: fa_debug_pkg.add (l_calling_fn, '+++ cost_frac', cost_frac, p_log_level_rec => p_log_level_rec);
5520: fa_debug_pkg.add (l_calling_fn, '+++ NEW deprn_amt', deprn_amt, p_log_level_rec => p_log_level_rec);
5521: fa_debug_pkg.add (l_calling_fn, '+++ NEW bonue_deprn_amt', bonus_deprn_amt, p_log_level_rec => p_log_level_rec);
5522: end if;
5523:
5524: deprn_amt := l_deprn_exp;
5525: bonus_deprn_amt := l_bonus_deprn_exp;
5527: reval_deprn_amt := 0;
5528: reval_amort_amt := 0;
5529:
5530: if p_log_level_rec.statement_level then
5531: fa_debug_pkg.add (l_calling_fn, 'l_asset_fin_rec_new.adjusted_cost (+ +)', l_asset_fin_rec_new.adjusted_cost);
5532: fa_debug_pkg.add (l_calling_fn, 'l_asset_fin_rec_new.rate_adjustment_factor',
5533: l_asset_fin_rec_new.rate_adjustment_factor, p_log_level_rec => p_log_level_rec);
5534: fa_debug_pkg.add (l_calling_fn, 'l_asset_fin_rec_new.formula_factor', l_asset_fin_rec_new.formula_factor, p_log_level_rec => p_log_level_rec);
5535: end if;
5528: reval_amort_amt := 0;
5529:
5530: if p_log_level_rec.statement_level then
5531: fa_debug_pkg.add (l_calling_fn, 'l_asset_fin_rec_new.adjusted_cost (+ +)', l_asset_fin_rec_new.adjusted_cost);
5532: fa_debug_pkg.add (l_calling_fn, 'l_asset_fin_rec_new.rate_adjustment_factor',
5533: l_asset_fin_rec_new.rate_adjustment_factor, p_log_level_rec => p_log_level_rec);
5534: fa_debug_pkg.add (l_calling_fn, 'l_asset_fin_rec_new.formula_factor', l_asset_fin_rec_new.formula_factor, p_log_level_rec => p_log_level_rec);
5535: end if;
5536:
5530: if p_log_level_rec.statement_level then
5531: fa_debug_pkg.add (l_calling_fn, 'l_asset_fin_rec_new.adjusted_cost (+ +)', l_asset_fin_rec_new.adjusted_cost);
5532: fa_debug_pkg.add (l_calling_fn, 'l_asset_fin_rec_new.rate_adjustment_factor',
5533: l_asset_fin_rec_new.rate_adjustment_factor, p_log_level_rec => p_log_level_rec);
5534: fa_debug_pkg.add (l_calling_fn, 'l_asset_fin_rec_new.formula_factor', l_asset_fin_rec_new.formula_factor, p_log_level_rec => p_log_level_rec);
5535: end if;
5536:
5537: if ( NOT fagidn( ret,
5538: bk,
5553:
5554: end if;
5555:
5556: if p_log_level_rec.statement_level then
5557: fa_debug_pkg.add
5558: (fname => l_calling_fn,
5559: element => '+++ Step 5 ...',
5560: value => '', p_log_level_rec => p_log_level_rec);
5561: end if;
5577:
5578: end if;
5579:
5580: if p_log_level_rec.statement_level then
5581: fa_debug_pkg.add
5582: (fname => l_calling_fn,
5583: element => '+++ Step 6',
5584: value => '', p_log_level_rec => p_log_level_rec);
5585: end if;
5596:
5597: end if;
5598:
5599: if p_log_level_rec.statement_level then
5600: fa_debug_pkg.add
5601: (fname => l_calling_fn,
5602: element => '+++ Step 7',
5603: value => '', p_log_level_rec => p_log_level_rec);
5604: end if;
5625: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
5626: return(FALSE);
5627: end if;
5628: if p_log_level_rec.statement_level then
5629: fa_debug_pkg.add
5630: (fname => l_calling_fn,
5631: element => '+++ Step 7 before fagict_adj',
5632: value => '', p_log_level_rec => p_log_level_rec);
5633: end if;
5646:
5647: end if;
5648: */
5649: if p_log_level_rec.statement_level then
5650: fa_debug_pkg.add
5651: (fname => l_calling_fn,
5652: element => '+++ Step 7 after fagict_adj',
5653: value => '', p_log_level_rec => p_log_level_rec);
5654: end if;
5654: end if;
5655:
5656:
5657: if p_log_level_rec.statement_level then
5658: fa_debug_pkg.add
5659: (fname => l_calling_fn,
5660: element => '+++ Step 8',
5661: value => '', p_log_level_rec => p_log_level_rec);
5662: end if;
5673:
5674: end if;
5675: end if; --ret.mrc_sob_type_code<>'R'
5676: if p_log_level_rec.statement_level then
5677: fa_debug_pkg.add
5678: (fname => l_calling_fn,
5679: element => '+++ Step 9',
5680: value => '', p_log_level_rec => p_log_level_rec);
5681: end if;
5692:
5693: end if;
5694:
5695: if p_log_level_rec.statement_level then
5696: fa_debug_pkg.add
5697: (fname => l_calling_fn,
5698: element => '+++ Step 10',
5699: value => '', p_log_level_rec => p_log_level_rec);
5700: end if;
5712: end if;
5713: end if; -- (bk.group_asset_id is not null)
5714:
5715: if p_log_level_rec.statement_level then
5716: fa_debug_pkg.add
5717: (fname => l_calling_fn,
5718: element => '+++ Step 11',
5719: value => '', p_log_level_rec => p_log_level_rec);
5720: end if;
5750:
5751: Begin
5752:
5753: if (p_log_level_rec.statement_level) then
5754: fa_debug_pkg.add
5755: (fname => l_calling_fn,
5756: element => 'Entered with mode',
5757: value => p_mode, p_log_level_rec => p_log_level_rec);
5758:
5755: (fname => l_calling_fn,
5756: element => 'Entered with mode',
5757: value => p_mode, p_log_level_rec => p_log_level_rec);
5758:
5759: fa_debug_pkg.add
5760: (fname => l_calling_fn,
5761: element => 'BK.dis_book',
5762: value => BK.dis_book, p_log_level_rec => p_log_level_rec);
5763:
5760: (fname => l_calling_fn,
5761: element => 'BK.dis_book',
5762: value => BK.dis_book, p_log_level_rec => p_log_level_rec);
5763:
5764: fa_debug_pkg.add
5765: (fname => l_calling_fn,
5766: element => 'ret.th_id_in',
5767: value => ret.th_id_in, p_log_level_rec => p_log_level_rec);
5768:
5765: (fname => l_calling_fn,
5766: element => 'ret.th_id_in',
5767: value => ret.th_id_in, p_log_level_rec => p_log_level_rec);
5768:
5769: fa_debug_pkg.add
5770: (fname => l_calling_fn,
5771: element => 'ret.th_id_in',
5772: value => ret.th_id_in, p_log_level_rec => p_log_level_rec);
5773:
5770: (fname => l_calling_fn,
5771: element => 'ret.th_id_in',
5772: value => ret.th_id_in, p_log_level_rec => p_log_level_rec);
5773:
5774: fa_debug_pkg.add
5775: (fname => l_calling_fn,
5776: element => 'p_tbl_adj.count',
5777: value => p_tbl_adj.count, p_log_level_rec => p_log_level_rec);
5778:
5775: (fname => l_calling_fn,
5776: element => 'p_tbl_adj.count',
5777: value => p_tbl_adj.count, p_log_level_rec => p_log_level_rec);
5778:
5779: fa_debug_pkg.add
5780: (fname => l_calling_fn,
5781: element => 'p_tbl_ret.count',
5782: value => p_tbl_ret.count, p_log_level_rec => p_log_level_rec);
5783:
5780: (fname => l_calling_fn,
5781: element => 'p_tbl_ret.count',
5782: value => p_tbl_ret.count, p_log_level_rec => p_log_level_rec);
5783:
5784: fa_debug_pkg.add
5785: (fname => l_calling_fn,
5786: element => 'p_tbl_cost_ret.count',
5787: value => p_tbl_cost_ret.count, p_log_level_rec => p_log_level_rec);
5788:
5785: (fname => l_calling_fn,
5786: element => 'p_tbl_cost_ret.count',
5787: value => p_tbl_cost_ret.count, p_log_level_rec => p_log_level_rec);
5788:
5789: fa_debug_pkg.add
5790: (fname => l_calling_fn,
5791: element => 'ret.units_retired',
5792: value => ret.units_retired, p_log_level_rec => p_log_level_rec);
5793:
5793:
5794: end if;
5795:
5796: if (p_log_level_rec.statement_level) then
5797: fa_debug_pkg.add
5798: (fname => l_calling_fn,
5799: element => 'entering retirement table loop',
5800: value => '', p_log_level_rec => p_log_level_rec);
5801: end if;
5810:
5811: begin
5812:
5813: if (p_log_level_rec.statement_level) then
5814: fa_debug_pkg.add
5815: (fname => l_calling_fn,
5816: element => 'Calling query balance for dist_id',
5817: value => p_tbl_adj(j).distribution_id);
5818: end if;
5853: X_set_of_books_id => ret.set_of_books_id,
5854: p_log_level_rec => p_log_level_rec);
5855:
5856: if (p_log_level_rec.statement_level) then
5857: fa_debug_pkg.add
5858: (fname => l_calling_fn,
5859: element => 'Query balance called for dist_id',
5860: value => p_tbl_adj(j).distribution_id);
5861:
5858: (fname => l_calling_fn,
5859: element => 'Query balance called for dist_id',
5860: value => p_tbl_adj(j).distribution_id);
5861:
5862: fa_debug_pkg.add
5863: (fname => l_calling_fn,
5864: element => 'cost balance',
5865: value => p_tbl_adj(j).cost);
5866:
5863: (fname => l_calling_fn,
5864: element => 'cost balance',
5865: value => p_tbl_adj(j).cost);
5866:
5867: fa_debug_pkg.add
5868: (fname => l_calling_fn,
5869: element => 'Reserve balance',
5870: value => p_tbl_adj(j).DEPRN_RSV);
5871:
5877: and nvl(p_tbl_ret(i).assigned_to,-99) = nvl(p_tbl_adj(j).assigned_to,-99)
5878: ) then
5879:
5880: if (p_log_level_rec.statement_level) then
5881: fa_debug_pkg.add
5882: (fname => l_calling_fn,
5883: element => 'ret adjustment_amount',
5884: value => p_tbl_ret(i).adjustment_amount);
5885:
5882: (fname => l_calling_fn,
5883: element => 'ret adjustment_amount',
5884: value => p_tbl_ret(i).adjustment_amount);
5885:
5886: fa_debug_pkg.add
5887: (fname => l_calling_fn,
5888: element => 'found distribution in retirement table',
5889: value => p_tbl_ret(i).distribution_id);
5890:
5887: (fname => l_calling_fn,
5888: element => 'found distribution in retirement table',
5889: value => p_tbl_ret(i).distribution_id);
5890:
5891: fa_debug_pkg.add
5892: (fname => l_calling_fn,
5893: element => 'ret adjustment_type',
5894: value => p_tbl_ret(i).adjustment_type);
5895:
5946: p_tbl_adj_final(l_final_ind).cost := l_old_cost;
5947: p_tbl_adj_final(l_final_ind).dr_cr := l_rev_dr_cr_bal;
5948:
5949: if (p_log_level_rec.statement_level) then
5950: fa_debug_pkg.add
5951: (fname => l_calling_fn,
5952: element => 'contents of p_tbl_adj_final for old cost',
5953: value => '', p_log_level_rec => p_log_level_rec);
5954:
5951: (fname => l_calling_fn,
5952: element => 'contents of p_tbl_adj_final for old cost',
5953: value => '', p_log_level_rec => p_log_level_rec);
5954:
5955: fa_debug_pkg.add
5956: (fname => l_calling_fn,
5957: element => 'p_tbl_adj_final(l_final_ind).dist_id',
5958: value => p_tbl_adj_final(l_final_ind).dist_id);
5959:
5956: (fname => l_calling_fn,
5957: element => 'p_tbl_adj_final(l_final_ind).dist_id',
5958: value => p_tbl_adj_final(l_final_ind).dist_id);
5959:
5960: fa_debug_pkg.add
5961: (fname => l_calling_fn,
5962: element => 'p_tbl_adj_final(l_final_ind).ccid',
5963: value => p_tbl_adj_final(l_final_ind).ccid);
5964:
5961: (fname => l_calling_fn,
5962: element => 'p_tbl_adj_final(l_final_ind).ccid',
5963: value => p_tbl_adj_final(l_final_ind).ccid);
5964:
5965: fa_debug_pkg.add
5966: (fname => l_calling_fn,
5967: element => 'p_tbl_adj_final(l_final_ind).adj_type',
5968: value => p_tbl_adj_final(l_final_ind).adj_type);
5969:
5966: (fname => l_calling_fn,
5967: element => 'p_tbl_adj_final(l_final_ind).adj_type',
5968: value => p_tbl_adj_final(l_final_ind).adj_type);
5969:
5970: fa_debug_pkg.add
5971: (fname => l_calling_fn,
5972: element => 'p_tbl_adj_final(l_final_ind).cost',
5973: value => p_tbl_adj_final(l_final_ind).cost);
5974:
5971: (fname => l_calling_fn,
5972: element => 'p_tbl_adj_final(l_final_ind).cost',
5973: value => p_tbl_adj_final(l_final_ind).cost);
5974:
5975: fa_debug_pkg.add
5976: (fname => l_calling_fn,
5977: element => 'p_tbl_adj_final(l_final_ind).dr_cr',
5978: value => p_tbl_adj_final(l_final_ind).dr_cr);
5979: end if;
5980:
5981: end if;
5982:
5983: if (p_log_level_rec.statement_level) then
5984: fa_debug_pkg.add
5985: (fname => l_calling_fn,
5986: element => 'Population of old cost into p_tbl_adj_final done',
5987: value => '', p_log_level_rec => p_log_level_rec);
5988: end if;
5996: p_tbl_adj_final(l_final_ind).cost := l_new_cost;
5997: p_tbl_adj_final(l_final_ind).dr_cr := l_dr_cr_bal;
5998:
5999: if (p_log_level_rec.statement_level) then
6000: fa_debug_pkg.add
6001: (fname => l_calling_fn,
6002: element => 'contents of p_tbl_adj_final for new cost',
6003: value => '', p_log_level_rec => p_log_level_rec);
6004:
6001: (fname => l_calling_fn,
6002: element => 'contents of p_tbl_adj_final for new cost',
6003: value => '', p_log_level_rec => p_log_level_rec);
6004:
6005: fa_debug_pkg.add
6006: (fname => l_calling_fn,
6007: element => 'p_tbl_adj_final(l_final_ind).dist_id',
6008: value => p_tbl_adj_final(l_final_ind).dist_id);
6009:
6006: (fname => l_calling_fn,
6007: element => 'p_tbl_adj_final(l_final_ind).dist_id',
6008: value => p_tbl_adj_final(l_final_ind).dist_id);
6009:
6010: fa_debug_pkg.add
6011: (fname => l_calling_fn,
6012: element => 'p_tbl_adj_final(l_final_ind).ccid',
6013: value => p_tbl_adj_final(l_final_ind).ccid);
6014:
6011: (fname => l_calling_fn,
6012: element => 'p_tbl_adj_final(l_final_ind).ccid',
6013: value => p_tbl_adj_final(l_final_ind).ccid);
6014:
6015: fa_debug_pkg.add
6016: (fname => l_calling_fn,
6017: element => 'p_tbl_adj_final(l_final_ind).adj_type',
6018: value => p_tbl_adj_final(l_final_ind).adj_type);
6019:
6016: (fname => l_calling_fn,
6017: element => 'p_tbl_adj_final(l_final_ind).adj_type',
6018: value => p_tbl_adj_final(l_final_ind).adj_type);
6019:
6020: fa_debug_pkg.add
6021: (fname => l_calling_fn,
6022: element => 'p_tbl_adj_final(l_final_ind).cost',
6023: value => p_tbl_adj_final(l_final_ind).cost);
6024:
6021: (fname => l_calling_fn,
6022: element => 'p_tbl_adj_final(l_final_ind).cost',
6023: value => p_tbl_adj_final(l_final_ind).cost);
6024:
6025: fa_debug_pkg.add
6026: (fname => l_calling_fn,
6027: element => 'p_tbl_adj_final(l_final_ind).dr_cr',
6028: value => p_tbl_adj_final(l_final_ind).dr_cr);
6029: end if; --p_log_level_rec.statement_level
6029: end if; --p_log_level_rec.statement_level
6030: end if; -- l_new_cost <> 0
6031:
6032: if (p_log_level_rec.statement_level) then
6033: fa_debug_pkg.add
6034: (fname => l_calling_fn,
6035: element => 'Population of New cost into p_tbl_adj_final done',
6036: value => '', p_log_level_rec => p_log_level_rec);
6037: end if;
6042: Exception
6043: when others then
6044: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => p_log_level_rec);
6045: if (p_log_level_rec.statement_level) then
6046: fa_debug_pkg.add
6047: (fname => l_calling_fn,
6048: element => 'Error occured',
6049: value => SQLERRM, p_log_level_rec => p_log_level_rec);
6050: end if;
6053: end;
6054: end loop; -- p_tbl_adj.count
6055:
6056: if (p_log_level_rec.statement_level) then
6057: fa_debug_pkg.add
6058: (fname => l_calling_fn,
6059: element => 'Adjustment table loop done',
6060: value => '', p_log_level_rec => p_log_level_rec);
6061: end if;
6082: if (nvl(ret.units_retired,0) = 0 or (p_mode = 'GROUP')
6083: ) then
6084:
6085: if (p_log_level_rec.statement_level) then
6086: fa_debug_pkg.add
6087: (fname => l_calling_fn,
6088: element => 'Entered partial cost retirement scenario',
6089: value => p_tbl_adj.count, p_log_level_rec => p_log_level_rec);
6090: end if;
6104: l_total_active_dist := l_total_active_dist+l_tbl_active_dist(l).units_assigned;
6105: end loop;
6106:
6107: if (p_log_level_rec.statement_level) then
6108: fa_debug_pkg.add
6109: (fname => l_calling_fn,
6110: element => 'total_active_dist',
6111: value => l_total_active_dist, p_log_level_rec => p_log_level_rec);
6112: end if;
6116: declare
6117: l_adj_type_total fa_adjustments.adjustment_amount%type :=0 ;
6118: begin
6119: if (p_log_level_rec.statement_level) then
6120: fa_debug_pkg.add
6121: (fname => l_calling_fn,
6122: element => 'adjustment_type',
6123: value =>p_tbl_cost_ret(i).adjustment_type);
6124:
6121: (fname => l_calling_fn,
6122: element => 'adjustment_type',
6123: value =>p_tbl_cost_ret(i).adjustment_type);
6124:
6125: fa_debug_pkg.add
6126: (fname => l_calling_fn,
6127: element => 'adjustment_type',
6128: value =>p_tbl_cost_ret(i).adjustment_amount);
6129:
6130: end if;
6131: for j in 1..l_tbl_active_dist.count
6132: loop
6133: if (p_log_level_rec.statement_level) then
6134: fa_debug_pkg.add
6135: (fname => l_calling_fn,
6136: element => 'distribution_id',
6137: value =>l_tbl_active_dist(j).distribution_id);
6138:
6135: (fname => l_calling_fn,
6136: element => 'distribution_id',
6137: value =>l_tbl_active_dist(j).distribution_id);
6138:
6139: fa_debug_pkg.add
6140: (fname => l_calling_fn,
6141: element => 'units_assigned',
6142: value =>l_tbl_active_dist(j).units_assigned);
6143:
6212: l_calling_fn varchar2(30) := 'fa_gainloss_und_pkg.fagiavrr';
6213:
6214: begin
6215: if (p_log_level_rec.statement_level) then
6216: fa_debug_pkg.add (fname => l_calling_fn,
6217: element => 'fa_cache_pkg.fazcbc_record.RETIRE_REVAL_RESERVE_FLAG',
6218: value => fa_cache_pkg.fazcbc_record.RETIRE_REVAL_RESERVE_FLAG,
6219: p_log_level_rec => p_log_level_rec);
6220: fa_debug_pkg.add (fname => l_calling_fn,
6216: fa_debug_pkg.add (fname => l_calling_fn,
6217: element => 'fa_cache_pkg.fazcbc_record.RETIRE_REVAL_RESERVE_FLAG',
6218: value => fa_cache_pkg.fazcbc_record.RETIRE_REVAL_RESERVE_FLAG,
6219: p_log_level_rec => p_log_level_rec);
6220: fa_debug_pkg.add (fname => l_calling_fn,
6221: element => 'reval_reserve',
6222: value => reval_reserve,
6223: p_log_level_rec => p_log_level_rec);
6224: fa_debug_pkg.add (fname => l_calling_fn,
6220: fa_debug_pkg.add (fname => l_calling_fn,
6221: element => 'reval_reserve',
6222: value => reval_reserve,
6223: p_log_level_rec => p_log_level_rec);
6224: fa_debug_pkg.add (fname => l_calling_fn,
6225: element => 'ret.retirement_id',
6226: value => ret.retirement_id,
6227: p_log_level_rec => p_log_level_rec);
6228: fa_debug_pkg.add (fname => l_calling_fn,
6224: fa_debug_pkg.add (fname => l_calling_fn,
6225: element => 'ret.retirement_id',
6226: value => ret.retirement_id,
6227: p_log_level_rec => p_log_level_rec);
6228: fa_debug_pkg.add (fname => l_calling_fn,
6229: element => 'bk.book_class',
6230: value => bk.book_class,
6231: p_log_level_rec => p_log_level_rec);
6232: end if;