eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.PA_PROJ_TASK_STRUC_PUB dependencies on PA_PROJECT_STRUCTURE_UTILS

Line 1275: l_shared := PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_project_id);

1271: IF cur_pa_temp_import%NOTFOUND
1272: THEN
1273:
1274: l_versioned := PA_WORKPLAN_ATTR_UTILS.Check_Wp_Versioning_Enabled(p_project_id);
1275: l_shared := PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_project_id);
1276:
1277: IF p_task_id IS NOT NULL AND p_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1278: THEN
1279: l_task_id := p_task_id;

Line 1424: PA_PROJECT_STRUCTURE_UTILS.Structure_Version_Name_Or_Id(

1420: p_structure_version_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1421: THEN
1422: --Validate the incoming structure version id
1423:
1424: PA_PROJECT_STRUCTURE_UTILS.Structure_Version_Name_Or_Id(
1425: p_structure_id => null
1426: ,p_structure_version_name => null
1427: ,p_structure_version_id => p_structure_version_id
1428: ,p_check_id_flag => 'Y'

Line 1441: l_str_status_code := PA_PROJECT_STRUCTURE_UTILS.get_structrue_version_status

1437: raise api_error;
1438: END IF;
1439:
1440: --bug 2736392
1441: l_str_status_code := PA_PROJECT_STRUCTURE_UTILS.get_structrue_version_status
1442: ( p_project_id => p_project_id
1443: ,p_structure_version_id => p_structure_version_id );
1444: IF l_str_status_code IS NULL
1445: THEN

Line 1464: l_str_status_code := PA_PROJECT_STRUCTURE_UTILS.get_structrue_version_status

1460: /* New Code Begin for Bug 2736392 -- Commnted the above code*/
1461:
1462: IF p_structure_version_id IS NOT NULL AND p_structure_version_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1463: THEN
1464: l_str_status_code := PA_PROJECT_STRUCTURE_UTILS.get_structrue_version_status
1465: ( p_project_id => p_project_id
1466: ,p_structure_version_id => p_structure_version_id );
1467: IF l_str_status_code IS NULL
1468: THEN

Line 1735: l_sharing_enabled := PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_project_id);

1731: --
1732: IF (nvl(g_project_id,-99) = p_project_id and g_sharing_enabled IS NOT NULL) THEN
1733: l_sharing_enabled := g_sharing_enabled;
1734: ELSE
1735: l_sharing_enabled := PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_project_id);
1736: g_project_id := p_project_id;
1737: g_sharing_enabled := l_sharing_enabled;
1738: END IF;
1739: --

Line 1750: IF ('Y' = PA_PROJECT_STRUCTURE_UTILS.get_struc_type_for_structure(l_structure_id, 'FINANCIAL') AND

1746: ELSE
1747: l_task_unpub_ver_status_code := 'PUBLISHED';
1748: END IF;
1749: ELSE --split
1750: IF ('Y' = PA_PROJECT_STRUCTURE_UTILS.get_struc_type_for_structure(l_structure_id, 'FINANCIAL') AND
1751: 'N' = PA_PROJECT_STRUCTURE_UTILS.get_struc_type_for_structure(l_structure_id, 'WORKPLAN')) THEN
1752: l_task_unpub_ver_status_code := 'PUBLISHED';
1753: ELSE --workplan only
1754: -- Bug 4067757 used l_versioned instead of calling Check_Wp_Versioning_Enabled multiple times

Line 1751: 'N' = PA_PROJECT_STRUCTURE_UTILS.get_struc_type_for_structure(l_structure_id, 'WORKPLAN')) THEN

1747: l_task_unpub_ver_status_code := 'PUBLISHED';
1748: END IF;
1749: ELSE --split
1750: IF ('Y' = PA_PROJECT_STRUCTURE_UTILS.get_struc_type_for_structure(l_structure_id, 'FINANCIAL') AND
1751: 'N' = PA_PROJECT_STRUCTURE_UTILS.get_struc_type_for_structure(l_structure_id, 'WORKPLAN')) THEN
1752: l_task_unpub_ver_status_code := 'PUBLISHED';
1753: ELSE --workplan only
1754: -- Bug 4067757 used l_versioned instead of calling Check_Wp_Versioning_Enabled multiple times
1755: /* IF ('Y' = PA_WORKPLAN_ATTR_UTILS.Check_Wp_Versioning_Enabled(p_project_id)) THEN */

Line 1854: l_published_ver_exists := PA_PROJECT_STRUCTURE_UTILS.CHECK_PUBLISHED_VER_EXISTS( p_project_id, l_structure_id );

