DBA Data[Home] [Help]

APPS.PA_RELATIONSHIP_PVT dependencies on PA_RELATIONSHIP_PVT

Line 1: package body PA_RELATIONSHIP_PVT as

1: package body PA_RELATIONSHIP_PVT as
2: /*$Header: PAXRELVB.pls 120.12.12010000.2 2008/12/02 19:05:39 rkartha ship $*/
3:
4: -- API name : Create_Relationship
5: -- Type : Private Procedure

Line 163: pa_debug.debug('PA_RELATIONSHIP_PVT.CREATE_RELATIONSHIP begin');

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;

Line 643: pa_debug.debug('PA_RELATIONSHIP_PVT.CREATE_RELATIONSHIP end');

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

Line 660: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',

656: END IF;
657: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
658: x_msg_count := FND_MSG_PUB.count_msg;
659: --put message
660: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
661: p_procedure_name => 'Create_Relationship',
662: p_error_text => SUBSTRB(SQLERRM,1,240));
663: RAISE;
664: END;

Line 742: pa_debug.debug('PA_RELATIONSHIP_PVT.UPDATE_RELATIONSHIP begin');

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;

Line 920: pa_debug.debug('PA_RELATIONSHIP_PVT.DELETE_RELATIONSHIP begin');

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;

Line 994: pa_debug.debug('PA_RELATIONSHIP_PVT.DELETE_RELATIONSHIP end');

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

Line 1144: g_module_name varchar2(200) := 'PA_RELATIONSHIP_PVT.CREATE_DEPENDENCY';--BUG 4218977, rtarway

1140: AND por.object_type_from = 'PA_TASKS'
1141: AND por.relationship_type = 'S');
1142:
1143: l_debug_mode varchar2(1) := 'N'; --BUG 4218977, rtarway
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');

Line 1151: pa_debug.debug('PA_RELATIONSHIP_PVT.CREATE_DEPENDENCY 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;
1153:
1154: IF (p_commit = FND_API.G_TRUE) THEN
1155: savepoint create_dependency_pvt;

Line 1408: pa_debug.debug('PA_RELATIONSHIP_PVT.CREATE_DEPENDENCY END');

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

Line 1422: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',

1418: if p_commit = FND_API.G_TRUE then
1419: rollback to create_dependency_pvt;
1420: end if;
1421: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1422: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1423: p_procedure_name => 'CREATE_DEPENDENCY',
1424: p_error_text => SUBSTRB(SQLERRM,1,240));
1425: when OTHERS then
1426: if p_commit = FND_API.G_TRUE then

Line 1430: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',

1426: if p_commit = FND_API.G_TRUE then
1427: rollback to create_dependency_pvt;
1428: end if;
1429: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1430: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1431: p_procedure_name => 'CREATE_DEPENDENCY',
1432: p_error_text => SUBSTRB(SQLERRM,1,240));
1433: raise;
1434: END Create_Dependency;

Line 1510: pa_debug.debug('PA_RELATIONSHIP_PVT.UPDATE_DEPENDENCY begin');

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;

Line 1580: pa_debug.debug('PA_RELATIONSHIP_PVT.UPDATE_DEPENDENCY END');

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

Line 1594: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',

1590: if p_commit = FND_API.G_TRUE then
1591: rollback to update_dependency_pvt;
1592: end if;
1593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1594: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1595: p_procedure_name => 'UPDATE_DEPENDENCY',
1596: p_error_text => SUBSTRB(SQLERRM,1,240));
1597: when OTHERS then
1598: if p_commit = FND_API.G_TRUE then

Line 1602: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',

1598: if p_commit = FND_API.G_TRUE then
1599: rollback to update_dependency_pvt;
1600: end if;
1601: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1602: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1603: p_procedure_name => 'UPDATE_DEPENDENCY',
1604: p_error_text => SUBSTRB(SQLERRM,1,240));
1605: raise;
1606: END Update_Dependency;

Line 1694: pa_debug.debug('PA_RELATIONSHIP_PVT.DELETE_DEPENDENCY begin');

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;

Line 1761: pa_debug.debug('PA_RELATIONSHIP_PVT.DELETE_DEPENDENCY END');

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

Line 1774: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',

1770: if p_commit = FND_API.G_TRUE then
1771: rollback to delete_dependency_pvt;
1772: end if;
1773: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1774: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1775: p_procedure_name => 'DELETE_DEPENDENCY',
1776: p_error_text => SUBSTRB(SQLERRM,1,240));
1777: when OTHERS then
1778: if p_commit = FND_API.G_TRUE then

Line 1782: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',

1778: if p_commit = FND_API.G_TRUE then
1779: rollback to delete_dependency_pvt;
1780: end if;
1781: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1782: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
1783: p_procedure_name => 'DELETE_DEPENDENCY',
1784: p_error_text => SUBSTRB(SQLERRM,1,240));
1785: raise;
1786: END Delete_Dependency;

Line 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);

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: */

Line 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);

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);

Line 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);

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;

Line 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);

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:

Line 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);

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:

Line 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);

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)

Line 2097: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'Before cursor l_cur_all_tasks', x_Log_Level=> 3);

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

Line 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);

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

Line 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);

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:

Line 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);

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

Line 2187: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.COPY_INTRA_DEPENDENCY', x_Msg => 'Before opening cursor get_struc_dependency', x_Log_Level=> 3);

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;

Line 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);

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

