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 2326: l_is_wp_str := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure(p_structure_id, 'WORKPLAN');

2322: end if;
2323:
2324: -- Begin fix for Bug # 4506308.
2325:
2326: l_is_wp_str := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure(p_structure_id, 'WORKPLAN');
2327:
2328: if (l_is_wp_str = 'Y') then
2329:
2330: open l_cur_projects_all(p_structure_id);

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

2580: /* Changing data type from PA_PLSQL_DATATYPES.IdTabTyp to SYSTEM.pa_num_tbl_type */
2581: /* l_struct_version_id_tbl PA_PLSQL_DATATYPES.IdTabTyp; */
2582: l_struct_version_id_tbl SYSTEM.pa_num_tbl_type := SYSTEM.pa_num_tbl_type(); /* Venky */
2583: BEGIN
2584: IF ( PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN') = 'Y') THEN
2585: l_struct_version_id_tbl.extend(1); /* Venky */
2586: l_struct_version_id_tbl(1) := p_structure_version_id;
2587: /*Smukka Bug No. 3474141 Date 03/01/2004 */
2588: /*moved PA_FIN_PLAN_PVT.delete_wp_budget_versions into plsql block */

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

2847:
2848: -- 3804437 Commented below code to retrieve last updated working version
2849: -- because below code is retrieving the current working version only
2850:
2851: --l_current_working_ver_id := PA_PROJECT_STRUCTURE_UTILS.GET_LAST_UPDATED_WORKING_VER(l_structure_id);
2852:
2853: -- Added code to retrieve last updated working version
2854:
2855: OPEN cur_last_working_ver(l_structure_id);

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

3277: ELSE
3278: l_user_id := p_user_id;
3279: END IF;
3280:
3281: l_workplan_type := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN');
3282: l_financial_type := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'FINANCIAL');
3283:
3284: select project_id
3285: into l_project_id

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

3278: l_user_id := p_user_id;
3279: END IF;
3280:
3281: l_workplan_type := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN');
3282: l_financial_type := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'FINANCIAL');
3283:
3284: select project_id
3285: into l_project_id
3286: from pa_proj_element_versions

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

3286: from pa_proj_element_versions
3287: where element_version_id = p_structure_version_id;
3288:
3289: --bug 3840509
3290: IF 'Y' = nvl(PA_PROJECT_STRUCTURE_UTILS.Get_Sch_Dirty_fl(l_project_id,
3291: p_structure_version_id), 'N') THEN
3292: --need to reschedule
3293: PA_UTILS.ADD_MESSAGE('PA','PA_PS_NEED_THIRD_PT_SCH');
3294: x_msg_data := 'PA_PS_NEED_THIRD_PT_SCH';

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

3295: RAISE FND_API.G_EXC_ERROR;
3296: END IF;
3297: --end bug 3840509
3298:
3299: l_share_flag := PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(l_project_id); --bug 3822112
3300:
3301: --Set the baseline flags
3302: l_original_baseline_flag := p_original_baseline_flag;
3303: l_current_baseline_flag := p_current_baseline_flag;

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

3304:
3305: /* Smukka 01/03/2004 Bug No. 3450684 */
3306: /* Added the following if block for getting the lastest published structure version id */
3307: IF l_workplan_type = 'Y' THEN
3308: l_last_pub_str_ver_id:=PA_PROJECT_STRUCTURE_UTILS.GET_LATEST_WP_VERSION(l_project_id);
3309: ELSIF l_financial_type = 'Y' THEN
3310: l_last_pub_str_ver_id:=PA_PROJECT_STRUCTURE_UTILS.GET_LATEST_FIN_STRUC_VER_ID(l_project_id);
3311: END IF;
3312:

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

3306: /* Added the following if block for getting the lastest published structure version id */
3307: IF l_workplan_type = 'Y' THEN
3308: l_last_pub_str_ver_id:=PA_PROJECT_STRUCTURE_UTILS.GET_LATEST_WP_VERSION(l_project_id);
3309: ELSIF l_financial_type = 'Y' THEN
3310: l_last_pub_str_ver_id:=PA_PROJECT_STRUCTURE_UTILS.GET_LATEST_FIN_STRUC_VER_ID(l_project_id);
3311: END IF;
3312:
3313: --hsiu: changes for checking transaction currency difference
3314: --for bug 3786612

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

3325: --end changes for bug 3786612
3326:
3327: --hsiu: bug 2684465
3328: --Check if this structure missing tasks with transactions
3329: -- IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.check_miss_transaction_tasks(p_structure_version_id)) THEN
3330: -- PA_UTILS.ADD_MESSAGE('PA','PA_PS_MISS_TRANSAC_TASK');
3331: -- x_msg_data := 'PA_PS_MISS_TRANSAC_TASK';
3332: -- RAISE FND_API.G_EXC_ERROR;
3333: -- END IF;