1850: --END IF;
1851:
1852: IF p_structure_type = 'FINANCIAL'
1853: THEN
1854: l_published_ver_exists := PA_PROJECT_STRUCTURE_UTILS.CHECK_PUBLISHED_VER_EXISTS( p_project_id, l_structure_id );
1855: IF ( l_versioned = 'N' OR
1856: l_shared = 'N' OR
1857: ( l_versioned = 'Y' AND
1858: l_shared = 'Y' AND

Line 1886: IF (PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_project_id) = 'Y') AND

1882: into l_parent_struc_ver_id
1883: from pa_proj_element_versions
1884: where element_version_id = l_task_version_id;
1885:
1886: IF (PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_project_id) = 'Y') AND
1887: -- Bug 4067757 used l_versioned instead of calling Check_Wp_Versioning_Enabled multiple times
1888: /* (PA_WORKPLAN_ATTR_UTILS.Check_Wp_Versioning_Enabled(p_project_id) = 'N') AND */
1889: (l_versioned = 'N') AND NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER, 'N') = 'N' AND -- Check roll up flag to defer roll ups 14556729
1890: (PA_PROJECT_STRUCTURE_UTILS.get_struc_type_for_structure(l_structure_id, 'WORKPLAN') = 'Y') THEN

Line 1890: (PA_PROJECT_STRUCTURE_UTILS.get_struc_type_for_structure(l_structure_id, 'WORKPLAN') = 'Y') THEN

