[Home] [Help]
46: where lookup_type='PM_PRODUCT_CODE'
47: and lookup_code = p_pm_product_code;
48:
49: --FP.M Changes by rtarway for Mapping and Set Financial Task
50: --This cursor gets the record version number from pa_tasks for the passed task version id
51: CURSOR c_get_pa_record_version_number (l_task_version_id NUMBER , l_project_id NUMBER)
52: IS
53: SELECT
54: allTasks.record_version_number
53: SELECT
54: allTasks.record_version_number
55:
56: FROM
57: PA_TASKS allTasks,
58: pa_proj_element_versions elever
59: WHERE
60: elever.element_version_id = l_task_version_id
61: AND
4381: );
4382:
4383: --Project Connect 4.0
4384:
4385: --syns up pa_proj_elements with pa_tasks
4386: /* not required this anymore
4387:
4388: --Clean up first the unwanted tasks that are created by copy_structure in pa_proj_elements
4389: --although they had not been created in pa_tasks.
4385: --syns up pa_proj_elements with pa_tasks
4386: /* not required this anymore
4387:
4388: --Clean up first the unwanted tasks that are created by copy_structure in pa_proj_elements
4389: --although they had not been created in pa_tasks.
4390:
4391: PA_PROJ_TASK_STRUC_PUB.Clean_unwanted_tasks(
4392: p_project_id => l_project_id
4393: ,x_msg_count => l_msg_count
4439:
4440: IF l_bug_wp_enabled = 'N' AND l_bug_fp_enabled = 'N' AND p_tasks_in.exists(i)
4441: THEN
4442: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
4443: p_msg_name =>'PA_WRONG_STR_TYPE_AMG'); -- 'PA_TASKS_NOT_ALLOWD_AMG' -- It is decided to use the same message in this case too
4444: -- Workplan or Financial Structures must be enabled at source project/template level in order to enter Tasks.
4445: RAISE FND_API.G_EXC_ERROR ;
4446: ELSIF l_bug_wp_enabled = 'Y' AND l_bug_fp_enabled = 'N' AND p_tasks_in.exists(i) AND l_structure_in_rec.structure_type = 'FINANCIAL'
4447: THEN
5097: l_task_in_rec := p_tasks_in(i);
5098: l_patask_record_version_number := NULL;
5099: --No Function Security Check required
5100:
5101: --Get record version number from pa_tasks table
5102: OPEN c_get_pa_record_version_number ( p_tasks_out(i).task_version_id , l_project_id);
5103: FETCH c_get_pa_record_version_number INTO l_patask_record_version_number;
5104: CLOSE c_get_pa_record_version_number;
5105:
5114: l_task_in_rec.financial_task_flag <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5115: )
5116: THEN
5117:
5118: PA_TASKS_MAINT_PUB.SET_FINANCIAL_FLAG_WRAPPER
5119: (
5120: p_api_version => p_api_version_number
5121: , p_init_msg_list => FND_API.G_FALSE
5122: , p_commit => FND_API.G_FALSE--BUG 3766967
5609: l_project_type_rec pa_project_types%rowtype;
5610: l_project_rec pa_projects%rowtype;
5611: l_task_in_rec task_in_rec_type;
5612: l_project_id pa_projects.project_id%type;
5613: l_task_id pa_tasks.task_id%type;
5614: l_msg_count NUMBER ;
5615: l_msg_data VARCHAR2(2000);
5616: l_function_allowed VARCHAR2(1);
5617: l_resp_id NUMBER := 0;
5632:
5633: --Added for bug 3280610
5634: --needed to get task_id of a task using project_id and task_reference.
5635: CURSOR l_task_ref_to_id_csr
5636: (cp_project_id pa_tasks.project_id%TYPE
5637: ,cp_pm_task_reference pa_tasks.pm_task_reference%TYPE)
5638: IS
5639: SELECT t.task_id
5640: FROM pa_tasks t
5633: --Added for bug 3280610
5634: --needed to get task_id of a task using project_id and task_reference.
5635: CURSOR l_task_ref_to_id_csr
5636: (cp_project_id pa_tasks.project_id%TYPE
5637: ,cp_pm_task_reference pa_tasks.pm_task_reference%TYPE)
5638: IS
5639: SELECT t.task_id
5640: FROM pa_tasks t
5641: WHERE t.project_id = cp_project_id
5636: (cp_project_id pa_tasks.project_id%TYPE
5637: ,cp_pm_task_reference pa_tasks.pm_task_reference%TYPE)
5638: IS
5639: SELECT t.task_id
5640: FROM pa_tasks t
5641: WHERE t.project_id = cp_project_id
5642: AND t.pm_task_reference = cp_pm_task_reference;
5643:
5644: --Bug 3279981. Fetch project information
5717:
5718: -- End fix for Bug # 4373055.
5719:
5720: --Added for Bug 6026370
5721: CURSOR l_default_parent_task_csr (c_pa_parent_task_id pa_tasks.task_id%type) IS
5722: SELECT allow_cross_charge_flag,
5723: cc_process_labor_flag,
5724: labor_tp_schedule_id,
5725: labor_tp_fixed_date,
5725: labor_tp_fixed_date,
5726: cc_process_nl_flag,
5727: nl_tp_schedule_id,
5728: nl_tp_fixed_date
5729: FROM pa_tasks
5730: WHERE task_id = c_pa_parent_task_id;
5731:
5732: --Initializiing all the CC attributes to missing values so that if the new task is top task then values of these CC attibites
5733: --will be populated from project CC attributes in pa_project_pvt.add_task_round_one api
6762:
6763: --we need to update to pm_product_code because it will be inherited
6764: --from the project in add_task_round_one
6765:
6766: UPDATE pa_tasks
6767: SET pm_product_code = p_pm_product_code
6768: WHERE task_id = l_task_id;
6769:
6770:
7112: CLOSE c_get_pa_record_version_number;
7113: IF
7114: (p_financial_task_flag IS NOT NULL AND p_financial_task_flag <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
7115: THEN
7116: PA_TASKS_MAINT_PUB.SET_FINANCIAL_FLAG_WRAPPER
7117: (
7118: p_api_version => p_api_version_number
7119: , p_init_msg_list => FND_API.G_FALSE
7120: , p_commit => FND_API.G_FALSE--bug 3766967
9596: AND d.distribution_rule = l_dist_rule;
9597:
9598: CURSOR l_min_task_start_date_csr (l_project_id NUMBER) IS
9599: SELECT MIN(start_date)
9600: FROM pa_tasks
9601: WHERE project_id = l_project_id
9602: AND start_date IS NOT NULL;
9603:
9604: CURSOR l_max_task_end_date_csr (l_project_id NUMBER) IS
9602: AND start_date IS NOT NULL;
9603:
9604: CURSOR l_max_task_end_date_csr (l_project_id NUMBER) IS
9605: SELECT MAX(completion_date)
9606: FROM pa_tasks
9607: WHERE project_id = l_project_id
9608: AND completion_date IS NOT NULL;
9609:
9610: --needed to get the project_type_class_code and service_type_code associated
9676: AND class_category = l_class_category;
9677:
9678: CURSOR l_get_task_csr (l_project_id NUMBER,l_pm_task_reference VARCHAR2) IS
9679: SELECT task_id FROM
9680: pa_tasks
9681: WHERE project_id = l_project_id
9682: AND pm_task_reference = l_pm_task_reference;
9683:
9684: --needed to get the data of the project manager that might conflict with this new project manager
10202: -- through this variable.
10203: l_create_task_versions_only VARCHAR2(1) := 'N';
10204: -- Bug 6248841
10205: l_b_cc_tax_task_id VARCHAR2(1) := 'N';
10206: l_cc_tax_task_numb PA_TASKS.TASK_NUMBER%TYPE;
10207:
10208: /* Bug 3077676 */
10209: l_cust_acc_rel_code pa_implementations.cust_acc_rel_code%TYPE;
10210: CURSOR get_cust_acc_rel_code IS
11176: IF PA_PROJECT_PUB.G_Published_version_exists = 'Y'
11177: AND PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N'
11178: AND PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y'
11179: AND p_structure_in.structure_type = 'FINANCIAL'
11180: AND p_pm_product_code <> 'WORKPLAN' --This parameter should be checked bcoz for publishing we want it to syn up with pa_tasks . For publishing p_pm_product_code will have 'WORKPLAN'
11181: THEN
11182: --Change the flow to WORKPLAN
11183: l_structure_type := 'WORKPLAN';
11184:
15384: THEN
15385:
15386: BEGIN
15387: SELECT task_number INTO l_cc_tax_task_numb
15388: FROM pa_tasks
15389: WHERE project_id = l_project_id
15390: AND task_id = p_project_in.cc_tax_task_id;
15391:
15392: l_statement := l_statement || ' CC_TAX_TASK_ID = :prj_cc_tax_task_id,';
17361:
17362: /** Code change begin by aditi for Bug 4120380 **/
17363: /** The code below will update the task_numbers of the tasks passed via update_project script
17364: back to their original value viz. it'll crop the '-' added to aviod the constraint check in
17365: PA_TASKS and PA_PROJ_ELEMENTS. **/
17366:
17367: /* bug #5243018: Reverting the fix in bug 4120380.
17368: i := 1;
17369: IF p_tasks_in.exists(i)
17368: i := 1;
17369: IF p_tasks_in.exists(i)
17370: THEN
17371: WHILE i IS NOT NULL LOOP
17372: UPDATE pa_tasks
17373: SET task_number = p_tasks_in(i).pa_task_number
17374: WHERE task_number = '-'||p_tasks_in(i).pa_task_number
17375: AND project_id = l_project_id; -- BUG 4174041, rtarway
17376: ----dbms_output.put_line('value of sql%rowcount'||sql%rowcount);
17550: -- Bug 7277840 : Update PM_PROJECT_CODE
17551: IF p_pm_product_code <> 'WORKPLAN' AND p_pm_product_code IS NOT NULL
17552: AND p_pm_product_code <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
17553: THEN
17554: UPDATE pa_tasks
17555: SET pm_product_code = p_pm_product_code
17556: WHERE task_id = l_task_id_tbl(i).pa_task_id;
17557: END IF;
17558:
17658: --The following code should be executed when a new task is added
17659: --to a working version( with already existing a published ver ) and
17660: --then its published.
17661: --In other words the code is executed while publishing to sync up with
17662: --pa_tasks. In regular flow for adding new tasks we call this api
17663: --from the wrapper process_task_structure_bulk api.
17664: --
17665: IF l_structure_type = 'FINANCIAL' AND
17666: p_pm_product_code = 'WORKPLAN'
19425: end if;
19426: -- Bug 5622539
19427:
19428: IF hghst_ctr_cust_id IS NOT null THEN
19429: --This API call will update pa_project_customers and pa_tasks
19430: pa_top_task_cust_invoice_pvt.enbl_disbl_cust_at_top_task(
19431: P_API_VERSION => 1.0
19432: , P_INIT_MSG_LIST => 'T'
19433: , P_COMMIT => 'F'
19535: FETCH cur_get_def_top_task_cust INTO cust_id;
19536: CLOSE cur_get_def_top_task_cust;
19537:
19538: IF hghst_ctr_cust_id IS NOT NULL THEN
19539: --This API call will update pa_project_customers and pa_tasks
19540: pa_top_task_cust_invoice_pvt.enbl_disbl_cust_at_top_task(
19541: P_API_VERSION => 1.0
19542: , P_INIT_MSG_LIST => 'T'
19543: , P_COMMIT => 'F'
20966: , x_msg_count => l_msg_count
20967: , x_msg_data => l_msg_data );
20968:
20969: IF hghst_ctr_cust_id IS NOT null THEN
20970: --This API call will update pa_project_customers and pa_tasks
20971: pa_top_task_cust_invoice_pvt.enbl_disbl_cust_at_top_task(
20972: P_API_VERSION => 1.0
20973: , P_INIT_MSG_LIST => 'T'
20974: , P_COMMIT => 'F'
21034: FETCH cur_get_def_top_task_cust INTO cust_id;
21035: CLOSE cur_get_def_top_task_cust;
21036:
21037: IF hghst_ctr_cust_id IS NOT NULL THEN
21038: --This API call will update pa_project_customers and pa_tasks
21039: pa_top_task_cust_invoice_pvt.enbl_disbl_cust_at_top_task(
21040: P_API_VERSION => 1.0
21041: , P_INIT_MSG_LIST => 'T'
21042: , P_COMMIT => 'F'
21486: --Initialize the return status to success
21487: p_tasks_out(i).return_status := FND_API.G_RET_STS_SUCCESS;
21488: l_task_in_rec := p_tasks_in(i);
21489: --No Function Security Check required
21490: --Get record version number from pa_tasks table
21491: OPEN c_get_pa_record_version_number ( p_tasks_out(i).task_version_id , l_project_id);
21492: FETCH c_get_pa_record_version_number INTO l_patask_record_version_number;
21493: CLOSE c_get_pa_record_version_number;
21494:
21498: AND
21499: l_task_in_rec.financial_task_flag <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
21500: )
21501: THEN
21502: PA_TASKS_MAINT_PUB.SET_FINANCIAL_FLAG_WRAPPER
21503: (
21504: p_api_version => p_api_version_number
21505: , p_init_msg_list => FND_API.G_FALSE
21506: , p_commit => FND_API.G_FALSE--bug 3766967
22356: SELECT customer_name from PA_CUSTOMERS_V
22357: WHERE customer_id = l_customer_id;
22358: -- Added for bug 5242015
22359: CURSOR cur_top_task_customer_id (l_task_id NUMBER ) IS
22360: SELECT customer_id FROM pa_tasks
22361: WHERE task_id=l_task_id;
22362:
22363: l_proj_top_task_customer_flag VARCHAR2(1);
22364: l_proj_top_task_inv_mth_flag VARCHAR2(1);
22460: and proj_element_id = l_proj_element_id
22461: and parent_structure_version_id = l_parent_str_ver_id;
22462:
22463: --BUG 4106154, rtarway
22464: l_update_pa_tasks VARCHAR2(1);
22465:
22466: l_tasks_out pa_project_pub.task_out_tbl_type; --bug 4199694
22467:
22468: --BUG 4081329, rtarway
22466: l_tasks_out pa_project_pub.task_out_tbl_type; --bug 4199694
22467:
22468: --BUG 4081329, rtarway
22469: cursor cur_get_child_task_dates (l_project_id NUMBER, l_task_id NUMBER)
22470: IS select task_id, start_date, completion_date, parent_task_id from pa_tasks --Fix for 7427388
22471: where project_id = l_project_id
22472: and completion_date is null
22473: start with parent_task_id = l_task_id
22474: connect by parent_task_id = prior task_id
22473: start with parent_task_id = l_task_id
22474: connect by parent_task_id = prior task_id
22475: and project_id = l_project_id;
22476:
22477: type l_task_id_tbl_type is table of pa_tasks.task_id%type index by binary_integer;
22478: type l_start_date_tbl_type is table of pa_tasks.start_date%type index by binary_integer;
22479: type l_completion_date_tbl_type is table of pa_tasks.completion_date%type index by binary_integer;
22480:
22481: l_task_id_tbl l_task_id_tbl_type;
22474: connect by parent_task_id = prior task_id
22475: and project_id = l_project_id;
22476:
22477: type l_task_id_tbl_type is table of pa_tasks.task_id%type index by binary_integer;
22478: type l_start_date_tbl_type is table of pa_tasks.start_date%type index by binary_integer;
22479: type l_completion_date_tbl_type is table of pa_tasks.completion_date%type index by binary_integer;
22480:
22481: l_task_id_tbl l_task_id_tbl_type;
22482: l_start_date_tbl l_start_date_tbl_type;
22475: and project_id = l_project_id;
22476:
22477: type l_task_id_tbl_type is table of pa_tasks.task_id%type index by binary_integer;
22478: type l_start_date_tbl_type is table of pa_tasks.start_date%type index by binary_integer;
22479: type l_completion_date_tbl_type is table of pa_tasks.completion_date%type index by binary_integer;
22480:
22481: l_task_id_tbl l_task_id_tbl_type;
22482: l_start_date_tbl l_start_date_tbl_type;
22483: l_completion_date_tbl l_completion_date_tbl_type;
22482: l_start_date_tbl l_start_date_tbl_type;
22483: l_completion_date_tbl l_completion_date_tbl_type;
22484:
22485: -- Fix for 7427388
22486: type l_parent_task_id_tbl_type is table of pa_tasks.parent_task_id%type index by binary_integer;
22487: l_parent_task_id_tbl l_parent_task_id_tbl_type;
22488: l_parent_task_date DATE;
22489:
22490: --BUG 4081329, rtarway
22615: AND p_pm_product_code <> 'WORKPLAN'
22616: THEN
22617: --Change the flow to WORKPLAN
22618: l_structure_type := 'WORKPLAN';
22619: l_update_pa_tasks := 'Y'; --BUG 4106154, rtarway
22620:
22621: --BUG 3919800, in case of workplan, we must derive structure version id and pass it further.
22622: OPEN cur_get_working_struc_ver(l_project_id, l_structure_type);
22623: FETCH cur_get_working_struc_ver into l_structure_version_id;
22808: --Else get it from project invoice method.
22809: BEGIN
22810: SELECT invoice_method
22811: INTO l_invoice_method
22812: FROM pa_tasks
22813: WHERE project_id = l_project_id
22814: and task_id = l_pa_task_id
22815: and l_invoice_method is not null;
22816:
22948: --IF 'N' = l_proj_top_task_customer_flag
22949: l_customer_id := NULL;
22950: END IF;
22951:
22952: /*UPDATE PA_TASKS
22953: SET invoice_method = l_invoice_method
22954: ,customer_id = l_customer_id
22955: WHERE project_id = l_project_id
22956: AND task_id = p_pa_task_id;*/
23274: l_completion_date_tbl;
23275: close cur_get_child_task_dates;
23276: if l_task_id_tbl is not null and l_task_id_tbl.count > 0 then
23277: FORALL i in l_task_id_tbl.first..l_task_id_tbl.last
23278: update pa_tasks set completion_date = p_task_completion_date where task_id = l_task_id_tbl(i)
23279: and project_id = l_project_id;
23280: end if;
23281: end if;*/
23282:
23291: FOR i in l_task_id_tbl.first..l_task_id_tbl.last LOOP
23292: IF l_parent_task_id_tbl(i) IS NOT NULL AND l_start_date_tbl(i) is NULL THEN
23293: SELECT start_date
23294: INTO l_parent_task_date
23295: FROM pa_tasks
23296: WHERE task_id = l_parent_task_id_tbl(i);
23297:
23298: UPDATE pa_tasks
23299: SET completion_date = p_task_completion_date,
23294: INTO l_parent_task_date
23295: FROM pa_tasks
23296: WHERE task_id = l_parent_task_id_tbl(i);
23297:
23298: UPDATE pa_tasks
23299: SET completion_date = p_task_completion_date,
23300: start_date = l_parent_task_date
23301: WHERE task_id = l_task_id_tbl(i);
23302:
23300: start_date = l_parent_task_date
23301: WHERE task_id = l_task_id_tbl(i);
23302:
23303: ELSE
23304: UPDATE pa_tasks
23305: SET completion_date = p_task_completion_date
23306: WHERE task_id = l_task_id_tbl(i);
23307: END IF;
23308: END LOOP;
23540: -- Bug 3106457. This is not null.
23541: --Commented by rtarway for BUG 3919800
23542: --l_structure_version_id := p_structure_version_id;
23543: --Added by rtarway for BUG 4106154
23544: if (l_update_pa_tasks = 'Y' AND
23545: --Added by rtarway for bug 4321313
23546: PA_PROJ_ELEMENTS_UTILS.CHECK_IS_FINANCIAL_TASK(l_pa_task_id) = 'Y'
23547: ) then
23548:
23545: --Added by rtarway for bug 4321313
23546: PA_PROJ_ELEMENTS_UTILS.CHECK_IS_FINANCIAL_TASK(l_pa_task_id) = 'Y'
23547: ) then
23548:
23549: --In case of Shared Structures, we do not need to update dff attributes in pa_tasks, instead
23550: --dff fields of pa_proj_elem_ver_schedule are updated
23551:
23552: PA_PROJECT_PVT.Update_One_Task
23553: (
23824: FETCH c_get_pa_record_version_number INTO l_patask_record_version_number;
23825: CLOSE c_get_pa_record_version_number;
23826: IF ( p_financial_task_flag IS NOT NULL AND p_financial_task_flag <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
23827: THEN
23828: PA_TASKS_MAINT_PUB.SET_FINANCIAL_FLAG_WRAPPER
23829: (
23830: p_api_version => p_api_version_number
23831: , p_init_msg_list => p_init_msg_list
23832: , p_commit => FND_API.G_FALSE--bug 3766967
35274: -- work for both split and shared projects.
35275: /*
35276:
35277: CURSOR l_amg_task_csr
35278: (p_pa_task_id pa_tasks.task_id%type)
35279: IS
35280: SELECT task_number
35281: FROM pa_tasks p
35282: WHERE p.task_id = p_pa_task_id;
35277: CURSOR l_amg_task_csr
35278: (p_pa_task_id pa_tasks.task_id%type)
35279: IS
35280: SELECT task_number
35281: FROM pa_tasks p
35282: WHERE p.task_id = p_pa_task_id;
35283:
35284: */
35285:
35284: */
35285:
35286: -- The Following cursor has been commented for Performance Bug 4878722 SQL ID 14909071
35287: -- The purpose of this cursor per usage in this API is to verify whether the task exists in any of the previously published versions
35288: -- cursor l_amg_task_csr (p_pa_task_id pa_tasks.task_id%type) is
35289: -- select ppe.element_number
35290: -- from pa_proj_elements ppe, pa_proj_elem_ver_structure ppevs
35291: -- where ppe.proj_element_id = p_pa_task_id
35292: -- and ppe.parent_structure_id = ppevs.proj_element_id
35320: The correct way of doing this is to get the task status directly from the element versions table itself as shown below
35321: and modify the logic to use the above column value.
35322:
35323:
35324: cursor l_amg_task_csr (p_pa_task_id pa_tasks.task_id%type) is
35325: select 1 from dual
35326: where exists (select ppe.element_number
35327: from pa_proj_elements ppe, pa_proj_elem_ver_structure ppevs
35328: where ppe.proj_element_id = p_pa_task_id
35325: select 1 from dual
35326: where exists (select ppe.element_number
35327: from pa_proj_elements ppe, pa_proj_elem_ver_structure ppevs
35328: where ppe.proj_element_id = p_pa_task_id
35329: and ppe.object_type = 'PA_TASKS'
35330: and ppe.parent_structure_id = ppevs.proj_element_id
35331: and ppe.project_id = ppevs.project_id
35332: and ppevs.status_code = 'STRUCTURE_PUBLISHED');
35333: */
35331: and ppe.project_id = ppevs.project_id
35332: and ppevs.status_code = 'STRUCTURE_PUBLISHED');
35333: */
35334:
35335: cursor l_amg_task_csr (p_pa_task_id pa_tasks.task_id%type) is
35336: select 1 from dual
35337: where exists(
35338: select pev.task_unpub_ver_status_code
35339: from pa_proj_element_versions pev
35337: where exists(
35338: select pev.task_unpub_ver_status_code
35339: from pa_proj_element_versions pev
35340: where pev.proj_element_id = p_pa_task_id
35341: and pev.object_type = 'PA_TASKS'
35342: and pev.task_unpub_ver_status_code in ('PUBLISHED','TO_BE_DELETED'));
35343: -- End fix for Bug 5263429
35344: -- End fix for Bug # 4096218 : 09-AUG-2005.
35345:
35547: IF l_amg_task_number IS NULL -- It means ,task is only in current working version,not in any previous pub. versions
35548: THEN
35549: -- It can be deleted, there is no need to mark it for deletion.
35550: l_check_task_mfd_flag := 'Y';
35551: ELSE -- Task exists in prior published version and it has entry in pa_tasks.
35552: -- So, Mark it for deletion ,so that it can be deleted in publishing flow
35553:
35554: /* This API call marks the task for deletion in OP
35555: PA_TASK_PVT1.update_task_ver_delete_status(
37980: cursor c_newly_added_tasks(l_published_version IN NUMBER,l_prev_published_version IN NUMBER) is
37981: select proj_element_id
37982: from pa_proj_element_versions
37983: where project_id = P_PA_PROJECT_ID
37984: and object_type = 'PA_TASKS'
37985: and PARENT_STRUCTURE_VERSION_ID = l_published_version
37986: MINUS
37987: select proj_element_id
37988: from pa_proj_element_versions
37986: MINUS
37987: select proj_element_id
37988: from pa_proj_element_versions
37989: where project_id = P_PA_PROJECT_ID
37990: and object_type = 'PA_TASKS'
37991: and PARENT_STRUCTURE_VERSION_ID = l_prev_published_version;
37992:
37993:
37994: BEGIN
38002: FOR rec IN c_newly_added_tasks(l_published_version, l_prev_published_version) LOOP
38003: FOR i IN p_task_id_tbl.FIRST .. p_task_id_tbl.LAST LOOP
38004: IF p_task_id_tbl(i) = rec.proj_element_id THEN
38005:
38006: UPDATE pa_tasks
38007: SET service_type_code = nvl(p_service_type_code_tbl(i),service_type_code), -- 7525628
38008: chargeable_flag = nvl(p_chargeable_flag_tbl(i),chargeable_flag), -- 7525628
38009: billable_flag = nvl(p_billable_flag_tbl(i),billable_flag) -- 7525628
38010: WHERE task_id = p_task_id_tbl(i);