68: type varchar2_tbl is table of varchar2(1) index by binary_integer;
69: g_plan_ver_id_res_class_tbl varchar2_tbl;
70:
71: -- End cbs change
72: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
73: g_module_name VARCHAR2(100) := 'pji.plsql.PJI_FM_PLAN_MAINT_PVT';
74:
75:
76: -- 'P' VARCHAR2(15) := 'P';
149: g_plan_ver_id_res_class_tbl(plan_rec.ver_id) := 'Y' ;
150:
151: END LOOP;
152:
153: IF P_PA_DEBUG_MODE = 'Y' THEN
154: pa_debug.write('SET_RES_CLASS_FLAG: ' || g_module_name,'Initialized g_plan_ver_id_res_class_tbl to Y',1);
155: END IF;
156:
157: OPEN res_list;
150:
151: END LOOP;
152:
153: IF P_PA_DEBUG_MODE = 'Y' THEN
154: pa_debug.write('SET_RES_CLASS_FLAG: ' || g_module_name,'Initialized g_plan_ver_id_res_class_tbl to Y',1);
155: END IF;
156:
157: OPEN res_list;
158: FETCH res_list BULK COLLECT INTO l_tmp_plan_version_id;
157: OPEN res_list;
158: FETCH res_list BULK COLLECT INTO l_tmp_plan_version_id;
159: CLOSE res_list;
160:
161: IF P_PA_DEBUG_MODE = 'Y' THEN
162: pa_debug.write('SET_RES_CLASS_FLAG: ' || g_module_name,'g_plan_ver_id_res_class_tbl.count '||to_char(g_plan_ver_id_res_class_tbl.count), 1);
163: pa_debug.write('SET_RES_CLASS_FLAG: ' || g_module_name,'l_tmp_plan_version_id.count '||to_char(l_tmp_plan_version_id.count), 1);
164: END IF;
165:
158: FETCH res_list BULK COLLECT INTO l_tmp_plan_version_id;
159: CLOSE res_list;
160:
161: IF P_PA_DEBUG_MODE = 'Y' THEN
162: pa_debug.write('SET_RES_CLASS_FLAG: ' || g_module_name,'g_plan_ver_id_res_class_tbl.count '||to_char(g_plan_ver_id_res_class_tbl.count), 1);
163: pa_debug.write('SET_RES_CLASS_FLAG: ' || g_module_name,'l_tmp_plan_version_id.count '||to_char(l_tmp_plan_version_id.count), 1);
164: END IF;
165:
166: if ( l_tmp_plan_version_id.count <> 0 ) then
159: CLOSE res_list;
160:
161: IF P_PA_DEBUG_MODE = 'Y' THEN
162: pa_debug.write('SET_RES_CLASS_FLAG: ' || g_module_name,'g_plan_ver_id_res_class_tbl.count '||to_char(g_plan_ver_id_res_class_tbl.count), 1);
163: pa_debug.write('SET_RES_CLASS_FLAG: ' || g_module_name,'l_tmp_plan_version_id.count '||to_char(l_tmp_plan_version_id.count), 1);
164: END IF;
165:
166: if ( l_tmp_plan_version_id.count <> 0 ) then
167: FOR i IN l_tmp_plan_version_id.FIRST..l_tmp_plan_version_id.LAST LOOP
172: else
173: PJI_FM_PLAN_MAINT_PVT.g_res_class_flag := 'Y';
174: end if;
175:
176: IF P_PA_DEBUG_MODE = 'Y' THEN
177: pa_debug.write('SET_RES_CLASS_FLAG: ' || g_module_name,'g_res_class_flag '||PJI_FM_PLAN_MAINT_PVT.g_res_class_flag ,1);
178: END IF;
179: END;
180:
173: PJI_FM_PLAN_MAINT_PVT.g_res_class_flag := 'Y';
174: end if;
175:
176: IF P_PA_DEBUG_MODE = 'Y' THEN
177: pa_debug.write('SET_RES_CLASS_FLAG: ' || g_module_name,'g_res_class_flag '||PJI_FM_PLAN_MAINT_PVT.g_res_class_flag ,1);
178: END IF;
179: END;
180:
181: function GET_RES_CLASS_FLAG
4253: RETURN;
4254: END IF;
4255:
4256: -- cbs change
4257: IF P_PA_DEBUG_MODE = 'Y' THEN
4258: pa_debug.write('EXTRACT_PLAN_AMOUNTS_PRIRBS: ' || g_module_name,'Before calling SET_RES_CLASS_FLAG' ,1);
4259: END IF;
4260:
4261: SET_RES_CLASS_FLAG;
4254: END IF;
4255:
4256: -- cbs change
4257: IF P_PA_DEBUG_MODE = 'Y' THEN
4258: pa_debug.write('EXTRACT_PLAN_AMOUNTS_PRIRBS: ' || g_module_name,'Before calling SET_RES_CLASS_FLAG' ,1);
4259: END IF;
4260:
4261: SET_RES_CLASS_FLAG;
4262:
4259: END IF;
4260:
4261: SET_RES_CLASS_FLAG;
4262:
4263: IF P_PA_DEBUG_MODE = 'Y' THEN
4264: pa_debug.write('EXTRACT_PLAN_AMOUNTS_PRIRBS: ' || g_module_name,'After calling SET_RES_CLASS_FLAG' ,1);
4265: END IF;
4266: -- End cbs change
4267:
4260:
4261: SET_RES_CLASS_FLAG;
4262:
4263: IF P_PA_DEBUG_MODE = 'Y' THEN
4264: pa_debug.write('EXTRACT_PLAN_AMOUNTS_PRIRBS: ' || g_module_name,'After calling SET_RES_CLASS_FLAG' ,1);
4265: END IF;
4266: -- End cbs change
4267:
4268: INSERT INTO PJI_FP_AGGR_PJP1
4914: if PJI_PJP_GEN_PERF_ALL.GET_PARAMETER('PJI_PJP_PERF_PRL') = 'Y' then
4915: PJI_PJP_GEN_PERF_ALL.EXTRACT_PLAN_ETC_PRIRBS(l_max_project_id,p_slice_type);
4916: else
4917: -- cbs change
4918: IF P_PA_DEBUG_MODE = 'Y' THEN
4919: pa_debug.write('EXTRACT_PLAN_ETC_PRIRBS: ' || g_module_name,'Before calling SET_RES_CLASS_FLAG' ,1);
4920: END IF;
4921:
4922: SET_RES_CLASS_FLAG;
4915: PJI_PJP_GEN_PERF_ALL.EXTRACT_PLAN_ETC_PRIRBS(l_max_project_id,p_slice_type);
4916: else
4917: -- cbs change
4918: IF P_PA_DEBUG_MODE = 'Y' THEN
4919: pa_debug.write('EXTRACT_PLAN_ETC_PRIRBS: ' || g_module_name,'Before calling SET_RES_CLASS_FLAG' ,1);
4920: END IF;
4921:
4922: SET_RES_CLASS_FLAG;
4923:
4920: END IF;
4921:
4922: SET_RES_CLASS_FLAG;
4923:
4924: IF P_PA_DEBUG_MODE = 'Y' THEN
4925: pa_debug.write('EXTRACT_PLAN_ETC_PRIRBS: ' || g_module_name,'After calling SET_RES_CLASS_FLAG' ,1);
4926: END IF;
4927: -- End cbs change
4928:
4921:
4922: SET_RES_CLASS_FLAG;
4923:
4924: IF P_PA_DEBUG_MODE = 'Y' THEN
4925: pa_debug.write('EXTRACT_PLAN_ETC_PRIRBS: ' || g_module_name,'After calling SET_RES_CLASS_FLAG' ,1);
4926: END IF;
4927: -- End cbs change
4928:
4929: INSERT /*+ parallel(PJI_FP_AGGR_PJP1) */ /* Added for bug 13030627 */
8893: print_time(' g_global1_currency_code ' || g_global1_currency_code || ' g_global2_currency_code ' || g_global2_currency_code );
8894: print_time(' g_global1_currency_mau ' || g_global1_currency_mau || ' g_global2_currency_mau ' || g_global2_currency_mau ) ;
8895:
8896: -- cbs change
8897: IF P_PA_DEBUG_MODE = 'Y' THEN
8898: pa_debug.write('EXTRACT_PLAN_AMTS_SECRBS_GLC12: ' || g_module_name,'Before calling SET_RES_CLASS_FLAG' ,1);
8899: END IF;
8900:
8901: SET_RES_CLASS_FLAG;
8894: print_time(' g_global1_currency_mau ' || g_global1_currency_mau || ' g_global2_currency_mau ' || g_global2_currency_mau ) ;
8895:
8896: -- cbs change
8897: IF P_PA_DEBUG_MODE = 'Y' THEN
8898: pa_debug.write('EXTRACT_PLAN_AMTS_SECRBS_GLC12: ' || g_module_name,'Before calling SET_RES_CLASS_FLAG' ,1);
8899: END IF;
8900:
8901: SET_RES_CLASS_FLAG;
8902:
8899: END IF;
8900:
8901: SET_RES_CLASS_FLAG;
8902:
8903: IF P_PA_DEBUG_MODE = 'Y' THEN
8904: pa_debug.write('EXTRACT_PLAN_AMTS_SECRBS_GLC12: ' || g_module_name,'After calling SET_RES_CLASS_FLAG' ,1);
8905: END IF;
8906:
8907: -- End cbs change
8900:
8901: SET_RES_CLASS_FLAG;
8902:
8903: IF P_PA_DEBUG_MODE = 'Y' THEN
8904: pa_debug.write('EXTRACT_PLAN_AMTS_SECRBS_GLC12: ' || g_module_name,'After calling SET_RES_CLASS_FLAG' ,1);
8905: END IF;
8906:
8907: -- End cbs change
8908:
10084: print_time(' g_global1_currency_code ' || g_global1_currency_code || ' g_global2_currency_code ' || g_global2_currency_code );
10085: print_time(' g_global1_currency_mau ' || g_global1_currency_mau || ' g_global2_currency_mau ' || g_global2_currency_mau ) ;
10086:
10087: -- cbs change
10088: IF P_PA_DEBUG_MODE = 'Y' THEN
10089: pa_debug.write('EXTRACT_PLAN_AMTS_PRIRBS_GLC12: ' || g_module_name,'Before calling SET_RES_CLASS_FLAG' ,1);
10090: END IF;
10091:
10092: SET_RES_CLASS_FLAG;
10085: print_time(' g_global1_currency_mau ' || g_global1_currency_mau || ' g_global2_currency_mau ' || g_global2_currency_mau ) ;
10086:
10087: -- cbs change
10088: IF P_PA_DEBUG_MODE = 'Y' THEN
10089: pa_debug.write('EXTRACT_PLAN_AMTS_PRIRBS_GLC12: ' || g_module_name,'Before calling SET_RES_CLASS_FLAG' ,1);
10090: END IF;
10091:
10092: SET_RES_CLASS_FLAG;
10093:
10090: END IF;
10091:
10092: SET_RES_CLASS_FLAG;
10093:
10094: IF P_PA_DEBUG_MODE = 'Y' THEN
10095: pa_debug.write('EXTRACT_PLAN_AMTS_PRIRBS_GLC12: ' || g_module_name,'After calling SET_RES_CLASS_FLAG' ,1);
10096: END IF;
10097:
10098: -- End cbs change
10091:
10092: SET_RES_CLASS_FLAG;
10093:
10094: IF P_PA_DEBUG_MODE = 'Y' THEN
10095: pa_debug.write('EXTRACT_PLAN_AMTS_PRIRBS_GLC12: ' || g_module_name,'After calling SET_RES_CLASS_FLAG' ,1);
10096: END IF;
10097:
10098: -- End cbs change
10099: INSERT INTO PJI_FP_AGGR_PJP1
12023: p_extrn_type,
12024: l_extract_etc);
12025: else
12026: -- cbs change
12027: IF P_PA_DEBUG_MODE = 'Y' THEN
12028: pa_debug.write('PROCESS_PENDING_PLAN_UPDATES: ' || g_module_name,'Before calling SET_RES_CLASS_FLAG' ,1);
12029: END IF;
12030:
12031: SET_RES_CLASS_FLAG;
12024: l_extract_etc);
12025: else
12026: -- cbs change
12027: IF P_PA_DEBUG_MODE = 'Y' THEN
12028: pa_debug.write('PROCESS_PENDING_PLAN_UPDATES: ' || g_module_name,'Before calling SET_RES_CLASS_FLAG' ,1);
12029: END IF;
12030:
12031: SET_RES_CLASS_FLAG;
12032:
12029: END IF;
12030:
12031: SET_RES_CLASS_FLAG;
12032:
12033: IF P_PA_DEBUG_MODE = 'Y' THEN
12034: pa_debug.write('PROCESS_PENDING_PLAN_UPDATES: ' || g_module_name,'After calling SET_RES_CLASS_FLAG' ,1);
12035: END IF;
12036:
12037: -- End cbs change
12030:
12031: SET_RES_CLASS_FLAG;
12032:
12033: IF P_PA_DEBUG_MODE = 'Y' THEN
12034: pa_debug.write('PROCESS_PENDING_PLAN_UPDATES: ' || g_module_name,'After calling SET_RES_CLASS_FLAG' ,1);
12035: END IF;
12036:
12037: -- End cbs change
12038: -- INSERT /*+ parallel(pjp1) */ INTO PJI_FP_AGGR_PJP1 pjp1 /* Added for bug 13030627 */