[Home] [Help]
87:
88: BEGIN
89: SELECT 'N'
90: INTO l_is_uniq
91: FROM dual
92: WHERE exists(Select 'XYZ' from pa_proj_elements
93: WHERE element_number = P_lifecycle_short_name
94: AND object_type=c_object_type
95: AND project_id=c_project_id);
136: END IF;
137:
138: SELECT PA_TASKS_S.NEXTVAL
139: INTO l_lifecycle_id
140: FROM dual;
141:
142: IF(p_debug_mode = 'Y') THEN
143: pa_debug.debug('CREATE_LIFECYCLE PVT:Inserting into pa_proj_elements...');
144: END IF;
201:
202:
203: SELECT PA_PROJ_ELEMENT_VERSIONS_S.NEXTVAL
204: INTO l_pev_id
205: FROM dual;
206:
207: IF(p_debug_mode = 'Y') THEN
208: pa_debug.debug('CREATE_LIFECYCLE PVT:Inserting into pa_proj_element_versions...');
209: END IF;
244: END IF;
245:
246: SELECT PA_PROJ_ELEM_VER_STRUCTURE_S.NEXTVAL
247: INTO l_pev_struct_id
248: FROM dual;
249:
250: IF(p_debug_mode = 'Y') THEN
251: pa_debug.debug('CREATE_LIFECYCLE PVT:Inserting into pa_proj_elem_version_structure...');
252: END IF;
287: END IF;
288:
289: SELECT PA_PROJ_STRUCTURE_TYPES_S.NEXTVAL
290: INTO l_proj_struct_type_id
291: FROM dual;
292:
293: OPEN cur_struc_type_id;
294: FETCH cur_struc_type_id INTO l_structure_type_id;
295: CLOSE cur_struc_type_id;
329:
330: IF (p_lifecycle_project_usage_type = 'Y') THEN
331: SELECT PA_LIFECYCLE_USAGES_S.NEXTVAL
332: INTO l_lcyl_usage_id
333: FROM dual;
334:
335: PA_LIFECYCLE_USAGES_PKG.INSERT_ROW(
336: X_LIFECYCLE_USAGE_ID => l_lcyl_usage_id ,
337: X_RECORD_VERSION_NUMBER => 1 ,
342:
343: IF (p_lifecycle_product_usage_type = 'Y') THEN
344: SELECT PA_LIFECYCLE_USAGES_S.NEXTVAL
345: INTO l_lcyl_usage_id
346: FROM dual;
347:
348: PA_LIFECYCLE_USAGES_PKG.INSERT_ROW(
349: X_LIFECYCLE_USAGE_ID => l_lcyl_usage_id ,
350: X_RECORD_VERSION_NUMBER => 1 ,
358: END IF;
359:
360: SELECT PA_PROJ_ELEM_VER_SCHEDULE_S.NEXTVAL
361: INTO l_pev_sched_id
362: FROM dual;
363:
364:
365: PA_PROJ_ELEMENT_SCH_PKG.Insert_Row (
366: X_ROW_ID => l_row_id ,
505:
506: CURSOR l_check_phase_name_csr
507: IS
508: SELECT 'N'
509: FROM dual
510: WHERE exists(Select 'XYZ'
511: FROM pa_proj_elements pelem
512: , pa_proj_element_versions phasever
513: WHERE phasever.PARENT_STRUCTURE_VERSION_ID = l_life_elem_ver_id
601: END IF;
602:
603: SELECT PA_TASKS_S.NEXTVAL
604: INTO l_phase_id
605: FROM dual;
606:
607:
608: if(p_debug_mode = 'Y') then
609: pa_debug.debug('CREATE_LIFECYCLE_PVT.create_lifecycle_phase:Inserting into pa_proj_elements...');
668:
669:
670: SELECT PA_PROJ_ELEMENT_VERSIONS_S.NEXTVAL
671: INTO l_pev_id
672: FROM dual;
673:
674: IF(p_debug_mode = 'Y') THEN
675: pa_debug.debug('CREATE_LIFECYCLE PVT.create_lifecyle_phas:Inserting into pa_proj_element_versions...');
676: END IF;
711: END IF;
712:
713: SELECT PA_PROJ_ELEM_VER_SCHEDULE_S.NEXTVAL
714: INTO l_pev_sched_id
715: FROM dual;
716:
717: IF(p_debug_mode = 'Y') THEN
718: pa_debug.debug('CREATE_LIFECYCLE PVT.create_lifecyle_phas:Inserting into PA_PROJ_ELEMENT_VER_SCHEDULE...');
719: END IF;
755: END IF;
756:
757: SELECT pa_object_relationships_s.NEXTVAL
758: INTO l_obj_relnship_id
759: FROM dual;
760:
761: IF(p_debug_mode = 'Y') THEN
762: pa_debug.debug('CREATE_LIFECYCLE PVT.create_lifecyle_phas:Inserting into PA_OBJECT_RELATIONSHIPS...');
763: END IF;
1505:
1506: CURSOR l_check_project_csr
1507: IS
1508: Select 'Y'
1509: From dual
1510: Where exists(Select 'XYZ'
1511: From pa_lifecycle_usages
1512: Where lifecycle_id = P_lifecycle_id
1513: and usage_type = c_usage_project);
1514:
1515: CURSOR l_check_product_csr
1516: IS
1517: Select 'Y'
1518: From dual
1519: Where exists(Select 'XYZ'
1520: From pa_lifecycle_usages
1521: Where lifecycle_id = P_lifecycle_id
1522: and usage_type = c_usage_product);
1523:
1524: CURSOR l_project_workplan_csr
1525: IS
1526: Select 'Y'
1527: From dual
1528: Where exists(Select 'XYZ'
1529: From pa_proj_workplan_attr
1530: Where lifecycle_version_id = P_lifecycle_version_id);
1531: Begin
1758: IF l_proj_usg_exists = 'Y' THEN
1759: BEGIN
1760: SELECT 'Y'
1761: into l_workplan_used
1762: from SYS.DUAL
1763: where exists(select 'XYZ' from pa_proj_workplan_attr
1764: where lifecycle_version_id = l_element_version_id);
1765: exception
1766: when NO_DATA_FOUND then
1997:
1998: IF (l_proj_usg_exists = 'N' AND P_lifecycle_project_usage_type = 'Y') THEN
1999: SELECT PA_LIFECYCLE_USAGES_S.NEXTVAL
2000: INTO l_prj_lcyl_usage_id
2001: FROM dual;
2002:
2003: PA_LIFECYCLE_USAGES_PKG.insert_row(
2004: X_lifecycle_usage_id => l_prj_lcyl_usage_id ,
2005: X_RECORD_VERSION_NUMBER => 1 ,
2014:
2015: IF (l_prod_usg_exists = 'N' AND P_lifecycle_product_usage_type = 'Y') THEN
2016: SELECT PA_LIFECYCLE_USAGES_S.NEXTVAL
2017: INTO l_prd_lcyl_usage_id
2018: FROM dual;
2019:
2020: PA_LIFECYCLE_USAGES_PKG.insert_row(
2021: X_lifecycle_usage_id => l_prd_lcyl_usage_id ,
2022: X_RECORD_VERSION_NUMBER => 1 ,
2446:
2447: begin
2448: select 'Y'
2449: into l_project_usage_exists
2450: from SYS.DUAL
2451: where exists( select 'XYZ' from pa_lifecycle_usages
2452: where lifecycle_id=P_lifecycle_id AND
2453: usage_type=c_project_type);
2454: exception
2459:
2460: begin
2461: select 'Y'
2462: into l_product_usage_exists
2463: from SYS.DUAL
2464: where exists( select 'XYZ' from pa_lifecycle_usages
2465: where lifecycle_id=P_lifecycle_id AND
2466: usage_type=c_product_type);
2467: exception
2506:
2507: IF(l_project_usage_exists = 'Y') then
2508: begin
2509: select FND_API.G_FALSE into l_delete_ok
2510: from sys.dual
2511: where exists(
2512: select 'xyz'
2513: from pa_proj_workplan_attr
2514: where lifecycle_version_id = l_parent_elem_ver_id
2530: ELSE
2531:
2532: BEGIN
2533: select FND_API.G_FALSE into l_delete_ok
2534: from sys.dual
2535: where exists(
2536: select 'xyz'
2537: from pa_proj_element_versions child
2538: ,pa_proj_elements tasks