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_PROJECT_STRUCTURE_PVT1 dependencies on PA_PROJECT_STRUCTURE_UTILS

Line 172: If (pa_project_structure_utils.check_structure_name_unique(p_structure_name,

168: pa_debug.debug('Performing validations');
169: END IF;
170:
171: --Check if the structure name is unique within the project
172: If (pa_project_structure_utils.check_structure_name_unique(p_structure_name,
173: NULL,
174: p_project_id) <> 'Y') THEN
175: --Name is not unique
176: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_STRUC_NAME_UNIQUE');

Line 409: pa_project_structure_utils.Check_structure_Type_Exists(p_project_id,

405: pa_debug.debug('structure_type = '||l_structure_type);
406: END IF;
407: --check if structure type exists
408:
409: pa_project_structure_utils.Check_structure_Type_Exists(p_project_id,
410: l_structure_type,
411: l_return_status,
412: l_error_message_code);
413: --dbms_output.put_line(l_return_status||', '||l_error_message_code);

Line 811: IF ( PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(x_structure_version_id, 'WORKPLAN') = 'Y') THEN

807: -- error_msg('element_version_id = '||l_dummy);
808: -- error_msg('rowid = '||l_rowid);
809: -- Added by skannoji
810: -- added for doosan customer to add the planning transaction
811: IF ( PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(x_structure_version_id, 'WORKPLAN') = 'Y') THEN
812: /*Smukka Bug No. 3474141 Date 03/01/2004 */
813: /*moved PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions into plsql block */
814: BEGIN
815: PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions

Line 1020: IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.Check_Struc_Ver_Name_Unique(p_structure_version_name,

1016: CLOSE getids;
1017:
1018:
1019: --Check if name unique
1020: IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.Check_Struc_Ver_Name_Unique(p_structure_version_name,
1021: null,
1022: l_project_id,
1023: l_proj_element_id)) THEN
1024: PA_UTILS.ADD_MESSAGE('PA','PA_PS_STRUC_VER_NAM_UNIQUE');

Line 1079: IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN') = 'Y') THEN

1075: and current_flag = 'Y';
1076:
1077:
1078: --Call baseline_structure_version API if workplan
1079: IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN') = 'Y') THEN
1080: PA_PROJECT_STRUCTURE_PVT1.BASELINE_STRUCTURE_VERSION(
1081: p_commit => FND_API.G_FALSE,
1082: p_structure_version_id => p_structure_version_id,
1083: x_return_status => l_return_status,

Line 1163: IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN') = 'Y') THEN

1159: and current_flag = 'Y';
1160:
1161:
1162: --Call baseline_structure_version API if workplan
1163: IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN') = 'Y') THEN
1164: PA_PROJECT_STRUCTURE_PVT1.BASELINE_STRUCTURE_VERSION(
1165: p_commit => FND_API.G_FALSE,
1166: p_structure_version_id => p_structure_version_id,
1167: x_return_status => l_return_status,

Line 1536: IF ('Y' <> pa_project_structure_utils.Check_Structure_Name_Unique(p_structure_name,

1532: IF (l_name <> p_structure_name) then
1533: IF (p_debug_mode = 'Y') THEN
1534: pa_debug.debug('different!!');
1535: END IF;
1536: IF ('Y' <> pa_project_structure_utils.Check_Structure_Name_Unique(p_structure_name,
1537: p_structure_id,
1538: l_project_id)) THEN
1539: --name not unique.
1540: PA_UTILS.ADD_MESSAGE('PA', 'PS_STRUC_NAME_UNIQUE');

Line 1946: -- IF ('Y' = PA_PROJECT_STRUCTURE_UTILS.Check_Struc_Ver_Published(l_project_id,

1942:
1943: --Check if published
1944: --hsiu
1945: --changed for versioning
1946: -- IF ('Y' = PA_PROJECT_STRUCTURE_UTILS.Check_Struc_Ver_Published(l_project_id,
1947: -- l_structure_version_id)) THEN
1948: IF ('N' = PA_PROJECT_STRUCTURE_UTILS.check_edit_wp_ok(l_project_id,
1949: l_structure_version_id)) THEN
1950: --If published

Line 1948: IF ('N' = PA_PROJECT_STRUCTURE_UTILS.check_edit_wp_ok(l_project_id,

1944: --hsiu
1945: --changed for versioning
1946: -- IF ('Y' = PA_PROJECT_STRUCTURE_UTILS.Check_Struc_Ver_Published(l_project_id,
1947: -- l_structure_version_id)) THEN
1948: IF ('N' = PA_PROJECT_STRUCTURE_UTILS.check_edit_wp_ok(l_project_id,
1949: l_structure_version_id)) THEN
1950: --If published
1951: IF (p_debug_mode = 'Y') THEN
1952: pa_debug.debug('Published');

Line 1973: IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(l_structure_version_id, 'WORKPLAN') = 'Y') THEN

1969: and pev_structure_id <> p_pev_structure_id
1970: and current_flag = 'Y';
1971:
1972: --Call baseline_structure_version API if workplan
1973: IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(l_structure_version_id, 'WORKPLAN') = 'Y') THEN
1974: PA_PROJECT_STRUCTURE_PVT1.BASELINE_STRUCTURE_VERSION(
1975: p_commit => FND_API.G_FALSE,
1976: p_structure_version_id => l_structure_version_id,
1977: x_return_status => l_return_status,

Line 2015: IF ('Y' = PA_PROJECT_STRUCTURE_UTILS.check_edit_wp_ok(l_project_id,

2011: END IF;
2012: --hsiu
2013: --changed for versioning
2014: -- ELSE
2015: IF ('Y' = PA_PROJECT_STRUCTURE_UTILS.check_edit_wp_ok(l_project_id,
2016: l_structure_version_id)) THEN
2017: --If not published
2018: IF (p_debug_mode = 'Y') THEN
2019: pa_debug.debug('Not Published');

Line 2023: l_get_lock := PA_PROJECT_STRUCTURE_UTILS.IS_STRUC_VER_LOCKED_BY_USER(FND_GLOBAL.USER_ID,

2019: pa_debug.debug('Not Published');
2020: END IF;
2021:
2022: --Check lock
2023: l_get_lock := PA_PROJECT_STRUCTURE_UTILS.IS_STRUC_VER_LOCKED_BY_USER(FND_GLOBAL.USER_ID,
2024: l_structure_version_id);
2025:
2026: IF (p_debug_mode = 'Y') THEN
2027: pa_debug.debug('l_get_lock value = '||l_get_lock);

Line 2060: IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.Check_Struc_Ver_Name_Unique(p_structure_version_name,

2056: END IF;
2057:
2058: --Check if structure version name is unique if modified
2059: IF (p_structure_version_name <> l_name) THEN
2060: IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.Check_Struc_Ver_Name_Unique(p_structure_version_name,
2061: p_pev_structure_id,
2062: l_project_id,
2063: l_proj_element_id)) THEN
2064: PA_UTILS.ADD_MESSAGE('PA','PA_PS_STRUC_VER_NAM_UNIQUE');

Line 2075: IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(l_structure_version_id, 'FINANCIAL') = 'Y'

2071:
2072: END IF;
2073:
2074: -- Bug 10101426: Added following code to handle call from financial breakdown structure update page.
2075: IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(l_structure_version_id, 'FINANCIAL') = 'Y'
2076: AND PA_PROJECT_STRUCTURE_UTILS.check_edit_fin_ok(l_project_id,l_structure_version_id) = 'Y') THEN
2077: --Check if structure version name is unique if modified
2078: IF (p_structure_version_name <> l_name) THEN
2079: IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.Check_Struc_Ver_Name_Unique(p_structure_version_name,

Line 2076: AND PA_PROJECT_STRUCTURE_UTILS.check_edit_fin_ok(l_project_id,l_structure_version_id) = 'Y') THEN

2072: END IF;
2073:
2074: -- Bug 10101426: Added following code to handle call from financial breakdown structure update page.
2075: IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(l_structure_version_id, 'FINANCIAL') = 'Y'
2076: AND PA_PROJECT_STRUCTURE_UTILS.check_edit_fin_ok(l_project_id,l_structure_version_id) = 'Y') THEN
2077: --Check if structure version name is unique if modified
2078: IF (p_structure_version_name <> l_name) THEN
2079: IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.Check_Struc_Ver_Name_Unique(p_structure_version_name,
2080: p_pev_structure_id,

Line 2079: IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.Check_Struc_Ver_Name_Unique(p_structure_version_name,

2075: IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(l_structure_version_id, 'FINANCIAL') = 'Y'
2076: AND PA_PROJECT_STRUCTURE_UTILS.check_edit_fin_ok(l_project_id,l_structure_version_id) = 'Y') THEN
2077: --Check if structure version name is unique if modified
2078: IF (p_structure_version_name <> l_name) THEN
2079: IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.Check_Struc_Ver_Name_Unique(p_structure_version_name,
2080: p_pev_structure_id,
2081: l_project_id,
2082: l_proj_element_id)) THEN
2083: PA_UTILS.ADD_MESSAGE('PA','PA_PS_STRUC_VER_NAM_UNIQUE');

Line 2345: l_is_wp_str := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure(p_structure_id, 'WORKPLAN');

2341: end if;
2342:
2343: -- Begin fix for Bug # 4506308.
2344:
2345: l_is_wp_str := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure(p_structure_id, 'WORKPLAN');
2346:
2347: if (l_is_wp_str = 'Y') then
2348:
2349: open l_cur_projects_all(p_structure_id);

Line 2603: IF ( PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN') = 'Y') THEN

2599: /* Changing data type from PA_PLSQL_DATATYPES.IdTabTyp to SYSTEM.pa_num_tbl_type */
2600: /* l_struct_version_id_tbl PA_PLSQL_DATATYPES.IdTabTyp; */
2601: l_struct_version_id_tbl SYSTEM.pa_num_tbl_type := SYSTEM.pa_num_tbl_type(); /* Venky */
2602: BEGIN
2603: IF ( PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN') = 'Y') THEN
2604: l_struct_version_id_tbl.extend(1); /* Venky */
2605: l_struct_version_id_tbl(1) := p_structure_version_id;
2606: /*Smukka Bug No. 3474141 Date 03/01/2004 */
2607: /*moved PA_FIN_PLAN_PVT.delete_wp_budget_versions into plsql block */

Line 2870: --l_current_working_ver_id := PA_PROJECT_STRUCTURE_UTILS.GET_LAST_UPDATED_WORKING_VER(l_structure_id);

2866:
2867: -- 3804437 Commented below code to retrieve last updated working version
2868: -- because below code is retrieving the current working version only
2869:
2870: --l_current_working_ver_id := PA_PROJECT_STRUCTURE_UTILS.GET_LAST_UPDATED_WORKING_VER(l_structure_id);
2871:
2872: -- Added code to retrieve last updated working version
2873:
2874: OPEN cur_last_working_ver(l_structure_id);

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

3317: ELSE
3318: l_user_id := p_user_id;
3319: END IF;
3320:
3321: l_workplan_type := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN');
3322: l_financial_type := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'FINANCIAL');
3323:
3324: select project_id
3325: into l_project_id

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

3318: l_user_id := p_user_id;
3319: END IF;
3320:
3321: l_workplan_type := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN');
3322: l_financial_type := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'FINANCIAL');
3323:
3324: select project_id
3325: into l_project_id
3326: from pa_proj_element_versions

Line 3330: IF 'Y' = nvl(PA_PROJECT_STRUCTURE_UTILS.Get_Sch_Dirty_fl(l_project_id,

3326: from pa_proj_element_versions
3327: where element_version_id = p_structure_version_id;
3328:
3329: --bug 3840509
3330: IF 'Y' = nvl(PA_PROJECT_STRUCTURE_UTILS.Get_Sch_Dirty_fl(l_project_id,
3331: p_structure_version_id), 'N') THEN
3332: --need to reschedule
3333: PA_UTILS.ADD_MESSAGE('PA','PA_PS_NEED_THIRD_PT_SCH');
3334: x_msg_data := 'PA_PS_NEED_THIRD_PT_SCH';

Line 3339: l_share_flag := PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(l_project_id); --bug 3822112

3335: RAISE FND_API.G_EXC_ERROR;
3336: END IF;
3337: --end bug 3840509
3338:
3339: l_share_flag := PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(l_project_id); --bug 3822112
3340:
3341: --Set the baseline flags
3342: l_original_baseline_flag := p_original_baseline_flag;
3343: l_current_baseline_flag := p_current_baseline_flag;

Line 3348: l_last_pub_str_ver_id:=PA_PROJECT_STRUCTURE_UTILS.GET_LATEST_WP_VERSION(l_project_id);

3344:
3345: /* Smukka 01/03/2004 Bug No. 3450684 */
3346: /* Added the following if block for getting the lastest published structure version id */
3347: IF l_workplan_type = 'Y' THEN
3348: l_last_pub_str_ver_id:=PA_PROJECT_STRUCTURE_UTILS.GET_LATEST_WP_VERSION(l_project_id);
3349: ELSIF l_financial_type = 'Y' THEN
3350: l_last_pub_str_ver_id:=PA_PROJECT_STRUCTURE_UTILS.GET_LATEST_FIN_STRUC_VER_ID(l_project_id);
3351: END IF;
3352:

Line 3350: l_last_pub_str_ver_id:=PA_PROJECT_STRUCTURE_UTILS.GET_LATEST_FIN_STRUC_VER_ID(l_project_id);

3346: /* Added the following if block for getting the lastest published structure version id */
3347: IF l_workplan_type = 'Y' THEN
3348: l_last_pub_str_ver_id:=PA_PROJECT_STRUCTURE_UTILS.GET_LATEST_WP_VERSION(l_project_id);
3349: ELSIF l_financial_type = 'Y' THEN
3350: l_last_pub_str_ver_id:=PA_PROJECT_STRUCTURE_UTILS.GET_LATEST_FIN_STRUC_VER_ID(l_project_id);
3351: END IF;
3352:
3353: --hsiu: changes for checking transaction currency difference
3354: --for bug 3786612

Line 3369: -- IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.check_miss_transaction_tasks(p_structure_version_id)) THEN

3365: --end changes for bug 3786612
3366:
3367: --hsiu: bug 2684465
3368: --Check if this structure missing tasks with transactions
3369: -- IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.check_miss_transaction_tasks(p_structure_version_id)) THEN
3370: -- PA_UTILS.ADD_MESSAGE('PA','PA_PS_MISS_TRANSAC_TASK');
3371: -- x_msg_data := 'PA_PS_MISS_TRANSAC_TASK';
3372: -- RAISE FND_API.G_EXC_ERROR;
3373: -- END IF;

Line 3374: PA_PROJECT_STRUCTURE_UTILS.CHECK_MISS_TRANSACTION_TASKS(p_structure_version_id,

3370: -- PA_UTILS.ADD_MESSAGE('PA','PA_PS_MISS_TRANSAC_TASK');
3371: -- x_msg_data := 'PA_PS_MISS_TRANSAC_TASK';
3372: -- RAISE FND_API.G_EXC_ERROR;
3373: -- END IF;
3374: PA_PROJECT_STRUCTURE_UTILS.CHECK_MISS_TRANSACTION_TASKS(p_structure_version_id,
3375: l_return_status,
3376: l_msg_count,
3377: l_msg_data);
3378: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

Line 3383: PA_PROJECT_STRUCTURE_UTILS.check_tasks_statuses_valid(

3379: RAISE FND_API.G_EXC_ERROR;
3380: END IF;
3381:
3382: --Check if task statuses are consistent
3383: PA_PROJECT_STRUCTURE_UTILS.check_tasks_statuses_valid(
3384: p_structure_version_id
3385: ,l_return_status
3386: ,l_msg_count
3387: ,l_msg_data

Line 3394: PA_PROJECT_STRUCTURE_UTILS.Check_txn_on_summary_tasks(

3390: RAISE FND_API.G_EXC_ERROR;
3391: END IF;
3392:
3393: --Check if any new summary task has transactions
3394: PA_PROJECT_STRUCTURE_UTILS.Check_txn_on_summary_tasks(
3395: p_structure_version_id
3396: ,l_return_status
3397: ,l_msg_count
3398: ,l_msg_data

Line 3413: (PA_PROJECT_STRUCTURE_UTILS.CHECK_SHARING_ENABLED(l_project_id) = 'Y')) THEN

3409: FETCH get_structure_id INTO l_structure_id;
3410: CLOSE get_structure_id;
3411:
3412: IF ((PA_WORKPLAN_ATTR_UTILS.CHECK_AUTO_DATE_SYNC_ENABLED(l_structure_id) = 'Y') AND
3413: (PA_PROJECT_STRUCTURE_UTILS.CHECK_SHARING_ENABLED(l_project_id) = 'Y')) THEN
3414:
3415: PA_PROJECT_STRUCTURE_UTILS.check_exp_item_dates(
3416: p_project_id => l_project_id,
3417: p_structure_version_id => p_structure_version_id,

Line 3415: PA_PROJECT_STRUCTURE_UTILS.check_exp_item_dates(

3411:
3412: IF ((PA_WORKPLAN_ATTR_UTILS.CHECK_AUTO_DATE_SYNC_ENABLED(l_structure_id) = 'Y') AND
3413: (PA_PROJECT_STRUCTURE_UTILS.CHECK_SHARING_ENABLED(l_project_id) = 'Y')) THEN
3414:
3415: PA_PROJECT_STRUCTURE_UTILS.check_exp_item_dates(
3416: p_project_id => l_project_id,
3417: p_structure_version_id => p_structure_version_id,
3418: x_return_status => l_return_status,
3419: x_msg_count => l_msg_count,

Line 3429: -- IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.Check_Publish_Struc_Ver_Ok(p_structure_version_id)) THEN

3425: END IF;
3426: END IF;
3427:
3428: --Check if this structure can be published (ie, if linked structures are published)
3429: -- IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.Check_Publish_Struc_Ver_Ok(p_structure_version_id)) THEN
3430: -- PA_UTILS.ADD_MESSAGE('PA','PA_PS_LINK_STRUC_NOT_PUB');
3431: -- x_msg_data := 'PA_PS_LINK_STRUC_NOT_PUB';
3432: -- RAISE FND_API.G_EXC_ERROR;
3433: -- END IF;

Line 3436: -- IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.check_miss_transaction_tasks(p_structure_version_id)) THEN

3432: -- RAISE FND_API.G_EXC_ERROR;
3433: -- END IF;
3434:
3435: --Check if this structure missing tasks with transactions
3436: -- IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.check_miss_transaction_tasks(p_structure_version_id)) THEN
3437: -- PA_UTILS.ADD_MESSAGE('PA','PA_PS_MISS_TRANSAC_TASK');
3438: -- x_msg_data := 'PA_PS_MISS_TRANSAC_TASK';
3439: -- RAISE FND_API.G_EXC_ERROR;
3440: -- END IF;

Line 3443: -- IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN') = 'Y') THEN

3439: -- RAISE FND_API.G_EXC_ERROR;
3440: -- END IF;
3441:
3442: --For rollups
3443: -- IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN') = 'Y') THEN
3444: -- OPEN get_linking_tasks;
3445: -- LOOP
3446: -- FETCH get_linking_tasks INTO l_linking_task_rec;
3447: -- EXIT WHEN get_linking_tasks%NOTFOUND;

Line 3491: IF ('N' = PA_PROJECT_STRUCTURE_UTILS.CHECK_PUBLISHED_VER_EXISTS(l_project_id, l_proj_element_id)) THEN

3487: CLOSE get_struc_ver_name;
3488: --dbms_output.put_line('1b');
3489:
3490: --Set baseline flags if this is the first published version
3491: IF ('N' = PA_PROJECT_STRUCTURE_UTILS.CHECK_PUBLISHED_VER_EXISTS(l_project_id, l_proj_element_id)) THEN
3492: l_current_baseline_flag := 'Y';
3493: l_original_baseline_flag := 'Y';
3494: END IF;
3495:

Line 3541: IF (pa_project_structure_utils.check_struc_ver_name_unique(l_dummy_name,

3537: -- will result into an existing published version name.
3538:
3539: -- So adding the following call to avoid the U2 violation due to the following update statement.
3540:
3541: IF (pa_project_structure_utils.check_struc_ver_name_unique(l_dummy_name,
3542: null,
3543: l_project_id,
3544: l_proj_element_id) <> 'Y') THEN
3545:

Line 3564: If (PA_PROJECT_STRUCTURE_UTILS.Check_Struc_Ver_Name_Unique(l_new_struct_ver_name,

3560:
3561: END IF;
3562:
3563: --Check if structure version name is unique
3564: If (PA_PROJECT_STRUCTURE_UTILS.Check_Struc_Ver_Name_Unique(l_new_struct_ver_name,
3565: null,
3566: l_project_id,
3567: l_proj_element_id) <> 'Y') THEN
3568: --Not unique; error.

Line 4057: IF (pa_project_structure_utils.check_struc_ver_published(l_to_object_info.object_id_to2 ,l_to_object_info.object_id_to)

4053: OPEN get_to_id(l_task_versions_rec.element_version_id);
4054: FETCH get_to_id INTO l_to_object_info;
4055: IF get_to_id%FOUND THEN
4056: --check if this is working version
4057: IF (pa_project_structure_utils.check_struc_ver_published(l_to_object_info.object_id_to2 ,l_to_object_info.object_id_to)
4058: = 'N') THEN
4059: l_working_ver_fg := 'Y';
4060: ELSE
4061: l_working_ver_fg := 'N';

Line 4404: -- IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN') = 'Y') THEN

4400: --dbms_output.put_line('close get_to_id');
4401: -- CLOSE get_to_id;
4402:
4403:
4404: -- IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN') = 'Y') THEN
4405: /* maansari
4406: IF (l_workplan_type = 'Y') THEN
4407: --dbms_output.put_line('open get_ver_schedule_attr_csr');
4408: OPEN get_ver_schedule_attr_csr(l_task_versions_rec.element_version_id,

Line 4576: -- IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN') = 'Y') THEN

4572: --end changes for task status
4573:
4574:
4575: --hsiu: create schedule row for structure version after delete so that dates are rolledup properly.
4576: -- IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN') = 'Y') THEN
4577: IF (l_workplan_type = 'Y') THEN
4578: --Get Schedule Version Info, if workplan type
4579: --dbms_output.put_line('9');
4580: --dbms_output.put_line('open get_ver_schedule_attr_csr');

Line 5238: -- IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(l_new_struct_ver_id, 'FINANCIAL') = 'Y') THEN

5234: */
5235: -- error_msg('before progress report');
5236:
5237:
5238: -- IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(l_new_struct_ver_id, 'FINANCIAL') = 'Y') THEN
5239:
5240: --bug 4019845
5241: /*
5242: IF (l_financial_type = 'Y') THEN

Line 5339: IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(l_new_struct_ver_id, 'WORKPLAN') = 'Y') THEN

5335: --bug 4019845
5336:
5337:
5338: /* removed
5339: IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(l_new_struct_ver_id, 'WORKPLAN') = 'Y') THEN
5340: --API for progress report.
5341: */
5342: /* removed
5343: PA_PROGRESS_PUB.CREATE_PROGRESS_FOR_WBS(

Line 5384: -- IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(l_new_struct_ver_id, 'WORKPLAN') = 'Y') THEN

5380: --end bug 3830932
5381:
5382: -- anlee
5383: -- Dates changes
5384: -- IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(l_new_struct_ver_id, 'WORKPLAN') = 'Y') THEN
5385: IF (l_workplan_type = 'Y') THEN
5386: OPEN get_scheduled_dates(l_project_id, l_new_struct_ver_id);
5387: FETCH get_scheduled_dates INTO l_scheduled_start_date, l_scheduled_finish_date;
5388: CLOSE get_scheduled_dates;

Line 5421: -- IF ((PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure(l_proj_element_id, 'WORKPLAN') = 'Y') AND

5417: -- hsiu
5418: -- project dates changes
5419: -- copy dates to transaction dates if 1, share structure
5420: -- 2, auto task update is enabled
5421: -- IF ((PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure(l_proj_element_id, 'WORKPLAN') = 'Y') AND
5422: -- (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure(l_proj_element_id, 'FINANCIAL') = 'Y')) THEN
5423: IF ((l_workplan_type = 'Y') AND
5424: (l_financial_type = 'Y')) THEN
5425: --select workplan attr

Line 5422: -- (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure(l_proj_element_id, 'FINANCIAL') = 'Y')) THEN

5418: -- project dates changes
5419: -- copy dates to transaction dates if 1, share structure
5420: -- 2, auto task update is enabled
5421: -- IF ((PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure(l_proj_element_id, 'WORKPLAN') = 'Y') AND
5422: -- (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure(l_proj_element_id, 'FINANCIAL') = 'Y')) THEN
5423: IF ((l_workplan_type = 'Y') AND
5424: (l_financial_type = 'Y')) THEN
5425: --select workplan attr
5426: IF (PA_WORKPLAN_ATTR_UTILS.CHECK_AUTO_DATE_SYNC_ENABLED(l_proj_element_id) = 'Y') THEN

Line 5558: --IF (PA_PROJECT_STRUCTURE_UTILS.GET_UPDATE_WBS_FLAG(l_project_id,

5554: --bug 3035902
5555: --Change the process flag of the published structure version to Y if
5556: --the working version is set to Y
5557: --Bug No 3450684 SMukka Commented if condition
5558: --IF (PA_PROJECT_STRUCTURE_UTILS.GET_UPDATE_WBS_FLAG(l_project_id,
5559: -- p_structure_version_id) = 'Y') THEN
5560: --set the flag for the published version
5561: PA_PROJ_TASK_STRUC_PUB.SET_UPDATE_WBS_FLAG(
5562: p_project_id => l_project_id,

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

5752: ,p_commit => FND_API.G_FALSE
5753: --,p_calling_module => p_calling_module
5754: ,p_project_id => l_Project_ID
5755: ,p_structure_version_id => l_new_struct_ver_id
5756: ,p_baselined_str_ver_id => PA_PROJECT_STRUCTURE_UTILS.Get_Baseline_Struct_Ver(l_Project_ID)
5757: ,p_structure_type => 'WORKPLAN'
5758: ,x_return_status => x_return_status
5759: ,x_msg_count => x_msg_count
5760: ,x_msg_data => x_msg_data

Line 7357: AND b.element_version_id = PA_PROJECT_STRUCTURE_UTILS.GET_LAST_UPDATED_WORKING_VER(c_structure_id)

7353: --Bug 2643432
7354: --This is a temporary fix. The API returns the first row, but since date
7355: --comparison only compares up to the day, not the second, we can only
7356: --return the first selected row in this API.
7357: AND b.element_version_id = PA_PROJECT_STRUCTURE_UTILS.GET_LAST_UPDATED_WORKING_VER(c_structure_id)
7358: -- AND b.last_update_date = (
7359: -- SELECT MAX(c.last_update_date)
7360: -- FROM pa_proj_elem_ver_structure c
7361: -- WHERE c.project_id = a.project_id

Line 7537: IF (PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_src_project_id)

7533: -- Hsiu added
7534: -- For advanced structure
7535:
7536: l_name := substrb(l_project_name, 1, 240);
7537: IF (PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_src_project_id)
7538: = 'N') THEN
7539: --Workplan and financial are separate structures
7540: IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure(
7541: l_structure_rec.proj_element_id, 'WORKPLAN')

Line 7540: IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure(

7536: l_name := substrb(l_project_name, 1, 240);
7537: IF (PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_src_project_id)
7538: = 'N') THEN
7539: --Workplan and financial are separate structures
7540: IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure(
7541: l_structure_rec.proj_element_id, 'WORKPLAN')
7542: = 'Y') THEN
7543:
7544: --Workplan structure

Line 7578: IF (PA_PROJECT_STRUCTURE_UTILS.CHECK_PUBLISHED_VER_EXISTS(p_src_project_id,

7574: l_select := 2;
7575: l_copy := 3;
7576: ELSIF (l_src_template_flag = 'N') AND
7577: (l_dest_template_flag = 'Y') THEN
7578: IF (PA_PROJECT_STRUCTURE_UTILS.CHECK_PUBLISHED_VER_EXISTS(p_src_project_id,
7579: l_structure_rec.proj_element_id) = 'Y') THEN
7580: l_select := 3;
7581: ELSE
7582: l_select := 1;

Line 7587: IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure(

7583: END IF;
7584: l_copy := 1;
7585: END IF;
7586: END IF;
7587: IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure(
7588: l_structure_rec.proj_element_id, 'FINANCIAL')
7589: = 'Y') THEN
7590:
7591: --Financial structure

Line 7594: IF (PA_PROJECT_STRUCTURE_UTILS.CHECK_PUBLISHED_VER_EXISTS(p_src_project_id,

7590:
7591: --Financial structure
7592: l_structure_type := 'FINANCIAL';
7593:
7594: IF (PA_PROJECT_STRUCTURE_UTILS.CHECK_PUBLISHED_VER_EXISTS(p_src_project_id,
7595: l_structure_rec.proj_element_id) = 'Y') THEN
7596: l_select := 3;
7597: ELSE
7598: l_select := 1;

Line 7640: IF (PA_PROJECT_STRUCTURE_UTILS.CHECK_PUBLISHED_VER_EXISTS(p_src_project_id,

7636: l_select := 2;
7637: l_copy := 3;
7638: ELSIF (l_src_template_flag = 'N') AND
7639: (l_dest_template_flag = 'Y') THEN
7640: IF (PA_PROJECT_STRUCTURE_UTILS.CHECK_PUBLISHED_VER_EXISTS(p_src_project_id,
7641: l_structure_rec.proj_element_id) = 'Y') THEN
7642: l_select := 3;
7643: ELSE
7644: l_select := 1;

Line 7865: -- l_is_workplan := pa_project_structure_utils.Get_Struc_Type_For_Structure(l_structure_id,'WORKPLAN');

7861: */
7862:
7863: --commented by hsiu
7864: --Get structure type
7865: -- l_is_workplan := pa_project_structure_utils.Get_Struc_Type_For_Structure(l_structure_id,'WORKPLAN');
7866: -- l_is_billing := pa_project_structure_utils.Get_Struc_Type_For_Structure(l_structure_id,'BILLING');
7867: -- l_is_costing := pa_project_structure_utils.Get_Struc_Type_For_Structure(l_structure_id,'COSTING');
7868:
7869: -- IF (l_is_billing = 'Y') OR (l_is_costing = 'Y') THEN

Line 7866: -- l_is_billing := pa_project_structure_utils.Get_Struc_Type_For_Structure(l_structure_id,'BILLING');

7862:
7863: --commented by hsiu
7864: --Get structure type
7865: -- l_is_workplan := pa_project_structure_utils.Get_Struc_Type_For_Structure(l_structure_id,'WORKPLAN');
7866: -- l_is_billing := pa_project_structure_utils.Get_Struc_Type_For_Structure(l_structure_id,'BILLING');
7867: -- l_is_costing := pa_project_structure_utils.Get_Struc_Type_For_Structure(l_structure_id,'COSTING');
7868:
7869: -- IF (l_is_billing = 'Y') OR (l_is_costing = 'Y') THEN
7870: -- --Check if it has any published version.

Line 7867: -- l_is_costing := pa_project_structure_utils.Get_Struc_Type_For_Structure(l_structure_id,'COSTING');

7863: --commented by hsiu
7864: --Get structure type
7865: -- l_is_workplan := pa_project_structure_utils.Get_Struc_Type_For_Structure(l_structure_id,'WORKPLAN');
7866: -- l_is_billing := pa_project_structure_utils.Get_Struc_Type_For_Structure(l_structure_id,'BILLING');
7867: -- l_is_costing := pa_project_structure_utils.Get_Struc_Type_For_Structure(l_structure_id,'COSTING');
7868:
7869: -- IF (l_is_billing = 'Y') OR (l_is_costing = 'Y') THEN
7870: -- --Check if it has any published version.
7871: -- If (pa_project_structure_utils.CHECK_PUBLISHED_VER_EXISTS(

Line 7871: -- If (pa_project_structure_utils.CHECK_PUBLISHED_VER_EXISTS(

7867: -- l_is_costing := pa_project_structure_utils.Get_Struc_Type_For_Structure(l_structure_id,'COSTING');
7868:
7869: -- IF (l_is_billing = 'Y') OR (l_is_costing = 'Y') THEN
7870: -- --Check if it has any published version.
7871: -- If (pa_project_structure_utils.CHECK_PUBLISHED_VER_EXISTS(
7872: -- p_src_project_id, l_structure_rec.proj_element_id) = 'Y') THEN
7873: -- l_structure_pub_status := 'Y';
7874: -- ELSE
7875: -- l_structure_pub_status := 'N';

Line 8152: IF ('Y' = PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_dest_project_id)) THEN

8148: -- if split, check if 'FINANCIAL'
8149: -- 'PUBLISHED' if financial
8150: -- check if versioned
8151: -- 'WORKING' if versioend; 'PUBLISHED' if not
8152: IF ('Y' = PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_dest_project_id)) THEN
8153: IF ('Y' = PA_WORKPLAN_ATTR_UTILS.Check_Wp_Versioning_Enabled(p_dest_project_id) AND (l_wp_attr_rec.AUTO_PUB_UPON_CREATION_FLAG = 'N')) THEN
8154: l_task_unpub_ver_status_code := 'WORKING';
8155: ELSE
8156: l_task_unpub_ver_status_code := 'PUBLISHED';

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

8155: ELSE
8156: l_task_unpub_ver_status_code := 'PUBLISHED';
8157: END IF;
8158: ELSE --split
8159: IF ('Y' = PA_PROJECT_STRUCTURE_UTILS.get_struc_type_for_structure(l_structure_id, 'FINANCIAL') AND
8160: 'N' = PA_PROJECT_STRUCTURE_UTILS.get_struc_type_for_structure(l_structure_id, 'WORKPLAN')) THEN
8161: l_task_unpub_ver_status_code := 'PUBLISHED';
8162: ELSE --workplan only
8163: IF ('Y' = PA_WORKPLAN_ATTR_UTILS.Check_Wp_Versioning_Enabled(p_dest_project_id) AND (l_wp_attr_rec.AUTO_PUB_UPON_CREATION_FLAG = 'N')) THEN

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

8156: l_task_unpub_ver_status_code := 'PUBLISHED';
8157: END IF;
8158: ELSE --split
8159: IF ('Y' = PA_PROJECT_STRUCTURE_UTILS.get_struc_type_for_structure(l_structure_id, 'FINANCIAL') AND
8160: 'N' = PA_PROJECT_STRUCTURE_UTILS.get_struc_type_for_structure(l_structure_id, 'WORKPLAN')) THEN
8161: l_task_unpub_ver_status_code := 'PUBLISHED';
8162: ELSE --workplan only
8163: IF ('Y' = PA_WORKPLAN_ATTR_UTILS.Check_Wp_Versioning_Enabled(p_dest_project_id) AND (l_wp_attr_rec.AUTO_PUB_UPON_CREATION_FLAG = 'N')) THEN
8164: l_task_unpub_ver_status_code := 'WORKING';

Line 9004: IF PA_PROJECT_STRUCTURE_UTILS.CHECK_PUBLISHED_VER_EXISTS(p_project_id, l_structure_id) = 'Y' THEN

9000: FETCH c1 INTO l_structure_id;
9001: CLOSE c1;
9002:
9003: --check if there is a published workplan version
9004: IF PA_PROJECT_STRUCTURE_UTILS.CHECK_PUBLISHED_VER_EXISTS(p_project_id, l_structure_id) = 'Y' THEN
9005: --cannot split if publish version exists.
9006: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_CANNOT_SPLIT_STRUCT');
9007: x_msg_data := 'PA_PS_CANNOT_SPLIT_STRUCT';
9008: RAISE FND_API.G_EXC_ERROR;

Line 9252: -- IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.check_miss_transaction_tasks(p_structure_version_id)) THEN

9248:
9249:
9250: --hsiu: bug 2684465
9251: --Check if this structure missing tasks with transactions
9252: -- IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.check_miss_transaction_tasks(p_structure_version_id)) THEN
9253: -- PA_UTILS.ADD_MESSAGE('PA','PA_PS_MISS_TRANSAC_TASK');
9254: -- x_msg_data := 'PA_PS_MISS_TRANSAC_TASK';
9255: -- RAISE FND_API.G_EXC_ERROR;
9256: -- END IF;

Line 9257: PA_PROJECT_STRUCTURE_UTILS.CHECK_MISS_TRANSACTION_TASKS(p_structure_version_id,

9253: -- PA_UTILS.ADD_MESSAGE('PA','PA_PS_MISS_TRANSAC_TASK');
9254: -- x_msg_data := 'PA_PS_MISS_TRANSAC_TASK';
9255: -- RAISE FND_API.G_EXC_ERROR;
9256: -- END IF;
9257: PA_PROJECT_STRUCTURE_UTILS.CHECK_MISS_TRANSACTION_TASKS(p_structure_version_id,
9258: l_return_status,
9259: l_msg_count,
9260: l_msg_data);
9261: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

Line 9268: PA_PROJECT_STRUCTURE_UTILS.check_tasks_statuses_valid(

9264:
9265:
9266:
9267: --Check if task statuses are consistent
9268: PA_PROJECT_STRUCTURE_UTILS.check_tasks_statuses_valid(
9269: p_structure_version_id
9270: ,l_return_status
9271: ,l_msg_count
9272: ,l_msg_data

Line 9280: PA_PROJECT_STRUCTURE_UTILS.Check_txn_on_summary_tasks(

9276: END IF;
9277:
9278:
9279: --Check if any new summary task has transactions
9280: PA_PROJECT_STRUCTURE_UTILS.Check_txn_on_summary_tasks(
9281: p_structure_version_id
9282: ,l_return_status
9283: ,l_msg_count
9284: ,l_msg_data

Line 9299: IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.Check_Publish_Struc_Ver_Ok(p_structure_version_id)) THEN

9295: IF (l_auto_pub = 'Y') THEN
9296:
9297: /*
9298: --Check if this structure can be published (ie, if linked structures are published)
9299: IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.Check_Publish_Struc_Ver_Ok(p_structure_version_id)) THEN
9300: PA_UTILS.ADD_MESSAGE('PA','PA_PS_LINK_STRUC_NOT_PUB');
9301: x_msg_data := 'PA_PS_LINK_STRUC_NOT_PUB';
9302: RAISE FND_API.G_EXC_ERROR;
9303: END IF;

Line 9319: IF 'Y' = nvl(PA_PROJECT_STRUCTURE_UTILS.Get_Sch_Dirty_fl(p_project_id,

9315: );
9316: */
9317:
9318: --bug 3840509
9319: IF 'Y' = nvl(PA_PROJECT_STRUCTURE_UTILS.Get_Sch_Dirty_fl(p_project_id,
9320: p_structure_version_id), 'N') THEN
9321: --need to reschedule
9322: PA_UTILS.ADD_MESSAGE('PA','PA_PS_NEED_THIRD_PT_SCH');
9323: x_msg_data := 'PA_PS_NEED_THIRD_PT_SCH';

Line 9369: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(

9365: OPEN sel_other_structure_ver(p_structure_version_id);
9366: LOOP
9367: FETCH sel_other_structure_ver into l_del_struc_ver_id;
9368: EXIT WHEN sel_other_structure_ver%NOTFOUND;
9369: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(
9370: p_project_id => p_project_id
9371: ,p_structure_version_id =>l_del_struc_ver_id
9372: ,x_return_status => l_return_status
9373: ,x_error_message_code => l_msg_data

Line 10071: PA_PROJECT_STRUCTURE_UTILS.CHECK_WORKPLAN_ENABLED(p_project_id)) THEN

10067:
10068: /*
10069: --For enabling workplan
10070: IF (p_workplan_enabled_flag <>
10071: PA_PROJECT_STRUCTURE_UTILS.CHECK_WORKPLAN_ENABLED(p_project_id)) THEN
10072: --BEGIN ENABLING WP CODE
10073:
10074: IF (p_workplan_enabled_flag = 'Y') THEN
10075: --Validation

Line 10076: PA_PROJECT_STRUCTURE_UTILS.check_enable_wp_ok(p_project_id,

10072: --BEGIN ENABLING WP CODE
10073:
10074: IF (p_workplan_enabled_flag = 'Y') THEN
10075: --Validation
10076: PA_PROJECT_STRUCTURE_UTILS.check_enable_wp_ok(p_project_id,
10077: l_ret_stat,
10078: l_err_msg_code);
10079: IF (l_ret_stat = 'N') THEN
10080: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);

Line 10210: PA_PROJECT_STRUCTURE_UTILS.check_disable_wp_ok(p_project_id,

10206:
10207: --end enable WP
10208: ELSE
10209: --Validation
10210: PA_PROJECT_STRUCTURE_UTILS.check_disable_wp_ok(p_project_id,
10211: l_ret_stat,
10212: l_err_msg_code);
10213: IF (l_ret_stat = 'N') THEN
10214: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);

Line 10225: IF (PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_project_id)

10221: OPEN sel_wp_structure_id;
10222: FETCH sel_wp_structure_id INTO l_structure_id;
10223: CLOSE sel_wp_structure_id;
10224:
10225: IF (PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_project_id)
10226: = 'Y') THEN
10227: --Shared
10228: --Select version to be kept
10229: OPEN sel_latest_pub_ver(l_structure_id);

Line 10232: l_keep_structure_ver_id := PA_PROJECT_STRUCTURE_UTILS.GET_LAST_UPDATED_WORKING_VER(l_structure_id);

10228: --Select version to be kept
10229: OPEN sel_latest_pub_ver(l_structure_id);
10230: FETCH sel_latest_pub_ver into l_keep_structure_ver_id;
10231: IF sel_latest_pub_ver%NOTFOUND THEN
10232: l_keep_structure_ver_id := PA_PROJECT_STRUCTURE_UTILS.GET_LAST_UPDATED_WORKING_VER(l_structure_id);
10233: END IF;
10234: CLOSE sel_latest_pub_ver;
10235:
10236: --Delete all other structure versions

Line 10243: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(

10239: FETCH sel_other_structure_ver into l_del_struc_ver_id,
10240: l_struc_ver_rvn;
10241: EXIT WHEN sel_other_structure_ver%NOTFOUND;
10242: -----hsiu: bug 2800553: added for sharing/splitting performance
10243: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(
10244: p_project_id,
10245: l_del_struc_ver_id,
10246: l_return_status,
10247: l_err_msg_code);

Line 10403: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(

10399: LOOP
10400: FETCH sel_all_wp_structure_ver into l_del_struc_ver_id,
10401: l_struc_ver_rvn;
10402: EXIT WHEN sel_all_wp_structure_ver%NOTFOUND;
10403: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(
10404: p_project_id,
10405: l_del_struc_ver_id,
10406: l_return_status,
10407: l_err_msg_code);

Line 10468: PA_PROJECT_STRUCTURE_UTILS.CHECK_SHARING_ENABLED(p_project_id)) THEN

10464: END IF;
10465:
10466: --For sharing workplan
10467: IF (p_sharing_enabled_flag <>
10468: PA_PROJECT_STRUCTURE_UTILS.CHECK_SHARING_ENABLED(p_project_id)) THEN
10469: --get structure_id
10470: OPEN sel_wp_structure_id;
10471: FETCH sel_wp_structure_id INTO l_structure_id;
10472: CLOSE sel_wp_structure_id;

Line 10485: PA_PROJECT_STRUCTURE_UTILS.CHECK_WORKPLAN_ENABLED(p_project_id) = 'Y') THEN

10481: CLOSE sel_proj_progress_attr;
10482:
10483: --BEGIN SHARING CODE
10484: IF (p_sharing_enabled_flag = 'Y' AND
10485: PA_PROJECT_STRUCTURE_UTILS.CHECK_WORKPLAN_ENABLED(p_project_id) = 'Y') THEN
10486: --Validation
10487: PA_PROJECT_STRUCTURE_UTILS.check_sharing_on_ok(p_project_id,
10488: l_ret_stat,
10489: l_err_msg_code);

Line 10487: PA_PROJECT_STRUCTURE_UTILS.check_sharing_on_ok(p_project_id,

10483: --BEGIN SHARING CODE
10484: IF (p_sharing_enabled_flag = 'Y' AND
10485: PA_PROJECT_STRUCTURE_UTILS.CHECK_WORKPLAN_ENABLED(p_project_id) = 'Y') THEN
10486: --Validation
10487: PA_PROJECT_STRUCTURE_UTILS.check_sharing_on_ok(p_project_id,
10488: l_ret_stat,
10489: l_err_msg_code);
10490: IF (l_ret_stat = 'N') THEN
10491: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);

Line 10513: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(

10509: LOOP
10510: FETCH sel_all_wp_structure_ver into l_del_struc_ver_id,
10511: l_struc_ver_rvn;
10512: EXIT WHEN sel_all_wp_structure_ver%NOTFOUND;
10513: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(
10514: p_project_id,
10515: l_del_struc_ver_id,
10516: l_return_status,
10517: l_err_msg_code);

Line 10906: PA_PROJECT_STRUCTURE_UTILS.CHECK_WORKPLAN_ENABLED(p_project_id) = 'N') THEN

10902: END IF;
10903:
10904: --end sharing on
10905: ELSIF (p_sharing_enabled_flag = 'Y' AND
10906: PA_PROJECT_STRUCTURE_UTILS.CHECK_WORKPLAN_ENABLED(p_project_id) = 'N') THEN
10907: PA_UTILS.ADD_MESSAGE('PA','PA_PS_WP_NOT_EN_SHR_ERR');
10908: x_msg_data := 'PA_PS_WP_NOT_EN_SHR_ERR';
10909: RAISE FND_API.G_EXC_ERROR;
10910: ELSIF (p_sharing_enabled_flag = 'N') THEN

Line 10912: PA_PROJECT_STRUCTURE_UTILS.check_sharing_off_ok(p_project_id,

10908: x_msg_data := 'PA_PS_WP_NOT_EN_SHR_ERR';
10909: RAISE FND_API.G_EXC_ERROR;
10910: ELSIF (p_sharing_enabled_flag = 'N') THEN
10911: --Validation
10912: PA_PROJECT_STRUCTURE_UTILS.check_sharing_off_ok(p_project_id,
10913: l_ret_stat,
10914: l_err_msg_code);
10915: IF (l_ret_stat = 'N') THEN
10916: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);

Line 10925: l_keep_structure_ver_id := PA_PROJECT_STRUCTURE_UTILS.GET_LAST_UPDATED_WORKING_VER(l_structure_id);

10921: --Select version to be kept
10922: OPEN sel_latest_pub_ver(l_structure_id);
10923: FETCH sel_latest_pub_ver into l_keep_structure_ver_id;
10924: IF sel_latest_pub_ver%NOTFOUND THEN
10925: l_keep_structure_ver_id := PA_PROJECT_STRUCTURE_UTILS.GET_LAST_UPDATED_WORKING_VER(l_structure_id);
10926: END IF;
10927: CLOSE sel_latest_pub_ver;
10928:
10929: --Delete all other structure versions

Line 10935: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(

10931: LOOP
10932: FETCH sel_other_structure_ver into l_del_struc_ver_id,
10933: l_struc_ver_rvn;
10934: EXIT WHEN sel_other_structure_ver%NOTFOUND;
10935: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(
10936: p_project_id,
10937: l_del_struc_ver_id,
10938: l_return_status,
10939: l_err_msg_code);

Line 11425: PA_PROJECT_STRUCTURE_UTILS.check_versioning_on_ok(

11421: END IF;
11422:
11423: IF (p_enable_wp_version_flag = 'Y') THEN
11424: --enable versioning
11425: PA_PROJECT_STRUCTURE_UTILS.check_versioning_on_ok(
11426: p_proj_element_id
11427: ,l_ret_stat
11428: ,l_err_msg_code);
11429: IF (l_ret_stat = 'N') THEN

Line 11448: IF PA_PROJECT_STRUCTURE_UTILS.Check_Struc_Ver_Published(sub_projects_rec.sub_project_id, sub_projects_rec.sub_structure_ver_id) = 'N'

11444: --bug 4546607
11445: --Delete all LW links without checking bcoz versioning is always allowed
11446: --for workplan.
11447: FOR sub_projects_rec in sub_projects(l_project_id, 'LW') LOOP
11448: IF PA_PROJECT_STRUCTURE_UTILS.Check_Struc_Ver_Published(sub_projects_rec.sub_project_id, sub_projects_rec.sub_structure_ver_id) = 'N'
11449: THEN
11450: PA_RELATIONSHIP_PUB.Delete_SubProject_Association(
11451: p_object_relationships_id => sub_projects_rec.object_relationship_id,
11452: p_record_version_number => sub_projects_rec.record_version_number,

Line 11521: PA_PROJECT_STRUCTURE_UTILS.check_versioning_off_ok(

11517:
11518: --end enable versioning
11519: ELSIF (p_enable_wp_version_flag = 'N') THEN
11520: --disable versioning
11521: PA_PROJECT_STRUCTURE_UTILS.check_versioning_off_ok(
11522: p_proj_element_id
11523: ,l_ret_stat
11524: ,l_err_msg_code);
11525: IF (l_ret_stat = 'N') THEN

Line 11541: l_keep_structure_ver_id := PA_PROJECT_STRUCTURE_UTILS.GET_LAST_UPDATED_WORKING_VER(p_proj_element_id);

11537: --Select version to be kept
11538: OPEN sel_latest_pub_ver(p_proj_element_id);
11539: FETCH sel_latest_pub_ver into l_keep_structure_ver_id;
11540: IF sel_latest_pub_ver%NOTFOUND THEN
11541: l_keep_structure_ver_id := PA_PROJECT_STRUCTURE_UTILS.GET_LAST_UPDATED_WORKING_VER(p_proj_element_id);
11542: END IF;
11543: CLOSE sel_latest_pub_ver;
11544:
11545: --Delete all versions except the keep version

Line 12408: If ('Y' = PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN')) THEN

12404: pa_debug.debug('done deleting tasks');
12405: END IF;
12406: --If all tasks are deleted, delete schedule if workplan
12407: --Check if this is workplan
12408: If ('Y' = PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN')) THEN
12409: --Structure type exists. Delete from schedule table
12410: IF (p_debug_mode = 'Y') THEN
12411: pa_debug.debug('WORKPLAN type');
12412: END IF;

Line 12506: IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure(l_proj_element_id, 'WORKPLAN') = 'Y') THEN

12502: pa_debug.debug('delete non-versioned structure');
12503: END IF;
12504:
12505:
12506: IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure(l_proj_element_id, 'WORKPLAN') = 'Y') THEN
12507: --delete workplan attribute
12508: OPEN sel_wp_attr(l_proj_element_id);
12509: FETCH sel_wp_attr into l_wp_attr_rvn;
12510: CLOSE sel_wp_attr;

Line 13527: l_wp_struc := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN');

13523: --Search for outgoing links for the structure version; create new Links
13524: -- Amit: Code(get_to_id) which was commented earlier is removed. If needed it can be found from COPY_STRUCTURE_VERSION
13525:
13526: --hsiu: added to check for structure type
13527: l_wp_struc := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN');
13528: l_fin_struc:= PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'FINANCIAL');
13529:
13530: OPEN l_get_structure_type_csr(p_structure_version_id);
13531: FETCH l_get_structure_type_csr INTO l_structure_type;

Line 13528: l_fin_struc:= PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'FINANCIAL');

13524: -- Amit: Code(get_to_id) which was commented earlier is removed. If needed it can be found from COPY_STRUCTURE_VERSION
13525:
13526: --hsiu: added to check for structure type
13527: l_wp_struc := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN');
13528: l_fin_struc:= PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'FINANCIAL');
13529:
13530: OPEN l_get_structure_type_csr(p_structure_version_id);
13531: FETCH l_get_structure_type_csr INTO l_structure_type;
13532: CLOSE l_get_structure_type_csr;

Line 13943: (pa_project_structure_utils.Check_Struc_Ver_Published(l_project_id, l_new_struct_ver_id) = 'Y')

13939: -- The out going sub-project association links will not copied into the new structure version
13940: -- if the new structure version created is a working structure version.
13941:
13942: if
13943: (pa_project_structure_utils.Check_Struc_Ver_Published(l_project_id, l_new_struct_ver_id) = 'Y')
13944: then
13945:
13946: -- End fix for Bug # 4530436.
13947:

Line 14532: l_wp_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_workplan_enabled(p_project_id);

14528: IF (p_debug_mode = 'Y') THEN
14529: pa_debug.debug('Performing validations');
14530: END IF;
14531:
14532: l_wp_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_workplan_enabled(p_project_id);
14533: l_fin_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_financial_enabled(p_project_id);
14534: l_share_code := PA_PROJECT_STRUCTURE_UTILS.Get_Structure_sharing_code(p_project_id);
14535: l_delv_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_deliverable_enabled(p_project_id);
14536:

Line 14533: l_fin_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_financial_enabled(p_project_id);

14529: pa_debug.debug('Performing validations');
14530: END IF;
14531:
14532: l_wp_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_workplan_enabled(p_project_id);
14533: l_fin_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_financial_enabled(p_project_id);
14534: l_share_code := PA_PROJECT_STRUCTURE_UTILS.Get_Structure_sharing_code(p_project_id);
14535: l_delv_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_deliverable_enabled(p_project_id);
14536:
14537:

Line 14534: l_share_code := PA_PROJECT_STRUCTURE_UTILS.Get_Structure_sharing_code(p_project_id);

14530: END IF;
14531:
14532: l_wp_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_workplan_enabled(p_project_id);
14533: l_fin_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_financial_enabled(p_project_id);
14534: l_share_code := PA_PROJECT_STRUCTURE_UTILS.Get_Structure_sharing_code(p_project_id);
14535: l_delv_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_deliverable_enabled(p_project_id);
14536:
14537:
14538: --get template flag

Line 14535: l_delv_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_deliverable_enabled(p_project_id);

14531:
14532: l_wp_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_workplan_enabled(p_project_id);
14533: l_fin_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_financial_enabled(p_project_id);
14534: l_share_code := PA_PROJECT_STRUCTURE_UTILS.Get_Structure_sharing_code(p_project_id);
14535: l_delv_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_deliverable_enabled(p_project_id);
14536:
14537:
14538: --get template flag
14539: OPEN get_template_flag;

Line 14580: --PA_PROJECT_STRUCTURE_UTILS.check_disable_wp_ok(p_project_id,

14576:
14577: --check if ok to enable workplan
14578: If (l_wp_enabled <> p_workplan_enabled_flag AND p_workplan_enabled_flag = 'Y') THEN
14579: -- Bug 6832737 Changed check_disable_wp_ok to check_enable_wp_ok
14580: --PA_PROJECT_STRUCTURE_UTILS.check_disable_wp_ok(p_project_id,
14581: PA_PROJECT_STRUCTURE_UTILS.check_enable_wp_ok(p_project_id,
14582: l_ret_stat,
14583: l_err_msg_code);
14584: IF (l_ret_stat = 'N') THEN

Line 14581: PA_PROJECT_STRUCTURE_UTILS.check_enable_wp_ok(p_project_id,

14577: --check if ok to enable workplan
14578: If (l_wp_enabled <> p_workplan_enabled_flag AND p_workplan_enabled_flag = 'Y') THEN
14579: -- Bug 6832737 Changed check_disable_wp_ok to check_enable_wp_ok
14580: --PA_PROJECT_STRUCTURE_UTILS.check_disable_wp_ok(p_project_id,
14581: PA_PROJECT_STRUCTURE_UTILS.check_enable_wp_ok(p_project_id,
14582: l_ret_stat,
14583: l_err_msg_code);
14584: IF (l_ret_stat = 'N') THEN
14585: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);

Line 14593: PA_PROJECT_STRUCTURE_UTILS.check_disable_wp_ok(p_project_id,

14589: END IF;
14590:
14591: --check if ok to disable workplan
14592: IF (l_wp_enabled <> p_workplan_enabled_flag AND p_workplan_enabled_flag = 'N') THEN
14593: PA_PROJECT_STRUCTURE_UTILS.check_disable_wp_ok(p_project_id,
14594: l_ret_stat,
14595: l_err_msg_code);
14596: IF (l_ret_stat = 'N') THEN
14597: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);

Line 14605: PA_PROJECT_STRUCTURE_UTILS.check_sharing_on_ok(p_project_id,

14601: END IF;
14602:
14603: --check if ok to share
14604: IF (l_share_code IN ('SPLIT_MAPPING','SPLIT_NO_MAPPING') and p_sharing_option_code IN ('SHARE_FULL','SHARE_PARTIAL')) THEN
14605: PA_PROJECT_STRUCTURE_UTILS.check_sharing_on_ok(p_project_id,
14606: l_ret_stat,
14607: l_err_msg_code);
14608: IF (l_ret_stat = 'N') THEN
14609: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);

Line 14617: PA_PROJECT_STRUCTURE_UTILS.check_sharing_off_ok(p_project_id,

14613: END IF;
14614:
14615: --check if ok to split
14616: IF (l_share_code IN ('SHARE_FULL','SHARE_PARTIAL') and p_sharing_option_code IN ('SPLIT_MAPPING','SPLIT_NO_MAPPING')) THEN
14617: PA_PROJECT_STRUCTURE_UTILS.check_sharing_off_ok(p_project_id,
14618: l_ret_stat,
14619: l_err_msg_code);
14620: IF (l_ret_stat = 'N') THEN
14621: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);

Line 15766: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(

15762: LOOP
15763: FETCH sel_all_wp_structure_ver into l_del_struc_ver_id,
15764: l_struc_ver_rvn;
15765: EXIT WHEN sel_all_wp_structure_ver%NOTFOUND;
15766: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(
15767: p_project_id,
15768: l_del_struc_ver_id,
15769: l_return_status,
15770: l_err_msg_code);

Line 16281: l_keep_structure_ver_id := PA_PROJECT_STRUCTURE_UTILS.GET_LAST_UPDATED_WORKING_VER(l_structure_id);

16277: --get structure version id
16278: OPEN sel_latest_pub_ver(l_structure_id);
16279: FETCH sel_latest_pub_ver into l_structure_version_id;
16280: IF sel_latest_pub_ver%NOTFOUND THEN
16281: l_keep_structure_ver_id := PA_PROJECT_STRUCTURE_UTILS.GET_LAST_UPDATED_WORKING_VER(l_structure_id);
16282: ELSE
16283: l_keep_structure_ver_id := l_structure_version_id;
16284: END IF;
16285: CLOSE sel_latest_pub_ver;

Line 16343: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(

16339: LOOP
16340: FETCH sel_other_structure_ver into l_del_struc_ver_id,
16341: l_struc_ver_rvn;
16342: EXIT WHEN sel_other_structure_ver%NOTFOUND;
16343: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(
16344: p_project_id,
16345: l_del_struc_ver_id,
16346: l_return_status,
16347: l_err_msg_code);

Line 16719: l_structure_version_id := PA_PROJECT_STRUCTURE_UTILS.GET_LAST_UPDATED_WORKING_VER(l_structure_id);

16715: --get structure version id
16716: OPEN sel_latest_pub_ver(l_structure_id);
16717: FETCH sel_latest_pub_ver into l_structure_version_id;
16718: IF sel_latest_pub_ver%NOTFOUND THEN
16719: l_structure_version_id := PA_PROJECT_STRUCTURE_UTILS.GET_LAST_UPDATED_WORKING_VER(l_structure_id);
16720: ELSE
16721: l_keep_structure_ver_id := l_structure_version_id;
16722: END IF;
16723: CLOSE sel_latest_pub_ver;

Line 16807: l_keep_structure_ver_id := PA_PROJECT_STRUCTURE_UTILS.GET_LAST_UPDATED_WORKING_VER(l_structure_id);

16803: --get structure version id
16804: OPEN sel_latest_pub_ver(l_structure_id);
16805: FETCH sel_latest_pub_ver into l_structure_version_id;
16806: IF sel_latest_pub_ver%NOTFOUND THEN
16807: l_keep_structure_ver_id := PA_PROJECT_STRUCTURE_UTILS.GET_LAST_UPDATED_WORKING_VER(l_structure_id);
16808: ELSE
16809: l_keep_structure_ver_id := l_structure_version_id;
16810: END IF;
16811: CLOSE sel_latest_pub_ver;

Line 16878: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(

16874: LOOP
16875: FETCH sel_other_structure_ver into l_del_struc_ver_id,
16876: l_struc_ver_rvn;
16877: EXIT WHEN sel_other_structure_ver%NOTFOUND;
16878: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(
16879: p_project_id,
16880: l_del_struc_ver_id,
16881: l_return_status,
16882: l_err_msg_code);

Line 17213: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(

17209: LOOP
17210: FETCH sel_all_wp_structure_ver into l_del_struc_ver_id,
17211: l_struc_ver_rvn;
17212: EXIT WHEN sel_all_wp_structure_ver%NOTFOUND;
17213: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(
17214: p_project_id,
17215: l_del_struc_ver_id,
17216: l_return_status,
17217: l_err_msg_code);

Line 17307: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(

17303: LOOP
17304: FETCH sel_all_wp_structure_ver into l_del_struc_ver_id,
17305: l_struc_ver_rvn;
17306: EXIT WHEN sel_all_wp_structure_ver%NOTFOUND;
17307: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(
17308: p_project_id,
17309: l_del_struc_ver_id,
17310: l_return_status,
17311: l_err_msg_code);

Line 17607: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(

17603: LOOP
17604: FETCH sel_all_wp_structure_ver into l_del_struc_ver_id,
17605: l_struc_ver_rvn;
17606: EXIT WHEN sel_all_wp_structure_ver%NOTFOUND;
17607: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(
17608: p_project_id,
17609: l_del_struc_ver_id,
17610: l_return_status,
17611: l_err_msg_code);

Line 17699: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(

17695: LOOP
17696: FETCH sel_all_wp_structure_ver into l_del_struc_ver_id,
17697: l_struc_ver_rvn;
17698: EXIT WHEN sel_all_wp_structure_ver%NOTFOUND;
17699: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(
17700: p_project_id,
17701: l_del_struc_ver_id,
17702: l_return_status,
17703: l_err_msg_code);