[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;
1208:
1209: --create record in object relationships table
1210: --Added by rtarway, 4218977
1211: IF l_debug_mode = 'Y' THEN
1212: pa_debug.g_err_stage := 'Value of G_OP_VALIDATE_flag'||PA_PROJECT_PUB.G_OP_VALIDATE_FLAG ;
1213: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1214: END IF;
1215:
1216: IF p_src_proj_id = p_dest_proj_id
1209: --create record in object relationships table
1210: --Added by rtarway, 4218977
1211: IF l_debug_mode = 'Y' THEN
1212: pa_debug.g_err_stage := 'Value of G_OP_VALIDATE_flag'||PA_PROJECT_PUB.G_OP_VALIDATE_FLAG ;
1213: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1214: END IF;
1215:
1216: IF p_src_proj_id = p_dest_proj_id
1217: THEN
1405: COMMIT;
1406: END IF;
1407:
1408: IF (p_debug_mode = 'Y') THEN
1409: pa_debug.debug('PA_RELATIONSHIP_PVT.CREATE_DEPENDENCY END');
1410: END IF;
1411:
1412: EXCEPTION
1413: when FND_API.G_EXC_ERROR then
1507: AND relationship_type = 'D';
1508: BEGIN
1509:
1510: IF (p_debug_mode = 'Y') THEN
1511: pa_debug.debug('PA_RELATIONSHIP_PVT.UPDATE_DEPENDENCY begin');
1512: END IF;
1513:
1514: IF (p_commit = FND_API.G_TRUE) THEN
1515: savepoint update_dependency_pvt;
1578: COMMIT;
1579: END IF;
1580:
1581: IF (p_debug_mode = 'Y') THEN
1582: pa_debug.debug('PA_RELATIONSHIP_PVT.UPDATE_DEPENDENCY END');
1583: END IF;
1584:
1585: EXCEPTION
1586: when FND_API.G_EXC_ERROR then
1692: l_struc_ver_id NUMBER;
1693: BEGIN
1694:
1695: IF (p_debug_mode = 'Y') THEN
1696: pa_debug.debug('PA_RELATIONSHIP_PVT.DELETE_DEPENDENCY begin');
1697: END IF;
1698:
1699: IF (p_commit = FND_API.G_TRUE) THEN
1700: savepoint delete_dependency_pvt;
1759: COMMIT;
1760: END IF;
1761:
1762: IF (p_debug_mode = 'Y') THEN
1763: pa_debug.debug('PA_RELATIONSHIP_PVT.DELETE_DEPENDENCY END');
1764: END IF;
1765: EXCEPTION
1766: when FND_API.G_EXC_ERROR then
1767: if p_commit = FND_API.G_TRUE then
2059: BEGIN
2060: Delete from PA_COPY_DEP_TEMP; --Bug#8842950
2061:
2062: --debug messages added while fixing bug 5067296
2063: l_debug_mode := NVL(FND_PROFILE.value_specific('PA_DEBUG_MODE',fnd_global.user_id,fnd_global.login_id,275,null,null), 'N');
2064:
2065: IF (l_debug_mode = 'Y') THEN
2066: 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);
2067: /* These two lines are causing bug 5076461 in publish flow.
2062: --debug messages added while fixing bug 5067296
2063: l_debug_mode := NVL(FND_PROFILE.value_specific('PA_DEBUG_MODE',fnd_global.user_id,fnd_global.login_id,275,null,null), 'N');
2064:
2065: IF (l_debug_mode = 'Y') THEN
2066: 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);
2067: /* These two lines are causing bug 5076461 in publish flow.
2068: 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);
2069: 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);
2070: */
2064:
2065: IF (l_debug_mode = 'Y') THEN
2066: 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);
2067: /* These two lines are causing bug 5076461 in publish flow.
2068: 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);
2069: 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);
2070: */
2071: 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);
2072: 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: IF (l_debug_mode = 'Y') THEN
2066: 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);
2067: /* These two lines are causing bug 5076461 in publish flow.
2068: 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);
2069: 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);
2070: */
2071: 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);
2072: 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);
2073: END IF;
2067: /* These two lines are causing bug 5076461 in publish flow.
2068: 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);
2069: 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);
2070: */
2071: 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);
2072: 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);
2073: END IF;
2074: --debug messages added while fixing bug 5067296
2075:
2068: 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);
2069: 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);
2070: */
2071: 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);
2072: 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);
2073: END IF;
2074: --debug messages added while fixing bug 5067296
2075:
2076:
2079: --bug 4153377
2080: --insert mapping ids
2081: --debug messages added while fixing bug 5067296
2082: IF (l_debug_mode = 'Y') THEN
2083: 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);
2084: END IF;
2085: --debug messages added while fixing bug 5067296
2086: Forall i IN 1..P_Source_Ver_Tbl.Count
2087: INSERT INTO PA_COPY_DEP_TEMP(SRC_TASK_VER_ID, DEST_TASK_VER_ID)
2101: -- dest_task_ver_id.
2102:
2103: --debug messages added while fixing bug 5067296
2104: IF (l_debug_mode = 'Y') THEN
2105: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'Before cursor l_cur_all_tasks', x_Log_Level=> 3);
2106: END IF;
2107: --debug messages added while fixing bug 5067296
2108:
2109: IF P_Source_Ver_Tbl.Count > 0 --bug 5067296
2115: END IF;
2116:
2117: --debug messages added while fixing bug 5067296
2118: IF (l_debug_mode = 'Y') THEN
2119: 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);
2120: END IF;
2121: --debug messages added while fixing bug 5067296
2122:
2123: if (NVL(l_count_all_tasks,0) > 0) then
2158: CLOSE get_parent_struc_ver_id;
2159:
2160: --debug messages added while fixing bug 5067296
2161: IF (l_debug_mode = 'Y') THEN
2162: 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);
2163: 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);
2164: END IF;
2165: --debug messages added while fixing bug 5067296
2166:
2159:
2160: --debug messages added while fixing bug 5067296
2161: IF (l_debug_mode = 'Y') THEN
2162: 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);
2163: 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);
2164: END IF;
2165: --debug messages added while fixing bug 5067296
2166:
2167: IF (l_parent_ver_id1 = l_parent_ver_id2) THEN
2191: --use get_struc_dependency to populate table
2192:
2193: --debug messages added while fixing bug 5067296
2194: IF (l_debug_mode = 'Y') THEN
2195: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'Before opening cursor get_struc_dependency', x_Log_Level=> 3);
2196: END IF;
2197: --debug messages added while fixing bug 5067296
2198:
2199: OPEN get_struc_dependency;
2214:
2215: --bulk insert into pa_object_relationships table
2216: --debug messages added while fixing bug 5067296
2217: IF (l_debug_mode = 'Y') THEN
2218: 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);
2219: END IF;
2220: --debug messages added while fixing bug 5067296
2221:
2222: FORALL i IN 1..l_suc_ver_id_tbl.COUNT
3055:
3056: BEGIN
3057: --
3058: IF (p_debug_mode = 'Y') THEN
3059: pa_debug.debug('PA_RELATIONSHIP_PVT.Insert_Subproject_Association begin');
3060: END IF;
3061: --
3062: IF (p_commit = FND_API.G_TRUE) THEN
3063: savepoint Insert_Subproject_Association;
3063: savepoint Insert_Subproject_Association;
3064: END IF;
3065: --
3066: IF (p_debug_mode = 'Y') THEN
3067: pa_debug.debug('Performing validations');
3068: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK Src Proj Id => '||p_src_proj_id);
3069: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK Src Structure Elem Id=> '||p_src_struc_elem_id);
3070: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK Src Structure Elem Ver Id => '||p_src_struc_elem_ver_id);
3071: pa_debug.debug('Before PA_TASK_PUB1.CREATE_TASK Linking Task Name Number => '||p_lnk_task_name_number);
3064: END IF;
3065: --
3066: IF (p_debug_mode = 'Y') THEN
3067: pa_debug.debug('Performing validations');
3068: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK Src Proj Id => '||p_src_proj_id);
3069: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK Src Structure Elem Id=> '||p_src_struc_elem_id);
3070: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK Src Structure Elem Ver Id => '||p_src_struc_elem_ver_id);
3071: pa_debug.debug('Before PA_TASK_PUB1.CREATE_TASK Linking Task Name Number => '||p_lnk_task_name_number);
3072: END IF;
3065: --
3066: IF (p_debug_mode = 'Y') THEN
3067: pa_debug.debug('Performing validations');
3068: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK Src Proj Id => '||p_src_proj_id);
3069: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK Src Structure Elem Id=> '||p_src_struc_elem_id);
3070: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK Src Structure Elem Ver Id => '||p_src_struc_elem_ver_id);
3071: pa_debug.debug('Before PA_TASK_PUB1.CREATE_TASK Linking Task Name Number => '||p_lnk_task_name_number);
3072: END IF;
3073: --
3066: IF (p_debug_mode = 'Y') THEN
3067: pa_debug.debug('Performing validations');
3068: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK Src Proj Id => '||p_src_proj_id);
3069: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK Src Structure Elem Id=> '||p_src_struc_elem_id);
3070: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK Src Structure Elem Ver Id => '||p_src_struc_elem_ver_id);
3071: pa_debug.debug('Before PA_TASK_PUB1.CREATE_TASK Linking Task Name Number => '||p_lnk_task_name_number);
3072: END IF;
3073: --
3074: /* Creating linking task in the pa_proj_elements table*/
3067: pa_debug.debug('Performing validations');
3068: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK Src Proj Id => '||p_src_proj_id);
3069: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK Src Structure Elem Id=> '||p_src_struc_elem_id);
3070: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK Src Structure Elem Ver Id => '||p_src_struc_elem_ver_id);
3071: pa_debug.debug('Before PA_TASK_PUB1.CREATE_TASK Linking Task Name Number => '||p_lnk_task_name_number);
3072: END IF;
3073: --
3074: /* Creating linking task in the pa_proj_elements table*/
3075: PA_TASK_PUB1.CREATE_TASK
3114: x_return_status:=FND_API.G_RET_STS_ERROR;
3115: END IF;
3116: --
3117: IF (p_debug_mode = 'Y') THEN
3118: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK Return Status => '||x_return_status);
3119: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK => '||x_lnk_task_elem_id);
3120: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK_VERSION Src Structure Elem Id=> '||p_src_task_elem_ver_id);
3121: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK_VERSION Linking Task Elem Id => '||x_lnk_task_elem_id);
3122: END IF;
3115: END IF;
3116: --
3117: IF (p_debug_mode = 'Y') THEN
3118: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK Return Status => '||x_return_status);
3119: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK => '||x_lnk_task_elem_id);
3120: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK_VERSION Src Structure Elem Id=> '||p_src_task_elem_ver_id);
3121: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK_VERSION Linking Task Elem Id => '||x_lnk_task_elem_id);
3122: END IF;
3123: --
3116: --
3117: IF (p_debug_mode = 'Y') THEN
3118: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK Return Status => '||x_return_status);
3119: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK => '||x_lnk_task_elem_id);
3120: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK_VERSION Src Structure Elem Id=> '||p_src_task_elem_ver_id);
3121: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK_VERSION Linking Task Elem Id => '||x_lnk_task_elem_id);
3122: END IF;
3123: --
3124: /* Creating linking task in the pa_proj_element_versions and pa_object_relationships table */
3117: IF (p_debug_mode = 'Y') THEN
3118: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK Return Status => '||x_return_status);
3119: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK => '||x_lnk_task_elem_id);
3120: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK_VERSION Src Structure Elem Id=> '||p_src_task_elem_ver_id);
3121: pa_debug.debug('PA_TASK_PUB1.CREATE_TASK_VERSION Linking Task Elem Id => '||x_lnk_task_elem_id);
3122: END IF;
3123: --
3124: /* Creating linking task in the pa_proj_element_versions and pa_object_relationships table */
3125: /* This API call create task in pa_proj_element_versions and creates relationship between */
3149: RAISE FND_API.G_EXC_ERROR;
3150: END IF;
3151: --
3152: IF (p_debug_mode = 'Y') THEN
3153: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK_VERSION Return Status => '||x_return_status);
3154: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK_VERSION Linking Task Elem Id => '||x_lnk_task_elem_id);
3155: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK_VERSION Linking Task Elem Ver Id=> '||x_lnk_task_elem_ver_id);
3156: pa_debug.debug('PA_TASK_PUB1.Create_Schedule_Version Linking Task Elem Ver Id=> '||x_lnk_task_elem_ver_id);
3157: END IF;
3150: END IF;
3151: --
3152: IF (p_debug_mode = 'Y') THEN
3153: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK_VERSION Return Status => '||x_return_status);
3154: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK_VERSION Linking Task Elem Id => '||x_lnk_task_elem_id);
3155: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK_VERSION Linking Task Elem Ver Id=> '||x_lnk_task_elem_ver_id);
3156: pa_debug.debug('PA_TASK_PUB1.Create_Schedule_Version Linking Task Elem Ver Id=> '||x_lnk_task_elem_ver_id);
3157: END IF;
3158: --
3151: --
3152: IF (p_debug_mode = 'Y') THEN
3153: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK_VERSION Return Status => '||x_return_status);
3154: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK_VERSION Linking Task Elem Id => '||x_lnk_task_elem_id);
3155: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK_VERSION Linking Task Elem Ver Id=> '||x_lnk_task_elem_ver_id);
3156: pa_debug.debug('PA_TASK_PUB1.Create_Schedule_Version Linking Task Elem Ver Id=> '||x_lnk_task_elem_ver_id);
3157: END IF;
3158: --
3159: --bug 4279634
3152: IF (p_debug_mode = 'Y') THEN
3153: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK_VERSION Return Status => '||x_return_status);
3154: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK_VERSION Linking Task Elem Id => '||x_lnk_task_elem_id);
3155: pa_debug.debug('After Call To PA_TASK_PUB1.CREATE_TASK_VERSION Linking Task Elem Ver Id=> '||x_lnk_task_elem_ver_id);
3156: pa_debug.debug('PA_TASK_PUB1.Create_Schedule_Version Linking Task Elem Ver Id=> '||x_lnk_task_elem_ver_id);
3157: END IF;
3158: --
3159: --bug 4279634
3160: --set chargeable to N
3223: ,x_msg_count =>x_msg_count
3224: ,x_msg_data =>x_msg_data
3225: );
3226: IF (p_debug_mode = 'Y') THEN
3227: pa_debug.debug('new workplan attr for task after call to PA_TASK_PUB1.Create_Schedule_Version=> '||x_pev_schedule_id);
3228: END IF;
3229: --
3230: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3231: x_msg_count := FND_MSG_PUB.count_msg;
3243: END IF;
3244: END IF;
3245: --
3246: IF (p_debug_mode = 'Y') THEN
3247: pa_debug.debug('After Call To PA_TASK_PUB1.Create_Schedule_Version Return Status => '||x_return_status);
3248: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Linking Task Elem Ver Id => '||x_lnk_task_elem_ver_id);
3249: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Src Proj Id=> '||p_src_proj_id);
3250: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Dest Struc Elem Ver Id=> '||p_dest_struc_elem_ver_id);
3251: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Dest Proj Id=> '||p_dest_proj_id);
3244: END IF;
3245: --
3246: IF (p_debug_mode = 'Y') THEN
3247: pa_debug.debug('After Call To PA_TASK_PUB1.Create_Schedule_Version Return Status => '||x_return_status);
3248: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Linking Task Elem Ver Id => '||x_lnk_task_elem_ver_id);
3249: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Src Proj Id=> '||p_src_proj_id);
3250: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Dest Struc Elem Ver Id=> '||p_dest_struc_elem_ver_id);
3251: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Dest Proj Id=> '||p_dest_proj_id);
3252: END IF;
3245: --
3246: IF (p_debug_mode = 'Y') THEN
3247: pa_debug.debug('After Call To PA_TASK_PUB1.Create_Schedule_Version Return Status => '||x_return_status);
3248: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Linking Task Elem Ver Id => '||x_lnk_task_elem_ver_id);
3249: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Src Proj Id=> '||p_src_proj_id);
3250: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Dest Struc Elem Ver Id=> '||p_dest_struc_elem_ver_id);
3251: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Dest Proj Id=> '||p_dest_proj_id);
3252: END IF;
3253: --
3246: IF (p_debug_mode = 'Y') THEN
3247: pa_debug.debug('After Call To PA_TASK_PUB1.Create_Schedule_Version Return Status => '||x_return_status);
3248: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Linking Task Elem Ver Id => '||x_lnk_task_elem_ver_id);
3249: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Src Proj Id=> '||p_src_proj_id);
3250: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Dest Struc Elem Ver Id=> '||p_dest_struc_elem_ver_id);
3251: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Dest Proj Id=> '||p_dest_proj_id);
3252: END IF;
3253: --
3254: /* This API call create relationship between linking task and destination structure vesion */
3247: pa_debug.debug('After Call To PA_TASK_PUB1.Create_Schedule_Version Return Status => '||x_return_status);
3248: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Linking Task Elem Ver Id => '||x_lnk_task_elem_ver_id);
3249: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Src Proj Id=> '||p_src_proj_id);
3250: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Dest Struc Elem Ver Id=> '||p_dest_struc_elem_ver_id);
3251: pa_debug.debug('PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Dest Proj Id=> '||p_dest_proj_id);
3252: END IF;
3253: --
3254: /* This API call create relationship between linking task and destination structure vesion */
3255: /* in the pa_object_relationships table */
3362: PA_UTILS.ADD_MESSAGE('PA','PA_CRT_SUBPROJ_VAL_FAIL','PROJ',l_proj_name,'PROG',l_prog_name); -- Bug # 4329284.
3363: RAISE FND_API.G_EXC_ERROR;
3364: END IF;
3365: IF (p_debug_mode = 'Y') THEN
3366: pa_debug.debug('Return Status PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS=> '||l_upd_prog_grp_status);
3367: END IF;
3368: END IF;
3369: EXCEPTION
3370:
3383: RAISE FND_API.G_EXC_ERROR;
3384: END;
3385: --
3386: IF (p_debug_mode = 'Y') THEN
3387: pa_debug.debug('After Call To PA_OBJECT_RELATIONSHIPS_PKG.INSERT_ROW Return Status => '||x_return_status);
3388: END IF;
3389: --
3390: x_return_status := FND_API.G_RET_STS_SUCCESS;
3391: --
3393: COMMIT;
3394: END IF;
3395: --
3396: IF (p_debug_mode = 'Y') THEN
3397: pa_debug.debug('PA_RELATIONSHIP_PVT.Insert_Subproject_Association END');
3398: END IF;
3399: --
3400: EXCEPTION
3401: WHEN FND_API.G_EXC_ERROR THEN
3562: -- Bug # 4329284.
3563:
3564: BEGIN
3565: IF (p_debug_mode = 'Y') THEN
3566: pa_debug.debug('PA_RELATIONSHIP_PVT.Create_Subproject_Association begin');
3567: END IF;
3568: --
3569: IF (p_commit = FND_API.G_TRUE) THEN
3570: savepoint Create_Subproject_Ass_pvt;
3570: savepoint Create_Subproject_Ass_pvt;
3571: END IF;
3572: --
3573: IF (p_debug_mode = 'Y') THEN
3574: pa_debug.debug('Performing validations');
3575: pa_debug.debug('The value of the passed src proj id=> '||p_src_proj_id);
3576: pa_debug.debug('The value of the passed src task ver id=> '||p_task_ver_id);
3577: pa_debug.debug('The value of the passed dest proj id=>'||p_dest_proj_id);
3578: pa_debug.debug('The value of the passed dest proj name id=> '||p_dest_proj_name);
3571: END IF;
3572: --
3573: IF (p_debug_mode = 'Y') THEN
3574: pa_debug.debug('Performing validations');
3575: pa_debug.debug('The value of the passed src proj id=> '||p_src_proj_id);
3576: pa_debug.debug('The value of the passed src task ver id=> '||p_task_ver_id);
3577: pa_debug.debug('The value of the passed dest proj id=>'||p_dest_proj_id);
3578: pa_debug.debug('The value of the passed dest proj name id=> '||p_dest_proj_name);
3579: pa_debug.debug('The value of the passed comments=> '||p_comment);
3572: --
3573: IF (p_debug_mode = 'Y') THEN
3574: pa_debug.debug('Performing validations');
3575: pa_debug.debug('The value of the passed src proj id=> '||p_src_proj_id);
3576: pa_debug.debug('The value of the passed src task ver id=> '||p_task_ver_id);
3577: pa_debug.debug('The value of the passed dest proj id=>'||p_dest_proj_id);
3578: pa_debug.debug('The value of the passed dest proj name id=> '||p_dest_proj_name);
3579: pa_debug.debug('The value of the passed comments=> '||p_comment);
3580: END IF;
3573: IF (p_debug_mode = 'Y') THEN
3574: pa_debug.debug('Performing validations');
3575: pa_debug.debug('The value of the passed src proj id=> '||p_src_proj_id);
3576: pa_debug.debug('The value of the passed src task ver id=> '||p_task_ver_id);
3577: pa_debug.debug('The value of the passed dest proj id=>'||p_dest_proj_id);
3578: pa_debug.debug('The value of the passed dest proj name id=> '||p_dest_proj_name);
3579: pa_debug.debug('The value of the passed comments=> '||p_comment);
3580: END IF;
3581: --
3574: pa_debug.debug('Performing validations');
3575: pa_debug.debug('The value of the passed src proj id=> '||p_src_proj_id);
3576: pa_debug.debug('The value of the passed src task ver id=> '||p_task_ver_id);
3577: pa_debug.debug('The value of the passed dest proj id=>'||p_dest_proj_id);
3578: pa_debug.debug('The value of the passed dest proj name id=> '||p_dest_proj_name);
3579: pa_debug.debug('The value of the passed comments=> '||p_comment);
3580: END IF;
3581: --
3582: -- Check for source structure type
3575: pa_debug.debug('The value of the passed src proj id=> '||p_src_proj_id);
3576: pa_debug.debug('The value of the passed src task ver id=> '||p_task_ver_id);
3577: pa_debug.debug('The value of the passed dest proj id=>'||p_dest_proj_id);
3578: pa_debug.debug('The value of the passed dest proj name id=> '||p_dest_proj_name);
3579: pa_debug.debug('The value of the passed comments=> '||p_comment);
3580: END IF;
3581: --
3582: -- Check for source structure type
3583: l_src_proj_sharing_code:=PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(p_src_proj_id);
3583: l_src_proj_sharing_code:=PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(p_src_proj_id);
3584: --
3585: --
3586: IF (p_debug_mode = 'Y') THEN
3587: pa_debug.debug('The src project id value => '||p_src_proj_id);
3588: pa_debug.debug('The src project sharing code value => '||l_src_proj_sharing_code);
3589: pa_debug.debug('The value of src task ver id => '||p_task_ver_id);
3590: END IF;
3591: --
3584: --
3585: --
3586: IF (p_debug_mode = 'Y') THEN
3587: pa_debug.debug('The src project id value => '||p_src_proj_id);
3588: pa_debug.debug('The src project sharing code value => '||l_src_proj_sharing_code);
3589: pa_debug.debug('The value of src task ver id => '||p_task_ver_id);
3590: END IF;
3591: --
3592: -- l_proj_element_id = structure element id
3585: --
3586: IF (p_debug_mode = 'Y') THEN
3587: pa_debug.debug('The src project id value => '||p_src_proj_id);
3588: pa_debug.debug('The src project sharing code value => '||l_src_proj_sharing_code);
3589: pa_debug.debug('The value of src task ver id => '||p_task_ver_id);
3590: END IF;
3591: --
3592: -- l_proj_element_id = structure element id
3593: -- l_parent_strucutre_version_id=parent structure version id
3631: RAISE;
3632: END;
3633: --
3634: IF (p_debug_mode = 'Y') THEN
3635: pa_debug.debug('The src structure elem id => '||l_src_struc_elem_id);
3636: pa_debug.debug('The src strcuture elem version id => '||l_src_struc_elem_ver_id);
3637: pa_debug.debug('The value of src task financial flag => '||l_src_task_financial_flag);
3638: pa_debug.debug('The value of src task elem id => '||l_src_task_elem_id);
3639: END IF;
3632: END;
3633: --
3634: IF (p_debug_mode = 'Y') THEN
3635: pa_debug.debug('The src structure elem id => '||l_src_struc_elem_id);
3636: pa_debug.debug('The src strcuture elem version id => '||l_src_struc_elem_ver_id);
3637: pa_debug.debug('The value of src task financial flag => '||l_src_task_financial_flag);
3638: pa_debug.debug('The value of src task elem id => '||l_src_task_elem_id);
3639: END IF;
3640: --
3633: --
3634: IF (p_debug_mode = 'Y') THEN
3635: pa_debug.debug('The src structure elem id => '||l_src_struc_elem_id);
3636: pa_debug.debug('The src strcuture elem version id => '||l_src_struc_elem_ver_id);
3637: pa_debug.debug('The value of src task financial flag => '||l_src_task_financial_flag);
3638: pa_debug.debug('The value of src task elem id => '||l_src_task_elem_id);
3639: END IF;
3640: --
3641: /* IF PA_PROJECT_STRUCTURE_UTILS.get_element_struc_type(p_src_proj_id,p_task_ver_id,'PA_TASKS') = 'WORKPLAN' THEN
3634: IF (p_debug_mode = 'Y') THEN
3635: pa_debug.debug('The src structure elem id => '||l_src_struc_elem_id);
3636: pa_debug.debug('The src strcuture elem version id => '||l_src_struc_elem_ver_id);
3637: pa_debug.debug('The value of src task financial flag => '||l_src_task_financial_flag);
3638: pa_debug.debug('The value of src task elem id => '||l_src_task_elem_id);
3639: END IF;
3640: --
3641: /* IF PA_PROJECT_STRUCTURE_UTILS.get_element_struc_type(p_src_proj_id,p_task_ver_id,'PA_TASKS') = 'WORKPLAN' THEN
3642: l_src_str_wp_enable_fl:='Y';
3654: l_src_str_fin_enable_fl:='Y';
3655: END IF;
3656: --
3657: IF (p_debug_mode = 'Y') THEN
3658: pa_debug.debug('The src str wp enable flag => '||l_src_str_wp_enable_fl);
3659: pa_debug.debug('The src str fin enable flag => '||l_src_str_fin_enable_fl);
3660: END IF;
3661:
3662: --Bug 3912783:
3655: END IF;
3656: --
3657: IF (p_debug_mode = 'Y') THEN
3658: pa_debug.debug('The src str wp enable flag => '||l_src_str_wp_enable_fl);
3659: pa_debug.debug('The src str fin enable flag => '||l_src_str_fin_enable_fl);
3660: END IF;
3661:
3662: --Bug 3912783:
3663: IF (PA_RELATIONSHIP_UTILS.Check_proj_currency_identical(p_src_proj_id,p_dest_proj_id) = 'N') THEN
3709: l_dest_wp_str_ver_id :=PA_PROJECT_STRUCTURE_UTILS.get_current_working_ver_id(p_dest_proj_id);
3710: END IF;
3711: --
3712: IF (p_debug_mode = 'Y') THEN
3713: pa_debug.debug('Dest WP Str Ver Id => '||l_dest_wp_str_ver_id);
3714: END IF;
3715: --
3716: -- IF l_dest_wp_str_ver_id IS NOT NULL THEN --Commented
3717: IF (l_dest_wp_str_ver_id >=0) THEN --SMukka
3726: WHEN OTHERS THEN
3727: RAISE;
3728: END;
3729: IF (p_debug_mode = 'Y') THEN
3730: pa_debug.debug('Dest WP Str element Id => '||l_dest_wp_struct_element_id);
3731: END IF;
3732: END IF;
3733: --
3734: IF (p_debug_mode = 'Y') THEN
3731: END IF;
3732: END IF;
3733: --
3734: IF (p_debug_mode = 'Y') THEN
3735: pa_debug.debug('Dest FIN Str Ver Id => '||l_dest_fin_str_ver_id);
3736: END IF;
3737: --
3738: -- IF l_dest_fin_str_ver_id IS NOT NULL THEN --SMukka
3739: IF (l_dest_fin_str_ver_id >= 0) THEN --SMukka
3748: WHEN OTHERS THEN
3749: RAISE;
3750: END;
3751: IF (p_debug_mode = 'Y') THEN
3752: pa_debug.debug('Dest FIN Str element Id => '||l_dest_fin_struct_element_id);
3753: END IF;
3754: END IF;
3755: --
3756: -- Create linking task
3804: l_task_name_number := substr(fnd_date.date_to_canonical(sysdate),0,25);
3805: --
3806: --
3807: IF (p_debug_mode = 'Y') THEN
3808: pa_debug.debug('Before call to Insert_Subproject_Association');
3809: pa_debug.debug('Before call to ISPA Src Project Id => '||p_src_proj_id);
3810: pa_debug.debug('Before call to ISPA Src Strcuture elem id => '||l_src_struc_elem_id);
3811: pa_debug.debug('Before call to ISPA Src Structure elem version id => '||l_src_struc_elem_ver_id);
3812: pa_debug.debug('Before call to ISPA Src Task elem id => '||l_src_task_elem_id);
3805: --
3806: --
3807: IF (p_debug_mode = 'Y') THEN
3808: pa_debug.debug('Before call to Insert_Subproject_Association');
3809: pa_debug.debug('Before call to ISPA Src Project Id => '||p_src_proj_id);
3810: pa_debug.debug('Before call to ISPA Src Strcuture elem id => '||l_src_struc_elem_id);
3811: pa_debug.debug('Before call to ISPA Src Structure elem version id => '||l_src_struc_elem_ver_id);
3812: pa_debug.debug('Before call to ISPA Src Task elem id => '||l_src_task_elem_id);
3813: pa_debug.debug('Before call to ISPA Src Task elem version id => '||p_task_ver_id);
3806: --
3807: IF (p_debug_mode = 'Y') THEN
3808: pa_debug.debug('Before call to Insert_Subproject_Association');
3809: pa_debug.debug('Before call to ISPA Src Project Id => '||p_src_proj_id);
3810: pa_debug.debug('Before call to ISPA Src Strcuture elem id => '||l_src_struc_elem_id);
3811: pa_debug.debug('Before call to ISPA Src Structure elem version id => '||l_src_struc_elem_ver_id);
3812: pa_debug.debug('Before call to ISPA Src Task elem id => '||l_src_task_elem_id);
3813: pa_debug.debug('Before call to ISPA Src Task elem version id => '||p_task_ver_id);
3814: pa_debug.debug('Before call to ISPA Src Task Financial Flag => '||l_src_task_financial_flag);
3807: IF (p_debug_mode = 'Y') THEN
3808: pa_debug.debug('Before call to Insert_Subproject_Association');
3809: pa_debug.debug('Before call to ISPA Src Project Id => '||p_src_proj_id);
3810: pa_debug.debug('Before call to ISPA Src Strcuture elem id => '||l_src_struc_elem_id);
3811: pa_debug.debug('Before call to ISPA Src Structure elem version id => '||l_src_struc_elem_ver_id);
3812: pa_debug.debug('Before call to ISPA Src Task elem id => '||l_src_task_elem_id);
3813: pa_debug.debug('Before call to ISPA Src Task elem version id => '||p_task_ver_id);
3814: pa_debug.debug('Before call to ISPA Src Task Financial Flag => '||l_src_task_financial_flag);
3815: pa_debug.debug('Before call to ISPA Dest Project id => '||p_dest_proj_id);
3808: pa_debug.debug('Before call to Insert_Subproject_Association');
3809: pa_debug.debug('Before call to ISPA Src Project Id => '||p_src_proj_id);
3810: pa_debug.debug('Before call to ISPA Src Strcuture elem id => '||l_src_struc_elem_id);
3811: pa_debug.debug('Before call to ISPA Src Structure elem version id => '||l_src_struc_elem_ver_id);
3812: pa_debug.debug('Before call to ISPA Src Task elem id => '||l_src_task_elem_id);
3813: pa_debug.debug('Before call to ISPA Src Task elem version id => '||p_task_ver_id);
3814: pa_debug.debug('Before call to ISPA Src Task Financial Flag => '||l_src_task_financial_flag);
3815: pa_debug.debug('Before call to ISPA Dest Project id => '||p_dest_proj_id);
3816: pa_debug.debug('Before call to ISPA Linking Task element id => '||l_lnk_task_elem_id);
3809: pa_debug.debug('Before call to ISPA Src Project Id => '||p_src_proj_id);
3810: pa_debug.debug('Before call to ISPA Src Strcuture elem id => '||l_src_struc_elem_id);
3811: pa_debug.debug('Before call to ISPA Src Structure elem version id => '||l_src_struc_elem_ver_id);
3812: pa_debug.debug('Before call to ISPA Src Task elem id => '||l_src_task_elem_id);
3813: pa_debug.debug('Before call to ISPA Src Task elem version id => '||p_task_ver_id);
3814: pa_debug.debug('Before call to ISPA Src Task Financial Flag => '||l_src_task_financial_flag);
3815: pa_debug.debug('Before call to ISPA Dest Project id => '||p_dest_proj_id);
3816: pa_debug.debug('Before call to ISPA Linking Task element id => '||l_lnk_task_elem_id);
3817: pa_debug.debug('Before call to ISPA Linking Task Element Version Id => '||l_lnk_task_elem_ver_id);
3810: pa_debug.debug('Before call to ISPA Src Strcuture elem id => '||l_src_struc_elem_id);
3811: pa_debug.debug('Before call to ISPA Src Structure elem version id => '||l_src_struc_elem_ver_id);
3812: pa_debug.debug('Before call to ISPA Src Task elem id => '||l_src_task_elem_id);
3813: pa_debug.debug('Before call to ISPA Src Task elem version id => '||p_task_ver_id);
3814: pa_debug.debug('Before call to ISPA Src Task Financial Flag => '||l_src_task_financial_flag);
3815: pa_debug.debug('Before call to ISPA Dest Project id => '||p_dest_proj_id);
3816: pa_debug.debug('Before call to ISPA Linking Task element id => '||l_lnk_task_elem_id);
3817: pa_debug.debug('Before call to ISPA Linking Task Element Version Id => '||l_lnk_task_elem_ver_id);
3818: pa_debug.debug('Before call to ISPA Linking Task Name Number => '||l_task_name_number);
3811: pa_debug.debug('Before call to ISPA Src Structure elem version id => '||l_src_struc_elem_ver_id);
3812: pa_debug.debug('Before call to ISPA Src Task elem id => '||l_src_task_elem_id);
3813: pa_debug.debug('Before call to ISPA Src Task elem version id => '||p_task_ver_id);
3814: pa_debug.debug('Before call to ISPA Src Task Financial Flag => '||l_src_task_financial_flag);
3815: pa_debug.debug('Before call to ISPA Dest Project id => '||p_dest_proj_id);
3816: pa_debug.debug('Before call to ISPA Linking Task element id => '||l_lnk_task_elem_id);
3817: pa_debug.debug('Before call to ISPA Linking Task Element Version Id => '||l_lnk_task_elem_ver_id);
3818: pa_debug.debug('Before call to ISPA Linking Task Name Number => '||l_task_name_number);
3819: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_wp_struct_element_id);
3812: pa_debug.debug('Before call to ISPA Src Task elem id => '||l_src_task_elem_id);
3813: pa_debug.debug('Before call to ISPA Src Task elem version id => '||p_task_ver_id);
3814: pa_debug.debug('Before call to ISPA Src Task Financial Flag => '||l_src_task_financial_flag);
3815: pa_debug.debug('Before call to ISPA Dest Project id => '||p_dest_proj_id);
3816: pa_debug.debug('Before call to ISPA Linking Task element id => '||l_lnk_task_elem_id);
3817: pa_debug.debug('Before call to ISPA Linking Task Element Version Id => '||l_lnk_task_elem_ver_id);
3818: pa_debug.debug('Before call to ISPA Linking Task Name Number => '||l_task_name_number);
3819: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_wp_struct_element_id);
3820: pa_debug.debug('Before call to ISPA Dest wp Strcuture ver id => '||l_dest_wp_str_ver_id);
3813: pa_debug.debug('Before call to ISPA Src Task elem version id => '||p_task_ver_id);
3814: pa_debug.debug('Before call to ISPA Src Task Financial Flag => '||l_src_task_financial_flag);
3815: pa_debug.debug('Before call to ISPA Dest Project id => '||p_dest_proj_id);
3816: pa_debug.debug('Before call to ISPA Linking Task element id => '||l_lnk_task_elem_id);
3817: pa_debug.debug('Before call to ISPA Linking Task Element Version Id => '||l_lnk_task_elem_ver_id);
3818: pa_debug.debug('Before call to ISPA Linking Task Name Number => '||l_task_name_number);
3819: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_wp_struct_element_id);
3820: pa_debug.debug('Before call to ISPA Dest wp Strcuture ver id => '||l_dest_wp_str_ver_id);
3821: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_fin_struct_element_id);
3814: pa_debug.debug('Before call to ISPA Src Task Financial Flag => '||l_src_task_financial_flag);
3815: pa_debug.debug('Before call to ISPA Dest Project id => '||p_dest_proj_id);
3816: pa_debug.debug('Before call to ISPA Linking Task element id => '||l_lnk_task_elem_id);
3817: pa_debug.debug('Before call to ISPA Linking Task Element Version Id => '||l_lnk_task_elem_ver_id);
3818: pa_debug.debug('Before call to ISPA Linking Task Name Number => '||l_task_name_number);
3819: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_wp_struct_element_id);
3820: pa_debug.debug('Before call to ISPA Dest wp Strcuture ver id => '||l_dest_wp_str_ver_id);
3821: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_fin_struct_element_id);
3822: pa_debug.debug('Before call to ISPA Dest wp Strcuture ver id => '||l_dest_fin_str_ver_id);
3815: pa_debug.debug('Before call to ISPA Dest Project id => '||p_dest_proj_id);
3816: pa_debug.debug('Before call to ISPA Linking Task element id => '||l_lnk_task_elem_id);
3817: pa_debug.debug('Before call to ISPA Linking Task Element Version Id => '||l_lnk_task_elem_ver_id);
3818: pa_debug.debug('Before call to ISPA Linking Task Name Number => '||l_task_name_number);
3819: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_wp_struct_element_id);
3820: pa_debug.debug('Before call to ISPA Dest wp Strcuture ver id => '||l_dest_wp_str_ver_id);
3821: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_fin_struct_element_id);
3822: pa_debug.debug('Before call to ISPA Dest wp Strcuture ver id => '||l_dest_fin_str_ver_id);
3823: pa_debug.debug('Before call to ISPA Src Structure WP Enable Flag => '||l_src_str_wp_enable_fl);
3816: pa_debug.debug('Before call to ISPA Linking Task element id => '||l_lnk_task_elem_id);
3817: pa_debug.debug('Before call to ISPA Linking Task Element Version Id => '||l_lnk_task_elem_ver_id);
3818: pa_debug.debug('Before call to ISPA Linking Task Name Number => '||l_task_name_number);
3819: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_wp_struct_element_id);
3820: pa_debug.debug('Before call to ISPA Dest wp Strcuture ver id => '||l_dest_wp_str_ver_id);
3821: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_fin_struct_element_id);
3822: pa_debug.debug('Before call to ISPA Dest wp Strcuture ver id => '||l_dest_fin_str_ver_id);
3823: pa_debug.debug('Before call to ISPA Src Structure WP Enable Flag => '||l_src_str_wp_enable_fl);
3824: pa_debug.debug('Before call to ISPA Dest Structure FIN Enable Flag => '||l_src_str_fin_enable_fl);
3817: pa_debug.debug('Before call to ISPA Linking Task Element Version Id => '||l_lnk_task_elem_ver_id);
3818: pa_debug.debug('Before call to ISPA Linking Task Name Number => '||l_task_name_number);
3819: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_wp_struct_element_id);
3820: pa_debug.debug('Before call to ISPA Dest wp Strcuture ver id => '||l_dest_wp_str_ver_id);
3821: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_fin_struct_element_id);
3822: pa_debug.debug('Before call to ISPA Dest wp Strcuture ver id => '||l_dest_fin_str_ver_id);
3823: pa_debug.debug('Before call to ISPA Src Structure WP Enable Flag => '||l_src_str_wp_enable_fl);
3824: pa_debug.debug('Before call to ISPA Dest Structure FIN Enable Flag => '||l_src_str_fin_enable_fl);
3825: END IF;
3818: pa_debug.debug('Before call to ISPA Linking Task Name Number => '||l_task_name_number);
3819: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_wp_struct_element_id);
3820: pa_debug.debug('Before call to ISPA Dest wp Strcuture ver id => '||l_dest_wp_str_ver_id);
3821: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_fin_struct_element_id);
3822: pa_debug.debug('Before call to ISPA Dest wp Strcuture ver id => '||l_dest_fin_str_ver_id);
3823: pa_debug.debug('Before call to ISPA Src Structure WP Enable Flag => '||l_src_str_wp_enable_fl);
3824: pa_debug.debug('Before call to ISPA Dest Structure FIN Enable Flag => '||l_src_str_fin_enable_fl);
3825: END IF;
3826: /* Bug 4473103 : Undone the fix for 3983361 and redo
3819: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_wp_struct_element_id);
3820: pa_debug.debug('Before call to ISPA Dest wp Strcuture ver id => '||l_dest_wp_str_ver_id);
3821: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_fin_struct_element_id);
3822: pa_debug.debug('Before call to ISPA Dest wp Strcuture ver id => '||l_dest_fin_str_ver_id);
3823: pa_debug.debug('Before call to ISPA Src Structure WP Enable Flag => '||l_src_str_wp_enable_fl);
3824: pa_debug.debug('Before call to ISPA Dest Structure FIN Enable Flag => '||l_src_str_fin_enable_fl);
3825: END IF;
3826: /* Bug 4473103 : Undone the fix for 3983361 and redo
3827: --
3820: pa_debug.debug('Before call to ISPA Dest wp Strcuture ver id => '||l_dest_wp_str_ver_id);
3821: pa_debug.debug('Before call to ISPA Dest wp Structure Element id => '||l_dest_fin_struct_element_id);
3822: pa_debug.debug('Before call to ISPA Dest wp Strcuture ver id => '||l_dest_fin_str_ver_id);
3823: pa_debug.debug('Before call to ISPA Src Structure WP Enable Flag => '||l_src_str_wp_enable_fl);
3824: pa_debug.debug('Before call to ISPA Dest Structure FIN Enable Flag => '||l_src_str_fin_enable_fl);
3825: END IF;
3826: /* Bug 4473103 : Undone the fix for 3983361 and redo
3827: --
3828: --
3861: -- 4473103 : End
3862:
3863: IF l_src_proj_sharing_code = 'SHARE_FULL' AND l_dest_proj_sharing_code = 'SHARE_FULL' THEN
3864: IF (p_debug_mode = 'Y') THEN
3865: pa_debug.debug('Into block where both src and dest proj are SHARE_FULL');
3866: END IF;
3867: /* For workplan */
3868: --Validation for create sub project association
3869: --bug 3716615
3867: /* For workplan */
3868: --Validation for create sub project association
3869: --bug 3716615
3870: IF (p_debug_mode = 'Y') THEN
3871: pa_debug.debug('Before call to PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK api');
3872: END IF;
3873: /* --bug 3983361
3874: IF p_validation_level > 0 THEN
3875: IF PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK(p_task_ver_id,p_dest_proj_id) = 'N' THEN --SMukka
3878: END IF;
3879: END IF;
3880: */
3881: IF (p_debug_mode = 'Y') THEN
3882: pa_debug.debug('After call to PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK api');
3883: END IF;
3884: --end bug 3716615
3885: PA_RELATIONSHIP_PVT.Insert_Subproject_Association
3886: ( p_init_msg_list => p_init_msg_list
3928: --
3929: /* For Financial */
3930: -- IF l_src_task_financial_flag='Y' THEN --No need to check for fully shared project
3931: IF (p_debug_mode = 'Y') THEN
3932: pa_debug.debug('Into block where both src and dest proj are SHARE_FULL');
3933: pa_debug.debug('Into fin block where both src and dest proj are SHARE_FULL');
3934: END IF;
3935:
3936: --bug 3716615
3929: /* For Financial */
3930: -- IF l_src_task_financial_flag='Y' THEN --No need to check for fully shared project
3931: IF (p_debug_mode = 'Y') THEN
3932: pa_debug.debug('Into block where both src and dest proj are SHARE_FULL');
3933: pa_debug.debug('Into fin block where both src and dest proj are SHARE_FULL');
3934: END IF;
3935:
3936: --bug 3716615
3937: IF (p_debug_mode = 'Y') THEN
3934: END IF;
3935:
3936: --bug 3716615
3937: IF (p_debug_mode = 'Y') THEN
3938: pa_debug.debug('Before call to PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK api');
3939: END IF;
3940: /* --bug 3983361
3941: IF p_validation_level > 0 THEN
3942: IF PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK(p_task_ver_id,p_dest_proj_id, 'FINANCIAL') = 'N' THEN --SMukka
3945: END IF;
3946: END IF;
3947: */
3948: IF (p_debug_mode = 'Y') THEN
3949: pa_debug.debug('After call to PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK api');
3950: END IF;
3951: --end bug 3716615
3952:
3953: PA_RELATIONSHIP_PVT.Insert_Subproject_Association
3997: --END IF; --financial task flag is Y
3998: ELSE
3999: IF l_dest_wp_str_ver_id IS NOT NULL AND l_src_str_wp_enable_fl = 'Y' THEN
4000: IF (p_debug_mode = 'Y') THEN
4001: pa_debug.debug('Into Else block Where src and dest are WP');
4002: END IF;
4003: --bug 3716615
4004: IF (p_debug_mode = 'Y') THEN
4005: pa_debug.debug('Before call to PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK api');
4001: pa_debug.debug('Into Else block Where src and dest are WP');
4002: END IF;
4003: --bug 3716615
4004: IF (p_debug_mode = 'Y') THEN
4005: pa_debug.debug('Before call to PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK api');
4006: END IF;
4007: /* --bug 3983361
4008: IF p_validation_level > 0 THEN
4009: IF PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK(p_task_ver_id,p_dest_proj_id) = 'N' THEN --SMukka
4012: END IF;
4013: END IF;
4014: */
4015: IF (p_debug_mode = 'Y') THEN
4016: pa_debug.debug('After call to PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK api');
4017: END IF;
4018: --end bug 3716615
4019:
4020: PA_RELATIONSHIP_PVT.Insert_Subproject_Association
4065: IF l_dest_fin_str_ver_id IS NOT NULL AND
4066: l_src_task_financial_flag='Y' AND
4067: l_src_str_fin_enable_fl = 'Y' THEN
4068: IF (p_debug_mode = 'Y') THEN
4069: pa_debug.debug('Into Else block Where src and dest are FIN');
4070: END IF;
4071:
4072: --bug 3716615
4073: IF (p_debug_mode = 'Y') THEN
4070: END IF;
4071:
4072: --bug 3716615
4073: IF (p_debug_mode = 'Y') THEN
4074: pa_debug.debug('Before call to PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK api');
4075: END IF;
4076: /* --bug 3983361
4077: IF p_validation_level > 0 THEN
4078: IF PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK(p_task_ver_id,p_dest_proj_id, 'FINANCIAL') = 'N' THEN --SMukka
4081: END IF;
4082: END IF;
4083: */
4084: IF (p_debug_mode = 'Y') THEN
4085: pa_debug.debug('After call to PA_RELATIONSHIP_UTILS.CREATE_SUB_PROJ_ASSO_OK api');
4086: END IF;
4087: --end bug 3716615
4088:
4089: PA_RELATIONSHIP_PVT.Insert_Subproject_Association
4131: 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
4132: END IF; --src and dest project sharing code are SHARE_FULL
4133: --
4134: IF (p_debug_mode = 'Y') THEN
4135: pa_debug.debug('After call to ISPA Linking Task Elem Id => '||l_lnk_task_elem_id);
4136: pa_debug.debug('After call to ISPA Linking Task Elem Ver Id => '||l_lnk_task_elem_ver_id);
4137: pa_debug.debug('After call to ISPA Object_Relationship_Id => '||x_object_relationship_id);
4138: pa_debug.debug('After call to ISPA WP Attr schedule Id => '||l_pev_schedule_id);
4139: END IF;
4132: END IF; --src and dest project sharing code are SHARE_FULL
4133: --
4134: IF (p_debug_mode = 'Y') THEN
4135: pa_debug.debug('After call to ISPA Linking Task Elem Id => '||l_lnk_task_elem_id);
4136: pa_debug.debug('After call to ISPA Linking Task Elem Ver Id => '||l_lnk_task_elem_ver_id);
4137: pa_debug.debug('After call to ISPA Object_Relationship_Id => '||x_object_relationship_id);
4138: pa_debug.debug('After call to ISPA WP Attr schedule Id => '||l_pev_schedule_id);
4139: END IF;
4140: --
4133: --
4134: IF (p_debug_mode = 'Y') THEN
4135: pa_debug.debug('After call to ISPA Linking Task Elem Id => '||l_lnk_task_elem_id);
4136: pa_debug.debug('After call to ISPA Linking Task Elem Ver Id => '||l_lnk_task_elem_ver_id);
4137: pa_debug.debug('After call to ISPA Object_Relationship_Id => '||x_object_relationship_id);
4138: pa_debug.debug('After call to ISPA WP Attr schedule Id => '||l_pev_schedule_id);
4139: END IF;
4140: --
4141: IF (p_commit = FND_API.G_TRUE) THEN
4134: IF (p_debug_mode = 'Y') THEN
4135: pa_debug.debug('After call to ISPA Linking Task Elem Id => '||l_lnk_task_elem_id);
4136: pa_debug.debug('After call to ISPA Linking Task Elem Ver Id => '||l_lnk_task_elem_ver_id);
4137: pa_debug.debug('After call to ISPA Object_Relationship_Id => '||x_object_relationship_id);
4138: pa_debug.debug('After call to ISPA WP Attr schedule Id => '||l_pev_schedule_id);
4139: END IF;
4140: --
4141: IF (p_commit = FND_API.G_TRUE) THEN
4142: COMMIT;
4255:
4256: x_return_status := FND_API.G_RET_STS_SUCCESS;
4257: --
4258: IF (p_debug_mode = 'Y') THEN
4259: pa_debug.debug('PA_RELATIONSHIP_PVT.Create_Subproject_Association end');
4260: END IF;
4261: --
4262: EXCEPTION
4263: WHEN FND_API.G_EXC_ERROR THEN
4349:
4350: BEGIN
4351: --
4352: IF (p_debug_mode = 'Y') THEN
4353: pa_debug.debug('PA_RELATIONSHIPS_PVT1.UPDATE_SUBPROJECT_ASSOCIATION Begin');
4354: END IF;
4355: --
4356: IF (p_commit = FND_API.G_TRUE) THEN
4357: savepoint update_subproject_ass_pvt;
4357: savepoint update_subproject_ass_pvt;
4358: END IF;
4359: --
4360: IF (p_debug_mode = 'Y') THEN
4361: pa_debug.debug('The value of the passed object_relationship_id=> '||p_object_relationship_id);
4362: pa_debug.debug('The value of the passed comments=> '||p_comment);
4363: END IF;
4364: --
4365:
4358: END IF;
4359: --
4360: IF (p_debug_mode = 'Y') THEN
4361: pa_debug.debug('The value of the passed object_relationship_id=> '||p_object_relationship_id);
4362: pa_debug.debug('The value of the passed comments=> '||p_comment);
4363: END IF;
4364: --
4365:
4366: -- Bug # 5072032.
4388: COMMIT;
4389: END IF;
4390: --
4391: IF (p_debug_mode = 'Y') THEN
4392: pa_debug.debug('Return status before the end of Update_Subproject_Association=> '||x_return_status);
4393: END IF;
4394: --
4395: IF (p_debug_mode = 'Y') THEN
4396: pa_debug.debug('PA_RELATIONSHIPS_PVT1.UPDATE_SUBPROJECT_ASSOCIATION END');
4392: pa_debug.debug('Return status before the end of Update_Subproject_Association=> '||x_return_status);
4393: END IF;
4394: --
4395: IF (p_debug_mode = 'Y') THEN
4396: pa_debug.debug('PA_RELATIONSHIPS_PVT1.UPDATE_SUBPROJECT_ASSOCIATION END');
4397: END IF;
4398: --
4399: EXCEPTION
4400: WHEN FND_API.G_EXC_ERROR THEN
4547:
4548: BEGIN
4549: --
4550: IF (p_debug_mode = 'Y') THEN
4551: pa_debug.debug('PA_RELATIONSHIP_PVT.Delete_SubProject_Association begin');
4552: END IF;
4553: --
4554: IF (p_commit = FND_API.G_TRUE) THEN
4555: savepoint delete_subproject_ass_pvt;
4555: savepoint delete_subproject_ass_pvt;
4556: END IF;
4557: --
4558: IF (p_debug_mode = 'Y') THEN
4559: pa_debug.debug('Deleting the object_relationships_id => '||p_object_relationships_id);
4560: END IF;
4561: --
4562: -- Get the details for passed object relationship id from pa_object_relationships
4563: OPEN get_lnk_obj_rel_attr(p_object_relationships_id);
4569: RAISE FND_API.G_EXC_ERROR;
4570: END IF;
4571: --
4572: IF (p_debug_mode = 'Y') THEN
4573: pa_debug.debug('src lnk task ver id value for pass obj rel id=> '||get_lnk_obj_rel_attr_rec.object_id_from1);
4574: pa_debug.debug('dest str ver id value for pass obj rel id=> '||get_lnk_obj_rel_attr_rec.object_id_to1);
4575: pa_debug.debug('src proj id value for pass obj rel id => '||get_lnk_obj_rel_attr_rec.object_id_from2);
4576: pa_debug.debug('dest proj id value for pass obj rel id => '||get_lnk_obj_rel_attr_rec.object_id_to2);
4577: END IF;
4570: END IF;
4571: --
4572: IF (p_debug_mode = 'Y') THEN
4573: pa_debug.debug('src lnk task ver id value for pass obj rel id=> '||get_lnk_obj_rel_attr_rec.object_id_from1);
4574: pa_debug.debug('dest str ver id value for pass obj rel id=> '||get_lnk_obj_rel_attr_rec.object_id_to1);
4575: pa_debug.debug('src proj id value for pass obj rel id => '||get_lnk_obj_rel_attr_rec.object_id_from2);
4576: pa_debug.debug('dest proj id value for pass obj rel id => '||get_lnk_obj_rel_attr_rec.object_id_to2);
4577: END IF;
4578: --
4571: --
4572: IF (p_debug_mode = 'Y') THEN
4573: pa_debug.debug('src lnk task ver id value for pass obj rel id=> '||get_lnk_obj_rel_attr_rec.object_id_from1);
4574: pa_debug.debug('dest str ver id value for pass obj rel id=> '||get_lnk_obj_rel_attr_rec.object_id_to1);
4575: pa_debug.debug('src proj id value for pass obj rel id => '||get_lnk_obj_rel_attr_rec.object_id_from2);
4576: pa_debug.debug('dest proj id value for pass obj rel id => '||get_lnk_obj_rel_attr_rec.object_id_to2);
4577: END IF;
4578: --
4579: CLOSE get_lnk_obj_rel_attr;
4572: IF (p_debug_mode = 'Y') THEN
4573: pa_debug.debug('src lnk task ver id value for pass obj rel id=> '||get_lnk_obj_rel_attr_rec.object_id_from1);
4574: pa_debug.debug('dest str ver id value for pass obj rel id=> '||get_lnk_obj_rel_attr_rec.object_id_to1);
4575: pa_debug.debug('src proj id value for pass obj rel id => '||get_lnk_obj_rel_attr_rec.object_id_from2);
4576: pa_debug.debug('dest proj id value for pass obj rel id => '||get_lnk_obj_rel_attr_rec.object_id_to2);
4577: END IF;
4578: --
4579: CLOSE get_lnk_obj_rel_attr;
4580: --
4580: --
4581: --Getting the src task version details
4582: --
4583: IF (p_debug_mode = 'Y') THEN
4584: pa_debug.debug('Values pass to get_lnk_obj_rel_attr cursor => '||get_lnk_obj_rel_attr_rec.object_id_from1);
4585: END IF;
4586: --
4587: OPEN get_src_task_ver_id(get_lnk_obj_rel_attr_rec.object_id_from1);
4588: FETCH get_src_task_ver_id INTO get_src_task_ver_id_rec;
4593: RAISE FND_API.G_EXC_ERROR;
4594: END IF;
4595: --
4596: IF (p_debug_mode = 'Y') THEN
4597: 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);
4598: END IF;
4599: --
4600: CLOSE get_src_task_ver_id;
4601:
4605: FETCH cur_src_structure_ver_id INTO l_src_project_id, l_src_structure_ver_id;
4606: CLOSE cur_src_structure_ver_id;
4607:
4608: IF (p_debug_mode = 'Y') THEN
4609: pa_debug.debug('l_src_structure_ver_id='||l_src_structure_ver_id);
4610: END IF;
4611: --bug 4370533 --Issue #3
4612:
4613: --
4611: --bug 4370533 --Issue #3
4612:
4613: --
4614: IF (p_debug_mode = 'Y') THEN
4615: pa_debug.debug('Values pass to get_lnk_info cursor => '||get_lnk_obj_rel_attr_rec.object_id_from2);
4616: pa_debug.debug('Values pass to get_lnk_info cursor => '||get_src_task_ver_id_rec.object_id_from1);
4617: pa_debug.debug('Values pass to get_lnk_info cursor => '||get_lnk_obj_rel_attr_rec.object_id_to2);
4618: END IF;
4619: --
4612:
4613: --
4614: IF (p_debug_mode = 'Y') THEN
4615: pa_debug.debug('Values pass to get_lnk_info cursor => '||get_lnk_obj_rel_attr_rec.object_id_from2);
4616: pa_debug.debug('Values pass to get_lnk_info cursor => '||get_src_task_ver_id_rec.object_id_from1);
4617: pa_debug.debug('Values pass to get_lnk_info cursor => '||get_lnk_obj_rel_attr_rec.object_id_to2);
4618: END IF;
4619: --
4620: OPEN get_lnk_info(get_lnk_obj_rel_attr_rec.object_id_from2,
4613: --
4614: IF (p_debug_mode = 'Y') THEN
4615: pa_debug.debug('Values pass to get_lnk_info cursor => '||get_lnk_obj_rel_attr_rec.object_id_from2);
4616: pa_debug.debug('Values pass to get_lnk_info cursor => '||get_src_task_ver_id_rec.object_id_from1);
4617: pa_debug.debug('Values pass to get_lnk_info cursor => '||get_lnk_obj_rel_attr_rec.object_id_to2);
4618: END IF;
4619: --
4620: OPEN get_lnk_info(get_lnk_obj_rel_attr_rec.object_id_from2,
4621: get_src_task_ver_id_rec.object_id_from1,
4635: PA_UTILS.ADD_MESSAGE('PA','PA_DEL_SUBPROJ_VAL_FAIL');
4636: RAISE FND_API.G_EXC_ERROR;
4637: END IF;
4638: IF (p_debug_mode = 'Y') THEN
4639: pa_debug.debug('Return Status PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS=> '||l_upd_prog_grp_status);
4640: END IF;
4641: EXCEPTION
4642:
4643: -- Begin fix for Bug # 4485908.
4691: raise FND_API.G_EXC_ERROR;
4692: END IF;
4693: --
4694: IF (p_debug_mode = 'Y') THEN
4695: pa_debug.debug('Return status after call to PA_OBJECT_RELATIONSHIPS_PKG.DELETE_ROW=> '||x_return_status);
4696: END IF;
4697: --
4698: -- PA_TASK_PVT1.Delete_Task_Version(pora.object_id_to1);
4699: OPEN get_rec_ver_num(get_lnk_info_rec.lnk_task_ver_id);
4728: raise FND_API.G_EXC_ERROR;
4729: END IF;
4730: --
4731: IF (p_debug_mode = 'Y') THEN
4732: pa_debug.debug('Return status after call to PA_TASK_PUB1.DELETE_TASK_VERSION=> '||x_return_status);
4733: END IF;
4734: --
4735: CLOSE get_rec_ver_num;
4736: END LOOP;
4839: COMMIT;
4840: END IF;
4841: --
4842: IF (p_debug_mode = 'Y') THEN
4843: pa_debug.debug('Return status before the end of Delete_SubProject_Association=> '||x_return_status);
4844: END IF;
4845: --
4846: IF (p_debug_mode = 'Y') THEN
4847: pa_debug.debug('PA_RELATIONSHIP_PVT.Delete_SubProject_Association end');
4843: pa_debug.debug('Return status before the end of Delete_SubProject_Association=> '||x_return_status);
4844: END IF;
4845: --
4846: IF (p_debug_mode = 'Y') THEN
4847: pa_debug.debug('PA_RELATIONSHIP_PVT.Delete_SubProject_Association end');
4848: END IF;
4849: --
4850: EXCEPTION
4851: WHEN FND_API.G_EXC_ERROR THEN
4945: AND proj_element_id = c_link_task_id;
4946: BEGIN
4947: --
4948: IF (p_debug_mode = 'Y') THEN
4949: pa_debug.debug('PA_RELATIONSHIP_PVT.Copy_OG_Lnk_For_Subproj_Ass begin');
4950: END IF;
4951: --
4952: IF (p_commit = FND_API.G_TRUE) THEN
4953: savepoint Copy_OG_Lnk_For_Subproj_Ass;
4953: savepoint Copy_OG_Lnk_For_Subproj_Ass;
4954: END IF;
4955: --
4956: IF (p_debug_mode = 'Y') THEN
4957: pa_debug.debug('Value of p_src_str_version_id => '||p_src_str_version_id);
4958: pa_debug.debug('Value of p_dest_str_version_id => '||p_dest_str_version_id);
4959: END IF;
4960: --
4961: IF (p_debug_mode = 'Y') THEN
4954: END IF;
4955: --
4956: IF (p_debug_mode = 'Y') THEN
4957: pa_debug.debug('Value of p_src_str_version_id => '||p_src_str_version_id);
4958: pa_debug.debug('Value of p_dest_str_version_id => '||p_dest_str_version_id);
4959: END IF;
4960: --
4961: IF (p_debug_mode = 'Y') THEN
4962: pa_debug.debug('Value of p_src_str_version_id before get_linking_task_info => '||p_src_str_version_id);
4958: pa_debug.debug('Value of p_dest_str_version_id => '||p_dest_str_version_id);
4959: END IF;
4960: --
4961: IF (p_debug_mode = 'Y') THEN
4962: pa_debug.debug('Value of p_src_str_version_id before get_linking_task_info => '||p_src_str_version_id);
4963: END IF;
4964: OPEN get_linking_task_info(p_src_str_version_id);
4965: LOOP
4966: FETCH get_linking_task_info INTO get_linking_task_info_rec;
4967: IF get_linking_task_info%NOTFOUND THEN
4968: EXIT;
4969: END IF;
4970: IF (p_debug_mode = 'Y') THEN
4971: 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);
4972: END IF;
4973: OPEN get_going_out_lnk_info(get_linking_task_info_rec.lnk_task_ver_id);
4974: LOOP
4975: FETCH get_going_out_lnk_info into get_going_out_lnk_info_rec;
4984: FROM pa_proj_element_versions
4985: WHERE parent_structure_Version_id = p_dest_str_version_id
4986: AND proj_element_id = get_linking_task_info_rec.lnk_task_id;
4987: IF (p_debug_mode = 'Y') THEN
4988: pa_debug.debug('Value of l_new_pub_lnk_task_ver_id after select=> '||l_new_pub_lnk_task_ver_id);
4989: pa_debug.debug('Value of p_dest_str_version_id after select => '||p_dest_str_version_id);
4990: END IF;
4991: EXCEPTION
4992: WHEN OTHERS THEN
4985: WHERE parent_structure_Version_id = p_dest_str_version_id
4986: AND proj_element_id = get_linking_task_info_rec.lnk_task_id;
4987: IF (p_debug_mode = 'Y') THEN
4988: pa_debug.debug('Value of l_new_pub_lnk_task_ver_id after select=> '||l_new_pub_lnk_task_ver_id);
4989: pa_debug.debug('Value of p_dest_str_version_id after select => '||p_dest_str_version_id);
4990: END IF;
4991: EXCEPTION
4992: WHEN OTHERS THEN
4993: RAISE;
5033: END IF;
5034: -- End 4537865
5035:
5036: IF (p_debug_mode = 'Y') THEN
5037: pa_debug.debug('Value of x_object_relationship_id=> '||l_object_relationship_id);
5038: pa_debug.debug('Value of l_new_pub_lnk_task_ver_id=> '||l_new_pub_lnk_task_ver_id);
5039: pa_debug.debug('Value of x_return_status after call to PA_OBJECT_RELATIONSHIPS_PKG INSERT_ROW=> '||x_return_status);
5040: END IF;
5041: --
5034: -- End 4537865
5035:
5036: IF (p_debug_mode = 'Y') THEN
5037: pa_debug.debug('Value of x_object_relationship_id=> '||l_object_relationship_id);
5038: pa_debug.debug('Value of l_new_pub_lnk_task_ver_id=> '||l_new_pub_lnk_task_ver_id);
5039: pa_debug.debug('Value of x_return_status after call to PA_OBJECT_RELATIONSHIPS_PKG INSERT_ROW=> '||x_return_status);
5040: END IF;
5041: --
5042: --Bug No 3450684
5035:
5036: IF (p_debug_mode = 'Y') THEN
5037: pa_debug.debug('Value of x_object_relationship_id=> '||l_object_relationship_id);
5038: pa_debug.debug('Value of l_new_pub_lnk_task_ver_id=> '||l_new_pub_lnk_task_ver_id);
5039: pa_debug.debug('Value of x_return_status after call to PA_OBJECT_RELATIONSHIPS_PKG INSERT_ROW=> '||x_return_status);
5040: END IF;
5041: --
5042: --Bug No 3450684
5043: BEGIN
5047: PA_UTILS.ADD_MESSAGE('PA','PA_CP_SUBPROJ_VAL_FAIL');
5048: RAISE FND_API.G_EXC_ERROR;
5049: END IF;
5050: IF (p_debug_mode = 'Y') THEN
5051: pa_debug.debug('Return Status PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS=> '||l_upd_prog_grp_status);
5052: END IF;
5053: EXCEPTION
5054:
5055: -- Begin fix for Bug # 4485908.
5077: COMMIT;
5078: END IF;
5079: --
5080: IF (p_debug_mode = 'Y') THEN
5081: pa_debug.debug('Return status before the end of Copy_OG_Lnk_For_Subproj_Ass=> '||x_return_status);
5082: END IF;
5083: --
5084: IF (p_debug_mode = 'Y') THEN
5085: pa_debug.debug('PA_RELATIONSHIP_PVT.Copy_OG_Lnk_For_Subproj_Ass end');
5081: pa_debug.debug('Return status before the end of Copy_OG_Lnk_For_Subproj_Ass=> '||x_return_status);
5082: END IF;
5083: --
5084: IF (p_debug_mode = 'Y') THEN
5085: pa_debug.debug('PA_RELATIONSHIP_PVT.Copy_OG_Lnk_For_Subproj_Ass end');
5086: END IF;
5087: --
5088: EXCEPTION
5089: WHEN FND_API.G_EXC_ERROR THEN
5205:
5206: BEGIN
5207: --
5208: IF (p_debug_mode = 'Y') THEN
5209: pa_debug.debug('PA_RELATIONSHIP_PVT.Move_CI_Lnk_For_subproj_step2 begin');
5210: END IF;
5211: --
5212: IF (p_commit = FND_API.G_TRUE) THEN
5213: savepoint Move_CI_Lnk_For_subproj_step2;
5215:
5216: x_return_status := FND_API.G_RET_STS_SUCCESS; -- 4537865
5217: --
5218: /* IF (p_debug_mode = 'Y') THEN
5219: pa_debug.debug('Deleting the object_relationships_id => ');
5220: END IF;*/
5221: --
5222: OPEN get_coming_in_lnk_info(p_src_str_version_id);
5223: LOOP
5305: PA_UTILS.ADD_MESSAGE('PA','PA_CRT_SUBPROJ_VAL_FAIL','PROJ',l_proj_name,'PROG',l_prog_name); -- Bug # 4329284.
5306: RAISE FND_API.G_EXC_ERROR;
5307: END IF;
5308: IF (p_debug_mode = 'Y') THEN
5309: pa_debug.debug('Return Status PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS=> '||l_upd_prog_grp_status);
5310: END IF;
5311: EXCEPTION
5312:
5313: -- Begin fix for Bug # 4485908.
5333: PA_UTILS.ADD_MESSAGE('PA','PA_MV_DEL_SUBPROJ_VAL_FAIL');
5334: RAISE FND_API.G_EXC_ERROR;
5335: END IF;
5336: IF (p_debug_mode = 'Y') THEN
5337: pa_debug.debug('Return Status PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS=> '||l_upd_prog_grp_status);
5338: END IF;
5339: EXCEPTION
5340:
5341: -- Begin fix for Bug # 4485908.
5387: COMMIT;
5388: END IF;
5389: --
5390: IF (p_debug_mode = 'Y') THEN
5391: pa_debug.debug('Return status before the end of Delete_SubProject_Association=> '||x_return_status);
5392: END IF;
5393: --
5394: IF (p_debug_mode = 'Y') THEN
5395: pa_debug.debug('PA_RELATIONSHIP_PVT.Move_CI_Lnk_For_subproj_step2 end');
5391: pa_debug.debug('Return status before the end of Delete_SubProject_Association=> '||x_return_status);
5392: END IF;
5393: --
5394: IF (p_debug_mode = 'Y') THEN
5395: pa_debug.debug('PA_RELATIONSHIP_PVT.Move_CI_Lnk_For_subproj_step2 end');
5396: END IF;
5397: --
5398: EXCEPTION
5399: WHEN FND_API.G_EXC_ERROR THEN
5443: IS
5444: BEGIN
5445: --
5446: IF (p_debug_mode = 'Y') THEN
5447: pa_debug.debug('PA_RELATIONSHIP_PVT.Move_CI_Lnk_For_subproj_step1 begin');
5448: END IF;
5449: --
5450: IF (p_commit = FND_API.G_TRUE) THEN
5451: savepoint Move_CI_Lnk_For_subproj_step1;
5451: savepoint Move_CI_Lnk_For_subproj_step1;
5452: END IF;
5453: --
5454: /* IF (p_debug_mode = 'Y') THEN
5455: pa_debug.debug('Deleting the object_relationships_id => ');
5456: END IF;*/
5457: --
5458: /*Move all the link coming into the working structure version*/
5459: Move_CI_Lnk_For_subproj_step2(p_src_str_version_id=>p_src_str_version_id,
5487: COMMIT;
5488: END IF;
5489: --
5490: IF (p_debug_mode = 'Y') THEN
5491: pa_debug.debug('Return status before the end of Move_CI_Lnk_For_subproj_step1=> '||x_return_status);
5492: END IF;
5493: --
5494: IF (p_debug_mode = 'Y') THEN
5495: pa_debug.debug('PA_RELATIONSHIP_PVT.Move_CI_Lnk_For_subproj_step1 end');
5491: pa_debug.debug('Return status before the end of Move_CI_Lnk_For_subproj_step1=> '||x_return_status);
5492: END IF;
5493: --
5494: IF (p_debug_mode = 'Y') THEN
5495: pa_debug.debug('PA_RELATIONSHIP_PVT.Move_CI_Lnk_For_subproj_step1 end');
5496: END IF;
5497: --
5498: EXCEPTION
5499: WHEN FND_API.G_EXC_ERROR THEN
5587: AND relationship_type = 'LW'; --Financial links should not be specified here bcoz Process WBS updates can be run only for workplan structures.
5588: BEGIN
5589:
5590: IF (p_debug_mode = 'Y') THEN
5591: pa_debug.debug('PA_RELATIONSHIP_PVT.UPDATE_DEPENDENCY begin');
5592: END IF;
5593:
5594: IF (p_commit = FND_API.G_TRUE) THEN
5595: savepoint UPDATE_PARENT_WBS_FLAG_DIRTY;
5596: END IF;
5597:
5598: x_return_status := FND_API.G_RET_STS_SUCCESS;
5599:
5600: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5601:
5602: IF l_debug_mode = 'Y' THEN
5603: 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);
5604: 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);
5599:
5600: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5601:
5602: IF l_debug_mode = 'Y' THEN
5603: 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);
5604: 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);
5605: END IF;
5606:
5607: FOR cur_obj_rel_rec in cur_obj_rel LOOP
5600: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5601:
5602: IF l_debug_mode = 'Y' THEN
5603: 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);
5604: 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);
5605: END IF;
5606:
5607: FOR cur_obj_rel_rec in cur_obj_rel LOOP
5608: UPDATE pa_proj_elem_ver_structure
5616: );
5617: END LOOP;
5618:
5619: IF l_debug_mode = 'Y' THEN
5620: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.UPDATE_PARENT_WBS_FLAG_DIRTY', x_Msg => 'Completed', x_Log_Level=> 3);
5621: END IF;
5622:
5623: IF (p_commit = FND_API.G_TRUE) THEN
5624: COMMIT;
5624: COMMIT;
5625: END IF;
5626:
5627: IF (p_debug_mode = 'Y') THEN
5628: pa_debug.debug('PA_RELATIONSHIP_PVT.UPDATE_PARENT_WBS_FLAG_DIRTY END');
5629: END IF;
5630:
5631:
5632: EXCEPTION