[Home] [Help]
5158: CONNECT BY object_id_from1 = PRIOR object_id_to1
5159: and relationship_type = 'S'
5160: UNION -- Bug 3878024 : Added Union
5161: SELECT to_number(null) object_id_from1, p_object_version_id object_id_to1
5162: FROM DUAL
5163: ) pobj,
5164: pa_proj_element_versions ppev1,
5165: pa_proj_elem_ver_schedule sch
5166: WHERE pobj.object_id_to1 = ppev1.element_version_id
7722: -- Assign the pl/sql tables bug 4050532
7723:
7724: l_index2 := l_index2 + 1;
7725:
7726: select pa_progress_rollup_s.nextval into progress_rollup_id(l_index2) from dual;
7727: percent_complete_id(l_index2) := to_number(null);
7728: PROJECT_ID(l_index2) := p_project_Id;
7729: OBJECT_ID(l_index2) := l_new_object_id;
7730: OBJECT_TYPE(l_index2) := l_c1rec.object_type;
8589: -- Bug 4600547 End
8590:
8591: -- Bug 5961235 Begin
8592: CURSOR c_check_prog_exists_prg IS
8593: SELECT 'Y' from dual
8594: where exists ( select DISTINCT ppev.PROJECT_ID
8595: FROM pa_progress_rollup ppr,
8596: pa_proj_element_versions ppev
8597: where ppr.project_id=ppev.project_id
12491: END IF;
12492:
12493: -- Bug 4282618 Begin
12494: -- The seprate delete is added after the insertion
12495: -- This is because of Bulk returning clause, we can not use select .. from dual ..where with bulk returning
12496: FOR i IN 1..l_index LOOP
12497: IF l_prog_enabled_tbl(i) = 'N' THEN
12498: DELETE pa_percent_completes
12499: where percent_complete_id = l_percent_complete_id_tbl(i);
15279: --- u_ tables else populate the insert tables, for bulk processing
15280: --- call an api to check if a record exists on that date
15281: if (l_db_case = '1') then
15282: --- insert with defaults
15283: select pa_progress_rollup_s.nextval into progress_rollup_id(l_index2) from dual;
15284: percent_complete_id(l_index2) := to_number(null);
15285: project_id(l_index2) := l_project_id;
15286: object_id(l_index2) := l_object_id;
15287: OBJECT_TYPE(l_index2) := l_object_Type;
16210:
16211: elsif (l_db_case = '3') then
16212: --- get progress attrs for the task/assignment
16213:
16214: select pa_progress_rollup_s.nextval into progress_rollup_id(l_index2) from dual;
16215: percent_complete_id(l_index2) := to_number(null);
16216: project_id(l_index2) := l_project_id;
16217: object_id(l_index2) := l_object_id;
16218: OBJECT_TYPE(l_index2) := l_rollup_rec_asofdate.object_Type;
17062: if (l_match_found = 'N') then
17063: 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)
17064: + 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
17065: l_index2 := l_index2 + 1;
17066: select pa_progress_rollup_s.nextval into progress_rollup_id(l_index2) from dual;
17067: percent_complete_id(l_index2) := to_number(null);
17068: project_id(l_index2) := l_project_id;
17069: object_id(l_index2) := all_assign_prev_asofdate_rec.object_id;
17070: OBJECT_TYPE(l_index2) := all_assign_prev_asofdate_rec.object_Type;
21735: END IF;
21736: END IF;
21737:
21738: IF g1_debug_mode = 'Y' THEN
21739: 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);
21740: END IF;
21741:
21742: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
21743: x_msg_data := l_msg_data;
21804: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_PROGRESS_BULK', x_Msg => 'After First loop', x_Log_Level=> 3);
21805: END IF;
21806:
21807:
21808: -- loop through to find out whether mass rollup should be called or individual rollup
21809: FOR i in p_project_id_tbl.FIRST..p_project_id_tbl.LAST-1 LOOP
21810: IF l_task_version_id_tbl(i) IS NULL THEN
21811: l_rollup_call_required_tbl(i) := 'N';
21812: l_budget_call_required_tbl(i) := 'N';
21898: -- Bug 4416432 Issue 11 Added following Check
21899: l_check := 'N';
21900: SELECT 'Y'
21901: INTO l_check
21902: FROM DUAL
21903: WHERE EXISTS
21904: (SELECT 'xyz'
21905: from PA_PROG_ACT_BY_PERIOD_TEMP
21906: where project_id = p_project_id_tbl(i)
22029: -- It means it is the case of Mass Update Progress and AMG
22030: -- Hence do mass rollup
22031: -- We can give here some other value to l_count_of_rollup_calls
22032: -- like 5-6 so that after objects got exceeded that 5 then call Mass Rollup
22033: -- otherwsie individual rollup
22034: IF g1_debug_mode = 'Y' THEN
22035: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_PROGRESS_BULK', x_Msg => 'Calling Mass ROLLUP_PROGRESS_PVT', x_Log_Level=> 3);
22036: END IF;
22037: