[Home] [Help]
6: -- Pre-reqs : None
7: -- Return Value : N/A
8: -- Prameters
9: -- p_api_version IN NUMBER N Not Null 1.0
10: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
11: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
12: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
13: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
14: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
7: -- Return Value : N/A
8: -- Prameters
9: -- p_api_version IN NUMBER N Not Null 1.0
10: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
11: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
12: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
13: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
14: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
15: -- p_debug_mode IN VARCHAR2 N Null N
8: -- Prameters
9: -- p_api_version IN NUMBER N Not Null 1.0
10: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
11: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
12: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
13: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
14: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
15: -- p_debug_mode IN VARCHAR2 N Null N
16: -- p_max_msg_count IN NUMBER N NULL PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
9: -- p_api_version IN NUMBER N Not Null 1.0
10: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
11: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
12: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
13: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
14: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
15: -- p_debug_mode IN VARCHAR2 N Null N
16: -- p_max_msg_count IN NUMBER N NULL PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
17: -- p_object_type IN VARCHAR2 N Not Null
61: --
62:
63: PROCEDURE Create_Task(
64: p_api_version IN NUMBER :=1.0,
65: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
66: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
67: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
68: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
69: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
62:
63: PROCEDURE Create_Task(
64: p_api_version IN NUMBER :=1.0,
65: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
66: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
67: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
68: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
69: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
70: p_debug_mode IN VARCHAR2 :='N',
63: PROCEDURE Create_Task(
64: p_api_version IN NUMBER :=1.0,
65: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
66: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
67: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
68: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
69: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
70: p_debug_mode IN VARCHAR2 :='N',
71: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
64: p_api_version IN NUMBER :=1.0,
65: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
66: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
67: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
68: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
69: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
70: p_debug_mode IN VARCHAR2 :='N',
71: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
72: p_object_type IN VARCHAR2,
377: IF (p_debug_mode = 'Y') THEN
378: pa_debug.debug('PA_TASK_PVT1.CREATE_TASK begin');
379: END IF;
380:
381: IF (p_commit = FND_API.G_TRUE) THEN
382: savepoint CREATE_TASK_PRIVATE;
383: END IF;
384:
385: IF (p_debug_mode = 'Y') THEN
408: IF p_task_number IS NULL
409: THEN
410: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
411: p_msg_name => 'PA_PS_TASK_NUMBER_NULL');
412: raise FND_API.G_EXC_ERROR;
413: END IF;
414:
415: --dbms_output.put_line('task name');
416: IF p_task_name IS NULL
416: IF p_task_name IS NULL
417: THEN
418: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
419: p_msg_name => 'PA_PS_TASK_NAME_NULL');
420: raise FND_API.G_EXC_ERROR;
421: END IF;
422:
423: --Bug 2168170
424: --dbms_output.put_line('Inside private API');
433: ) = 'N'
434: THEN
435: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
436: p_msg_name => 'PA_PS_TASK_NOT_NUM_UNIQ');
437: raise FND_API.G_EXC_ERROR;
438:
439: END IF;
440: --end bug 2669388
441: --dbms_output.put_line( 'After Check if the task name is unique within the project.' );
454: x_msg_count := l_msg_count;
455: IF x_msg_count = 1 THEN
456: x_msg_data := l_msg_data;
457: END IF;
458: RAISE FND_API.G_EXC_ERROR;
459: /* end of 3458052*/
460: END IF;
461:
462: /* bug 3459905 --Check if there is any error.
465: x_msg_count := l_msg_count;
466: IF x_msg_count = 1 THEN
467: x_msg_data := l_msg_data;
468: END IF;
469: RAISE FND_API.G_EXC_ERROR;
470: end of 3458052*/
471: END IF;
472:
473: IF ( p_task_description = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR AND p_task_description IS NOT NULL )
967: ,x_msg_count => l_msg_count
968: ,x_msg_data => l_msg_data
969: );
970:
971: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
972: x_msg_count := FND_MSG_PUB.count_msg;
973: IF x_msg_count = 1 then
974: pa_interface_utils_pub.get_messages
975: (p_encoded => FND_API.G_TRUE,
971: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
972: x_msg_count := FND_MSG_PUB.count_msg;
973: IF x_msg_count = 1 then
974: pa_interface_utils_pub.get_messages
975: (p_encoded => FND_API.G_TRUE,
976: p_msg_index => 1,
977: p_msg_count => l_msg_count,
978: p_msg_data => l_msg_data,
979: p_data => l_data,
979: p_data => l_data,
980: p_msg_index_out => l_msg_index_out);
981: x_msg_data := l_data;
982: END IF;
983: raise FND_API.G_EXC_ERROR;
984: END IF;
985:
986:
987: END IF;
1086: x_msg_count := l_msg_count;
1087: IF x_msg_count = 1 THEN
1088: x_msg_data := l_msg_data;
1089: END IF;
1090: RAISE FND_API.G_EXC_ERROR;
1091: END IF;
1092: -- end of bug 3459905
1093: END IF;
1094:
1098: x_msg_count := l_msg_count;
1099: IF x_msg_count = 1 THEN
1100: x_msg_data := l_msg_data;
1101: END IF;
1102: RAISE FND_API.G_EXC_ERROR;
1103: END IF;
1104: end 3459905 */
1105: /*SELECT nvl( wbs_record_version_number, 1 )
1106: INTO l_wbs_record_version_number
1192: );
1193: -- end xxlu changes
1194:
1195: --dbms_output.put_line( 'l_msg_data '||l_msg_data );
1196: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1197: x_msg_count := FND_MSG_PUB.count_msg;
1198: IF x_msg_count = 1 then
1199: pa_interface_utils_pub.get_messages
1200: (p_encoded => FND_API.G_TRUE,
1196: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1197: x_msg_count := FND_MSG_PUB.count_msg;
1198: IF x_msg_count = 1 then
1199: pa_interface_utils_pub.get_messages
1200: (p_encoded => FND_API.G_TRUE,
1201: p_msg_index => 1,
1202: p_msg_count => l_msg_count,
1203: p_msg_data => l_msg_data,
1204: p_data => l_data,
1204: p_data => l_data,
1205: p_msg_index_out => l_msg_index_out);
1206: x_msg_data := l_data;
1207: END IF;
1208: raise FND_API.G_EXC_ERROR;
1209: END IF;
1210:
1211: /* Commenting out for bug 3010538
1212: --Bug 2947492.
1230: , x_msg_data => l_msg_data
1231: , x_msg_count => l_msg_count
1232: );
1233:
1234: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1235: x_msg_count := FND_MSG_PUB.count_msg;
1236: IF x_msg_count = 1 then
1237: pa_interface_utils_pub.get_messages
1238: (p_encoded => FND_API.G_TRUE,
1234: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1235: x_msg_count := FND_MSG_PUB.count_msg;
1236: IF x_msg_count = 1 then
1237: pa_interface_utils_pub.get_messages
1238: (p_encoded => FND_API.G_TRUE,
1239: p_msg_index => 1,
1240: p_msg_count => l_msg_count,
1241: p_msg_data => l_msg_data,
1242: p_data => l_data,
1242: p_data => l_data,
1243: p_msg_index_out => l_msg_index_out);
1244: x_msg_data := l_data;
1245: END IF;
1246: raise FND_API.G_EXC_ERROR;
1247: END IF;
1248: --End Bug 2947492.
1249: */ --bug 3010538
1250:
1295: , x_msg_data => l_msg_data
1296: , x_msg_count => l_msg_count
1297: );
1298:
1299: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1300: x_msg_count := FND_MSG_PUB.count_msg;
1301: IF x_msg_count = 1 then
1302: pa_interface_utils_pub.get_messages
1303: (p_encoded => FND_API.G_TRUE,
1299: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1300: x_msg_count := FND_MSG_PUB.count_msg;
1301: IF x_msg_count = 1 then
1302: pa_interface_utils_pub.get_messages
1303: (p_encoded => FND_API.G_TRUE,
1304: p_msg_index => 1,
1305: p_msg_count => l_msg_count,
1306: p_msg_data => l_msg_data,
1307: p_data => l_data,
1307: p_data => l_data,
1308: p_msg_index_out => l_msg_index_out);
1309: x_msg_data := l_data;
1310: END IF;
1311: raise FND_API.G_EXC_ERROR;
1312: END IF;
1313: END IF; --<< l_publised_version >>
1314: END IF; --<
1315:
1316: END IF; --<< p_calling_module >>
1317: --Bug 2947492
1318: */ --bug 3010538
1319:
1320: x_return_status := FND_API.G_RET_STS_SUCCESS;
1321:
1322: EXCEPTION
1323: WHEN FND_API.G_EXC_ERROR THEN
1324: IF (p_commit = FND_API.G_TRUE) THEN
1319:
1320: x_return_status := FND_API.G_RET_STS_SUCCESS;
1321:
1322: EXCEPTION
1323: WHEN FND_API.G_EXC_ERROR THEN
1324: IF (p_commit = FND_API.G_TRUE) THEN
1325: ROLLBACK to CREATE_TASK_PRIVATE;
1326: END IF;
1327: x_msg_count := FND_MSG_PUB.count_msg;
1320: x_return_status := FND_API.G_RET_STS_SUCCESS;
1321:
1322: EXCEPTION
1323: WHEN FND_API.G_EXC_ERROR THEN
1324: IF (p_commit = FND_API.G_TRUE) THEN
1325: ROLLBACK to CREATE_TASK_PRIVATE;
1326: END IF;
1327: x_msg_count := FND_MSG_PUB.count_msg;
1328: x_return_status := FND_API.G_RET_STS_ERROR;
1324: IF (p_commit = FND_API.G_TRUE) THEN
1325: ROLLBACK to CREATE_TASK_PRIVATE;
1326: END IF;
1327: x_msg_count := FND_MSG_PUB.count_msg;
1328: x_return_status := FND_API.G_RET_STS_ERROR;
1329: WHEN OTHERS THEN
1330: IF (p_commit = FND_API.G_TRUE) THEN
1331: ROLLBACK to CREATE_TASK_PRIVATE;
1332: END IF;
1326: END IF;
1327: x_msg_count := FND_MSG_PUB.count_msg;
1328: x_return_status := FND_API.G_RET_STS_ERROR;
1329: WHEN OTHERS THEN
1330: IF (p_commit = FND_API.G_TRUE) THEN
1331: ROLLBACK to CREATE_TASK_PRIVATE;
1332: END IF;
1333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1334: x_msg_count := FND_MSG_PUB.count_msg;
1329: WHEN OTHERS THEN
1330: IF (p_commit = FND_API.G_TRUE) THEN
1331: ROLLBACK to CREATE_TASK_PRIVATE;
1332: END IF;
1333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1334: x_msg_count := FND_MSG_PUB.count_msg;
1335: --put message
1336: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
1337: p_procedure_name => 'Create_Task',
1345: -- Pre-reqs : None
1346: -- Return Value : N/A
1347: -- Prameters
1348: -- p_api_version IN NUMBER N Not Null 1.0
1349: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
1350: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
1351: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
1352: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
1353: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
1346: -- Return Value : N/A
1347: -- Prameters
1348: -- p_api_version IN NUMBER N Not Null 1.0
1349: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
1350: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
1351: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
1352: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
1353: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
1354: -- p_debug_mode IN VARCHAR2 N Null N
1347: -- Prameters
1348: -- p_api_version IN NUMBER N Not Null 1.0
1349: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
1350: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
1351: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
1352: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
1353: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
1354: -- p_debug_mode IN VARCHAR2 N Null N
1355: -- p_max_msg_count IN NUMBER N NULL PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1348: -- p_api_version IN NUMBER N Not Null 1.0
1349: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
1350: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
1351: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
1352: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
1353: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
1354: -- p_debug_mode IN VARCHAR2 N Null N
1355: -- p_max_msg_count IN NUMBER N NULL PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1356: -- p_task_id IN NUMBER N Not Null
1403: --
1404:
1405: PROCEDURE Update_Task(
1406: p_api_version IN NUMBER :=1.0,
1407: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
1408: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1409: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
1410: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1411: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
1404:
1405: PROCEDURE Update_Task(
1406: p_api_version IN NUMBER :=1.0,
1407: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
1408: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1409: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
1410: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1411: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
1412: p_debug_mode IN VARCHAR2 :='N',
1405: PROCEDURE Update_Task(
1406: p_api_version IN NUMBER :=1.0,
1407: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
1408: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1409: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
1410: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1411: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
1412: p_debug_mode IN VARCHAR2 :='N',
1413: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
1406: p_api_version IN NUMBER :=1.0,
1407: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
1408: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1409: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
1410: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1411: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
1412: p_debug_mode IN VARCHAR2 :='N',
1413: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
1414: p_ref_task_id IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
1771: IF (p_debug_mode = 'Y') THEN
1772: pa_debug.debug('PA_TASK_PVT1.UPDATE_TASK begin');
1773: END IF;
1774:
1775: IF (p_commit = FND_API.G_TRUE) THEN
1776: savepoint UPDATE_TASK_PRIVATE;
1777: END IF;
1778:
1779: IF (p_debug_mode = 'Y') THEN
1867: x_msg_count := l_msg_count;
1868: IF x_msg_count = 1 THEN
1869: x_msg_data := l_msg_data;
1870: END IF;
1871: RAISE FND_API.G_EXC_ERROR;
1872: END IF;
1873: -- end of bug 3459905
1874: END IF;
1875: /** End of Code Commenting for Bug 4120380 **/
1882: x_msg_count := l_msg_count;
1883: IF x_msg_count = 1 THEN
1884: x_msg_data := l_msg_data;
1885: END IF;
1886: RAISE FND_API.G_EXC_ERROR;
1887: END IF;
1888: end of bug 3459905 */
1889:
1890: -- hyau
1904: x_msg_count := l_msg_count;
1905: IF x_msg_count = 1 THEN
1906: x_msg_data := l_msg_data;
1907: END IF;
1908: RAISE FND_API.G_EXC_ERROR;
1909: END IF;
1910: -- end of bug 3459905
1911: END IF;
1912:
1923: x_msg_count := l_msg_count;
1924: IF x_msg_count = 1 THEN
1925: x_msg_data := l_msg_data;
1926: END IF;
1927: RAISE FND_API.G_EXC_ERROR;
1928: END IF;
1929: -- end of bug 3459905
1930: END IF;
1931: /* start of bug 3459905
1935: x_msg_count := l_msg_count;
1936: IF x_msg_count = 1 THEN
1937: x_msg_data := l_msg_data;
1938: END IF;
1939: RAISE FND_API.G_EXC_ERROR;
1940: END IF;
1941: end of bug 3459905 */
1942: END IF;
1943: -- end hyau. Lifecycle Phase validation Changes.
1992: x_msg_count => x_msg_count,
1993: x_msg_data => x_msg_data
1994: );
1995:
1996: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1997: RAISE FND_API.G_EXC_ERROR;
1998: END IF ;
1999:
2000: END IF ;
1993: x_msg_data => x_msg_data
1994: );
1995:
1996: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1997: RAISE FND_API.G_EXC_ERROR;
1998: END IF ;
1999:
2000: END IF ;
2001: /*
2024: x_msg_count := l_msg_count;
2025: IF x_msg_count = 1 THEN
2026: x_msg_data := l_msg_data;
2027: END IF;
2028: RAISE FND_API.G_EXC_ERROR;
2029: END IF;
2030: -- end of bug 3459905
2031: END IF;
2032:
2040: x_msg_count := l_msg_count;
2041: IF x_msg_count = 1 THEN
2042: x_msg_data := l_msg_data;
2043: END IF;
2044: RAISE FND_API.G_EXC_ERROR;
2045: END IF;
2046: -- end of bug 3459905
2047: END IF;
2048: /* start of bug 3459905
2052: x_msg_count := l_msg_count;
2053: IF x_msg_count = 1 THEN
2054: x_msg_data := l_msg_data;
2055: END IF;
2056: RAISE FND_API.G_EXC_ERROR;
2057: END IF;
2058: end of bug 3458052*/
2059: --new type; copy all attributes
2060: /* Moved this code above for Bug 3957706
2096: x_msg_count := l_msg_count;
2097: IF x_msg_count = 1 THEN
2098: x_msg_data := l_msg_data;
2099: END IF;
2100: RAISE FND_API.G_EXC_ERROR;
2101: END IF;
2102: */
2103: END IF;
2104: --end bug 2663532
2148: x_msg_count => l_msg_count,
2149: x_msg_data => l_msg_data
2150: );
2151:
2152: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2153: l_msg_count := FND_MSG_PUB.count_msg;
2154: IF l_msg_count > 0 THEN
2155: x_msg_count := l_msg_count;
2156: IF x_msg_count = 1 THEN
2155: x_msg_count := l_msg_count;
2156: IF x_msg_count = 1 THEN
2157: x_msg_data := l_msg_data;
2158: END IF;
2159: RAISE FND_API.G_EXC_ERROR;
2160: END IF;
2161: END IF;
2162: END IF;
2163:
2182: x_msg_count => l_msg_count,
2183: x_msg_data => l_msg_data
2184: );
2185:
2186: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2187: l_msg_count := FND_MSG_PUB.count_msg;
2188: IF l_msg_count > 0 THEN
2189: x_msg_count := l_msg_count;
2190: IF x_msg_count = 1 THEN
2189: x_msg_count := l_msg_count;
2190: IF x_msg_count = 1 THEN
2191: x_msg_data := l_msg_data;
2192: END IF;
2193: RAISE FND_API.G_EXC_ERROR;
2194: END IF;
2195: END IF;
2196: END IF;
2197:
2255: PA_PROGRESS_UTILS.get_system_task_status(v_cur_proj_elems_rec.STATUS_CODE)= 'CANCELLED')
2256: THEN
2257: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2258: p_msg_name => 'PA_TSK_STS_CANT_CHANGED');
2259: raise FND_API.G_EXC_ERROR;
2260: END IF;
2261: --marked as changed only if different
2262: l_status_code := p_status_code;
2263:
2279: IF l_del_cnt >=1 AND (p_Base_Perc_Comp_Deriv_Code LIKE 'DELIVERABLE'
2280: OR l_tt_base_perc_comp_der_cd LIKE 'DELIVERABLE' ) THEN --Jun 28th
2281: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2282: p_msg_name => 'PA_PS_CHK_DELIV_UPDATE');
2283: raise FND_API.G_EXC_ERROR;
2284: END IF;
2285: END LOOP;
2286: CLOSE get_task_versions_id;
2287: ELSE
2294: IF l_del_cnt >=1 AND (p_Base_Perc_Comp_Deriv_Code LIKE 'DELIVERABLE'
2295: OR l_tt_base_perc_comp_der_cd LIKE 'DELIVERABLE' ) THEN --Jun 28th
2296: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2297: p_msg_name => 'PA_PS_CHK_DELIV_UPDATE');
2298: raise FND_API.G_EXC_ERROR;
2299: END IF;
2300: END LOOP;
2301: CLOSE get_task_versions_id2;
2302: END IF;
2596: ,x_msg_count => l_msg_count
2597: ,x_msg_data => l_msg_data
2598: );
2599:
2600: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2601: x_msg_count := FND_MSG_PUB.count_msg;
2602: IF x_msg_count = 1 then
2603: pa_interface_utils_pub.get_messages
2604: (p_encoded => FND_API.G_TRUE,
2600: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2601: x_msg_count := FND_MSG_PUB.count_msg;
2602: IF x_msg_count = 1 then
2603: pa_interface_utils_pub.get_messages
2604: (p_encoded => FND_API.G_TRUE,
2605: p_msg_index => 1,
2606: p_msg_count => l_msg_count,
2607: p_msg_data => l_msg_data,
2608: p_data => l_data,
2608: p_data => l_data,
2609: p_msg_index_out => l_msg_index_out);
2610: x_msg_data := l_data;
2611: END IF;
2612: raise FND_API.G_EXC_ERROR;
2613: END IF;
2614:
2615: END IF;
2616: -- Bug 2827063 This should be up in the code, as it is being accessed there
2680: ELSE
2681: CLOSE cur_proj_elems;
2682: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_INVALID_TASK_ID');
2683: l_msg_data := 'PA_PS_INVALID_TASK_ID';
2684: RAISE FND_API.G_EXC_ERROR;
2685: END IF;
2686:
2687: -- anlee
2688: -- Ext Attribute changes
2688: -- Ext Attribute changes
2689: -- Bug 2904327
2690:
2691: PA_USER_ATTR_PUB.DELETE_USER_ATTRS_DATA (
2692: p_validate_only => FND_API.G_FALSE
2693: ,p_project_id => v_cur_proj_elems_rec.project_id
2694: ,p_old_classification_id => v_cur_proj_elems_rec.type_id
2695: ,p_new_classification_id => l_type_id
2696: ,p_classification_type => 'TASK_TYPE'
2702:
2703: IF l_msg_count > 0 THEN
2704: x_msg_count := l_msg_count;
2705: x_return_status := 'E';
2706: RAISE FND_API.G_EXC_ERROR;
2707: END IF;
2708: -- anlee end of changes
2709:
2710: -- Bug 3075609. Moved here so that the processing is done after the
2723: x_msg_count := l_msg_count;
2724: IF x_msg_count = 1 THEN
2725: x_msg_data := l_msg_data;
2726: END IF;
2727: RAISE FND_API.G_EXC_ERROR;
2728: END IF;
2729: END IF;
2730:
2731: CLOSE cur_proj_elems;
2908: END IF;
2909: END IF;
2910: END IF;
2911:
2912: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2913: x_msg_count := FND_MSG_PUB.count_msg;
2914: IF x_msg_count = 1 then
2915: pa_interface_utils_pub.get_messages
2916: (p_encoded => FND_API.G_TRUE,
2912: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2913: x_msg_count := FND_MSG_PUB.count_msg;
2914: IF x_msg_count = 1 then
2915: pa_interface_utils_pub.get_messages
2916: (p_encoded => FND_API.G_TRUE,
2917: p_msg_index => 1,
2918: p_msg_count => l_msg_count,
2919: p_msg_data => l_msg_data,
2920: p_data => l_data,
2920: p_data => l_data,
2921: p_msg_index_out => l_msg_index_out);
2922: x_msg_data := l_data;
2923: END IF;
2924: raise FND_API.G_EXC_ERROR;
2925: END IF;
2926:
2927: END IF; --<< p_calling_module >
2928:
2943: ,x_msg_count => l_msg_count
2944: ,x_msg_data => l_msg_data
2945: );
2946:
2947: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2948: x_msg_count := FND_MSG_PUB.count_msg;
2949: IF x_msg_count = 1 then
2950: pa_interface_utils_pub.get_messages
2951: (p_encoded => FND_API.G_TRUE,
2947: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2948: x_msg_count := FND_MSG_PUB.count_msg;
2949: IF x_msg_count = 1 then
2950: pa_interface_utils_pub.get_messages
2951: (p_encoded => FND_API.G_TRUE,
2952: p_msg_index => 1,
2953: p_msg_count => l_msg_count,
2954: p_msg_data => l_msg_data,
2955: p_data => l_data,
2955: p_data => l_data,
2956: p_msg_index_out => l_msg_index_out);
2957: x_msg_data := l_data;
2958: END IF;
2959: raise FND_API.G_EXC_ERROR;
2960: END IF;
2961:
2962: --maansari
2963: IF PA_PROGRESS_UTILS.get_system_task_status( l_STATUS_CODE ) = 'CANCELLED'
2971: );
2972: IF (l_return_status <> 'S') THEN
2973: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2974: p_msg_name => l_error_message_code);
2975: raise FND_API.G_EXC_ERROR;
2976: END IF;
2977: END IF;
2978:
2979: PA_TASK_PVT1.set_new_tasks_to_TBD(
2984: ,x_msg_count => l_msg_count
2985: ,x_msg_data => l_msg_data
2986: );
2987:
2988: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2989: x_msg_count := FND_MSG_PUB.count_msg;
2990: IF x_msg_count = 1 then
2991: pa_interface_utils_pub.get_messages
2992: (p_encoded => FND_API.G_TRUE,
2988: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2989: x_msg_count := FND_MSG_PUB.count_msg;
2990: IF x_msg_count = 1 then
2991: pa_interface_utils_pub.get_messages
2992: (p_encoded => FND_API.G_TRUE,
2993: p_msg_index => 1,
2994: p_msg_count => l_msg_count,
2995: p_msg_data => l_msg_data,
2996: p_data => l_data,
2996: p_data => l_data,
2997: p_msg_index_out => l_msg_index_out);
2998: x_msg_data := l_data;
2999: END IF;
3000: raise FND_API.G_EXC_ERROR;
3001: END IF;
3002: --maansari
3003:
3004: PA_STRUCT_TASK_ROLLUP_PUB.Task_Status_Rollup(
3007: ,x_return_status => l_return_status
3008: ,x_msg_count => l_msg_count
3009: ,x_msg_data => l_msg_data
3010: );
3011: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3012: x_msg_count := FND_MSG_PUB.count_msg;
3013: IF x_msg_count = 1 then
3014: pa_interface_utils_pub.get_messages
3015: (p_encoded => FND_API.G_TRUE,
3011: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3012: x_msg_count := FND_MSG_PUB.count_msg;
3013: IF x_msg_count = 1 then
3014: pa_interface_utils_pub.get_messages
3015: (p_encoded => FND_API.G_TRUE,
3016: p_msg_index => 1,
3017: p_msg_count => l_msg_count,
3018: p_msg_data => l_msg_data,
3019: p_data => l_data,
3019: p_data => l_data,
3020: p_msg_index_out => l_msg_index_out);
3021: x_msg_data := l_data;
3022: END IF;
3023: raise FND_API.G_EXC_ERROR;
3024: END IF;
3025: END IF;
3026: --end task status change
3027:
3024: END IF;
3025: END IF;
3026: --end task status change
3027:
3028: x_return_status := FND_API.G_RET_STS_SUCCESS;
3029:
3030: EXCEPTION
3031: WHEN FND_API.G_EXC_ERROR THEN
3032: IF (p_commit = FND_API.G_TRUE) THEN
3027:
3028: x_return_status := FND_API.G_RET_STS_SUCCESS;
3029:
3030: EXCEPTION
3031: WHEN FND_API.G_EXC_ERROR THEN
3032: IF (p_commit = FND_API.G_TRUE) THEN
3033: ROLLBACK to UPDATE_TASK_PRIVATE;
3034: END IF;
3035: x_msg_count := FND_MSG_PUB.count_msg;
3028: x_return_status := FND_API.G_RET_STS_SUCCESS;
3029:
3030: EXCEPTION
3031: WHEN FND_API.G_EXC_ERROR THEN
3032: IF (p_commit = FND_API.G_TRUE) THEN
3033: ROLLBACK to UPDATE_TASK_PRIVATE;
3034: END IF;
3035: x_msg_count := FND_MSG_PUB.count_msg;
3036: x_return_status := FND_API.G_RET_STS_ERROR;
3032: IF (p_commit = FND_API.G_TRUE) THEN
3033: ROLLBACK to UPDATE_TASK_PRIVATE;
3034: END IF;
3035: x_msg_count := FND_MSG_PUB.count_msg;
3036: x_return_status := FND_API.G_RET_STS_ERROR;
3037: WHEN OTHERS THEN
3038: IF (p_commit = FND_API.G_TRUE) THEN
3039: ROLLBACK to UPDATE_TASK_PRIVATE;
3040: END IF;
3034: END IF;
3035: x_msg_count := FND_MSG_PUB.count_msg;
3036: x_return_status := FND_API.G_RET_STS_ERROR;
3037: WHEN OTHERS THEN
3038: IF (p_commit = FND_API.G_TRUE) THEN
3039: ROLLBACK to UPDATE_TASK_PRIVATE;
3040: END IF;
3041: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3042: x_msg_count := FND_MSG_PUB.count_msg;
3037: WHEN OTHERS THEN
3038: IF (p_commit = FND_API.G_TRUE) THEN
3039: ROLLBACK to UPDATE_TASK_PRIVATE;
3040: END IF;
3041: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3042: x_msg_count := FND_MSG_PUB.count_msg;
3043: --put message
3044: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
3045: p_procedure_name => 'update_Task',
3052: -- Pre-reqs : None
3053: -- Return Value : N/A
3054: -- Prameters
3055: -- p_api_version IN NUMBER N Not Null 1.0
3056: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
3057: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
3058: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
3059: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
3060: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
3053: -- Return Value : N/A
3054: -- Prameters
3055: -- p_api_version IN NUMBER N Not Null 1.0
3056: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
3057: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
3058: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
3059: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
3060: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
3061: -- p_debug_mode IN VARCHAR2 N Null N
3054: -- Prameters
3055: -- p_api_version IN NUMBER N Not Null 1.0
3056: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
3057: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
3058: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
3059: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
3060: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
3061: -- p_debug_mode IN VARCHAR2 N Null N
3062: -- p_max_msg_count IN NUMBER N NULL PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3055: -- p_api_version IN NUMBER N Not Null 1.0
3056: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
3057: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
3058: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
3059: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
3060: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
3061: -- p_debug_mode IN VARCHAR2 N Null N
3062: -- p_max_msg_count IN NUMBER N NULL PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3063: -- p_ref_task_version_id IN NUMBER N Not Null
3091: --
3092:
3093: PROCEDURE Create_Task_Version(
3094: p_api_version IN NUMBER :=1.0,
3095: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
3096: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
3097: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
3098: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
3099: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
3092:
3093: PROCEDURE Create_Task_Version(
3094: p_api_version IN NUMBER :=1.0,
3095: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
3096: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
3097: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
3098: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
3099: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
3100: p_debug_mode IN VARCHAR2 :='N',
3093: PROCEDURE Create_Task_Version(
3094: p_api_version IN NUMBER :=1.0,
3095: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
3096: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
3097: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
3098: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
3099: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
3100: p_debug_mode IN VARCHAR2 :='N',
3101: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
3094: p_api_version IN NUMBER :=1.0,
3095: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
3096: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
3097: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
3098: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
3099: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
3100: p_debug_mode IN VARCHAR2 :='N',
3101: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
3102: p_ref_task_version_id IN NUMBER,
3227: IF (p_debug_mode = 'Y') THEN
3228: pa_debug.debug('PA_TASK_PVT1.CREATE_TASK_VERSION begin');
3229: END IF;
3230:
3231: IF (p_commit = FND_API.G_TRUE) THEN
3232: savepoint CREATE_TASK_VER_PRIVATE;
3233: END IF;
3234:
3235: IF (p_debug_mode = 'Y') THEN
3372: IF l_base_deriv_code LIKE 'DELIVERABLE' THEN
3373: IF PA_PROJ_ELEMENTS_UTILS.check_task_parents_deliv(l_ref_parent_task_ver_id) = 'Y' THEN
3374: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3375: p_msg_name => 'PA_TASK_AND_PARENTTASK_DEL');
3376: raise FND_API.G_EXC_ERROR;
3377: END IF;
3378: END IF;
3379: --
3380: --
3459:
3460: IF (l_return_status <> 'Y') THEN
3461: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3462: p_msg_name => l_error_message_code);
3463: raise FND_API.G_EXC_ERROR;
3464: END IF;
3465: END IF;
3466: --end bug 2695631
3467:
3491:
3492: IF (l_return_status <> 'Y') THEN
3493: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3494: p_msg_name => l_error_message_code);
3495: raise FND_API.G_EXC_ERROR;
3496: END IF;
3497: END IF;
3498: --end bug 2695631
3499: END IF;
3641: IF x_return_status <> 'S'
3642: THEN
3643: --dbms_output.put_line( 'raising exception' );
3644: CLOSE cur_proj_elems;
3645: RAISE FND_API.G_EXC_ERROR;
3646: END IF;
3647:
3648: --dbms_output.put_line( 'Before WBS_NUMBER' );
3649:
3665:
3666: IF x_return_status <> 'S'
3667: THEN
3668: CLOSE cur_proj_elems;
3669: RAISE FND_API.G_EXC_ERROR;
3670: END IF;
3671:
3672: ELSE
3673: CLOSE cur_proj_elems;
3672: ELSE
3673: CLOSE cur_proj_elems;
3674: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_INV_REF_TASK_ID');
3675: l_msg_data := 'PA_PS_INV_REF_TASK_ID';
3676: RAISE FND_API.G_EXC_ERROR;
3677: END IF;
3678: CLOSE cur_proj_elems;
3679: x_return_status := FND_API.G_RET_STS_SUCCESS;
3680: --my_error_msg( 'In create_task_version pvt API Stage 7' );
3675: l_msg_data := 'PA_PS_INV_REF_TASK_ID';
3676: RAISE FND_API.G_EXC_ERROR;
3677: END IF;
3678: CLOSE cur_proj_elems;
3679: x_return_status := FND_API.G_RET_STS_SUCCESS;
3680: --my_error_msg( 'In create_task_version pvt API Stage 7' );
3681:
3682:
3683: EXCEPTION
3680: --my_error_msg( 'In create_task_version pvt API Stage 7' );
3681:
3682:
3683: EXCEPTION
3684: WHEN FND_API.G_EXC_ERROR THEN
3685: IF (p_commit = FND_API.G_TRUE) THEN
3686: ROLLBACK to CREATE_TASK_VER_PRIVATE;
3687: END IF;
3688: x_msg_count := FND_MSG_PUB.count_msg;
3681:
3682:
3683: EXCEPTION
3684: WHEN FND_API.G_EXC_ERROR THEN
3685: IF (p_commit = FND_API.G_TRUE) THEN
3686: ROLLBACK to CREATE_TASK_VER_PRIVATE;
3687: END IF;
3688: x_msg_count := FND_MSG_PUB.count_msg;
3689: x_return_status := FND_API.G_RET_STS_ERROR;
3685: IF (p_commit = FND_API.G_TRUE) THEN
3686: ROLLBACK to CREATE_TASK_VER_PRIVATE;
3687: END IF;
3688: x_msg_count := FND_MSG_PUB.count_msg;
3689: x_return_status := FND_API.G_RET_STS_ERROR;
3690:
3691: -- --dbms_output.put_line( 'In exception ');
3692: -- --dbms_output.put_line( 'Status In exception ' ||x_return_status);
3693:
3692: -- --dbms_output.put_line( 'Status In exception ' ||x_return_status);
3693:
3694:
3695: WHEN OTHERS THEN
3696: IF (p_commit = FND_API.G_TRUE) THEN
3697: ROLLBACK to CREATE_TASK_VER_PRIVATE;
3698: END IF;
3699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3700: x_msg_count := FND_MSG_PUB.count_msg;
3695: WHEN OTHERS THEN
3696: IF (p_commit = FND_API.G_TRUE) THEN
3697: ROLLBACK to CREATE_TASK_VER_PRIVATE;
3698: END IF;
3699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3700: x_msg_count := FND_MSG_PUB.count_msg;
3701: --put message
3702: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
3703: p_procedure_name => 'create_Task_version',
3711: -- Pre-reqs : None
3712: -- Return Value : N/A
3713: -- Prameters
3714: -- p_api_version IN NUMBER N Not Null 1.0
3715: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
3716: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
3717: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
3718: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
3719: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
3712: -- Return Value : N/A
3713: -- Prameters
3714: -- p_api_version IN NUMBER N Not Null 1.0
3715: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
3716: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
3717: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
3718: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
3719: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
3720: -- p_debug_mode IN VARCHAR2 N Null N
3713: -- Prameters
3714: -- p_api_version IN NUMBER N Not Null 1.0
3715: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
3716: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
3717: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
3718: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
3719: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
3720: -- p_debug_mode IN VARCHAR2 N Null N
3721: -- p_max_msg_count IN NUMBER N NULL PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3714: -- p_api_version IN NUMBER N Not Null 1.0
3715: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
3716: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
3717: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
3718: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
3719: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
3720: -- p_debug_mode IN VARCHAR2 N Null N
3721: -- p_max_msg_count IN NUMBER N NULL PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3722: -- p_task_version_id IN NUMBER N Null
3748: --
3749:
3750: PROCEDURE Update_Task_Version(
3751: p_api_version IN NUMBER :=1.0,
3752: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
3753: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
3754: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
3755: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
3756: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
3749:
3750: PROCEDURE Update_Task_Version(
3751: p_api_version IN NUMBER :=1.0,
3752: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
3753: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
3754: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
3755: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
3756: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
3757: p_debug_mode IN VARCHAR2 :='N',
3750: PROCEDURE Update_Task_Version(
3751: p_api_version IN NUMBER :=1.0,
3752: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
3753: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
3754: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
3755: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
3756: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
3757: p_debug_mode IN VARCHAR2 :='N',
3758: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
3751: p_api_version IN NUMBER :=1.0,
3752: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
3753: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
3754: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
3755: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
3756: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
3757: p_debug_mode IN VARCHAR2 :='N',
3758: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
3759: p_ref_task_version_id IN NUMBER,
3980: IF (p_debug_mode = 'Y') THEN
3981: pa_debug.debug('PA_TASK_PVT1.UPDATE_TASK_VERSION begin');
3982: END IF;
3983:
3984: IF (p_commit = FND_API.G_TRUE) THEN
3985: savepoint UPDATE_TASK_VER_PRIVATE;
3986: END IF;
3987:
3988: IF (p_debug_mode = 'Y') THEN
3994: -- IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id,p_task_version_id) = 'Y' THEN
3995: -- IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id,p_ref_task_version_id) = 'Y' THEN
3996: -- PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3997: -- p_msg_name => 'PA_PS_CHK_DELIV_UPDATE');
3998: -- raise FND_API.G_EXC_ERROR;
3999: -- END IF;
4000:
4001: OPEN cur_ref_task;
4002: FETCH cur_ref_task INTO v_cur_ref_task_rec;
4305: ELSE
4306: CLOSE cur_proj_elems;
4307: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_INVALID_TASK_ID');
4308: l_msg_data := 'PA_PS_INVALID_TASK_ID';
4309: RAISE FND_API.G_EXC_ERROR;
4310: END IF;
4311: CLOSE cur_proj_elems;
4312: -- ELSE
4313: -- CLOSE cur_ref_task;
4312: -- ELSE
4313: -- CLOSE cur_ref_task;
4314: -- PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_INV_REF_TASK_ID');
4315: -- l_msg_data := 'PA_PS_INV_REF_TASK_ID';
4316: -- RAISE FND_API.G_EXC_ERROR;
4317: -- END IF;
4318:
4319: CLOSE cur_ref_task;
4320:
4475: ,x_msg_count => l_msg_count
4476: ,x_msg_data => l_msg_data
4477: );
4478:
4479: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4480: x_msg_count := FND_MSG_PUB.count_msg;
4481: IF x_msg_count = 1 then
4482: pa_interface_utils_pub.get_messages
4483: (p_encoded => FND_API.G_TRUE,
4479: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4480: x_msg_count := FND_MSG_PUB.count_msg;
4481: IF x_msg_count = 1 then
4482: pa_interface_utils_pub.get_messages
4483: (p_encoded => FND_API.G_TRUE,
4484: p_msg_index => 1,
4485: p_msg_count => l_msg_count,
4486: p_msg_data => l_msg_data,
4487: p_data => l_data,
4487: p_data => l_data,
4488: p_msg_index_out => l_msg_index_out);
4489: x_msg_data := l_data;
4490: END IF;
4491: raise FND_API.G_EXC_ERROR;
4492: END IF;
4493:
4494: IF l_update_new_child_rels = 'Y' AND p_action IN( 'OUTDENT' )
4495: THEN
4530: ,x_msg_count => x_msg_count
4531: ,x_msg_data => x_msg_data
4532: );
4533:
4534: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4535: x_msg_count := FND_MSG_PUB.count_msg;
4536: IF x_msg_count = 1 then
4537: pa_interface_utils_pub.get_messages
4538: (p_encoded => FND_API.G_TRUE,
4534: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4535: x_msg_count := FND_MSG_PUB.count_msg;
4536: IF x_msg_count = 1 then
4537: pa_interface_utils_pub.get_messages
4538: (p_encoded => FND_API.G_TRUE,
4539: p_msg_index => 1,
4540: p_msg_count => l_msg_count,
4541: p_msg_data => l_msg_data,
4542: p_data => l_data,
4542: p_data => l_data,
4543: p_msg_index_out => l_msg_index_out);
4544: x_msg_data := l_data;
4545: END IF;
4546: raise FND_API.G_EXC_ERROR;
4547: END IF;
4548:
4549: END LOOP;
4550: END IF;
4560:
4561: x_msg_count := FND_MSG_PUB.count_msg;
4562: IF x_msg_count = 1 then
4563: pa_interface_utils_pub.get_messages
4564: (p_encoded => FND_API.G_TRUE,
4565: p_msg_index => 1,
4566: p_msg_count => l_msg_count,
4567: p_msg_data => l_msg_data,
4568: p_data => l_data,
4580:
4581: x_msg_count := FND_MSG_PUB.count_msg;
4582: IF x_msg_count = 1 then
4583: pa_interface_utils_pub.get_messages
4584: (p_encoded => FND_API.G_TRUE,
4585: p_msg_index => 1,
4586: p_msg_count => l_msg_count,
4587: p_msg_data => l_msg_data,
4588: p_data => l_data,
4762: END LOOP;
4763: END;
4764: END IF; --<< p_action = 'MOVE' >>
4765:
4766: x_return_status := FND_API.G_RET_STS_SUCCESS;
4767:
4768: EXCEPTION
4769: WHEN FND_API.G_EXC_ERROR THEN
4770: IF (p_commit = FND_API.G_TRUE) THEN
4765:
4766: x_return_status := FND_API.G_RET_STS_SUCCESS;
4767:
4768: EXCEPTION
4769: WHEN FND_API.G_EXC_ERROR THEN
4770: IF (p_commit = FND_API.G_TRUE) THEN
4771: ROLLBACK to UPDATE_TASK_VER_PRIVATE;
4772: END IF;
4773: x_msg_count := FND_MSG_PUB.count_msg;
4766: x_return_status := FND_API.G_RET_STS_SUCCESS;
4767:
4768: EXCEPTION
4769: WHEN FND_API.G_EXC_ERROR THEN
4770: IF (p_commit = FND_API.G_TRUE) THEN
4771: ROLLBACK to UPDATE_TASK_VER_PRIVATE;
4772: END IF;
4773: x_msg_count := FND_MSG_PUB.count_msg;
4774: x_return_status := FND_API.G_RET_STS_ERROR;
4770: IF (p_commit = FND_API.G_TRUE) THEN
4771: ROLLBACK to UPDATE_TASK_VER_PRIVATE;
4772: END IF;
4773: x_msg_count := FND_MSG_PUB.count_msg;
4774: x_return_status := FND_API.G_RET_STS_ERROR;
4775: WHEN OTHERS THEN
4776: IF (p_commit = FND_API.G_TRUE) THEN
4777: ROLLBACK to UPDATE_TASK_VER_PRIVATE;
4778: END IF;
4772: END IF;
4773: x_msg_count := FND_MSG_PUB.count_msg;
4774: x_return_status := FND_API.G_RET_STS_ERROR;
4775: WHEN OTHERS THEN
4776: IF (p_commit = FND_API.G_TRUE) THEN
4777: ROLLBACK to UPDATE_TASK_VER_PRIVATE;
4778: END IF;
4779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4780: x_msg_count := FND_MSG_PUB.count_msg;
4775: WHEN OTHERS THEN
4776: IF (p_commit = FND_API.G_TRUE) THEN
4777: ROLLBACK to UPDATE_TASK_VER_PRIVATE;
4778: END IF;
4779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4780: x_msg_count := FND_MSG_PUB.count_msg;
4781: --put message
4782: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
4783: p_procedure_name => 'update_Task_version',
4789: -- Pre-reqs : None
4790: -- Return Value : N/A
4791: -- Prameters
4792: -- p_api_version IN NUMBER N Not Null 1.0
4793: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
4794: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
4795: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
4796: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
4797: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
4790: -- Return Value : N/A
4791: -- Prameters
4792: -- p_api_version IN NUMBER N Not Null 1.0
4793: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
4794: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
4795: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
4796: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
4797: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
4798: -- p_debug_mode IN VARCHAR2 N Null N
4791: -- Prameters
4792: -- p_api_version IN NUMBER N Not Null 1.0
4793: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
4794: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
4795: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
4796: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
4797: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
4798: -- p_debug_mode IN VARCHAR2 N Null N
4799: -- p_max_msg_count IN NUMBER N NULL PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4792: -- p_api_version IN NUMBER N Not Null 1.0
4793: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
4794: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
4795: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
4796: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
4797: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
4798: -- p_debug_mode IN VARCHAR2 N Null N
4799: -- p_max_msg_count IN NUMBER N NULL PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4800: -- p_structure_version_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4811: --
4812: --
4813: PROCEDURE Delete_Task_Version(
4814: p_api_version IN NUMBER :=1.0,
4815: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
4816: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
4817: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
4818: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
4819: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
4812: --
4813: PROCEDURE Delete_Task_Version(
4814: p_api_version IN NUMBER :=1.0,
4815: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
4816: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
4817: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
4818: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
4819: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
4820: p_debug_mode IN VARCHAR2 :='N',
4813: PROCEDURE Delete_Task_Version(
4814: p_api_version IN NUMBER :=1.0,
4815: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
4816: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
4817: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
4818: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
4819: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
4820: p_debug_mode IN VARCHAR2 :='N',
4821: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
4814: p_api_version IN NUMBER :=1.0,
4815: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
4816: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
4817: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
4818: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
4819: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
4820: p_debug_mode IN VARCHAR2 :='N',
4821: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
4822: p_structure_version_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
5154: , x_return_status => x_return_status
5155: , x_msg_count => x_msg_count
5156: , x_msg_data => x_msg_data
5157: , x_error_msg_code => l_error_msg_code );
5158: If x_return_status = FND_API.G_RET_STS_ERROR then
5159: RAISE FND_API.G_EXC_ERROR;
5160: End If;
5161: End If;
5162: -- End of FP_M changes
5155: , x_msg_count => x_msg_count
5156: , x_msg_data => x_msg_data
5157: , x_error_msg_code => l_error_msg_code );
5158: If x_return_status = FND_API.G_RET_STS_ERROR then
5159: RAISE FND_API.G_EXC_ERROR;
5160: End If;
5161: End If;
5162: -- End of FP_M changes
5163: */
5166: IF (p_debug_mode = 'Y') THEN
5167: pa_debug.debug('PA_TASK_PVT1.DELETE_TASK_VERSION begin');
5168: END IF;
5169:
5170: IF (p_commit = FND_API.G_TRUE) THEN
5171: savepoint DELETE_TASK_VER_PRIVATE;
5172: END IF;
5173:
5174: IF (p_debug_mode = 'Y') THEN
5191: IF ('N' = pa_proj_elements_utils.check_task_in_structure(
5192: p_structure_version_id,
5193: p_task_version_id)) THEN
5194: --deleting linked task. Error
5195: x_return_status := FND_API.G_RET_STS_ERROR;
5196: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NO_DEL_LINKED_TASK');
5197: l_msg_data := 'PA_PS_NO_DEL_LINKED_TASK';
5198: RAISE FND_API.G_EXC_ERROR;
5199: END IF;
5194: --deleting linked task. Error
5195: x_return_status := FND_API.G_RET_STS_ERROR;
5196: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NO_DEL_LINKED_TASK');
5197: l_msg_data := 'PA_PS_NO_DEL_LINKED_TASK';
5198: RAISE FND_API.G_EXC_ERROR;
5199: END IF;
5200: END IF;
5201:
5202: --hsiu added, for dates rollup
5243: WHEN OTHERS THEN
5244: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
5245: p_procedure_name => 'delete_Task_version',
5246: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions:'||SQLERRM,1,240));
5247: RAISE FND_API.G_EXC_ERROR;
5248: END;
5249: IF x_return_status = FND_API.G_RET_STS_ERROR then
5250: RAISE FND_API.G_EXC_ERROR;
5251: End If;
5245: p_procedure_name => 'delete_Task_version',
5246: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions:'||SQLERRM,1,240));
5247: RAISE FND_API.G_EXC_ERROR;
5248: END;
5249: IF x_return_status = FND_API.G_RET_STS_ERROR then
5250: RAISE FND_API.G_EXC_ERROR;
5251: End If;
5252: END IF;
5253: --end bug 4006401
5246: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions:'||SQLERRM,1,240));
5247: RAISE FND_API.G_EXC_ERROR;
5248: END;
5249: IF x_return_status = FND_API.G_RET_STS_ERROR then
5250: RAISE FND_API.G_EXC_ERROR;
5251: End If;
5252: END IF;
5253: --end bug 4006401
5254:
5306: ,x_return_status => x_return_status
5307: ,x_msg_count => x_msg_count
5308: ,x_msg_data => x_msg_data);
5309:
5310: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
5311: x_msg_count := FND_MSG_PUB.count_msg;
5312: If x_msg_count = 1 then
5313: pa_interface_utils_pub.get_messages
5314: (p_encoded => FND_API.G_TRUE,
5310: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
5311: x_msg_count := FND_MSG_PUB.count_msg;
5312: If x_msg_count = 1 then
5313: pa_interface_utils_pub.get_messages
5314: (p_encoded => FND_API.G_TRUE,
5315: p_msg_index => 1,
5316: p_msg_count => l_msg_count,
5317: p_msg_data => l_msg_data,
5318: p_data => l_data,
5318: p_data => l_data,
5319: p_msg_index_out => l_msg_index_out);
5320: x_msg_data := l_data;
5321: End If;
5322: raise FND_API.G_EXC_ERROR;
5323: End If;
5324: End If;
5325:
5326: OPEN cur_pa_projs( l_project_id );
5355: ,p_bulk_flag => 'Y'
5356: ,x_return_status => l_return_status
5357: ,x_msg_count => l_msg_count
5358: ,x_msg_data => l_msg_data);
5359: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5360: x_msg_count := FND_MSG_PUB.count_msg;
5361: IF x_msg_count = 1 then
5362: pa_interface_utils_pub.get_messages(
5363: p_encoded => FND_API.G_TRUE,
5359: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5360: x_msg_count := FND_MSG_PUB.count_msg;
5361: IF x_msg_count = 1 then
5362: pa_interface_utils_pub.get_messages(
5363: p_encoded => FND_API.G_TRUE,
5364: p_msg_index => 1,
5365: p_msg_count => l_msg_count,
5366: p_msg_data => l_msg_data,
5367: p_data => l_data,
5367: p_data => l_data,
5368: p_msg_index_out => l_msg_index_out);
5369: x_msg_data := l_data;
5370: END IF;
5371: raise FND_API.G_EXC_ERROR;
5372: END IF;
5373: END IF; --called_from_api chk.
5374: END IF; --delete flag chk
5375: --end bug 4006401
5426: IF (l_return_status <> 'S') THEN
5427: x_return_status := l_return_status;
5428: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
5429: l_msg_data := l_error_message_code;
5430: RAISE FND_API.G_EXC_ERROR;
5431: END IF;
5432: */
5433:
5434: --dbms_output.put_line( 'before workplan test ' );
5486: WHEN OTHERS THEN
5487: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
5488: p_procedure_name => 'delete_Task_version',
5489: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions:'||SQLERRM,1,240));
5490: RAISE FND_API.G_EXC_ERROR;
5491: END;
5492: IF x_return_status = FND_API.G_RET_STS_ERROR then
5493: RAISE FND_API.G_EXC_ERROR;
5494: End If;
5488: p_procedure_name => 'delete_Task_version',
5489: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions:'||SQLERRM,1,240));
5490: RAISE FND_API.G_EXC_ERROR;
5491: END;
5492: IF x_return_status = FND_API.G_RET_STS_ERROR then
5493: RAISE FND_API.G_EXC_ERROR;
5494: End If;
5495: END IF;
5496: */
5489: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions:'||SQLERRM,1,240));
5490: RAISE FND_API.G_EXC_ERROR;
5491: END;
5492: IF x_return_status = FND_API.G_RET_STS_ERROR then
5493: RAISE FND_API.G_EXC_ERROR;
5494: End If;
5495: END IF;
5496: */
5497: -- till here by skannoji
5526: , x_msg_data => x_msg_data);
5527: END IF;
5528: CLOSE cur_fp_tsk_ver_id;
5529:
5530: If x_return_status = FND_API.G_RET_STS_ERROR then
5531: RAISE FND_API.G_EXC_ERROR;
5532: End If;
5533: End If;
5534: -- till here
5527: END IF;
5528: CLOSE cur_fp_tsk_ver_id;
5529:
5530: If x_return_status = FND_API.G_RET_STS_ERROR then
5531: RAISE FND_API.G_EXC_ERROR;
5532: End If;
5533: End If;
5534: -- till here
5535:
5600: ,x_msg_count => x_msg_count
5601: ,x_msg_data => x_msg_data
5602: );
5603:
5604: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
5605: x_msg_count := FND_MSG_PUB.count_msg;
5606: If x_msg_count = 1 then
5607: pa_interface_utils_pub.get_messages
5608: (p_encoded => FND_API.G_TRUE,
5604: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
5605: x_msg_count := FND_MSG_PUB.count_msg;
5606: If x_msg_count = 1 then
5607: pa_interface_utils_pub.get_messages
5608: (p_encoded => FND_API.G_TRUE,
5609: p_msg_index => 1,
5610: p_msg_count => l_msg_count,
5611: p_msg_data => l_msg_data,
5612: p_data => l_data,
5612: p_data => l_data,
5613: p_msg_index_out => l_msg_index_out);
5614: x_msg_data := l_data;
5615: End If;
5616: raise FND_API.G_EXC_ERROR;
5617: End If;
5618: End If;
5619: -- End of FP_M changes
5620:
5652: , x_msg_data => l_msg_data
5653: , x_msg_count => l_msg_count
5654: );
5655:
5656: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5657: x_msg_count := FND_MSG_PUB.count_msg;
5658: IF x_msg_count = 1 then
5659: pa_interface_utils_pub.get_messages
5660: (p_encoded => FND_API.G_TRUE,
5656: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5657: x_msg_count := FND_MSG_PUB.count_msg;
5658: IF x_msg_count = 1 then
5659: pa_interface_utils_pub.get_messages
5660: (p_encoded => FND_API.G_TRUE,
5661: p_msg_index => 1,
5662: p_msg_count => l_msg_count,
5663: p_msg_data => l_msg_data,
5664: p_data => l_data,
5664: p_data => l_data,
5665: p_msg_index_out => l_msg_index_out);
5666: x_msg_data := l_data;
5667: END IF;
5668: raise FND_API.G_EXC_ERROR;
5669: END IF;
5670: END If; --<< not calling if called from move_task_version api >
5671: --End Bug 2947492
5672: */
5694: ,x_return_status => l_return_status
5695: ,x_msg_count => l_msg_count
5696: ,x_msg_data => l_msg_data
5697: );
5698: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5699: x_msg_count := FND_MSG_PUB.count_msg;
5700: IF x_msg_count = 1 then
5701: pa_interface_utils_pub.get_messages
5702: (p_encoded => FND_API.G_TRUE,
5698: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5699: x_msg_count := FND_MSG_PUB.count_msg;
5700: IF x_msg_count = 1 then
5701: pa_interface_utils_pub.get_messages
5702: (p_encoded => FND_API.G_TRUE,
5703: p_msg_index => 1,
5704: p_msg_count => l_msg_count,
5705: p_msg_data => l_msg_data,
5706: p_data => l_data,
5706: p_data => l_data,
5707: p_msg_index_out => l_msg_index_out);
5708: x_msg_data := l_data;
5709: END IF;
5710: raise FND_API.G_EXC_ERROR;
5711: END IF;
5712:
5713: END IF; --called_from_api chk.
5714: END IF; --delete flag chk
5758: IF l_debug_mode = 'Y' THEN
5759: pa_debug.write('PA_TASK_PVT1.DELETE_TASK_VERSION', 'After PA_RELATIONSHIP_PUB.Delete_SubProject_Association l_return_status='||l_return_status, 3);
5760: END IF;
5761:
5762: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5763: x_msg_count := FND_MSG_PUB.count_msg;
5764: IF x_msg_count = 1 then
5765: pa_interface_utils_pub.get_messages
5766: (p_encoded => FND_API.G_TRUE,
5762: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5763: x_msg_count := FND_MSG_PUB.count_msg;
5764: IF x_msg_count = 1 then
5765: pa_interface_utils_pub.get_messages
5766: (p_encoded => FND_API.G_TRUE,
5767: p_msg_index => 1,
5768: p_msg_count => l_msg_count,
5769: p_msg_data => l_msg_data,
5770: p_data => l_data,
5770: p_data => l_data,
5771: p_msg_index_out => l_msg_index_out);
5772: x_msg_data := l_data;
5773: END IF;
5774: RAISE FND_API.G_EXC_ERROR;
5775: END IF;
5776: END IF; --4573340
5777: CLOSE get_subproj_relation;
5778:
5793: ,x_msg_count => l_msg_count
5794: ,x_msg_data => l_msg_data
5795: );
5796:
5797: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5798: x_msg_count := FND_MSG_PUB.count_msg;
5799: IF x_msg_count = 1 then
5800: pa_interface_utils_pub.get_messages
5801: (p_encoded => FND_API.G_TRUE,
5797: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5798: x_msg_count := FND_MSG_PUB.count_msg;
5799: IF x_msg_count = 1 then
5800: pa_interface_utils_pub.get_messages
5801: (p_encoded => FND_API.G_TRUE,
5802: p_msg_index => 1,
5803: p_msg_count => l_msg_count,
5804: p_msg_data => l_msg_data,
5805: p_data => l_data,
5805: p_data => l_data,
5806: p_msg_index_out => l_msg_index_out);
5807: x_msg_data := l_data;
5808: END IF;
5809: raise FND_API.G_EXC_ERROR;
5810: END IF;
5811:
5812: PA_PROJ_ELEMENT_VERSIONS_PKG.Delete_Row( x_row_id );
5813:
5822: ,p_action => 'DELETE'
5823: ,p_parent_task_id => l_parent_task_verion_id
5824: ,x_return_status => l_return_status );
5825:
5826: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5827: x_msg_count := FND_MSG_PUB.count_msg;
5828: IF x_msg_count = 1 then
5829: pa_interface_utils_pub.get_messages
5830: (p_encoded => FND_API.G_TRUE,
5826: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5827: x_msg_count := FND_MSG_PUB.count_msg;
5828: IF x_msg_count = 1 then
5829: pa_interface_utils_pub.get_messages
5830: (p_encoded => FND_API.G_TRUE,
5831: p_msg_index => 1,
5832: p_msg_count => l_msg_count,
5833: p_msg_data => l_msg_data,
5834: p_data => l_data,
5834: p_data => l_data,
5835: p_msg_index_out => l_msg_index_out);
5836: x_msg_data := l_data;
5837: END IF;
5838: raise FND_API.G_EXC_ERROR;
5839: END IF;
5840: --Ansari
5841:
5842: IF p_called_from_api <> 'MOVE_TASK_VERSION' THEN
5877: , x_msg_data => x_msg_data);
5878: End If;
5879: -- Added by skannoji end here
5880:
5881: IF x_return_status = FND_API.G_RET_STS_ERROR then
5882: RAISE FND_API.G_EXC_ERROR;
5883: End If;
5884:
5885: -- 4201927 Commented below code
5878: End If;
5879: -- Added by skannoji end here
5880:
5881: IF x_return_status = FND_API.G_RET_STS_ERROR then
5882: RAISE FND_API.G_EXC_ERROR;
5883: End If;
5884:
5885: -- 4201927 Commented below code
5886: /*
5895: -- Ext Attribute changes
5896: -- Bug 2904327
5897:
5898: PA_USER_ATTR_PUB.DELETE_ALL_USER_ATTRS_DATA (
5899: p_validate_only => FND_API.G_FALSE
5900: ,p_project_id => x_project_id
5901: ,p_proj_element_id => l_proj_element_id
5902: ,x_return_status => l_return_status
5903: ,x_msg_count => l_msg_count
5907:
5908: IF l_msg_count > 0 THEN
5909: x_msg_count := l_msg_count;
5910: x_return_status := 'E';
5911: RAISE FND_API.G_EXC_ERROR;
5912: END IF;
5913: -- anlee end of changes
5914:
5915: --bug 3055766
5923:
5924: IF l_msg_count > 0 THEN
5925: x_msg_count := l_msg_count;
5926: x_return_status := 'E';
5927: RAISE FND_API.G_EXC_ERROR;
5928: END IF;
5929:
5930: --End bug 3055766
5931:
5975: p_pkg_name => 'PA_TASK_PVT1',
5976: p_procedure_name => 'Delete_Task_Version',
5977: p_error_text => SUBSTRB('PA_PROGRESS_PUB.delete_working_wp_progress:'||SQLERRM,1,240));
5978:
5979: RAISE FND_API.G_EXC_ERROR;
5980:
5981: END;
5982:
5983: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5979: RAISE FND_API.G_EXC_ERROR;
5980:
5981: END;
5982:
5983: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5984:
5985: RAISE FND_API.G_EXC_ERROR;
5986:
5987: END IF;
5981: END;
5982:
5983: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5984:
5985: RAISE FND_API.G_EXC_ERROR;
5986:
5987: END IF;
5988: */
5989:
6014: p_pkg_name => 'PA_TASK_PVT1',
6015: p_procedure_name => 'Delete_Task_Version',
6016: p_error_text => SUBSTRB('PA_PROGRESS_PUB.delete_working_wp_progress:'||SQLERRM,1,240));
6017:
6018: RAISE FND_API.G_EXC_ERROR;
6019:
6020: END;
6021:
6022: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6018: RAISE FND_API.G_EXC_ERROR;
6019:
6020: END;
6021:
6022: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6023:
6024: RAISE FND_API.G_EXC_ERROR;
6025:
6026: END IF;
6020: END;
6021:
6022: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6023:
6024: RAISE FND_API.G_EXC_ERROR;
6025:
6026: END IF;
6027:
6028: END IF;
6043: AND PA_PROJ_ELEMENTS_UTILS.link_flag ( proj_element_id ) = 'N';
6044: EXCEPTION
6045: WHEN OTHERS THEN
6046: PA_UTILS.ADD_MESSAGE('PA', 'PA_TASK_SEQ_NUM_ERR');
6047: raise FND_API.G_EXC_ERROR;
6048: END;
6049:
6050: --hsiu added, for dates rollup
6051: IF (l_peer_tasks_exist = 'Y') THEN
6053: --IF PA_PROJECT_STRUCTURE_UTILS.GET_STRUC_TYPE_FOR_VERSION(x_parent_struc_ver_id, 'WORKPLAN') = 'Y' then -- 4201927 commented
6054:
6055: IF l_structure_type_wp = 'Y' then -- 4201927 Added
6056: PA_STRUCT_TASK_ROLLUP_PUB.Tasks_Rollup(
6057: p_commit => FND_API.G_FALSE,
6058: p_element_versions => l_tasks_ver_ids,
6059: x_return_status => l_return_status,
6060: x_msg_count => l_msg_count,
6061: x_msg_data => l_msg_data);
6059: x_return_status => l_return_status,
6060: x_msg_count => l_msg_count,
6061: x_msg_data => l_msg_data);
6062:
6063: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6064: x_msg_count := FND_MSG_PUB.count_msg;
6065: if x_msg_count = 1 then
6066: pa_interface_utils_pub.get_messages
6067: (p_encoded => FND_API.G_TRUE,
6063: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6064: x_msg_count := FND_MSG_PUB.count_msg;
6065: if x_msg_count = 1 then
6066: pa_interface_utils_pub.get_messages
6067: (p_encoded => FND_API.G_TRUE,
6068: p_msg_index => 1,
6069: p_msg_count => l_msg_count,
6070: p_msg_data => l_msg_data,
6071: p_data => l_data,
6071: p_data => l_data,
6072: p_msg_index_out => l_msg_index_out);
6073: x_msg_data := l_data;
6074: end if;
6075: RAISE FND_API.G_EXC_ERROR;
6076: end if;
6077: END IF;
6078:
6079: ELSE
6108:
6109: IF (l_template_flag = 'Y' OR l_ver_enabled = 'N') THEN
6110:
6111: PA_PROJECT_DATES_PUB.UPDATE_PROJECT_DATES (
6112: p_validate_only => FND_API.G_FALSE
6113: ,p_project_id => l_project_id
6114: ,p_date_type => 'SCHEDULED'
6115: ,p_start_date => trunc(sysdate)
6116: ,p_finish_date => trunc(sysdate)
6118: ,x_return_status => x_return_status
6119: ,x_msg_count => x_msg_count
6120: ,x_msg_data => x_msg_data );
6121:
6122: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6123: RAISE FND_API.G_EXC_ERROR;
6124: END IF;
6125: END IF;
6126:
6119: ,x_msg_count => x_msg_count
6120: ,x_msg_data => x_msg_data );
6121:
6122: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6123: RAISE FND_API.G_EXC_ERROR;
6124: END IF;
6125: END IF;
6126:
6127: -- End fix for Bug # 4506308.
6144: ,x_msg_count => l_msg_count
6145: ,x_msg_data => l_msg_data
6146: );
6147:
6148: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6149: x_msg_count := FND_MSG_PUB.count_msg;
6150: if x_msg_count = 1 then
6151: pa_interface_utils_pub.get_messages
6152: (p_encoded => FND_API.G_TRUE,
6148: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6149: x_msg_count := FND_MSG_PUB.count_msg;
6150: if x_msg_count = 1 then
6151: pa_interface_utils_pub.get_messages
6152: (p_encoded => FND_API.G_TRUE,
6153: p_msg_index => 1,
6154: p_msg_count => l_msg_count,
6155: p_msg_data => l_msg_data,
6156: p_data => l_data,
6156: p_data => l_data,
6157: p_msg_index_out => l_msg_index_out);
6158: x_msg_data := l_data;
6159: end if;
6160: RAISE FND_API.G_EXC_ERROR;
6161: end if;
6162:
6163: END IF;
6164: CLOSE get_latest_task_ver_id;
6175: ,x_msg_count => l_msg_count
6176: ,x_msg_data => l_msg_data
6177: );
6178:
6179: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6180: x_msg_count := FND_MSG_PUB.count_msg;
6181: if x_msg_count = 1 then
6182: pa_interface_utils_pub.get_messages
6183: (p_encoded => FND_API.G_TRUE,
6179: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6180: x_msg_count := FND_MSG_PUB.count_msg;
6181: if x_msg_count = 1 then
6182: pa_interface_utils_pub.get_messages
6183: (p_encoded => FND_API.G_TRUE,
6184: p_msg_index => 1,
6185: p_msg_count => l_msg_count,
6186: p_msg_data => l_msg_data,
6187: p_data => l_data,
6187: p_data => l_data,
6188: p_msg_index_out => l_msg_index_out);
6189: x_msg_data := l_data;
6190: end if;
6191: RAISE FND_API.G_EXC_ERROR;
6192: end if;
6193: --END IF; --bug 3051413 --commenting out this line for bug 3058051 issue # 1
6194: --end task weighting changes
6195:
6217: ,x_return_status => l_return_status
6218: ,x_msg_count => l_msg_count
6219: ,x_msg_data => l_msg_data);
6220:
6221: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6222: x_msg_count := FND_MSG_PUB.count_msg;
6223: if x_msg_count = 1 then
6224: pa_interface_utils_pub.get_messages
6225: (p_encoded => FND_API.G_TRUE,
6221: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6222: x_msg_count := FND_MSG_PUB.count_msg;
6223: if x_msg_count = 1 then
6224: pa_interface_utils_pub.get_messages
6225: (p_encoded => FND_API.G_TRUE,
6226: p_msg_index => 1,
6227: p_msg_count => l_msg_count,
6228: p_msg_data => l_msg_data,
6229: p_data => l_data,
6229: p_data => l_data,
6230: p_msg_index_out => l_msg_index_out);
6231: x_msg_data := l_data;
6232: end if;
6233: raise FND_API.G_EXC_ERROR;
6234: end if;
6235: -- end if;
6236: --END IF; --bug 3051413
6237:
6237:
6238: --End bug 3010538 (delete)
6239:
6240:
6241: x_return_status := FND_API.G_RET_STS_SUCCESS;
6242:
6243: EXCEPTION
6244: WHEN FND_API.G_EXC_ERROR THEN
6245: IF (p_commit = FND_API.G_TRUE) THEN
6240:
6241: x_return_status := FND_API.G_RET_STS_SUCCESS;
6242:
6243: EXCEPTION
6244: WHEN FND_API.G_EXC_ERROR THEN
6245: IF (p_commit = FND_API.G_TRUE) THEN
6246: ROLLBACK to DELETE_TASK_VER_PRIVATE;
6247: END IF;
6248: x_msg_count := FND_MSG_PUB.count_msg;
6241: x_return_status := FND_API.G_RET_STS_SUCCESS;
6242:
6243: EXCEPTION
6244: WHEN FND_API.G_EXC_ERROR THEN
6245: IF (p_commit = FND_API.G_TRUE) THEN
6246: ROLLBACK to DELETE_TASK_VER_PRIVATE;
6247: END IF;
6248: x_msg_count := FND_MSG_PUB.count_msg;
6249: x_return_status := FND_API.G_RET_STS_ERROR;
6245: IF (p_commit = FND_API.G_TRUE) THEN
6246: ROLLBACK to DELETE_TASK_VER_PRIVATE;
6247: END IF;
6248: x_msg_count := FND_MSG_PUB.count_msg;
6249: x_return_status := FND_API.G_RET_STS_ERROR;
6250: WHEN OTHERS THEN
6251: IF (p_commit = FND_API.G_TRUE) THEN
6252: ROLLBACK to DELETE_TASK_VER_PRIVATE;
6253: END IF;
6247: END IF;
6248: x_msg_count := FND_MSG_PUB.count_msg;
6249: x_return_status := FND_API.G_RET_STS_ERROR;
6250: WHEN OTHERS THEN
6251: IF (p_commit = FND_API.G_TRUE) THEN
6252: ROLLBACK to DELETE_TASK_VER_PRIVATE;
6253: END IF;
6254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6255: x_msg_count := FND_MSG_PUB.count_msg;
6250: WHEN OTHERS THEN
6251: IF (p_commit = FND_API.G_TRUE) THEN
6252: ROLLBACK to DELETE_TASK_VER_PRIVATE;
6253: END IF;
6254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6255: x_msg_count := FND_MSG_PUB.count_msg;
6256: --put message
6257: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
6258: p_procedure_name => 'delete_Task_version',
6265: -- Pre-reqs : None
6266: -- Return Value : N/A
6267: -- Prameters
6268: -- p_api_version IN NUMBER N Not Null 1.0
6269: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
6270: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
6271: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
6272: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
6273: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
6266: -- Return Value : N/A
6267: -- Prameters
6268: -- p_api_version IN NUMBER N Not Null 1.0
6269: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
6270: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
6271: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
6272: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
6273: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
6274: -- p_debug_mode IN VARCHAR2 N Null N
6267: -- Prameters
6268: -- p_api_version IN NUMBER N Not Null 1.0
6269: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
6270: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
6271: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
6272: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
6273: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
6274: -- p_debug_mode IN VARCHAR2 N Null N
6275: -- p_max_msg_count IN NUMBER N NULL PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
6268: -- p_api_version IN NUMBER N Not Null 1.0
6269: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
6270: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
6271: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
6272: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
6273: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
6274: -- p_debug_mode IN VARCHAR2 N Null N
6275: -- p_max_msg_count IN NUMBER N NULL PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
6276: -- p_element_version_id IN NUMBER N Not Null
6302: --
6303:
6304: PROCEDURE Create_Schedule_Version(
6305: p_api_version IN NUMBER :=1.0,
6306: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
6307: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
6308: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
6309: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
6310: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
6303:
6304: PROCEDURE Create_Schedule_Version(
6305: p_api_version IN NUMBER :=1.0,
6306: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
6307: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
6308: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
6309: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
6310: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
6311: p_debug_mode IN VARCHAR2 :='N',
6304: PROCEDURE Create_Schedule_Version(
6305: p_api_version IN NUMBER :=1.0,
6306: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
6307: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
6308: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
6309: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
6310: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
6311: p_debug_mode IN VARCHAR2 :='N',
6312: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
6305: p_api_version IN NUMBER :=1.0,
6306: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
6307: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
6308: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
6309: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
6310: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
6311: p_debug_mode IN VARCHAR2 :='N',
6312: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
6313: p_element_version_id IN NUMBER,
6470: IF (p_debug_mode = 'Y') THEN
6471: pa_debug.debug('PA_TASK_PVT1.CREATE_SCHEDULE_VERSION begin');
6472: END IF;
6473:
6474: IF (p_commit = FND_API.G_TRUE) THEN
6475: savepoint CREATE_SCH_VER_PRIVATE;
6476: END IF;
6477:
6478: IF (p_debug_mode = 'Y') THEN
6600: --hsiu: bug 3638195
6601: IF l_ext_act_duration < 0 THEN
6602: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NEG_EXT_ACT_ERR');
6603: l_msg_data := l_error_message_code;
6604: RAISE FND_API.G_EXC_ERROR;
6605: END IF;
6606: END IF;
6607:
6608: IF ( p_ext_remain_duration = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND p_ext_remain_duration IS NOT NULL )
6613: --hsiu: bug 3638195
6614: IF l_ext_remain_duration < 0 THEN
6615: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NEG_EXT_RMN_ERR');
6616: l_msg_data := l_error_message_code;
6617: RAISE FND_API.G_EXC_ERROR;
6618: END IF;
6619: END IF;
6620:
6621: IF ( p_ext_sch_duration = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND p_ext_sch_duration IS NOT NULL )
6626: --hsiu: bug 3638195
6627: IF l_ext_sch_duration < 0 THEN
6628: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NEG_EXT_SCH_ERR');
6629: l_msg_data := l_error_message_code;
6630: RAISE FND_API.G_EXC_ERROR;
6631: END IF;
6632: END IF;
6633:
6634: -- xxlu
6748:
6749: IF (l_return_status <> 'S') THEN
6750: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
6751: l_msg_data := l_error_message_code;
6752: RAISE FND_API.G_EXC_ERROR;
6753: END IF;
6754:
6755: --3305199: Remove duration calculation using calendar
6756: l_duration := trunc(l_scheduled_end_date) - trunc(l_scheduled_start_date) + 1;
6773: x_msg_count := l_msg_count;
6774: IF x_msg_count = 1 THEN
6775: x_msg_data := l_msg_data;
6776: END IF;
6777: RAISE FND_API.G_EXC_ERROR;
6778: END IF;
6779:
6780: RAISE FND_API.G_EXC_ERROR;
6781: END IF;
6776: END IF;
6777: RAISE FND_API.G_EXC_ERROR;
6778: END IF;
6779:
6780: RAISE FND_API.G_EXC_ERROR;
6781: END IF;
6782:
6783: /*
6784: IF ( l_scheduled_start_date IS NOT NULL AND l_duration IS NOT NULL )
6823: ,x_return_status => l_return_status
6824: ,x_msg_count => l_msg_count
6825: ,x_msg_data => l_msg_data);
6826:
6827: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6828: l_msg_count := FND_MSG_PUB.count_msg;
6829: IF l_msg_count > 0 THEN
6830: x_msg_count := l_msg_count;
6831: IF x_msg_count = 1 THEN
6830: x_msg_count := l_msg_count;
6831: IF x_msg_count = 1 THEN
6832: x_msg_data := l_msg_data;
6833: END IF;
6834: RAISE FND_API.G_EXC_ERROR;
6835: END IF;
6836: END IF;
6837:
6838: END IF;
6857: ,x_return_status => l_return_status
6858: ,x_msg_count => l_msg_count
6859: ,x_msg_data => l_msg_data);
6860:
6861: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6862: l_msg_count := FND_MSG_PUB.count_msg;
6863: IF l_msg_count > 0 THEN
6864: x_msg_count := l_msg_count;
6865: IF x_msg_count = 1 THEN
6864: x_msg_count := l_msg_count;
6865: IF x_msg_count = 1 THEN
6866: x_msg_data := l_msg_data;
6867: END IF;
6868: RAISE FND_API.G_EXC_ERROR;
6869: END IF;
6870: END IF;
6871:
6872: END IF;
6885: 'N' = PA_PROGRESS_UTILS.get_project_wq_flag(l_project_id)) THEN
6886: --error message
6887: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_CANT_ENT_WQ_ATTR1');
6888: x_msg_data := 'PA_PS_CANT_ENT_WQ_ATTR1';
6889: RAISE FND_API.G_EXC_ERROR;
6890: ELSE */
6891: -- Above code is commented and moved below to first check whether any value has been passed in p_wq_planned_quantity
6892:
6893: IF (p_wq_planned_quantity IS NULL OR p_wq_planned_quantity = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
6906: IF (l_wq_planned_quantity < 0) THEN
6907: --error message
6908: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NEG_PLAN_QTY_ERR');
6909: x_msg_data := 'PA_PS_NEG_PLAN_QTY_ERR';
6910: RAISE FND_API.G_EXC_ERROR;
6911: -- Else condition added for Bug No. : 2791413
6912: ELSE
6913: */
6914: IF ('N' = PA_TASK_TYPE_UTILS.check_tk_type_wq_enabled(l_task_type_id) OR
6915: 'N' = PA_PROGRESS_UTILS.get_project_wq_flag(l_project_id)) THEN
6916: --error message
6917: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_CANT_ENT_WQ_ATTR1');
6918: x_msg_data := 'PA_PS_CANT_ENT_WQ_ATTR1';
6919: RAISE FND_API.G_EXC_ERROR;
6920: End IF;
6921: -- END IF;
6922: END IF;
6923:
6936: IF (l_planned_effort < 0) THEN
6937: --error message
6938: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NEG_PLAN_EFF_ERR');
6939: x_msg_data := 'PA_PS_NEG_PLAN_EFF_ERR';
6940: RAISE FND_API.G_EXC_ERROR;
6941: END IF;
6942: END IF;
6943: */
6944: -- END of Bug Fix 5726773
7001: ,x_msg_count => x_msg_count
7002: ,x_msg_data => x_msg_data
7003: );
7004:
7005: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
7006: x_msg_count := FND_MSG_PUB.count_msg;
7007: If x_msg_count = 1 then
7008: pa_interface_utils_pub.get_messages
7009: (p_encoded => FND_API.G_TRUE,
7005: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
7006: x_msg_count := FND_MSG_PUB.count_msg;
7007: If x_msg_count = 1 then
7008: pa_interface_utils_pub.get_messages
7009: (p_encoded => FND_API.G_TRUE,
7010: p_msg_index => 1,
7011: p_msg_count => l_msg_count,
7012: p_msg_data => l_msg_data,
7013: p_data => l_data,
7013: p_data => l_data,
7014: p_msg_index_out => l_msg_index_out);
7015: x_msg_data := l_data;
7016: End If;
7017: raise FND_API.G_EXC_ERROR;
7018: End If;
7019: End If;
7020: -- End of FP_M changes
7021:
7081: ELSE
7082: CLOSE cur_proj_elem_ver;
7083: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_INVALID_TASK_ID');
7084: l_msg_data := 'PA_PS_INVALID_TASK_ID';
7085: RAISE FND_API.G_EXC_ERROR;
7086: END IF;
7087: CLOSE cur_proj_elem_ver;
7088: x_return_status := FND_API.G_RET_STS_SUCCESS;
7089:
7084: l_msg_data := 'PA_PS_INVALID_TASK_ID';
7085: RAISE FND_API.G_EXC_ERROR;
7086: END IF;
7087: CLOSE cur_proj_elem_ver;
7088: x_return_status := FND_API.G_RET_STS_SUCCESS;
7089:
7090: EXCEPTION
7091: WHEN FND_API.G_EXC_ERROR THEN
7092: IF (p_commit = FND_API.G_TRUE) THEN
7087: CLOSE cur_proj_elem_ver;
7088: x_return_status := FND_API.G_RET_STS_SUCCESS;
7089:
7090: EXCEPTION
7091: WHEN FND_API.G_EXC_ERROR THEN
7092: IF (p_commit = FND_API.G_TRUE) THEN
7093: ROLLBACK to CREATE_SCH_VER_PRIVATE;
7094: END IF;
7095: x_msg_count := FND_MSG_PUB.count_msg;
7088: x_return_status := FND_API.G_RET_STS_SUCCESS;
7089:
7090: EXCEPTION
7091: WHEN FND_API.G_EXC_ERROR THEN
7092: IF (p_commit = FND_API.G_TRUE) THEN
7093: ROLLBACK to CREATE_SCH_VER_PRIVATE;
7094: END IF;
7095: x_msg_count := FND_MSG_PUB.count_msg;
7096: x_return_status := FND_API.G_RET_STS_ERROR;
7092: IF (p_commit = FND_API.G_TRUE) THEN
7093: ROLLBACK to CREATE_SCH_VER_PRIVATE;
7094: END IF;
7095: x_msg_count := FND_MSG_PUB.count_msg;
7096: x_return_status := FND_API.G_RET_STS_ERROR;
7097: WHEN OTHERS THEN
7098: IF (p_commit = FND_API.G_TRUE) THEN
7099: ROLLBACK to CREATE_SCH_VER_PRIVATE;
7100: END IF;
7094: END IF;
7095: x_msg_count := FND_MSG_PUB.count_msg;
7096: x_return_status := FND_API.G_RET_STS_ERROR;
7097: WHEN OTHERS THEN
7098: IF (p_commit = FND_API.G_TRUE) THEN
7099: ROLLBACK to CREATE_SCH_VER_PRIVATE;
7100: END IF;
7101: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7102: x_msg_count := FND_MSG_PUB.count_msg;
7097: WHEN OTHERS THEN
7098: IF (p_commit = FND_API.G_TRUE) THEN
7099: ROLLBACK to CREATE_SCH_VER_PRIVATE;
7100: END IF;
7101: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7102: x_msg_count := FND_MSG_PUB.count_msg;
7103: --put message
7104: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
7105: p_procedure_name => 'create_schedule_version',
7113: -- Pre-reqs : None
7114: -- Return Value : N/A
7115: -- Prameters
7116: -- p_api_version IN NUMBER N Not Null 1.0
7117: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
7118: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
7119: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
7120: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
7121: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
7114: -- Return Value : N/A
7115: -- Prameters
7116: -- p_api_version IN NUMBER N Not Null 1.0
7117: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
7118: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
7119: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
7120: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
7121: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
7122: -- p_debug_mode IN VARCHAR2 N Null N
7115: -- Prameters
7116: -- p_api_version IN NUMBER N Not Null 1.0
7117: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
7118: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
7119: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
7120: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
7121: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
7122: -- p_debug_mode IN VARCHAR2 N Null N
7123: -- p_max_msg_count IN NUMBER N NULL PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
7116: -- p_api_version IN NUMBER N Not Null 1.0
7117: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
7118: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
7119: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
7120: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
7121: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
7122: -- p_debug_mode IN VARCHAR2 N Null N
7123: -- p_max_msg_count IN NUMBER N NULL PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
7124: -- p_element_version_id IN NUMBER N Not Null
7150: --
7151:
7152: PROCEDURE Update_Schedule_Version(
7153: p_api_version IN NUMBER :=1.0,
7154: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
7155: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
7156: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
7157: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
7158: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
7151:
7152: PROCEDURE Update_Schedule_Version(
7153: p_api_version IN NUMBER :=1.0,
7154: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
7155: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
7156: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
7157: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
7158: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
7159: p_debug_mode IN VARCHAR2 :='N',
7152: PROCEDURE Update_Schedule_Version(
7153: p_api_version IN NUMBER :=1.0,
7154: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
7155: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
7156: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
7157: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
7158: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
7159: p_debug_mode IN VARCHAR2 :='N',
7160: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
7153: p_api_version IN NUMBER :=1.0,
7154: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
7155: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
7156: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
7157: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
7158: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
7159: p_debug_mode IN VARCHAR2 :='N',
7160: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
7161: p_pev_schedule_id IN NUMBER,
7362: IF (l_debug_mode = 'Y') THEN
7363: pa_debug.write('PA_TASK_PVT1.UPDATE_SCHEDULE_VERSION', 'PA_TASK_PVT1.UPDATE_SCHEDULE_VERSION begin',3);
7364: END IF;
7365:
7366: IF (p_commit = FND_API.G_TRUE) THEN
7367: savepoint UPDATE_SCH_VER_PRIVATE;
7368: END IF;
7369:
7370: IF (l_debug_mode = 'Y') THEN
7387: 'N' = PA_PROGRESS_UTILS.get_project_wq_flag(cur_val_rec.project_id)) THEN
7388: -- Bug 2791413 Added error message
7389: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_CANT_ENT_WQ_ATTR1');
7390: x_msg_data := 'PA_PS_CANT_ENT_WQ_ATTR1';
7391: RAISE FND_API.G_EXC_ERROR;
7392: ELSE
7393: IF (p_wq_planned_quantity = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
7394: l_wq_planned_quantity := cur_val_rec.WQ_PLANNED_QUANTITY;
7395: ELSE
7405: IF (p_wq_planned_quantity <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND p_wq_planned_quantity IS NOT NULL) THEN
7406: -- Bug 2791413 Added error message
7407: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_CANT_ENT_WQ_ATTR1');
7408: x_msg_data := 'PA_PS_CANT_ENT_WQ_ATTR1';
7409: RAISE FND_API.G_EXC_ERROR;
7410: END IF;
7411: l_wq_planned_quantity := NULL;
7412: ELSE
7413: IF (p_wq_planned_quantity = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
7426: IF (l_wq_planned_quantity < 0) THEN
7427: --error message
7428: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NEG_PLAN_QTY_ERR');
7429: x_msg_data := 'PA_PS_NEG_PLAN_QTY_ERR';
7430: RAISE FND_API.G_EXC_ERROR;
7431: END IF;
7432: END IF;
7433: */
7434: --hsiu: removing validation
7445: -- x_return_status => l_return_status,
7446: -- x_msg_count => l_msg_count,
7447: -- x_msg_data => l_msg_data
7448: -- );
7449: -- IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7450: -- l_msg_count := FND_MSG_PUB.count_msg;
7451: -- IF l_msg_count > 0 THEN
7452: -- x_msg_count := l_msg_count;
7453: -- IF x_msg_count = 1 THEN
7452: -- x_msg_count := l_msg_count;
7453: -- IF x_msg_count = 1 THEN
7454: -- x_msg_data := l_msg_data;
7455: -- END IF;
7456: -- RAISE FND_API.G_EXC_ERROR;
7457: -- END IF;
7458: -- END IF;
7459: -- END IF;
7460: -- END IF;
7548: -- For bug 2625650
7549: -- l_scheduled_start_date := cur_val_rec.SCHEDULED_START_DATE;
7550: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_SCH_DATES_REQD');
7551: l_msg_data := 'PA_PS_SCH_DATES_REQD';
7552: RAISE FND_API.G_EXC_ERROR;
7553: -- End of bug fix
7554: -- ELSE
7555: -- l_scheduled_start_date := TRUNC(p_scheduled_start_date);
7556: END IF;
7561: -- For bug 2625650
7562: --l_scheduled_end_date := cur_val_rec.SCHEDULED_FINISH_DATE;
7563: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_SCH_DATES_REQD');
7564: l_msg_data := 'PA_PS_SCH_DATES_REQD';
7565: RAISE FND_API.G_EXC_ERROR;
7566: -- End of bug fix
7567: -- ELSE
7568: -- l_scheduled_end_date := TRUNC(p_scheduled_end_date);
7569: END IF;
7666: l_ext_act_duration := p_ext_act_duration;
7667: IF l_ext_act_duration < 0 THEN
7668: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NEG_EXT_ACT_ERR');
7669: l_msg_data := l_error_message_code;
7670: RAISE FND_API.G_EXC_ERROR;
7671: END IF;
7672: END IF;
7673:
7674: IF ( p_ext_remain_duration = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND p_ext_remain_duration IS NOT NULL )
7678: l_ext_remain_duration := p_ext_remain_duration;
7679: IF l_ext_remain_duration < 0 THEN
7680: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NEG_EXT_RMN_ERR');
7681: l_msg_data := l_error_message_code;
7682: RAISE FND_API.G_EXC_ERROR;
7683: END IF;
7684: END IF;
7685:
7686: IF ( p_ext_sch_duration = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND p_ext_sch_duration IS NOT NULL )
7690: l_ext_sch_duration := p_ext_sch_duration;
7691: IF l_ext_sch_duration < 0 THEN
7692: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NEG_EXT_SCH_ERR');
7693: l_msg_data := l_error_message_code;
7694: RAISE FND_API.G_EXC_ERROR;
7695: END IF;
7696: END IF;
7697:
7698: -- xxlu
7866:
7867: IF (l_return_status <> 'S') THEN
7868: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
7869: l_msg_data := l_error_message_code;
7870: RAISE FND_API.G_EXC_ERROR;
7871: END IF;
7872:
7873: --hsiu modified for new duration calculation
7874: --schedule duration is calculated and updated in rollup api.
7914: ,x_msg_count => l_msg_count
7915: ,x_msg_data => l_msg_data
7916: );
7917:
7918: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7919: l_msg_count := FND_MSG_PUB.count_msg;
7920: IF l_msg_count > 0 THEN
7921: x_msg_count := l_msg_count;
7922: IF x_msg_count = 1 THEN
7921: x_msg_count := l_msg_count;
7922: IF x_msg_count = 1 THEN
7923: x_msg_data := l_msg_data;
7924: END IF;
7925: RAISE FND_API.G_EXC_ERROR;
7926: END IF;
7927: END IF;
7928: */
7929: -- Bug 3053846. Check if duration for the task has changed. If yes then set the flag.
7959: ,x_return_status => l_return_status
7960: ,x_msg_count => l_msg_count
7961: ,x_msg_data => l_msg_data);
7962:
7963: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7964: l_msg_count := FND_MSG_PUB.count_msg;
7965: IF l_msg_count > 0 THEN
7966: x_msg_count := l_msg_count;
7967: IF x_msg_count = 1 THEN
7966: x_msg_count := l_msg_count;
7967: IF x_msg_count = 1 THEN
7968: x_msg_data := l_msg_data;
7969: END IF;
7970: RAISE FND_API.G_EXC_ERROR;
7971: END IF;
7972: END IF;
7973: */
7974:
7991: ,x_return_status => l_return_status
7992: ,x_msg_count => l_msg_count
7993: ,x_msg_data => l_msg_data);
7994:
7995: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7996: l_msg_count := FND_MSG_PUB.count_msg;
7997: IF l_msg_count > 0 THEN
7998: x_msg_count := l_msg_count;
7999: IF x_msg_count = 1 THEN
7998: x_msg_count := l_msg_count;
7999: IF x_msg_count = 1 THEN
8000: x_msg_data := l_msg_data;
8001: END IF;
8002: RAISE FND_API.G_EXC_ERROR;
8003: END IF;
8004: END IF;
8005: */
8006: END IF;
8053: IF (l_planned_effort < 0) THEN
8054: --error message
8055: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NEG_PLAN_EFF_ERR');
8056: x_msg_data := 'PA_PS_NEG_PLAN_EFF_ERR';
8057: RAISE FND_API.G_EXC_ERROR;
8058: END IF;
8059: END IF;
8060: */
8061: -- END of Bug Fix 5726773
8073: x_return_status => l_return_status,
8074: x_msg_count => l_msg_count,
8075: x_msg_data => l_msg_data
8076: );
8077: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8078: l_msg_count := FND_MSG_PUB.count_msg;
8079: IF l_msg_count > 0 THEN
8080: x_msg_count := l_msg_count;
8081: IF x_msg_count = 1 THEN
8080: x_msg_count := l_msg_count;
8081: IF x_msg_count = 1 THEN
8082: x_msg_data := l_msg_data;
8083: END IF;
8084: RAISE FND_API.G_EXC_ERROR;
8085: END IF;
8086: END IF;
8087: END IF;
8088: --end bug 3035902
8097: ,x_msg_count => x_msg_count
8098: ,x_msg_data => x_msg_data
8099: );
8100:
8101: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
8102: x_msg_count := FND_MSG_PUB.count_msg;
8103: If x_msg_count = 1 then
8104: pa_interface_utils_pub.get_messages
8105: (p_encoded => FND_API.G_TRUE,
8101: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
8102: x_msg_count := FND_MSG_PUB.count_msg;
8103: If x_msg_count = 1 then
8104: pa_interface_utils_pub.get_messages
8105: (p_encoded => FND_API.G_TRUE,
8106: p_msg_index => 1,
8107: p_msg_count => l_msg_count,
8108: p_msg_data => l_msg_data,
8109: p_data => l_data,
8109: p_data => l_data,
8110: p_msg_index_out => l_msg_index_out);
8111: x_msg_data := l_data;
8112: End If;
8113: raise FND_API.G_EXC_ERROR;
8114: End If;
8115:
8116: End If;
8117: -- End of FP_M changes
8182: ELSE
8183: CLOSE cur_proj_elem_ver_sch;
8184: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_INV_PEV_SCH_ID');
8185: l_msg_data := 'PA_PS_INV_PEV_SCH_ID';
8186: RAISE FND_API.G_EXC_ERROR;
8187: END IF;
8188:
8189: OPEN get_parent_struc_Ver_id(cur_proj_elem_ver_sch_rec.element_version_id);
8190: FETCH get_parent_struc_Ver_id INTO l_parent_struc_Ver_id;
8212: x_planning_start_tbl => l_planning_start_tbl,
8213: x_planning_end_tbl => l_planning_end_tbl,
8214: x_return_status => l_return_status);
8215:
8216: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8217: l_msg_count := FND_MSG_PUB.count_msg;
8218: IF l_msg_count > 0 THEN
8219: x_msg_count := l_msg_count;
8220: IF x_msg_count = 1 THEN
8219: x_msg_count := l_msg_count;
8220: IF x_msg_count = 1 THEN
8221: x_msg_data := l_msg_data;
8222: END IF;
8223: RAISE FND_API.G_EXC_ERROR;
8224: END IF;
8225: END IF;
8226: END IF;
8227:
8232: IF (p_calling_module = 'FORMS') THEN
8233: l_tasks_ver_ids.extend;
8234: l_tasks_ver_ids(l_tasks_ver_ids.count) := cur_proj_elem_ver_sch_rec.ELEMENT_VERSION_ID;
8235: PA_STRUCT_TASK_ROLLUP_PUB.Tasks_Rollup(
8236: p_commit => FND_API.G_FALSE,
8237: p_element_versions => l_tasks_ver_ids,
8238: x_return_status => l_return_status,
8239: x_msg_count => l_msg_count,
8240: x_msg_data => l_msg_data);
8238: x_return_status => l_return_status,
8239: x_msg_count => l_msg_count,
8240: x_msg_data => l_msg_data);
8241:
8242: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8243: x_msg_count := FND_MSG_PUB.count_msg;
8244: if x_msg_count = 1 then
8245: pa_interface_utils_pub.get_messages
8246: (p_encoded => FND_API.G_TRUE,
8242: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8243: x_msg_count := FND_MSG_PUB.count_msg;
8244: if x_msg_count = 1 then
8245: pa_interface_utils_pub.get_messages
8246: (p_encoded => FND_API.G_TRUE,
8247: p_msg_index => 1,
8248: p_msg_count => l_msg_count,
8249: p_msg_data => l_msg_data,
8250: p_data => l_data,
8250: p_data => l_data,
8251: p_msg_index_out => l_msg_index_out);
8252: x_msg_data := l_data;
8253: end if;
8254: RAISE FND_API.G_EXC_ERROR;
8255: end if;
8256:
8257: END IF;
8258:
8304: WHEN OTHERS THEN
8305: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
8306: p_procedure_name => 'update_schedule_version',
8307: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.update_planning_transactions:'||SQLERRM,1,240));
8308: RAISE FND_API.G_EXC_ERROR;
8309: END;
8310:
8311: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8312: x_msg_count := FND_MSG_PUB.count_msg;
8307: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.update_planning_transactions:'||SQLERRM,1,240));
8308: RAISE FND_API.G_EXC_ERROR;
8309: END;
8310:
8311: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8312: x_msg_count := FND_MSG_PUB.count_msg;
8313: if x_msg_count = 1 then
8314: pa_interface_utils_pub.get_messages
8315: (p_encoded => FND_API.G_TRUE,
8311: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8312: x_msg_count := FND_MSG_PUB.count_msg;
8313: if x_msg_count = 1 then
8314: pa_interface_utils_pub.get_messages
8315: (p_encoded => FND_API.G_TRUE,
8316: p_msg_index => 1,
8317: p_msg_count => l_msg_count,
8318: p_msg_data => l_msg_data,
8319: p_data => l_data,
8319: p_data => l_data,
8320: p_msg_index_out => l_msg_index_out);
8321: x_msg_data := l_data;
8322: end if;
8323: raise FND_API.G_EXC_ERROR;
8324: end if;
8325: --end 3301192 fp changes
8326: END IF; --<< l_planned_effort >>
8327:
8327:
8328: CLOSE cur_proj_elem_ver_sch;
8329:
8330:
8331: x_return_status := FND_API.G_RET_STS_SUCCESS;
8332:
8333: EXCEPTION
8334: WHEN FND_API.G_EXC_ERROR THEN
8335: IF (p_commit = FND_API.G_TRUE) THEN
8330:
8331: x_return_status := FND_API.G_RET_STS_SUCCESS;
8332:
8333: EXCEPTION
8334: WHEN FND_API.G_EXC_ERROR THEN
8335: IF (p_commit = FND_API.G_TRUE) THEN
8336: ROLLBACK to UPDATE_SCH_VER_PRIVATE;
8337: END IF;
8338: x_msg_count := FND_MSG_PUB.count_msg;
8331: x_return_status := FND_API.G_RET_STS_SUCCESS;
8332:
8333: EXCEPTION
8334: WHEN FND_API.G_EXC_ERROR THEN
8335: IF (p_commit = FND_API.G_TRUE) THEN
8336: ROLLBACK to UPDATE_SCH_VER_PRIVATE;
8337: END IF;
8338: x_msg_count := FND_MSG_PUB.count_msg;
8339: x_return_status := FND_API.G_RET_STS_ERROR;
8335: IF (p_commit = FND_API.G_TRUE) THEN
8336: ROLLBACK to UPDATE_SCH_VER_PRIVATE;
8337: END IF;
8338: x_msg_count := FND_MSG_PUB.count_msg;
8339: x_return_status := FND_API.G_RET_STS_ERROR;
8340: WHEN OTHERS THEN
8341: IF (p_commit = FND_API.G_TRUE) THEN
8342: ROLLBACK to UPDATE_SCH_VER_PRIVATE;
8343: END IF;
8337: END IF;
8338: x_msg_count := FND_MSG_PUB.count_msg;
8339: x_return_status := FND_API.G_RET_STS_ERROR;
8340: WHEN OTHERS THEN
8341: IF (p_commit = FND_API.G_TRUE) THEN
8342: ROLLBACK to UPDATE_SCH_VER_PRIVATE;
8343: END IF;
8344: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8345: x_msg_count := FND_MSG_PUB.count_msg;
8340: WHEN OTHERS THEN
8341: IF (p_commit = FND_API.G_TRUE) THEN
8342: ROLLBACK to UPDATE_SCH_VER_PRIVATE;
8343: END IF;
8344: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8345: x_msg_count := FND_MSG_PUB.count_msg;
8346: --put message
8347: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
8348: p_procedure_name => 'update_schedule_version',
8352:
8353:
8354: PROCEDURE Inherit_task_type_attr(
8355: p_api_version IN NUMBER :=1.0,
8356: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
8357: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
8358: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
8359: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
8360: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
8353:
8354: PROCEDURE Inherit_task_type_attr(
8355: p_api_version IN NUMBER :=1.0,
8356: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
8357: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
8358: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
8359: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
8360: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
8361: p_debug_mode IN VARCHAR2 :='N',
8354: PROCEDURE Inherit_task_type_attr(
8355: p_api_version IN NUMBER :=1.0,
8356: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
8357: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
8358: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
8359: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
8360: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
8361: p_debug_mode IN VARCHAR2 :='N',
8362: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
8355: p_api_version IN NUMBER :=1.0,
8356: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
8357: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
8358: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
8359: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
8360: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
8361: p_debug_mode IN VARCHAR2 :='N',
8362: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
8363: p_task_id IN NUMBER,
8388: from pa_proj_elements c
8389: where c.proj_element_id = p_task_id;
8390: l_type_attr_rec get_current_task_type_attr%ROWTYPE;
8391: BEGIN
8392: x_return_status := FND_API.G_RET_STS_SUCCESS;
8393: OPEN get_parent_task_type_attr;
8394: FETCH get_parent_task_type_attr INTO l_parent_type_attr_rec;
8395: IF get_parent_task_type_attr%NOTFOUND THEN
8396: --it is a top task. no update necessary
8414: where proj_element_id = p_task_id;
8415: END IF;
8416: EXCEPTION
8417: WHEN OTHERS THEN
8418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8419: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
8420: p_procedure_name => 'Inherit_task_type_attr',
8421: p_error_text => SUBSTRB(SQLERRM,1,240));
8422: raise;
8428: -- Pre-reqs : None
8429: -- Return Value : N/A
8430: -- Parameters
8431: -- p_api_version IN NUMBER := 1.0
8432: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
8433: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
8434: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
8435: -- p_validation_level IN VARCHAR2 := 100
8436: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
8429: -- Return Value : N/A
8430: -- Parameters
8431: -- p_api_version IN NUMBER := 1.0
8432: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
8433: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
8434: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
8435: -- p_validation_level IN VARCHAR2 := 100
8436: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
8437: -- p_debug_mode IN VARCHAR2 := 'N'
8430: -- Parameters
8431: -- p_api_version IN NUMBER := 1.0
8432: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
8433: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
8434: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
8435: -- p_validation_level IN VARCHAR2 := 100
8436: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
8437: -- p_debug_mode IN VARCHAR2 := 'N'
8438: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
8450: --
8451: procedure Update_Task_Weighting
8452: (
8453: p_api_version IN NUMBER := 1.0
8454: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
8455: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
8456: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
8457: ,p_validation_level IN VARCHAR2 := 100
8458: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
8451: procedure Update_Task_Weighting
8452: (
8453: p_api_version IN NUMBER := 1.0
8454: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
8455: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
8456: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
8457: ,p_validation_level IN VARCHAR2 := 100
8458: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
8459: ,p_debug_mode IN VARCHAR2 := 'N'
8452: (
8453: p_api_version IN NUMBER := 1.0
8454: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
8455: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
8456: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
8457: ,p_validation_level IN VARCHAR2 := 100
8458: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
8459: ,p_debug_mode IN VARCHAR2 := 'N'
8460: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
8488: IF (p_debug_mode = 'Y') THEN
8489: pa_debug.debug('PA_TASK_PVT1.Update_Task_Weighting begin');
8490: END IF;
8491:
8492: IF (p_commit = FND_API.G_TRUE) THEN
8493: savepoint update_task_weighting_pvt;
8494: END IF;
8495:
8496: IF (p_debug_mode = 'Y') THEN
8509:
8510: OPEN cur_obj_relationships( p_object_relationship_id );
8511: FETCH cur_obj_relationships INTO cur_obj_relationships_rec;
8512: IF cur_obj_relationships%NOTFOUND THEN
8513: RAISE FND_API.G_EXC_ERROR;
8514: END IF;
8515: CLOSE cur_obj_relationships;
8516:
8517: PA_OBJECT_RELATIONSHIPS_PKG.UPDATE_ROW(
8529: ,x_return_status => x_return_status
8530: );
8531:
8532: EXCEPTION
8533: WHEN FND_API.G_EXC_ERROR THEN
8534: IF (p_commit = FND_API.G_TRUE) THEN
8535: ROLLBACK to update_task_weighting_pvt;
8536: END IF;
8537: x_msg_count := FND_MSG_PUB.count_msg;
8530: );
8531:
8532: EXCEPTION
8533: WHEN FND_API.G_EXC_ERROR THEN
8534: IF (p_commit = FND_API.G_TRUE) THEN
8535: ROLLBACK to update_task_weighting_pvt;
8536: END IF;
8537: x_msg_count := FND_MSG_PUB.count_msg;
8538: x_return_status := FND_API.G_RET_STS_ERROR;
8534: IF (p_commit = FND_API.G_TRUE) THEN
8535: ROLLBACK to update_task_weighting_pvt;
8536: END IF;
8537: x_msg_count := FND_MSG_PUB.count_msg;
8538: x_return_status := FND_API.G_RET_STS_ERROR;
8539: WHEN OTHERS THEN
8540: IF (p_commit = FND_API.G_TRUE) THEN
8541: ROLLBACK to update_task_weighting_pvt;
8542: END IF;
8536: END IF;
8537: x_msg_count := FND_MSG_PUB.count_msg;
8538: x_return_status := FND_API.G_RET_STS_ERROR;
8539: WHEN OTHERS THEN
8540: IF (p_commit = FND_API.G_TRUE) THEN
8541: ROLLBACK to update_task_weighting_pvt;
8542: END IF;
8543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8544: x_msg_count := FND_MSG_PUB.count_msg;
8539: WHEN OTHERS THEN
8540: IF (p_commit = FND_API.G_TRUE) THEN
8541: ROLLBACK to update_task_weighting_pvt;
8542: END IF;
8543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8544: x_msg_count := FND_MSG_PUB.count_msg;
8545: --put message
8546: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
8547: p_procedure_name => 'Update_Task_Weighting',
8550: END UPDATE_TASK_WEIGHTING;
8551:
8552: PROCEDURE RECALC_TASKS_WEIGHTING(
8553: p_api_version IN NUMBER := 1.0
8554: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
8555: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
8556: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
8557: ,p_validation_level IN VARCHAR2 := 100
8558: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
8551:
8552: PROCEDURE RECALC_TASKS_WEIGHTING(
8553: p_api_version IN NUMBER := 1.0
8554: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
8555: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
8556: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
8557: ,p_validation_level IN VARCHAR2 := 100
8558: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
8559: ,p_debug_mode IN VARCHAR2 := 'N'
8552: PROCEDURE RECALC_TASKS_WEIGHTING(
8553: p_api_version IN NUMBER := 1.0
8554: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
8555: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
8556: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
8557: ,p_validation_level IN VARCHAR2 := 100
8558: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
8559: ,p_debug_mode IN VARCHAR2 := 'N'
8560: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
8615: --bug 2673570
8616:
8617: BEGIN
8618: --hsiu: bug 3604086
8619: x_return_status := FND_API.G_RET_STS_SUCCESS;
8620:
8621: OPEN get_weighting_sum;
8622: FETCH get_weighting_sum into l_sum;
8623: CLOSE get_weighting_sum;
8663: ,x_msg_count => l_msg_count
8664: ,x_msg_data => l_msg_data
8665: );
8666:
8667: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8668: x_msg_count := FND_MSG_PUB.count_msg;
8669: if x_msg_count = 1 then
8670: pa_interface_utils_pub.get_messages
8671: (p_encoded => FND_API.G_TRUE,
8667: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8668: x_msg_count := FND_MSG_PUB.count_msg;
8669: if x_msg_count = 1 then
8670: pa_interface_utils_pub.get_messages
8671: (p_encoded => FND_API.G_TRUE,
8672: p_msg_index => 1,
8673: p_msg_count => l_msg_count,
8674: p_msg_data => l_msg_data,
8675: p_data => l_data,
8675: p_data => l_data,
8676: p_msg_index_out => l_msg_index_out);
8677: x_msg_data := l_data;
8678: end if;
8679: RAISE FND_API.G_EXC_ERROR;
8680: end if;
8681:
8682: l_cnt := l_cnt + 1;
8683: END LOOP;
8698: ,x_msg_count => l_msg_count
8699: ,x_msg_data => l_msg_data
8700: );
8701:
8702: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8703: x_msg_count := FND_MSG_PUB.count_msg;
8704: if x_msg_count = 1 then
8705: pa_interface_utils_pub.get_messages
8706: (p_encoded => FND_API.G_TRUE,
8702: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8703: x_msg_count := FND_MSG_PUB.count_msg;
8704: if x_msg_count = 1 then
8705: pa_interface_utils_pub.get_messages
8706: (p_encoded => FND_API.G_TRUE,
8707: p_msg_index => 1,
8708: p_msg_count => l_msg_count,
8709: p_msg_data => l_msg_data,
8710: p_data => l_data,
8710: p_data => l_data,
8711: p_msg_index_out => l_msg_index_out);
8712: x_msg_data := l_data;
8713: end if;
8714: RAISE FND_API.G_EXC_ERROR;
8715: end if;
8716: end if;
8717: -- end anlee
8718:
8718:
8719: CLOSE get_child_weighting;
8720:
8721: EXCEPTION
8722: WHEN FND_API.G_EXC_ERROR THEN
8723: x_msg_count := FND_MSG_PUB.count_msg;
8724: x_return_status := FND_API.G_RET_STS_ERROR;
8725: WHEN OTHERS THEN
8726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8720:
8721: EXCEPTION
8722: WHEN FND_API.G_EXC_ERROR THEN
8723: x_msg_count := FND_MSG_PUB.count_msg;
8724: x_return_status := FND_API.G_RET_STS_ERROR;
8725: WHEN OTHERS THEN
8726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8727: x_msg_count := FND_MSG_PUB.count_msg;
8728: --put message
8722: WHEN FND_API.G_EXC_ERROR THEN
8723: x_msg_count := FND_MSG_PUB.count_msg;
8724: x_return_status := FND_API.G_RET_STS_ERROR;
8725: WHEN OTHERS THEN
8726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8727: x_msg_count := FND_MSG_PUB.count_msg;
8728: --put message
8729: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
8730: p_procedure_name => 'RECALC_TASKS_WEIGHTING',
8733: END RECALC_TASKS_WEIGHTING;
8734:
8735: PROCEDURE update_task_ver_delete_status(
8736: p_api_version IN NUMBER := 1.0
8737: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
8738: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
8739: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
8740: ,p_validation_level IN VARCHAR2 := 100
8741: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
8734:
8735: PROCEDURE update_task_ver_delete_status(
8736: p_api_version IN NUMBER := 1.0
8737: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
8738: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
8739: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
8740: ,p_validation_level IN VARCHAR2 := 100
8741: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
8742: ,p_debug_mode IN VARCHAR2 := 'N'
8735: PROCEDURE update_task_ver_delete_status(
8736: p_api_version IN NUMBER := 1.0
8737: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
8738: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
8739: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
8740: ,p_validation_level IN VARCHAR2 := 100
8741: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
8742: ,p_debug_mode IN VARCHAR2 := 'N'
8743: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
8785:
8786: END LOOP;
8787: CLOSE get_task_versions;
8788:
8789: x_return_status := FND_API.G_RET_STS_SUCCESS;
8790: EXCEPTION
8791: WHEN OTHERS THEN
8792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8793: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
8788:
8789: x_return_status := FND_API.G_RET_STS_SUCCESS;
8790: EXCEPTION
8791: WHEN OTHERS THEN
8792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8793: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
8794: p_procedure_name => 'update_task_ver_delete_status',
8795: p_error_text => SUBSTRB(SQLERRM,1,240));
8796: raise;
8798:
8799: procedure delete_task_ver_wo_val
8800: (
8801: p_api_version IN NUMBER :=1.0,
8802: p_init_msg_list IN VARCHAR2:=FND_API.G_TRUE,
8803: p_commit IN VARCHAR2:=FND_API.G_FALSE,
8804: p_validate_only IN VARCHAR2:=FND_API.G_TRUE,
8805: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
8806: p_calling_module IN VARCHAR2:='SELF_SERVICE',
8799: procedure delete_task_ver_wo_val
8800: (
8801: p_api_version IN NUMBER :=1.0,
8802: p_init_msg_list IN VARCHAR2:=FND_API.G_TRUE,
8803: p_commit IN VARCHAR2:=FND_API.G_FALSE,
8804: p_validate_only IN VARCHAR2:=FND_API.G_TRUE,
8805: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
8806: p_calling_module IN VARCHAR2:='SELF_SERVICE',
8807: p_debug_mode IN VARCHAR2:='N',
8800: (
8801: p_api_version IN NUMBER :=1.0,
8802: p_init_msg_list IN VARCHAR2:=FND_API.G_TRUE,
8803: p_commit IN VARCHAR2:=FND_API.G_FALSE,
8804: p_validate_only IN VARCHAR2:=FND_API.G_TRUE,
8805: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
8806: p_calling_module IN VARCHAR2:='SELF_SERVICE',
8807: p_debug_mode IN VARCHAR2:='N',
8808: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
8801: p_api_version IN NUMBER :=1.0,
8802: p_init_msg_list IN VARCHAR2:=FND_API.G_TRUE,
8803: p_commit IN VARCHAR2:=FND_API.G_FALSE,
8804: p_validate_only IN VARCHAR2:=FND_API.G_TRUE,
8805: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
8806: p_calling_module IN VARCHAR2:='SELF_SERVICE',
8807: p_debug_mode IN VARCHAR2:='N',
8808: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
8809: p_structure_version_id IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
9029: IF (p_debug_mode = 'Y') THEN
9030: pa_debug.debug('PA_TASK_PVT1.DELETE_TASK_VER_WO_VAL begin');
9031: END IF;
9032:
9033: IF (p_commit = FND_API.G_TRUE) THEN
9034: savepoint DELETE_TASK_VER_WO_VAL;
9035: END IF;
9036:
9037: --hsiu
9118: WHEN OTHERS THEN
9119: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
9120: p_procedure_name => 'delete_Task_ver_wo_val',
9121: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions:'||SQLERRM,1,240));
9122: RAISE FND_API.G_EXC_ERROR;
9123: END;
9124: IF x_return_status = FND_API.G_RET_STS_ERROR then
9125: RAISE FND_API.G_EXC_ERROR;
9126: End If;
9120: p_procedure_name => 'delete_Task_ver_wo_val',
9121: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions:'||SQLERRM,1,240));
9122: RAISE FND_API.G_EXC_ERROR;
9123: END;
9124: IF x_return_status = FND_API.G_RET_STS_ERROR then
9125: RAISE FND_API.G_EXC_ERROR;
9126: End If;
9127: END IF;
9128: END IF;
9121: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions:'||SQLERRM,1,240));
9122: RAISE FND_API.G_EXC_ERROR;
9123: END;
9124: IF x_return_status = FND_API.G_RET_STS_ERROR then
9125: RAISE FND_API.G_EXC_ERROR;
9126: End If;
9127: END IF;
9128: END IF;
9129: -- till here by skannoji
9150: , x_msg_data => x_msg_data);
9151: END IF;
9152: CLOSE cur_fp_tsk_ver_id;
9153:
9154: If x_return_status = FND_API.G_RET_STS_ERROR then
9155: RAISE FND_API.G_EXC_ERROR;
9156: End If;
9157: End If;
9158: -- till here
9151: END IF;
9152: CLOSE cur_fp_tsk_ver_id;
9153:
9154: If x_return_status = FND_API.G_RET_STS_ERROR then
9155: RAISE FND_API.G_EXC_ERROR;
9156: End If;
9157: End If;
9158: -- till here
9159:
9210: If (l_err_code <> 0) THEN
9211: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9212: p_msg_name => substrb(l_err_stage,1,30)); --3935874 : Changed Substr to Substrb
9213: CLOSE cur_pa_tasks;
9214: raise FND_API.G_EXC_ERROR;
9215: END IF;
9216: END IF; --called_from_api chk.
9217: CLOSE cur_pa_tasks;
9218:
9233: -- ,x_return_status => l_return_status
9234: -- ,x_msg_count => l_msg_count
9235: -- ,x_msg_data => l_msg_data
9236: -- );
9237: -- IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9238: -- x_msg_count := FND_MSG_PUB.count_msg;
9239: -- IF x_msg_count = 1 then
9240: -- pa_interface_utils_pub.get_messages
9241: -- (p_encoded => FND_API.G_TRUE,
9237: -- IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9238: -- x_msg_count := FND_MSG_PUB.count_msg;
9239: -- IF x_msg_count = 1 then
9240: -- pa_interface_utils_pub.get_messages
9241: -- (p_encoded => FND_API.G_TRUE,
9242: -- p_msg_index => 1,
9243: -- p_msg_count => l_msg_count,
9244: -- p_msg_data => l_msg_data,
9245: -- p_data => l_data,
9245: -- p_data => l_data,
9246: -- p_msg_index_out => l_msg_index_out);
9247: -- x_msg_data := l_data;
9248: -- END IF;
9249: -- raise FND_API.G_EXC_ERROR;
9250: -- END IF;
9251:
9252: END IF; --delete flag chk
9253:
9293: pa_debug.write('PA_TASK_PVT1.DELETE_TASK_VER_WO_VAL', 'After PA_RELATIONSHIP_PUB.Delete_SubProject_Association l_return_status='||l_return_status, 3);
9294: END IF;
9295:
9296:
9297: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9298: x_msg_count := FND_MSG_PUB.count_msg;
9299: IF x_msg_count = 1 then
9300: pa_interface_utils_pub.get_messages
9301: (p_encoded => FND_API.G_TRUE,
9297: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9298: x_msg_count := FND_MSG_PUB.count_msg;
9299: IF x_msg_count = 1 then
9300: pa_interface_utils_pub.get_messages
9301: (p_encoded => FND_API.G_TRUE,
9302: p_msg_index => 1,
9303: p_msg_count => l_msg_count,
9304: p_msg_data => l_msg_data,
9305: p_data => l_data,
9305: p_data => l_data,
9306: p_msg_index_out => l_msg_index_out);
9307: x_msg_data := l_data;
9308: END IF;
9309: RAISE FND_API.G_EXC_ERROR;
9310: END IF;
9311: END IF; --4573340
9312: CLOSE get_subproj_relation;
9313:
9326: ,x_msg_count => l_msg_count
9327: ,x_msg_data => l_msg_data
9328: );
9329:
9330: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9331: x_msg_count := FND_MSG_PUB.count_msg;
9332: IF x_msg_count = 1 then
9333: pa_interface_utils_pub.get_messages
9334: (p_encoded => FND_API.G_TRUE,
9330: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9331: x_msg_count := FND_MSG_PUB.count_msg;
9332: IF x_msg_count = 1 then
9333: pa_interface_utils_pub.get_messages
9334: (p_encoded => FND_API.G_TRUE,
9335: p_msg_index => 1,
9336: p_msg_count => l_msg_count,
9337: p_msg_data => l_msg_data,
9338: p_data => l_data,
9338: p_data => l_data,
9339: p_msg_index_out => l_msg_index_out);
9340: x_msg_data := l_data;
9341: END IF;
9342: raise FND_API.G_EXC_ERROR;
9343: END IF;
9344:
9345: PA_PROJ_ELEMENT_VERSIONS_PKG.Delete_Row( x_row_id );
9346:
9357: ,p_action => 'DELETE'
9358: ,p_parent_task_id => l_parent_task_verion_id
9359: ,x_return_status => l_return_status );
9360:
9361: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9362: x_msg_count := FND_MSG_PUB.count_msg;
9363: IF x_msg_count = 1 then
9364: pa_interface_utils_pub.get_messages
9365: (p_encoded => FND_API.G_TRUE,
9361: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9362: x_msg_count := FND_MSG_PUB.count_msg;
9363: IF x_msg_count = 1 then
9364: pa_interface_utils_pub.get_messages
9365: (p_encoded => FND_API.G_TRUE,
9366: p_msg_index => 1,
9367: p_msg_count => l_msg_count,
9368: p_msg_data => l_msg_data,
9369: p_data => l_data,
9369: p_data => l_data,
9370: p_msg_index_out => l_msg_index_out);
9371: x_msg_data := l_data;
9372: END IF;
9373: raise FND_API.G_EXC_ERROR;
9374: END IF; --hsiu: bug 2800553: for performance changes
9375: END IF;
9376: --Ansari
9377:
9404: , x_msg_data => x_msg_data);
9405: End If;
9406: -- Added by skannoji end here
9407:
9408: IF x_return_status = FND_API.G_RET_STS_ERROR then
9409: RAISE FND_API.G_EXC_ERROR;
9410: End If;
9411:
9412: PA_PROJ_ELEMENTS_PKG.delete_row( x_row_id_elem );
9405: End If;
9406: -- Added by skannoji end here
9407:
9408: IF x_return_status = FND_API.G_RET_STS_ERROR then
9409: RAISE FND_API.G_EXC_ERROR;
9410: End If;
9411:
9412: PA_PROJ_ELEMENTS_PKG.delete_row( x_row_id_elem );
9413:
9415: -- Ext Attribute changes
9416: -- Bug 2904327
9417:
9418: PA_USER_ATTR_PUB.DELETE_ALL_USER_ATTRS_DATA (
9419: p_validate_only => FND_API.G_FALSE
9420: ,p_project_id => x_project_id
9421: ,p_proj_element_id => l_proj_element_id
9422: ,x_return_status => l_return_status
9423: ,x_msg_count => l_msg_count
9427:
9428: IF l_msg_count > 0 THEN
9429: x_msg_count := l_msg_count;
9430: x_return_status := 'E';
9431: RAISE FND_API.G_EXC_ERROR;
9432: END IF;
9433: -- anlee end of changes
9434:
9435: END IF;
9445: ,x_msg_count => l_msg_count
9446: ,x_msg_data => l_msg_data
9447: );
9448:
9449: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
9450: x_msg_count := FND_MSG_PUB.count_msg;
9451: if x_msg_count = 1 then
9452: pa_interface_utils_pub.get_messages
9453: (p_encoded => FND_API.G_TRUE,
9449: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
9450: x_msg_count := FND_MSG_PUB.count_msg;
9451: if x_msg_count = 1 then
9452: pa_interface_utils_pub.get_messages
9453: (p_encoded => FND_API.G_TRUE,
9454: p_msg_index => 1,
9455: p_msg_count => l_msg_count,
9456: p_msg_data => l_msg_data,
9457: p_data => l_data,
9457: p_data => l_data,
9458: p_msg_index_out => l_msg_index_out);
9459: x_msg_data := l_data;
9460: end if;
9461: RAISE FND_API.G_EXC_ERROR;
9462: end if;
9463: END IF;
9464: --End bug 3055766
9465:
9491: WHEN OTHERS THEN
9492: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
9493: p_procedure_name => 'delete_Task_ver_wo_val',
9494: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions:'||SQLERRM,1,240));
9495: RAISE FND_API.G_EXC_ERROR;
9496: END;
9497: IF x_return_status = FND_API.G_RET_STS_ERROR then
9498: RAISE FND_API.G_EXC_ERROR;
9499: End If;
9493: p_procedure_name => 'delete_Task_ver_wo_val',
9494: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions:'||SQLERRM,1,240));
9495: RAISE FND_API.G_EXC_ERROR;
9496: END;
9497: IF x_return_status = FND_API.G_RET_STS_ERROR then
9498: RAISE FND_API.G_EXC_ERROR;
9499: End If;
9500: END IF;
9501: --end bug Bug # : 4172646
9494: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions:'||SQLERRM,1,240));
9495: RAISE FND_API.G_EXC_ERROR;
9496: END;
9497: IF x_return_status = FND_API.G_RET_STS_ERROR then
9498: RAISE FND_API.G_EXC_ERROR;
9499: End If;
9500: END IF;
9501: --end bug Bug # : 4172646
9502: */
9517: AND PA_PROJ_ELEMENTS_UTILS.link_flag ( proj_element_id ) = 'N';
9518: EXCEPTION
9519: WHEN OTHERS THEN
9520: PA_UTILS.ADD_MESSAGE('PA', 'PA_TASK_SEQ_NUM_ERR');
9521: raise FND_API.G_EXC_ERROR;
9522: END;
9523:
9524: --hsiu added, for dates rollup
9525: IF (l_peer_tasks_exist = 'Y') THEN
9524: --hsiu added, for dates rollup
9525: IF (l_peer_tasks_exist = 'Y') THEN
9526: IF PA_PROJECT_STRUCTURE_UTILS.GET_STRUC_TYPE_FOR_VERSION(x_parent_struc_ver_id, 'WORKPLAN') = 'Y' then
9527: PA_STRUCT_TASK_ROLLUP_PUB.Tasks_Rollup(
9528: p_commit => FND_API.G_FALSE,
9529: p_element_versions => l_tasks_ver_ids,
9530: x_return_status => l_return_status,
9531: x_msg_count => l_msg_count,
9532: x_msg_data => l_msg_data);
9530: x_return_status => l_return_status,
9531: x_msg_count => l_msg_count,
9532: x_msg_data => l_msg_data);
9533:
9534: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
9535: x_msg_count := FND_MSG_PUB.count_msg;
9536: if x_msg_count = 1 then
9537: pa_interface_utils_pub.get_messages
9538: (p_encoded => FND_API.G_TRUE,
9534: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
9535: x_msg_count := FND_MSG_PUB.count_msg;
9536: if x_msg_count = 1 then
9537: pa_interface_utils_pub.get_messages
9538: (p_encoded => FND_API.G_TRUE,
9539: p_msg_index => 1,
9540: p_msg_count => l_msg_count,
9541: p_msg_data => l_msg_data,
9542: p_data => l_data,
9542: p_data => l_data,
9543: p_msg_index_out => l_msg_index_out);
9544: x_msg_data := l_data;
9545: end if;
9546: RAISE FND_API.G_EXC_ERROR;
9547: end if;
9548: END IF;
9549: END IF;
9550: END IF;
9565: ,x_msg_count => l_msg_count
9566: ,x_msg_data => l_msg_data
9567: );
9568:
9569: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
9570: x_msg_count := FND_MSG_PUB.count_msg;
9571: if x_msg_count = 1 then
9572: pa_interface_utils_pub.get_messages
9573: (p_encoded => FND_API.G_TRUE,
9569: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
9570: x_msg_count := FND_MSG_PUB.count_msg;
9571: if x_msg_count = 1 then
9572: pa_interface_utils_pub.get_messages
9573: (p_encoded => FND_API.G_TRUE,
9574: p_msg_index => 1,
9575: p_msg_count => l_msg_count,
9576: p_msg_data => l_msg_data,
9577: p_data => l_data,
9577: p_data => l_data,
9578: p_msg_index_out => l_msg_index_out);
9579: x_msg_data := l_data;
9580: end if;
9581: RAISE FND_API.G_EXC_ERROR;
9582: end if;
9583: END IF;
9584: END IF;
9585: CLOSE get_latest_task_ver_id;
9594: ,x_msg_count => l_msg_count
9595: ,x_msg_data => l_msg_data
9596: );
9597:
9598: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
9599: x_msg_count := FND_MSG_PUB.count_msg;
9600: if x_msg_count = 1 then
9601: pa_interface_utils_pub.get_messages
9602: (p_encoded => FND_API.G_TRUE,
9598: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
9599: x_msg_count := FND_MSG_PUB.count_msg;
9600: if x_msg_count = 1 then
9601: pa_interface_utils_pub.get_messages
9602: (p_encoded => FND_API.G_TRUE,
9603: p_msg_index => 1,
9604: p_msg_count => l_msg_count,
9605: p_msg_data => l_msg_data,
9606: p_data => l_data,
9606: p_data => l_data,
9607: p_msg_index_out => l_msg_index_out);
9608: x_msg_data := l_data;
9609: end if;
9610: RAISE FND_API.G_EXC_ERROR;
9611: end if;
9612: END IF;
9613: --end task weighting changes
9614:
9628: ,x_return_status => l_return_status
9629: ,x_msg_count => l_msg_count
9630: ,x_msg_data => l_msg_data);
9631:
9632: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
9633: x_msg_count := FND_MSG_PUB.count_msg;
9634: if x_msg_count = 1 then
9635: pa_interface_utils_pub.get_messages
9636: (p_encoded => FND_API.G_TRUE,
9632: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
9633: x_msg_count := FND_MSG_PUB.count_msg;
9634: if x_msg_count = 1 then
9635: pa_interface_utils_pub.get_messages
9636: (p_encoded => FND_API.G_TRUE,
9637: p_msg_index => 1,
9638: p_msg_count => l_msg_count,
9639: p_msg_data => l_msg_data,
9640: p_data => l_data,
9640: p_data => l_data,
9641: p_msg_index_out => l_msg_index_out);
9642: x_msg_data := l_data;
9643: end if;
9644: raise FND_API.G_EXC_ERROR;
9645: end if;
9646: --end if;
9647: --3035902: end process update flag changes
9648: x_return_status := FND_API.G_RET_STS_SUCCESS;
9644: raise FND_API.G_EXC_ERROR;
9645: end if;
9646: --end if;
9647: --3035902: end process update flag changes
9648: x_return_status := FND_API.G_RET_STS_SUCCESS;
9649:
9650: EXCEPTION
9651: WHEN FND_API.G_EXC_ERROR THEN
9652: IF (p_commit = FND_API.G_TRUE) THEN
9647: --3035902: end process update flag changes
9648: x_return_status := FND_API.G_RET_STS_SUCCESS;
9649:
9650: EXCEPTION
9651: WHEN FND_API.G_EXC_ERROR THEN
9652: IF (p_commit = FND_API.G_TRUE) THEN
9653: ROLLBACK to DELETE_TASK_VER_WO_VAL;
9654: END IF;
9655: x_msg_count := FND_MSG_PUB.count_msg;
9648: x_return_status := FND_API.G_RET_STS_SUCCESS;
9649:
9650: EXCEPTION
9651: WHEN FND_API.G_EXC_ERROR THEN
9652: IF (p_commit = FND_API.G_TRUE) THEN
9653: ROLLBACK to DELETE_TASK_VER_WO_VAL;
9654: END IF;
9655: x_msg_count := FND_MSG_PUB.count_msg;
9656: x_return_status := FND_API.G_RET_STS_ERROR;
9652: IF (p_commit = FND_API.G_TRUE) THEN
9653: ROLLBACK to DELETE_TASK_VER_WO_VAL;
9654: END IF;
9655: x_msg_count := FND_MSG_PUB.count_msg;
9656: x_return_status := FND_API.G_RET_STS_ERROR;
9657: WHEN OTHERS THEN
9658: IF (p_commit = FND_API.G_TRUE) THEN
9659: ROLLBACK to DELETE_TASK_VER_WO_VAL;
9660: END IF;
9654: END IF;
9655: x_msg_count := FND_MSG_PUB.count_msg;
9656: x_return_status := FND_API.G_RET_STS_ERROR;
9657: WHEN OTHERS THEN
9658: IF (p_commit = FND_API.G_TRUE) THEN
9659: ROLLBACK to DELETE_TASK_VER_WO_VAL;
9660: END IF;
9661: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9662: x_msg_count := FND_MSG_PUB.count_msg;
9657: WHEN OTHERS THEN
9658: IF (p_commit = FND_API.G_TRUE) THEN
9659: ROLLBACK to DELETE_TASK_VER_WO_VAL;
9660: END IF;
9661: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9662: x_msg_count := FND_MSG_PUB.count_msg;
9663: --put message
9664: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
9665: p_procedure_name => 'delete_Task_ver_wo_val',
9667: RAISE;
9668: END delete_task_ver_wo_val;
9669:
9670: procedure UPDATE_WORKING_VER_WEIGHT(
9671: p_commit IN VARCHAR2 := FND_API.G_FALSE
9672: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
9673: ,p_validation_level IN VARCHAR2 := 100
9674: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
9675: ,p_debug_mode IN VARCHAR2 := 'N'
9668: END delete_task_ver_wo_val;
9669:
9670: procedure UPDATE_WORKING_VER_WEIGHT(
9671: p_commit IN VARCHAR2 := FND_API.G_FALSE
9672: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
9673: ,p_validation_level IN VARCHAR2 := 100
9674: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
9675: ,p_debug_mode IN VARCHAR2 := 'N'
9676: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
9754: ,x_msg_data => x_msg_data
9755: );
9756: IF (x_msg_count > 0) THEN
9757: CLOSE get_working_ver;
9758: raise FND_API.G_EXC_ERROR;
9759: END IF;
9760: END LOOP;
9761: CLOSE get_working_ver;
9762:
9759: END IF;
9760: END LOOP;
9761: CLOSE get_working_ver;
9762:
9763: x_return_status := FND_API.G_RET_STS_SUCCESS;
9764: EXCEPTION
9765: WHEN FND_API.G_EXC_ERROR THEN
9766: x_return_status := FND_API.G_RET_STS_ERROR;
9767: WHEN OTHERS THEN
9761: CLOSE get_working_ver;
9762:
9763: x_return_status := FND_API.G_RET_STS_SUCCESS;
9764: EXCEPTION
9765: WHEN FND_API.G_EXC_ERROR THEN
9766: x_return_status := FND_API.G_RET_STS_ERROR;
9767: WHEN OTHERS THEN
9768: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9769: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
9762:
9763: x_return_status := FND_API.G_RET_STS_SUCCESS;
9764: EXCEPTION
9765: WHEN FND_API.G_EXC_ERROR THEN
9766: x_return_status := FND_API.G_RET_STS_ERROR;
9767: WHEN OTHERS THEN
9768: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9769: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
9770: p_procedure_name => 'UPDATE_WORKING_VER_WEIGHT',
9764: EXCEPTION
9765: WHEN FND_API.G_EXC_ERROR THEN
9766: x_return_status := FND_API.G_RET_STS_ERROR;
9767: WHEN OTHERS THEN
9768: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9769: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
9770: p_procedure_name => 'UPDATE_WORKING_VER_WEIGHT',
9771: p_error_text => SUBSTRB(SQLERRM,1,240));
9772: RAISE;
9773: END UPDATE_WORKING_VER_WEIGHT;
9774:
9775:
9776: procedure set_new_tasks_to_TBD(
9777: p_commit IN VARCHAR2 := FND_API.G_FALSE
9778: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
9779: ,p_validation_level IN VARCHAR2 := 100
9780: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
9781: ,p_debug_mode IN VARCHAR2 := 'N'
9774:
9775:
9776: procedure set_new_tasks_to_TBD(
9777: p_commit IN VARCHAR2 := FND_API.G_FALSE
9778: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
9779: ,p_validation_level IN VARCHAR2 := 100
9780: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
9781: ,p_debug_mode IN VARCHAR2 := 'N'
9782: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
9923: ---Call the rollup API to rollup schedule dates and effort
9924: /* Bug 2790703 Begin */
9925: /*
9926: PA_STRUCT_TASK_ROLLUP_PUB.Tasks_Rollup(
9927: p_commit => FND_API.G_FALSE,
9928: p_element_versions => l_tasks_ver_ids,
9929: x_return_status => l_return_status,
9930: x_msg_count => l_msg_count,
9931: x_msg_data => l_msg_data);
9933: -- Bug 4429929 : No need to do Rollup while cancelling a task.
9934: -- This is decided after discussion with Majid
9935: /*
9936: PA_STRUCT_TASK_ROLLUP_PUB.Tasks_Rollup_Unlimited(
9937: p_commit => FND_API.G_FALSE,
9938: p_element_versions => l_task_ver_ids_tbl,
9939: x_return_status => l_return_status,
9940: x_msg_count => l_msg_count,
9941: x_msg_data => l_msg_data);
9943:
9944: /* Bug 2790703 End */
9945:
9946:
9947: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
9948: x_msg_count := FND_MSG_PUB.count_msg;
9949: if x_msg_count = 1 then
9950: pa_interface_utils_pub.get_messages
9951: (p_encoded => FND_API.G_TRUE,
9947: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
9948: x_msg_count := FND_MSG_PUB.count_msg;
9949: if x_msg_count = 1 then
9950: pa_interface_utils_pub.get_messages
9951: (p_encoded => FND_API.G_TRUE,
9952: p_msg_index => 1,
9953: p_msg_count => l_msg_count,
9954: p_msg_data => l_msg_data,
9955: p_data => l_data,
9957: x_msg_data := l_data;
9958: end if;
9959: end if;
9960: END IF;
9961: x_return_status := FND_API.G_RET_STS_SUCCESS;
9962: EXCEPTION
9963: WHEN FND_API.G_EXC_ERROR THEN
9964: x_return_status := FND_API.G_RET_STS_ERROR;
9965: WHEN OTHERS THEN
9959: end if;
9960: END IF;
9961: x_return_status := FND_API.G_RET_STS_SUCCESS;
9962: EXCEPTION
9963: WHEN FND_API.G_EXC_ERROR THEN
9964: x_return_status := FND_API.G_RET_STS_ERROR;
9965: WHEN OTHERS THEN
9966: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9967: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
9960: END IF;
9961: x_return_status := FND_API.G_RET_STS_SUCCESS;
9962: EXCEPTION
9963: WHEN FND_API.G_EXC_ERROR THEN
9964: x_return_status := FND_API.G_RET_STS_ERROR;
9965: WHEN OTHERS THEN
9966: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9967: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
9968: p_procedure_name => 'set_new_tasks_to_TBD',
9962: EXCEPTION
9963: WHEN FND_API.G_EXC_ERROR THEN
9964: x_return_status := FND_API.G_RET_STS_ERROR;
9965: WHEN OTHERS THEN
9966: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9967: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
9968: p_procedure_name => 'set_new_tasks_to_TBD',
9969: p_error_text => SUBSTRB(SQLERRM,1,240));
9970: RAISE;
9974: -- Bug 2812855 : Added following procedure to populate actual and estimated dates to all the task versions
9975:
9976: PROCEDURE Update_Dates_To_All_Versions(
9977: p_api_version IN NUMBER :=1.0,
9978: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
9979: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
9980: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
9981: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
9982: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
9975:
9976: PROCEDURE Update_Dates_To_All_Versions(
9977: p_api_version IN NUMBER :=1.0,
9978: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
9979: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
9980: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
9981: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
9982: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
9983: p_debug_mode IN VARCHAR2 :='N',
9976: PROCEDURE Update_Dates_To_All_Versions(
9977: p_api_version IN NUMBER :=1.0,
9978: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
9979: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
9980: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
9981: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
9982: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
9983: p_debug_mode IN VARCHAR2 :='N',
9984: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
9977: p_api_version IN NUMBER :=1.0,
9978: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
9979: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
9980: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
9981: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
9982: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
9983: p_debug_mode IN VARCHAR2 :='N',
9984: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
9985: p_project_id IN NUMBER,
10015: IF (p_debug_mode = 'Y') THEN
10016: pa_debug.debug('PA_TASK_PVT1.Update_Dates_To_All_Versions begin');
10017: END IF;
10018:
10019: IF (p_commit = FND_API.G_TRUE) THEN
10020: savepoint UPDATE_SCH_VER_PRIVATE_DATES;
10021: END IF;
10022:
10023: -- Get all the info which needs to be updated to its all the versions
10055: WHERE proj_element_id = cur_proj_elem_ver_sch_rec.proj_element_id
10056: and project_id = cur_proj_elem_ver_sch_rec.project_id;
10057: END LOOP;
10058:
10059: IF (p_commit = FND_API.G_TRUE) THEN
10060: commit;
10061: END IF;
10062:
10063: x_return_status := FND_API.G_RET_STS_SUCCESS;
10059: IF (p_commit = FND_API.G_TRUE) THEN
10060: commit;
10061: END IF;
10062:
10063: x_return_status := FND_API.G_RET_STS_SUCCESS;
10064:
10065: EXCEPTION
10066: WHEN FND_API.G_EXC_ERROR THEN
10067: IF (p_commit = FND_API.G_TRUE) THEN
10062:
10063: x_return_status := FND_API.G_RET_STS_SUCCESS;
10064:
10065: EXCEPTION
10066: WHEN FND_API.G_EXC_ERROR THEN
10067: IF (p_commit = FND_API.G_TRUE) THEN
10068: ROLLBACK to UPDATE_SCH_VER_PRIVATE_DATES;
10069: END IF;
10070: x_msg_count := FND_MSG_PUB.count_msg;
10063: x_return_status := FND_API.G_RET_STS_SUCCESS;
10064:
10065: EXCEPTION
10066: WHEN FND_API.G_EXC_ERROR THEN
10067: IF (p_commit = FND_API.G_TRUE) THEN
10068: ROLLBACK to UPDATE_SCH_VER_PRIVATE_DATES;
10069: END IF;
10070: x_msg_count := FND_MSG_PUB.count_msg;
10071: x_return_status := FND_API.G_RET_STS_ERROR;
10067: IF (p_commit = FND_API.G_TRUE) THEN
10068: ROLLBACK to UPDATE_SCH_VER_PRIVATE_DATES;
10069: END IF;
10070: x_msg_count := FND_MSG_PUB.count_msg;
10071: x_return_status := FND_API.G_RET_STS_ERROR;
10072: WHEN OTHERS THEN
10073: IF (p_commit = FND_API.G_TRUE) THEN
10074: ROLLBACK to UPDATE_SCH_VER_PRIVATE_DATES;
10075: END IF;
10069: END IF;
10070: x_msg_count := FND_MSG_PUB.count_msg;
10071: x_return_status := FND_API.G_RET_STS_ERROR;
10072: WHEN OTHERS THEN
10073: IF (p_commit = FND_API.G_TRUE) THEN
10074: ROLLBACK to UPDATE_SCH_VER_PRIVATE_DATES;
10075: END IF;
10076: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10077: x_msg_count := FND_MSG_PUB.count_msg;
10072: WHEN OTHERS THEN
10073: IF (p_commit = FND_API.G_TRUE) THEN
10074: ROLLBACK to UPDATE_SCH_VER_PRIVATE_DATES;
10075: END IF;
10076: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10077: x_msg_count := FND_MSG_PUB.count_msg;
10078: --put message
10079: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
10080: p_procedure_name => 'Update_Dates_To_All_Versions',
10083: END Update_Dates_To_All_Versions;
10084:
10085:
10086: /* procedure rollup_all_working_ver(
10087: p_commit IN VARCHAR2 := FND_API.G_FALSE
10088: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
10089: ,p_validation_level IN VARCHAR2 := 100
10090: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
10091: ,p_debug_mode IN VARCHAR2 := 'N'
10084:
10085:
10086: /* procedure rollup_all_working_ver(
10087: p_commit IN VARCHAR2 := FND_API.G_FALSE
10088: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
10089: ,p_validation_level IN VARCHAR2 := 100
10090: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
10091: ,p_debug_mode IN VARCHAR2 := 'N'
10092: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM