The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT cr.concurrent_program_id
INTO l_conc_program_id
FROM FND_CONCURRENT_REQUESTS cr
WHERE cr.program_application_id = 140
AND cr.request_id = P_CONC_REQUEST_ID;
SELECT cp.user_concurrent_program_name
INTO l_report_name
FROM FND_CONCURRENT_PROGRAMS_VL cp
WHERE
cp.concurrent_program_id= l_conc_program_id
and cp.application_id = 140;
SELECT DP_FED.period_counter,
DP_FED.period_open_date,
nvl(DP_FED.period_close_date, sysdate),
DP_FED.fiscal_year,
DP_CORP.Period_Counter
INTO l_period_PC,
l_period_POD,
l_period_PCD,
l_period_FY,
l_corp_end_pc
FROM FA_DEPRN_PERIODS DP_CORP,
FA_DEPRN_PERIODS DP_FED
WHERE DP_FED.book_type_code = P_BOOK
AND DP_FED.period_name = P_PERIOD1
AND DP_CORP.BOOK_TYPE_CODE = DISTRIBUTION_SOURCE_BOOK
AND DP_CORP.PERIOD_COUNTER = (SELECT MAX(DP.PERIOD_COUNTER)
FROM FA_DEPRN_PERIODS DP
WHERE DP.BOOK_TYPE_CODE =
DISTRIBUTION_SOURCE_BOOK AND
DP.CALENDAR_PERIOD_CLOSE_DATE <=
DP_FED.CALENDAR_PERIOD_CLOSE_DATE);
function c_do_insertformula(period1_pc in number, DISTRIBUTION_SOURCE_BOOK in varchar2, acct_flex_bal_seg in varchar2) return number is
--Added during DT Fix
PRAGMA AUTONOMOUS_TRANSACTION;
SELECT min(fp1.period_counter),
max(fp1.period_counter),
min(fp2.period_counter)
INTO l_fed_min_pc, l_fed_max_pc,
l_corp_min_pc
FROM fa_deprn_periods fp1, fa_deprn_periods fp2
WHERE fp1.book_type_code = P_BOOK
and fp1.period_close_date is not NULL
and fp1.period_counter <= period1_pc
and fp1.fiscal_year = period1_FY
and fp2.book_type_code = DISTRIBUTION_SOURCE_BOOK
and fp2.period_close_date is NOT NULL
and fp2.period_counter <= corp_end_pc
and fp2.fiscal_year = period1_FY;
l_sql_str := 'INSERT INTO FA_TAX_REPORT(
REQUEST_ID,
COMP_CODE,
DEPRN_METHOD,
ASSET_ACCOUNT,
ASSET_ID,
FED_YTD_DEPRN,
CORP_YTD_DEPRN)
SELECT ' || to_char(p_conc_request_id) || ' REQUEST_ID, ' ||
acct_flex_bal_seg || ' COMP_CODE,
BK_FED.DEPRN_METHOD_CODE FED_METHOD,
CB_CORP.ASSET_COST_ACCT ASSET_ACCOUNT,
DD_FED.ASSET_ID ASSET_ID,
SUM(DD_FED.deprn_amount) FED_YTD_DEPRN,
0
FROM
FA_DEPRN_PERIODS DP,
FA_DEPRN_DETAIL DD_FED,
FA_ASSET_HISTORY AH,
FA_BOOKS BK_FED,
FA_CATEGORY_BOOKS CB_CORP,
FA_CATEGORIES CAT,
FA_DISTRIBUTION_HISTORY DH,
GL_CODE_COMBINATIONS DHCC
WHERE
DD_FED.BOOK_TYPE_CODE = ''' || P_BOOK || ''' AND
DD_FED.PERIOD_COUNTER between ' || to_char(l_fed_min_pc) ||
' and ' || to_char(l_fed_max_pc) || ' AND
DD_FED.DEPRN_SOURCE_CODE <> ''B'' AND
BK_FED.BOOK_TYPE_CODE = DD_FED.BOOK_TYPE_CODE AND
BK_FED.ASSET_ID = DD_FED.ASSET_ID AND
BK_FED.DATE_EFFECTIVE <= DP.PERIOD_CLOSE_DATE AND
NVL(BK_FED.DATE_INEFFECTIVE, DP.PERIOD_CLOSE_DATE) >= DP.PERIOD_CLOSE_DATE AND
DP.BOOK_TYPE_CODE = DD_FED.BOOK_TYPE_CODE AND
DP.PERIOD_COUNTER = DD_FED.PERIOD_COUNTER AND
CB_CORP.BOOK_TYPE_CODE = ''' || DISTRIBUTION_SOURCE_BOOK || ''' AND
CB_CORP.ASSET_COST_ACCT BETWEEN
NVL(''' || p_from_acct || ''', CB_CORP.ASSET_COST_ACCT)
AND NVL(''' || p_to_acct || ''', CB_CORP.ASSET_COST_ACCT) AND
CB_CORP.CATEGORY_ID = CAT.CATEGORY_ID AND
AH.ASSET_ID = DD_FED.ASSET_ID AND
AH.DATE_EFFECTIVE <= DP.PERIOD_CLOSE_DATE AND
NVL(AH.DATE_INEFFECTIVE, DP.PERIOD_CLOSE_DATE + 1) > DP.PERIOD_CLOSE_DATE AND
DH.BOOK_TYPE_CODE = ''' || DISTRIBUTION_SOURCE_BOOK || ''' AND
CB_CORP.CATEGORY_ID = AH.CATEGORY_ID AND
DH.ASSET_ID = DD_FED.ASSET_ID AND
DH.DISTRIBUTION_ID = DD_FED.DISTRIBUTION_ID AND
DH.DATE_EFFECTIVE <= DP.PERIOD_CLOSE_DATE AND
NVL(DH.DATE_INEFFECTIVE, DP.PERIOD_CLOSE_DATE) >= DP.PERIOD_CLOSE_DATE AND
DH.CODE_COMBINATION_ID = DHCC.CODE_COMBINATION_ID(+)
GROUP BY ' ||
acct_flex_bal_seg || ',
BK_FED.DEPRN_METHOD_CODE,
CB_CORP.ASSET_COST_ACCT,
3,
DD_FED.ASSET_ID';