[Home] [Help]
159: l_priority pa_object_relationships.priority%TYPE;
160:
161: BEGIN
162: IF (p_debug_mode = 'Y') THEN
163: pa_debug.debug('PA_RELATIONSHIP_PVT.CREATE_RELATIONSHIP begin');
164: END IF;
165:
166: IF (p_commit = FND_API.G_TRUE) THEN
167: savepoint create_relationship_pvt;
167: savepoint create_relationship_pvt;
168: END IF;
169:
170: IF (p_debug_mode = 'Y') THEN
171: pa_debug.debug('Performing validations');
172: END IF;
173:
174: --Bug 2955589. Handle miss char for priority.
175: IF p_priority = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
187:
188: --Determine the relationship type
189: IF p_relationship_type = 'L' THEN
190: IF (p_debug_mode = 'Y') THEN
191: pa_debug.debug('creating link relationship');
192: END IF;
193:
194: --Check if this is a parent link or child link
195: IF (p_initiating_element = 'FROM') THEN
195: IF (p_initiating_element = 'FROM') THEN
196: --It is a child link
197:
198: IF (p_debug_mode = 'Y') THEN
199: pa_debug.debug('child link');
200: END IF;
201:
202: --Determine parent element id
203: IF (p_task_version_id_from IS NULL) THEN
268:
269: ELSE
270: --It is a parent link
271: If (p_debug_mode = 'Y') THEN
272: pa_debug.debug('parent link');
273: END IF;
274:
275: --Determine child element id
276: IF (p_task_version_id_to IS NULL) THEN
318: --Modified. When creating links, always create a subtask
319: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
320:
321: IF (p_debug_mode = 'Y') THEN
322: pa_debug.debug('need to create new sub task');
323: END IF;
324: l_task_name_number := substr(fnd_date.date_to_canonical(sysdate),0,25);
325:
326:
382: ,x_msg_count => l_msg_count
383: ,x_msg_data => l_msg_data);
384:
385: If (p_debug_mode = 'Y') THEN
386: pa_debug.debug('new task id => '||l_task_id);
387: END IF;
388:
389: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
390:
405: --CREATE_TASK_VERSION
406: l_peer_or_sub := 'SUB';
407:
408: If (p_debug_mode = 'Y') THEN
409: pa_debug.debug('Create peer or sub => '||l_peer_or_sub);
410: END IF;
411:
412: PA_TASK_PUB1.CREATE_TASK_VERSION
413: ( p_validate_only => FND_API.G_FALSE
419: ,x_msg_count => l_msg_count
420: ,x_msg_data => l_msg_data);
421:
422: If (p_debug_mode = 'Y') THEN
423: pa_debug.debug('new task version id => '||l_task_version_id);
424: END IF;
425:
426:
427: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
451: ,x_msg_count => l_msg_count
452: ,x_msg_data => l_msg_data );
453:
454: If (p_debug_mode = 'Y') THEN
455: pa_debug.debug('new workplan attr for task => '||l_pev_schedule_id);
456: END IF;
457:
458: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
459: x_msg_count := FND_MSG_PUB.count_msg;
520: ELSIF p_relationship_type = 'S' THEN
521: --create relationship for task
522:
523: IF (p_debug_mode = 'Y') THEN
524: pa_debug.debug('creating task link');
525: END IF;
526:
527: IF (p_task_version_id_from IS NULL) THEN
528: l_id_from := p_structure_version_id_from;
588: --create mapping for task
589: --l_type_from := 'PA_TASKS';
590: --l_type_to := 'PA_TASKS';
591: IF (p_debug_mode = 'Y') THEN
592: pa_debug.debug('creating task link');
593: END IF;
594:
595: IF (p_task_version_id_from IS NOT NULL) THEN
596: l_id_from := p_task_version_id_from;
639: -- End add rtarway FP.M development
640: END IF;
641:
642: IF (p_debug_mode = 'Y') THEN
643: pa_debug.debug('PA_RELATIONSHIP_PVT.CREATE_RELATIONSHIP end');
644: END IF;
645:
646: EXCEPTION
647: WHEN FND_API.G_EXC_ERROR THEN
738: l_or_id pa_object_relationships.object_relationship_id%TYPE;
739: l_weighting_percentage pa_object_relationships.weighting_percentage%TYPE;
740: BEGIN
741: IF (p_debug_mode = 'Y') THEN
742: pa_debug.debug('PA_RELATIONSHIP_PVT.UPDATE_RELATIONSHIP begin');
743: END IF;
744:
745: IF (p_commit = FND_API.G_TRUE) THEN
746: savepoint update_relationship_pvt;
746: savepoint update_relationship_pvt;
747: END IF;
748:
749: IF (p_debug_mode = 'Y') THEN
750: pa_debug.debug('Performing validations');
751: END IF;
752:
753:
754: IF (p_task_version_id_from IS NULL) THEN
916: l_msg_index_out NUMBER;
917:
918: BEGIN
919: IF (p_debug_mode = 'Y') THEN
920: pa_debug.debug('PA_RELATIONSHIP_PVT.DELETE_RELATIONSHIP begin');
921: END IF;
922:
923: IF (p_commit = FND_API.G_TRUE) THEN
924: savepoint delete_relationship_pvt;
924: savepoint delete_relationship_pvt;
925: END IF;
926:
927: IF (p_debug_mode = 'Y') THEN
928: pa_debug.debug('Performing validations');
929: END IF;
930:
931: OPEN get_link_task_ver_id;
932: FETCH get_link_task_ver_id into l_link_task_ver;
990: raise FND_API.G_EXC_ERROR;
991: END IF;
992:
993: IF (p_debug_mode = 'Y') THEN
994: pa_debug.debug('PA_RELATIONSHIP_PVT.DELETE_RELATIONSHIP end');
995: END IF;
996: EXCEPTION
997: WHEN FND_API.G_EXC_ERROR THEN
998: IF (p_commit = FND_API.G_TRUE) THEN
1144: g_module_name varchar2(200) := 'PA_RELATIONSHIP_PVT.CREATE_DEPENDENCY';--BUG 4218977, rtarway
1145:
1146: BEGIN
1147:
1148: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
1149:
1150: IF (p_debug_mode = 'Y') THEN
1151: pa_debug.debug('PA_RELATIONSHIP_PVT.CREATE_DEPENDENCY begin');
1152: END IF;
1147:
1148: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
1149:
1150: IF (p_debug_mode = 'Y') THEN
1151: pa_debug.debug('PA_RELATIONSHIP_PVT.CREATE_DEPENDENCY begin');
1152: END IF;
1153:
1154: IF (p_commit = FND_API.G_TRUE) THEN
1155: savepoint create_dependency_pvt;
1207:
1208: --create record in object relationships table
1209: --Added by rtarway, 4218977
1210: IF l_debug_mode = 'Y' THEN
1211: pa_debug.g_err_stage := 'Value of G_OP_VALIDATE_flag'||PA_PROJECT_PUB.G_OP_VALIDATE_FLAG ;
1212: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1213: END IF;
1214:
1215: IF p_src_proj_id = p_dest_proj_id
1208: --create record in object relationships table
1209: --Added by rtarway, 4218977
1210: IF l_debug_mode = 'Y' THEN
1211: pa_debug.g_err_stage := 'Value of G_OP_VALIDATE_flag'||PA_PROJECT_PUB.G_OP_VALIDATE_FLAG ;
1212: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1213: END IF;
1214:
1215: IF p_src_proj_id = p_dest_proj_id
1216: THEN
1404: COMMIT;
1405: END IF;
1406:
1407: IF (p_debug_mode = 'Y') THEN
1408: pa_debug.debug('PA_RELATIONSHIP_PVT.CREATE_DEPENDENCY END');
1409: END IF;
1410:
1411: EXCEPTION
1412: when FND_API.G_EXC_ERROR then
1506: AND relationship_type = 'D';
1507: BEGIN
1508:
1509: IF (p_debug_mode = 'Y') THEN
1510: pa_debug.debug('PA_RELATIONSHIP_PVT.UPDATE_DEPENDENCY begin');
1511: END IF;
1512:
1513: IF (p_commit = FND_API.G_TRUE) THEN
1514: savepoint update_dependency_pvt;
1576: COMMIT;
1577: END IF;
1578:
1579: IF (p_debug_mode = 'Y') THEN
1580: pa_debug.debug('PA_RELATIONSHIP_PVT.UPDATE_DEPENDENCY END');
1581: END IF;
1582:
1583: EXCEPTION
1584: when FND_API.G_EXC_ERROR then
1690: l_struc_ver_id NUMBER;
1691: BEGIN
1692:
1693: IF (p_debug_mode = 'Y') THEN
1694: pa_debug.debug('PA_RELATIONSHIP_PVT.DELETE_DEPENDENCY begin');
1695: END IF;
1696:
1697: IF (p_commit = FND_API.G_TRUE) THEN
1698: savepoint delete_dependency_pvt;
1757: COMMIT;
1758: END IF;
1759:
1760: IF (p_debug_mode = 'Y') THEN
1761: pa_debug.debug('PA_RELATIONSHIP_PVT.DELETE_DEPENDENCY END');
1762: END IF;
1763: EXCEPTION
1764: when FND_API.G_EXC_ERROR then
1765: if p_commit = FND_API.G_TRUE then
2051: l_debug_mode VARCHAR2(1); --debug messages added while fixing bug 5067296
2052: BEGIN
2053:
2054: --debug messages added while fixing bug 5067296
2055: l_debug_mode := NVL(FND_PROFILE.value_specific('PA_DEBUG_MODE',fnd_global.user_id,fnd_global.login_id,275,null,null), 'N');
2056:
2057: IF (l_debug_mode = 'Y') THEN
2058: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY Start : Passed Parameters :', x_Log_Level=> 3);
2059: /* These two lines are causing bug 5076461 in publish flow.
2054: --debug messages added while fixing bug 5067296
2055: l_debug_mode := NVL(FND_PROFILE.value_specific('PA_DEBUG_MODE',fnd_global.user_id,fnd_global.login_id,275,null,null), 'N');
2056:
2057: IF (l_debug_mode = 'Y') THEN
2058: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY Start : Passed Parameters :', x_Log_Level=> 3);
2059: /* These two lines are causing bug 5076461 in publish flow.
2060: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'P_Source_Ver_Tbl.Count='||P_Source_Ver_Tbl.Count, x_Log_Level=> 3);
2061: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'P_Destin_Ver_Tbl.Count='||P_Destin_Ver_Tbl.Count, x_Log_Level=> 3);
2062: */
2056:
2057: IF (l_debug_mode = 'Y') THEN
2058: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY Start : Passed Parameters :', x_Log_Level=> 3);
2059: /* These two lines are causing bug 5076461 in publish flow.
2060: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'P_Source_Ver_Tbl.Count='||P_Source_Ver_Tbl.Count, x_Log_Level=> 3);
2061: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'P_Destin_Ver_Tbl.Count='||P_Destin_Ver_Tbl.Count, x_Log_Level=> 3);
2062: */
2063: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'P_source_struc_ver_id='||P_source_struc_ver_id, x_Log_Level=> 3);
2064: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'p_dest_struc_ver_id='||p_dest_struc_ver_id, x_Log_Level=> 3);
2057: IF (l_debug_mode = 'Y') THEN
2058: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY Start : Passed Parameters :', x_Log_Level=> 3);
2059: /* These two lines are causing bug 5076461 in publish flow.
2060: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'P_Source_Ver_Tbl.Count='||P_Source_Ver_Tbl.Count, x_Log_Level=> 3);
2061: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'P_Destin_Ver_Tbl.Count='||P_Destin_Ver_Tbl.Count, x_Log_Level=> 3);
2062: */
2063: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'P_source_struc_ver_id='||P_source_struc_ver_id, x_Log_Level=> 3);
2064: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'p_dest_struc_ver_id='||p_dest_struc_ver_id, x_Log_Level=> 3);
2065: END IF;
2059: /* These two lines are causing bug 5076461 in publish flow.
2060: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'P_Source_Ver_Tbl.Count='||P_Source_Ver_Tbl.Count, x_Log_Level=> 3);
2061: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'P_Destin_Ver_Tbl.Count='||P_Destin_Ver_Tbl.Count, x_Log_Level=> 3);
2062: */
2063: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'P_source_struc_ver_id='||P_source_struc_ver_id, x_Log_Level=> 3);
2064: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'p_dest_struc_ver_id='||p_dest_struc_ver_id, x_Log_Level=> 3);
2065: END IF;
2066: --debug messages added while fixing bug 5067296
2067:
2060: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'P_Source_Ver_Tbl.Count='||P_Source_Ver_Tbl.Count, x_Log_Level=> 3);
2061: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'P_Destin_Ver_Tbl.Count='||P_Destin_Ver_Tbl.Count, x_Log_Level=> 3);
2062: */
2063: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'P_source_struc_ver_id='||P_source_struc_ver_id, x_Log_Level=> 3);
2064: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'p_dest_struc_ver_id='||p_dest_struc_ver_id, x_Log_Level=> 3);
2065: END IF;
2066: --debug messages added while fixing bug 5067296
2067:
2068:
2071: --bug 4153377
2072: --insert mapping ids
2073: --debug messages added while fixing bug 5067296
2074: IF (l_debug_mode = 'Y') THEN
2075: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'Before BULK insert into PA_COPY_DEP_TEMP table', x_Log_Level=> 3);
2076: END IF;
2077: --debug messages added while fixing bug 5067296
2078: Forall i IN 1..P_Source_Ver_Tbl.Count
2079: INSERT INTO PA_COPY_DEP_TEMP(SRC_TASK_VER_ID, DEST_TASK_VER_ID)
2093: -- dest_task_ver_id.
2094:
2095: --debug messages added while fixing bug 5067296
2096: IF (l_debug_mode = 'Y') THEN
2097: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'Before cursor l_cur_all_tasks', x_Log_Level=> 3);
2098: END IF;
2099: --debug messages added while fixing bug 5067296
2100:
2101: IF P_Source_Ver_Tbl.Count > 0 --bug 5067296
2107: END IF;
2108:
2109: --debug messages added while fixing bug 5067296
2110: IF (l_debug_mode = 'Y') THEN
2111: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'After cursor l_cur_all_tasks l_count_all_tasks='||l_count_all_tasks, x_Log_Level=> 3);
2112: END IF;
2113: --debug messages added while fixing bug 5067296
2114:
2115: if (NVL(l_count_all_tasks,0) > 0) then
2150: CLOSE get_parent_struc_ver_id;
2151:
2152: --debug messages added while fixing bug 5067296
2153: IF (l_debug_mode = 'Y') THEN
2154: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'l_parent_ver_id1='||l_parent_ver_id1, x_Log_Level=> 3);
2155: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'l_parent_ver_id2='||l_parent_ver_id2, x_Log_Level=> 3);
2156: END IF;
2157: --debug messages added while fixing bug 5067296
2158:
2151:
2152: --debug messages added while fixing bug 5067296
2153: IF (l_debug_mode = 'Y') THEN
2154: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'l_parent_ver_id1='||l_parent_ver_id1, x_Log_Level=> 3);
2155: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'l_parent_ver_id2='||l_parent_ver_id2, x_Log_Level=> 3);
2156: END IF;
2157: --debug messages added while fixing bug 5067296
2158:
2159: IF (l_parent_ver_id1 = l_parent_ver_id2) THEN
2183: --use get_struc_dependency to populate table
2184:
2185: --debug messages added while fixing bug 5067296
2186: IF (l_debug_mode = 'Y') THEN
2187: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'Before opening cursor get_struc_dependency', x_Log_Level=> 3);
2188: END IF;
2189: --debug messages added while fixing bug 5067296
2190:
2191: OPEN get_struc_dependency;
2206:
2207: --bulk insert into pa_object_relationships table
2208: --debug messages added while fixing bug 5067296
2209: IF (l_debug_mode = 'Y') THEN
2210: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'Before BULK insert into PA_OBJECT_RELATIONSHIPS table', x_Log_Level=> 3);
2211: END IF;
2212: --debug messages added while fixing bug 5067296
2213:
2214: FORALL i IN 1..l_suc_ver_id_tbl.COUNT
3043:
3044: BEGIN
3045: --
3046: IF (p_debug_mode = 'Y') THEN
3047: pa_debug.debug('PA_RELATIONSHIP_PVT.Insert_Subproject_Association begin');
3048: END IF;
3049: --
3050: IF (p_commit = FND_API.G_TRUE) THEN
3051: savepoint Insert_Subproject_Association;
3051: savepoint Insert_Subproject_Association;
3052: END IF;
3053: --
3054: IF (p_debug_mode = 'Y') THEN
3055: pa_debug.debug('Performing validations');
3056: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK Src Proj Id => '||p_src_proj_id);
3057: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK Src Structure Elem Id=> '||p_src_struc_elem_id);
3058: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK Src Structure Elem Ver Id => '||p_src_struc_elem_ver_id);
3059: pa_debug.debug('Before PA_TASK_PUB1.CREATE_TASK Linking Task Name Number => '||p_lnk_task_name_number);
3052: END IF;
3053: --
3054: IF (p_debug_mode = 'Y') THEN
3055: pa_debug.debug('Performing validations');
3056: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK Src Proj Id => '||p_src_proj_id);
3057: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK Src Structure Elem Id=> '||p_src_struc_elem_id);
3058: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK Src Structure Elem Ver Id => '||p_src_struc_elem_ver_id);
3059: pa_debug.debug('Before PA_TASK_PUB1.CREATE_TASK Linking Task Name Number => '||p_lnk_task_name_number);
3060: END IF;
3053: --
3054: IF (p_debug_mode = 'Y') THEN
3055: pa_debug.debug('Performing validations');
3056: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK Src Proj Id => '||p_src_proj_id);
3057: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK Src Structure Elem Id=> '||p_src_struc_elem_id);
3058: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK Src Structure Elem Ver Id => '||p_src_struc_elem_ver_id);
3059: pa_debug.debug('Before PA_TASK_PUB1.CREATE_TASK Linking Task Name Number => '||p_lnk_task_name_number);
3060: END IF;
3061: --
3054: IF (p_debug_mode = 'Y') THEN
3055: pa_debug.debug('Performing validations');
3056: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK Src Proj Id => '||p_src_proj_id);
3057: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK Src Structure Elem Id=> '||p_src_struc_elem_id);
3058: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK Src Structure Elem Ver Id => '||p_src_struc_elem_ver_id);
3059: pa_debug.debug('Before PA_TASK_PUB1.CREATE_TASK Linking Task Name Number => '||p_lnk_task_name_number);
3060: END IF;
3061: --
3062: /* Creating linking task in the pa_proj_elements table*/
3055: pa_debug.debug('Performing validations');
3056: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK Src Proj Id => '||p_src_proj_id);
3057: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK Src Structure Elem Id=> '||p_src_struc_elem_id);
3058: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK Src Structure Elem Ver Id => '||p_src_struc_elem_ver_id);
3059: pa_debug.debug('Before PA_TASK_PUB1.CREATE_TASK Linking Task Name Number => '||p_lnk_task_name_number);
3060: END IF;
3061: --
3062: /* Creating linking task in the pa_proj_elements table*/
3063: PA_TASK_PUB1.CREATE_TASK
3101: x_return_status:=FND_API.G_RET_STS_ERROR;
3102: END IF;
3103: --
3104: IF (p_debug_mode = 'Y') THEN
3105: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK Return Status => '||x_return_status);
3106: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK => '||x_lnk_task_elem_id);
3107: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK_VERSION Src Structure Elem Id=> '||p_src_task_elem_ver_id);
3108: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK_VERSION Linking Task Elem Id => '||x_lnk_task_elem_id);
3109: END IF;
3102: END IF;
3103: --
3104: IF (p_debug_mode = 'Y') THEN
3105: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK Return Status => '||x_return_status);
3106: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK => '||x_lnk_task_elem_id);
3107: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK_VERSION Src Structure Elem Id=> '||p_src_task_elem_ver_id);
3108: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK_VERSION Linking Task Elem Id => '||x_lnk_task_elem_id);
3109: END IF;
3110: --
3103: --
3104: IF (p_debug_mode = 'Y') THEN
3105: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK Return Status => '||x_return_status);
3106: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK => '||x_lnk_task_elem_id);
3107: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK_VERSION Src Structure Elem Id=> '||p_src_task_elem_ver_id);
3108: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK_VERSION Linking Task Elem Id => '||x_lnk_task_elem_id);
3109: END IF;
3110: --
3111: /* Creating linking task in the pa_proj_element_versions and pa_object_relationships table */
3104: IF (p_debug_mode = 'Y') THEN
3105: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK Return Status => '||x_return_status);
3106: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK => '||x_lnk_task_elem_id);
3107: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK_VERSION Src Structure Elem Id=> '||p_src_task_elem_ver_id);
3108: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK_VERSION Linking Task Elem Id => '||x_lnk_task_elem_id);
3109: END IF;
3110: --
3111: /* Creating linking task in the pa_proj_element_versions and pa_object_relationships table */
3112: /* This API call create task in pa_proj_element_versions and creates relationship between */
3136: RAISE FND_API.G_EXC_ERROR;
3137: END IF;
3138: --
3139: IF (p_debug_mode = 'Y') THEN
3140: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK_VERSION Return Status => '||x_return_status);
3141: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK_VERSION Linking Task Elem Id => '||x_lnk_task_elem_id);
3142: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK_VERSION Linking Task Elem Ver Id=> '||x_lnk_task_elem_ver_id);
3143: pa_debug.debug('PA_TASK_PUB1.Create_Schedule_Version Linking Task Elem Ver Id=> '||x_lnk_task_elem_ver_id);
3144: END IF;
3137: END IF;
3138: --
3139: IF (p_debug_mode = 'Y') THEN
3140: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK_VERSION Return Status => '||x_return_status);
3141: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK_VERSION Linking Task Elem Id => '||x_lnk_task_elem_id);
3142: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK_VERSION Linking Task Elem Ver Id=> '||x_lnk_task_elem_ver_id);
3143: pa_debug.debug('PA_TASK_PUB1.Create_Schedule_Version Linking Task Elem Ver Id=> '||x_lnk_task_elem_ver_id);
3144: END IF;
3145: --
3138: --
3139: IF (p_debug_mode = 'Y') THEN
3140: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK_VERSION Return Status => '||x_return_status);
3141: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK_VERSION Linking Task Elem Id => '||x_lnk_task_elem_id);
3142: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK_VERSION Linking Task Elem Ver Id=> '||x_lnk_task_elem_ver_id);
3143: pa_debug.debug('PA_TASK_PUB1.Create_Schedule_Version Linking Task Elem Ver Id=> '||x_lnk_task_elem_ver_id);
3144: END IF;
3145: --
3146: --bug 4279634
3139: IF (p_debug_mode = 'Y') THEN
3140: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK_VERSION Return Status => '||x_return_status);
3141: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK_VERSION Linking Task Elem Id => '||x_lnk_task_elem_id);
3142: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK_VERSION Linking Task Elem Ver Id=> '||x_lnk_task_elem_ver_id);
3143: pa_debug.debug('PA_TASK_PUB1.Create_Schedule_Version Linking Task Elem Ver Id=> '||x_lnk_task_elem_ver_id);
3144: END IF;
3145: --
3146: --bug 4279634
3147: --set chargeable to N
3210: ,x_msg_count =>x_msg_count
3211: ,x_msg_data =>x_msg_data
3212: );
3213: IF (p_debug_mode = 'Y') THEN
3214: pa_debug.debug('new workplan attr for task after call to PA_TASK_PUB1.Create_Schedule_Version=> '||x_pev_schedule_id);
3215: END IF;
3216: --
3217: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3218: x_msg_count := FND_MSG_PUB.count_msg;
3230: END IF;
3231: END IF;
3232: --
3233: IF (p_debug_mode = 'Y') THEN
3234: pa_debug.debug('After Call To PA_TASK_PUB1.Create_Schedule_Version Return Status => '||x_return_status);
3235: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Linking Task Elem Ver Id => '||x_lnk_task_elem_ver_id);
3236: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Src Proj Id=> '||p_src_proj_id);
3237: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Dest Struc Elem Ver Id=> '||p_dest_struc_elem_ver_id);
3238: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Dest Proj Id=> '||p_dest_proj_id);
3231: END IF;
3232: --
3233: IF (p_debug_mode = 'Y') THEN
3234: pa_debug.debug('After Call To PA_TASK_PUB1.Create_Schedule_Version Return Status => '||x_return_status);
3235: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Linking Task Elem Ver Id => '||x_lnk_task_elem_ver_id);
3236: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Src Proj Id=> '||p_src_proj_id);
3237: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Dest Struc Elem Ver Id=> '||p_dest_struc_elem_ver_id);
3238: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Dest Proj Id=> '||p_dest_proj_id);
3239: END IF;
3232: --
3233: IF (p_debug_mode = 'Y') THEN
3234: pa_debug.debug('After Call To PA_TASK_PUB1.Create_Schedule_Version Return Status => '||x_return_status);
3235: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Linking Task Elem Ver Id => '||x_lnk_task_elem_ver_id);
3236: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Src Proj Id=> '||p_src_proj_id);
3237: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Dest Struc Elem Ver Id=> '||p_dest_struc_elem_ver_id);
3238: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Dest Proj Id=> '||p_dest_proj_id);
3239: END IF;
3240: --
3233: IF (p_debug_mode = 'Y') THEN
3234: pa_debug.debug('After Call To PA_TASK_PUB1.Create_Schedule_Version Return Status => '||x_return_status);
3235: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Linking Task Elem Ver Id => '||x_lnk_task_elem_ver_id);
3236: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Src Proj Id=> '||p_src_proj_id);
3237: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Dest Struc Elem Ver Id=> '||p_dest_struc_elem_ver_id);
3238: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Dest Proj Id=> '||p_dest_proj_id);
3239: END IF;
3240: --
3241: /* This API call create relationship between linking task and destination structure vesion */
3234: pa_debug.debug('After Call To PA_TASK_PUB1.Create_Schedule_Version Return Status => '||x_return_status);
3235: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Linking Task Elem Ver Id => '||x_lnk_task_elem_ver_id);
3236: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Src Proj Id=> '||p_src_proj_id);
3237: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Dest Struc Elem Ver Id=> '||p_dest_struc_elem_ver_id);
3238: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Dest Proj Id=> '||p_dest_proj_id);
3239: END IF;
3240: --
3241: /* This API call create relationship between linking task and destination structure vesion */
3242: /* in the pa_object_relationships table */
3349: PA_UTILS.ADD_MESSAGE('PA','PA_CRT_SUBPROJ_VAL_FAIL','PROJ',l_proj_name,'PROG',l_prog_name); -- Bug # 4329284.
3350: RAISE FND_API.G_EXC_ERROR;
3351: END IF;
3352: IF (p_debug_mode = 'Y') THEN
3353: pa_debug.debug('Return Status PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS=> '||l_upd_prog_grp_status);
3354: END IF;
3355: END IF;
3356: EXCEPTION
3357:
3370: RAISE FND_API.G_EXC_ERROR;
3371: END;
3372: --
3373: IF (p_debug_mode = 'Y') THEN
3374: pa_debug.debug('After Call To PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Return Status => '||x_return_status);
3375: END IF;
3376: --
3377: x_return_status := FND_API.G_RET_STS_SUCCESS;
3378: --
3380: COMMIT;
3381: END IF;
3382: --
3383: IF (p_debug_mode = 'Y') THEN
3384: pa_debug.debug('PA_RELATIONSHIP_PVT.Insert_Subproject_Association END');
3385: END IF;
3386: --
3387: EXCEPTION
3388: WHEN FND_API.G_EXC_ERROR THEN
3549: -- Bug # 4329284.
3550:
3551: BEGIN
3552: IF (p_debug_mode = 'Y') THEN
3553: pa_debug.debug('PA_RELATIONSHIP_PVT.Create_Subproject_Association begin');
3554: END IF;
3555: --
3556: IF (p_commit = FND_API.G_TRUE) THEN
3557: savepoint Create_Subproject_Ass_pvt;
3557: savepoint Create_Subproject_Ass_pvt;
3558: END IF;
3559: --
3560: IF (p_debug_mode = 'Y') THEN
3561: pa_debug.debug('Performing validations');
3562: pa_debug.debug('The value of the passed src proj id=> '||p_src_proj_id);
3563: pa_debug.debug('The value of the passed src task ver id=> '||p_task_ver_id);
3564: pa_debug.debug('The value of the passed dest proj id=>'||p_dest_proj_id);
3565: pa_debug.debug('The value of the passed dest proj name id=> '||p_dest_proj_name);
3558: END IF;
3559: --
3560: IF (p_debug_mode = 'Y') THEN
3561: pa_debug.debug('Performing validations');
3562: pa_debug.debug('The value of the passed src proj id=> '||p_src_proj_id);
3563: pa_debug.debug('The value of the passed src task ver id=> '||p_task_ver_id);
3564: pa_debug.debug('The value of the passed dest proj id=>'||p_dest_proj_id);
3565: pa_debug.debug('The value of the passed dest proj name id=> '||p_dest_proj_name);
3566: pa_debug.debug('The value of the passed comments=> '||p_comment);
3559: --
3560: IF (p_debug_mode = 'Y') THEN
3561: pa_debug.debug('Performing validations');
3562: pa_debug.debug('The value of the passed src proj id=> '||p_src_proj_id);
3563: pa_debug.debug('The value of the passed src task ver id=> '||p_task_ver_id);
3564: pa_debug.debug('The value of the passed dest proj id=>'||p_dest_proj_id);
3565: pa_debug.debug('The value of the passed dest proj name id=> '||p_dest_proj_name);
3566: pa_debug.debug('The value of the passed comments=> '||p_comment);
3567: END IF;
3560: IF (p_debug_mode = 'Y') THEN
3561: pa_debug.debug('Performing validations');
3562: pa_debug.debug('The value of the passed src proj id=> '||p_src_proj_id);
3563: pa_debug.debug('The value of the passed src task ver id=> '||p_task_ver_id);
3564: pa_debug.debug('The value of the passed dest proj id=>'||p_dest_proj_id);
3565: pa_debug.debug('The value of the passed dest proj name id=> '||p_dest_proj_name);
3566: pa_debug.debug('The value of the passed comments=> '||p_comment);
3567: END IF;
3568: --
3561: pa_debug.debug('Performing validations');
3562: pa_debug.debug('The value of the passed src proj id=> '||p_src_proj_id);
3563: pa_debug.debug('The value of the passed src task ver id=> '||p_task_ver_id);
3564: pa_debug.debug('The value of the passed dest proj id=>'||p_dest_proj_id);
3565: pa_debug.debug('The value of the passed dest proj name id=> '||p_dest_proj_name);
3566: pa_debug.debug('The value of the passed comments=> '||p_comment);
3567: END IF;
3568: --
3569: -- Check for source structure type
3562: pa_debug.debug('The value of the passed src proj id=> '||p_src_proj_id);
3563: pa_debug.debug('The value of the passed src task ver id=> '||p_task_ver_id);
3564: pa_debug.debug('The value of the passed dest proj id=>'||p_dest_proj_id);
3565: pa_debug.debug('The value of the passed dest proj name id=> '||p_dest_proj_name);
3566: pa_debug.debug('The value of the passed comments=> '||p_comment);
3567: END IF;
3568: --
3569: -- Check for source structure type
3570: l_src_proj_sharing_code:=PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(p_src_proj_id);
3570: l_src_proj_sharing_code:=PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(p_src_proj_id);
3571: --
3572: --
3573: IF (p_debug_mode = 'Y') THEN
3574: pa_debug.debug('The src project id value => '||p_src_proj_id);
3575: pa_debug.debug('The src project sharing code value => '||l_src_proj_sharing_code);
3576: pa_debug.debug('The value of src task ver id => '||p_task_ver_id);
3577: END IF;
3578: --
3571: --
3572: --
3573: IF (p_debug_mode = 'Y') THEN
3574: pa_debug.debug('The src project id value => '||p_src_proj_id);
3575: pa_debug.debug('The src project sharing code value => '||l_src_proj_sharing_code);
3576: pa_debug.debug('The value of src task ver id => '||p_task_ver_id);
3577: END IF;
3578: --
3579: -- l_proj_element_id = structure element id
3572: --
3573: IF (p_debug_mode = 'Y') THEN
3574: pa_debug.debug('The src project id value => '||p_src_proj_id);
3575: pa_debug.debug('The src project sharing code value => '||l_src_proj_sharing_code);
3576: pa_debug.debug('The value of src task ver id => '||p_task_ver_id);
3577: END IF;
3578: --
3579: -- l_proj_element_id = structure element id
3580: -- l_parent_strucutre_version_id=parent structure version id
3618: RAISE;
3619: END;
3620: --
3621: IF (p_debug_mode = 'Y') THEN
3622: pa_debug.debug('The src structure elem id => '||l_src_struc_elem_id);
3623: pa_debug.debug('The src strcuture elem version id => '||l_src_struc_elem_ver_id);
3624: pa_debug.debug('The value of src task financial flag => '||l_src_task_financial_flag);
3625: pa_debug.debug('The value of src task elem id => '||l_src_task_elem_id);
3626: END IF;
3619: END;
3620: --
3621: IF (p_debug_mode = 'Y') THEN
3622: pa_debug.debug('The src structure elem id => '||l_src_struc_elem_id);
3623: pa_debug.debug('The src strcuture elem version id => '||l_src_struc_elem_ver_id);
3624: pa_debug.debug('The value of src task financial flag => '||l_src_task_financial_flag);
3625: pa_debug.debug('The value of src task elem id => '||l_src_task_elem_id);
3626: END IF;
3627: --
3620: --
3621: IF (p_debug_mode = 'Y') THEN
3622: pa_debug.debug('The src structure elem id => '||l_src_struc_elem_id);
3623: pa_debug.debug('The src strcuture elem version id => '||l_src_struc_elem_ver_id);
3624: pa_debug.debug('The value of src task financial flag => '||l_src_task_financial_flag);
3625: pa_debug.debug('The value of src task elem id => '||l_src_task_elem_id);
3626: END IF;
3627: --
3628: /* IF PA_PROJECT_STRUCTURE_UTILS.get_element_struc_type(p_src_proj_id,p_task_ver_id,'PA_TASKS') = 'WORKPLAN' THEN
3621: IF (p_debug_mode = 'Y') THEN
3622: pa_debug.debug('The src structure elem id => '||l_src_struc_elem_id);
3623: pa_debug.debug('The src strcuture elem version id => '||l_src_struc_elem_ver_id);
3624: pa_debug.debug('The value of src task financial flag => '||l_src_task_financial_flag);
3625: pa_debug.debug('The value of src task elem id => '||l_src_task_elem_id);
3626: END IF;
3627: --
3628: /* IF PA_PROJECT_STRUCTURE_UTILS.get_element_struc_type(p_src_proj_id,p_task_ver_id,'PA_TASKS') = 'WORKPLAN' THEN
3629: l_src_str_wp_enable_fl:='Y';
3641: l_src_str_fin_enable_fl:='Y';
3642: END IF;
3643: --
3644: IF (p_debug_mode = 'Y') THEN
3645: pa_debug.debug('The src str wp enable flag => '||l_src_str_wp_enable_fl);
3646: pa_debug.debug('The src str fin enable flag => '||l_src_str_fin_enable_fl);
3647: END IF;
3648:
3649: --Bug 3912783:
3642: END IF;
3643: --
3644: IF (p_debug_mode = 'Y') THEN
3645: pa_debug.debug('The src str wp enable flag => '||l_src_str_wp_enable_fl);
3646: pa_debug.debug('The src str fin enable flag => '||l_src_str_fin_enable_fl);
3647: END IF;
3648:
3649: --Bug 3912783:
3650: IF (PA_RELATIONSHIP_UTILS.Check_proj_currency_identical(p_src_proj_id,p_dest_proj_id) = 'N') THEN
3696: l_dest_wp_str_ver_id :=PA_PROJECT_STRUCTURE_UTILS.get_current_working_ver_id(p_dest_proj_id);
3697: END IF;
3698: --
3699: IF (p_debug_mode = 'Y') THEN
3700: pa_debug.debug('Dest WP Str Ver Id => '||l_dest_wp_str_ver_id);
3701: END IF;
3702: --
3703: -- IF l_dest_wp_str_ver_id IS NOT NULL THEN --Commented
3704: IF (l_dest_wp_str_ver_id >=0) THEN --SMukka
3713: WHEN OTHERS THEN
3714: RAISE;
3715: END;
3716: IF (p_debug_mode = 'Y') THEN
3717: pa_debug.debug('Dest WP Str element Id => '||l_dest_wp_struct_element_id);
3718: END IF;
3719: END IF;
3720: --
3721: IF (p_debug_mode = 'Y') THEN
3718: END IF;
3719: END IF;
3720: --
3721: IF (p_debug_mode = 'Y') THEN
3722: pa_debug.debug('Dest FIN Str Ver Id => '||l_dest_fin_str_ver_id);
3723: END IF;
3724: --
3725: -- IF l_dest_fin_str_ver_id IS NOT NULL THEN --SMukka
3726: IF (l_dest_fin_str_ver_id >= 0) THEN --SMukka
3735: WHEN OTHERS THEN
3736: RAISE;
3737: END;
3738: IF (p_debug_mode = 'Y') THEN
3739: pa_debug.debug('Dest FIN Str element Id => '||l_dest_fin_struct_element_id);
3740: END IF;
3741: END IF;
3742: --
3743: -- Create linking task
3791: l_task_name_number := substr(fnd_date.date_to_canonical(sysdate),0,25);
3792: --
3793: --
3794: IF (p_debug_mode = 'Y') THEN
3795: pa_debug.debug('Before call to Insert_Subproject_Association');
3796: pa_debug.debug('Before call to ISPA Src Project Id => '||p_src_proj_id);
3797: pa_debug.debug('Before call to ISPA Src Strcuture elem id => '||l_src_struc_elem_id);
3798: pa_debug.debug('Before call to ISPA Src Structure elem version id => '||l_src_struc_elem_ver_id);
3799: pa_debug.debug('Before call to ISPA Src Task elem id => '||l_src_task_elem_id);
3792: --
3793: --
3794: IF (p_debug_mode = 'Y') THEN
3795: pa_debug.debug('Before call to Insert_Subproject_Association');
3796: pa_debug.debug('Before call to ISPA Src Project Id => '||p_src_proj_id);
3797: pa_debug.debug('Before call to ISPA Src Strcuture elem id => '||l_src_struc_elem_id);
3798: pa_debug.debug('Before call to ISPA Src Structure elem version id => '||l_src_struc_elem_ver_id);
3799: pa_debug.debug('Before call to ISPA Src Task elem id => '||l_src_task_elem_id);
3800: pa_debug.debug('Before call to ISPA Src Task elem version id => '||p_task_ver_id);
3793: --
3794: IF (p_debug_mode = 'Y') THEN
3795: pa_debug.debug('Before call to Insert_Subproject_Association');
3796: pa_debug.debug('Before call to ISPA Src Project Id => '||p_src_proj_id);
3797: pa_debug.debug('Before call to ISPA Src Strcuture elem id => '||l_src_struc_elem_id);
3798: pa_debug.debug('Before call to ISPA Src Structure elem version id => '||l_src_struc_elem_ver_id);
3799: pa_debug.debug('Before call to ISPA Src Task elem id => '||l_src_task_elem_id);
3800: pa_debug.debug('Before call to ISPA Src Task elem version id => '||p_task_ver_id);
3801: pa_debug.debug('Before call to ISPA Src Task Financial Flag => '||l_src_task_financial_flag);
3794: IF (p_debug_mode = 'Y') THEN
3795: pa_debug.debug('Before call to Insert_Subproject_Association');
3796: pa_debug.debug('Before call to ISPA Src Project Id => '||p_src_proj_id);
3797: pa_debug.debug('Before call to ISPA Src Strcuture elem id => '||l_src_struc_elem_id);
3798: pa_debug.debug('Before call to ISPA Src Structure elem version id => '||l_src_struc_elem_ver_id);
3799: pa_debug.debug('Before call to ISPA Src Task elem id => '||l_src_task_elem_id);
3800: pa_debug.debug('Before call to ISPA Src Task elem version id => '||p_task_ver_id);
3801: pa_debug.debug('Before call to ISPA Src Task Financial Flag => '||l_src_task_financial_flag);
3802: pa_debug.debug('Before call to ISPA Dest Project id => '||p_dest_proj_id);
3795: pa_debug.debug('Before call to Insert_Subproject_Association');
3796: pa_debug.debug('Before call to ISPA Src Project Id => '||p_src_proj_id);
3797: pa_debug.debug('Before call to ISPA Src Strcuture elem id => '||l_src_struc_elem_id);
3798: pa_debug.debug('Before call to ISPA Src Structure elem version id => '||l_src_struc_elem_ver_id);
3799: pa_debug.debug('Before call to ISPA Src Task elem id => '||l_src_task_elem_id);
3800: pa_debug.debug('Before call to ISPA Src Task elem version id => '||p_task_ver_id);
3801: pa_debug.debug('Before call to ISPA Src Task Financial Flag => '||l_src_task_financial_flag);
3802: pa_debug.debug('Before call to ISPA Dest Project id => '||p_dest_proj_id);
3803: pa_debug.debug('Before call to ISPA Linking Task element id => '||l_lnk_task_elem_id);
3796: pa_debug.debug('Before call to ISPA Src Project Id => '||p_src_proj_id);
3797: pa_debug.debug('Before call to ISPA Src Strcuture elem id => '||l_src_struc_elem_id);
3798: pa_debug.debug('Before call to ISPA Src Structure elem version id => '||l_src_struc_elem_ver_id);
3799: pa_debug.debug('Before call to ISPA Src Task elem id => '||l_src_task_elem_id);
3800: pa_debug.debug('Before call to ISPA Src Task elem version id => '||p_task_ver_id);
3801: pa_debug.debug('Before call to ISPA Src Task Financial Flag => '||l_src_task_financial_flag);
3802: pa_debug.debug('Before call to ISPA Dest Project id => '||p_dest_proj_id);
3803: pa_debug.debug('Before call to ISPA Linking Task element id => '||l_lnk_task_elem_id);
3804: pa_debug.debug('Before call to ISPA Linking Task Element Version Id => '||l_lnk_task_elem_ver_id);
3797: pa_debug.debug('Before call to ISPA Src Strcuture elem id => '||l_src_struc_elem_id);
3798: pa_debug.debug('Before call to ISPA Src Structure elem version id => '||l_src_struc_elem_ver_id);
3799: pa_debug.debug('Before call to ISPA Src Task elem id => '||l_src_task_elem_id);
3800: pa_debug.debug('Before call to ISPA Src Task elem version id => '||p_task_ver_id);
3801: pa_debug.debug('Before call to ISPA Src Task Financial Flag => '||l_src_task_financial_flag);
3802: pa_debug.debug('Before call to ISPA Dest Project id => '||p_dest_proj_id);
3803: pa_debug.debug('Before call to ISPA Linking Task element id => '||l_lnk_task_elem_id);
3804: pa_debug.debug('Before call to ISPA Linking Task Element Version Id => '||l_lnk_task_elem_ver_id);
3805: pa_debug.debug('Before call to ISPA Linking Task Name Number => '||l_task_name_number);
3798: pa_debug.debug('Before call to ISPA Src Structure elem version id => '||l_src_struc_elem_ver_id);
3799: pa_debug.debug('Before call to ISPA Src Task elem id => '||l_src_task_elem_id);
3800: pa_debug.debug('Before call to ISPA Src Task elem version id => '||p_task_ver_id);
3801: pa_debug.debug('Before call to ISPA Src Task Financial Flag => '||l_src_task_financial_flag);
3802: pa_debug.debug('Before call to ISPA Dest Project id => '||p_dest_proj_id);
3803: pa_debug.debug('Before call to ISPA Linking Task element id => '||l_lnk_task_elem_id);
3804: pa_debug.debug('Before call to ISPA Linking Task Element Version Id => '||l_lnk_task_elem_ver_id);
3805: pa_debug.debug('Before call to ISPA Linking Task Name Number => '||l_task_name_number);
3806: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_wp_struct_element_id);
3799: pa_debug.debug('Before call to ISPA Src Task elem id => '||l_src_task_elem_id);
3800: pa_debug.debug('Before call to ISPA Src Task elem version id => '||p_task_ver_id);
3801: pa_debug.debug('Before call to ISPA Src Task Financial Flag => '||l_src_task_financial_flag);
3802: pa_debug.debug('Before call to ISPA Dest Project id => '||p_dest_proj_id);
3803: pa_debug.debug('Before call to ISPA Linking Task element id => '||l_lnk_task_elem_id);
3804: pa_debug.debug('Before call to ISPA Linking Task Element Version Id => '||l_lnk_task_elem_ver_id);
3805: pa_debug.debug('Before call to ISPA Linking Task Name Number => '||l_task_name_number);
3806: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_wp_struct_element_id);
3807: pa_debug.debug('Before call to ISPA Dest wp Strcuture ver id => '||l_dest_wp_str_ver_id);
3800: pa_debug.debug('Before call to ISPA Src Task elem version id => '||p_task_ver_id);
3801: pa_debug.debug('Before call to ISPA Src Task Financial Flag => '||l_src_task_financial_flag);
3802: pa_debug.debug('Before call to ISPA Dest Project id => '||p_dest_proj_id);
3803: pa_debug.debug('Before call to ISPA Linking Task element id => '||l_lnk_task_elem_id);
3804: pa_debug.debug('Before call to ISPA Linking Task Element Version Id => '||l_lnk_task_elem_ver_id);
3805: pa_debug.debug('Before call to ISPA Linking Task Name Number => '||l_task_name_number);
3806: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_wp_struct_element_id);
3807: pa_debug.debug('Before call to ISPA Dest wp Strcuture ver id => '||l_dest_wp_str_ver_id);
3808: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_fin_struct_element_id);
3801: pa_debug.debug('Before call to ISPA Src Task Financial Flag => '||l_src_task_financial_flag);
3802: pa_debug.debug('Before call to ISPA Dest Project id => '||p_dest_proj_id);
3803: pa_debug.debug('Before call to ISPA Linking Task element id => '||l_lnk_task_elem_id);
3804: pa_debug.debug('Before call to ISPA Linking Task Element Version Id => '||l_lnk_task_elem_ver_id);
3805: pa_debug.debug('Before call to ISPA Linking Task Name Number => '||l_task_name_number);
3806: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_wp_struct_element_id);
3807: pa_debug.debug('Before call to ISPA Dest wp Strcuture ver id => '||l_dest_wp_str_ver_id);
3808: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_fin_struct_element_id);
3809: pa_debug.debug('Before call to ISPA Dest wp Strcuture ver id => '||l_dest_fin_str_ver_id);
3802: pa_debug.debug('Before call to ISPA Dest Project id => '||p_dest_proj_id);
3803: pa_debug.debug('Before call to ISPA Linking Task element id => '||l_lnk_task_elem_id);
3804: pa_debug.debug('Before call to ISPA Linking Task Element Version Id => '||l_lnk_task_elem_ver_id);
3805: pa_debug.debug('Before call to ISPA Linking Task Name Number => '||l_task_name_number);
3806: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_wp_struct_element_id);
3807: pa_debug.debug('Before call to ISPA Dest wp Strcuture ver id => '||l_dest_wp_str_ver_id);
3808: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_fin_struct_element_id);
3809: pa_debug.debug('Before call to ISPA Dest wp Strcuture ver id => '||l_dest_fin_str_ver_id);
3810: pa_debug.debug('Before call to ISPA Src Structure WP Enable Flag => '||l_src_str_wp_enable_fl);
3803: pa_debug.debug('Before call to ISPA Linking Task element id => '||l_lnk_task_elem_id);
3804: pa_debug.debug('Before call to ISPA Linking Task Element Version Id => '||l_lnk_task_elem_ver_id);
3805: pa_debug.debug('Before call to ISPA Linking Task Name Number => '||l_task_name_number);
3806: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_wp_struct_element_id);
3807: pa_debug.debug('Before call to ISPA Dest wp Strcuture ver id => '||l_dest_wp_str_ver_id);
3808: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_fin_struct_element_id);
3809: pa_debug.debug('Before call to ISPA Dest wp Strcuture ver id => '||l_dest_fin_str_ver_id);
3810: pa_debug.debug('Before call to ISPA Src Structure WP Enable Flag => '||l_src_str_wp_enable_fl);
3811: pa_debug.debug('Before call to ISPA Dest Structure FIN Enable Flag => '||l_src_str_fin_enable_fl);
3804: pa_debug.debug('Before call to ISPA Linking Task Element Version Id => '||l_lnk_task_elem_ver_id);
3805: pa_debug.debug('Before call to ISPA Linking Task Name Number => '||l_task_name_number);
3806: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_wp_struct_element_id);
3807: pa_debug.debug('Before call to ISPA Dest wp Strcuture ver id => '||l_dest_wp_str_ver_id);
3808: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_fin_struct_element_id);
3809: pa_debug.debug('Before call to ISPA Dest wp Strcuture ver id => '||l_dest_fin_str_ver_id);
3810: pa_debug.debug('Before call to ISPA Src Structure WP Enable Flag => '||l_src_str_wp_enable_fl);
3811: pa_debug.debug('Before call to ISPA Dest Structure FIN Enable Flag => '||l_src_str_fin_enable_fl);
3812: END IF;
3805: pa_debug.debug('Before call to ISPA Linking Task Name Number => '||l_task_name_number);
3806: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_wp_struct_element_id);
3807: pa_debug.debug('Before call to ISPA Dest wp Strcuture ver id => '||l_dest_wp_str_ver_id);
3808: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_fin_struct_element_id);
3809: pa_debug.debug('Before call to ISPA Dest wp Strcuture ver id => '||l_dest_fin_str_ver_id);
3810: pa_debug.debug('Before call to ISPA Src Structure WP Enable Flag => '||l_src_str_wp_enable_fl);
3811: pa_debug.debug('Before call to ISPA Dest Structure FIN Enable Flag => '||l_src_str_fin_enable_fl);
3812: END IF;
3813: /* Bug 4473103 : Undone the fix for 3983361 and redo
3806: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_wp_struct_element_id);
3807: pa_debug.debug('Before call to ISPA Dest wp Strcuture ver id => '||l_dest_wp_str_ver_id);
3808: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_fin_struct_element_id);
3809: pa_debug.debug('Before call to ISPA Dest wp Strcuture ver id => '||l_dest_fin_str_ver_id);
3810: pa_debug.debug('Before call to ISPA Src Structure WP Enable Flag => '||l_src_str_wp_enable_fl);
3811: pa_debug.debug('Before call to ISPA Dest Structure FIN Enable Flag => '||l_src_str_fin_enable_fl);
3812: END IF;
3813: /* Bug 4473103 : Undone the fix for 3983361 and redo
3814: --
3807: pa_debug.debug('Before call to ISPA Dest wp Strcuture ver id => '||l_dest_wp_str_ver_id);
3808: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_fin_struct_element_id);
3809: pa_debug.debug('Before call to ISPA Dest wp Strcuture ver id => '||l_dest_fin_str_ver_id);
3810: pa_debug.debug('Before call to ISPA Src Structure WP Enable Flag => '||l_src_str_wp_enable_fl);
3811: pa_debug.debug('Before call to ISPA Dest Structure FIN Enable Flag => '||l_src_str_fin_enable_fl);
3812: END IF;
3813: /* Bug 4473103 : Undone the fix for 3983361 and redo
3814: --
3815: --
3848: -- 4473103 : End
3849:
3850: IF l_src_proj_sharing_code = 'SHARE_FULL' AND l_dest_proj_sharing_code = 'SHARE_FULL' THEN
3851: IF (p_debug_mode = 'Y') THEN
3852: pa_debug.debug('Into block where both src and dest proj are SHARE_FULL');
3853: END IF;
3854: /* For workplan */
3855: --Validation for create sub project association
3856: --bug 3716615
3854: /* For workplan */
3855: --Validation for create sub project association
3856: --bug 3716615
3857: IF (p_debug_mode = 'Y') THEN
3858: pa_debug.debug('Before call to PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK api');
3859: END IF;
3860: /* --bug 3983361
3861: IF p_validation_level > 0 THEN
3862: IF PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK(p_task_ver_id,p_dest_proj_id) = 'N' THEN --SMukka
3865: END IF;
3866: END IF;
3867: */
3868: IF (p_debug_mode = 'Y') THEN
3869: pa_debug.debug('After call to PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK api');
3870: END IF;
3871: --end bug 3716615
3872: PA_RELATIONSHIP_PVT.Insert_Subproject_Association
3873: ( p_init_msg_list => p_init_msg_list
3915: --
3916: /* For Financial */
3917: -- IF l_src_task_financial_flag='Y' THEN --No need to check for fully shared project
3918: IF (p_debug_mode = 'Y') THEN
3919: pa_debug.debug('Into block where both src and dest proj are SHARE_FULL');
3920: pa_debug.debug('Into fin block where both src and dest proj are SHARE_FULL');
3921: END IF;
3922:
3923: --bug 3716615
3916: /* For Financial */
3917: -- IF l_src_task_financial_flag='Y' THEN --No need to check for fully shared project
3918: IF (p_debug_mode = 'Y') THEN
3919: pa_debug.debug('Into block where both src and dest proj are SHARE_FULL');
3920: pa_debug.debug('Into fin block where both src and dest proj are SHARE_FULL');
3921: END IF;
3922:
3923: --bug 3716615
3924: IF (p_debug_mode = 'Y') THEN
3921: END IF;
3922:
3923: --bug 3716615
3924: IF (p_debug_mode = 'Y') THEN
3925: pa_debug.debug('Before call to PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK api');
3926: END IF;
3927: /* --bug 3983361
3928: IF p_validation_level > 0 THEN
3929: IF PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK(p_task_ver_id,p_dest_proj_id, 'FINANCIAL') = 'N' THEN --SMukka
3932: END IF;
3933: END IF;
3934: */
3935: IF (p_debug_mode = 'Y') THEN
3936: pa_debug.debug('After call to PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK api');
3937: END IF;
3938: --end bug 3716615
3939:
3940: PA_RELATIONSHIP_PVT.Insert_Subproject_Association
3984: --END IF; --financial task flag is Y
3985: ELSE
3986: IF l_dest_wp_str_ver_id IS NOT NULL AND l_src_str_wp_enable_fl = 'Y' THEN
3987: IF (p_debug_mode = 'Y') THEN
3988: pa_debug.debug('Into Else block Where src and dest are WP');
3989: END IF;
3990: --bug 3716615
3991: IF (p_debug_mode = 'Y') THEN
3992: pa_debug.debug('Before call to PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK api');
3988: pa_debug.debug('Into Else block Where src and dest are WP');
3989: END IF;
3990: --bug 3716615
3991: IF (p_debug_mode = 'Y') THEN
3992: pa_debug.debug('Before call to PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK api');
3993: END IF;
3994: /* --bug 3983361
3995: IF p_validation_level > 0 THEN
3996: IF PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK(p_task_ver_id,p_dest_proj_id) = 'N' THEN --SMukka
3999: END IF;
4000: END IF;
4001: */
4002: IF (p_debug_mode = 'Y') THEN
4003: pa_debug.debug('After call to PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK api');
4004: END IF;
4005: --end bug 3716615
4006:
4007: PA_RELATIONSHIP_PVT.Insert_Subproject_Association
4052: IF l_dest_fin_str_ver_id IS NOT NULL AND
4053: l_src_task_financial_flag='Y' AND
4054: l_src_str_fin_enable_fl = 'Y' THEN
4055: IF (p_debug_mode = 'Y') THEN
4056: pa_debug.debug('Into Else block Where src and dest are FIN');
4057: END IF;
4058:
4059: --bug 3716615
4060: IF (p_debug_mode = 'Y') THEN
4057: END IF;
4058:
4059: --bug 3716615
4060: IF (p_debug_mode = 'Y') THEN
4061: pa_debug.debug('Before call to PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK api');
4062: END IF;
4063: /* --bug 3983361
4064: IF p_validation_level > 0 THEN
4065: IF PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK(p_task_ver_id,p_dest_proj_id, 'FINANCIAL') = 'N' THEN --SMukka
4068: END IF;
4069: END IF;
4070: */
4071: IF (p_debug_mode = 'Y') THEN
4072: pa_debug.debug('After call to PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK api');
4073: END IF;
4074: --end bug 3716615
4075:
4076: PA_RELATIONSHIP_PVT.Insert_Subproject_Association
4118: END IF; --l_dest_fin_str_ver_id is not null and l_src_task_fin_flag is Y and l_src_str_fin_enable_fl is y
4119: END IF; --src and dest project sharing code are SHARE_FULL
4120: --
4121: IF (p_debug_mode = 'Y') THEN
4122: pa_debug.debug('After call to ISPA Linking Task Elem Id => '||l_lnk_task_elem_id);
4123: pa_debug.debug('After call to ISPA Linking Task Elem Ver Id => '||l_lnk_task_elem_ver_id);
4124: pa_debug.debug('After call to ISPA Object_Relationship_Id => '||x_object_relationship_id);
4125: pa_debug.debug('After call to ISPA WP Attr schedule Id => '||l_pev_schedule_id);
4126: END IF;
4119: END IF; --src and dest project sharing code are SHARE_FULL
4120: --
4121: IF (p_debug_mode = 'Y') THEN
4122: pa_debug.debug('After call to ISPA Linking Task Elem Id => '||l_lnk_task_elem_id);
4123: pa_debug.debug('After call to ISPA Linking Task Elem Ver Id => '||l_lnk_task_elem_ver_id);
4124: pa_debug.debug('After call to ISPA Object_Relationship_Id => '||x_object_relationship_id);
4125: pa_debug.debug('After call to ISPA WP Attr schedule Id => '||l_pev_schedule_id);
4126: END IF;
4127: --
4120: --
4121: IF (p_debug_mode = 'Y') THEN
4122: pa_debug.debug('After call to ISPA Linking Task Elem Id => '||l_lnk_task_elem_id);
4123: pa_debug.debug('After call to ISPA Linking Task Elem Ver Id => '||l_lnk_task_elem_ver_id);
4124: pa_debug.debug('After call to ISPA Object_Relationship_Id => '||x_object_relationship_id);
4125: pa_debug.debug('After call to ISPA WP Attr schedule Id => '||l_pev_schedule_id);
4126: END IF;
4127: --
4128: IF (p_commit = FND_API.G_TRUE) THEN
4121: IF (p_debug_mode = 'Y') THEN
4122: pa_debug.debug('After call to ISPA Linking Task Elem Id => '||l_lnk_task_elem_id);
4123: pa_debug.debug('After call to ISPA Linking Task Elem Ver Id => '||l_lnk_task_elem_ver_id);
4124: pa_debug.debug('After call to ISPA Object_Relationship_Id => '||x_object_relationship_id);
4125: pa_debug.debug('After call to ISPA WP Attr schedule Id => '||l_pev_schedule_id);
4126: END IF;
4127: --
4128: IF (p_commit = FND_API.G_TRUE) THEN
4129: COMMIT;
4237:
4238: x_return_status := FND_API.G_RET_STS_SUCCESS;
4239: --
4240: IF (p_debug_mode = 'Y') THEN
4241: pa_debug.debug('PA_RELATIONSHIP_PVT.Create_Subproject_Association end');
4242: END IF;
4243: --
4244: EXCEPTION
4245: WHEN FND_API.G_EXC_ERROR THEN
4331:
4332: BEGIN
4333: --
4334: IF (p_debug_mode = 'Y') THEN
4335: pa_debug.debug('PA_RELATIONSHIPS_PVT1.UPDATE_SUBPROJECT_ASSOCIATION Begin');
4336: END IF;
4337: --
4338: IF (p_commit = FND_API.G_TRUE) THEN
4339: savepoint update_subproject_ass_pvt;
4339: savepoint update_subproject_ass_pvt;
4340: END IF;
4341: --
4342: IF (p_debug_mode = 'Y') THEN
4343: pa_debug.debug('The value of the passed object_relationship_id=> '||p_object_relationship_id);
4344: pa_debug.debug('The value of the passed comments=> '||p_comment);
4345: END IF;
4346: --
4347:
4340: END IF;
4341: --
4342: IF (p_debug_mode = 'Y') THEN
4343: pa_debug.debug('The value of the passed object_relationship_id=> '||p_object_relationship_id);
4344: pa_debug.debug('The value of the passed comments=> '||p_comment);
4345: END IF;
4346: --
4347:
4348: -- Bug # 5072032.
4370: COMMIT;
4371: END IF;
4372: --
4373: IF (p_debug_mode = 'Y') THEN
4374: pa_debug.debug('Return status before the end of Update_Subproject_Association=> '||x_return_status);
4375: END IF;
4376: --
4377: IF (p_debug_mode = 'Y') THEN
4378: pa_debug.debug('PA_RELATIONSHIPS_PVT1.UPDATE_SUBPROJECT_ASSOCIATION END');
4374: pa_debug.debug('Return status before the end of Update_Subproject_Association=> '||x_return_status);
4375: END IF;
4376: --
4377: IF (p_debug_mode = 'Y') THEN
4378: pa_debug.debug('PA_RELATIONSHIPS_PVT1.UPDATE_SUBPROJECT_ASSOCIATION END');
4379: END IF;
4380: --
4381: EXCEPTION
4382: WHEN FND_API.G_EXC_ERROR THEN
4529:
4530: BEGIN
4531: --
4532: IF (p_debug_mode = 'Y') THEN
4533: pa_debug.debug('PA_RELATIONSHIP_PVT.Delete_SubProject_Association begin');
4534: END IF;
4535: --
4536: IF (p_commit = FND_API.G_TRUE) THEN
4537: savepoint delete_subproject_ass_pvt;
4537: savepoint delete_subproject_ass_pvt;
4538: END IF;
4539: --
4540: IF (p_debug_mode = 'Y') THEN
4541: pa_debug.debug('Deleting the object_relationships_id => '||p_object_relationships_id);
4542: END IF;
4543: --
4544: -- Get the details for passed object relationship id from pa_object_relationships
4545: OPEN get_lnk_obj_rel_attr(p_object_relationships_id);
4551: RAISE FND_API.G_EXC_ERROR;
4552: END IF;
4553: --
4554: IF (p_debug_mode = 'Y') THEN
4555: pa_debug.debug('src lnk task ver id value for pass obj rel id=> '||get_lnk_obj_rel_attr_rec.object_id_from1);
4556: pa_debug.debug('dest str ver id value for pass obj rel id=> '||get_lnk_obj_rel_attr_rec.object_id_to1);
4557: pa_debug.debug('src proj id value for pass obj rel id => '||get_lnk_obj_rel_attr_rec.object_id_from2);
4558: pa_debug.debug('dest proj id value for pass obj rel id => '||get_lnk_obj_rel_attr_rec.object_id_to2);
4559: END IF;
4552: END IF;
4553: --
4554: IF (p_debug_mode = 'Y') THEN
4555: pa_debug.debug('src lnk task ver id value for pass obj rel id=> '||get_lnk_obj_rel_attr_rec.object_id_from1);
4556: pa_debug.debug('dest str ver id value for pass obj rel id=> '||get_lnk_obj_rel_attr_rec.object_id_to1);
4557: pa_debug.debug('src proj id value for pass obj rel id => '||get_lnk_obj_rel_attr_rec.object_id_from2);
4558: pa_debug.debug('dest proj id value for pass obj rel id => '||get_lnk_obj_rel_attr_rec.object_id_to2);
4559: END IF;
4560: --
4553: --
4554: IF (p_debug_mode = 'Y') THEN
4555: pa_debug.debug('src lnk task ver id value for pass obj rel id=> '||get_lnk_obj_rel_attr_rec.object_id_from1);
4556: pa_debug.debug('dest str ver id value for pass obj rel id=> '||get_lnk_obj_rel_attr_rec.object_id_to1);
4557: pa_debug.debug('src proj id value for pass obj rel id => '||get_lnk_obj_rel_attr_rec.object_id_from2);
4558: pa_debug.debug('dest proj id value for pass obj rel id => '||get_lnk_obj_rel_attr_rec.object_id_to2);
4559: END IF;
4560: --
4561: CLOSE get_lnk_obj_rel_attr;
4554: IF (p_debug_mode = 'Y') THEN
4555: pa_debug.debug('src lnk task ver id value for pass obj rel id=> '||get_lnk_obj_rel_attr_rec.object_id_from1);
4556: pa_debug.debug('dest str ver id value for pass obj rel id=> '||get_lnk_obj_rel_attr_rec.object_id_to1);
4557: pa_debug.debug('src proj id value for pass obj rel id => '||get_lnk_obj_rel_attr_rec.object_id_from2);
4558: pa_debug.debug('dest proj id value for pass obj rel id => '||get_lnk_obj_rel_attr_rec.object_id_to2);
4559: END IF;
4560: --
4561: CLOSE get_lnk_obj_rel_attr;
4562: --
4562: --
4563: --Getting the src task version details
4564: --
4565: IF (p_debug_mode = 'Y') THEN
4566: pa_debug.debug('Values pass to get_lnk_obj_rel_attr cursor => '||get_lnk_obj_rel_attr_rec.object_id_from1);
4567: END IF;
4568: --
4569: OPEN get_src_task_ver_id(get_lnk_obj_rel_attr_rec.object_id_from1);
4570: FETCH get_src_task_ver_id INTO get_src_task_ver_id_rec;
4575: RAISE FND_API.G_EXC_ERROR;
4576: END IF;
4577: --
4578: IF (p_debug_mode = 'Y') THEN
4579: pa_debug.debug('the value of src task ver id for passed lnk task ver id=> '||get_src_task_ver_id_rec.object_id_from1);
4580: END IF;
4581: --
4582: CLOSE get_src_task_ver_id;
4583:
4587: FETCH cur_src_structure_ver_id INTO l_src_project_id, l_src_structure_ver_id;
4588: CLOSE cur_src_structure_ver_id;
4589:
4590: IF (p_debug_mode = 'Y') THEN
4591: pa_debug.debug('l_src_structure_ver_id='||l_src_structure_ver_id);
4592: END IF;
4593: --bug 4370533 --Issue #3
4594:
4595: --
4593: --bug 4370533 --Issue #3
4594:
4595: --
4596: IF (p_debug_mode = 'Y') THEN
4597: pa_debug.debug('Values pass to get_lnk_info cursor => '||get_lnk_obj_rel_attr_rec.object_id_from2);
4598: pa_debug.debug('Values pass to get_lnk_info cursor => '||get_src_task_ver_id_rec.object_id_from1);
4599: pa_debug.debug('Values pass to get_lnk_info cursor => '||get_lnk_obj_rel_attr_rec.object_id_to2);
4600: END IF;
4601: --
4594:
4595: --
4596: IF (p_debug_mode = 'Y') THEN
4597: pa_debug.debug('Values pass to get_lnk_info cursor => '||get_lnk_obj_rel_attr_rec.object_id_from2);
4598: pa_debug.debug('Values pass to get_lnk_info cursor => '||get_src_task_ver_id_rec.object_id_from1);
4599: pa_debug.debug('Values pass to get_lnk_info cursor => '||get_lnk_obj_rel_attr_rec.object_id_to2);
4600: END IF;
4601: --
4602: OPEN get_lnk_info(get_lnk_obj_rel_attr_rec.object_id_from2,
4595: --
4596: IF (p_debug_mode = 'Y') THEN
4597: pa_debug.debug('Values pass to get_lnk_info cursor => '||get_lnk_obj_rel_attr_rec.object_id_from2);
4598: pa_debug.debug('Values pass to get_lnk_info cursor => '||get_src_task_ver_id_rec.object_id_from1);
4599: pa_debug.debug('Values pass to get_lnk_info cursor => '||get_lnk_obj_rel_attr_rec.object_id_to2);
4600: END IF;
4601: --
4602: OPEN get_lnk_info(get_lnk_obj_rel_attr_rec.object_id_from2,
4603: get_src_task_ver_id_rec.object_id_from1,
4617: PA_UTILS.ADD_MESSAGE('PA','PA_DEL_SUBPROJ_VAL_FAIL');
4618: RAISE FND_API.G_EXC_ERROR;
4619: END IF;
4620: IF (p_debug_mode = 'Y') THEN
4621: pa_debug.debug('Return Status PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS=> '||l_upd_prog_grp_status);
4622: END IF;
4623: EXCEPTION
4624:
4625: -- Begin fix for Bug # 4485908.
4673: raise FND_API.G_EXC_ERROR;
4674: END IF;
4675: --
4676: IF (p_debug_mode = 'Y') THEN
4677: pa_debug.debug('Return status after call to PA_OBJECT_RELATIONSHIPS_PKG.DELETE_ROW=> '||x_return_status);
4678: END IF;
4679: --
4680: -- PA_TASK_PVT1.Delete_Task_Version(pora.object_id_to1);
4681: OPEN get_rec_ver_num(get_lnk_info_rec.lnk_task_ver_id);
4710: raise FND_API.G_EXC_ERROR;
4711: END IF;
4712: --
4713: IF (p_debug_mode = 'Y') THEN
4714: pa_debug.debug('Return status after call to PA_TASK_PUB1.DELETE_TASK_VERSION=> '||x_return_status);
4715: END IF;
4716: --
4717: CLOSE get_rec_ver_num;
4718: END LOOP;
4817: COMMIT;
4818: END IF;
4819: --
4820: IF (p_debug_mode = 'Y') THEN
4821: pa_debug.debug('Return status before the end of Delete_SubProject_Association=> '||x_return_status);
4822: END IF;
4823: --
4824: IF (p_debug_mode = 'Y') THEN
4825: pa_debug.debug('PA_RELATIONSHIP_PVT.Delete_SubProject_Association end');
4821: pa_debug.debug('Return status before the end of Delete_SubProject_Association=> '||x_return_status);
4822: END IF;
4823: --
4824: IF (p_debug_mode = 'Y') THEN
4825: pa_debug.debug('PA_RELATIONSHIP_PVT.Delete_SubProject_Association end');
4826: END IF;
4827: --
4828: EXCEPTION
4829: WHEN FND_API.G_EXC_ERROR THEN
4923: AND proj_element_id = c_link_task_id;
4924: BEGIN
4925: --
4926: IF (p_debug_mode = 'Y') THEN
4927: pa_debug.debug('PA_RELATIONSHIP_PVT.Copy_OG_Lnk_For_Subproj_Ass begin');
4928: END IF;
4929: --
4930: IF (p_commit = FND_API.G_TRUE) THEN
4931: savepoint Copy_OG_Lnk_For_Subproj_Ass;
4931: savepoint Copy_OG_Lnk_For_Subproj_Ass;
4932: END IF;
4933: --
4934: IF (p_debug_mode = 'Y') THEN
4935: pa_debug.debug('Value of p_src_str_version_id => '||p_src_str_version_id);
4936: pa_debug.debug('Value of p_dest_str_version_id => '||p_dest_str_version_id);
4937: END IF;
4938: --
4939: IF (p_debug_mode = 'Y') THEN
4932: END IF;
4933: --
4934: IF (p_debug_mode = 'Y') THEN
4935: pa_debug.debug('Value of p_src_str_version_id => '||p_src_str_version_id);
4936: pa_debug.debug('Value of p_dest_str_version_id => '||p_dest_str_version_id);
4937: END IF;
4938: --
4939: IF (p_debug_mode = 'Y') THEN
4940: pa_debug.debug('Value of p_src_str_version_id before get_linking_task_info => '||p_src_str_version_id);
4936: pa_debug.debug('Value of p_dest_str_version_id => '||p_dest_str_version_id);
4937: END IF;
4938: --
4939: IF (p_debug_mode = 'Y') THEN
4940: pa_debug.debug('Value of p_src_str_version_id before get_linking_task_info => '||p_src_str_version_id);
4941: END IF;
4942: OPEN get_linking_task_info(p_src_str_version_id);
4943: LOOP
4944: FETCH get_linking_task_info INTO get_linking_task_info_rec;
4945: IF get_linking_task_info%NOTFOUND THEN
4946: EXIT;
4947: END IF;
4948: IF (p_debug_mode = 'Y') THEN
4949: pa_debug.debug('Value of get_linking_task_info_rec lnk_task_ver_id before get_going_out_lnk_info cur => '||get_linking_task_info_rec.lnk_task_ver_id);
4950: END IF;
4951: OPEN get_going_out_lnk_info(get_linking_task_info_rec.lnk_task_ver_id);
4952: LOOP
4953: FETCH get_going_out_lnk_info into get_going_out_lnk_info_rec;
4962: FROM pa_proj_element_versions
4963: WHERE parent_structure_Version_id = p_dest_str_version_id
4964: AND proj_element_id = get_linking_task_info_rec.lnk_task_id;
4965: IF (p_debug_mode = 'Y') THEN
4966: pa_debug.debug('Value of l_new_pub_lnk_task_ver_id after select=> '||l_new_pub_lnk_task_ver_id);
4967: pa_debug.debug('Value of p_dest_str_version_id after select => '||p_dest_str_version_id);
4968: END IF;
4969: EXCEPTION
4970: WHEN OTHERS THEN
4963: WHERE parent_structure_Version_id = p_dest_str_version_id
4964: AND proj_element_id = get_linking_task_info_rec.lnk_task_id;
4965: IF (p_debug_mode = 'Y') THEN
4966: pa_debug.debug('Value of l_new_pub_lnk_task_ver_id after select=> '||l_new_pub_lnk_task_ver_id);
4967: pa_debug.debug('Value of p_dest_str_version_id after select => '||p_dest_str_version_id);
4968: END IF;
4969: EXCEPTION
4970: WHEN OTHERS THEN
4971: RAISE;
5011: END IF;
5012: -- End 4537865
5013:
5014: IF (p_debug_mode = 'Y') THEN
5015: pa_debug.debug('Value of x_object_relationship_id=> '||l_object_relationship_id);
5016: pa_debug.debug('Value of l_new_pub_lnk_task_ver_id=> '||l_new_pub_lnk_task_ver_id);
5017: pa_debug.debug('Value of x_return_status after call to PA_OBJECT_RELATIONSHIPS_PKG INSERT_ROW=> '||x_return_status);
5018: END IF;
5019: --
5012: -- End 4537865
5013:
5014: IF (p_debug_mode = 'Y') THEN
5015: pa_debug.debug('Value of x_object_relationship_id=> '||l_object_relationship_id);
5016: pa_debug.debug('Value of l_new_pub_lnk_task_ver_id=> '||l_new_pub_lnk_task_ver_id);
5017: pa_debug.debug('Value of x_return_status after call to PA_OBJECT_RELATIONSHIPS_PKG INSERT_ROW=> '||x_return_status);
5018: END IF;
5019: --
5020: --Bug No 3450684
5013:
5014: IF (p_debug_mode = 'Y') THEN
5015: pa_debug.debug('Value of x_object_relationship_id=> '||l_object_relationship_id);
5016: pa_debug.debug('Value of l_new_pub_lnk_task_ver_id=> '||l_new_pub_lnk_task_ver_id);
5017: pa_debug.debug('Value of x_return_status after call to PA_OBJECT_RELATIONSHIPS_PKG INSERT_ROW=> '||x_return_status);
5018: END IF;
5019: --
5020: --Bug No 3450684
5021: BEGIN
5025: PA_UTILS.ADD_MESSAGE('PA','PA_CP_SUBPROJ_VAL_FAIL');
5026: RAISE FND_API.G_EXC_ERROR;
5027: END IF;
5028: IF (p_debug_mode = 'Y') THEN
5029: pa_debug.debug('Return Status PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS=> '||l_upd_prog_grp_status);
5030: END IF;
5031: EXCEPTION
5032:
5033: -- Begin fix for Bug # 4485908.
5055: COMMIT;
5056: END IF;
5057: --
5058: IF (p_debug_mode = 'Y') THEN
5059: pa_debug.debug('Return status before the end of Copy_OG_Lnk_For_Subproj_Ass=> '||x_return_status);
5060: END IF;
5061: --
5062: IF (p_debug_mode = 'Y') THEN
5063: pa_debug.debug('PA_RELATIONSHIP_PVT.Copy_OG_Lnk_For_Subproj_Ass end');
5059: pa_debug.debug('Return status before the end of Copy_OG_Lnk_For_Subproj_Ass=> '||x_return_status);
5060: END IF;
5061: --
5062: IF (p_debug_mode = 'Y') THEN
5063: pa_debug.debug('PA_RELATIONSHIP_PVT.Copy_OG_Lnk_For_Subproj_Ass end');
5064: END IF;
5065: --
5066: EXCEPTION
5067: WHEN FND_API.G_EXC_ERROR THEN
5183:
5184: BEGIN
5185: --
5186: IF (p_debug_mode = 'Y') THEN
5187: pa_debug.debug('PA_RELATIONSHIP_PVT.Move_CI_Lnk_For_subproj_step2 begin');
5188: END IF;
5189: --
5190: IF (p_commit = FND_API.G_TRUE) THEN
5191: savepoint Move_CI_Lnk_For_subproj_step2;
5193:
5194: x_return_status := FND_API.G_RET_STS_SUCCESS; -- 4537865
5195: --
5196: /* IF (p_debug_mode = 'Y') THEN
5197: pa_debug.debug('Deleting the object_relationships_id => ');
5198: END IF;*/
5199: --
5200: OPEN get_coming_in_lnk_info(p_src_str_version_id);
5201: LOOP
5283: PA_UTILS.ADD_MESSAGE('PA','PA_CRT_SUBPROJ_VAL_FAIL','PROJ',l_proj_name,'PROG',l_prog_name); -- Bug # 4329284.
5284: RAISE FND_API.G_EXC_ERROR;
5285: END IF;
5286: IF (p_debug_mode = 'Y') THEN
5287: pa_debug.debug('Return Status PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS=> '||l_upd_prog_grp_status);
5288: END IF;
5289: EXCEPTION
5290:
5291: -- Begin fix for Bug # 4485908.
5311: PA_UTILS.ADD_MESSAGE('PA','PA_MV_DEL_SUBPROJ_VAL_FAIL');
5312: RAISE FND_API.G_EXC_ERROR;
5313: END IF;
5314: IF (p_debug_mode = 'Y') THEN
5315: pa_debug.debug('Return Status PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS=> '||l_upd_prog_grp_status);
5316: END IF;
5317: EXCEPTION
5318:
5319: -- Begin fix for Bug # 4485908.
5365: COMMIT;
5366: END IF;
5367: --
5368: IF (p_debug_mode = 'Y') THEN
5369: pa_debug.debug('Return status before the end of Delete_SubProject_Association=> '||x_return_status);
5370: END IF;
5371: --
5372: IF (p_debug_mode = 'Y') THEN
5373: pa_debug.debug('PA_RELATIONSHIP_PVT.Move_CI_Lnk_For_subproj_step2 end');
5369: pa_debug.debug('Return status before the end of Delete_SubProject_Association=> '||x_return_status);
5370: END IF;
5371: --
5372: IF (p_debug_mode = 'Y') THEN
5373: pa_debug.debug('PA_RELATIONSHIP_PVT.Move_CI_Lnk_For_subproj_step2 end');
5374: END IF;
5375: --
5376: EXCEPTION
5377: WHEN FND_API.G_EXC_ERROR THEN
5421: IS
5422: BEGIN
5423: --
5424: IF (p_debug_mode = 'Y') THEN
5425: pa_debug.debug('PA_RELATIONSHIP_PVT.Move_CI_Lnk_For_subproj_step1 begin');
5426: END IF;
5427: --
5428: IF (p_commit = FND_API.G_TRUE) THEN
5429: savepoint Move_CI_Lnk_For_subproj_step1;
5429: savepoint Move_CI_Lnk_For_subproj_step1;
5430: END IF;
5431: --
5432: /* IF (p_debug_mode = 'Y') THEN
5433: pa_debug.debug('Deleting the object_relationships_id => ');
5434: END IF;*/
5435: --
5436: /*Move all the link coming into the working structure version*/
5437: Move_CI_Lnk_For_subproj_step2(p_src_str_version_id=>p_src_str_version_id,
5465: COMMIT;
5466: END IF;
5467: --
5468: IF (p_debug_mode = 'Y') THEN
5469: pa_debug.debug('Return status before the end of Move_CI_Lnk_For_subproj_step1=> '||x_return_status);
5470: END IF;
5471: --
5472: IF (p_debug_mode = 'Y') THEN
5473: pa_debug.debug('PA_RELATIONSHIP_PVT.Move_CI_Lnk_For_subproj_step1 end');
5469: pa_debug.debug('Return status before the end of Move_CI_Lnk_For_subproj_step1=> '||x_return_status);
5470: END IF;
5471: --
5472: IF (p_debug_mode = 'Y') THEN
5473: pa_debug.debug('PA_RELATIONSHIP_PVT.Move_CI_Lnk_For_subproj_step1 end');
5474: END IF;
5475: --
5476: EXCEPTION
5477: WHEN FND_API.G_EXC_ERROR THEN
5565: AND relationship_type = 'LW'; --Financial links should not be specified here bcoz Process WBS updates can be run only for workplan structures.
5566: BEGIN
5567:
5568: IF (p_debug_mode = 'Y') THEN
5569: pa_debug.debug('PA_RELATIONSHIP_PVT.UPDATE_DEPENDENCY begin');
5570: END IF;
5571:
5572: IF (p_commit = FND_API.G_TRUE) THEN
5573: savepoint UPDATE_PARENT_WBS_FLAG_DIRTY;
5574: END IF;
5575:
5576: x_return_status := FND_API.G_RET_STS_SUCCESS;
5577:
5578: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5579:
5580: IF l_debug_mode = 'Y' THEN
5581: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.UPDATE_PARENT_WBS_FLAG_DIRTY', x_Msg => 'p_project_id: '||p_project_id, x_Log_Level=> 3);
5582: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.UPDATE_PARENT_WBS_FLAG_DIRTY', x_Msg => 'p_structure_version_id: '||p_structure_version_id, x_Log_Level=> 3);
5577:
5578: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5579:
5580: IF l_debug_mode = 'Y' THEN
5581: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.UPDATE_PARENT_WBS_FLAG_DIRTY', x_Msg => 'p_project_id: '||p_project_id, x_Log_Level=> 3);
5582: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.UPDATE_PARENT_WBS_FLAG_DIRTY', x_Msg => 'p_structure_version_id: '||p_structure_version_id, x_Log_Level=> 3);
5583: END IF;
5584:
5585: FOR cur_obj_rel_rec in cur_obj_rel LOOP
5578: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5579:
5580: IF l_debug_mode = 'Y' THEN
5581: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.UPDATE_PARENT_WBS_FLAG_DIRTY', x_Msg => 'p_project_id: '||p_project_id, x_Log_Level=> 3);
5582: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.UPDATE_PARENT_WBS_FLAG_DIRTY', x_Msg => 'p_structure_version_id: '||p_structure_version_id, x_Log_Level=> 3);
5583: END IF;
5584:
5585: FOR cur_obj_rel_rec in cur_obj_rel LOOP
5586: UPDATE pa_proj_elem_ver_structure
5594: );
5595: END LOOP;
5596:
5597: IF l_debug_mode = 'Y' THEN
5598: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.UPDATE_PARENT_WBS_FLAG_DIRTY', x_Msg => 'Completed', x_Log_Level=> 3);
5599: END IF;
5600:
5601: IF (p_commit = FND_API.G_TRUE) THEN
5602: COMMIT;
5602: COMMIT;
5603: END IF;
5604:
5605: IF (p_debug_mode = 'Y') THEN
5606: pa_debug.debug('PA_RELATIONSHIP_PVT.UPDATE_PARENT_WBS_FLAG_DIRTY END');
5607: END IF;
5608:
5609:
5610: EXCEPTION