[Home] [Help]
4573: RAISE NO_DATA_FOUND;
4574: END;
4575:
4576: --dbms_output.put_line('I8');
4577: -- Add the currencies in the source which are not there already to PA_FP_TXN_CURRENCIES
4578: IF l_src_multi_curr_flag = 'Y' AND l_targ_multi_curr_flag = 'Y' AND nvl(l_targ_app_rev_flag, 'N') = 'N' THEN
4579:
4580: SELECT ptxn_s.txn_currency_code
4581: BULK COLLECT INTO l_txn_curr_code_tbl
4578: IF l_src_multi_curr_flag = 'Y' AND l_targ_multi_curr_flag = 'Y' AND nvl(l_targ_app_rev_flag, 'N') = 'N' THEN
4579:
4580: SELECT ptxn_s.txn_currency_code
4581: BULK COLLECT INTO l_txn_curr_code_tbl
4582: FROM pa_fp_txn_currencies ptxn_s
4583: WHERE ptxn_s.proj_fp_options_id=l_src_proj_fp_options_id
4584: AND NOT EXISTS (SELECT 'X'
4585: FROM pa_fp_txn_currencies ptxn_t
4586: WHERE ptxn_t.proj_fp_options_id=l_targ_proj_fp_options_id
4581: BULK COLLECT INTO l_txn_curr_code_tbl
4582: FROM pa_fp_txn_currencies ptxn_s
4583: WHERE ptxn_s.proj_fp_options_id=l_src_proj_fp_options_id
4584: AND NOT EXISTS (SELECT 'X'
4585: FROM pa_fp_txn_currencies ptxn_t
4586: WHERE ptxn_t.proj_fp_options_id=l_targ_proj_fp_options_id
4587: AND ptxn_t.txn_currency_code=ptxn_s.txn_currency_code);
4588:
4589:
4606: END IF;
4607:
4608: IF l_txn_curr_code_tbl.COUNT > 0 THEN
4609: Forall jj in l_txn_curr_code_tbl.FIRST..l_txn_curr_code_tbl.LAST
4610: INSERT INTO PA_FP_TXN_CURRENCIES (
4611: fp_txn_currency_id
4612: ,proj_fp_options_id
4613: ,project_id
4614: ,fin_plan_type_id
4629: ,projfunc_cost_exchange_Rate
4630: ,projfunc_rev_exchange_Rate
4631: )
4632: VALUES
4633: ( pa_fp_txn_currencies_s.NEXTVAL
4634: , l_targ_proj_fp_options_id
4635: , l_PROJECT_ID
4636: , p_fin_plan_type_id
4637: , p_budget_version_id