[Home] [Help]
8126: l_new_rlm_id_tbl SYSTEM.pa_num_tbl_type := SYSTEM.pa_num_tbl_type();
8127: l_new_planning_start_date_tbl SYSTEM.pa_date_tbl_type := SYSTEM.pa_date_tbl_type();
8128: l_new_planning_end_date_tbl SYSTEM.pa_date_tbl_type := SYSTEM.pa_date_tbl_type();
8129:
8130: -- variables used to insert into pa_fp_rollup_tmp
8131: -- with delete flag = Y
8132: l_bl_del_flag_ra_id_tbl SYSTEM.pa_num_tbl_type := SYSTEM.pa_num_tbl_type();
8133: l_bl_del_flag_st_dt_tbl SYSTEM.pa_date_tbl_type := SYSTEM.pa_date_tbl_type();
8134: l_bl_del_flag_en_dt_tbl SYSTEM.pa_date_tbl_type := SYSTEM.pa_date_tbl_type();
8836: END IF;
8837: --log1('PBL 11 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
8838:
8839: /* Bug 5144013 : Modified the logic so that the attributes of the transaction
8840: for which delete flag is set as 'Y' in Excel will be populated in pa_fp_rollup_tmp as
8841: deletion of those planning transactions are taken care by delete_planning_transaction api.
8842: This is done as part of merging the MRUP3 changes done in 11i into R12.
8843: */
8844: FOR i IN 1..l_df_ra_id_tbl.COUNT LOOP
9000: IF l_bl_del_flag_ra_id_tbl.COUNT > 0 THEN
9001: IF l_debug_mode = 'Y' THEN
9002: pa_debug.g_err_stage := l_bl_del_flag_ra_id_tbl.COUNT || ' records deleted from pa_budget_lines';
9003: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9004: pa_debug.g_err_stage := 'Inserting these records into pa_fp_rollup_tmp';
9005: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9006: END IF;
9007:
9008: --log1('Preparing ra attr tbls for rollup tmp ins');
9106: SELECT 'Y'
9107: INTO l_bls_proccessed_flag
9108: FROM DUAL
9109: WHERE EXISTS (SELECT 1
9110: FROM pa_fp_rollup_tmp);
9111: EXCEPTION
9112: WHEN NO_DATA_FOUND THEN
9113: l_bls_proccessed_flag:='N';
9114: END;
9124: IF l_bl_del_flag_ra_id_tbl.COUNT > 0 THEN
9125: IF l_debug_mode = 'Y' THEN
9126: pa_debug.g_err_stage := l_bl_del_flag_ra_id_tbl.COUNT || ' records deleted from pa_budget_lines';
9127: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9128: pa_debug.g_err_stage := 'Inserting these records into pa_fp_rollup_tmp';
9129: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9130: END IF;
9131:
9132: --log1('Preparing ra attr tbls for rollup tmp ins');
9130: END IF;
9131:
9132: --log1('Preparing ra attr tbls for rollup tmp ins');
9133:
9134: -- inserting these deleted records into pa_fp_rollup_tmp with delete flag as Y
9135: FORALL i IN l_bl_del_flag_ra_id_tbl.FIRST .. l_bl_del_flag_ra_id_tbl.LAST
9136: INSERT INTO
9137: pa_fp_rollup_tmp
9138: (resource_assignment_id,
9133:
9134: -- inserting these deleted records into pa_fp_rollup_tmp with delete flag as Y
9135: FORALL i IN l_bl_del_flag_ra_id_tbl.FIRST .. l_bl_del_flag_ra_id_tbl.LAST
9136: INSERT INTO
9137: pa_fp_rollup_tmp
9138: (resource_assignment_id,
9139: start_date,
9140: end_date,
9141: txn_currency_code,
9219: l_bl_del_fg_pf_cnv_rej_cd_tbl(i),
9220: l_bl_del_flag_o_rej_code_tbl(i));
9221: --log1('PBL 14 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9222: IF l_debug_mode = 'Y' THEN
9223: pa_debug.g_err_stage := 'records inserted into pa_fp_rollup_tmp';
9224: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
9225: END IF;
9226: ELSE
9227: -- no records deleted from pa_budget_lines
9317: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
9318: END IF;
9319:
9320: -- updating conversion attributes if the version is enabled for multi currency
9321: -- Bug 4424457 : In all the below updates replaced pa_budget_lines with pa_fp_rollup_tmp. These
9322: -- attributes will be finally stamped back in pa_budget_lines after MC conversion
9323: IF p_version_info_rec.x_plan_in_multi_curr_flag = 'Y' AND
9324: p_context = 'WEBADI_PERIODIC' THEN
9325: IF l_ra_id_tbl.COUNT > 0 AND
9326: l_bls_proccessed_flag ='Y' THEN
9327: --log1('----- STAGE CRC1-------');
9328: --log1('PBL 15 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9329: FORALL i IN l_ra_id_tbl.FIRST .. l_ra_id_tbl.LAST
9330: UPDATE pa_fp_rollup_tmp pbl
9331: SET pbl.projfunc_cost_rate_type = DECODE (l_pfunc_cost_rate_type_tbl(i), NULL, pbl.projfunc_cost_rate_type,
9332: DECODE(l_pfunc_cost_rate_type_tbl(i), l_g_miss_char, NULL, l_pfunc_cost_rate_type_tbl(i))),
9333: pbl.projfunc_cost_rate_date_type = DECODE (l_pfunc_cost_rate_date_typ_tbl(i), NULL, pbl.projfunc_cost_rate_date_type,
9334: DECODE(l_pfunc_cost_rate_date_typ_tbl(i), l_g_miss_char, NULL, l_pfunc_cost_rate_date_typ_tbl(i))),
9375: l_bls_proccessed_flag ='Y' THEN
9376: --log1('----- STAGE CRC2-------');
9377: --log1('PBL 17 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9378: FORALL i IN l_ra_id_tbl.FIRST .. l_ra_id_tbl.LAST
9379: UPDATE pa_fp_rollup_tmp pbl
9380: SET pbl.change_reason_code = l_change_reason_code_tbl(i),
9381: pbl.description = l_description_tbl(i)
9382: WHERE pbl.resource_assignment_id = l_ra_id_tbl(i)
9383: AND pbl.txn_currency_code = l_txn_currency_code_tbl(i);
9390: IF l_ra_id_tbl.COUNT > 0 AND
9391: l_bls_proccessed_flag ='Y' THEN
9392: --log1('PBL 19 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9393: FORALL i IN l_ra_id_tbl.FIRST .. l_ra_id_tbl.LAST
9394: UPDATE pa_fp_rollup_tmp pbl
9395: SET pbl.change_reason_code = l_change_reason_code_tbl(i),
9396: pbl.description = DECODE(l_description_tbl(i), NULL, pbl.description,
9397: DECODE(l_description_tbl(i), l_g_miss_char, NULL, l_description_tbl(i))),
9398: pbl.projfunc_cost_rate_type = DECODE (l_pfunc_cost_rate_type_tbl(i), NULL, pbl.projfunc_cost_rate_type,
9588: l_upd_pf_rev_rate_date_tbl,
9589: l_bl_count_tbl,
9590: l_chg_reason_code_tbl,
9591: l_desc_tbl
9592: FROM pa_fp_rollup_tmp rlp
9593: WHERE delete_flag IS NULL OR delete_flag <> 'Y'
9594: GROUP BY rlp.resource_assignment_id,rlp.txn_currency_code,rlp.start_date;
9595:
9596: --log1('PBL 28 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));