Line 3334: PA_PROJECT_STRUCTURE_UTILS.CHECK_MISS_TRANSACTION_TASKS(p_structure_version_id,

3330: -- PA_UTILS.ADD_MESSAGE('PA','PA_PS_MISS_TRANSAC_TASK');
3331: -- x_msg_data := 'PA_PS_MISS_TRANSAC_TASK';
3332: -- RAISE FND_API.G_EXC_ERROR;
3333: -- END IF;
3334: PA_PROJECT_STRUCTURE_UTILS.CHECK_MISS_TRANSACTION_TASKS(p_structure_version_id,
3335: l_return_status,
3336: l_msg_count,
3337: l_msg_data);
3338: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

Line 3343: PA_PROJECT_STRUCTURE_UTILS.check_tasks_statuses_valid(

3339: RAISE FND_API.G_EXC_ERROR;
3340: END IF;
3341:
3342: --Check if task statuses are consistent
3343: PA_PROJECT_STRUCTURE_UTILS.check_tasks_statuses_valid(
3344: p_structure_version_id
3345: ,l_return_status
3346: ,l_msg_count
3347: ,l_msg_data

Line 3354: PA_PROJECT_STRUCTURE_UTILS.Check_txn_on_summary_tasks(

3350: RAISE FND_API.G_EXC_ERROR;
3351: END IF;
3352:
3353: --Check if any new summary task has transactions
3354: PA_PROJECT_STRUCTURE_UTILS.Check_txn_on_summary_tasks(
3355: p_structure_version_id
3356: ,l_return_status
3357: ,l_msg_count
3358: ,l_msg_data

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

3365: --end bug 2684465
3366:
3367:
3368: --Check if this structure can be published (ie, if linked structures are published)
3369: -- IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.Check_Publish_Struc_Ver_Ok(p_structure_version_id)) THEN
3370: -- PA_UTILS.ADD_MESSAGE('PA','PA_PS_LINK_STRUC_NOT_PUB');
3371: -- x_msg_data := 'PA_PS_LINK_STRUC_NOT_PUB';
3372: -- RAISE FND_API.G_EXC_ERROR;
3373: -- END IF;

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

3372: -- RAISE FND_API.G_EXC_ERROR;
3373: -- END IF;
3374:
3375: --Check if this structure missing tasks with transactions
3376: -- IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.check_miss_transaction_tasks(p_structure_version_id)) THEN
3377: -- PA_UTILS.ADD_MESSAGE('PA','PA_PS_MISS_TRANSAC_TASK');
3378: -- x_msg_data := 'PA_PS_MISS_TRANSAC_TASK';
3379: -- RAISE FND_API.G_EXC_ERROR;
3380: -- END IF;

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

3379: -- RAISE FND_API.G_EXC_ERROR;
3380: -- END IF;
3381:
3382: --For rollups
3383: -- IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN') = 'Y') THEN
3384: -- OPEN get_linking_tasks;
3385: -- LOOP
3386: -- FETCH get_linking_tasks INTO l_linking_task_rec;
3387: -- EXIT WHEN get_linking_tasks%NOTFOUND;

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

3427: CLOSE get_struc_ver_name;
3428: --dbms_output.put_line('1b');
3429:
3430: --Set baseline flags if this is the first published version
3431: IF ('N' = PA_PROJECT_STRUCTURE_UTILS.CHECK_PUBLISHED_VER_EXISTS(l_project_id, l_proj_element_id)) THEN
3432: l_current_baseline_flag := 'Y';
3433: l_original_baseline_flag := 'Y';
3434: END IF;
3435:

Line 3481: IF (pa_project_structure_utils.check_struc_ver_name_unique(l_dummy_name,

3477: -- will result into an existing published version name.
3478:
3479: -- So adding the following call to avoid the U2 violation due to the following update statement.
3480:
3481: IF (pa_project_structure_utils.check_struc_ver_name_unique(l_dummy_name,
3482: null,
3483: l_project_id,
3484: l_proj_element_id) <> 'Y') THEN
3485:

Line 3504: If (PA_PROJECT_STRUCTURE_UTILS.Check_Struc_Ver_Name_Unique(l_new_struct_ver_name,

3500:
3501: END IF;
3502:
3503: --Check if structure version name is unique
3504: If (PA_PROJECT_STRUCTURE_UTILS.Check_Struc_Ver_Name_Unique(l_new_struct_ver_name,
3505: null,
3506: l_project_id,
3507: l_proj_element_id) <> 'Y') THEN
3508: --Not unique; error.

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

3993: OPEN get_to_id(l_task_versions_rec.element_version_id);
3994: FETCH get_to_id INTO l_to_object_info;
3995: IF get_to_id%FOUND THEN
3996: --check if this is working version
3997: IF (pa_project_structure_utils.check_struc_ver_published(l_to_object_info.object_id_to2 ,l_to_object_info.object_id_to)
3998: = 'N') THEN
3999: l_working_ver_fg := 'Y';
4000: ELSE
4001: l_working_ver_fg := 'N';

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

4340: --dbms_output.put_line('close get_to_id');
4341: -- CLOSE get_to_id;
4342:
4343:
4344: -- IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN') = 'Y') THEN
4345: /* maansari
4346: IF (l_workplan_type = 'Y') THEN
4347: --dbms_output.put_line('open get_ver_schedule_attr_csr');
4348: OPEN get_ver_schedule_attr_csr(l_task_versions_rec.element_version_id,

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

4512: --end changes for task status
4513:
4514:
4515: --hsiu: create schedule row for structure version after delete so that dates are rolledup properly.
4516: -- IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN') = 'Y') THEN
4517: IF (l_workplan_type = 'Y') THEN
4518: --Get Schedule Version Info, if workplan type
4519: --dbms_output.put_line('9');
4520: --dbms_output.put_line('open get_ver_schedule_attr_csr');

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

5174: */
5175: -- error_msg('before progress report');
5176:
5177:
5178: -- IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(l_new_struct_ver_id, 'FINANCIAL') = 'Y') THEN
5179:
5180: --bug 4019845
5181: /*
5182: IF (l_financial_type = 'Y') THEN

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

5275: --bug 4019845
5276:
5277:
5278: /* removed
5279: IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(l_new_struct_ver_id, 'WORKPLAN') = 'Y') THEN
5280: --API for progress report.
5281: */
5282: /* removed
5283: PA_PROGRESS_PUB.CREATE_PROGRESS_FOR_WBS(

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

5320: --end bug 3830932
5321:
5322: -- anlee
5323: -- Dates changes
5324: -- IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(l_new_struct_ver_id, 'WORKPLAN') = 'Y') THEN
5325: IF (l_workplan_type = 'Y') THEN
5326: OPEN get_scheduled_dates(l_project_id, l_new_struct_ver_id);
5327: FETCH get_scheduled_dates INTO l_scheduled_start_date, l_scheduled_finish_date;
5328: CLOSE get_scheduled_dates;

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

5357: -- hsiu
5358: -- project dates changes
5359: -- copy dates to transaction dates if 1, share structure
5360: -- 2, auto task update is enabled
5361: -- IF ((PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure(l_proj_element_id, 'WORKPLAN') = 'Y') AND
5362: -- (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure(l_proj_element_id, 'FINANCIAL') = 'Y')) THEN
5363: IF ((l_workplan_type = 'Y') AND
5364: (l_financial_type = 'Y')) THEN
5365: --select workplan attr

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

5358: -- project dates changes
5359: -- copy dates to transaction dates if 1, share structure
5360: -- 2, auto task update is enabled
5361: -- IF ((PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure(l_proj_element_id, 'WORKPLAN') = 'Y') AND
5362: -- (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure(l_proj_element_id, 'FINANCIAL') = 'Y')) THEN
5363: IF ((l_workplan_type = 'Y') AND
5364: (l_financial_type = 'Y')) THEN
5365: --select workplan attr
5366: IF (PA_WORKPLAN_ATTR_UTILS.CHECK_AUTO_DATE_SYNC_ENABLED(l_proj_element_id) = 'Y') THEN

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

5494: --bug 3035902
5495: --Change the process flag of the published structure version to Y if
5496: --the working version is set to Y
5497: --Bug No 3450684 SMukka Commented if condition
5498: --IF (PA_PROJECT_STRUCTURE_UTILS.GET_UPDATE_WBS_FLAG(l_project_id,
5499: -- p_structure_version_id) = 'Y') THEN
5500: --set the flag for the published version
5501: PA_PROJ_TASK_STRUC_PUB.SET_UPDATE_WBS_FLAG(
5502: p_project_id => l_project_id,

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

5692: ,p_commit => FND_API.G_FALSE
5693: --,p_calling_module => p_calling_module
5694: ,p_project_id => l_Project_ID
5695: ,p_structure_version_id => l_new_struct_ver_id
5696: ,p_baselined_str_ver_id => PA_PROJECT_STRUCTURE_UTILS.Get_Baseline_Struct_Ver(l_Project_ID)
5697: ,p_structure_type => 'WORKPLAN'
5698: ,x_return_status => x_return_status
5699: ,x_msg_count => x_msg_count
5700: ,x_msg_data => x_msg_data

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

7293: --Bug 2643432
7294: --This is a temporary fix. The API returns the first row, but since date
7295: --comparison only compares up to the day, not the second, we can only
7296: --return the first selected row in this API.
7297: AND b.element_version_id = PA_PROJECT_STRUCTURE_UTILS.GET_LAST_UPDATED_WORKING_VER(c_structure_id)
7298: -- AND b.last_update_date = (
7299: -- SELECT MAX(c.last_update_date)
7300: -- FROM pa_proj_elem_ver_structure c
7301: -- WHERE c.project_id = a.project_id

Line 7477: IF (PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_src_project_id)

7473: -- Hsiu added
7474: -- For advanced structure
7475:
7476: l_name := substrb(l_project_name, 1, 240);
7477: IF (PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_src_project_id)
7478: = 'N') THEN
7479: --Workplan and financial are separate structures
7480: IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure(
7481: l_structure_rec.proj_element_id, 'WORKPLAN')

Line 7480: IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure(

7476: l_name := substrb(l_project_name, 1, 240);
7477: IF (PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_src_project_id)
7478: = 'N') THEN
7479: --Workplan and financial are separate structures
7480: IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure(
7481: l_structure_rec.proj_element_id, 'WORKPLAN')
7482: = 'Y') THEN
7483:
7484: --Workplan structure

Line 7518: IF (PA_PROJECT_STRUCTURE_UTILS.CHECK_PUBLISHED_VER_EXISTS(p_src_project_id,

7514: l_select := 2;
7515: l_copy := 3;
7516: ELSIF (l_src_template_flag = 'N') AND
7517: (l_dest_template_flag = 'Y') THEN
7518: IF (PA_PROJECT_STRUCTURE_UTILS.CHECK_PUBLISHED_VER_EXISTS(p_src_project_id,
7519: l_structure_rec.proj_element_id) = 'Y') THEN
7520: l_select := 3;
7521: ELSE
7522: l_select := 1;

Line 7527: IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure(

7523: END IF;
7524: l_copy := 1;
7525: END IF;
7526: END IF;
7527: IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure(
7528: l_structure_rec.proj_element_id, 'FINANCIAL')
7529: = 'Y') THEN
7530:
7531: --Financial structure

Line 7534: IF (PA_PROJECT_STRUCTURE_UTILS.CHECK_PUBLISHED_VER_EXISTS(p_src_project_id,

7530:
7531: --Financial structure
7532: l_structure_type := 'FINANCIAL';
7533:
7534: IF (PA_PROJECT_STRUCTURE_UTILS.CHECK_PUBLISHED_VER_EXISTS(p_src_project_id,
7535: l_structure_rec.proj_element_id) = 'Y') THEN
7536: l_select := 3;
7537: ELSE
7538: l_select := 1;

Line 7580: IF (PA_PROJECT_STRUCTURE_UTILS.CHECK_PUBLISHED_VER_EXISTS(p_src_project_id,

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

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

7801: */
7802:
7803: --commented by hsiu
7804: --Get structure type
7805: -- l_is_workplan := pa_project_structure_utils.Get_Struc_Type_For_Structure(l_structure_id,'WORKPLAN');
7806: -- l_is_billing := pa_project_structure_utils.Get_Struc_Type_For_Structure(l_structure_id,'BILLING');
7807: -- l_is_costing := pa_project_structure_utils.Get_Struc_Type_For_Structure(l_structure_id,'COSTING');
7808:
7809: -- IF (l_is_billing = 'Y') OR (l_is_costing = 'Y') THEN

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

7802:
7803: --commented by hsiu
7804: --Get structure type
7805: -- l_is_workplan := pa_project_structure_utils.Get_Struc_Type_For_Structure(l_structure_id,'WORKPLAN');
7806: -- l_is_billing := pa_project_structure_utils.Get_Struc_Type_For_Structure(l_structure_id,'BILLING');
7807: -- l_is_costing := pa_project_structure_utils.Get_Struc_Type_For_Structure(l_structure_id,'COSTING');
7808:
7809: -- IF (l_is_billing = 'Y') OR (l_is_costing = 'Y') THEN
7810: -- --Check if it has any published version.

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

7803: --commented by hsiu
7804: --Get structure type
7805: -- l_is_workplan := pa_project_structure_utils.Get_Struc_Type_For_Structure(l_structure_id,'WORKPLAN');
7806: -- l_is_billing := pa_project_structure_utils.Get_Struc_Type_For_Structure(l_structure_id,'BILLING');
7807: -- l_is_costing := pa_project_structure_utils.Get_Struc_Type_For_Structure(l_structure_id,'COSTING');
7808:
7809: -- IF (l_is_billing = 'Y') OR (l_is_costing = 'Y') THEN
7810: -- --Check if it has any published version.
7811: -- If (pa_project_structure_utils.CHECK_PUBLISHED_VER_EXISTS(

Line 7811: -- If (pa_project_structure_utils.CHECK_PUBLISHED_VER_EXISTS(

7807: -- l_is_costing := pa_project_structure_utils.Get_Struc_Type_For_Structure(l_structure_id,'COSTING');
7808:
7809: -- IF (l_is_billing = 'Y') OR (l_is_costing = 'Y') THEN
7810: -- --Check if it has any published version.
7811: -- If (pa_project_structure_utils.CHECK_PUBLISHED_VER_EXISTS(
7812: -- p_src_project_id, l_structure_rec.proj_element_id) = 'Y') THEN
7813: -- l_structure_pub_status := 'Y';
7814: -- ELSE
7815: -- l_structure_pub_status := 'N';

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

8088: -- if split, check if 'FINANCIAL'
8089: -- 'PUBLISHED' if financial
8090: -- check if versioned
8091: -- 'WORKING' if versioend; 'PUBLISHED' if not
8092: IF ('Y' = PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_dest_project_id)) THEN
8093: 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
8094: l_task_unpub_ver_status_code := 'WORKING';
8095: ELSE
8096: l_task_unpub_ver_status_code := 'PUBLISHED';

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

8095: ELSE
8096: l_task_unpub_ver_status_code := 'PUBLISHED';
8097: END IF;
8098: ELSE --split
8099: IF ('Y' = PA_PROJECT_STRUCTURE_UTILS.get_struc_type_for_structure(l_structure_id, 'FINANCIAL') AND
8100: 'N' = PA_PROJECT_STRUCTURE_UTILS.get_struc_type_for_structure(l_structure_id, 'WORKPLAN')) THEN
8101: l_task_unpub_ver_status_code := 'PUBLISHED';
8102: ELSE --workplan only
8103: 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 8100: 'N' = PA_PROJECT_STRUCTURE_UTILS.get_struc_type_for_structure(l_structure_id, 'WORKPLAN')) THEN

8096: l_task_unpub_ver_status_code := 'PUBLISHED';
8097: END IF;
8098: ELSE --split
8099: IF ('Y' = PA_PROJECT_STRUCTURE_UTILS.get_struc_type_for_structure(l_structure_id, 'FINANCIAL') AND
8100: 'N' = PA_PROJECT_STRUCTURE_UTILS.get_struc_type_for_structure(l_structure_id, 'WORKPLAN')) THEN
8101: l_task_unpub_ver_status_code := 'PUBLISHED';
8102: ELSE --workplan only
8103: 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
8104: l_task_unpub_ver_status_code := 'WORKING';

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

8628: FETCH c1 INTO l_structure_id;
8629: CLOSE c1;
8630:
8631: --check if there is a published workplan version
8632: IF PA_PROJECT_STRUCTURE_UTILS.CHECK_PUBLISHED_VER_EXISTS(p_project_id, l_structure_id) = 'Y' THEN
8633: --cannot split if publish version exists.
8634: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_CANNOT_SPLIT_STRUCT');
8635: x_msg_data := 'PA_PS_CANNOT_SPLIT_STRUCT';
8636: RAISE FND_API.G_EXC_ERROR;

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

8876:
8877:
8878: --hsiu: bug 2684465
8879: --Check if this structure missing tasks with transactions
8880: -- IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.check_miss_transaction_tasks(p_structure_version_id)) THEN
8881: -- PA_UTILS.ADD_MESSAGE('PA','PA_PS_MISS_TRANSAC_TASK');
8882: -- x_msg_data := 'PA_PS_MISS_TRANSAC_TASK';
8883: -- RAISE FND_API.G_EXC_ERROR;
8884: -- END IF;

Line 8885: PA_PROJECT_STRUCTURE_UTILS.CHECK_MISS_TRANSACTION_TASKS(p_structure_version_id,

8881: -- PA_UTILS.ADD_MESSAGE('PA','PA_PS_MISS_TRANSAC_TASK');
8882: -- x_msg_data := 'PA_PS_MISS_TRANSAC_TASK';
8883: -- RAISE FND_API.G_EXC_ERROR;
8884: -- END IF;
8885: PA_PROJECT_STRUCTURE_UTILS.CHECK_MISS_TRANSACTION_TASKS(p_structure_version_id,
8886: l_return_status,
8887: l_msg_count,
8888: l_msg_data);
8889: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

Line 8896: PA_PROJECT_STRUCTURE_UTILS.check_tasks_statuses_valid(

8892:
8893:
8894:
8895: --Check if task statuses are consistent
8896: PA_PROJECT_STRUCTURE_UTILS.check_tasks_statuses_valid(
8897: p_structure_version_id
8898: ,l_return_status
8899: ,l_msg_count
8900: ,l_msg_data

Line 8908: PA_PROJECT_STRUCTURE_UTILS.Check_txn_on_summary_tasks(

8904: END IF;
8905:
8906:
8907: --Check if any new summary task has transactions
8908: PA_PROJECT_STRUCTURE_UTILS.Check_txn_on_summary_tasks(
8909: p_structure_version_id
8910: ,l_return_status
8911: ,l_msg_count
8912: ,l_msg_data

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

8923: IF (l_auto_pub = 'Y') THEN
8924:
8925: /*
8926: --Check if this structure can be published (ie, if linked structures are published)
8927: IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.Check_Publish_Struc_Ver_Ok(p_structure_version_id)) THEN
8928: PA_UTILS.ADD_MESSAGE('PA','PA_PS_LINK_STRUC_NOT_PUB');
8929: x_msg_data := 'PA_PS_LINK_STRUC_NOT_PUB';
8930: RAISE FND_API.G_EXC_ERROR;
8931: END IF;

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

8943: );
8944: */
8945:
8946: --bug 3840509
8947: IF 'Y' = nvl(PA_PROJECT_STRUCTURE_UTILS.Get_Sch_Dirty_fl(p_project_id,
8948: p_structure_version_id), 'N') THEN
8949: --need to reschedule
8950: PA_UTILS.ADD_MESSAGE('PA','PA_PS_NEED_THIRD_PT_SCH');
8951: x_msg_data := 'PA_PS_NEED_THIRD_PT_SCH';

Line 8997: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(

8993: OPEN sel_other_structure_ver(p_structure_version_id);
8994: LOOP
8995: FETCH sel_other_structure_ver into l_del_struc_ver_id;
8996: EXIT WHEN sel_other_structure_ver%NOTFOUND;
8997: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(
8998: p_project_id => p_project_id
8999: ,p_structure_version_id =>l_del_struc_ver_id
9000: ,x_return_status => l_return_status
9001: ,x_error_message_code => l_msg_data

Line 9699: PA_PROJECT_STRUCTURE_UTILS.CHECK_WORKPLAN_ENABLED(p_project_id)) THEN

9695:
9696: /*
9697: --For enabling workplan
9698: IF (p_workplan_enabled_flag <>
9699: PA_PROJECT_STRUCTURE_UTILS.CHECK_WORKPLAN_ENABLED(p_project_id)) THEN
9700: --BEGIN ENABLING WP CODE
9701:
9702: IF (p_workplan_enabled_flag = 'Y') THEN
9703: --Validation

Line 9704: PA_PROJECT_STRUCTURE_UTILS.check_enable_wp_ok(p_project_id,

9700: --BEGIN ENABLING WP CODE
9701:
9702: IF (p_workplan_enabled_flag = 'Y') THEN
9703: --Validation
9704: PA_PROJECT_STRUCTURE_UTILS.check_enable_wp_ok(p_project_id,
9705: l_ret_stat,
9706: l_err_msg_code);
9707: IF (l_ret_stat = 'N') THEN
9708: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);

Line 9838: PA_PROJECT_STRUCTURE_UTILS.check_disable_wp_ok(p_project_id,

9834:
9835: --end enable WP
9836: ELSE
9837: --Validation
9838: PA_PROJECT_STRUCTURE_UTILS.check_disable_wp_ok(p_project_id,
9839: l_ret_stat,
9840: l_err_msg_code);
9841: IF (l_ret_stat = 'N') THEN
9842: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);

Line 9853: IF (PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_project_id)

9849: OPEN sel_wp_structure_id;
9850: FETCH sel_wp_structure_id INTO l_structure_id;
9851: CLOSE sel_wp_structure_id;
9852:
9853: IF (PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_project_id)
9854: = 'Y') THEN
9855: --Shared
9856: --Select version to be kept
9857: OPEN sel_latest_pub_ver(l_structure_id);

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

9856: --Select version to be kept
9857: OPEN sel_latest_pub_ver(l_structure_id);
9858: FETCH sel_latest_pub_ver into l_keep_structure_ver_id;
9859: IF sel_latest_pub_ver%NOTFOUND THEN
9860: l_keep_structure_ver_id := PA_PROJECT_STRUCTURE_UTILS.GET_LAST_UPDATED_WORKING_VER(l_structure_id);
9861: END IF;
9862: CLOSE sel_latest_pub_ver;
9863:
9864: --Delete all other structure versions

Line 9871: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(

9867: FETCH sel_other_structure_ver into l_del_struc_ver_id,
9868: l_struc_ver_rvn;
9869: EXIT WHEN sel_other_structure_ver%NOTFOUND;
9870: -----hsiu: bug 2800553: added for sharing/splitting performance
9871: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(
9872: p_project_id,
9873: l_del_struc_ver_id,
9874: l_return_status,
9875: l_err_msg_code);

Line 10031: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(

10027: LOOP
10028: FETCH sel_all_wp_structure_ver into l_del_struc_ver_id,
10029: l_struc_ver_rvn;
10030: EXIT WHEN sel_all_wp_structure_ver%NOTFOUND;
10031: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(
10032: p_project_id,
10033: l_del_struc_ver_id,
10034: l_return_status,
10035: l_err_msg_code);

Line 10096: PA_PROJECT_STRUCTURE_UTILS.CHECK_SHARING_ENABLED(p_project_id)) THEN

10092: END IF;
10093:
10094: --For sharing workplan
10095: IF (p_sharing_enabled_flag <>
10096: PA_PROJECT_STRUCTURE_UTILS.CHECK_SHARING_ENABLED(p_project_id)) THEN
10097: --get structure_id
10098: OPEN sel_wp_structure_id;
10099: FETCH sel_wp_structure_id INTO l_structure_id;
10100: CLOSE sel_wp_structure_id;

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

10109: CLOSE sel_proj_progress_attr;
10110:
10111: --BEGIN SHARING CODE
10112: IF (p_sharing_enabled_flag = 'Y' AND
10113: PA_PROJECT_STRUCTURE_UTILS.CHECK_WORKPLAN_ENABLED(p_project_id) = 'Y') THEN
10114: --Validation
10115: PA_PROJECT_STRUCTURE_UTILS.check_sharing_on_ok(p_project_id,
10116: l_ret_stat,
10117: l_err_msg_code);

Line 10115: PA_PROJECT_STRUCTURE_UTILS.check_sharing_on_ok(p_project_id,

10111: --BEGIN SHARING CODE
10112: IF (p_sharing_enabled_flag = 'Y' AND
10113: PA_PROJECT_STRUCTURE_UTILS.CHECK_WORKPLAN_ENABLED(p_project_id) = 'Y') THEN
10114: --Validation
10115: PA_PROJECT_STRUCTURE_UTILS.check_sharing_on_ok(p_project_id,
10116: l_ret_stat,
10117: l_err_msg_code);
10118: IF (l_ret_stat = 'N') THEN
10119: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);

Line 10141: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(

10137: LOOP
10138: FETCH sel_all_wp_structure_ver into l_del_struc_ver_id,
10139: l_struc_ver_rvn;
10140: EXIT WHEN sel_all_wp_structure_ver%NOTFOUND;
10141: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(
10142: p_project_id,
10143: l_del_struc_ver_id,
10144: l_return_status,
10145: l_err_msg_code);

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

10530: END IF;
10531:
10532: --end sharing on
10533: ELSIF (p_sharing_enabled_flag = 'Y' AND
10534: PA_PROJECT_STRUCTURE_UTILS.CHECK_WORKPLAN_ENABLED(p_project_id) = 'N') THEN
10535: PA_UTILS.ADD_MESSAGE('PA','PA_PS_WP_NOT_EN_SHR_ERR');
10536: x_msg_data := 'PA_PS_WP_NOT_EN_SHR_ERR';
10537: RAISE FND_API.G_EXC_ERROR;
10538: ELSIF (p_sharing_enabled_flag = 'N') THEN

Line 10540: PA_PROJECT_STRUCTURE_UTILS.check_sharing_off_ok(p_project_id,

10536: x_msg_data := 'PA_PS_WP_NOT_EN_SHR_ERR';
10537: RAISE FND_API.G_EXC_ERROR;
10538: ELSIF (p_sharing_enabled_flag = 'N') THEN
10539: --Validation
10540: PA_PROJECT_STRUCTURE_UTILS.check_sharing_off_ok(p_project_id,
10541: l_ret_stat,
10542: l_err_msg_code);
10543: IF (l_ret_stat = 'N') THEN
10544: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);

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

10549: --Select version to be kept
10550: OPEN sel_latest_pub_ver(l_structure_id);
10551: FETCH sel_latest_pub_ver into l_keep_structure_ver_id;
10552: IF sel_latest_pub_ver%NOTFOUND THEN
10553: l_keep_structure_ver_id := PA_PROJECT_STRUCTURE_UTILS.GET_LAST_UPDATED_WORKING_VER(l_structure_id);
10554: END IF;
10555: CLOSE sel_latest_pub_ver;
10556:
10557: --Delete all other structure versions

Line 10563: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(

10559: LOOP
10560: FETCH sel_other_structure_ver into l_del_struc_ver_id,
10561: l_struc_ver_rvn;
10562: EXIT WHEN sel_other_structure_ver%NOTFOUND;
10563: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(
10564: p_project_id,
10565: l_del_struc_ver_id,
10566: l_return_status,
10567: l_err_msg_code);

Line 11053: PA_PROJECT_STRUCTURE_UTILS.check_versioning_on_ok(

11049: END IF;
11050:
11051: IF (p_enable_wp_version_flag = 'Y') THEN
11052: --enable versioning
11053: PA_PROJECT_STRUCTURE_UTILS.check_versioning_on_ok(
11054: p_proj_element_id
11055: ,l_ret_stat
11056: ,l_err_msg_code);
11057: IF (l_ret_stat = 'N') THEN

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

11072: --bug 4546607
11073: --Delete all LW links without checking bcoz versioning is always allowed
11074: --for workplan.
11075: FOR sub_projects_rec in sub_projects(l_project_id, 'LW') LOOP
11076: IF PA_PROJECT_STRUCTURE_UTILS.Check_Struc_Ver_Published(sub_projects_rec.sub_project_id, sub_projects_rec.sub_structure_ver_id) = 'N'
11077: THEN
11078: PA_RELATIONSHIP_PUB.Delete_SubProject_Association(
11079: p_object_relationships_id => sub_projects_rec.object_relationship_id,
11080: p_record_version_number => sub_projects_rec.record_version_number,

Line 11149: PA_PROJECT_STRUCTURE_UTILS.check_versioning_off_ok(

11145:
11146: --end enable versioning
11147: ELSIF (p_enable_wp_version_flag = 'N') THEN
11148: --disable versioning
11149: PA_PROJECT_STRUCTURE_UTILS.check_versioning_off_ok(
11150: p_proj_element_id
11151: ,l_ret_stat
11152: ,l_err_msg_code);
11153: IF (l_ret_stat = 'N') THEN

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

11165: --Select version to be kept
11166: OPEN sel_latest_pub_ver(p_proj_element_id);
11167: FETCH sel_latest_pub_ver into l_keep_structure_ver_id;
11168: IF sel_latest_pub_ver%NOTFOUND THEN
11169: l_keep_structure_ver_id := PA_PROJECT_STRUCTURE_UTILS.GET_LAST_UPDATED_WORKING_VER(p_proj_element_id);
11170: END IF;
11171: CLOSE sel_latest_pub_ver;
11172:
11173: --Delete all versions except the keep version

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

12032: pa_debug.debug('done deleting tasks');
12033: END IF;
12034: --If all tasks are deleted, delete schedule if workplan
12035: --Check if this is workplan
12036: If ('Y' = PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN')) THEN
12037: --Structure type exists. Delete from schedule table
12038: IF (p_debug_mode = 'Y') THEN
12039: pa_debug.debug('WORKPLAN type');
12040: END IF;

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

12130: pa_debug.debug('delete non-versioned structure');
12131: END IF;
12132:
12133:
12134: IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure(l_proj_element_id, 'WORKPLAN') = 'Y') THEN
12135: --delete workplan attribute
12136: OPEN sel_wp_attr(l_proj_element_id);
12137: FETCH sel_wp_attr into l_wp_attr_rvn;
12138: CLOSE sel_wp_attr;

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

13151: --Search for outgoing links for the structure version; create new Links
13152: -- Amit: Code(get_to_id) which was commented earlier is removed. If needed it can be found from COPY_STRUCTURE_VERSION
13153:
13154: --hsiu: added to check for structure type
13155: l_wp_struc := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN');
13156: l_fin_struc:= PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'FINANCIAL');
13157:
13158: OPEN l_get_structure_type_csr(p_structure_version_id);
13159: FETCH l_get_structure_type_csr INTO l_structure_type;

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

13152: -- Amit: Code(get_to_id) which was commented earlier is removed. If needed it can be found from COPY_STRUCTURE_VERSION
13153:
13154: --hsiu: added to check for structure type
13155: l_wp_struc := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN');
13156: l_fin_struc:= PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'FINANCIAL');
13157:
13158: OPEN l_get_structure_type_csr(p_structure_version_id);
13159: FETCH l_get_structure_type_csr INTO l_structure_type;
13160: CLOSE l_get_structure_type_csr;

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

13567: -- The out going sub-project association links will not copied into the new structure version
13568: -- if the new structure version created is a working structure version.
13569:
13570: if
13571: (pa_project_structure_utils.Check_Struc_Ver_Published(l_project_id, l_new_struct_ver_id) = 'Y')
13572: then
13573:
13574: -- End fix for Bug # 4530436.
13575:

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

14154: IF (p_debug_mode = 'Y') THEN
14155: pa_debug.debug('Performing validations');
14156: END IF;
14157:
14158: l_wp_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_workplan_enabled(p_project_id);
14159: l_fin_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_financial_enabled(p_project_id);
14160: l_share_code := PA_PROJECT_STRUCTURE_UTILS.Get_Structure_sharing_code(p_project_id);
14161: l_delv_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_deliverable_enabled(p_project_id);
14162:

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

14155: pa_debug.debug('Performing validations');
14156: END IF;
14157:
14158: l_wp_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_workplan_enabled(p_project_id);
14159: l_fin_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_financial_enabled(p_project_id);
14160: l_share_code := PA_PROJECT_STRUCTURE_UTILS.Get_Structure_sharing_code(p_project_id);
14161: l_delv_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_deliverable_enabled(p_project_id);
14162:
14163:

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

14156: END IF;
14157:
14158: l_wp_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_workplan_enabled(p_project_id);
14159: l_fin_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_financial_enabled(p_project_id);
14160: l_share_code := PA_PROJECT_STRUCTURE_UTILS.Get_Structure_sharing_code(p_project_id);
14161: l_delv_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_deliverable_enabled(p_project_id);
14162:
14163:
14164: --get template flag

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

14157:
14158: l_wp_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_workplan_enabled(p_project_id);
14159: l_fin_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_financial_enabled(p_project_id);
14160: l_share_code := PA_PROJECT_STRUCTURE_UTILS.Get_Structure_sharing_code(p_project_id);
14161: l_delv_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_deliverable_enabled(p_project_id);
14162:
14163:
14164: --get template flag
14165: OPEN get_template_flag;

Line 14205: PA_PROJECT_STRUCTURE_UTILS.check_disable_wp_ok(p_project_id,

14201: -- End fix for Bug # 4426392.
14202:
14203: --check if ok to enable workplan
14204: If (l_wp_enabled <> p_workplan_enabled_flag AND p_workplan_enabled_flag = 'Y') THEN
14205: PA_PROJECT_STRUCTURE_UTILS.check_disable_wp_ok(p_project_id,
14206: l_ret_stat,
14207: l_err_msg_code);
14208: IF (l_ret_stat = 'N') THEN
14209: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);

Line 14217: PA_PROJECT_STRUCTURE_UTILS.check_disable_wp_ok(p_project_id,

14213: END IF;
14214:
14215: --check if ok to disable workplan
14216: IF (l_wp_enabled <> p_workplan_enabled_flag AND p_workplan_enabled_flag = 'N') THEN
14217: PA_PROJECT_STRUCTURE_UTILS.check_disable_wp_ok(p_project_id,
14218: l_ret_stat,
14219: l_err_msg_code);
14220: IF (l_ret_stat = 'N') THEN
14221: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);

Line 14229: PA_PROJECT_STRUCTURE_UTILS.check_sharing_on_ok(p_project_id,

14225: END IF;
14226:
14227: --check if ok to share
14228: IF (l_share_code IN ('SPLIT_MAPPING','SPLIT_NO_MAPPING') and p_sharing_option_code IN ('SHARE_FULL','SHARE_PARTIAL')) THEN
14229: PA_PROJECT_STRUCTURE_UTILS.check_sharing_on_ok(p_project_id,
14230: l_ret_stat,
14231: l_err_msg_code);
14232: IF (l_ret_stat = 'N') THEN
14233: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);

Line 14241: PA_PROJECT_STRUCTURE_UTILS.check_sharing_off_ok(p_project_id,

14237: END IF;
14238:
14239: --check if ok to split
14240: IF (l_share_code IN ('SHARE_FULL','SHARE_PARTIAL') and p_sharing_option_code IN ('SPLIT_MAPPING','SPLIT_NO_MAPPING')) THEN
14241: PA_PROJECT_STRUCTURE_UTILS.check_sharing_off_ok(p_project_id,
14242: l_ret_stat,
14243: l_err_msg_code);
14244: IF (l_ret_stat = 'N') THEN
14245: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);

Line 15390: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(

15386: LOOP
15387: FETCH sel_all_wp_structure_ver into l_del_struc_ver_id,
15388: l_struc_ver_rvn;
15389: EXIT WHEN sel_all_wp_structure_ver%NOTFOUND;
15390: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(
15391: p_project_id,
15392: l_del_struc_ver_id,
15393: l_return_status,
15394: l_err_msg_code);

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

15901: --get structure version id
15902: OPEN sel_latest_pub_ver(l_structure_id);
15903: FETCH sel_latest_pub_ver into l_structure_version_id;
15904: IF sel_latest_pub_ver%NOTFOUND THEN
15905: l_keep_structure_ver_id := PA_PROJECT_STRUCTURE_UTILS.GET_LAST_UPDATED_WORKING_VER(l_structure_id);
15906: ELSE
15907: l_keep_structure_ver_id := l_structure_version_id;
15908: END IF;
15909: CLOSE sel_latest_pub_ver;

Line 15967: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(

15963: LOOP
15964: FETCH sel_other_structure_ver into l_del_struc_ver_id,
15965: l_struc_ver_rvn;
15966: EXIT WHEN sel_other_structure_ver%NOTFOUND;
15967: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(
15968: p_project_id,
15969: l_del_struc_ver_id,
15970: l_return_status,
15971: l_err_msg_code);

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

16339: --get structure version id
16340: OPEN sel_latest_pub_ver(l_structure_id);
16341: FETCH sel_latest_pub_ver into l_structure_version_id;
16342: IF sel_latest_pub_ver%NOTFOUND THEN
16343: l_structure_version_id := PA_PROJECT_STRUCTURE_UTILS.GET_LAST_UPDATED_WORKING_VER(l_structure_id);
16344: ELSE
16345: l_keep_structure_ver_id := l_structure_version_id;
16346: END IF;
16347: CLOSE sel_latest_pub_ver;

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

16427: --get structure version id
16428: OPEN sel_latest_pub_ver(l_structure_id);
16429: FETCH sel_latest_pub_ver into l_structure_version_id;
16430: IF sel_latest_pub_ver%NOTFOUND THEN
16431: l_keep_structure_ver_id := PA_PROJECT_STRUCTURE_UTILS.GET_LAST_UPDATED_WORKING_VER(l_structure_id);
16432: ELSE
16433: l_keep_structure_ver_id := l_structure_version_id;
16434: END IF;
16435: CLOSE sel_latest_pub_ver;

Line 16502: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(

16498: LOOP
16499: FETCH sel_other_structure_ver into l_del_struc_ver_id,
16500: l_struc_ver_rvn;
16501: EXIT WHEN sel_other_structure_ver%NOTFOUND;
16502: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(
16503: p_project_id,
16504: l_del_struc_ver_id,
16505: l_return_status,
16506: l_err_msg_code);

Line 16837: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(

16833: LOOP
16834: FETCH sel_all_wp_structure_ver into l_del_struc_ver_id,
16835: l_struc_ver_rvn;
16836: EXIT WHEN sel_all_wp_structure_ver%NOTFOUND;
16837: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(
16838: p_project_id,
16839: l_del_struc_ver_id,
16840: l_return_status,
16841: l_err_msg_code);

Line 16931: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(

16927: LOOP
16928: FETCH sel_all_wp_structure_ver into l_del_struc_ver_id,
16929: l_struc_ver_rvn;
16930: EXIT WHEN sel_all_wp_structure_ver%NOTFOUND;
16931: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(
16932: p_project_id,
16933: l_del_struc_ver_id,
16934: l_return_status,
16935: l_err_msg_code);

Line 17231: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(

17227: LOOP
17228: FETCH sel_all_wp_structure_ver into l_del_struc_ver_id,
17229: l_struc_ver_rvn;
17230: EXIT WHEN sel_all_wp_structure_ver%NOTFOUND;
17231: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(
17232: p_project_id,
17233: l_del_struc_ver_id,
17234: l_return_status,
17235: l_err_msg_code);

Line 17323: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(

17319: LOOP
17320: FETCH sel_all_wp_structure_ver into l_del_struc_ver_id,
17321: l_struc_ver_rvn;
17322: EXIT WHEN sel_all_wp_structure_ver%NOTFOUND;
17323: PA_PROJECT_STRUCTURE_UTILS.Check_Delete_Structure_Ver_Ok(
17324: p_project_id,
17325: l_del_struc_ver_id,
17326: l_return_status,
17327: l_err_msg_code);