Line 2292: PA_Relationship_Pvt.Create_dependency (

2288: CLOSE get_dependency;
2289:
2290: IF l_found_flag = 1 THEN
2291:
2292: PA_Relationship_Pvt.Create_dependency (
2293: p_src_proj_id => l_project_id1
2294: ,p_src_task_ver_id => p_destin_ver_tbl(i)
2295: ,p_dest_proj_id => l_project_id2
2296: ,p_dest_task_ver_id => p_destin_ver_tbl(j)

Line 2336: PA_Relationship_Pvt.Create_dependency (

2332: LOOP
2333: FETCH get_struc_dependency INTO l_dep_struc_rec;
2334: EXIT WHEN get_struc_dependency%NOTFOUND;
2335:
2336: PA_Relationship_Pvt.Create_dependency (
2337: p_src_proj_id => l_dep_struc_rec.project_id
2338: ,p_src_task_ver_id => l_dep_struc_rec.dest_task_ver_id
2339: ,p_dest_proj_id => l_dep_struc_rec.project_id
2340: ,p_dest_task_ver_id => l_dep_struc_rec.dest_pred_ver_id

Line 2442: PA_Relationship_Pvt.Create_dependency (

2438: If l_Found_Flag = 1 Then
2439: -- Scan thru all the Source Version Object IDs
2440: For j IN 1..P_Destin_Ver_Tbl.Count Loop
2441: If l_Object_Task_ID = P_Destin_Ver_Tbl(j) Then
2442: PA_Relationship_Pvt.Create_dependency (
2443: p_src_proj_id => l_src_proj_id
2444: ,p_src_task_ver_id => l_src_task_ver_id
2445: ,p_dest_proj_id => l_dest_proj_id
2446: ,p_dest_task_ver_id => l_dest_task_ver_id

Line 2533: PA_Relationship_Pvt.Create_dependency (

2529: INTO l_src_proj_id
2530: FROM pa_proj_element_versions ppev
2531: WHERE ppev.element_version_id = p_destin_ver_tbl(i);
2532: --
2533: PA_Relationship_Pvt.Create_dependency (
2534: p_src_proj_id => l_src_proj_id
2535: ,p_src_task_ver_id => p_destin_ver_tbl(i)
2536: ,p_dest_proj_id => l_dependency_rec.object_id_to2
2537: ,p_dest_task_ver_id => l_dependency_rec.object_id_to1

Line 2747: PA_RELATIONSHIP_PVT.Delete_Relationship (

2743: EXIT when Check_Prev_Ver_Exists%NOTFOUND;
2744: --Close Check_Prev_Ver_Exists;
2745: -- Step 1: Delete Inter project dependencies from prev published version
2746: -- which does not exist in publishing structure
2747: PA_RELATIONSHIP_PVT.Delete_Relationship (
2748: p_object_relationship_id => l_Relationship_ID
2749: ,p_record_version_number => l_Record_Ver_Number
2750: ,x_return_status => x_return_status
2751: ,x_msg_count => x_msg_count

Line 2916: PA_RELATIONSHIP_PVT.Delete_Relationship (

2912: Raise FND_API.G_EXC_ERROR;
2913: END IF;
2914:
2915: /*
2916: PA_RELATIONSHIP_PVT.Delete_Relationship (
2917: p_object_relationship_id => l_del_obj_rel_id
2918: ,p_record_version_number => l_Record_Ver_Number
2919: ,x_return_status => x_return_status
2920: ,x_msg_count => x_msg_count

Line 2942: PA_RELATIONSHIP_PVT.Delete_Relationship (

2938: l_Record_Ver_Number := NULL;
2939: Fetch Delete_Publ_Ver
2940: INTO l_Relationship_ID, l_Record_Ver_Number;
2941: Exit When Delete_Publ_Ver%NOTFOUND;
2942: PA_RELATIONSHIP_PVT.Delete_Relationship (
2943: p_object_relationship_id => l_Relationship_ID
2944: ,p_record_version_number => l_Record_Ver_Number
2945: ,x_return_status => x_return_status
2946: ,x_msg_count => x_msg_count

Line 3047: pa_debug.debug('PA_RELATIONSHIP_PVT.Insert_Subproject_Association begin');

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;

Line 3367: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',

3363:
3364: -- End fix for Bug # 4485908.
3365:
3366: WHEN OTHERS THEN
3367: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
3368: p_procedure_name => 'Insert_Subproject_Association',
3369: p_error_text => SUBSTRB('PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS:'||SQLERRM,1,240));
3370: RAISE FND_API.G_EXC_ERROR;
3371: END;

Line 3384: pa_debug.debug('PA_RELATIONSHIP_PVT.Insert_Subproject_Association END');

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

Line 3413: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',

3409:
3410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3411: x_msg_count := FND_MSG_PUB.count_msg;
3412: --put message
3413: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
3414: p_procedure_name => 'Insert_Subproject_Association',
3415: p_error_text => SUBSTRB(SQLERRM,1,240));
3416: RAISE;
3417: END Insert_Subproject_Association;

Line 3553: pa_debug.debug('PA_RELATIONSHIP_PVT.Create_Subproject_Association begin');

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;

Line 3872: PA_RELATIONSHIP_PVT.Insert_Subproject_Association

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
3874: ,p_commit => p_commit
3875: ,p_validate_only => p_validate_only
3876: ,p_validation_level => p_validation_level

Line 3940: PA_RELATIONSHIP_PVT.Insert_Subproject_Association

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
3941: ( p_init_msg_list => p_init_msg_list
3942: ,p_commit => p_commit
3943: ,p_validate_only => p_validate_only
3944: ,p_validation_level => p_validation_level

Line 4007: PA_RELATIONSHIP_PVT.Insert_Subproject_Association

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
4008: ( p_init_msg_list => p_init_msg_list
4009: ,p_commit => p_commit
4010: ,p_validate_only => p_validate_only
4011: ,p_validation_level => p_validation_level

Line 4076: PA_RELATIONSHIP_PVT.Insert_Subproject_Association

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
4077: ( p_init_msg_list => p_init_msg_list
4078: ,p_commit => p_commit
4079: ,p_validate_only => p_validate_only
4080: ,p_validation_level => p_validation_level

Line 4241: pa_debug.debug('PA_RELATIONSHIP_PVT.Create_Subproject_Association end');

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

Line 4258: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',

4254: END IF;
4255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4256: x_msg_count := FND_MSG_PUB.count_msg;
4257: --put message
4258: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
4259: p_procedure_name => 'Create_Subproject_Association',
4260: p_error_text => SUBSTRB(SQLERRM,1,240));
4261: RAISE;
4262: END Create_Subproject_Association;

Line 4533: pa_debug.debug('PA_RELATIONSHIP_PVT.Delete_SubProject_Association begin');

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;

Line 4634: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',

4630:
4631: -- End fix for Bug # 4485908.
4632:
4633: WHEN OTHERS THEN
4634: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
4635: p_procedure_name => 'Delete_SubProject_Association',
4636: p_error_text => SUBSTRB('PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS:'||SQLERRM,1,240));
4637: RAISE FND_API.G_EXC_ERROR;
4638: END;

Line 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

Line 4927: pa_debug.debug('PA_RELATIONSHIP_PVT.Copy_OG_Lnk_For_Subproj_Ass begin');

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;

Line 5042: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',

5038:
5039: -- End fix for Bug # 4485908.
5040:
5041: WHEN OTHERS THEN
5042: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
5043: p_procedure_name => 'Copy_OG_Lnk_For_Subproj_Ass',
5044: p_error_text => SUBSTRB('PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS:'||SQLERRM,1,240));
5045: RAISE FND_API.G_EXC_ERROR;
5046: END;

Line 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

Line 5187: pa_debug.debug('PA_RELATIONSHIP_PVT.Move_CI_Lnk_For_subproj_step2 begin');

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;

Line 5300: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',

5296:
5297: -- End fix for Bug # 4485908.
5298:
5299: WHEN OTHERS THEN
5300: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
5301: p_procedure_name => 'Insert_Subproject_Association',
5302: p_error_text => SUBSTRB('PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS:'||SQLERRM,1,240));
5303: RAISE FND_API.G_EXC_ERROR;
5304: END;

Line 5328: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',

5324:
5325: -- End fix for Bug # 4485908.
5326:
5327: WHEN OTHERS THEN
5328: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
5329: p_procedure_name => 'Move_CI_Lnk_For_subproj_step2',
5330: p_error_text => SUBSTRB('PA_RELATIONSHIP_PUB.UPDATE_PROGRAM_GROUPS:'||SQLERRM,1,240));
5331: RAISE FND_API.G_EXC_ERROR;
5332: END;

Line 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

Line 5425: pa_debug.debug('PA_RELATIONSHIP_PVT.Move_CI_Lnk_For_subproj_step1 begin');

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;

Line 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

Line 5569: pa_debug.debug('PA_RELATIONSHIP_PVT.UPDATE_DEPENDENCY begin');

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;

Line 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);

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

Line 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);

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

Line 5598: pa_debug.write(x_Module=>'PA_RELATIONSHIP_PVT.UPDATE_PARENT_WBS_FLAG_DIRTY', x_Msg => 'Completed', x_Log_Level=> 3);

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;

Line 5606: pa_debug.debug('PA_RELATIONSHIP_PVT.UPDATE_PARENT_WBS_FLAG_DIRTY END');

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

Line 5621: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',

5617: if p_commit = FND_API.G_TRUE then
5618: rollback to UPDATE_PARENT_WBS_FLAG_DIRTY;
5619: end if;
5620: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5621: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
5622: p_procedure_name => 'UPDATE_PARENT_WBS_FLAG_DIRTY',
5623: p_error_text => SUBSTRB(SQLERRM,1,240));
5624: when OTHERS then
5625: if p_commit = FND_API.G_TRUE then

Line 5629: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',

5625: if p_commit = FND_API.G_TRUE then
5626: rollback to UPDATE_PARENT_WBS_FLAG_DIRTY;
5627: end if;
5628: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5629: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_RELATIONSHIP_PVT',
5630: p_procedure_name => 'UPDATE_PARENT_WBS_FLAG_DIRTY',
5631: p_error_text => SUBSTRB(SQLERRM,1,240));
5632: raise;
5633: END UPDATE_PARENT_WBS_FLAG_DIRTY;

Line 5635: end PA_RELATIONSHIP_PVT;

5631: p_error_text => SUBSTRB(SQLERRM,1,240));
5632: raise;
5633: END UPDATE_PARENT_WBS_FLAG_DIRTY;
5634:
5635: end PA_RELATIONSHIP_PVT;