1886: IF (PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_project_id) = 'Y') AND
1887: -- Bug 4067757 used l_versioned instead of calling Check_Wp_Versioning_Enabled multiple times
1888: /* (PA_WORKPLAN_ATTR_UTILS.Check_Wp_Versioning_Enabled(p_project_id) = 'N') AND */
1889: (l_versioned = 'N') AND NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER, 'N') = 'N' AND -- Check roll up flag to defer roll ups 14556729
1890: (PA_PROJECT_STRUCTURE_UTILS.get_struc_type_for_structure(l_structure_id, 'WORKPLAN') = 'Y') THEN
1891: PA_STRUCT_TASK_ROLLUP_PUB.Task_Status_Rollup(
1892: p_structure_version_id => l_parent_struc_ver_id
1893: ,p_element_version_id => l_task_version_id
1894: ,x_return_status => l_return_status

Line 2926: PA_PROJECT_STRUCTURE_UTILS.Structure_Version_Name_Or_Id(

2922: IF p_structure_version_id IS NOT NULL AND
2923: p_structure_version_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2924: THEN
2925: --Validate the incoming structure version id
2926: PA_PROJECT_STRUCTURE_UTILS.Structure_Version_Name_Or_Id(
2927: p_structure_id => null
2928: ,p_structure_version_name => null
2929: ,p_structure_version_id => p_structure_version_id
2930: ,p_check_id_flag => 'Y'

Line 2942: l_str_status_code := PA_PROJECT_STRUCTURE_UTILS.get_structrue_version_status

2938: ,p_msg_name => l_msg_data );
2939: raise api_error;
2940: END IF;
2941: --bug 2736392
2942: l_str_status_code := PA_PROJECT_STRUCTURE_UTILS.get_structrue_version_status
2943: ( p_project_id => p_project_id
2944: ,p_structure_version_id => p_structure_version_id );
2945: IF l_str_status_code IS NULL
2946: THEN

Line 2963: l_str_status_code := PA_PROJECT_STRUCTURE_UTILS.get_structrue_version_status

2959: /* New Code Begin for Bug 2736392 -- Commnted the above code*/
2960:
2961: IF p_structure_version_id IS NOT NULL AND p_structure_version_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2962: THEN
2963: l_str_status_code := PA_PROJECT_STRUCTURE_UTILS.get_structrue_version_status
2964: ( p_project_id => p_project_id
2965: ,p_structure_version_id => p_structure_version_id );
2966: IF l_str_status_code IS NULL
2967: THEN

Line 3094: PA_PROJECT_STRUCTURE_UTILS.GET_PROCESS_STATUS_CODE(p_project_id => p_project_id

3090:
3091: /*
3092:
3093: l_process_code :=
3094: PA_PROJECT_STRUCTURE_UTILS.GET_PROCESS_STATUS_CODE(p_project_id => p_project_id
3095: ,p_structure_type => p_structure_type );
3096: IF nvl(l_process_code,'-1') = 'WUP' THEN
3097:
3098: l_request_id := PA_PROJECT_STRUCTURE_UTILS.GET_CONC_REQUEST_ID(p_project_id => p_project_id -- Bug 3091798

Line 3098: l_request_id := PA_PROJECT_STRUCTURE_UTILS.GET_CONC_REQUEST_ID(p_project_id => p_project_id -- Bug 3091798

3094: PA_PROJECT_STRUCTURE_UTILS.GET_PROCESS_STATUS_CODE(p_project_id => p_project_id
3095: ,p_structure_type => p_structure_type );
3096: IF nvl(l_process_code,'-1') = 'WUP' THEN
3097:
3098: l_request_id := PA_PROJECT_STRUCTURE_UTILS.GET_CONC_REQUEST_ID(p_project_id => p_project_id -- Bug 3091798
3099: ,p_structure_type => p_structure_type );
3100: PA_UTILS.ADD_MESSAGE
3101: (p_app_short_name => 'PA',
3102: -- p_msg_name => 'PA_PS_VD_UPDWBS_PRC_INPROC'); Bug 3091798

Line 3110: l_request_id := PA_PROJECT_STRUCTURE_UTILS.GET_CONC_REQUEST_ID(p_project_id => p_project_id --Bug 3091798

3106:
3107: raise api_error;
3108:
3109: ELSIF nvl(l_process_code,'-1') = 'WUE' THEN
3110: l_request_id := PA_PROJECT_STRUCTURE_UTILS.GET_CONC_REQUEST_ID(p_project_id => p_project_id --Bug 3091798
3111: ,p_structure_type => p_structure_type );
3112: PA_UTILS.ADD_MESSAGE
3113: (p_app_short_name => 'PA',
3114: -- p_msg_name => 'PA_PS_VD_UPD_WBS_PRC_ERR');

Line 3125: PA_PROJECT_STRUCTURE_UTILS.GET_PROCESS_STATUS_MSG(

3121: END IF;
3122:
3123: */
3124:
3125: PA_PROJECT_STRUCTURE_UTILS.GET_PROCESS_STATUS_MSG(
3126: p_project_id => p_project_id
3127: , p_structure_type => p_structure_type
3128: , p_structure_version_id => null
3129: , p_context => 'UPDATE_AMG'

Line 3741: AND parent_structure_version_id = PA_PROJECT_STRUCTURE_UTILS.GET_LATEST_FIN_STRUC_VER_ID( p_project_id ); -- bug 2765115

3737: SELECT element_version_id, record_version_number
3738: FROM pa_proj_element_versions ppev
3739: WHERE proj_element_id = p_task_id
3740: AND object_type = 'PA_TASKS'
3741: AND parent_structure_version_id = PA_PROJECT_STRUCTURE_UTILS.GET_LATEST_FIN_STRUC_VER_ID( p_project_id ); -- bug 2765115
3742:
3743: CURSOR cur_task_ver_id2 IS
3744: SELECT record_version_number
3745: FROM pa_proj_element_versions ppev

Line 3940: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(

3936:
3937:
3938: END LOOP;
3939:
3940: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(
3941: p_project_id => p_project_id
3942: ,p_structure_version_id => cur_str_ver_rec.element_version_id
3943: ,x_return_status => l_return_status
3944: ,x_error_message_code => l_error_message_code

Line 4339: IF PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure( cur_pa_proj_elems_rec.proj_element_id, 'WORKPLAN' ) = 'Y' AND

4335: end if;
4336: ELSE --delete the workplan structure including all its structure versions.
4337: FOR cur_pa_proj_elems_rec IN cur_pa_proj_elems LOOP
4338: --should obly be WORKPLAN structure
4339: IF PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure( cur_pa_proj_elems_rec.proj_element_id, 'WORKPLAN' ) = 'Y' AND
4340: PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure( cur_pa_proj_elems_rec.proj_element_id, 'FINANCIAL' ) = 'N'
4341: THEN
4342: FOR cur_pa_proj_elem_vers_rec IN cur_pa_proj_elem_vers( cur_pa_proj_elems_rec.proj_element_id ) LOOP
4343: PA_PROJECT_STRUCTURE_PUB1.Delete_Structure_Version(

Line 4340: PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure( cur_pa_proj_elems_rec.proj_element_id, 'FINANCIAL' ) = 'N'

4336: ELSE --delete the workplan structure including all its structure versions.
4337: FOR cur_pa_proj_elems_rec IN cur_pa_proj_elems LOOP
4338: --should obly be WORKPLAN structure
4339: IF PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure( cur_pa_proj_elems_rec.proj_element_id, 'WORKPLAN' ) = 'Y' AND
4340: PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure( cur_pa_proj_elems_rec.proj_element_id, 'FINANCIAL' ) = 'N'
4341: THEN
4342: FOR cur_pa_proj_elem_vers_rec IN cur_pa_proj_elem_vers( cur_pa_proj_elems_rec.proj_element_id ) LOOP
4343: PA_PROJECT_STRUCTURE_PUB1.Delete_Structure_Version(
4344: p_structure_version_id => cur_pa_proj_elem_vers_rec.element_version_id

Line 4370: IF PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure( cur_pa_proj_elems_rec.proj_element_id, 'FINANCIAL' ) = 'Y'

4366: END LOOP;
4367: END IF;
4368:
4369: --Now associate the WORKPLAN structure type with the COSTING structure.
4370: IF PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure( cur_pa_proj_elems_rec.proj_element_id, 'FINANCIAL' ) = 'Y'
4371: THEN
4372: OPEN cur_struc_type_id;
4373: FETCH cur_struc_type_id INTO l_structure_type_id;
4374: CLOSE cur_struc_type_id;

Line 4540: IF PA_PROJECT_STRUCTURE_UTILS.check_workplan_enabled( p_src_project_id )= 'Y' OR

4536: ELSE
4537:
4538: -- Bug 4146369 : Added following condition so that the copy_structures_bulk is not get called
4539: -- when both structures are disabled in source project.
4540: IF PA_PROJECT_STRUCTURE_UTILS.check_workplan_enabled( p_src_project_id )= 'Y' OR
4541: PA_PROJECT_STRUCTURE_UTILS.check_financial_enabled( p_src_project_id )= 'Y' THEN
4542: --copying only structrues --This is for AMG
4543: PA_PROJ_TASK_STRUC_PUB.copy_structures_bulk
4544: (

Line 4541: PA_PROJECT_STRUCTURE_UTILS.check_financial_enabled( p_src_project_id )= 'Y' THEN

4537:
4538: -- Bug 4146369 : Added following condition so that the copy_structures_bulk is not get called
4539: -- when both structures are disabled in source project.
4540: IF PA_PROJECT_STRUCTURE_UTILS.check_workplan_enabled( p_src_project_id )= 'Y' OR
4541: PA_PROJECT_STRUCTURE_UTILS.check_financial_enabled( p_src_project_id )= 'Y' THEN
4542: --copying only structrues --This is for AMG
4543: PA_PROJ_TASK_STRUC_PUB.copy_structures_bulk
4544: (
4545: p_src_project_id => p_src_project_id

Line 4976: PA_PROJECT_STRUCTURE_UTILS.Check_Structure_Type_Exists(

4972: THEN
4973: FND_MSG_PUB.initialize;
4974: END IF;
4975: --check if the project have any structures
4976: PA_PROJECT_STRUCTURE_UTILS.Check_Structure_Type_Exists(
4977: p_project_id,
4978: p_structure_type,
4979: l_return_status,
4980: l_error_message_code);

Line 5265: IF PA_PROJECT_STRUCTURE_UTILS.Check_Struc_Ver_Name_Unique(

5261: CLOSE c2;
5262:
5263: IF l_proj_element_id IS NOT NULL
5264: THEN
5265: IF PA_PROJECT_STRUCTURE_UTILS.Check_Struc_Ver_Name_Unique(
5266: p_structure_version_name => p_structure_version_name
5267: ,p_pev_structure_id => null
5268: ,p_project_id => p_project_id
5269: ,p_structure_id => l_proj_element_id

Line 5419: IF (PA_PROJECT_STRUCTURE_UTILS.Get_struc_Type_for_Structure(

5415: END IF;
5416: ELSE
5417: /*
5418: --check if this is workplan type structure only
5419: IF (PA_PROJECT_STRUCTURE_UTILS.Get_struc_Type_for_Structure(
5420: l_proj_element_id, 'FINANCIAL') = 'Y') THEN
5421: --cannot create because this structure contains financial information also
5422: PA_UTILS.ADD_MESSAGE(
5423: p_app_short_name => 'PA'

Line 5632: IF PA_PROJECT_STRUCTURE_UTILS.CHECK_SHARING_ENABLED( p_project_id ) = 'N'

5628: l_return_value VARCHAR2(1) := 'N';
5629:
5630: BEGIN
5631: --Call Huberts API to check whether a workplan structure is separate from financial
5632: IF PA_PROJECT_STRUCTURE_UTILS.CHECK_SHARING_ENABLED( p_project_id ) = 'N'
5633: THEN
5634: l_return_value := 'Y';
5635: END IF;
5636: RETURN ( NVL( l_return_value, 'N' ) );

Line 5974: l_return_value := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure(

5970: BEGIN
5971: --Call Huberts API to check whether a workplan structure is separate from financial
5972:
5973: /* FOR cur_pa_proj_rec in cur_pa_proj LOOP
5974: l_return_value := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure(
5975: cur_pa_proj_rec.proj_element_id, 'WORKPLAN' );
5976: IF NVL( l_return_value, 'N' ) = 'Y'
5977: THEN
5978: Exit;

Line 8229: l_workplan_enabled := PA_PROJECT_STRUCTURE_UTILS.check_workplan_enabled( p_src_project_id );

8225: RETURN;
8226: END IF;
8227:
8228: --Check whether WP structure is enabled for the source project
8229: l_workplan_enabled := PA_PROJECT_STRUCTURE_UTILS.check_workplan_enabled( p_src_project_id );
8230: --Check whether Financial structure is enabled for the source project
8231: l_fin_enabled := PA_PROJECT_STRUCTURE_UTILS.check_financial_enabled( p_src_project_id );
8232: IF NVL( l_workplan_enabled, 'N' ) = 'Y' THEN
8233: --Check whether the structures are shared or not in the source project

Line 8231: l_fin_enabled := PA_PROJECT_STRUCTURE_UTILS.check_financial_enabled( p_src_project_id );

8227:
8228: --Check whether WP structure is enabled for the source project
8229: l_workplan_enabled := PA_PROJECT_STRUCTURE_UTILS.check_workplan_enabled( p_src_project_id );
8230: --Check whether Financial structure is enabled for the source project
8231: l_fin_enabled := PA_PROJECT_STRUCTURE_UTILS.check_financial_enabled( p_src_project_id );
8232: IF NVL( l_workplan_enabled, 'N' ) = 'Y' THEN
8233: --Check whether the structures are shared or not in the source project
8234: l_shared := PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_src_project_id);
8235: --Retrieve whether versioning is enabled or not

Line 8234: l_shared := PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_src_project_id);

8230: --Check whether Financial structure is enabled for the source project
8231: l_fin_enabled := PA_PROJECT_STRUCTURE_UTILS.check_financial_enabled( p_src_project_id );
8232: IF NVL( l_workplan_enabled, 'N' ) = 'Y' THEN
8233: --Check whether the structures are shared or not in the source project
8234: l_shared := PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_src_project_id);
8235: --Retrieve whether versioning is enabled or not
8236: OPEN cur_get_wp_attr;
8237: FETCH cur_get_wp_attr INTO l_versioning_enabled;
8238: CLOSE cur_get_wp_attr;

Line 8242: l_dlv_enabled := PA_PROJECT_STRUCTURE_UTILS.check_Deliverable_enabled(p_src_project_id);

8238: CLOSE cur_get_wp_attr;
8239: END IF;
8240:
8241: --Check whether deliverables is enabled
8242: l_dlv_enabled := PA_PROJECT_STRUCTURE_UTILS.check_Deliverable_enabled(p_src_project_id);
8243:
8244: --If deliverables is enabled, retrieve the various deliverables flags
8245: IF 'Y' = l_dlv_enabled THEN
8246: OPEN cur_get_flag('WP_DELIVERABLES_FLAG');

Line 10537: AND ( PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(element_version_id, 'WORKPLAN') = 'Y')

10533: SELECT Element_Version_ID, attribute15 BULK COLLECT
10534: INTO dest_versions_tab, src_Versions_Tab
10535: FROM PA_Proj_Element_Versions
10536: WHERE Project_ID = p_dest_project_id
10537: AND ( PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(element_version_id, 'WORKPLAN') = 'Y')
10538: AND object_type = 'PA_STRUCTURES';
10539:
10540: OPEN cur_get_str_shr_code;
10541: FETCH cur_get_str_shr_code INTO l_dest_proj_struc_shr_code;

Line 11184: l_shared := PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_src_project_id);

11180:
11181: IF NVL( l_workplan_enabled, 'N' ) = 'Y'
11182: THEN
11183:
11184: l_shared := PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_src_project_id);
11185: --Get workplan attributes
11186: OPEN get_wp_attr;
11187: FETCH get_wp_attr into l_wp_attr_rec;
11188: CLOSE get_wp_attr;

Line 12607: IF PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version( l_struc_version_id, 'FINANCIAL' ) = 'Y'

12603:
12604: --bug 3138959
12605: --User adding tasks under WORKPLAN structure from AMG, financial plan should be copied over.
12606:
12607: IF PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version( l_struc_version_id, 'FINANCIAL' ) = 'Y'
12608: AND l_shared = 'N' AND l_workplan_enabled = 'Y' -- For Split structures
12609: AND pa_project_pub.G_structure_in_rec.structure_type = 'WORKPLAN'
12610: THEN
12611: --Copy financial tasks

Line 13204: AND ( PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(element_version_id, 'WORKPLAN') = 'Y')

13200: Select Element_Version_ID, attribute15 BULK COLLECT
13201: INTO dest_versions_tab, src_Versions_Tab
13202: From PA_Proj_Element_Versions
13203: Where Project_ID = p_dest_project_id
13204: AND ( PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(element_version_id, 'WORKPLAN') = 'Y')
13205: AND object_type = 'PA_STRUCTURES';
13206:
13207: -- Copies budget versions, resource assignments and budget lines as required for the workplan version.
13208: /*Smukka Bug No. 3474141 Date 03/01/2004 */

Line 14306: PA_PROJECT_STRUCTURE_UTILS.GET_PROCESS_STATUS_CODE(p_project_id => p_project_id

14302:
14303: /*
14304:
14305: l_process_code :=
14306: PA_PROJECT_STRUCTURE_UTILS.GET_PROCESS_STATUS_CODE(p_project_id => p_project_id
14307: ,p_structure_type => p_structure_type );
14308: IF nvl(l_process_code,'-1') = 'WUP' THEN
14309:
14310: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)

Line 14323: l_request_id := PA_PROJECT_STRUCTURE_UTILS.GET_CONC_REQUEST_ID(p_project_id => p_project_id -- Bug 3091798

14319: -- ,p_attribute2 => ''
14320: -- ,p_attribute3 => ''
14321: -- ,p_attribute4 => ''
14322: -- ,p_attribute5 => '');
14323: l_request_id := PA_PROJECT_STRUCTURE_UTILS.GET_CONC_REQUEST_ID(p_project_id => p_project_id -- Bug 3091798
14324: ,p_structure_type => p_structure_type );
14325:
14326: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
14327: -- ,p_msg_name => 'PA_PS_VD_UPDWBS_PRC_INPROC');Bug 3091798.

Line 14339: l_request_id := PA_PROJECT_STRUCTURE_UTILS.GET_CONC_REQUEST_ID(p_project_id => p_project_id --Bug 3091798

14335: ELSIF nvl(l_process_code,'-1') = 'WUE' THEN
14336:
14337: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
14338: THEN
14339: l_request_id := PA_PROJECT_STRUCTURE_UTILS.GET_CONC_REQUEST_ID(p_project_id => p_project_id --Bug 3091798
14340: ,p_structure_type => p_structure_type );
14341:
14342: --Commented out as there is no message defined for amg corresponding to PA_PS_VD_UPD_WBS_PRC_ERR
14343: --pa_interface_utils_pub.map_new_amg_msg

Line 14365: PA_PROJECT_STRUCTURE_UTILS.GET_PROCESS_STATUS_MSG(

14361: END IF;
14362:
14363: */
14364:
14365: PA_PROJECT_STRUCTURE_UTILS.GET_PROCESS_STATUS_MSG(
14366: p_project_id => p_project_id
14367: , p_structure_type => p_structure_type
14368: , p_structure_version_id => null
14369: , p_context => 'UPDATE_AMG'

Line 14395: l_str_status_code := PA_PROJECT_STRUCTURE_UTILS.get_structrue_version_status(

14391:
14392: IF (p_structure_version_id IS NOT NULL)
14393: THEN
14394: --IUP:Check whether the structure version passed is in a valid status
14395: l_str_status_code := PA_PROJECT_STRUCTURE_UTILS.get_structrue_version_status(
14396: p_project_id => p_project_id
14397: ,p_structure_version_id => p_structure_version_id );
14398: IF l_str_status_code IS NULL
14399: THEN

Line 14692: l_shared := PA_PROJECT_STRUCTURE_UTILS.Check_Sharing_Enabled(p_project_id); -- Added for bug#3451073

14688: --Added by rtarway for BUG 4320731
14689: task_ver_id_passed_tbl.delete;
14690:
14691: IF nvl(p_tasks_in_tbl.last,0) > 0 THEN
14692: l_shared := PA_PROJECT_STRUCTURE_UTILS.Check_Sharing_Enabled(p_project_id); -- Added for bug#3451073
14693: FOR i in p_tasks_in_tbl.first..p_tasks_in_tbl.last LOOP
14694:
14695: -- Reset the locals at the beginning of the loop.
14696: l_parent_task_id := null;

Line 15244: l_Share_Code := PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(p_project_id);

15240: END IF;
15241: l_parent_task_id := l_cur_pa_tasks_rec.parent_task_id;
15242: l_task_id := l_task_in_rec.pa_task_id;
15243:
15244: l_Share_Code := PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(p_project_id);
15245: IF ((l_Share_Code = 'SHARE_PARTIAL') and (l_parent_task_id is null OR
15246: l_parent_task_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM )) --bug#8647597
15247: THEN
15248: l_parent_task_id := l_task_in_rec.pa_parent_task_id;

Line 16279: l_Share_Code := PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(p_project_id);

16275: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16276: END IF;
16277: --added for 4059962 by rtarway
16278: --Derive financial task flag
16279: l_Share_Code := PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(p_project_id);
16280: IF l_shared = 'Y'
16281: THEN
16282: --If P_Structure_Type = 'WORKPLAN' Or l_Share_Code = 'SHARE_PARTIAL' then
16283: If l_Share_Code = 'SHARE_PARTIAL' then --Modified IF condition for 4059962 reopen, rtarway

Line 17407: l_update_wbs_flag := PA_PROJECT_STRUCTURE_UTILS.GET_UPDATE_WBS_FLAG(p_project_id => p_project_id

17403: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N' AND
17404: PA_PROJECT_PUB.G_Published_version_exists = 'N')
17405: THEN
17406: -- Changed p_structure_version_id to l_structure_version_id Bug 3035902.
17407: l_update_wbs_flag := PA_PROJECT_STRUCTURE_UTILS.GET_UPDATE_WBS_FLAG(p_project_id => p_project_id
17408: ,p_structure_version_id => l_structure_version_id ) ;
17409: IF nvl(l_update_wbs_flag,'N') = 'Y' THEN
17410: IF p_process_mode = 'ONLINE' THEN
17411:

Line 18331: l_update_option := pa_project_structure_utils.get_process_wbs_updates_option(p_task_count => l_task_count,

18327: BEGIN
18328: open cur_task_count(p_project_id,p_structure_version_id);
18329: fetch cur_task_count into l_task_count;
18330: close cur_task_count;
18331: l_update_option := pa_project_structure_utils.get_process_wbs_updates_option(p_task_count => l_task_count,
18332: p_project_id => p_project_id ---bug 4370533
18333: );
18334:
18335: IF p_calling_context = 'PUBLISH' THEN

Line 18608: l_update_wbs_flag := pa_project_structure_utils.GET_UPDATE_WBS_FLAG(p_project_id => p_project_id,

18604: --hsiu: bug 3035902
18605: --commenting because financial planning has partial process and
18606: --the update flag should not be check here.
18607: /*
18608: l_update_wbs_flag := pa_project_structure_utils.GET_UPDATE_WBS_FLAG(p_project_id => p_project_id,
18609: p_structure_version_id => p_structure_version_id);
18610: IF l_update_wbs_flag = 'N' THEN
18611: -- No further processing is required for this structure version. Return.
18612: -- TWUT.

Line 18624: l_update_wbs_flag := pa_project_structure_utils.GET_UPDATE_WBS_FLAG(p_project_id => p_project_id,

18620:
18621: -- Bug 3053920. We need not launch the conc process if split structure, structure type is workplan,
18622: -- basis code is MANUAL or flag is N.
18623:
18624: l_update_wbs_flag := pa_project_structure_utils.GET_UPDATE_WBS_FLAG(p_project_id => p_project_id,
18625: p_structure_version_id => p_structure_version_id);
18626: l_task_weighting_basis := pa_progress_utils.get_task_weighting_basis(p_project_id => p_project_id);
18627:
18628:

Line 18729: PA_PROJECT_STRUCTURE_UTILS.SET_PROCESS_CODE_IN_PROC(

18725: ELSE
18726: l_calling_context := p_calling_context;
18727: END IF;
18728:
18729: PA_PROJECT_STRUCTURE_UTILS.SET_PROCESS_CODE_IN_PROC(
18730: p_project_id => p_project_id
18731: , p_structure_version_id => p_structure_version_id
18732: , p_calling_context => l_calling_context
18733: , p_conc_request_id => l_request_id

Line 18742: PA_PROJECT_STRUCTURE_UTILS.SET_PROCESS_CODE_IN_PROC(

18738:
18739: -- Mark the newly created published structure record also with the process code
18740: -- and request_id.
18741:
18742: PA_PROJECT_STRUCTURE_UTILS.SET_PROCESS_CODE_IN_PROC(
18743: p_project_id => p_project_id
18744: , p_structure_version_id => p_pub_struc_ver_id
18745: , p_calling_context => l_calling_context
18746: , p_conc_request_id => l_request_id

Line 19076: PA_PROJECT_STRUCTURE_UTILS.SET_PROCESS_CODE_ERR(

19072: ELSE
19073: l_calling_context := p_calling_context;
19074: END IF;
19075:
19076: PA_PROJECT_STRUCTURE_UTILS.SET_PROCESS_CODE_ERR(
19077: p_project_id => p_project_id
19078: , p_structure_version_id => p_structure_version_id
19079: , p_calling_context => l_calling_context
19080: , p_conc_request_id => l_request_id

Line 19088: PA_PROJECT_STRUCTURE_UTILS.SET_PROCESS_CODE_ERR(

19084:
19085: -- Mark the newly created published structure record also with the process code
19086: -- and request_id.
19087:
19088: PA_PROJECT_STRUCTURE_UTILS.SET_PROCESS_CODE_ERR(
19089: p_project_id => p_project_id
19090: , p_structure_version_id => p_pub_struc_ver_id
19091: , p_calling_context => l_calling_context
19092: , p_conc_request_id => l_request_id

Line 19161: PA_PROJECT_STRUCTURE_UTILS.SET_PROCESS_CODE_ERR(

19157: ELSE
19158: l_calling_context := p_calling_context;
19159: END IF;
19160:
19161: PA_PROJECT_STRUCTURE_UTILS.SET_PROCESS_CODE_ERR(
19162: p_project_id => p_project_id
19163: , p_structure_version_id => p_structure_version_id
19164: , p_calling_context => l_calling_context
19165: , p_conc_request_id => l_request_id

Line 19173: PA_PROJECT_STRUCTURE_UTILS.SET_PROCESS_CODE_ERR(

19169:
19170: -- Mark the newly created published structure record also with the process code
19171: -- and request_id.
19172:
19173: PA_PROJECT_STRUCTURE_UTILS.SET_PROCESS_CODE_ERR(
19174: p_project_id => p_project_id
19175: , p_structure_version_id => p_pub_struc_ver_id
19176: , p_calling_context => l_calling_context
19177: , p_conc_request_id => l_request_id

Line 19400: l_update_wbs_flag := pa_project_structure_utils.GET_UPDATE_WBS_FLAG(p_project_id => p_project_id,

19396: p_msg_name => 'PA_INV_PARAM_PASSED');
19397: RAISE Invalid_Arg_Exc_WP;
19398: END IF;
19399:
19400: l_update_wbs_flag := pa_project_structure_utils.GET_UPDATE_WBS_FLAG(p_project_id => p_project_id,
19401: p_structure_version_id => p_structure_version_id);
19402:
19403: IF l_debug_mode = 'Y' THEN
19404: pa_debug.write(G_PKG_NAME, 'l_update_wbs_flag = '|| l_update_wbs_flag, 3);

Line 19408: l_workplan_type := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN');

19404: pa_debug.write(G_PKG_NAME, 'l_update_wbs_flag = '|| l_update_wbs_flag, 3);
19405: END IF;
19406:
19407: --bug 4409337 moved from below to make use of some of these variables for bugfix.
19408: l_workplan_type := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN');
19409: l_financial_type := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'FINANCIAL');
19410: l_share_flag := PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(l_project_id);
19411:
19412:

Line 19409: l_financial_type := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'FINANCIAL');

19405: END IF;
19406:
19407: --bug 4409337 moved from below to make use of some of these variables for bugfix.
19408: l_workplan_type := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN');
19409: l_financial_type := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'FINANCIAL');
19410: l_share_flag := PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(l_project_id);
19411:
19412:
19413: IF l_debug_mode = 'Y' THEN

Line 19410: l_share_flag := PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(l_project_id);

19406:
19407: --bug 4409337 moved from below to make use of some of these variables for bugfix.
19408: l_workplan_type := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN');
19409: l_financial_type := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'FINANCIAL');
19410: l_share_flag := PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(l_project_id);
19411:
19412:
19413: IF l_debug_mode = 'Y' THEN
19414: pa_debug.write(G_PKG_NAME, 'l_workplan_type = '|| l_workplan_type, 3);

Line 20032: --l_workplan_type := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN');

20028: END IF;
20029: END;
20030:
20031: --moved these calls in the beginning.
20032: --l_workplan_type := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN');
20033: --l_financial_type := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'FINANCIAL');
20034:
20035: IF (l_financial_type = 'Y') THEN
20036:

Line 20033: --l_financial_type := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'FINANCIAL');

20029: END;
20030:
20031: --moved these calls in the beginning.
20032: --l_workplan_type := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN');
20033: --l_financial_type := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'FINANCIAL');
20034:
20035: IF (l_financial_type = 'Y') THEN
20036:
20037: SELECT start_date, completion_date

Line 20156: --IF PA_PROJECT_STRUCTURE_UTILS.Check_Subproject_Exists(l_project_id,p_structure_version_id, 'WORKPLAN') = 'Y' THEN

20152: --a process(PUB) currently in process and therefore edit_task_ok api will return 'N' to
20153: --adjust_asgnmt api.
20154:
20155: PA_TASK_ASSIGNMENT_UTILS.g_apply_progress_flag := 'Y'; --although th
20156: --IF PA_PROJECT_STRUCTURE_UTILS.Check_Subproject_Exists(l_project_id,p_structure_version_id, 'WORKPLAN') = 'Y' THEN
20157: IF PA_RELATIONSHIP_UTILS.Check_link_exists( p_project_id => p_project_id
20158: ,p_link_type => 'WORKPLAN' ) = 'Y'
20159: THEN
20160:

Line 20199: IF PA_PROJECT_STRUCTURE_UTILS.Check_Subproject_Exists(l_project_id,l_pub_ver_id, 'WORKPLAN') = 'Y'

20195: /*IF PA_RELATIONSHIP_UTILS.Check_parent_project_exists(
20196: p_project_id => p_project_id
20197: ,p_structure_ver_id => l_pub_ver_id
20198: ,p_link_type => 'WORKPLAN' ) = 'Y'
20199: IF PA_PROJECT_STRUCTURE_UTILS.Check_Subproject_Exists(l_project_id,l_pub_ver_id, 'WORKPLAN') = 'Y'
20200: THEN
20201: IF l_debug_mode = 'Y' THEN
20202: pa_debug.write(G_PKG_NAME, 'Before calling PA_STRUCT_TASK_ROLLUP_PUB.Program_Schedule_dates_rollup for published structure verison in PUBLISH mode', 3);
20203: END IF;

Line 20416: --l_share_flag := PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(l_project_id);

20412: END IF; -- p_pub_prog_flag = 'Y' THEN
20413:
20414: --bug 4019845
20415: --moved this call in the beginning
20416: --l_share_flag := PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(l_project_id);
20417: --The follwoing api is called to push progress data to PJI for the new
20418: --structure version.
20419:
20420: --bug 3822112

Line 20520: ,p_baselined_str_ver_id => PA_PROJECT_STRUCTURE_UTILS.Get_Baseline_Struct_Ver(l_Project_ID)

20516: p_init_msg_list => FND_API.G_FALSE
20517: ,p_commit => FND_API.G_FALSE
20518: ,p_project_id => l_Project_ID
20519: ,p_structure_version_id => l_pub_ver_id
20520: ,p_baselined_str_ver_id => PA_PROJECT_STRUCTURE_UTILS.Get_Baseline_Struct_Ver(l_Project_ID)
20521: ,p_structure_type => 'WORKPLAN'
20522: ,p_program_rollup_flag => 'Y' -- 4392189
20523: ,p_calling_context => 'SUMMARIZE' -- 4392189
20524: ,p_as_of_date => l_as_of_date -- 4392189

Line 21950: l_shared := PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_dest_project_id);

21946:
21947: x_msg_count := 0;
21948: x_return_status := FND_API.G_RET_STS_SUCCESS;
21949: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
21950: l_shared := PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_dest_project_id);
21951:
21952: /* The following is the simple solution for this.
21953: Update the Process_WBS_flag only for WORKPLAN enabled structures
21954: if task weighting basis is DURATION.