[Home] [Help]
307: , rl.CUSTOM14
308: , rl.CUSTOM15
309: , rl.PLAN_TYPE_CODE /* 4471527 */
310: FROM
311: pji_fp_xbs_accum_f rl
312: , pji_fm_extr_plnver3_t ver3
313: WHERE 1=1
314: AND rl.project_id = l_src_project_ids(i)
315: AND rl.plan_version_id = p_source_fp_version_ids(i)
394:
395: END LOOP;
396:
397: FORALL i IN 1..p_dest_fp_version_ids.COUNT
398: DELETE FROM PJI_FP_XBS_ACCUM_F
399: WHERE plan_version_id = p_dest_fp_version_ids(i)
400: AND project_id = l_dest_project_ids(i);
401:
402: FORALL i IN 1..p_dest_fp_version_ids.COUNT
555: , rl.CUSTOM14
556: , rl.CUSTOM15
557: , rl.PLAN_TYPE_CODE /* 4471527 */
558: FROM
559: pji_fp_xbs_accum_f rl
560: WHERE 1=1
561: AND ( (rl.rbs_aggr_level = g_top_level) OR (rl.rbs_aggr_level = g_lowest_level AND wbs_rollup_flag = 'N' ))
562: AND rl.plan_version_id = p_source_fp_version_ids(i));
563:
608: INTO l_dest_plan_type_id, l_dest_project_id
609: FROM pa_budget_versions
610: WHERE budget_version_id = p_target_plan_ver_id;
611:
612: DELETE FROM PJI_FP_XBS_ACCUM_F
613: WHERE plan_version_id = p_target_plan_ver_id
614: AND project_id = l_dest_project_id;
615:
616: DELETE FROM pji_rollup_level_status
769: , rl.CUSTOM13
770: , rl.CUSTOM14
771: , rl.CUSTOM15
772: , rl.PLAN_TYPE_CODE /* 4471527 */
773: FROM pji_fp_xbs_accum_f rl
774: WHERE 1=1
775: AND rl.plan_version_id = p_source_plan_ver_id
776: AND ( (rl.rbs_aggr_level = g_top_level) OR (rl.rbs_aggr_level = g_lowest_level AND wbs_rollup_flag = 'N' ))
777: ) ;
4214: , -fact.CUSTOM15
4215: , g_ntp_period_name
4216: , fact.plan_type_code /* 4471527 */
4217: FROM
4218: pji_fp_xbs_accum_f fact
4219: , pji_fm_extr_plnver3_t ver
4220: WHERE 1=1
4221: AND fact.plan_version_id = ver.plan_version_id
4222: AND fact.plan_type_code = ver.plan_type_code /* 4471527 */
4449: , rl.CUSTOM15
4450: , g_default_prg_level
4451: , rl.PLAN_TYPE_CODE /* 4471527 */
4452: FROM
4453: pji_fp_xbs_accum_f rl
4454: , pa_budget_versions bv -- @pjdev115 bv
4455: , pa_proj_fp_options fpo -- @pjdev115 fpo
4456: WHERE
4457: rl.project_id = bv.project_id
5788: , null RATE_DANGLING_FLAG
5789: , null TIME_DANGLING_FLAG
5790: -- , 0 prg_level
5791: , fact.plan_type_code plan_type_code -- 4471527
5792: FROM pji_fp_xbs_accum_f fact
5793: , pji_fm_extr_plnver3_t ver3
5794: WHERE 1=1
5795: AND rbs_aggr_level = g_lowest_level
5796: AND wbs_rollup_flag = 'N'
5993: , NULL) rate_dangling_flag
5994: , null TIME_DANGLING_FLAG
5995: -- , 0 prg_level
5996: , fact.plan_type_code plan_type_code -- 4471527
5997: FROM pji_fp_xbs_accum_f fact
5998: , pa_projects_all ppa
5999: , ( SELECT g_global1_currency_code curr_code, 0.01 mau FROM DUAL
6000: UNION
6001: SELECT g_global2_currency_code curr_code, 0.01 mau FROM DUAL
6205: -- , START_DATE
6206: -- , END_DATE
6207: -- , 0
6208: , fact.plan_type_code plan_type_code -- 4471527
6209: FROM pji_fp_xbs_accum_f fact
6210: , pji_fm_extr_plnver3_t ver
6211: WHERE 1=1
6212: AND fact.project_id = ver.project_id
6213: AND fact.plan_version_id = ver.plan_version_id
6257: IS BEGIN
6258:
6259: print_time('........UPDATE_TPFG1_CURR_RCDS: Begin. ' );
6260:
6261: UPDATE pji_fp_xbs_accum_f
6262: SET CURR_RECORD_TYPE_ID = CURR_RECORD_TYPE_ID +
6263: DECODE (currency_code, g_global1_currency_code, 2, 0) -- 000.000.010 = 2
6264: + DECODE (currency_code, g_global2_currency_code, 1, 0) -- 000.000.001 = 1
6265: WHERE BITAND(curr_record_type_id, 28) >= 4 -- 000.011.110 = 16 + 8 + 4 = 28
6678: BEGIN
6679:
6680: -- Bug 10632614
6681: --Changed
6682: --SELECT /*+ full(tmp) index(rl, PJI_FP_XBS_ACCUM_F_N1) use_nl(rl) */
6683: --to
6684: --SELECT /*+ full(tmp) index(rl, PJI_FP_XBS_ACCUM_F_N6) use_nl(rl) */
6685: -- End Bug 10632614
6686:
6680: -- Bug 10632614
6681: --Changed
6682: --SELECT /*+ full(tmp) index(rl, PJI_FP_XBS_ACCUM_F_N1) use_nl(rl) */
6683: --to
6684: --SELECT /*+ full(tmp) index(rl, PJI_FP_XBS_ACCUM_F_N6) use_nl(rl) */
6685: -- End Bug 10632614
6686:
6687: INSERT INTO PJI_FP_RMAP_FPR_T
6688: (
6689: worker_id
6690: , pjp1_rowid
6691: , fpr_rowid
6692: )
6693: SELECT /*+ full(tmp) index(rl, PJI_FP_XBS_ACCUM_F_N6) use_nl(rl) */
6694: g_worker_id WORKER_ID
6695: , tmp.ROWID pjp1_rowid
6696: , rl.ROWID fpr_ROWID
6697: FROM
6695: , tmp.ROWID pjp1_rowid
6696: , rl.ROWID fpr_ROWID
6697: FROM
6698: pji_fp_aggr_pjp1_t tmp
6699: , pji_fp_xbs_accum_f rl
6700: WHERE 1 = 1
6701: AND tmp.WORKER_ID = g_worker_id
6702: AND tmp.PROJECT_ID = rl.PROJECT_ID (+)
6703: AND tmp.PLAN_VERSION_ID = rl.PLAN_VERSION_ID (+)
7374: IF P_PA_DEBUG_MODE = 'Y' THEN
7375: pa_debug.write('UPDATE_FP_ROWS: ' || g_module_name,'UPDATE_FP_ROWS ',1);
7376: END IF;
7377: UPDATE /*+ ordered use_nl(rl) rowid(rl) */
7378: pji_fp_xbs_accum_f rl
7379: SET (
7380: rl.RAW_COST
7381: , rl.BRDN_COST
7382: , rl.REVENUE
7610:
7611: IF P_PA_DEBUG_MODE = 'Y' THEN
7612: pa_debug.write('INSERT_FP_ROWS: ' || g_module_name,'INSERT_FP_ROWS ',1);
7613: END IF;
7614: INSERT INTO pji_fp_xbs_accum_f fact
7615: (
7616: PROJECT_ID
7617: , PROJECT_ORG_ID
7618: , PROJECT_ORGANIZATION_ID
8643: , CUSTOM14
8644: , CUSTOM15
8645: , g_default_prg_level
8646: , plan_type_code
8647: FROM pji_fp_xbs_accum_f
8648: WHERE plan_version_id = p_pln_ver_id
8649: );
8650:
8651: EXCEPTION