[Home] [Help]
1356: AND l_class_categories(j).class_code IS NOT NULL
1357: THEN
1358: l_class_code_categories := 1;
1359: -- check whether the class category and class code combination is a valid one
1360: IF pa_project_pvt.check_class_code_valid(l_class_categories(j).class_category,
1361: l_class_categories(j).class_code) = 'N'
1362: THEN
1363: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1364: THEN
2024:
2025: IF l_project_in_rec.distribution_rule <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
2026: AND l_project_in_rec.distribution_rule IS NOT NULL
2027: THEN
2028: IF pa_project_pvt.check_valid_dist_rule
2029: (l_source_project_type,
2030: l_project_in_rec.distribution_rule,
2031: l_project_in_rec.enable_top_task_inv_mth_flag ) = 'N' --Bug 3279981
2032: THEN
2050:
2051: IF l_project_in_rec.carrying_out_organization_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2052: AND l_project_in_rec.carrying_out_organization_id IS NOT NULL
2053: THEN
2054: IF pa_project_pvt.check_valid_org
2055: (l_project_in_rec.carrying_out_organization_id) = 'N'
2056: THEN
2057: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2058: THEN
2338: l_project_in_rec.project_status_code :=
2339: pa_project_stus_utils.Get_Default_Starting_Status
2340: (x_project_type => l_source_project_type);
2341: ELSE
2342: IF pa_project_pvt.check_valid_project_status
2343: ( p_project_status => l_project_in_rec.project_status_code ) = 'N'
2344: THEN
2345: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2346: THEN
3282:
3283: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3284: THEN
3285:
3286: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
3287: THEN
3288:
3289: pa_interface_utils_pub.map_new_amg_msg('PA_COPY_PROJECT_FAILED','CHANGE','N',
3290: 'PROJ',l_project_in_rec.pm_project_reference,
3785:
3786: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3787: THEN
3788:
3789: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
3790: THEN
3791: pa_interface_utils_pub.map_new_amg_msg
3792: ( p_old_message_code => 'PA_GET_CUSTOMER_INFO_FAILED'
3793: ,p_msg_attribute => 'CHANGE'
3969:
3970: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3971: THEN
3972:
3973: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
3974: THEN
3975: pa_interface_utils_pub.map_new_amg_msg
3976: ( p_old_message_code => 'PA_CREATE_CONTACTS_FAILED'
3977: ,p_msg_attribute => 'CHANGE'
4190: i := l_key_members.next(i);
4191:
4192: END LOOP;
4193:
4194: pa_project_pvt.add_key_members(l_return_status
4195: ,l_project_in_rec.created_from_project_id
4196: ,l_project_id
4197: ,l_key_members
4198: );
4294: i := l_org_roles.next(i);
4295:
4296: END LOOP;
4297:
4298: pa_project_pvt.add_org_roles(l_return_status
4299: ,l_project_in_rec.created_from_project_id
4300: ,l_project_id
4301: ,l_org_roles
4302: );
4325: THEN
4326:
4327: --checking for overridability is done in the called procedure add_class_categories
4328:
4329: pa_project_pvt.add_class_categories(l_return_status
4330: ,l_project_in_rec.created_from_project_id
4331: ,l_project_id
4332: ,p_class_categories
4333: );
4374: END IF;
4375: */
4376:
4377: --Project Connect 4.0
4378: PA_PROJECT_PVT.get_structure_version(
4379: p_project_id => l_project_id
4380: ,p_structure_versions_out => g_struc_out_tbl
4381: );
4382:
4483: p_tasks_out(i).return_status := FND_API.G_RET_STS_SUCCESS;
4484:
4485: l_task_in_rec := p_tasks_in(i);
4486:
4487: pa_project_pvt.validate_billing_info (
4488: p_project_id =>l_project_id, -- Added for Bug 5643876
4489: p_project_class_code =>l_project_type_rec.project_type_class_code,
4490: p_in_task_rec =>l_task_in_rec,
4491: p_return_status =>l_return_status
4560: END IF;
4561:
4562: /*Code addition for bug 2982057 ends*/
4563:
4564: pa_project_pvt.add_task_round_one(l_return_status
4565: ,l_project_rec
4566: ,l_task_in_rec
4567: ,l_project_type_rec.project_type_class_code
4568: ,l_project_type_rec.service_type_code
4598:
4599: --get the unique task ID for this task
4600: l_task_id := p_tasks_out(i).pa_task_id;
4601:
4602: pa_project_pvt.add_task_round_two(l_return_status
4603: ,l_project_rec
4604: ,l_task_id
4605: ,l_task_in_rec
4606: --project structures
4845:
4846: END IF; --p_tasks_in.exists(i)
4847:
4848: -- Bug 5622539
4849: pa_project_pvt.validate_data(
4850: p_calling_context => 'CREATE_PROJECT',
4851: p_project_id => l_project_id,
4852: x_msg_count => l_msg_count,
4853: x_msg_data => l_msg_data,
4968: l_d_loop_count := p_tasks_in.first;
4969: WHILE l_d_loop_count IS NOT NULL LOOP
4970: l_task_in_rec := p_tasks_in(l_d_loop_count);
4971:
4972: /*PA_PROJECT_PVT.CONVERT_PM_TASKREF_TO_ID(p_pa_project_id => p_project_out.pa_project_id
4973: ,p_pm_task_reference => l_task_in_rec.pm_task_reference
4974: ,p_out_task_id => l_d_task_id
4975: ,p_return_status => l_return_status);*/
4976:
4988: IF l_d_task_id IS NULL AND
4989: l_task_in_rec.pm_task_reference IS NOT NULL AND
4990: l_task_in_rec.pm_task_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
4991: THEN
4992: PA_PROJECT_PVT.CONVERT_PM_TASKREF_TO_ID_all(p_pa_project_id => l_project_id
4993: ,p_pm_task_reference => l_task_in_rec.pm_task_reference
4994: ,p_structure_type => p_structure_in.structure_type
4995: ,p_out_task_id => l_d_task_id
4996: ,p_return_status => l_return_status);
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
5734: l_allow_cross_charge_flag VARCHAR(1) := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
5735: l_cc_process_labor_flag VARCHAR(1) := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
5736: l_labor_tp_schedule_id NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM;
5737: l_labor_tp_fixed_date DATE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE;
5819:
5820: --Moved from below for bug 2471668
5821: -- get the project ID
5822:
5823: PA_PROJECT_PVT.Convert_pm_projref_to_id
5824: ( p_pm_project_reference => p_pm_project_reference
5825: , p_pa_project_id => p_pa_project_id
5826: , p_out_project_id => l_project_id
5827: , p_return_status => l_return_status
6002: it is converted and l_project_id is used subsequently.
6003: --bug 2471668
6004: -- get the project ID
6005:
6006: PA_PROJECT_PVT.Convert_pm_projref_to_id
6007: ( p_pm_project_reference => p_pm_project_reference
6008: , p_pa_project_id => p_pa_project_id
6009: , p_out_project_id => l_project_id
6010: , p_return_status => l_return_status
6193: CLOSE cur_get_proj_billing_info;
6194:
6195: IF 'Y' = l_proj_top_task_inv_mth_flag
6196: AND p_invoice_method IS NOT NULL AND p_invoice_method <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
6197: IF pa_project_pvt.check_valid_dist_rule
6198: ( l_proj_type,
6199: l_proj_revenue_acc_method||'/'||p_invoice_method,
6200: l_proj_top_task_inv_mth_flag ) = 'N' THEN
6201: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6587:
6588: --Begin change by rtarway for BUG 3661788, use Convert_pm_taskref_to_id_all to get task id instead of using l_task_ref_to_id_csr
6589: --OPEN l_task_ref_to_id_csr(l_project_id,p_pm_parent_task_reference);
6590: --FETCH l_task_ref_to_id_csr INTO l_ref_task_id;
6591: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all
6592: (
6593: p_pa_project_id => l_project_id ,
6594: p_structure_type => l_structure_type,
6595: p_pm_task_reference => p_pm_parent_task_reference ,
6736:
6737: --ROUND TRIP 1
6738:
6739:
6740: pa_project_pvt.add_task_round_one(p_return_status => l_return_status
6741: ,p_project_rec => l_project_rec
6742: ,p_task_rec => l_task_in_rec
6743: ,p_project_type_class_code => l_project_type_rec.project_type_class_code
6744: ,p_service_type_code => l_project_type_rec.service_type_code
6769:
6770:
6771: --ROUND TRIP 2
6772:
6773: pa_project_pvt.add_task_round_two(p_return_status => l_return_status
6774: ,p_project_rec => l_project_rec
6775: ,p_task_id => l_task_id
6776: ,p_task_rec => l_task_in_rec
6777: --Project structures
6861: END IF;
6862:
6863: -- FP-M Bug # 3301192 --add_task
6864: /*
6865: PA_PROJECT_PVT.CONVERT_PM_TASKREF_TO_ID(p_pa_project_id => p_pa_project_id
6866: ,p_pm_task_reference => l_task_in_rec.pm_task_reference
6867: ,p_out_task_id => l_d_task_id
6868: ,p_return_status => l_return_status);
6869: */
6875: THEN
6876:
6877: /* Start commenting out the following code for issue in bug # 3663166.
6878:
6879: PA_PROJECT_PVT.CONVERT_PM_TASKREF_TO_ID_all(p_pa_project_id => p_pa_project_id
6880: ,p_pm_task_reference => l_task_in_rec.pm_task_reference
6881: ,p_out_task_id => l_d_task_id
6882: ,p_return_status => l_return_status);
6883:
7474: --called from the private API. But I discussed with Sakthi and he is ok to ca ll this
7475: --twice once here and second time in private API. The idea is to make the adv anced security changes
7476: --only in public APIs.
7477:
7478: PA_PROJECT_PVT.Convert_pm_projref_to_id
7479: ( p_pm_project_reference => p_pm_project_reference
7480: , p_pa_project_id => p_pa_project_id
7481: , p_out_project_id => l_project_id
7482: , p_return_status => l_return_status
7654: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7655: END ;
7656: */
7657:
7658: pa_project_pvt.delete_task1
7659: ( p_api_version_number => p_api_version_number
7660: ,p_commit => FND_API.G_FALSE--bug 3766967
7661: ,p_init_msg_list => p_init_msg_list
7662: ,p_msg_count => p_msg_count
10900: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10901: END IF;
10902:
10903:
10904: Pa_project_pvt.Convert_pm_projref_to_id (
10905: p_pm_project_reference => p_project_in.pm_project_reference,
10906: p_pa_project_id => p_project_in.pa_project_id,
10907: p_out_project_id => l_project_id,
10908: p_return_status => l_return_status );
10976:
10977: /* Moving this code before doing security check for bug 2471668
10978: -- convert pm_project_reference to id
10979:
10980: Pa_project_pvt.Convert_pm_projref_to_id (
10981: p_pm_project_reference => p_project_in.pm_project_reference,
10982: p_pa_project_id => p_project_in.pa_project_id,
10983: p_out_project_id => l_project_id,
10984: p_return_status => l_return_status );
11234: THEN
11235:
11236: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11237: THEN
11238: IF NOT pa_project_pvt.check_valid_message (l_err_stage)
11239: THEN
11240: pa_interface_utils_pub.map_new_amg_msg
11241: ( p_old_message_code => 'PA_CANT_CHANGE_PROJ_NUM'
11242: ,p_msg_attribute => 'CHANGE'
11493: AND p_project_in.carrying_out_organization_id IS NOT NULL THEN
11494: IF p_project_in.carrying_out_organization_id <>
11495: l_project_rec.carrying_out_organization_id THEN
11496: -- check whether this is a valid organization
11497: IF pa_project_pvt.check_valid_org
11498: (p_project_in.carrying_out_organization_id) = 'N' THEN
11499: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11500: THEN
11501: pa_interface_utils_pub.map_new_amg_msg
11564: ,X_err_stack => l_err_stack );
11565:
11566: IF l_err_code > 0 THEN
11567: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
11568: IF NOT pa_project_pvt.check_valid_message (l_err_stage) THEN
11569: pa_interface_utils_pub.map_new_amg_msg
11570: ( p_old_message_code => 'PA_PR_CANT_CHG_PROJ_TYPE'
11571: ,p_msg_attribute => 'CHANGE'
11572: ,p_resize_flag => 'N'
11687:
11688: THEN
11689:
11690: -- Verify whether the dist rule is a valid one
11691: IF pa_project_pvt.check_valid_dist_rule
11692: (l_project_rec.project_type,
11693: p_project_in.distribution_rule,
11694: p_project_in.enable_top_task_inv_mth_flag ) = 'N' --Bug 3279981
11695: THEN
11722: THEN
11723:
11724: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11725: THEN
11726: IF NOT pa_project_pvt.check_valid_message (l_err_stage)
11727: THEN
11728: pa_interface_utils_pub.map_new_amg_msg
11729: ( p_old_message_code => 'PA_CANT_CHANGE_DIST_RULE'
11730: ,p_msg_attribute => 'CHANGE'
11813: AND p_project_in.project_status_code IS NOT NULL --NULL will be ignored
11814: THEN
11815: IF p_project_in.project_status_code <>
11816: l_project_rec.project_status_code THEN
11817: IF pa_project_pvt.check_valid_project_status
11818: (p_project_status => p_project_in.project_status_code ) = 'N'
11819: THEN
11820: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
11821: pa_interface_utils_pub.map_new_amg_msg
11866: END IF;
11867:
11868: -- Bug 503976 Project Completion is set to default g_miss_date ... Ends
11869:
11870: pa_project_pvt.check_start_end_date
11871: (p_old_start_date => l_project_rec.start_date
11872: ,p_new_start_date => l_project_start_date
11873: ,p_old_end_date => l_project_rec.completion_date
11874: ,p_new_end_date => l_project_completion_date
13109: /*Commenting till here for bug 2802984 */
13110:
13111: /* Code for the bug 2802984 starts*/
13112:
13113: pa_project_pvt.Check_Schedule_type
13114: (p_pa_task_id => '',
13115: p_pa_project_id => l_project_id,
13116: p_in_labor_sch_type => p_project_in.labor_sch_type,
13117: p_in_nl_sch_type => p_project_in.non_labor_sch_type,
13131: RAISE FND_API.G_EXC_ERROR;
13132: END IF;
13133:
13134:
13135: pa_project_pvt.validate_schedule_values
13136: (p_pa_project_id => l_project_id,
13137: p_pa_task_id => '',
13138: p_task_name => '',
13139: p_pm_task_reference => '',
16566: END IF;
16567:
16568: ELSE --if task_id is given, check it's validity
16569: --pambu1('Check Task ID validity');
16570: -- Bug 5262740 Changed pa_project_pvt.convert_pm_taskref_to_id call to
16571: -- pa_project_pvt.convert_pm_taskref_to_id_all
16572: pa_project_pvt.convert_pm_taskref_to_id_all
16573: (p_pa_project_id => l_project_id
16574: ,p_structure_type => l_structure_type
16567:
16568: ELSE --if task_id is given, check it's validity
16569: --pambu1('Check Task ID validity');
16570: -- Bug 5262740 Changed pa_project_pvt.convert_pm_taskref_to_id call to
16571: -- pa_project_pvt.convert_pm_taskref_to_id_all
16572: pa_project_pvt.convert_pm_taskref_to_id_all
16573: (p_pa_project_id => l_project_id
16574: ,p_structure_type => l_structure_type
16575: ,p_pa_task_id => p_tasks_in(i).pa_task_id
16568: ELSE --if task_id is given, check it's validity
16569: --pambu1('Check Task ID validity');
16570: -- Bug 5262740 Changed pa_project_pvt.convert_pm_taskref_to_id call to
16571: -- pa_project_pvt.convert_pm_taskref_to_id_all
16572: pa_project_pvt.convert_pm_taskref_to_id_all
16573: (p_pa_project_id => l_project_id
16574: ,p_structure_type => l_structure_type
16575: ,p_pa_task_id => p_tasks_in(i).pa_task_id
16576: ,p_pm_task_reference => NULL
16679: IF (p_tasks_in(i).pa_parent_task_id IS NOT NULL AND p_tasks_in(i).pa_parent_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) OR
16680: (p_tasks_in(i).pm_parent_task_reference IS NOT NULL
16681: AND p_tasks_in(i).pm_parent_task_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
16682: THEN
16683: -- Bug 5262740 Changed pa_project_pvt.convert_pm_taskref_to_id call to
16684: -- pa_project_pvt.convert_pm_taskref_to_id_all
16685: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all
16686: ( p_pa_project_id => l_project_id
16687: , p_structure_type => l_structure_type
16680: (p_tasks_in(i).pm_parent_task_reference IS NOT NULL
16681: AND p_tasks_in(i).pm_parent_task_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
16682: THEN
16683: -- Bug 5262740 Changed pa_project_pvt.convert_pm_taskref_to_id call to
16684: -- pa_project_pvt.convert_pm_taskref_to_id_all
16685: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all
16686: ( p_pa_project_id => l_project_id
16687: , p_structure_type => l_structure_type
16688: , p_pa_task_id => p_tasks_in(i).pa_parent_task_id
16681: AND p_tasks_in(i).pm_parent_task_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
16682: THEN
16683: -- Bug 5262740 Changed pa_project_pvt.convert_pm_taskref_to_id call to
16684: -- pa_project_pvt.convert_pm_taskref_to_id_all
16685: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all
16686: ( p_pa_project_id => l_project_id
16687: , p_structure_type => l_structure_type
16688: , p_pa_task_id => p_tasks_in(i).pa_parent_task_id
16689: , p_pm_task_reference => p_tasks_in(i).pm_parent_task_reference
16710:
16711: IF l_err_code <> 0
16712: THEN
16713: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
16714: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
16715: THEN
16716: pa_interface_utils_pub.map_new_amg_msg
16717: ( p_old_message_code => 'PA_CHECK_ADD_SUBTASK_FAILED'
16718: ,p_msg_attribute => 'CHANGE'
16750: else
16751: l_task_rec.long_task_name :=l_task_rec.long_task_name;
16752: end if;
16753: /* Code addition for bug 2982057 ends */
16754: PA_PROJECT_PVT.add_task_round_one
16755: (p_return_status => l_return_status,
16756: p_project_rec => l_project_rec,
16757: p_task_rec => l_task_rec,
16758: p_project_type_class_code => l_project_type_class_code,
16807: -- process the next task in the array
16808:
16809: --------------------------------------------------------------------------------
16810: l_proceed_with_update_flag := 'Y';
16811: ----dbms_output.put_line('calling pa_project_pvt.handle_task_number_changes l_task_id'||l_task_id);
16812: ----dbms_output.put_line('value of p_tasks_in(i).pa_task_number'||p_tasks_in(i).pa_task_number);
16813:
16814: pa_project_pvt.handle_task_number_change
16815: (p_project_id => l_project_id,
16810: l_proceed_with_update_flag := 'Y';
16811: ----dbms_output.put_line('calling pa_project_pvt.handle_task_number_changes l_task_id'||l_task_id);
16812: ----dbms_output.put_line('value of p_tasks_in(i).pa_task_number'||p_tasks_in(i).pa_task_number);
16813:
16814: pa_project_pvt.handle_task_number_change
16815: (p_project_id => l_project_id,
16816: p_task_id => l_task_id,
16817: p_array_cell_number => i,
16818: p_in_task_number => p_tasks_in(i).pa_task_number,
16859: AND p_structure_in.structure_type = 'FINANCIAL'
16860:
16861: THEN
16862:
16863: -- Bug 5262740 Changed pa_project_pvt.convert_pm_taskref_to_id call to
16864: -- pa_project_pvt.convert_pm_taskref_to_id_all
16865: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all
16866: ( p_pa_project_id => l_project_id
16867: , p_structure_type => l_structure_type
16860:
16861: THEN
16862:
16863: -- Bug 5262740 Changed pa_project_pvt.convert_pm_taskref_to_id call to
16864: -- pa_project_pvt.convert_pm_taskref_to_id_all
16865: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all
16866: ( p_pa_project_id => l_project_id
16867: , p_structure_type => l_structure_type
16868: , p_pa_task_id => p_tasks_in(i).pa_parent_task_id
16861: THEN
16862:
16863: -- Bug 5262740 Changed pa_project_pvt.convert_pm_taskref_to_id call to
16864: -- pa_project_pvt.convert_pm_taskref_to_id_all
16865: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all
16866: ( p_pa_project_id => l_project_id
16867: , p_structure_type => l_structure_type
16868: , p_pa_task_id => p_tasks_in(i).pa_parent_task_id
16869: , p_pm_task_reference => p_tasks_in(i).pm_parent_task_reference
17458: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
17459: p_msg_name => 'PA_WBS_CANT_CHANGE');
17460: RAISE FND_API.G_EXC_ERROR;
17461: END IF;
17462: PA_PROJECT_PVT.add_task_round_one
17463: (p_return_status => l_return_status,
17464: p_project_rec => l_project_rec,
17465: p_task_rec => l_task_rec,
17466: p_project_type_class_code => l_project_type_class_code,
17467: p_service_type_code => l_service_type_code,
17468: p_task_id => l_task_id);
17469:
17470: IF l_debug_mode = 'Y' THEN
17471: pa_debug.g_err_stage := 'After PA_PROJECT_PVT.add_task_round_one...l_return_status=||l_return_status';
17472: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
17473: END IF;
17474:
17475:
17506: -- Change required here for bug 3548473 : 3627124 (modifying the changes done for bug 2931183) :
17507: /*
17508: 1. Check if the user wants to pass the entire struct or single tasks.
17509: 2. If pass_entire_struct param is 'Y', let the prog flow be as it is now.
17510: 3. If the pass_entire_struct param is 'N', then call PA_PROJECT_PVT.add_task_round_two with
17511: p_create_task_structure => 'Y' parameter.
17512: */
17513: /* The code below was added for Bug 3841742 : 3857419 .This is to ensure that add_task_round_two is called
17514: for all the tasks that have inserted through add_task_round_one for updating wbs_level, top_task_id and
17518: IF (l_task_rec.pa_parent_task_id IS NOT NULL AND l_task_rec.pa_parent_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) OR
17519: (l_task_rec.pm_parent_task_reference IS NOT NULL
17520: AND l_task_rec.pm_parent_task_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
17521: THEN
17522: -- Bug 5262740 Changed pa_project_pvt.convert_pm_taskref_to_id call to
17523: -- pa_project_pvt.convert_pm_taskref_to_id_all
17524: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all
17525: ( p_pa_project_id => l_project_id
17526: , p_structure_type => l_structure_type
17519: (l_task_rec.pm_parent_task_reference IS NOT NULL
17520: AND l_task_rec.pm_parent_task_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
17521: THEN
17522: -- Bug 5262740 Changed pa_project_pvt.convert_pm_taskref_to_id call to
17523: -- pa_project_pvt.convert_pm_taskref_to_id_all
17524: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all
17525: ( p_pa_project_id => l_project_id
17526: , p_structure_type => l_structure_type
17527: , p_pa_task_id => l_task_rec.pa_parent_task_id
17520: AND l_task_rec.pm_parent_task_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
17521: THEN
17522: -- Bug 5262740 Changed pa_project_pvt.convert_pm_taskref_to_id call to
17523: -- pa_project_pvt.convert_pm_taskref_to_id_all
17524: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all
17525: ( p_pa_project_id => l_project_id
17526: , p_structure_type => l_structure_type
17527: , p_pa_task_id => l_task_rec.pa_parent_task_id
17528: , p_pm_task_reference => l_task_rec.pm_parent_task_reference
17556: WHERE task_id = l_task_id_tbl(i).pa_task_id;
17557: END IF;
17558:
17559:
17560: PA_PROJECT_PVT.add_task_round_two
17561: (p_return_status => l_return_status,
17562: p_project_rec => l_project_rec,
17563: p_task_id => l_task_id_tbl(i).pa_task_id,
17564: p_task_rec => l_task_rec,
17571: --project structure
17572: ); -- modified p_update_task_structure value for bug 3548473 : 3627124
17573:
17574: IF l_debug_mode = 'Y' THEN
17575: pa_debug.g_err_stage := 'After calling PA_PROJECT_PVT.add_task_round_two l_return_status='||l_return_status;
17576: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
17577: END IF;
17578:
17579:
18209:
18210: IF l_structure_version_id IS NULL OR l_structure_version_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
18211: THEN
18212:
18213: PA_PROJECT_PVT.get_structure_version(
18214: p_project_id => l_project_id
18215: ,p_structure_versions_out => g_struc_out_tbl
18216: );
18217:
18359:
18360: -- Call the api to check the task dates
18361:
18362: If G_ParChildTsk_chks_deferred = 'Y' THEN
18363: Pa_project_pvt.check_parent_child_task_dates
18364: (p_project_id => l_project_id,
18365: p_return_status => l_return_status );
18366:
18367: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
18462: END IF;
18463: END IF;
18464: END IF;
18465:
18466: pa_project_pvt.check_for_one_manager
18467: (l_project_id,
18468: p_key_members(i).person_id,
18469: p_key_members,
18470: p_key_members(i).start_date,
18644: RAISE FND_API.G_EXC_ERROR;
18645: END IF;
18646:
18647: IF l_key_members_tbl.COUNT > 0 THEN
18648: PA_PROJECT_PVT.add_key_members (
18649: p_return_status =>l_return_status,
18650: p_pa_source_template_id =>l_project_rec.created_from_project_id,
18651: p_project_id =>l_project_id,
18652: p_key_members =>l_key_members_tbl );
18858: RAISE FND_API.G_EXC_ERROR;
18859: END IF;
18860:
18861: IF l_org_roles_tbl.COUNT > 0 THEN
18862: PA_PROJECT_PVT.add_org_roles (
18863: p_return_status =>l_return_status,
18864: p_pa_source_template_id =>l_project_rec.created_from_project_id,
18865: p_project_id =>l_project_id,
18866: p_org_roles =>l_org_roles_tbl );
19029:
19030: IF l_class_categories_tbl.exists(i)
19031: THEN
19032:
19033: PA_PROJECT_PVT.add_class_categories ( p_return_status =>l_return_status
19034: , p_pa_source_template_id =>l_project_rec.created_from_project_id
19035: , p_project_id =>l_project_id
19036: , p_class_categories =>l_class_categories_tbl );
19037:
19285:
19286: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
19287: THEN
19288:
19289: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
19290: THEN
19291: pa_interface_utils_pub.map_new_amg_msg
19292: ( p_old_message_code => 'PA_GET_CUSTOMER_INFO_FAILED'
19293: ,p_msg_attribute => 'CHANGE'
19934:
19935: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
19936: THEN
19937:
19938: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
19939: THEN
19940: pa_interface_utils_pub.map_new_amg_msg
19941: ( p_old_message_code => 'PA_GET_CUSTOMER_INFO_FAILED'
19942: ,p_msg_attribute => 'CHANGE'
20206:
20207: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
20208: THEN
20209:
20210: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
20211: THEN
20212: pa_interface_utils_pub.map_new_amg_msg
20213: ( p_old_message_code => 'PA_CREATE_CONTACTS_FAILED'
20214: ,p_msg_attribute => 'CHANGE'
20524:
20525: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
20526: THEN
20527:
20528: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
20529: THEN
20530: pa_interface_utils_pub.map_new_amg_msg
20531: ( p_old_message_code => 'PA_GET_CUSTOMER_INFO_FAILED'
20532: ,p_msg_attribute => 'CHANGE'
20803:
20804: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
20805: THEN
20806:
20807: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
20808: THEN
20809: pa_interface_utils_pub.map_new_amg_msg
20810: ( p_old_message_code => 'PA_CREATE_CONTACTS_FAILED'
20811: ,p_msg_attribute => 'CHANGE'
20896: END IF;
20897: END IF;
20898:
20899: -- Bug 5622539
20900: pa_project_pvt.validate_data(
20901: p_calling_context => 'UPDATE_PROJECT',
20902: p_project_id => l_project_id,
20903: x_msg_count => x_msg_count,
20904: x_msg_data => x_msg_data,
21352: --maansari5/18 replaced api call CONVERT_PM_TASKREF_TO_ID to CONVERT_PM_TASKREF_TO_ID_all
21353: IF l_d_task_id IS NULL AND l_task_in_rec.pm_task_reference IS NOT NULL AND
21354: l_task_in_rec.pm_task_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
21355: THEN
21356: PA_PROJECT_PVT.CONVERT_PM_TASKREF_TO_ID_all(p_pa_project_id => l_project_id
21357: ,p_pm_task_reference => l_task_in_rec.pm_task_reference
21358: ,p_structure_type => l_structure_type
21359: ,p_out_task_id => l_d_task_id
21360: ,p_return_status => l_return_status);
22512: G_OP_VALIDATE_FLAG := p_op_validate_flag;
22513: end if;
22514:
22515: --bug 3880482
22516: PA_PROJECT_PVT.Convert_pm_projref_to_id
22517: ( p_pm_project_reference => p_pm_project_reference
22518: , p_pa_project_id => p_pa_project_id
22519: , p_out_project_id => l_project_id
22520: , p_return_status => l_return_status
22538: if (p_pa_task_id is not null and p_pa_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM )
22539: then l_pa_task_id := p_pa_task_id;
22540: end if;
22541: --Also Validate task id
22542: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all
22543: (
22544: p_pa_project_id => l_project_id ,
22545: p_structure_type => l_structure_type,
22546: p_pa_task_id => p_pa_task_id ,
22696:
22697: --Begin change by rtarway for BUG 3661788, use Convert_pm_taskref_to_id_all to get task id instead of using l_task_ref_to_id_csr
22698: --OPEN l_task_ref_to_id_csr(l_project_id,p_pm_parent_task_reference);
22699: --FETCH l_task_ref_to_id_csr INTO l_ref_task_id;
22700: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all
22701: (
22702: p_pa_project_id => l_project_id ,
22703: p_structure_type => l_structure_type, --Bug#3747312 p_structure_type,
22704: p_pm_task_reference => p_pm_parent_task_reference ,
22747: IF 'Y' = l_proj_top_task_inv_mth_flag THEN
22748: IF ( p_invoice_method IS NOT NULL AND p_invoice_method <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR )
22749: --changed p_pa_task_id to l_pa_task_id, 3919800, rtarway
22750: AND PA_BILLING_CORE.Update_Top_Task_Invoice_Method( l_project_id, l_pa_task_id ) = 'Y' THEN
22751: IF pa_project_pvt.check_valid_dist_rule
22752: ( l_proj_type,
22753: l_proj_revenue_acc_method||'/'||p_invoice_method,
22754: l_proj_top_task_inv_mth_flag ) = 'N' THEN
22755: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
23150:
23151: --project structures
23152: ----dbms_output.put_line('value OF p_task_number BEFORE UPDATE_ONE_TASK'||p_task_number);
23153:
23154: PA_PROJECT_PVT.Update_One_Task (
23155: p_api_version_number => p_api_version_number,
23156: p_commit => FND_API.G_FALSE,
23157: p_msg_count => p_msg_count,
23158: p_msg_data => p_msg_data,
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: (
23554: p_api_version_number => p_api_version_number,
23555: p_commit => FND_API.G_FALSE,
23556: p_msg_count => p_msg_count,
23951: -- PA L Changes 3010538
23952:
23953: -- FP-M Bug # 3301192 update task
23954: /*
23955: PA_PROJECT_PVT.CONVERT_PM_TASKREF_TO_ID(p_pa_project_id => p_pa_project_id
23956: ,p_pm_task_reference => p_pm_task_reference
23957: ,p_out_task_id => l_d_task_id
23958: ,p_return_status => l_return_status);
23959: */
23961: IF (PA_PROJ_TASK_STRUC_PUB.WP_STR_EXISTS(l_project_id) = 'Y') THEN --Bug#3747312
23962:
23963: IF l_d_task_id IS NULL AND p_pm_task_reference IS NOT NULL AND p_pm_task_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
23964: THEN
23965: PA_PROJECT_PVT.CONVERT_PM_TASKREF_TO_ID_all(p_pa_project_id => l_project_id --Bug#3747312 p_pa_project_id
23966: ,p_pm_task_reference => p_pm_task_reference
23967: ,p_out_task_id => l_d_task_id
23968: ,p_return_status => l_return_status);
23969: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
24293: --called from the private API. But I discussed with Sakthi and he is ok to call this
24294: --twice once here and second time in private API. The idea is to make the advanced security changes
24295: --only in public APIs.
24296:
24297: PA_PROJECT_PVT.Convert_pm_projref_to_id
24298: ( p_pm_project_reference => p_pm_project_reference
24299: , p_pa_project_id => p_pa_project_id
24300: , p_out_project_id => l_project_id
24301: , p_return_status => l_return_status
24311:
24312: PA_INTERFACE_UTILS_PUB.G_PROJECt_ID := l_project_id; --bug 2471668 ( in the project context )
24313: --end of bug 2471668
24314:
24315: pa_project_pvt.delete_project1
24316: (p_api_version_number => p_api_version_number
24317: ,p_commit => FND_API.G_FALSE--bug 3766967
24318: ,p_init_msg_list => p_init_msg_list
24319: ,p_msg_count => p_msg_count
25019:
25020: -- 4537865 : Initialize return status to success
25021: p_return_status := FND_API.G_RET_STS_SUCCESS ;
25022:
25023: pa_project_pvt.approve_project1
25024: ( p_api_version_number => p_api_version_number
25025: , p_commit => FND_API.G_FALSE--bug 3766967
25026: , p_init_msg_list => p_init_msg_list
25027: , p_msg_count => p_msg_count
28510: END IF;
28511:
28512: /* Converting project_reference to project_id */
28513:
28514: PA_PROJECT_PVT.Convert_pm_projref_to_id
28515: (p_pm_project_reference => p_pm_project_reference
28516: , p_pa_project_id => p_pa_project_id
28517: , p_out_project_id => l_project_id
28518: , p_return_status => l_return_status);
29597: END IF;
29598:
29599: -- validate the input parameters.
29600: -- Get the task and Project details based on source reference passed
29601: PA_PROJECT_PVT.Convert_pm_projref_to_id (
29602: p_pm_project_reference => p_proj_source_reference
29603: , p_pa_project_id => p_project_id
29604: , p_out_project_id => l_project_id
29605: , p_return_status => x_return_status
29615: RAISE FND_API.G_EXC_ERROR;
29616: END IF;
29617:
29618: IF ( l_task_id IS NOT NULL OR l_task_source_reference IS NOT NULL ) THEN
29619: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all (
29620: p_pa_project_id => l_project_id
29621: , p_structure_type => 'WORKPLAN'
29622: , p_pa_task_id => p_task_id
29623: , p_pm_task_reference => p_task_source_reference
30234: RAISE FND_API.G_EXC_ERROR;
30235: END IF;
30236:
30237: -- validate the input parameters.
30238: PA_PROJECT_PVT.Convert_pm_projref_to_id (
30239: p_pm_project_reference => p_pm_proj_reference -- 3729250 , earlier was passed as null
30240: , p_pa_project_id => p_project_id
30241: , p_out_project_id => l_project_id
30242: , p_return_status => x_return_status
30270: RAISE FND_API.G_EXC_ERROR;
30271: END IF;
30272:
30273: -- 3729250, Validate Financial Task Reference / ID
30274: -- PA_PROJECT_PVT.Convert_pm_taskref_to_id_all should only be called if either p_financial_task_id or
30275: -- p_financial_task_reference is passed
30276:
30277: IF ( ( p_financial_task_id IS NOT NULL AND p_financial_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM ) OR
30278: ( p_financial_task_reference IS NOT NULL AND p_financial_task_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR ) ) THEN
30276:
30277: IF ( ( p_financial_task_id IS NOT NULL AND p_financial_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM ) OR
30278: ( p_financial_task_reference IS NOT NULL AND p_financial_task_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR ) ) THEN
30279:
30280: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all (
30281: p_pa_project_id => l_project_id
30282: , p_structure_type => 'FINANCIAL'
30283: , p_pa_task_id => p_financial_task_id
30284: , p_pm_task_reference => p_financial_task_reference
30757: END IF;
30758:
30759: -- validate the input parameters.
30760: -- Get the task and Project details based on source reference passed
30761: PA_PROJECT_PVT.Convert_pm_projref_to_id (
30762: p_pm_project_reference => p_proj_source_reference
30763: , p_pa_project_id => p_project_id
30764: , p_out_project_id => l_project_id
30765: , p_return_status => x_return_status
30778: -- 3749447 Changed from p_task_id to l_task_id in if conditon
30779: -- also did the same change in below api's parameter passing
30780:
30781: IF ( l_task_id IS NOT NULL OR l_task_source_reference IS NOT NULL ) THEN
30782: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all (
30783: p_pa_project_id => l_project_id
30784: , p_structure_type => 'WORKPLAN'
30785: , p_pa_task_id => l_task_id
30786: , p_pm_task_reference => l_task_source_reference
31313: END IF;
31314:
31315: -- validate the input parameters.
31316: -- Validate Project reference/id
31317: PA_PROJECT_PVT.Convert_pm_projref_to_id (
31318: p_pm_project_reference => p_pm_proj_reference -- 3729250, earlier was passed as null
31319: , p_pa_project_id => p_project_id
31320: , p_out_project_id => l_project_id
31321: , p_return_status => x_return_status
31369: RAISE FND_API.G_EXC_ERROR;
31370: END IF;
31371:
31372: -- 3729250, Validate Financial Task Reference / ID
31373: -- PA_PROJECT_PVT.Convert_pm_taskref_to_id_all should only be called if either p_financial_task_id or
31374: -- p_financial_task_reference is passed
31375:
31376: IF ( ( p_financial_task_id IS NOT NULL AND p_financial_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM ) OR
31377: ( p_financial_task_reference IS NOT NULL AND p_financial_task_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR ) ) THEN
31374: -- p_financial_task_reference is passed
31375:
31376: IF ( ( p_financial_task_id IS NOT NULL AND p_financial_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM ) OR
31377: ( p_financial_task_reference IS NOT NULL AND p_financial_task_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR ) ) THEN
31378: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all (
31379: p_pa_project_id => l_project_id
31380: , p_structure_type => 'FINANCIAL'
31381: , p_pa_task_id => p_financial_task_id
31382: , p_pm_task_reference => p_financial_task_reference
31659: END IF;
31660:
31661: -- validate the input parameters.
31662: -- Validate Project Reference / ID
31663: PA_PROJECT_PVT.Convert_pm_projref_to_id (
31664: p_pm_project_reference => p_pm_project_reference
31665: , p_pa_project_id => p_project_id
31666: , p_out_project_id => l_project_id
31667: , p_return_status => x_return_status
31932: END IF;
31933:
31934: -- validate the input parameters.
31935: -- Validate Project Reference / ID
31936: PA_PROJECT_PVT.Convert_pm_projref_to_id (
31937: p_pm_project_reference => p_pm_project_reference
31938: , p_pa_project_id => p_project_id
31939: , p_out_project_id => l_project_id
31940: , p_return_status => x_return_status
32230: END IF;
32231:
32232: -- validate the input parameters.
32233: -- Validate Project Reference / ID
32234: PA_PROJECT_PVT.Convert_pm_projref_to_id (
32235: p_pm_project_reference => p_pm_project_reference
32236: , p_pa_project_id => p_project_id
32237: , p_out_project_id => l_project_id
32238: , p_return_status => x_return_status
32272: l_task_reference := p_task_reference;
32273: END IF;
32274:
32275: IF ( p_task_id IS NOT NULL OR l_task_reference IS NOT NULL ) THEN
32276: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all (
32277: p_pa_project_id => l_project_id
32278: , p_structure_type => 'WORKPLAN'
32279: , p_pa_task_id => p_task_id
32280: , p_pm_task_reference => p_task_reference
32519: END IF;
32520:
32521: -- validate the input parameters.
32522: -- Validate Project Reference / ID
32523: PA_PROJECT_PVT.Convert_pm_projref_to_id (
32524: p_pm_project_reference => p_pm_project_reference -- 3729250, earlier null was passed
32525: , p_pa_project_id => p_project_id
32526: , p_out_project_id => l_project_id
32527: , p_return_status => x_return_status
32548: RAISE FND_API.G_EXC_ERROR;
32549: END IF;
32550:
32551: -- Validate Task Reference / ID
32552: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all (
32553: p_pa_project_id => l_project_id
32554: , p_structure_type => 'WORKPLAN'
32555: , p_pa_task_id => p_task_id
32556: , p_pm_task_reference => p_pm_task_reference -- 3729250, earlier null was passed
32806: END IF;
32807:
32808: -- validate the input parameters.
32809: -- Validate Project Reference / ID
32810: PA_PROJECT_PVT.Convert_pm_projref_to_id (
32811: p_pm_project_reference => p_pm_project_reference -- 3729250, earlier was passed as null
32812: , p_pa_project_id => p_project_id
32813: , p_out_project_id => l_project_id
32814: , p_return_status => x_return_status
33089: END IF;
33090:
33091: -- validate the input parameters.
33092: -- Validate Project Reference / ID
33093: PA_PROJECT_PVT.Convert_pm_projref_to_id (
33094: p_pm_project_reference => p_pm_project_reference -- 3729250 , earlier null was passed
33095: , p_pa_project_id => p_project_id
33096: , p_out_project_id => l_project_id
33097: , p_return_status => x_return_status
33415: ( p_proj_source_reference IS NOT NULL AND p_proj_source_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR )
33416: )
33417: THEN
33418:
33419: PA_PROJECT_PVT.Convert_pm_projref_to_id (
33420: p_pm_project_reference => p_proj_source_reference
33421: , p_pa_project_id => p_project_id
33422: , p_out_project_id => l_project_id
33423: , p_return_status => x_return_status
33443: (p_pm_wp_task_reference IS NOT NULL AND p_pm_wp_task_reference <>PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
33444: )
33445: THEN
33446: --get the task id from task reference
33447: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all(
33448: p_pa_project_id => l_project_id
33449: ,p_structure_type => 'WORKPLAN'
33450: ,p_pm_task_reference => p_pm_wp_task_reference
33451: ,p_out_task_id => l_wp_task_id
33468: (p_pm_fp_task_reference IS NOT NULL AND p_pm_fp_task_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
33469: )
33470: THEN
33471: --get the task id from task reference
33472: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all(
33473: p_pa_project_id => l_project_id
33474: ,p_structure_type => 'FINANCIAL'
33475: ,p_pm_task_reference => p_pm_fp_task_reference
33476: ,p_out_task_id => l_fp_task_id
33773: p_project_id IS NULL
33774: AND ( p_proj_source_reference IS NOT NULL AND p_proj_source_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR )
33775: )
33776: THEN
33777: PA_PROJECT_PVT.Convert_pm_projref_to_id (
33778: p_pm_project_reference => p_proj_source_reference
33779: , p_pa_project_id => p_project_id
33780: , p_out_project_id => l_project_id
33781: , p_return_status => x_return_status
33799: AND
33800: (p_wkp_task_reference IS NOT NULL AND p_wkp_task_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
33801: )
33802: THEN
33803: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all (
33804: p_pa_project_id => l_project_id
33805: , p_structure_type => 'WORKPLAN'
33806: , p_pm_task_reference => p_wkp_task_reference
33807: , p_out_task_id => l_wkp_task_id
33824: AND
33825: l_mapped_task_reference IS NOT NULL
33826: )
33827: THEN
33828: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all (
33829: p_pa_project_id => l_project_id
33830: , p_structure_type => 'FINANCIAL'
33831: , p_pm_task_reference => p_mapped_task_reference
33832: , p_out_task_id => l_mapped_task_id
34124: AND
34125: ( p_proj_source_reference IS NOT NULL AND p_proj_source_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR )
34126: )
34127: THEN
34128: PA_PROJECT_PVT.Convert_pm_projref_to_id (
34129: p_pm_project_reference => p_proj_source_reference
34130: , p_pa_project_id => p_project_id
34131: , p_out_project_id => l_project_id
34132: , p_return_status => x_return_status
34148: AND
34149: (p_wkp_task_reference IS NOT NULL AND p_wkp_task_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
34150: )
34151: THEN
34152: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all (
34153: p_pa_project_id => l_project_id
34154: , p_structure_type => 'WORKPLAN'
34155: , p_pm_task_reference => p_wkp_task_reference
34156: , p_out_task_id => l_wkp_task_id
34173: AND
34174: (l_mapped_task_reference IS NOT NULL AND l_mapped_task_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
34175: )
34176: THEN
34177: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all (
34178: p_pa_project_id => l_project_id
34179: , p_structure_type => 'FINANCIAL'
34180: , p_pm_task_reference => p_mapped_task_reference
34181: , p_out_task_id => l_mapped_task_id
34379:
34380:
34381: -- Get the task and Project details based on source reference passed
34382: IF (p_project_id IS NULL AND p_proj_source_reference IS NOT NULL ) THEN
34383: PA_PROJECT_PVT.Convert_pm_projref_to_id (
34384: p_pm_project_reference => p_proj_source_reference
34385: , p_pa_project_id => p_project_id
34386: , p_out_project_id => l_project_id
34387: , p_return_status => x_return_status
34533: FND_MSG_PUB.Initialize;
34534: END IF;
34535:
34536: --get project id
34537: PA_PROJECT_PVT.Convert_pm_projref_to_id
34538: ( p_pm_project_reference => p_pm_project_reference
34539: , p_pa_project_id => p_pa_project_id
34540: , p_out_project_id => l_project_id
34541: , p_return_status => l_return_status
34791: FND_MSG_PUB.Initialize;
34792: END IF;
34793:
34794: --get project id
34795: PA_PROJECT_PVT.Convert_pm_projref_to_id
34796: ( p_pm_project_reference => p_pm_project_reference
34797: , p_pa_project_id => p_pa_project_id
34798: , p_out_project_id => l_project_id
34799: , p_return_status => l_return_status
35052: FND_MSG_PUB.Initialize;
35053: END IF;
35054:
35055: --get project id
35056: PA_PROJECT_PVT.Convert_pm_projref_to_id
35057: ( p_pm_project_reference => p_pm_project_reference
35058: , p_pa_project_id => p_pa_project_id
35059: , p_out_project_id => l_project_id
35060: , p_return_status => l_return_status
35403: l_pub_ver_exists :='N' ;
35404:
35405: -- Convert project reference to id.
35406:
35407: PA_PROJECT_PVT.Convert_pm_projref_to_id
35408: (p_pm_project_reference => p_pm_project_reference
35409: , p_pa_project_id => p_project_id
35410: , p_out_project_id => l_project_id
35411: , p_return_status => l_return_status);
35442: OR nvl(l_derive,'N') = 'Y'
35443: THEN
35444: -- Convert task reference to id.
35445:
35446: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all
35447: (p_pa_project_id => l_project_id
35448: , p_pa_task_id => p_task_id
35449: , p_pm_task_reference => p_pm_task_reference
35450: , p_out_task_id => l_task_id
35781: l_project_id := p_pa_project_id;
35782:
35783: ELSE
35784:
35785: PA_PROJECT_PVT.Convert_pm_projref_to_id
35786: ( p_pm_project_reference => p_pm_project_reference
35787: , p_pa_project_id => p_pa_project_id
35788: , p_out_project_id => l_project_id
35789: , p_return_status => l_return_status
36211: -- Initialize the return status
36212: x_return_status := FND_API.G_RET_STS_SUCCESS;
36213:
36214: -- Convert project reference to id.
36215: PA_PROJECT_PVT.Convert_pm_projref_to_id
36216: (p_pm_project_reference => p_pm_project_reference
36217: , p_pa_project_id => p_project_id
36218: , p_out_project_id => l_project_id
36219: , p_return_status => l_return_status);
36511: or (p_program_links_tbl(l_count).task_version_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)) then
36512:
36513: -- Convert parent project reference to id.
36514: if (l_exp_error_flag = 'N' and l_unexp_error_flag = 'N') then -- Indicates no errors thus far in the loop iteration.
36515: PA_PROJECT_PVT.Convert_pm_projref_to_id
36516: (p_pm_project_reference => p_program_links_tbl(l_count).pm_parent_project_reference
36517: , p_pa_project_id => p_program_links_tbl(l_count).parent_project_id
36518: , p_out_project_id => l_parent_project_id
36519: , p_return_status => l_return_status);
36527: end if;
36528:
36529: -- Convert task reference to id.
36530: if (l_exp_error_flag = 'N' and l_unexp_error_flag = 'N') then -- Indicates no errors thus far in the loop iteration.
36531: PA_PROJECT_PVT.CONVERT_PM_TASKREF_TO_ID_ALL
36532: (p_pa_project_id => l_parent_project_id
36533: , p_pm_task_reference => p_program_links_tbl(l_count).pm_task_reference
36534: , p_pa_task_id => p_program_links_tbl(l_count).task_id
36535: , p_structure_type => p_program_links_tbl(l_count).structure_type
36575: end if;
36576:
36577: -- Validate the task id and project id of the task version id.
36578: if (l_exp_error_flag = 'N' and l_unexp_error_flag = 'N') then -- Indicates no errors thus far in the loop iteration.
36579: PA_PROJECT_PVT.CONVERT_PM_TASKREF_TO_ID_ALL
36580: (p_pa_project_id => l_parent_project_id
36581: , p_pa_task_id => l_task_id
36582: , p_structure_type => p_program_links_tbl(l_count).structure_type
36583: , p_out_task_id => l_task_id
37108: or (p_program_links_tbl(l_count).task_version_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)) then
37109:
37110: -- Convert parent project reference to id.
37111: if (l_exp_error_flag = 'N' and l_unexp_error_flag = 'N') then -- Indicates no errors thus far in the loop iteration.
37112: PA_PROJECT_PVT.Convert_pm_projref_to_id
37113: (p_pm_project_reference => p_program_links_tbl(l_count).pm_parent_project_reference
37114: , p_pa_project_id => p_program_links_tbl(l_count).parent_project_id
37115: , p_out_project_id => l_parent_project_id
37116: , p_return_status => l_return_status);
37123: end if;
37124:
37125: -- Convert task reference to id
37126: if (l_exp_error_flag = 'N' and l_unexp_error_flag = 'N') then -- Indicates no errors thus far in the loop iteration.
37127: PA_PROJECT_PVT.CONVERT_PM_TASKREF_TO_ID_ALL
37128: (p_pa_project_id => l_parent_project_id
37129: , p_pm_task_reference => p_program_links_tbl(l_count).pm_task_reference
37130: , p_pa_task_id => p_program_links_tbl(l_count).task_id
37131: , p_structure_type => p_program_links_tbl(l_count).structure_type
37171: end if;
37172:
37173: -- Validate the task id and project id of the task version id.
37174: if (l_exp_error_flag = 'N' and l_unexp_error_flag = 'N') then -- Indicates no errors thus far in the loop iteration.
37175: PA_PROJECT_PVT.CONVERT_PM_TASKREF_TO_ID_ALL
37176: (p_pa_project_id => l_parent_project_id
37177: , p_pa_task_id => l_task_id
37178: , p_structure_type => p_program_links_tbl(l_count).structure_type
37179: , p_out_task_id => l_task_id
37648: if ((p_task_version_id is null)
37649: or (p_task_version_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)) then
37650:
37651: -- Convert parent project reference to id.
37652: PA_PROJECT_PVT.Convert_pm_projref_to_id
37653: (p_pm_project_reference => p_pm_parent_project_reference
37654: , p_pa_project_id => p_parent_project_id
37655: , p_out_project_id => l_parent_project_id
37656: , p_return_status => l_return_status);
37661: raise FND_API.G_EXC_ERROR;
37662: end if;
37663:
37664: -- Convert task reference to id
37665: PA_PROJECT_PVT.CONVERT_PM_TASKREF_TO_ID_ALL
37666: (p_pa_project_id => l_parent_project_id
37667: , p_pm_task_reference => p_pm_task_reference
37668: , p_pa_task_id => p_task_id
37669: , p_structure_type => p_structure_type
37699: end if;
37700: close l_cur_project_id2;
37701:
37702: -- Validate the task id and project id of the task version id.
37703: PA_PROJECT_PVT.CONVERT_PM_TASKREF_TO_ID_ALL
37704: (p_pa_project_id => l_parent_project_id
37705: , p_pa_task_id => l_task_id
37706: , p_structure_type => p_structure_type
37707: , p_out_task_id => l_task_id