[Home] [Help]
325:
326: --hsiu added for parent_structure_id column
327: CURSOR get_structure(c_project_id NUMBER, c_struc_type VARCHAR2) IS
328: select a.proj_element_id
329: from pa_proj_elements a,
330: pa_proj_structure_types b,
331: pa_structure_types c
332: where a.project_id = c_project_id
333: and c.structure_type_class_code = c_struc_type
395:
396:
397:
398: --The task will be created with a different ids if the structure is a WORKPLAN and split from COSTING.
399: --Otherwise same ids as in pa_tasks will be used to create tasks in pa_proj_elements if only one default
400: --structure is being created.
401: l_split_flag := null;
402: OPEN cur_pa_projs;
403: FETCH cur_pa_projs INTO l_split_flag;
420: OPEN get_structure(p_project_id, 'FINANCIAL');
421: FETCH get_structure into l_structure_id;
422: CLOSE get_structure;
423: END IF;
424: PA_PROJ_ELEMENTS_PKG.Insert_Row(
425: X_ROW_ID => X_ROW_ID
426: ,X_PROJ_ELEMENT_ID => l_proj_element_id
427: ,X_PROJECT_ID => p_project_id
428: ,X_OBJECT_TYPE => 'PA_TASKS'
911:
912: --hsiu added for parent_structure_id column
913: CURSOR get_structure(c_project_id NUMBER, c_struc_type VARCHAR2) IS
914: select a.proj_element_id
915: from pa_proj_elements a,
916: pa_proj_structure_types b,
917: pa_structure_types c
918: where a.project_id = c_project_id
919: and c.structure_type_class_code = c_struc_type
993:
994: --3035902: process update flag changes
995: cursor get_task_type_id(c_proj_element_id NUMBER) IS
996: select type_id
997: from pa_proj_elements
998: where proj_element_id = c_proj_element_id;
999: --3035902: end process update flag changes
1000:
1001: l_versioned VARCHAR2(1);
1295: ,p_init_msg_list => l_init_msg_list
1296: ,p_object_type => 'PA_TASKS'
1297: ,p_project_id => p_project_id
1298: ,p_structure_id => l_structure_id --1 --anything. does not matter since its not gonna useful to create record
1299: --in pa_proj_elements in PA_TASK_PVT1.CREATE_TASK.
1300: ,p_task_number => l_task_number
1301: ,p_task_name => p_task_name
1302: ,p_task_description => p_task_description
1303: ,p_location_id => p_location_id
1553: IF (l_peer_or_sub = 'PEER') THEN
1554: OPEN get_parent_version_id(l_ref_task_version_id);
1555: FETCH get_parent_version_id into l_parent_ver_id;
1556: CLOSE get_parent_version_id;
1557: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
1558: p_parent_task_ver_id => l_parent_ver_id
1559: ,x_return_status => l_return_status
1560: ,x_error_message_code => l_error_msg_code
1561: );
1565: p_msg_name => l_error_msg_code);
1566: raise api_error;
1567: END IF;
1568: ELSE
1569: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
1570: p_parent_task_ver_id => l_ref_task_version_id
1571: ,x_return_status => l_return_status
1572: ,x_error_message_code => l_error_msg_code
1573: );
1733: --bug 2824612
1734:
1735: /*
1736: SELECT type_id INTO l_task_type_id
1737: FROM pa_proj_elements
1738: WHERE proj_element_id = l_task_id
1739: AND project_id = p_project_id;
1740: */
1741:
2052: /* Bug # 3420093 - Adding Progress Management modifications to create_task flow. */
2053:
2054: if (p_structure_type = 'WORKPLAN' ) then
2055:
2056: if (PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(x_task_version_id) = 'Y') then
2057: l_add_task_ver_ids.extend(1);
2058: l_add_planned_effort.extend(1);
2059: l_add_start_date.extend(1);
2060: l_add_end_date.extend(1);
2262:
2263: CURSOR cur_rec_ver_num
2264: IS
2265: SELECT record_version_number
2266: FROM pa_proj_elements
2267: WHERE proj_element_id = p_task_id
2268: AND object_type = 'PA_TASKS';
2269:
2270: /* Bug 2680486 -- Performance changes -- Added d.project_id= c.project_id
2427: /* Added for bug 3290037 */
2428:
2429: CURSOR cur_task_attr IS
2430: SELECT pe.ELEMENT_NUMBER, pe.NAME
2431: FROM pa_proj_elements pe
2432: WHERE pe.proj_element_id = p_task_id
2433: AND pe.object_type = 'PA_TASKS';
2434:
2435: l_task_number pa_proj_elements.element_number%TYPE;
2431: FROM pa_proj_elements pe
2432: WHERE pe.proj_element_id = p_task_id
2433: AND pe.object_type = 'PA_TASKS';
2434:
2435: l_task_number pa_proj_elements.element_number%TYPE;
2436: l_task_name pa_proj_elements.name%TYPE;
2437:
2438: --rtarway,3666023
2439: l_task_id pa_proj_elements.PROJ_ELEMENT_ID%TYPE;
2432: WHERE pe.proj_element_id = p_task_id
2433: AND pe.object_type = 'PA_TASKS';
2434:
2435: l_task_number pa_proj_elements.element_number%TYPE;
2436: l_task_name pa_proj_elements.name%TYPE;
2437:
2438: --rtarway,3666023
2439: l_task_id pa_proj_elements.PROJ_ELEMENT_ID%TYPE;
2440:
2435: l_task_number pa_proj_elements.element_number%TYPE;
2436: l_task_name pa_proj_elements.name%TYPE;
2437:
2438: --rtarway,3666023
2439: l_task_id pa_proj_elements.PROJ_ELEMENT_ID%TYPE;
2440:
2441: /* End of code for bug 3290037 */
2442:
2443: /* Bug # 3420093 - Adding Progress Management modifications to update_task flow. */
2462: cursor l_task_cur(p_project_id NUMBER, p_struct_ver_id NUMBER) is
2463: /* --bug 3880482
2464: select
2465: element_version_id,planned_effort,actual_start_date,actual_finish_date
2466: from pa_proj_elem_ver_schedule ppevs, pa_proj_elements ppe
2467: where ppevs.project_id = ppe.project_id
2468: and ppevs.proj_element_id = ppe.proj_element_id
2469: and ppe.object_type = 'PA_TASKS'
2470: and ppevs.project_id = p_project_id;
2579: -- This is required so that when Update_tas_Strcucture is caled from forms , - sign does not get prepended
2580: l_task_number := '-'||p_task_number;
2581: ELSE
2582: l_task_number := p_task_number;
2583: END IF;*/ /** '-' prefixed to p_task_number for Bug 4120380. This is to ensure that the when task_numbers are being interchanged,tasks get saved to the database sucessfully to bypass the constranit PA_PROJ_ELEMENTS_U2.
2584: After updating all the tasks in the script, code again updates the task_number, trimming the '-' added. **/
2585: END IF;
2586: --dbms_output.put_line('Value of l_task_number' ||l_task_number);
2587:
2996:
2997: --bug 2824612
2998:
2999: SELECT type_id INTO l_task_type_id
3000: FROM pa_proj_elements
3001: --WHERE proj_element_id = p_task_id, rtarway, BUG 3666023, replace by l_task_id
3002: WHERE proj_element_id = l_task_id
3003: AND project_id = p_project_id;
3004:
3311: if (p_structure_type = 'WORKPLAN' OR nvl(PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN( p_project_id ),'N') = 'N')then
3312:
3313: for l_task_cur_rec in l_task_cur(p_project_id, l_structure_version_id)
3314: loop
3315: if (PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(l_task_cur_rec.element_version_id) = 'Y') then
3316: l_add_task_ver_ids.extend(1);
3317: l_add_planned_effort.extend(1);
3318: l_add_start_date.extend(1);
3319: l_add_end_date.extend(1);
3396: OPEN check_hidden_assgn_exists(l_task_cur_rec.element_version_id);
3397: FETCH check_hidden_assgn_exists into l_hidden_assgn;
3398: CLOSE check_hidden_assgn_exists;
3399:
3400: IF PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(l_task_cur_rec.element_version_id)
3401: = 'N' AND l_hidden_assgn = 'Y' THEN
3402: l_del_task_ver_ids.extend(1);
3403: l_del_task_ver_ids(l_del_task_ver_ids.count):=
3404: l_task_cur_rec.element_version_id;
3672:
3673: CURSOR cur_proj_elems
3674: IS
3675: SELECT rowid, proj_element_id
3676: FROM pa_proj_elements
3677: WHERE project_id = p_project_id;
3678:
3679:
3680: BEGIN
3690:
3691: FOR cur_str_ver_rec IN cur_str_ver LOOP
3692: FOR cur_task_ver_rec IN cur_task_ver( cur_str_ver_rec.element_version_id ) LOOP
3693: --Check to see if deleting a version is ok
3694: PA_PROJ_ELEMENTS_UTILS.Check_Delete_task_Ver_Ok(
3695: p_project_id => p_project_id
3696: ,p_task_version_id => cur_task_ver_rec.element_version_id
3697: ,p_parent_structure_ver_id => cur_str_ver_rec.element_version_id
3698: ,x_return_status => l_return_status
3742: FOR cur_proj_elems_rec IN cur_proj_elems LOOP
3743: DELETE FROM pa_proj_structure_types
3744: WHERE proj_element_id = cur_proj_elems_rec.proj_element_id;
3745:
3746: PA_PROJ_ELEMENTS_PKG.DELETE_ROW( cur_proj_elems_rec.rowid );
3747: END LOOP;
3748:
3749: DELETE FROM pa_proj_elem_ver_schedule where project_id = p_project_id;
3750: DELETE FROM pa_proj_elem_ver_structure where project_id = p_project_id;
3976:
3977: CURSOR cur_pa_proj_elems
3978: IS
3979: SELECT proj_element_id
3980: FROM pa_proj_elements
3981: WHERE project_id = p_project_id
3982: AND object_type = 'PA_STRUCTURES';
3983:
3984: CURSOR cur_pa_proj_elem_vers( c_structure_id NUMBER )
4380: -- History
4381: --
4382: -- 25-MAY-02 MAansari -Created
4383: --
4384: -- Notes: This api is called from PA_PROJECT_PUB.CREATE_PROJECT to clean up the tasks in pa_proj_elements that were created
4385: -- by calling copy structure api. Copy structure api copies template's tasks to pro_elements though there
4386: -- are no pa_TASKs for the new project. However pa_tasks and pa_proj_elements must be in syn. To d this we need to firts remove
4387: -- tasks from pa_proj_elements as they were erroneously created by COPY_STRUCTURE and then call create_default_structure
4388: -- to syn up pa_pro_elements with pa_tasks.
4382: -- 25-MAY-02 MAansari -Created
4383: --
4384: -- Notes: This api is called from PA_PROJECT_PUB.CREATE_PROJECT to clean up the tasks in pa_proj_elements that were created
4385: -- by calling copy structure api. Copy structure api copies template's tasks to pro_elements though there
4386: -- are no pa_TASKs for the new project. However pa_tasks and pa_proj_elements must be in syn. To d this we need to firts remove
4387: -- tasks from pa_proj_elements as they were erroneously created by COPY_STRUCTURE and then call create_default_structure
4388: -- to syn up pa_pro_elements with pa_tasks.
4389: --
4390:
4383: --
4384: -- Notes: This api is called from PA_PROJECT_PUB.CREATE_PROJECT to clean up the tasks in pa_proj_elements that were created
4385: -- by calling copy structure api. Copy structure api copies template's tasks to pro_elements though there
4386: -- are no pa_TASKs for the new project. However pa_tasks and pa_proj_elements must be in syn. To d this we need to firts remove
4387: -- tasks from pa_proj_elements as they were erroneously created by COPY_STRUCTURE and then call create_default_structure
4388: -- to syn up pa_pro_elements with pa_tasks.
4389: --
4390:
4391: PROCEDURE Clean_unwanted_tasks(
4444: DELETE FROM pa_proj_elem_ver_schedule WHERE element_version_id = cur_task_vers_rec.element_version_id and project_id = p_project_id;
4445:
4446: DELETE FROM pa_proj_element_versions WHERE element_version_id = cur_task_vers_rec.element_version_id;
4447:
4448: DELETE FROM pa_proj_elements WHERE proj_element_id = cur_task_vers_rec.proj_element_id;
4449:
4450: END LOOP;
4451: END IF;
4452: CLOSE cur_pa_proj_elem_vers;
4556: ) IS
4557: CURSOR cur_pa_proj_elems
4558: IS
4559: SELECT proj_element_id
4560: FROM pa_proj_elements
4561: WHERE PM_SOURCE_REFERENCE = p_pm_parent_task_reference
4562: AND project_id = p_project_id
4563: AND OBJECT_TYPE = 'PA_TASKS';
4564: BEGIN
4985: x_pev_schedule_id NUMBER;
4986:
4987: cursor c2 is
4988: select b.proj_element_id
4989: from pa_proj_elements a, pa_proj_structure_types b,
4990: pa_structure_types c
4991: where a.project_id = p_project_id
4992: and a.object_type = 'PA_STRUCTURES'
4993: and a.proj_element_id = b.proj_element_id
5690: AND status_code = 'STRUCTURE_WORKING';
5691:
5692: l_structure_version_id NUMBER;
5693: BEGIN
5694: l_structure_version_id := PA_PROJ_ELEMENTS_UTILS.latest_published_ver_id( p_project_id,'FINANCIAL' );
5695:
5696: IF l_structure_version_id IS NULL OR l_structure_version_id = -1
5697: THEN
5698: OPEN cur_pa_work_ver;
5733:
5734: CURSOR cur_pa_proj
5735: IS
5736: /* SELECT proj_element_id
5737: FROM pa_proj_elements
5738: WHERE project_id = p_project_id
5739: AND object_type = 'PA_STRUCTURES';
5740: */
5741: SELECT 'x'
5738: WHERE project_id = p_project_id
5739: AND object_type = 'PA_STRUCTURES';
5740: */
5741: SELECT 'x'
5742: FROM pa_proj_elements ppe, pa_proj_structure_types ppst
5743: WHERE ppe.project_id = p_project_id
5744: AND ppe.object_type = 'PA_STRUCTURES'
5745: AND ppe.proj_element_id = ppst.proj_element_id
5746: AND ppst.structure_type_id = 1; --'WORKPLAN'
5778: ) RETURN VARCHAR2 IS
5779: CURSOR cur_pa_proj_elems
5780: IS
5781: SELECT ppe.proj_element_id
5782: FROM pa_proj_elements ppe, pa_proj_structure_types ppst
5783: WHERE ppe.project_id = p_project_id
5784: AND ppe.object_type = 'PA_STRUCTURES'
5785: AND ppe.proj_element_id = ppst.proj_element_id
5786: AND ppst.structure_type_id = 1; --'WORKPLAN'
5859: --Added by rtarway for BUG 3990873
5860: l_pa_task_id NUMBER;
5861:
5862: CURSOR cur_get_existing_task_id (c_project_id pa_projects_all.project_id%TYPE,
5863: c_pm_source_reference pa_proj_elements.pm_source_reference%TYPE) IS
5864: SELECT proj_element_id
5865: FROM pa_proj_elements pelem
5866: WHERE project_id = c_project_id
5867: AND pm_source_reference = c_pm_source_reference
5861:
5862: CURSOR cur_get_existing_task_id (c_project_id pa_projects_all.project_id%TYPE,
5863: c_pm_source_reference pa_proj_elements.pm_source_reference%TYPE) IS
5864: SELECT proj_element_id
5865: FROM pa_proj_elements pelem
5866: WHERE project_id = c_project_id
5867: AND pm_source_reference = c_pm_source_reference
5868: AND exists(select 1
5869: from pa_proj_structure_types pstype, pa_structure_types types
6030: ,P_PM_SOURCE_reference => p_tasks_in(i).pm_task_reference
6031: ,p_location_id => p_tasks_in(i).address_id
6032: ,p_manager_person_id => p_tasks_in(i).task_manager_person_id
6033: ,p_structure_version_id => p_structure_version_id
6034: ,p_create_task_version_only => 'Y' --we dont need to create tasks in pa_tasks or pa_proj_elements for the existing tasks.
6035: --All we need is just to create task versions under the new structure version.
6036: ,x_task_version_id => l_task_version_id
6037: ,x_task_id => l_task_id
6038: ,x_msg_count => x_msg_count
7003: FETCH cur_get_carrying_out_org INTO l_old_proj_org_id, l_new_proj_org_id;
7004: CLOSE cur_get_carrying_out_org;
7005:
7006: --Copy tasks belonging to the single financial version in the source project
7007: INSERT INTO pa_proj_elements(
7008: PROJ_ELEMENT_ID
7009: ,PROJECT_ID
7010: ,OBJECT_TYPE
7011: ,ELEMENT_NUMBER
7124: ,ppe.PHASE_VERSION_ID
7125: ,p_dest_project_id
7126: ,'PA_PROJECTS'
7127: FROM pa_task_types ptt,
7128: pa_proj_elements ppe,
7129: pa_proj_element_versions ppev,
7130: pa_tasks pt
7131: WHERE pt.project_id = p_dest_project_id
7132: AND ppe.project_id = p_src_project_id --Added by Sunkalya For the fix of Bug#4600825. This change is done for R12
7211: ,ppev.FINANCIAL_TASK_FLAG
7212: ,p_dest_project_id
7213: ,'PA_PROJECTS'
7214: FROM pa_proj_element_versions ppev,
7215: pa_proj_elements ppe,
7216: pa_proj_element_versions ppev2,
7217: pa_proj_elem_ver_structure ppevs
7218: WHERE ppev.project_id = p_src_project_id
7219: AND ppev.object_type = 'PA_TASKS'
7630: --This cursor is used to retrieve the destination project's WP/FIN structure id
7631: CURSOR cur_get_dest_structure_id( c_structure_type IN VARCHAR2 ) IS
7632: SELECT ppe.proj_element_id,
7633: ppe.attribute15
7634: FROM pa_proj_elements ppe,
7635: pa_proj_structure_types ppst,
7636: pa_structure_types pst
7637: WHERE ppe.project_id = p_dest_project_id
7638: AND ppe.object_type = 'PA_STRUCTURES'
7677: --This cursor will retrieve the destination project's shared structure id
7678: CURSOR cur_get_shared_struc_id IS
7679: SELECT ppe.proj_element_id,
7680: ppe.attribute15
7681: FROM pa_proj_elements ppe
7682: WHERE ppe.project_id = p_dest_project_id
7683: AND ppe.object_type = 'PA_STRUCTURES'
7684: AND PA_PROJ_ELEMENTS_UTILS.check_fin_or_wp_structure( ppe.proj_element_id ) = 'Y' ;
7685:
7680: ppe.attribute15
7681: FROM pa_proj_elements ppe
7682: WHERE ppe.project_id = p_dest_project_id
7683: AND ppe.object_type = 'PA_STRUCTURES'
7684: AND PA_PROJ_ELEMENTS_UTILS.check_fin_or_wp_structure( ppe.proj_element_id ) = 'Y' ;
7685:
7686: --This cursor will retrieve the single version id created for the shared structure
7687: CURSOR cur_get_shared_ver_id IS
7688: SELECT ppev.element_version_id
7688: SELECT ppev.element_version_id
7689: FROM pa_proj_element_versions ppev
7690: WHERE ppev.project_id = p_dest_project_id
7691: AND ppev.object_type = 'PA_STRUCTURES'
7692: AND PA_PROJ_ELEMENTS_UTILS.check_fin_or_wp_structure( ppev.proj_element_id ) = 'Y' ;
7693:
7694: --This cursor gets the copied tasks' proj_element_id
7695: CURSOR cur_get_copied_tasks( c_dest_parent_structure_id IN NUMBER ) IS
7696: SELECT dest.attribute15 src_ppe_id,
7694: --This cursor gets the copied tasks' proj_element_id
7695: CURSOR cur_get_copied_tasks( c_dest_parent_structure_id IN NUMBER ) IS
7696: SELECT dest.attribute15 src_ppe_id,
7697: dest.proj_element_id dest_ppe_id
7698: FROM pa_proj_elements dest
7699: WHERE dest.project_id = p_dest_project_id
7700: AND dest.object_type = 'PA_TASKS'
7701: AND dest.parent_structure_id = c_dest_parent_structure_id ;
7702:
8022: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8023: RAISE FND_API.G_EXC_ERROR;
8024: END IF;
8025:
8026: --Update back the attributes column in pa_proj_elements and pa_proj_element_versions with actual data from source project
8027: UPDATE pa_proj_elements ppe1
8028: SET attribute15 = ( SELECT attribute15 FROM pa_proj_elements ppe2
8029: WHERE ppe2.project_id = p_src_project_id
8030: AND ppe2.proj_element_id = ppe1.attribute15 )
8023: RAISE FND_API.G_EXC_ERROR;
8024: END IF;
8025:
8026: --Update back the attributes column in pa_proj_elements and pa_proj_element_versions with actual data from source project
8027: UPDATE pa_proj_elements ppe1
8028: SET attribute15 = ( SELECT attribute15 FROM pa_proj_elements ppe2
8029: WHERE ppe2.project_id = p_src_project_id
8030: AND ppe2.proj_element_id = ppe1.attribute15 )
8031: WHERE project_id = p_dest_project_id ;
8024: END IF;
8025:
8026: --Update back the attributes column in pa_proj_elements and pa_proj_element_versions with actual data from source project
8027: UPDATE pa_proj_elements ppe1
8028: SET attribute15 = ( SELECT attribute15 FROM pa_proj_elements ppe2
8029: WHERE ppe2.project_id = p_src_project_id
8030: AND ppe2.proj_element_id = ppe1.attribute15 )
8031: WHERE project_id = p_dest_project_id ;
8032:
8069: Pa_Debug.WRITE(G_PKG_NAME, 'Financial Tasks flag : '||l_fin_tasks_flag, l_debug_level3);
8070: END IF;
8071:
8072: --Copy workplan/financial structures into the destination project
8073: INSERT INTO pa_proj_elements(
8074: PROJ_ELEMENT_ID
8075: ,PROJECT_ID
8076: ,OBJECT_TYPE
8077: ,ELEMENT_NUMBER
8202: ,ppe.WF_PROCESS
8203: ,ppe.WF_START_LEAD_DAYS
8204: ,p_dest_project_id
8205: ,'PA_PROJECTS'
8206: FROM pa_proj_elements ppe
8207: WHERE ppe.project_id = p_src_project_id
8208: AND ppe.proj_element_id IN
8209: ( SELECT ppe2.proj_element_id
8210: FROM pa_proj_elements ppe2
8206: FROM pa_proj_elements ppe
8207: WHERE ppe.project_id = p_src_project_id
8208: AND ppe.proj_element_id IN
8209: ( SELECT ppe2.proj_element_id
8210: FROM pa_proj_elements ppe2
8211: ,pa_proj_structure_types ppst
8212: ,pa_structure_types pst
8213: WHERE ppe2.project_id = p_src_project_id
8214: AND ppe2.object_type = 'PA_STRUCTURES'
8214: AND ppe2.object_type = 'PA_STRUCTURES'
8215: AND ppe2.proj_element_id = ppst.proj_element_id
8216: AND ppst.structure_type_id = pst.structure_type_id
8217: AND pst.structure_type IN ('WORKPLAN','FINANCIAL') );
8218: --DONOT use the fn call PA_PROJ_ELEMENTS_UTILS.check_fin_or_wp_structure( ppe.proj_element_id ) = 'Y' in above insert
8219: --Inner query is necessary rather than a straight join of three tables in the outer query bec in case of shared,
8220: --the same record from source project is returned twice.
8221:
8222: SELECT meaning INTO l_suffix
8226:
8227: --If Split and Workplan enabled
8228: IF 'N' = l_shared AND 'Y' = l_workplan_enabled THEN
8229: --Update the name of the WP structure record
8230: UPDATE pa_proj_elements ppe
8231: SET name = substr(p_dest_project_name||l_append||l_suffix, 1, 240)
8232: WHERE project_id = p_dest_project_id
8233: AND object_type = 'PA_STRUCTURES'
8234: AND EXISTS ( SELECT proj_element_id FROM pa_proj_structure_types
8256: ,sysdate
8257: ,l_user_id
8258: ,l_login_id
8259: ,1
8260: FROM pa_proj_elements ppe,
8261: pa_proj_structure_types ppst
8262: WHERE ppe.project_id = p_dest_project_id
8263: AND ppe.attribute15 IN --DoNot use PA_PROJ_ELEMENTS_UTILS.check_fin_or_wp_structure( ppe.attribute15 ) = 'Y'
8264: ( SELECT ppe2.proj_element_id
8259: ,1
8260: FROM pa_proj_elements ppe,
8261: pa_proj_structure_types ppst
8262: WHERE ppe.project_id = p_dest_project_id
8263: AND ppe.attribute15 IN --DoNot use PA_PROJ_ELEMENTS_UTILS.check_fin_or_wp_structure( ppe.attribute15 ) = 'Y'
8264: ( SELECT ppe2.proj_element_id
8265: FROM pa_proj_elements ppe2
8266: ,pa_proj_structure_types ppst
8267: ,pa_structure_types pst
8261: pa_proj_structure_types ppst
8262: WHERE ppe.project_id = p_dest_project_id
8263: AND ppe.attribute15 IN --DoNot use PA_PROJ_ELEMENTS_UTILS.check_fin_or_wp_structure( ppe.attribute15 ) = 'Y'
8264: ( SELECT ppe2.proj_element_id
8265: FROM pa_proj_elements ppe2
8266: ,pa_proj_structure_types ppst
8267: ,pa_structure_types pst
8268: WHERE ppe2.project_id = p_src_project_id
8269: AND ppe2.object_type = 'PA_STRUCTURES'
8327: ,ppwa.AUTO_ROLLUP_SUBPROJ_FLAG
8328: ,ppwa.THIRD_PARTY_SCHEDULE_CODE
8329: ,ppe.PROJECT_ID
8330: ,'PA_PROJECTS'
8331: FROM pa_proj_elements ppe,
8332: pa_proj_workplan_attr ppwa
8333: WHERE ppwa.project_id = p_src_project_id
8334: AND ppe.attribute15 = ppwa.proj_element_id
8335: AND PA_PROJ_ELEMENTS_UTILS.check_fin_or_wp_structure( ppe.proj_element_id ) = 'Y'
8331: FROM pa_proj_elements ppe,
8332: pa_proj_workplan_attr ppwa
8333: WHERE ppwa.project_id = p_src_project_id
8334: AND ppe.attribute15 = ppwa.proj_element_id
8335: AND PA_PROJ_ELEMENTS_UTILS.check_fin_or_wp_structure( ppe.proj_element_id ) = 'Y'
8336: AND ppe.project_id = p_dest_project_id --bug 3939786
8337: ;
8338:
8339: --Copy progress attributes for financial and workplan structures
8378: ,pppa.ALLOW_COLLAB_PROG_ENTRY
8379: ,pppa.ALLOW_PHY_PRCNT_CMP_OVERRIDES
8380: ,pppa.STRUCTURE_TYPE
8381: FROM pa_proj_progress_attr pppa,
8382: pa_proj_elements ppe
8383: WHERE ppe.project_id = p_dest_project_id
8384: AND PA_PROJ_ELEMENTS_UTILS.check_fin_or_wp_structure( ppe.proj_element_id ) = 'Y'
8385: AND ppe.attribute15 = pppa.object_id
8386: AND pppa.project_id = p_src_project_id
8380: ,pppa.STRUCTURE_TYPE
8381: FROM pa_proj_progress_attr pppa,
8382: pa_proj_elements ppe
8383: WHERE ppe.project_id = p_dest_project_id
8384: AND PA_PROJ_ELEMENTS_UTILS.check_fin_or_wp_structure( ppe.proj_element_id ) = 'Y'
8385: AND ppe.attribute15 = pppa.object_id
8386: AND pppa.project_id = p_src_project_id
8387: AND pppa.object_type = 'PA_STRUCTURES' ;
8388:
8394: /**** THE FOLLOWING SECTION COPIES/INSERTS WORKPLAN VERSIONS AND TASKS INTO THE DESTINATION PROJECT ****/
8395: ---------------------------------------------------------------------------------------------------------
8396: --IF 'ATLEAST ONE WP VER IS SELECTED' FOR COPYING THEN
8397: -- Copy selected version(s) and tasks belonging to these version(s)
8398: -- Call API to sync up pa_tasks with pa_proj_elements in case of SHARED structure
8399: --ELSE (if no WP ver selected for copying)
8400: -- IF 'SHARED' AND 'FINANCIAL TASKS FLAG IS CHECKED' THEN
8401: -- Copy financial structure version in the source project and tasks belonging to this version
8402: -- ENF IF;
8824: --If versioning is disabled, both LATEST PUBLISHED AND CURRENT WORKING FLAGS are 'Y'
8825: ,p_dest_project_id
8826: ,'PA_PROJECTS'
8827: FROM pa_proj_elem_ver_structure ppevs,
8828: pa_proj_elements ppe
8829: WHERE ppevs.project_id = p_src_project_id
8830: AND ppevs.element_version_id = rec_dest_wp_struc_versions.attribute15
8831: AND ppevs.proj_element_id = ppe.attribute15
8832: AND ppe.proj_element_id = l_dest_wp_structure_id;
8995: ,'Y'
8996: ,ppevs.project_id
8997: ,'PA_PROJECTS'
8998: FROM pa_proj_elem_ver_structure ppevs,
8999: pa_proj_elements ppe
9000: WHERE ppevs.project_id = p_dest_project_id
9001: AND ppevs.element_version_id = l_shared_make_working_copy
9002: AND ppevs.proj_element_id = ppe.proj_element_id
9003: AND ppe.proj_element_id = l_dest_wp_structure_id;
9006:
9007: --Create tasks in the selected WP versions
9008: IF 'Y' = l_shared THEN
9009: --If SHARED case, join with PA_TASKS table
9010: INSERT INTO pa_proj_elements(
9011: PROJ_ELEMENT_ID
9012: ,PROJECT_ID
9013: ,OBJECT_TYPE
9014: ,ELEMENT_NUMBER
9142: ,p_dest_project_id
9143: ,'PA_PROJECTS'
9144: FROM pa_task_types ptt,
9145: pa_tasks pt,
9146: pa_proj_elements ppe
9147: WHERE ptt.object_type = 'PA_TASKS'
9148: AND ppe.type_id = ptt.task_type_id
9149: AND nvl(ppe.link_task_flag,'N') <> 'Y' -- 4348868
9150: AND pt.task_number (+) = substrb(rtrim(ppe.element_number),1,25) -- Substrb added for Bug 5152448
9158: AND ppev.project_id = p_src_project_id
9159: AND ppev.object_type = 'PA_TASKS' ) ;
9160: ELSE
9161: --If SPLIT case, there should be no join with PA_TASKS table
9162: INSERT INTO pa_proj_elements(
9163: PROJ_ELEMENT_ID
9164: ,PROJECT_ID
9165: ,OBJECT_TYPE
9166: ,ELEMENT_NUMBER
9293: ,ppe.WF_START_LEAD_DAYS
9294: ,p_dest_project_id
9295: ,'PA_PROJECTS'
9296: FROM pa_task_types ptt,
9297: pa_proj_elements ppe
9298: WHERE ptt.object_type = 'PA_TASKS'
9299: AND ppe.type_id = ptt.task_type_id
9300: AND nvl(ppe.link_task_flag,'N') <> 'Y' -- 4348868
9301: AND ppe.proj_element_id IN
9379: ,decode( ppevs.status_code, 'STRUCTURE_PUBLISHED', 'PUBLISHED', 'WORKING' )
9380: ,ppev.FINANCIAL_TASK_FLAG --Check if this is correct ?
9381: ,p_dest_project_id
9382: ,'PA_PROJECTS'
9383: FROM pa_proj_elements ppe,
9384: pa_proj_element_versions ppev,
9385: pa_proj_element_versions ppev2,
9386: pa_proj_elem_ver_structure ppevs
9387: WHERE ppe.project_id = p_dest_project_id
9998: WHERE project_id = p_dest_project_id;
9999: END IF;
10000:
10001: ---Updating Baselined Dates
10002: UPDATE PA_PROJ_ELEMENTS ppe
10003: SET ( BASELINE_START_DATE
10004: ,BASELINE_FINISH_DATE
10005: ,BASELINE_DURATION
10006: ) = ( SELECT ppevs.scheduled_start_date
10033: UPDATE pa_projects_all
10034: SET ( BASELINE_START_DATE ,BASELINE_FINISH_DATE, baseline_duration, baseline_as_of_date ) =
10035: ( SELECT BASELINE_START_DATE ,BASELINE_FINISH_DATE, baseline_duration,
10036: decode( BASELINE_START_DATE, null, null, sysdate)
10037: FROM pa_proj_elements ppe, pa_proj_structure_types ppst
10038: WHERE project_id = p_dest_project_id
10039: AND object_type = 'PA_STRUCTURES'
10040: AND ppe.proj_element_id = ppst.proj_element_id
10041: AND ppst.structure_type_id = 1
10042: )
10043: WHERE project_id = p_dest_project_id;
10044:
10045: --Get the latest published version id in the destination project
10046: l_dest_latest_pub_ver_id := PA_PROJ_ELEMENTS_UTILS.latest_published_ver_id( p_dest_project_id, 'WORKPLAN' ) ;
10047:
10048: IF l_dest_latest_pub_ver_id IS NOT NULL THEN
10049: UPDATE pa_projects_all
10050: SET ( scheduled_START_DATE ,scheduled_FINISH_DATE, scheduled_duration, scheduled_as_of_date ) =
10353: END IF;
10354: END;
10355:
10356: /* This code is moved to Copy_Project API for bug 4200168 so that BF can use attribute15 to access source task id in copy finplan API*/
10357: /* Now update back the attributes column in pa_proj_elements and pa_proj_element_versions with actual data from source project
10358: UPDATE pa_proj_elements ppe1
10359: SET attribute15 = ( SELECT attribute15 FROM pa_proj_elements ppe2
10360: WHERE ppe2.project_id = p_src_project_id
10361: AND ppe2.proj_element_id = ppe1.attribute15 )
10354: END;
10355:
10356: /* This code is moved to Copy_Project API for bug 4200168 so that BF can use attribute15 to access source task id in copy finplan API*/
10357: /* Now update back the attributes column in pa_proj_elements and pa_proj_element_versions with actual data from source project
10358: UPDATE pa_proj_elements ppe1
10359: SET attribute15 = ( SELECT attribute15 FROM pa_proj_elements ppe2
10360: WHERE ppe2.project_id = p_src_project_id
10361: AND ppe2.proj_element_id = ppe1.attribute15 )
10362: WHERE project_id = p_dest_project_id ;
10355:
10356: /* This code is moved to Copy_Project API for bug 4200168 so that BF can use attribute15 to access source task id in copy finplan API*/
10357: /* Now update back the attributes column in pa_proj_elements and pa_proj_element_versions with actual data from source project
10358: UPDATE pa_proj_elements ppe1
10359: SET attribute15 = ( SELECT attribute15 FROM pa_proj_elements ppe2
10360: WHERE ppe2.project_id = p_src_project_id
10361: AND ppe2.proj_element_id = ppe1.attribute15 )
10362: WHERE project_id = p_dest_project_id ;
10363:
10740: --bug 3138959
10741:
10742: CURSOR cur_pa_struct IS
10743: SELECT ppe.proj_element_id, ppe.attribute15, ppst.structure_type_id
10744: /* FROM pa_proj_elements ppe, pa_proj_structure_types ppst
10745: WHERE ppe.proj_element_id = ppst.proj_element_id
10746: AND ppe.project_id = p_dest_project_id
10747: AND ppe.object_type = 'PA_STRUCTURES';*//*Commented below query and following criteria by SMUKKA */
10748: from pa_proj_elements ppe,
10744: /* FROM pa_proj_elements ppe, pa_proj_structure_types ppst
10745: WHERE ppe.proj_element_id = ppst.proj_element_id
10746: AND ppe.project_id = p_dest_project_id
10747: AND ppe.object_type = 'PA_STRUCTURES';*//*Commented below query and following criteria by SMUKKA */
10748: from pa_proj_elements ppe,
10749: pa_proj_structure_types ppst,
10750: pa_structure_types pst
10751: where ppe.proj_element_id =ppst.proj_element_id
10752: and ppe.project_id = p_dest_project_id
10765: CURSOR c_attach_tasks(c_orig_parent_structure_id NUMBER,
10766: c_new_parent_structure_id NUMBER) is
10767: SELECT orig.proj_element_id orig_task_id,
10768: new.proj_element_id new_task_id
10769: FROM pa_proj_elements orig, pa_proj_elements new
10770: WHERE orig.project_id = p_src_project_id
10771: AND new.element_number = orig.element_number
10772: AND new.project_id = p_dest_project_id
10773: AND new.object_type = 'PA_TASKS'
10785: --fix bug 2831775
10786: l_structure_id NUMBER;
10787: CURSOR get_shared_struc_id IS
10788: select ppe.proj_element_id
10789: /* from pa_proj_elements
10790: where project_id = p_dest_project_id
10791: and object_type = 'PA_STRUCTURES';*//*Commented below query and following criteria by SMUKKA */
10792: from pa_proj_elements ppe,
10793: pa_proj_structure_types ppst,
10788: select ppe.proj_element_id
10789: /* from pa_proj_elements
10790: where project_id = p_dest_project_id
10791: and object_type = 'PA_STRUCTURES';*//*Commented below query and following criteria by SMUKKA */
10792: from pa_proj_elements ppe,
10793: pa_proj_structure_types ppst,
10794: pa_structure_types pst
10795: where project_id = p_dest_project_id
10796: and object_type = 'PA_STRUCTURES'
10880:
10881: END IF;
10882:
10883:
10884: --copy pa_proj_elements
10885: --copying structures and tasks as is.
10886: INSERT INTO pa_proj_elements(
10887: PROJ_ELEMENT_ID
10888: ,PROJECT_ID
10882:
10883:
10884: --copy pa_proj_elements
10885: --copying structures and tasks as is.
10886: INSERT INTO pa_proj_elements(
10887: PROJ_ELEMENT_ID
10888: ,PROJECT_ID
10889: ,OBJECT_TYPE
10890: ,ELEMENT_NUMBER
11015: ,ppe.ENABLE_WF_FLAG
11016: ,ppe.WF_ITEM_TYPE
11017: ,ppe.WF_PROCESS
11018: ,ppe.WF_START_LEAD_DAYS
11019: /* FROM pa_proj_elements ppe
11020: where project_id = p_src_project_id
11021: and ppe.object_type = 'PA_STRUCTURES';*//*Commented below query and following criteria by SMUKKA */
11022: from pa_proj_elements ppe
11023: where ppe.project_id = p_src_project_id
11018: ,ppe.WF_START_LEAD_DAYS
11019: /* FROM pa_proj_elements ppe
11020: where project_id = p_src_project_id
11021: and ppe.object_type = 'PA_STRUCTURES';*//*Commented below query and following criteria by SMUKKA */
11022: from pa_proj_elements ppe
11023: where ppe.project_id = p_src_project_id
11024: and ppe.object_type = 'PA_STRUCTURES'
11025: and ppe.proj_element_id IN (select ppe2.proj_element_id
11026: from pa_proj_elements ppe2,
11022: from pa_proj_elements ppe
11023: where ppe.project_id = p_src_project_id
11024: and ppe.object_type = 'PA_STRUCTURES'
11025: and ppe.proj_element_id IN (select ppe2.proj_element_id
11026: from pa_proj_elements ppe2,
11027: pa_proj_structure_types ppst,
11028: pa_structure_types pst
11029: where ppe2.project_id = p_src_project_id
11030: and ppe2.object_type = 'PA_STRUCTURES'
11033: and pst.structure_type in ('WORKPLAN','FINANCIAL'));
11034:
11035:
11036: --updating element_number with the proj_element_id
11037: update pa_proj_elements
11038: set element_number = proj_element_id
11039: WHERE project_id = p_dest_project_id
11040: AND object_type = 'PA_STRUCTURES'
11041: ;
11062: , sysdate
11063: , l_user_id
11064: , l_login_id
11065: , 1
11066: /*from pa_proj_elements ppe, pa_proj_structure_types ppst
11067: where ppe.project_id = p_dest_project_id
11068: and ppe.attribute15 = ppst.proj_element_id ---join with copy_from_proj_element_id to get the structure types
11069: and ppe.object_type = 'PA_STRUCTURES';*//*Commented below query and following criteria by SMUKKA */
11070: from pa_proj_elements ppe,
11066: /*from pa_proj_elements ppe, pa_proj_structure_types ppst
11067: where ppe.project_id = p_dest_project_id
11068: and ppe.attribute15 = ppst.proj_element_id ---join with copy_from_proj_element_id to get the structure types
11069: and ppe.object_type = 'PA_STRUCTURES';*//*Commented below query and following criteria by SMUKKA */
11070: from pa_proj_elements ppe,
11071: pa_proj_structure_types ppst,
11072: pa_structure_types pst
11073: where ppe.project_id = p_dest_project_id
11074: and ppe.attribute15 = ppst.proj_element_id
11097: raise FND_API.G_EXC_ERROR;
11098: end if;
11099:
11100: --Split; Creating Financial tasks
11101: INSERT INTO pa_proj_elements(
11102: PROJ_ELEMENT_ID
11103: ,PROJECT_ID
11104: ,OBJECT_TYPE
11105: ,ELEMENT_NUMBER
11230: ,'N'
11231: ,ppe.WF_ITEM_TYPE
11232: ,ppe.WF_PROCESS
11233: ,ppe.WF_START_LEAD_DAYS
11234: FROM pa_proj_elements ppe,
11235: pa_tasks pt,
11236: pa_task_types ptt --bug 2827090
11237: WHERE ppe.project_id = p_src_project_id
11238: AND pt.project_id = p_dest_project_id
11274: --bug 3140032
11275: ELSIF cur_pa_struct_rec.structure_type_id = 1
11276: THEN
11277:
11278: ---update source reference in pa_proj_elements for all the
11279: Update pa_proj_elements
11280: set PM_SOURCE_CODE = ( SELECT PM_SOURCE_CODE FROM pa_proj_elements
11281: WHERE project_id = p_dest_project_id
11282: AND object_type = 'PA_STRUCTURES'
11275: ELSIF cur_pa_struct_rec.structure_type_id = 1
11276: THEN
11277:
11278: ---update source reference in pa_proj_elements for all the
11279: Update pa_proj_elements
11280: set PM_SOURCE_CODE = ( SELECT PM_SOURCE_CODE FROM pa_proj_elements
11281: WHERE project_id = p_dest_project_id
11282: AND object_type = 'PA_STRUCTURES'
11283: AND proj_element_id = cur_pa_struct_rec.proj_element_id
11276: THEN
11277:
11278: ---update source reference in pa_proj_elements for all the
11279: Update pa_proj_elements
11280: set PM_SOURCE_CODE = ( SELECT PM_SOURCE_CODE FROM pa_proj_elements
11281: WHERE project_id = p_dest_project_id
11282: AND object_type = 'PA_STRUCTURES'
11283: AND proj_element_id = cur_pa_struct_rec.proj_element_id
11284: AND PM_SOURCE_CODE IS NOT NULL
11288: AND PM_SOURCE_CODE IS NULL;
11289:
11290: ---update source reference in pa_tasks for all the
11291: Update pa_tasks
11292: set PM_PRODUCT_CODE = ( SELECT PM_SOURCE_CODE FROM pa_proj_elements
11293: WHERE project_id = p_dest_project_id
11294: AND object_type = 'PA_STRUCTURES'
11295: AND proj_element_id = cur_pa_struct_rec.proj_element_id
11296: AND PM_SOURCE_CODE IS NOT NULL
11382: ,ppev.TASK_UNPUB_VER_STATUS_CODE
11383: ,p_dest_project_id
11384: ,'PA_PROJECTS'
11385: /*from pa_proj_element_versions ppev,
11386: pa_proj_elements ppe
11387: where ppev.project_id = p_src_project_id
11388: and ppe.project_id = p_dest_project_id
11389: and ppev.proj_element_id = ppe.attribute15
11390: and ppe.object_type = 'PA_STRUCTURES'
11389: and ppev.proj_element_id = ppe.attribute15
11390: and ppe.object_type = 'PA_STRUCTURES'
11391: and ppev.object_type = 'PA_STRUCTURES';*//*Commented below query and following criteria by SMUKKA */
11392: from pa_proj_element_Versions ppev,
11393: pa_proj_elements ppe
11394: where ppev.project_id = p_src_project_id
11395: and ppe.project_id = p_dest_project_id
11396: and ppev.proj_element_id = ppe.attribute15
11397: and ppe.object_type = 'PA_STRUCTURES'
11397: and ppe.object_type = 'PA_STRUCTURES'
11398: and ppev.object_type = 'PA_STRUCTURES'
11399: and ppe.proj_element_id IN
11400: (select ppe2.proj_element_id
11401: from pa_proj_elements ppe2,
11402: pa_proj_structure_types ppst,
11403: pa_structure_types pst
11404: -- where ppe2.project_id = p_src_project_id
11405: where ppe2.project_id = p_dest_project_id --Bug 3585699 SMukka Replaced p_src_project_id by p_dest_project_id
11417: FROM pa_proj_element_versions
11418: WHERE project_id = p_src_project_id
11419: AND object_type = 'PA_STRUCTURES'
11420: and proj_element_id IN (select ppe2.proj_element_id
11421: from pa_proj_elements ppe2,
11422: pa_proj_structure_types ppst,
11423: pa_structure_types pst
11424: where ppe2.project_id = p_src_project_id
11425: and ppe2.object_type = 'PA_STRUCTURES'
11502: ,'N'
11503: ,ppevs.current_working_flag /* FPM bug 3301192 */
11504: ,p_dest_project_id
11505: ,'PA_PROJECTS'
11506: /*FROM PA_PROJ_ELEM_VER_STRUCTURE ppevs, pa_proj_elements ppe
11507: WHERE ppevs.project_id = p_src_project_id
11508: AND ppe.project_id = p_dest_project_id
11509: and ppevs.proj_element_id = ppe.attribute15
11510: AND ppe.object_type = 'PA_STRUCTURES';*//*Commented below query and following criteria by SMUKKA */
11507: WHERE ppevs.project_id = p_src_project_id
11508: AND ppe.project_id = p_dest_project_id
11509: and ppevs.proj_element_id = ppe.attribute15
11510: AND ppe.object_type = 'PA_STRUCTURES';*//*Commented below query and following criteria by SMUKKA */
11511: FROM PA_PROJ_ELEM_VER_STRUCTURE ppevs, pa_proj_elements ppe
11512: WHERE ppevs.project_id = p_src_project_id
11513: AND ppe.project_id = p_dest_project_id
11514: and ppevs.proj_element_id = ppe.attribute15
11515: AND ppe.object_type = 'PA_STRUCTURES'
11513: AND ppe.project_id = p_dest_project_id
11514: and ppevs.proj_element_id = ppe.attribute15
11515: AND ppe.object_type = 'PA_STRUCTURES'
11516: and ppe.proj_element_id IN (SELECT ppe2.proj_element_id
11517: FROM pa_proj_elements ppe2,
11518: pa_proj_structure_types ppst,
11519: pa_structure_types pst
11520: WHERE ppe2.project_id = p_dest_project_id
11521: AND ppe2.object_type = 'PA_STRUCTURES'
11577: ,ppwa.AUTO_ROLLUP_SUBPROJ_FLAG
11578: ,ppwa.THIRD_PARTY_SCHEDULE_CODE
11579: ,ppe.PROJECT_ID
11580: ,'PA_PROJECTS'
11581: FROM pa_proj_elements ppe,
11582: pa_proj_workplan_attr ppwa
11583: WHERE ppwa.project_id = p_src_project_id
11584: AND ppe.attribute15 = ppwa.proj_element_id
11585: AND ppe.project_id = p_dest_project_id
11627: ,pppa.ALLOW_COLLAB_PROG_ENTRY
11628: ,pppa.ALLOW_PHY_PRCNT_CMP_OVERRIDES
11629: ,pppa.STRUCTURE_TYPE
11630: FROM pa_proj_progress_attr pppa,
11631: pa_proj_elements ppe
11632: WHERE ppe.project_id = p_dest_project_id
11633: AND ppe.attribute15 = pppa.object_id
11634: AND pppa.project_id = p_src_project_id
11635: AND pppa.object_type = 'PA_STRUCTURES' ;
12001: END IF;
12002:
12003: IF l_shared = 'N'
12004: THEN
12005: UPDATE pa_proj_elements ppe
12006: set name = substr(l_project_name||l_append||l_suffix, 1, 240)
12007: WHERE project_id = p_dest_project_id
12008: AND object_type = 'PA_STRUCTURES'
12009: AND EXISTS ( SELECT proj_element_id FROM pa_proj_structure_types
12065: ,ppwa.AUTO_ROLLUP_SUBPROJ_FLAG
12066: ,ppwa.THIRD_PARTY_SCHEDULE_CODE
12067: ,ppe.PROJECT_ID
12068: ,'PA_PROJECTS'
12069: /*FROM pa_proj_elements ppe,
12070: pa_proj_workplan_attr ppwa
12071: WHERE ppe.project_id = p_dest_project_id
12072: and object_type = 'PA_STRUCTURES'
12073: and ppwa.project_id = p_src_project_id
12071: WHERE ppe.project_id = p_dest_project_id
12072: and object_type = 'PA_STRUCTURES'
12073: and ppwa.project_id = p_src_project_id
12074: and ppwa.proj_element_id = ppe.attribute15;*//*Commented below query and following criteria by SMUKKA */
12075: FROM pa_proj_elements ppe,
12076: pa_proj_workplan_attr ppwa
12077: WHERE ppwa.project_id = p_src_project_id
12078: AND ppe.project_id = p_dest_project_id
12079: AND ppe.object_type ='PA_STRUCTURES'
12077: WHERE ppwa.project_id = p_src_project_id
12078: AND ppe.project_id = p_dest_project_id
12079: AND ppe.object_type ='PA_STRUCTURES'
12080: AND ppe.attribute15 = ppwa.proj_element_id
12081: AND PA_PROJ_ELEMENTS_UTILS.check_fin_or_wp_structure( ppe.proj_element_id ) = 'Y'; /* bug 3621613 */
12082:
12083: --bug 3010538
12084: --added task weighting basis code
12085: INSERT INTO pa_proj_progress_attr(
12126: ,pppa.ALLOW_PHY_PRCNT_CMP_OVERRIDES
12127: ,pppa.STRUCTURE_TYPE
12128: /* FP-M Bug # 3420093. Modified: copy_structures_bulk. */
12129: /*FROM pa_proj_progress_attr pppa,
12130: pa_proj_elements ppe
12131: WHERE ppe.project_id = p_dest_project_id
12132: and ppe.attribute15 = pppa.object_id --no need to join with
12133: and pppa.object_type = 'PA_STRUCTURES'
12134: and ppe.object_type = 'PA_STRUCTURES'
12133: and pppa.object_type = 'PA_STRUCTURES'
12134: and ppe.object_type = 'PA_STRUCTURES'
12135: and pppa.project_id = p_src_project_id;*//*Commented below query and following criteria by SMUKKA */
12136: FROM pa_proj_progress_attr pppa,
12137: pa_proj_elements ppe
12138: WHERE ppe.project_id = p_dest_project_id
12139: and ppe.attribute15 = pppa.object_id
12140: and pppa.object_type = 'PA_STRUCTURES'
12141: and ppe.object_type = 'PA_STRUCTURES'
12139: and ppe.attribute15 = pppa.object_id
12140: and pppa.object_type = 'PA_STRUCTURES'
12141: and ppe.object_type = 'PA_STRUCTURES'
12142: and pppa.project_id = p_src_project_id
12143: AND PA_PROJ_ELEMENTS_UTILS.check_fin_or_wp_structure( ppe.proj_element_id ) = 'Y' ; /* bug 3621613 */
12144:
12145: --Bug 2955589. If Versioning is enabled and it is a project to project copy, the plsql table will not
12146: --contain any records if there were no working verisons. We need to create one if any of the flags
12147: --l_create_fin_version or l_create_wk_version is 'Y'.
12265: ,ppev.TASK_UNPUB_VER_STATUS_CODE
12266: ,p_dest_project_id
12267: ,'PA_PROJECTS'
12268: FROM pa_proj_element_versions ppev,
12269: pa_proj_elements ppe
12270: WHERE ppev.project_id = p_src_project_id
12271: and ppe.project_id = p_dest_project_id
12272: and ppev.element_version_id = l_dest_str_versions_tbl(k).src_str_version_id
12273: and ppev.proj_element_id = ppe.attribute15
12354: ,p_dest_project_id
12355: ,'PA_PROJECTS'
12356: ,ppev.financial_task_flag --Bug no 3651255
12357: FROM pa_proj_element_versions ppev,
12358: pa_proj_elements ppe
12359: WHERE ppev.project_id = p_src_project_id
12360: and ppe.project_id = p_dest_project_id
12361: and ppev.parent_structure_version_id = l_dest_str_versions_tbl(k).src_str_version_id
12362: and ppev.proj_element_id = ppe.attribute15
12604: ,'N'
12605: ,ppevs.current_working_flag /* FPM bug 3301192 */
12606: ,p_dest_project_id
12607: ,'PA_PROJECTS'
12608: FROM PA_PROJ_ELEM_VER_STRUCTURE ppevs, pa_proj_elements ppe
12609: WHERE ppevs.project_id = p_src_project_id
12610: AND ppe.project_id = p_dest_project_id
12611: and ppevs.element_version_id = l_dest_str_versions_tbl(k).src_str_version_id
12612: and ppevs.proj_element_id = ppe.attribute15
12784: WHERE project_id = p_dest_project_id;
12785: END IF;
12786:
12787: ---updating baselined dates
12788: UPDATE PA_PROJ_ELEMENTS ppe
12789: SET ( BASELINE_START_DATE ,BASELINE_FINISH_DATE,
12790: BASELINE_DURATION ) =
12791: ( Select ppevs.scheduled_start_date, ppevs.scheduled_finish_date,
12792: ppevs.duration
12808: update pa_projects_all
12809: set ( BASELINE_START_DATE ,BASELINE_FINISH_DATE, baseline_duration, baseline_as_of_date) =
12810: ( SELECT BASELINE_START_DATE ,BASELINE_FINISH_DATE, baseline_duration,
12811: decode(BASELINE_START_DATE, null, null, sysdate)
12812: FROM pa_proj_elements ppe, pa_proj_structure_types ppst
12813: WHERE project_id = p_dest_project_id
12814: and object_type = 'PA_STRUCTURES'
12815: and ppe.proj_element_id = ppst.proj_element_id
12816: and ppst.structure_type_id = 1 )
12903: End;
12904: -- till here by skannoji
12905: ------------------------------------------------------------------------------
12906:
12907: update pa_proj_elements ppe1
12908: set attribute15 = ( select attribute15 from pa_proj_elements ppe2
12909: where ppe2.project_id = p_src_project_id
12910: and ppe2.proj_element_id = ppe1.attribute15 )
12911: where project_id = p_dest_project_id
12904: -- till here by skannoji
12905: ------------------------------------------------------------------------------
12906:
12907: update pa_proj_elements ppe1
12908: set attribute15 = ( select attribute15 from pa_proj_elements ppe2
12909: where ppe2.project_id = p_src_project_id
12910: and ppe2.proj_element_id = ppe1.attribute15 )
12911: where project_id = p_dest_project_id
12912: ;
12926:
12927: CURSOR cur_strs_n_types
12928: IS
12929: SELECT ppe.proj_element_id, ppst.structure_type_id
12930: FROM pa_proj_elements ppe, pa_proj_structure_types ppst
12931: WHERE ppe.project_id = p_dest_project_id
12932: AND ppe.object_type = 'PA_STRUCTURES'
12933: AND ppe.proj_element_id = ppst.proj_element_id
12934: ;
13298: */
13299: -- This cursor is used to get the structure id given the structure type and project_id
13300: CURSOR get_structure(c_project_id pa_projects_all.project_id%TYPE, c_struc_type pa_structure_types.structure_type_class_code%TYPE) IS
13301: select pelem.proj_element_id
13302: from pa_proj_elements pelem,
13303: pa_proj_structure_types ppstr,
13304: pa_structure_types pstr
13305: where pelem.project_id = c_project_id
13306: and pstr.structure_type_class_code = c_struc_type
13335: from pa_projects
13336: where project_id = c_proj_id;
13337:
13338: -- IUP: Cursors added for changes done to this api so it can be called from update_project
13339: --Cursor to get the record version number of the task record which needs to be updated in pa_proj_elements table
13340: CURSOR cur_rec_ver_num(c_task_id pa_tasks.task_id%TYPE)
13341: IS
13342: SELECT record_version_number
13343: FROM pa_proj_elements
13339: --Cursor to get the record version number of the task record which needs to be updated in pa_proj_elements table
13340: CURSOR cur_rec_ver_num(c_task_id pa_tasks.task_id%TYPE)
13341: IS
13342: SELECT record_version_number
13343: FROM pa_proj_elements
13344: WHERE proj_element_id = c_task_id
13345: AND object_type = 'PA_TASKS';
13346:
13347: --Cursor to get the task version id when task id and structure version id is known
13378: --Cursor to get the task type associated with the task id
13379: CURSOR cur_task_type_id(c_task_id pa_tasks.task_id%TYPE)
13380: IS
13381: SELECT type_id
13382: FROM pa_proj_elements
13383: WHERE proj_element_id = c_task_id
13384: AND project_id = p_project_id;
13385:
13386: --Cursor to get the task id if task element version id is known
13405: --Cursor to get the task number from task ver id
13406: CURSOR cur_ver_id_to_task_num( c_task_version_id pa_proj_element_versions.element_version_id%TYPE )
13407: IS
13408: SELECT p1.element_number
13409: FROM pa_proj_elements p1, pa_proj_element_versions pv1
13410: WHERE pv1.element_version_id = c_task_version_id
13411: AND p1.proj_element_id = pv1.proj_element_id;
13412:
13413: -- End Cursors Definition
13435:
13436: -- End of Definition for the table types
13437:
13438: -- Header level variables common to all tasks required for update/create task/project cases.
13439: l_structure_id pa_proj_elements.proj_element_id%TYPE;
13440: l_structure_version_id pa_proj_element_versions.element_version_id%TYPE;
13441: l_task_unpub_ver_status_code pa_proj_element_versions.task_unpub_ver_status_code%TYPE;
13442: l_add_task_security VARCHAR2(1);
13443: l_default_task_type_id pa_proj_elements.type_id%TYPE;
13439: l_structure_id pa_proj_elements.proj_element_id%TYPE;
13440: l_structure_version_id pa_proj_element_versions.element_version_id%TYPE;
13441: l_task_unpub_ver_status_code pa_proj_element_versions.task_unpub_ver_status_code%TYPE;
13442: l_add_task_security VARCHAR2(1);
13443: l_default_task_type_id pa_proj_elements.type_id%TYPE;
13444: l_update_task_security VARCHAR2(1);
13445: l_str_status_code pa_proj_elem_ver_structure.status_code%TYPE;
13446: l_amg_segment1 pa_projects_all.segment1%TYPE;
13447:
13546: l_temp_count NUMBER;
13547: l_temp_success VARCHAR2(1);
13548: l_hierarchy_count NUMBER;
13549: -- l_err_task_number pa_tasks.task_number%TYPE; bug 6193314
13550: l_err_task_number pa_proj_elements.element_number%TYPE;
13551: l_shared VARCHAR(1) := 'N'; -- Added for Bug#3451073
13552:
13553: /* Bug # 3420093 - Adding Progress Management modifications to create_project and update_project flow. */
13554:
13567: l_pm_product_code SYSTEM.PA_VARCHAR2_30_TBL_TYPE := SYSTEM.PA_VARCHAR2_30_TBL_TYPE();
13568: l_add_plan_task_id NUMBER;
13569:
13570: CURSOR cur_wp_task_csr_duplicate (c_project_id pa_projects_all.project_id%TYPE,
13571: c_pm_source_reference pa_proj_elements.pm_source_reference%TYPE) IS
13572: SELECT proj_element_id
13573: FROM pa_proj_elements pelem
13574: WHERE project_id = c_project_id
13575: AND pm_source_reference = c_pm_source_reference
13569:
13570: CURSOR cur_wp_task_csr_duplicate (c_project_id pa_projects_all.project_id%TYPE,
13571: c_pm_source_reference pa_proj_elements.pm_source_reference%TYPE) IS
13572: SELECT proj_element_id
13573: FROM pa_proj_elements pelem
13574: WHERE project_id = c_project_id
13575: AND pm_source_reference = c_pm_source_reference
13576: AND exists(select 1
13577: from pa_proj_structure_types pstype, pa_structure_types types
13584:
13585: cursor l_task_cur(p_project_id NUMBER) is
13586: select
13587: element_version_id,planned_effort,actual_start_date,actual_finish_date
13588: from pa_proj_elem_ver_schedule ppevs, pa_proj_elements ppe
13589: where ppevs.project_id = ppe.project_id
13590: and ppevs.proj_element_id = ppe.proj_element_id
13591: and ppe.object_type = 'PA_TASKS'
13592: and ppevs.project_id = p_project_id;
13592: and ppevs.project_id = p_project_id;
13593: /** cursor added by aditi for bug 4120380. This is added to verify if the task_number is being modified by AMG Update_project script,
13594: Only then we need to prefix the task_number with a '-', so as to prevent primary key violation, and sucessful update.**/
13595: /*bug#5243018 : Reverting the fix in Bug 4120380
13596: CURSOR cur_proj_elements_info(c_task_id pa_proj_elements.proj_element_id%TYPE)
13597: IS
13598: SELECT element_number, name
13599: FROM pa_proj_elements
13600: WHERE proj_element_id = c_task_id;
13595: /*bug#5243018 : Reverting the fix in Bug 4120380
13596: CURSOR cur_proj_elements_info(c_task_id pa_proj_elements.proj_element_id%TYPE)
13597: IS
13598: SELECT element_number, name
13599: FROM pa_proj_elements
13600: WHERE proj_element_id = c_task_id;
13601: l_proj_elements_info cur_proj_elements_info%ROWTYPE; */
13602: /** changes end for bug 4120380 by aditi **/
13603: l_task_cur_rec l_task_cur%rowtype;
13665: AND d.element_version_id = c.element_version_id
13666: AND d.status_code = 'STRUCTURE_WORKING';
13667:
13668: l_struct_ver_id pa_proj_element_versions.element_version_id%TYPE;
13669: l_status_code pa_proj_elements.status_code%type;
13670: -- Bug 6717386
13671:
13672: BEGIN
13673:
14090: END IF;
14091:
14092: */
14093: -- Obtain the structure version id to proceed with the processing.
14094: PA_PROJ_ELEMENTS_UTILS.GET_STRUCTURE_INFO(
14095: p_project_id => p_project_id
14096: ,p_structure_type => p_structure_type
14097: ,p_structure_id => l_structure_id
14098: ,p_is_wp_separate_from_fn => p_is_wp_separate_from_fn
14165: -- Get the default task type id. In workplan context, when we create a schedule
14166: -- version we check if the task type allows for non null work quantity. If the task type
14167: -- is passed as null in the input task record, we use the default task type id derived
14168: -- below.
14169: l_default_task_type_id := PA_PROJ_ELEMENTS_UTILS.GET_DEFAULT_TASK_TYPE_ID;
14170:
14171: -- Get the segment1 for the project. Used to show context for error messages.
14172: open l_amg_project_csr(p_project_id);
14173: fetch l_amg_project_csr into l_amg_segment1;
14219: /* Bug 3588013 - Added the exists clause for this bug to get proj_element_id for the correct structure
14220: Task Reference should be unique with in structure.
14221: */
14222: CURSOR cur_wp_task_csr (c_project_id pa_projects_all.project_id%TYPE,
14223: c_pm_source_reference pa_proj_elements.pm_source_reference%TYPE) IS
14224: SELECT proj_element_id
14225: FROM pa_proj_elements pelem
14226: WHERE project_id = c_project_id
14227: AND pm_source_reference = c_pm_source_reference
14221: */
14222: CURSOR cur_wp_task_csr (c_project_id pa_projects_all.project_id%TYPE,
14223: c_pm_source_reference pa_proj_elements.pm_source_reference%TYPE) IS
14224: SELECT proj_element_id
14225: FROM pa_proj_elements pelem
14226: WHERE project_id = c_project_id
14227: AND pm_source_reference = c_pm_source_reference
14228: AND exists(select 1
14229: from pa_proj_structure_types pstype, pa_structure_types types
14384: -- 1. Populate l_cur_pa_tasks_rec which has task_number, long_task_name, description, parent_task_id
14385: -- carrying_out_organization_id, pm_task_reference, address_id, task_manager_person_id
14386: -- 2. l_parent_task_id
14387: -- 3. l_task_id -- the task that is being processed.
14388: -- l_proj_elem_rvn of record of pa_proj_elements to be updated
14389: -- before calling api PA_TASK_PUB1.update_task
14390:
14391: IF l_task_in_rec.pa_task_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM OR
14392: l_task_in_rec.pa_task_id IS NULL -- new tasks to be crated
14636: DECLARE
14637: -- Bug 2982072. The following cursor is used to obtain the task name
14638: -- and number for a given task element from the database. These will be used
14639: -- if the user has not passed any value for these parameters.
14640: CURSOR cur_proj_elem_info(c_task_id pa_proj_elements.proj_element_id%TYPE)
14641: IS
14642: SELECT element_number, name
14643: FROM pa_proj_elements
14644: WHERE proj_element_id = c_task_id;
14639: -- if the user has not passed any value for these parameters.
14640: CURSOR cur_proj_elem_info(c_task_id pa_proj_elements.proj_element_id%TYPE)
14641: IS
14642: SELECT element_number, name
14643: FROM pa_proj_elements
14644: WHERE proj_element_id = c_task_id;
14645:
14646: l_proj_elem_info cur_proj_elem_info%ROWTYPE;
14647: BEGIN
14888: IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y' AND
14889: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N' AND
14890: PA_PROJECT_PUB.G_Published_version_exists = 'Y' AND
14891: --Added by rtarway for BUG 4321313
14892: PA_PROJ_ELEMENTS_UTILS.CHECK_IS_FINANCIAL_TASK(l_task_in_rec.pa_task_id)='Y'
14893: )
14894: THEN
14895: --Call Update_One_Task to update financial attributes
14896: PA_PROJECT_PVT.Update_One_Task
15155: -- This cursor identified the number of progressible tasks under a parent.
15156: CURSOR get_child_count(c_parent_element_version_id NUMBER)
15157: IS
15158: SELECT count(rel.object_id_to1)
15159: FROM PA_OBJECT_RELATIONSHIPS rel, pa_proj_element_versions pev, pa_proj_elements pe, pa_task_types tt
15160: WHERE rel.object_id_from1 = c_parent_element_version_id
15161: AND rel.object_type_to = 'PA_TASKS'
15162: AND rel.relationship_type = 'S'
15163: AND rel.object_type_from IN ('PA_STRUCTURES', 'PA_TASKS')
15573: IF l_task_in_rec.pa_task_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM OR
15574: l_task_in_rec.pa_task_id IS NULL THEN -- create task
15575: IF l_parent_task_id IS NOT NULL THEN
15576: --Check if it is ok to create a subtask.
15577: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok
15578: ( p_parent_task_ver_id => l_task_version_id_tbl(l_parent_task_id)
15579: ,x_return_status => l_return_status
15580: ,x_error_message_code => l_error_msg_code
15581: );
15631: p_msg_name => 'PA_WBS_CANT_CHANGE');
15632: RAISE Invalid_Arg_Exc_WP;
15633: END IF;
15634: -- Lifecycle Phase validation . Check if task has phase associated with it
15635: IF (pa_proj_elements_utils.CHECK_ELEMENT_HAS_PHASE(l_task_in_rec.pa_task_id) = 'Y')
15636: THEN
15637: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
15638: p_msg_name => 'PA_LC_NO_MOVE_PHASE_TASK');
15639: RAISE Invalid_Arg_Exc_WP;
15639: RAISE Invalid_Arg_Exc_WP;
15640: END IF;
15641:
15642: --check if ok to move this task
15643: PA_PROJ_ELEMENTS_UTILS.check_move_task_ok(
15644: p_task_ver_id => l_task_version_id
15645: ,x_return_status => x_return_status
15646: ,x_error_message_code => x_msg_data
15647: );
15651: raise Invalid_Arg_Exc_WP;
15652: END IF;
15653:
15654: IF (l_parent_task_id IS NOT NULL) THEN
15655: PA_PROJ_ELEMENTS_UTILS.CHECK_CREATE_SUBTASK_OK(
15656: p_parent_task_ver_id => l_parent_task_version_id
15657: ,x_return_status => x_return_status
15658: ,x_error_message_code => x_msg_data);
15659: IF (x_return_status <> 'Y') THEN
15773: ,X_ATTRIBUTE15 => null
15774: ,X_TASK_UNPUB_VER_STATUS_CODE => l_task_unpub_ver_status_code
15775: ,X_SOURCE_OBJECT_ID => p_project_id
15776: ,X_SOURCE_OBJECT_TYPE => 'PA_PROJECTS'
15777: --,P_Financial_Task_Flag => PA_PROJ_ELEMENTS_UTILS.CHECK_IS_FINANCIAL_TASK(l_task_id)
15778: --commented and added following for bug 4059962 reopen, rtarway
15779: ,P_Financial_Task_Flag => l_financial_task_flag
15780: );
15781:
16039: DECLARE
16040: l_wq_planned_quantity pa_proj_elem_ver_schedule.wq_planned_quantity%TYPE;
16041: l_scheduled_start_date pa_proj_elem_ver_schedule.scheduled_start_date%TYPE;
16042: l_scheduled_finish_date pa_proj_elem_ver_schedule.scheduled_finish_date%TYPE;
16043: l_task_type_id pa_proj_elements.type_id%TYPE;
16044: BEGIN
16045:
16046: IF l_task_in_rec.pa_task_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM OR
16047: l_task_in_rec.pa_task_id IS NULL -- Create Task Context
16473: -------------------------------------------------
16474: /** Code change begin for Bug 4120380 **/
16475: /** The code below will update the task_numbers of the tasks passed via update_project script
16476: back to their original value viz. it'll crop the '-' added to aviod the constraint check in
16477: PA_TASKS and PA_PROJ_ELEMENTS. **/
16478: /* bug#5243018 : Reverting the fix in Bug 4120380
16479: IF nvl(p_tasks_in_tbl.last,0) > 0 THEN --IF Added by rtarway for BUG 4336701
16480: FOR i in p_tasks_in_tbl.first..p_tasks_in_tbl.last LOOP
16481: UPDATE pa_proj_elements
16477: PA_TASKS and PA_PROJ_ELEMENTS. **/
16478: /* bug#5243018 : Reverting the fix in Bug 4120380
16479: IF nvl(p_tasks_in_tbl.last,0) > 0 THEN --IF Added by rtarway for BUG 4336701
16480: FOR i in p_tasks_in_tbl.first..p_tasks_in_tbl.last LOOP
16481: UPDATE pa_proj_elements
16482: SET element_number = p_tasks_in_tbl(i).pa_task_number
16483: WHERE element_number = '-'||p_tasks_in_tbl(i).pa_task_number
16484: AND PROJECT_ID = p_project_id;
16485: UPDATE pa_tasks
16485: UPDATE pa_tasks
16486: SET task_number = p_tasks_in_tbl(i).pa_task_number
16487: WHERE task_number = '-'||p_tasks_in_tbl(i).pa_task_number
16488: AND PROJECT_ID = p_project_id;
16489: --dbms_output.put_line(('value of recod updates in pa_proj_elements'||sql%rowcount);
16490: END LOOP;
16491: END IF;
16492: End Reverting bug#5243018*/
16493: /* Code change end for Bug 4120380 **/
16530: -- reassign the task weightages for the affected peer tasks.
16531: CURSOR cur_get_child_info(c_parent_element_version_id NUMBER)
16532: IS
16533: SELECT rel.OBJECT_RELATIONSHIP_ID,tt.prog_entry_enable_flag
16534: FROM PA_OBJECT_RELATIONSHIPS rel, pa_proj_element_versions pev, pa_proj_elements pe, pa_task_types tt
16535: WHERE rel.object_id_from1 = c_parent_element_version_id
16536: AND rel.object_type_to = 'PA_TASKS'
16537: AND rel.relationship_type = 'S'
16538: AND rel.object_type_from IN ('PA_STRUCTURES', 'PA_TASKS')
16870:
16871: IF l_debug_mode = 'Y' THEN
16872: Pa_Debug.WRITE(G_PKG_NAME,'Create Task Context',l_debug_level3);
16873: END IF;
16874: IF PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(px_tasks_out_tbl(l_i).task_version_id) = 'Y'
16875: AND pa_task_assignment_utils.check_asgmt_exists_in_task(px_tasks_out_tbl(l_i).task_version_id) = 'N'
16876: THEN
16877: IF l_debug_mode = 'Y' THEN
16878: Pa_Debug.WRITE(G_PKG_NAME,'Lowest Task With No Assignments',l_debug_level3);
16918: END IF;
16919:
16920: -- Bug 4078307: Changes start
16921: -- In update task flow we should be deleting all task assignments for summary-level tasks
16922: IF PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(px_tasks_out_tbl(l_i).task_version_id) = 'N'
16923: AND pa_task_assignment_utils.check_asgmt_exists_in_task(px_tasks_out_tbl(l_i).task_version_id) = 'Y'
16924: THEN
16925: IF l_debug_mode = 'Y' THEN
16926: Pa_Debug.WRITE(G_PKG_NAME,'Preparing Tables to call FP delete_plan_txn for summary task in update flow',l_debug_level3);
16930: l_del_task_ver_ids(l_del_task_ver_ids.count):= px_tasks_out_tbl(l_i).task_version_id;
16931: END IF;
16932:
16933:
16934: IF PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(px_tasks_out_tbl(l_i).task_version_id) = 'Y'
16935: AND pa_task_assignment_utils.check_asgmt_exists_in_task(px_tasks_out_tbl(l_i).task_version_id) = 'N'
16936: THEN
16937: -- We do not have to call update_planning_transaction here bcoz
16938: -- update_schedule_version is already calling it.
16959: FETCH check_hidden_assgn_exists into l_hidden_assgn;
16960: CLOSE check_hidden_assgn_exists;
16961: --rtarway, 4132590, end add
16962:
16963: IF (PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(px_tasks_out_tbl(l_i).task_version_id) = 'N'
16964: --AND pa_task_assignment_utils.check_asgmt_exists_in_task(px_tasks_out_tbl(l_i).task_version_id) = 'Y')
16965: AND l_hidden_assgn = 'Y')--modified by rtarway for BUG 4132590
16966: THEN
16967: IF l_debug_mode = 'Y' THEN
17043: -- if ( p_tasks_in_tbl IS NOT NULL AND p_tasks_in_tbl.count > 0)
17044: -- then
17045: -- for l_i in p_tasks_in_tbl.first .. p_tasks_in_tbl.last
17046: -- loop
17047: -- if (PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(px_tasks_out_tbl(l_i).task_version_id) = 'Y') then
17048: -- l_add_task_ver_ids.extend(1);
17049: -- l_add_planned_effort.extend(1);
17050: -- l_add_start_date.extend(1);
17051: -- l_add_end_date.extend(1);
17134: -- --l_del_task_ver_ids will not be populated. before passing these tables to add_planning_transaction
17135: -- --or delete_planning_transaction, checks should be made
17136: -- for l_task_cur_rec in l_task_cur(p_project_id)
17137: -- loop
17138: -- if (PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(l_task_cur_rec.element_version_id) = 'Y') then
17139: -- l_add_task_ver_ids.extend(1);
17140: -- l_add_planned_effort.extend(1);
17141: -- l_add_start_date.extend(1);
17142: -- l_add_end_date.extend(1);
20404: ptt.prog_entry_enable_flag
20405: from pa_proj_element_versions ver,
20406: pa_object_relationships rel,
20407: pa_proj_elem_ver_schedule sch,
20408: pa_proj_elements ele,
20409: pa_task_types ptt,
20410: pji_xbs_plans_v pxpv
20411: -- pji_fm_xbs_accum_tmp1 pfxat
20412: where ver.project_id = c_project_id
20436: c_structure_version_id pa_proj_element_versions.element_version_id%TYPE)
20437: IS
20438: select 'X'
20439: from pa_proj_element_versions ver,
20440: pa_proj_elements ele,
20441: pa_task_types ptt
20442: where ver.project_id = c_project_id
20443: and ver.parent_structure_version_id = c_structure_version_id
20444: and ver.object_type = 'PA_TASKS'
21116:
21117: CURSOR cur_strs_n_types
21118: IS
21119: SELECT ppe.proj_element_id, ppst.structure_type_id
21120: FROM pa_proj_elements ppe, pa_proj_structure_types ppst, pa_structure_types pst
21121: WHERE ppe.project_id = p_dest_project_id
21122: AND ppe.object_type = 'PA_STRUCTURES'
21123: AND ppe.proj_element_id = ppst.proj_element_id
21124: and ppst.structure_type_id = pst.structure_type_id
21341: ppwa.record_version_number,
21342: ppwa.txn_date_sync_buf_days,
21343: ppwa.lifecycle_version_id
21344: from pa_proj_workplan_attr ppwa,
21345: pa_proj_elements ppe,
21346: pa_proj_structure_types ppst
21347: where ppwa.project_id = c_project_id
21348: and ppwa.project_id = ppe.project_id
21349: and ppwa.proj_element_id = ppe.proj_element_id
21389:
21390: --Project name to id Conversion
21391: IF ((p_project_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) AND (p_project_name IS NOT NULL)) OR
21392: ((p_project_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) AND (p_project_id IS NOT NULL)) THEN
21393: PA_PROJ_ELEMENTS_UTILS.Project_Name_Or_Id(
21394: p_project_name => p_project_name,
21395: p_project_id => p_project_id,
21396: x_project_id => l_project_id,
21397: x_return_status => l_return_status,
21547:
21548: --bug 3613766
21549: cursor get_pred_id(c_pred_ref_id VARCHAR2) IS
21550: select ppev1.project_id, ppev1.element_version_id
21551: from pa_proj_elements ppe,
21552: pa_proj_element_versions ppev1,
21553: pa_proj_element_versions ppev2
21554: where ppev2.element_version_id = P_Task_Version_Id
21555: and ppev2.parent_structure_version_id = ppev1.parent_structure_version_id
21714: For i IN ( Select PPE.PM_Source_Reference SourceRef,
21715: POR.Relationship_Subtype SubType,
21716: decode(sign(NVL(POR.Lag_Day,0)),
21717: '0', '', '-1', '', '+') || decode(POR.Lag_Day,0, NULL, POR.Lag_day)/(10*8*60) LagDays --bug 4348156
21718: From PA_Proj_Elements PPE,
21719: PA_Proj_Element_Versions PEV,
21720: PA_Object_Relationships POR,
21721: PA_PROJ_ELEMENT_VERSIONS PEV2
21722: Where PPE.project_id = PEV.project_id
21744: For i IN ( Select PPE.proj_element_id ProjElemId,
21745: POR.Relationship_Subtype SubType,
21746: decode(sign(NVL(POR.Lag_Day,0)),
21747: '0', '', '-1', '', '+') || decode(POR.Lag_Day,0, NULL, POR.Lag_day)/(10*8*60) LagDays --bug 4348156
21748: From PA_Proj_Elements PPE,
21749: PA_Proj_Element_Versions PEV,
21750: PA_Object_Relationships POR,
21751: PA_PROJ_ELEMENT_VERSIONS PEV2
21752: Where PPE.project_id = PEV.project_id