[Home] [Help]
1: package body PA_SCHEDULE_OBJECTS_PVT as
2: /*$Header: PASCHOBB.pls 120.18.12010000.2 2008/09/16 06:24:58 dbudhwar ship $*/
3:
4: G_Pkg_Name CONSTANT VARCHAR2(30):= 'PA _SCHEDULE_OBJECTS_PVT';
5: G1_Debug_Mode VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
1277:
1278: BEGIN
1279: g1_debug_mode := NVL(FND_PROFILE.value_specific('PA_DEBUG_MODE',fnd_global.user_id,fnd_global.login_id,275,null,null), 'N');
1280: IF(p_debug_mode = 'Y') and g1_debug_mode = 'Y' THEN
1281: PA_DEBUG.init_err_stack('PA_SCHEDULE_OBJECTS_PVT.GENERATE_SCHEDULE');
1282: END IF;
1283:
1284: -- Initialize the return status to success
1285:
1298:
1299: l_data_count := P_Data_Structure.COUNT;
1300:
1301: IF g1_debug_mode = 'Y' THEN
1302: pa_debug.write(x_Module=>'PA_SCHEDULE_OBJECTS_PVT.GENERATE_SCHEDULE', x_Msg => 'Start', x_Log_Level=> 3);
1303: pa_debug.write(x_Module=>'PA_SCHEDULE_OBJECTS_PVT.GENERATE_SCHEDULE', x_Msg => 'l_data_count='||l_data_count, x_Log_Level=> 3);
1304: END IF;
1305:
1306:
1299: l_data_count := P_Data_Structure.COUNT;
1300:
1301: IF g1_debug_mode = 'Y' THEN
1302: pa_debug.write(x_Module=>'PA_SCHEDULE_OBJECTS_PVT.GENERATE_SCHEDULE', x_Msg => 'Start', x_Log_Level=> 3);
1303: pa_debug.write(x_Module=>'PA_SCHEDULE_OBJECTS_PVT.GENERATE_SCHEDULE', x_Msg => 'l_data_count='||l_data_count, x_Log_Level=> 3);
1304: END IF;
1305:
1306:
1307: IF l_data_count <= 0 THEN
1374: l_partial_rollup6 := FALSE;
1375: END IF;
1376:
1377: IF g1_debug_mode = 'Y' THEN
1378: pa_debug.write(x_Module=>'PA_SCHEDULE_OBJECTS_PVT.GENERATE_SCHEDULE', x_Msg => 'After deriving partial rollup flags', x_Log_Level=> 3);
1379: END IF;
1380:
1381:
1382:
1678:
1679: END LOOP; -- FOR i IN 1..P_Data_Structure.COUNT LOOP
1680:
1681: IF g1_debug_mode = 'Y' THEN
1682: pa_debug.write(x_Module=>'PA_SCHEDULE_OBJECTS_PVT.GENERATE_SCHEDULE', x_Msg => 'After building the table', x_Log_Level=> 3);
1683: END IF;
1684:
1685: FORALL i IN 1..P_Data_Structure.COUNT
1686: INSERT INTO PA_PROJ_ROLLUP_BULK_TEMP(
2031: l_SUMMARY_OBJECT_FLAG(i) -- 4370746
2032: );
2033:
2034: IF g1_debug_mode = 'Y' THEN
2035: pa_debug.write(x_Module=>'PA_SCHEDULE_OBJECTS_PVT.GENERATE_SCHEDULE', x_Msg => 'After insertion into table', x_Log_Level=> 3);
2036: pa_debug.write(x_Module=>'PA_SCHEDULE_OBJECTS_PVT.GENERATE_SCHEDULE', x_Msg => 'Before dirty processing', x_Log_Level=> 3);
2037: END IF;
2038:
2039: -- p_process_flag1 to 6 to decide whether to process anything or not....
2032: );
2033:
2034: IF g1_debug_mode = 'Y' THEN
2035: pa_debug.write(x_Module=>'PA_SCHEDULE_OBJECTS_PVT.GENERATE_SCHEDULE', x_Msg => 'After insertion into table', x_Log_Level=> 3);
2036: pa_debug.write(x_Module=>'PA_SCHEDULE_OBJECTS_PVT.GENERATE_SCHEDULE', x_Msg => 'Before dirty processing', x_Log_Level=> 3);
2037: END IF;
2038:
2039: -- p_process_flag1 to 6 to decide whether to process anything or not....
2040: -- p_process_rollup_flag1 to 6 determine whether the following processing is required
2327:
2328: -- ********* DIRTY PROCESSING END ***********
2329:
2330: IF g1_debug_mode = 'Y' THEN
2331: pa_debug.write(x_Module=>'PA_SCHEDULE_OBJECTS_PVT.GENERATE_SCHEDULE', x_Msg => 'After dirty processing', x_Log_Level=> 3);
2332: pa_debug.write(x_Module=>'PA_SCHEDULE_OBJECTS_PVT.GENERATE_SCHEDULE', x_Msg => 'Before Date processing', x_Log_Level=> 3);
2333: END IF;
2334:
2335: -- ********* NEW DATES PROCESSING BEGIN **********
2328: -- ********* DIRTY PROCESSING END ***********
2329:
2330: IF g1_debug_mode = 'Y' THEN
2331: pa_debug.write(x_Module=>'PA_SCHEDULE_OBJECTS_PVT.GENERATE_SCHEDULE', x_Msg => 'After dirty processing', x_Log_Level=> 3);
2332: pa_debug.write(x_Module=>'PA_SCHEDULE_OBJECTS_PVT.GENERATE_SCHEDULE', x_Msg => 'Before Date processing', x_Log_Level=> 3);
2333: END IF;
2334:
2335: -- ********* NEW DATES PROCESSING BEGIN **********
2336:
3973:
3974: -- ********* DATES PROCESSING END ***********
3975: */
3976: IF g1_debug_mode = 'Y' THEN
3977: pa_debug.write(x_Module=>'PA_SCHEDULE_OBJECTS_PVT.GENERATE_SCHEDULE', x_Msg => 'After Date processing', x_Log_Level=> 3);
3978: END IF;
3979:
3980:
3981: -- ********* EFFORT PROCESSING BEGIN **********
3985:
3986: -- ********* PROGRESS STATUS PROCESSING BEGIN ***********
3987:
3988: IF g1_debug_mode = 'Y' THEN
3989: pa_debug.write(x_Module=>'PA_SCHEDULE_OBJECTS_PVT.GENERATE_SCHEDULE', x_Msg => 'Before Progress Status processing', x_Log_Level=> 3);
3990: END IF;
3991:
3992:
3993: IF ((p_process_flag1 = 'Y' OR p_process_flag2 = 'Y' OR p_process_flag3 = 'Y' OR p_process_flag4 = 'Y'
4006: l_update_required := 'N';
4007:
4008:
4009: IF g1_debug_mode = 'Y' THEN
4010: pa_debug.write(x_Module=>'PA_SCHEDULE_OBJECTS_PVT.GENERATE_SCHEDULE', x_Msg => 'Before data fetch', x_Log_Level=> 3);
4011: END IF;
4012:
4013: OPEN Parent_Objects_List_prog_sts;
4014: FETCH Parent_Objects_List_prog_sts BULK COLLECT INTO l_object_ids_tab, l_object_types_tab
4015: , l_sum_tab1, l_sum_tab2, l_sum_tab3, l_sum_tab4, l_sum_tab5, l_sum_tab6;
4016: CLOSE Parent_Objects_List_prog_sts;
4017:
4018: IF g1_debug_mode = 'Y' THEN
4019: pa_debug.write(x_Module=>'PA_SCHEDULE_OBJECTS_PVT.GENERATE_SCHEDULE', x_Msg => 'Afetr data fetch', x_Log_Level=> 3);
4020: END IF;
4021:
4022: FOR i IN 1..l_object_ids_tab.count LOOP
4023: l_Weight1 := null;
4158: */
4159: END IF; -- ((p_process_flag1 = 'Y' OR p_process_flag2 = 'Y' OR p_process_flag3 = 'Y' OR p_process_flag4 = 'Y'
4160:
4161: IF g1_debug_mode = 'Y' THEN
4162: pa_debug.write(x_Module=>'PA_SCHEDULE_OBJECTS_PVT.GENERATE_SCHEDULE', x_Msg => 'After Progress Status processing', x_Log_Level=> 3);
4163: END IF;
4164:
4165: -- ********* PROGRESS STATUS PROCESSING END **************
4166:
4166:
4167: -- ********* TASK STATUS PROCESSING BEGIN **************
4168:
4169: IF g1_debug_mode = 'Y' THEN
4170: pa_debug.write(x_Module=>'PA_SCHEDULE_OBJECTS_PVT.GENERATE_SCHEDULE', x_Msg => 'Before Task Status processing', x_Log_Level=> 3);
4171: END IF;
4172:
4173:
4174: IF ((p_process_flag1 = 'Y' OR p_process_flag2 = 'Y' OR p_process_flag3 = 'Y' OR p_process_flag4 = 'Y'
4239: IF p_process_flag1 = 'Y' AND p_process_task_status_flag1 = 'Y'
4240: AND l_task_status_tab1.count > 0
4241: THEN
4242: l_update_required := 'Y';
4243: l_weight := PA_SCHEDULE_OBJECTS_PVT.GET_PROGRESS_STATUS(
4244: p_not_started => l_not_started
4245: ,p_completed => l_completed
4246: ,p_in_progress => l_in_progress
4247: ,p_on_hold => l_on_hold);
4269: IF p_process_flag2 = 'Y' AND p_process_task_status_flag2 = 'Y'
4270: AND l_task_status_tab2.count > 0
4271: THEN
4272: l_update_required := 'Y';
4273: l_weight := PA_SCHEDULE_OBJECTS_PVT.GET_PROGRESS_STATUS(
4274: p_not_started => l_not_started
4275: ,p_completed => l_completed
4276: ,p_in_progress => l_in_progress
4277: ,p_on_hold => l_on_hold);
4298: IF p_process_flag3 = 'Y' AND p_process_task_status_flag3 = 'Y'
4299: AND l_task_status_tab3.count > 0
4300: THEN
4301: l_update_required := 'Y';
4302: l_weight := PA_SCHEDULE_OBJECTS_PVT.GET_PROGRESS_STATUS(
4303: p_not_started => l_not_started
4304: ,p_completed => l_completed
4305: ,p_in_progress => l_in_progress
4306: ,p_on_hold => l_on_hold);
4327: IF p_process_flag4 = 'Y' AND p_process_task_status_flag4 = 'Y'
4328: AND l_task_status_tab4.count > 0
4329: THEN
4330: l_update_required := 'Y';
4331: l_weight := PA_SCHEDULE_OBJECTS_PVT.GET_PROGRESS_STATUS(
4332: p_not_started => l_not_started
4333: ,p_completed => l_completed
4334: ,p_in_progress => l_in_progress
4335: ,p_on_hold => l_on_hold);
4356: IF p_process_flag5 = 'Y' AND p_process_task_status_flag5 = 'Y'
4357: AND l_task_status_tab5.count > 0
4358: THEN
4359: l_update_required := 'Y';
4360: l_weight := PA_SCHEDULE_OBJECTS_PVT.GET_PROGRESS_STATUS(
4361: p_not_started => l_not_started
4362: ,p_completed => l_completed
4363: ,p_in_progress => l_in_progress
4364: ,p_on_hold => l_on_hold);
4385: IF p_process_flag6 = 'Y' AND p_process_task_status_flag6 = 'Y'
4386: AND l_task_status_tab6.count > 0
4387: THEN
4388: l_update_required := 'Y';
4389: l_weight := PA_SCHEDULE_OBJECTS_PVT.GET_PROGRESS_STATUS(
4390: p_not_started => l_not_started
4391: ,p_completed => l_completed
4392: ,p_in_progress => l_in_progress
4393: ,p_on_hold => l_on_hold);
4427: */
4428: END IF; -- ((p_process_flag1 = 'Y' OR p_process_flag2 = 'Y' OR p_process_flag3 = 'Y' OR p_process_flag4 = 'Y'
4429:
4430: IF g1_debug_mode = 'Y' THEN
4431: pa_debug.write(x_Module=>'PA_SCHEDULE_OBJECTS_PVT.GENERATE_SCHEDULE', x_Msg => 'After Task Status processing', x_Log_Level=> 3);
4432: END IF;
4433:
4434:
4435: -- ********* TASK STATUS PROCESSING END **************
4436:
4437: -- ********* PERCENT COMPLETE PROCESSING BEGIN ***********
4438:
4439: IF g1_debug_mode = 'Y' THEN
4440: pa_debug.write(x_Module=>'PA_SCHEDULE_OBJECTS_PVT.GENERATE_SCHEDULE', x_Msg => 'Before % Complete processing', x_Log_Level=> 3);
4441: END IF;
4442:
4443: IF ((p_process_flag1 = 'Y' OR p_process_flag2 = 'Y' OR p_process_flag3 = 'Y' OR p_process_flag4 = 'Y'
4444: OR p_process_flag5 = 'Y' OR p_process_flag6 = 'Y')
5358: */
5359: END IF; -- ((p_process_flag1 = 'Y' OR p_process_flag2 = 'Y' OR p_process_flag3 = 'Y' OR p_process_flag4 = 'Y'
5360:
5361: IF g1_debug_mode = 'Y' THEN
5362: pa_debug.write(x_Module=>'PA_SCHEDULE_OBJECTS_PVT.GENERATE_SCHEDULE', x_Msg => 'After % Complete processing', x_Log_Level=> 3);
5363: END IF;
5364:
5365: -- ********* PERCENT COMPLETE PROCESSING END ******************
5366:
5365: -- ********* PERCENT COMPLETE PROCESSING END ******************
5366:
5367: -- ********* ETC COST ROLLUP BEGIN ****************
5368: IF g1_debug_mode = 'Y' THEN
5369: pa_debug.write(x_Module=>'PA_SCHEDULE_OBJECTS_PVT.GENERATE_SCHEDULE', x_Msg => 'Before ETC Cost processing', x_Log_Level=> 3);
5370: END IF;
5371:
5372:
5373: -- Bug 4218507 : To do effort or ETC processing, atleast one of the flags p_process_ETC_Flag1 or p_process_effort_flag1
5851: */
5852: END IF; -- ((p_process_flag1 = 'Y' OR p_process_flag2 = 'Y' OR p_process_flag3 = 'Y' OR p_process_flag4 = 'Y'
5853:
5854: IF g1_debug_mode = 'Y' THEN
5855: pa_debug.write(x_Module=>'PA_SCHEDULE_OBJECTS_PVT.GENERATE_SCHEDULE', x_Msg => 'After ETC Cost processing', x_Log_Level=> 3);
5856: END IF;
5857:
5858: -- ********* ETC COST ROLLUP END *************
5859:
5859:
5860:
5861:
5862: IF g1_debug_mode = 'Y' THEN
5863: pa_debug.write(x_Module=>'PA_SCHEDULE_OBJECTS_PVT.GENERATE_SCHEDULE', x_Msg => 'Before Assigning data back to plsql table', x_Log_Level=> 3);
5864: END IF;
5865:
5866: l_data_count := 1;
5867:
5885: CLOSE processed_data_structure;
5886: END IF;
5887:
5888: IF g1_debug_mode = 'Y' THEN
5889: pa_debug.write(x_Module=>'PA_SCHEDULE_OBJECTS_PVT.GENERATE_SCHEDULE', x_Msg => 'After Assigning data back to plsql table', x_Log_Level=> 3);
5890: END IF;
5891:
5892: -- Bug 4289748 : removed rollback, used delete instead
5893: --ROLLBACK TO SAVEPOINT GENERATE_SCHEDULE_SP;
5907: -- x_return_status := FND_API.G_RET_STS_ERROR;
5908: --END IF;
5909:
5910: IF (p_debug_mode = 'Y') AND g1_debug_mode = 'Y' THEN
5911: pa_debug.debug('PA_SCHEDULE_OBJECTS_PVT.GENERATE_SCHEDULE END');
5912: END IF;
5913:
5914: EXCEPTION
5915: WHEN API_ERROR THEN
5924: END IF;
5925: x_return_status := FND_API.G_RET_STS_ERROR;
5926: WHEN OTHERS THEN
5927: ROLLBACK TO SAVEPOINT GENERATE_SCHEDULE_SP;
5928: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_SCHEDULE_OBJECTS_PVT'
5929: ,p_procedure_name => 'GENERATE_SCHEDULE'
5930: , p_error_text => SUBSTRB(SQLERRM,1,120));
5931: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5932: x_msg_data := substr(sqlerrm, 1, 120);
5980: END IF;
5981:
5982: END GET_PROGRESS_STATUS;
5983:
5984: End PA_SCHEDULE_OBJECTS_PVT;