[Home] [Help]
1: PACKAGE BODY FA_QUERY_BALANCES_PKG as
2: /* $Header: faxqbalb.pls 120.9.12010000.1 2008/07/28 13:27:22 appldev ship $ */
3:
4: g_print_debug boolean := fa_cache_pkg.fa_print_debug;
5:
6: -- Call this procedure from a Forms 4.5 client, or any PLSQL below
7: -- version 2.0. This just loads the dpr_row struct to pass to
8: -- QUERY_BALANCES_INT, and unpacks the results.
89: -- either stale or not populated, since this routine
90: -- is only called on an asset by asset basis from the
91: -- form, performance is not a huge concern.
92:
93: if not fa_cache_pkg.fazcbc_clr(X_BOOK => X_BOOK
94: ,p_log_level_rec => p_log_level_rec) then
95: raise error_found;
96: end if;
97:
94: ,p_log_level_rec => p_log_level_rec) then
95: raise error_found;
96: end if;
97:
98: if not fa_cache_pkg.fazcbc(X_BOOK => X_BOOK
99: ,p_log_level_rec => p_log_level_rec) then
100: raise error_found;
101: end if;
102:
102:
103: fnd_profile.get('GL_SET_OF_BKS_ID', l_set_of_books_id);
104: if (l_set_of_books_id is not null) then
105:
106: if not fa_cache_pkg.fazcsob
107: (X_set_of_books_id => l_set_of_books_id,
108: X_mrc_sob_type_code => l_mrc_sob_type_code
109: ,p_log_level_rec => p_log_level_rec) then
110: raise error_found;
238: -- This change is done by Sujit Dalai when YTD revaluation was implemented .
239: -- Fix for 947800. Added h_dummy to avoid ORA-1403.
240:
241: if (X_ADJ_DRS.BOOK is not null) then
242: h_curr_period_counter := fa_cache_pkg.fazcbc_record.last_period_counter + 1;
243: h_dummy := 1;
244: end if;
245:
246: -- Get adjustment amount from fa_adjustment when adjustment_type is 'EXPENSE'
664:
665: -- select period counter, number of periods
666: -- per fiscal year, and the current fiscal year
667:
668: X_CUR_PER_CTR := fa_cache_pkg.fazcbc_record.last_period_counter + 1;
669: X_CUR_FY := fa_cache_pkg.fazcbc_record.current_fiscal_year;
670:
671: if not fa_cache_pkg.fazcct
672: (X_calendar => fa_cache_pkg.fazcbc_record.deprn_calendar
665: -- select period counter, number of periods
666: -- per fiscal year, and the current fiscal year
667:
668: X_CUR_PER_CTR := fa_cache_pkg.fazcbc_record.last_period_counter + 1;
669: X_CUR_FY := fa_cache_pkg.fazcbc_record.current_fiscal_year;
670:
671: if not fa_cache_pkg.fazcct
672: (X_calendar => fa_cache_pkg.fazcbc_record.deprn_calendar
673: ,p_log_level_rec => p_log_level_rec) then
667:
668: X_CUR_PER_CTR := fa_cache_pkg.fazcbc_record.last_period_counter + 1;
669: X_CUR_FY := fa_cache_pkg.fazcbc_record.current_fiscal_year;
670:
671: if not fa_cache_pkg.fazcct
672: (X_calendar => fa_cache_pkg.fazcbc_record.deprn_calendar
673: ,p_log_level_rec => p_log_level_rec) then
674: raise error_found;
675: end if;
668: X_CUR_PER_CTR := fa_cache_pkg.fazcbc_record.last_period_counter + 1;
669: X_CUR_FY := fa_cache_pkg.fazcbc_record.current_fiscal_year;
670:
671: if not fa_cache_pkg.fazcct
672: (X_calendar => fa_cache_pkg.fazcbc_record.deprn_calendar
673: ,p_log_level_rec => p_log_level_rec) then
674: raise error_found;
675: end if;
676:
673: ,p_log_level_rec => p_log_level_rec) then
674: raise error_found;
675: end if;
676:
677: X_NUM_PERS_FY := fa_cache_pkg.fazcct_record.number_per_fiscal_year;
678: X_SUCCESS := TRUE;
679:
680: EXCEPTION
681: when error_found then
1716: if (nvl(X_ADJ_ROW.period_ctr,0) = 0) then
1717:
1718: h_mesg_name := 'FA_EXP_GET_CUR_PERIOD_INFO';
1719:
1720: X_ADJ_ROW.period_ctr := fa_cache_pkg.fazcbc_record.last_period_counter + 1;
1721: end if;
1722:
1723: -- If running in ADJUSTED mode (querying from TAX book) then we're
1724: -- also interested in tax book's deprn adjustments. If in
1730: h_mode_str := 'STANDARD';
1731: end if;
1732:
1733: -- Get book class
1734: h_book_class := fa_cache_pkg.fazcbc_record.book_class;
1735:
1736: -- Look for adjustments... sum the amounts under each
1737: -- adjustment type.
1738: -- bonus Implemented.