[Home] [Help]
5562: CONNECT BY object_id_from1 = PRIOR object_id_to1
5563: and relationship_type = 'S'
5564: UNION -- Bug 3878024 : Added Union
5565: SELECT to_number(null) object_id_from1, p_object_version_id object_id_to1
5566: FROM DUAL
5567: ) pobj,
5568: pa_proj_element_versions ppev1,
5569: pa_proj_elem_ver_schedule sch
5570: WHERE pobj.object_id_to1 = ppev1.element_version_id
8137: -- Assign the pl/sql tables bug 4050532
8138:
8139: l_index2 := l_index2 + 1;
8140:
8141: select pa_progress_rollup_s.nextval into progress_rollup_id(l_index2) from dual;
8142: percent_complete_id(l_index2) := to_number(null);
8143: PROJECT_ID(l_index2) := p_project_Id;
8144: OBJECT_ID(l_index2) := l_new_object_id;
8145: l_cbs_element_id(l_index2) := l_c1rec.cbs_element_id;-- added for 16895485
9007: -- Bug 4600547 End
9008:
9009: -- Bug 5961235 Begin
9010: CURSOR c_check_prog_exists_prg IS
9011: SELECT 'Y' from dual
9012: where exists ( select DISTINCT ppev.PROJECT_ID
9013: FROM pa_progress_rollup ppr,
9014: pa_proj_element_versions ppev
9015: where ppr.project_id=ppev.project_id
12950: END IF;
12951:
12952: -- Bug 4282618 Begin
12953: -- The seprate delete is added after the insertion
12954: -- This is because of Bulk returning clause, we can not use select .. from dual ..where with bulk returning
12955: FOR i IN 1..l_index LOOP
12956: IF l_prog_enabled_tbl(i) = 'N' THEN
12957: DELETE pa_percent_completes
12958: where percent_complete_id = l_percent_complete_id_tbl(i);
15977: --- call an api to check if a record exists on that date
15978:
15979: if (l_db_case = '1') then
15980: --- insert with defaults
15981: select pa_progress_rollup_s.nextval into progress_rollup_id(l_index2) from dual;
15982: percent_complete_id(l_index2) := to_number(null);
15983: project_id(l_index2) := l_project_id;
15984: object_id(l_index2) := l_object_id;
15985: pa_debug.log_message('Inside loop object_id '|| object_id(l_index2), 1);
17187:
17188: elsif (l_db_case = '3') then
17189: --- get progress attrs for the task/assignment
17190:
17191: select pa_progress_rollup_s.nextval into progress_rollup_id(l_index2) from dual;
17192: percent_complete_id(l_index2) := to_number(null);
17193: project_id(l_index2) := l_project_id;
17194: object_id(l_index2) := l_object_id;
17195: OBJECT_TYPE(l_index2) := l_rollup_rec_asofdate.object_Type;
18230: if (l_match_found = 'N') then
18231: if (nvl(all_assign_prev_asofdate_rec.ppl_act_effort_to_date,0) + nvl(all_assign_prev_asofdate_rec.eqpmt_act_effort_to_date,0) + nvl(all_assign_prev_asofdate_rec.oth_quantity_to_date,0)
18232: + nvl(all_assign_prev_asofdate_rec.ppl_act_cost_to_date_tc,0) + nvl(all_assign_prev_asofdate_rec.eqpmt_act_cost_to_date_tc,0) + nvl(all_assign_prev_asofdate_rec.oth_act_cost_to_date_tc,0) <> 0) then ---4461052
18233: l_index2 := l_index2 + 1;
18234: select pa_progress_rollup_s.nextval into progress_rollup_id(l_index2) from dual;
18235: percent_complete_id(l_index2) := to_number(null);
18236: project_id(l_index2) := l_project_id;
18237: object_id(l_index2) := all_assign_prev_asofdate_rec.object_id;
18238: OBJECT_TYPE(l_index2) := all_assign_prev_asofdate_rec.object_Type;
23218: END IF;
23219: END IF;
23220:
23221: IF g1_debug_mode = 'Y' THEN
23222: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_PROGRESS_BULK', x_Msg => 'After individual APIs are called l_return_status='||l_return_status, x_Log_Level=> 3);
23223: END IF;
23224:
23225: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
23226: x_msg_data := l_msg_data;
23287: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_PROGRESS_BULK', x_Msg => 'After First loop', x_Log_Level=> 3);
23288: END IF;
23289:
23290:
23291: -- loop through to find out whether mass rollup should be called or individual rollup
23292: FOR i in p_project_id_tbl.FIRST..p_project_id_tbl.LAST-1 LOOP
23293: IF l_task_version_id_tbl(i) IS NULL THEN
23294: l_rollup_call_required_tbl(i) := 'N';
23295: l_budget_call_required_tbl(i) := 'N';
23386: -- Bug 4416432 Issue 11 Added following Check
23387: l_check := 'N';
23388: SELECT 'Y'
23389: INTO l_check
23390: FROM DUAL
23391: WHERE EXISTS
23392: (SELECT 'xyz'
23393: from PA_PROG_ACT_BY_PERIOD_TEMP
23394: where project_id = p_project_id_tbl(i)
23526: -- It means it is the case of Mass Update Progress and AMG
23527: -- Hence do mass rollup
23528: -- We can give here some other value to l_count_of_rollup_calls
23529: -- like 5-6 so that after objects got exceeded that 5 then call Mass Rollup
23530: -- otherwsie individual rollup
23531: IF g1_debug_mode = 'Y' THEN
23532: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_PROGRESS_BULK', x_Msg => 'Calling Mass ROLLUP_PROGRESS_PVT', x_Log_Level=> 3);
23533: END IF;
23534: