[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_context IN VARCHAR2 N Null TASK
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_context IN VARCHAR2 N Null TASK
17: -- p_max_msg_count IN NUMBER N NULL PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
63: --
64:
65: PROCEDURE Create_Task(
66: p_api_version IN NUMBER :=1.0,
67: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
68: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
69: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
70: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
71: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
64:
65: PROCEDURE Create_Task(
66: p_api_version IN NUMBER :=1.0,
67: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
68: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
69: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
70: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
71: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
72: p_debug_mode IN VARCHAR2 :='N',
65: PROCEDURE Create_Task(
66: p_api_version IN NUMBER :=1.0,
67: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
68: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
69: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
70: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
71: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
72: p_debug_mode IN VARCHAR2 :='N',
73: p_context IN VARCHAR2 :='TASK', -- bug#11928067
66: p_api_version IN NUMBER :=1.0,
67: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
68: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
69: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
70: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
71: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
72: p_debug_mode IN VARCHAR2 :='N',
73: p_context IN VARCHAR2 :='TASK', -- bug#11928067
74: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
399: IF (p_debug_mode = 'Y') THEN
400: pa_debug.debug('PA_TASK_PVT1.CREATE_TASK begin');
401: END IF;
402:
403: IF (p_commit = FND_API.G_TRUE) THEN
404: savepoint CREATE_TASK_PRIVATE;
405: END IF;
406:
407: IF (p_debug_mode = 'Y') THEN
439: IF p_task_number IS NULL
440: THEN
441: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
442: p_msg_name => 'PA_PS_TASK_NUMBER_NULL');
443: raise FND_API.G_EXC_ERROR;
444: END IF;
445:
446: --dbms_output.put_line('task name');
447: IF p_task_name IS NULL
447: IF p_task_name IS NULL
448: THEN
449: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
450: p_msg_name => 'PA_PS_TASK_NAME_NULL');
451: raise FND_API.G_EXC_ERROR;
452: END IF;
453:
454: --Bug 2168170
455: --dbms_output.put_line('Inside private API');
471: ,p_value1 => la_task_name
472: ,p_token2 => 'TASK_NUMBER'
473: ,p_value2 => l_task_number
474: );
475: raise FND_API.G_EXC_ERROR;
476: ELSE
477: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
478: ,p_msg_name => 'PA_PS_TASK_NOT_NUM_UNIQ_AMG' -- Bug 6497559
479: ,p_token1 => 'TASK_ID'
478: ,p_msg_name => 'PA_PS_TASK_NOT_NUM_UNIQ_AMG' -- Bug 6497559
479: ,p_token1 => 'TASK_ID'
480: ,p_value1 => x_task_id
481: );
482: raise FND_API.G_EXC_ERROR;
483: END IF;
484: END IF;
485: --end bug 2669388
486: --dbms_output.put_line( 'After Check if the task name is unique within the project.' );
499: x_msg_count := l_msg_count;
500: IF x_msg_count = 1 THEN
501: x_msg_data := l_msg_data;
502: END IF;
503: RAISE FND_API.G_EXC_ERROR;
504: /* end of 3458052*/
505: END IF;
506:
507: /* bug 3459905 --Check if there is any error.
510: x_msg_count := l_msg_count;
511: IF x_msg_count = 1 THEN
512: x_msg_data := l_msg_data;
513: END IF;
514: RAISE FND_API.G_EXC_ERROR;
515: end of 3458052*/
516: END IF;
517:
518: IF ( p_task_description = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR AND p_task_description IS NOT NULL )
968:
969: IF (l_return_status <> 'Y') THEN
970: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
971: p_msg_name => l_error_message_code);
972: raise FND_API.G_EXC_ERROR;
973: END IF;
974: END IF; -- 13102269: bypassing all validations of Check_create_subtask_ok API for peer task. end.
975: end if;
976: -- 9724427: check validity of sub-task creation .. end.
1075: ,x_msg_count => l_msg_count
1076: ,x_msg_data => l_msg_data
1077: );
1078:
1079: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1080: x_msg_count := FND_MSG_PUB.count_msg;
1081: IF x_msg_count = 1 then
1082: pa_interface_utils_pub.get_messages
1083: (p_encoded => FND_API.G_TRUE,
1079: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1080: x_msg_count := FND_MSG_PUB.count_msg;
1081: IF x_msg_count = 1 then
1082: pa_interface_utils_pub.get_messages
1083: (p_encoded => FND_API.G_TRUE,
1084: p_msg_index => 1,
1085: p_msg_count => l_msg_count,
1086: p_msg_data => l_msg_data,
1087: p_data => l_data,
1087: p_data => l_data,
1088: p_msg_index_out => l_msg_index_out);
1089: x_msg_data := l_data;
1090: END IF;
1091: raise FND_API.G_EXC_ERROR;
1092: END IF;
1093:
1094:
1095: END IF;
1194: x_msg_count := l_msg_count;
1195: IF x_msg_count = 1 THEN
1196: x_msg_data := l_msg_data;
1197: END IF;
1198: RAISE FND_API.G_EXC_ERROR;
1199: END IF;
1200: -- end of bug 3459905
1201: END IF;
1202:
1206: x_msg_count := l_msg_count;
1207: IF x_msg_count = 1 THEN
1208: x_msg_data := l_msg_data;
1209: END IF;
1210: RAISE FND_API.G_EXC_ERROR;
1211: END IF;
1212: end 3459905 */
1213: /*SELECT nvl( wbs_record_version_number, 1 )
1214: INTO l_wbs_record_version_number
1300: );
1301: -- end xxlu changes
1302:
1303: --dbms_output.put_line( 'l_msg_data '||l_msg_data );
1304: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1305: x_msg_count := FND_MSG_PUB.count_msg;
1306: IF x_msg_count = 1 then
1307: pa_interface_utils_pub.get_messages
1308: (p_encoded => FND_API.G_TRUE,
1304: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1305: x_msg_count := FND_MSG_PUB.count_msg;
1306: IF x_msg_count = 1 then
1307: pa_interface_utils_pub.get_messages
1308: (p_encoded => FND_API.G_TRUE,
1309: p_msg_index => 1,
1310: p_msg_count => l_msg_count,
1311: p_msg_data => l_msg_data,
1312: p_data => l_data,
1312: p_data => l_data,
1313: p_msg_index_out => l_msg_index_out);
1314: x_msg_data := l_data;
1315: END IF;
1316: raise FND_API.G_EXC_ERROR;
1317: END IF;
1318:
1319: /* Commenting out for bug 3010538
1320: --Bug 2947492.
1338: , x_msg_data => l_msg_data
1339: , x_msg_count => l_msg_count
1340: );
1341:
1342: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1343: x_msg_count := FND_MSG_PUB.count_msg;
1344: IF x_msg_count = 1 then
1345: pa_interface_utils_pub.get_messages
1346: (p_encoded => FND_API.G_TRUE,
1342: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1343: x_msg_count := FND_MSG_PUB.count_msg;
1344: IF x_msg_count = 1 then
1345: pa_interface_utils_pub.get_messages
1346: (p_encoded => FND_API.G_TRUE,
1347: p_msg_index => 1,
1348: p_msg_count => l_msg_count,
1349: p_msg_data => l_msg_data,
1350: p_data => l_data,
1350: p_data => l_data,
1351: p_msg_index_out => l_msg_index_out);
1352: x_msg_data := l_data;
1353: END IF;
1354: raise FND_API.G_EXC_ERROR;
1355: END IF;
1356: --End Bug 2947492.
1357: */ --bug 3010538
1358:
1403: , x_msg_data => l_msg_data
1404: , x_msg_count => l_msg_count
1405: );
1406:
1407: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1408: x_msg_count := FND_MSG_PUB.count_msg;
1409: IF x_msg_count = 1 then
1410: pa_interface_utils_pub.get_messages
1411: (p_encoded => FND_API.G_TRUE,
1407: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1408: x_msg_count := FND_MSG_PUB.count_msg;
1409: IF x_msg_count = 1 then
1410: pa_interface_utils_pub.get_messages
1411: (p_encoded => FND_API.G_TRUE,
1412: p_msg_index => 1,
1413: p_msg_count => l_msg_count,
1414: p_msg_data => l_msg_data,
1415: p_data => l_data,
1415: p_data => l_data,
1416: p_msg_index_out => l_msg_index_out);
1417: x_msg_data := l_data;
1418: END IF;
1419: raise FND_API.G_EXC_ERROR;
1420: END IF;
1421: END IF; --<< l_publised_version >>
1422: END IF; --<
1423:
1424: END IF; --<< p_calling_module >>
1425: --Bug 2947492
1426: */ --bug 3010538
1427:
1428: x_return_status := FND_API.G_RET_STS_SUCCESS;
1429:
1430: EXCEPTION
1431: WHEN FND_API.G_EXC_ERROR THEN
1432: IF (p_commit = FND_API.G_TRUE) THEN
1427:
1428: x_return_status := FND_API.G_RET_STS_SUCCESS;
1429:
1430: EXCEPTION
1431: WHEN FND_API.G_EXC_ERROR THEN
1432: IF (p_commit = FND_API.G_TRUE) THEN
1433: ROLLBACK to CREATE_TASK_PRIVATE;
1434: END IF;
1435: x_msg_count := FND_MSG_PUB.count_msg;
1428: x_return_status := FND_API.G_RET_STS_SUCCESS;
1429:
1430: EXCEPTION
1431: WHEN FND_API.G_EXC_ERROR THEN
1432: IF (p_commit = FND_API.G_TRUE) THEN
1433: ROLLBACK to CREATE_TASK_PRIVATE;
1434: END IF;
1435: x_msg_count := FND_MSG_PUB.count_msg;
1436: x_return_status := FND_API.G_RET_STS_ERROR;
1432: IF (p_commit = FND_API.G_TRUE) THEN
1433: ROLLBACK to CREATE_TASK_PRIVATE;
1434: END IF;
1435: x_msg_count := FND_MSG_PUB.count_msg;
1436: x_return_status := FND_API.G_RET_STS_ERROR;
1437: WHEN OTHERS THEN
1438: IF (p_commit = FND_API.G_TRUE) THEN
1439: ROLLBACK to CREATE_TASK_PRIVATE;
1440: END IF;
1434: END IF;
1435: x_msg_count := FND_MSG_PUB.count_msg;
1436: x_return_status := FND_API.G_RET_STS_ERROR;
1437: WHEN OTHERS THEN
1438: IF (p_commit = FND_API.G_TRUE) THEN
1439: ROLLBACK to CREATE_TASK_PRIVATE;
1440: END IF;
1441: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1442: x_msg_count := FND_MSG_PUB.count_msg;
1437: WHEN OTHERS THEN
1438: IF (p_commit = FND_API.G_TRUE) THEN
1439: ROLLBACK to CREATE_TASK_PRIVATE;
1440: END IF;
1441: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1442: x_msg_count := FND_MSG_PUB.count_msg;
1443: --put message
1444: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
1445: p_procedure_name => 'Create_Task',
1453: -- Pre-reqs : None
1454: -- Return Value : N/A
1455: -- Prameters
1456: -- p_api_version IN NUMBER N Not Null 1.0
1457: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
1458: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
1459: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
1460: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
1461: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
1454: -- Return Value : N/A
1455: -- Prameters
1456: -- p_api_version IN NUMBER N Not Null 1.0
1457: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
1458: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
1459: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
1460: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
1461: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
1462: -- p_debug_mode IN VARCHAR2 N Null N
1455: -- Prameters
1456: -- p_api_version IN NUMBER N Not Null 1.0
1457: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
1458: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
1459: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
1460: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
1461: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
1462: -- p_debug_mode IN VARCHAR2 N Null N
1463: -- p_max_msg_count IN NUMBER N NULL PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1456: -- p_api_version IN NUMBER N Not Null 1.0
1457: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
1458: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
1459: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
1460: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
1461: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
1462: -- p_debug_mode IN VARCHAR2 N Null N
1463: -- p_max_msg_count IN NUMBER N NULL PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1464: -- p_task_id IN NUMBER N Not Null
1511: --
1512:
1513: PROCEDURE Update_Task(
1514: p_api_version IN NUMBER :=1.0,
1515: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
1516: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1517: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
1518: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1519: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
1512:
1513: PROCEDURE Update_Task(
1514: p_api_version IN NUMBER :=1.0,
1515: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
1516: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1517: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
1518: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1519: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
1520: p_debug_mode IN VARCHAR2 :='N',
1513: PROCEDURE Update_Task(
1514: p_api_version IN NUMBER :=1.0,
1515: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
1516: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1517: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
1518: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1519: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
1520: p_debug_mode IN VARCHAR2 :='N',
1521: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
1514: p_api_version IN NUMBER :=1.0,
1515: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
1516: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1517: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
1518: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1519: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
1520: p_debug_mode IN VARCHAR2 :='N',
1521: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
1522: p_ref_task_id IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
1890: IF (p_debug_mode = 'Y') THEN
1891: pa_debug.debug('PA_TASK_PVT1.UPDATE_TASK begin');
1892: END IF;
1893:
1894: IF (p_commit = FND_API.G_TRUE) THEN
1895: savepoint UPDATE_TASK_PRIVATE;
1896: END IF;
1897:
1898: IF (p_debug_mode = 'Y') THEN
1986: x_msg_count := l_msg_count;
1987: IF x_msg_count = 1 THEN
1988: x_msg_data := l_msg_data;
1989: END IF;
1990: RAISE FND_API.G_EXC_ERROR;
1991: END IF;
1992: -- end of bug 3459905
1993: END IF;
1994: /** End of Code Commenting for Bug 4120380 **/
2001: x_msg_count := l_msg_count;
2002: IF x_msg_count = 1 THEN
2003: x_msg_data := l_msg_data;
2004: END IF;
2005: RAISE FND_API.G_EXC_ERROR;
2006: END IF;
2007: end of bug 3459905 */
2008:
2009: -- hyau
2023: x_msg_count := l_msg_count;
2024: IF x_msg_count = 1 THEN
2025: x_msg_data := l_msg_data;
2026: END IF;
2027: RAISE FND_API.G_EXC_ERROR;
2028: END IF;
2029: -- end of bug 3459905
2030: END IF;
2031:
2042: x_msg_count := l_msg_count;
2043: IF x_msg_count = 1 THEN
2044: x_msg_data := l_msg_data;
2045: END IF;
2046: RAISE FND_API.G_EXC_ERROR;
2047: END IF;
2048: -- end of bug 3459905
2049: END IF;
2050: /* start of bug 3459905
2054: x_msg_count := l_msg_count;
2055: IF x_msg_count = 1 THEN
2056: x_msg_data := l_msg_data;
2057: END IF;
2058: RAISE FND_API.G_EXC_ERROR;
2059: END IF;
2060: end of bug 3459905 */
2061: END IF;
2062: -- end hyau. Lifecycle Phase validation Changes.
2111: x_msg_count => x_msg_count,
2112: x_msg_data => x_msg_data
2113: );
2114:
2115: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2116: RAISE FND_API.G_EXC_ERROR;
2117: END IF ;
2118:
2119: END IF ;
2112: x_msg_data => x_msg_data
2113: );
2114:
2115: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2116: RAISE FND_API.G_EXC_ERROR;
2117: END IF ;
2118:
2119: END IF ;
2120: /*
2143: x_msg_count := l_msg_count;
2144: IF x_msg_count = 1 THEN
2145: x_msg_data := l_msg_data;
2146: END IF;
2147: RAISE FND_API.G_EXC_ERROR;
2148: END IF;
2149: -- end of bug 3459905
2150: END IF;
2151:
2159: x_msg_count := l_msg_count;
2160: IF x_msg_count = 1 THEN
2161: x_msg_data := l_msg_data;
2162: END IF;
2163: RAISE FND_API.G_EXC_ERROR;
2164: END IF;
2165: -- end of bug 3459905
2166: END IF;
2167: /* start of bug 3459905
2171: x_msg_count := l_msg_count;
2172: IF x_msg_count = 1 THEN
2173: x_msg_data := l_msg_data;
2174: END IF;
2175: RAISE FND_API.G_EXC_ERROR;
2176: END IF;
2177: end of bug 3458052*/
2178: --new type; copy all attributes
2179: /* Moved this code above for Bug 3957706
2215: x_msg_count := l_msg_count;
2216: IF x_msg_count = 1 THEN
2217: x_msg_data := l_msg_data;
2218: END IF;
2219: RAISE FND_API.G_EXC_ERROR;
2220: END IF;
2221: */
2222: END IF;
2223: --end bug 2663532
2267: x_msg_count => l_msg_count,
2268: x_msg_data => l_msg_data
2269: );
2270:
2271: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2272: l_msg_count := FND_MSG_PUB.count_msg;
2273: IF l_msg_count > 0 THEN
2274: x_msg_count := l_msg_count;
2275: IF x_msg_count = 1 THEN
2274: x_msg_count := l_msg_count;
2275: IF x_msg_count = 1 THEN
2276: x_msg_data := l_msg_data;
2277: END IF;
2278: RAISE FND_API.G_EXC_ERROR;
2279: END IF;
2280: END IF;
2281: END IF;
2282:
2301: x_msg_count => l_msg_count,
2302: x_msg_data => l_msg_data
2303: );
2304:
2305: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2306: l_msg_count := FND_MSG_PUB.count_msg;
2307: IF l_msg_count > 0 THEN
2308: x_msg_count := l_msg_count;
2309: IF x_msg_count = 1 THEN
2308: x_msg_count := l_msg_count;
2309: IF x_msg_count = 1 THEN
2310: x_msg_data := l_msg_data;
2311: END IF;
2312: RAISE FND_API.G_EXC_ERROR;
2313: END IF;
2314: END IF;
2315: END IF;
2316:
2374: PA_PROGRESS_UTILS.get_system_task_status(v_cur_proj_elems_rec.STATUS_CODE)= 'CANCELLED')
2375: THEN
2376: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2377: p_msg_name => 'PA_TSK_STS_CANT_CHANGED');
2378: raise FND_API.G_EXC_ERROR;
2379: END IF;
2380: --marked as changed only if different
2381: l_status_code := p_status_code;
2382:
2402: IF l_del_cnt >=1 AND (p_Base_Perc_Comp_Deriv_Code LIKE 'DELIVERABLE'
2403: OR l_tt_base_perc_comp_der_cd LIKE 'DELIVERABLE' ) THEN --Jun 28th
2404: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2405: p_msg_name => 'PA_PS_CHK_DELIV_UPDATE');
2406: raise FND_API.G_EXC_ERROR;
2407: END IF;
2408: END LOOP;
2409: CLOSE get_task_versions_id;
2410: ELSE
2417: IF l_del_cnt >=1 AND (p_Base_Perc_Comp_Deriv_Code LIKE 'DELIVERABLE'
2418: OR l_tt_base_perc_comp_der_cd LIKE 'DELIVERABLE' ) THEN --Jun 28th
2419: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2420: p_msg_name => 'PA_PS_CHK_DELIV_UPDATE');
2421: raise FND_API.G_EXC_ERROR;
2422: END IF;
2423: END LOOP;
2424: CLOSE get_task_versions_id2;
2425: END IF;
2720: ,x_msg_count => l_msg_count
2721: ,x_msg_data => l_msg_data
2722: );
2723:
2724: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2725: x_msg_count := FND_MSG_PUB.count_msg;
2726: IF x_msg_count = 1 then
2727: pa_interface_utils_pub.get_messages
2728: (p_encoded => FND_API.G_TRUE,
2724: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2725: x_msg_count := FND_MSG_PUB.count_msg;
2726: IF x_msg_count = 1 then
2727: pa_interface_utils_pub.get_messages
2728: (p_encoded => FND_API.G_TRUE,
2729: p_msg_index => 1,
2730: p_msg_count => l_msg_count,
2731: p_msg_data => l_msg_data,
2732: p_data => l_data,
2732: p_data => l_data,
2733: p_msg_index_out => l_msg_index_out);
2734: x_msg_data := l_data;
2735: END IF;
2736: raise FND_API.G_EXC_ERROR;
2737: END IF;
2738:
2739: END IF;
2740: --Bug 14213385: Changes start
2829: ELSE
2830: CLOSE cur_proj_elems;
2831: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_INVALID_TASK_ID');
2832: l_msg_data := 'PA_PS_INVALID_TASK_ID';
2833: RAISE FND_API.G_EXC_ERROR;
2834: END IF;
2835:
2836: -- anlee
2837: -- Ext Attribute changes
2837: -- Ext Attribute changes
2838: -- Bug 2904327
2839:
2840: PA_USER_ATTR_PUB.DELETE_USER_ATTRS_DATA (
2841: p_validate_only => FND_API.G_FALSE
2842: ,p_project_id => v_cur_proj_elems_rec.project_id
2843: ,p_old_classification_id => v_cur_proj_elems_rec.type_id
2844: ,p_new_classification_id => l_type_id
2845: ,p_classification_type => 'TASK_TYPE'
2851:
2852: IF l_msg_count > 0 THEN
2853: x_msg_count := l_msg_count;
2854: x_return_status := 'E';
2855: RAISE FND_API.G_EXC_ERROR;
2856: END IF;
2857: -- anlee end of changes
2858:
2859: -- Bug 3075609. Moved here so that the processing is done after the
2872: x_msg_count := l_msg_count;
2873: IF x_msg_count = 1 THEN
2874: x_msg_data := l_msg_data;
2875: END IF;
2876: RAISE FND_API.G_EXC_ERROR;
2877: END IF;
2878: END IF;
2879:
2880: CLOSE cur_proj_elems;
3059: END IF;
3060: END IF;
3061: END IF;
3062:
3063: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3064: x_msg_count := FND_MSG_PUB.count_msg;
3065: IF x_msg_count = 1 then
3066: pa_interface_utils_pub.get_messages
3067: (p_encoded => FND_API.G_TRUE,
3063: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3064: x_msg_count := FND_MSG_PUB.count_msg;
3065: IF x_msg_count = 1 then
3066: pa_interface_utils_pub.get_messages
3067: (p_encoded => FND_API.G_TRUE,
3068: p_msg_index => 1,
3069: p_msg_count => l_msg_count,
3070: p_msg_data => l_msg_data,
3071: p_data => l_data,
3071: p_data => l_data,
3072: p_msg_index_out => l_msg_index_out);
3073: x_msg_data := l_data;
3074: END IF;
3075: raise FND_API.G_EXC_ERROR;
3076: END IF;
3077:
3078: END IF; --<< p_calling_module >
3079:
3096: ,x_msg_count => l_msg_count
3097: ,x_msg_data => l_msg_data
3098: );
3099:
3100: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3101: x_msg_count := FND_MSG_PUB.count_msg;
3102: IF x_msg_count = 1 then
3103: pa_interface_utils_pub.get_messages
3104: (p_encoded => FND_API.G_TRUE,
3100: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3101: x_msg_count := FND_MSG_PUB.count_msg;
3102: IF x_msg_count = 1 then
3103: pa_interface_utils_pub.get_messages
3104: (p_encoded => FND_API.G_TRUE,
3105: p_msg_index => 1,
3106: p_msg_count => l_msg_count,
3107: p_msg_data => l_msg_data,
3108: p_data => l_data,
3108: p_data => l_data,
3109: p_msg_index_out => l_msg_index_out);
3110: x_msg_data := l_data;
3111: END IF;
3112: raise FND_API.G_EXC_ERROR;
3113: END IF;
3114: end if;
3115:
3116: --maansari
3125: );
3126: IF (l_return_status <> 'S') THEN
3127: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3128: p_msg_name => l_error_message_code);
3129: raise FND_API.G_EXC_ERROR;
3130: END IF;
3131: END IF;
3132:
3133: PA_TASK_PVT1.set_new_tasks_to_TBD(
3138: ,x_msg_count => l_msg_count
3139: ,x_msg_data => l_msg_data
3140: );
3141:
3142: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3143: x_msg_count := FND_MSG_PUB.count_msg;
3144: IF x_msg_count = 1 then
3145: pa_interface_utils_pub.get_messages
3146: (p_encoded => FND_API.G_TRUE,
3142: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3143: x_msg_count := FND_MSG_PUB.count_msg;
3144: IF x_msg_count = 1 then
3145: pa_interface_utils_pub.get_messages
3146: (p_encoded => FND_API.G_TRUE,
3147: p_msg_index => 1,
3148: p_msg_count => l_msg_count,
3149: p_msg_data => l_msg_data,
3150: p_data => l_data,
3150: p_data => l_data,
3151: p_msg_index_out => l_msg_index_out);
3152: x_msg_data := l_data;
3153: END IF;
3154: raise FND_API.G_EXC_ERROR;
3155: END IF;
3156: --maansari
3157: -- 14556729:Huawei Code change to defer the roll up API when G_ROLLUP_DEFER is set to Y , so that all the roll up is processed once at the end .
3158: IF NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER, 'N') = 'N'
3163: ,x_return_status => l_return_status
3164: ,x_msg_count => l_msg_count
3165: ,x_msg_data => l_msg_data
3166: );
3167: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3168: x_msg_count := FND_MSG_PUB.count_msg;
3169: IF x_msg_count = 1 then
3170: pa_interface_utils_pub.get_messages
3171: (p_encoded => FND_API.G_TRUE,
3167: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3168: x_msg_count := FND_MSG_PUB.count_msg;
3169: IF x_msg_count = 1 then
3170: pa_interface_utils_pub.get_messages
3171: (p_encoded => FND_API.G_TRUE,
3172: p_msg_index => 1,
3173: p_msg_count => l_msg_count,
3174: p_msg_data => l_msg_data,
3175: p_data => l_data,
3175: p_data => l_data,
3176: p_msg_index_out => l_msg_index_out);
3177: x_msg_data := l_data;
3178: END IF;
3179: raise FND_API.G_EXC_ERROR;
3180: END IF;
3181: END IF; -- End 14556729
3182: END IF;
3183: --end task status change
3181: END IF; -- End 14556729
3182: END IF;
3183: --end task status change
3184:
3185: x_return_status := FND_API.G_RET_STS_SUCCESS;
3186:
3187: EXCEPTION
3188: WHEN FND_API.G_EXC_ERROR THEN
3189: IF (p_commit = FND_API.G_TRUE) THEN
3184:
3185: x_return_status := FND_API.G_RET_STS_SUCCESS;
3186:
3187: EXCEPTION
3188: WHEN FND_API.G_EXC_ERROR THEN
3189: IF (p_commit = FND_API.G_TRUE) THEN
3190: ROLLBACK to UPDATE_TASK_PRIVATE;
3191: END IF;
3192: x_msg_count := FND_MSG_PUB.count_msg;
3185: x_return_status := FND_API.G_RET_STS_SUCCESS;
3186:
3187: EXCEPTION
3188: WHEN FND_API.G_EXC_ERROR THEN
3189: IF (p_commit = FND_API.G_TRUE) THEN
3190: ROLLBACK to UPDATE_TASK_PRIVATE;
3191: END IF;
3192: x_msg_count := FND_MSG_PUB.count_msg;
3193: x_return_status := FND_API.G_RET_STS_ERROR;
3189: IF (p_commit = FND_API.G_TRUE) THEN
3190: ROLLBACK to UPDATE_TASK_PRIVATE;
3191: END IF;
3192: x_msg_count := FND_MSG_PUB.count_msg;
3193: x_return_status := FND_API.G_RET_STS_ERROR;
3194: WHEN OTHERS THEN
3195: IF (p_commit = FND_API.G_TRUE) THEN
3196: ROLLBACK to UPDATE_TASK_PRIVATE;
3197: END IF;
3191: END IF;
3192: x_msg_count := FND_MSG_PUB.count_msg;
3193: x_return_status := FND_API.G_RET_STS_ERROR;
3194: WHEN OTHERS THEN
3195: IF (p_commit = FND_API.G_TRUE) THEN
3196: ROLLBACK to UPDATE_TASK_PRIVATE;
3197: END IF;
3198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3199: x_msg_count := FND_MSG_PUB.count_msg;
3194: WHEN OTHERS THEN
3195: IF (p_commit = FND_API.G_TRUE) THEN
3196: ROLLBACK to UPDATE_TASK_PRIVATE;
3197: END IF;
3198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3199: x_msg_count := FND_MSG_PUB.count_msg;
3200: --put message
3201: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
3202: p_procedure_name => 'update_Task',
3209: -- Pre-reqs : None
3210: -- Return Value : N/A
3211: -- Prameters
3212: -- p_api_version IN NUMBER N Not Null 1.0
3213: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
3214: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
3215: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
3216: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
3217: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
3210: -- Return Value : N/A
3211: -- Prameters
3212: -- p_api_version IN NUMBER N Not Null 1.0
3213: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
3214: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
3215: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
3216: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
3217: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
3218: -- p_debug_mode IN VARCHAR2 N Null N
3211: -- Prameters
3212: -- p_api_version IN NUMBER N Not Null 1.0
3213: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
3214: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
3215: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
3216: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
3217: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
3218: -- p_debug_mode IN VARCHAR2 N Null N
3219: -- p_max_msg_count IN NUMBER N NULL PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3212: -- p_api_version IN NUMBER N Not Null 1.0
3213: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
3214: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
3215: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
3216: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
3217: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
3218: -- p_debug_mode IN VARCHAR2 N Null N
3219: -- p_max_msg_count IN NUMBER N NULL PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3220: -- p_ref_task_version_id IN NUMBER N Not Null
3248: --
3249:
3250: PROCEDURE Create_Task_Version(
3251: p_api_version IN NUMBER :=1.0,
3252: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
3253: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
3254: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
3255: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
3256: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
3249:
3250: PROCEDURE Create_Task_Version(
3251: p_api_version IN NUMBER :=1.0,
3252: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
3253: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
3254: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
3255: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
3256: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
3257: p_debug_mode IN VARCHAR2 :='N',
3250: PROCEDURE Create_Task_Version(
3251: p_api_version IN NUMBER :=1.0,
3252: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
3253: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
3254: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
3255: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
3256: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
3257: p_debug_mode IN VARCHAR2 :='N',
3258: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
3251: p_api_version IN NUMBER :=1.0,
3252: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
3253: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
3254: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
3255: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
3256: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
3257: p_debug_mode IN VARCHAR2 :='N',
3258: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
3259: p_ref_task_version_id IN NUMBER,
3384: IF (p_debug_mode = 'Y') THEN
3385: pa_debug.debug('PA_TASK_PVT1.CREATE_TASK_VERSION begin');
3386: END IF;
3387:
3388: IF (p_commit = FND_API.G_TRUE) THEN
3389: savepoint CREATE_TASK_VER_PRIVATE;
3390: END IF;
3391:
3392: IF (p_debug_mode = 'Y') THEN
3529: IF l_base_deriv_code LIKE 'DELIVERABLE' THEN
3530: IF PA_PROJ_ELEMENTS_UTILS.check_task_parents_deliv(l_ref_parent_task_ver_id) = 'Y' THEN
3531: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3532: p_msg_name => 'PA_TASK_AND_PARENTTASK_DEL');
3533: raise FND_API.G_EXC_ERROR;
3534: END IF;
3535: END IF;
3536: --
3537: --
3626:
3627: IF (l_return_status <> 'Y') THEN
3628: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3629: p_msg_name => l_error_message_code);
3630: raise FND_API.G_EXC_ERROR;
3631: END IF;
3632: END IF;
3633: --end bug 2695631
3634:
3658:
3659: IF (l_return_status <> 'Y') THEN
3660: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3661: p_msg_name => l_error_message_code);
3662: raise FND_API.G_EXC_ERROR;
3663: END IF;
3664: END IF;
3665: --end bug 2695631
3666: END IF;
3764: ,x_msg_data => x_msg_data
3765: );
3766: IF x_return_status <> 'S'
3767: THEN
3768: RAISE FND_API.G_EXC_ERROR;
3769: END IF;
3770: END IF;
3771: -- Sridhar Huawei 18-Sept end
3772:
3842: IF x_return_status <> 'S'
3843: THEN
3844: --dbms_output.put_line( 'raising exception' );
3845: CLOSE cur_proj_elems;
3846: RAISE FND_API.G_EXC_ERROR;
3847: END IF;
3848:
3849: --dbms_output.put_line( 'Before WBS_NUMBER' );
3850: -- skkoppul - Added the condition below for bug 13923366
3870:
3871: IF x_return_status <> 'S'
3872: THEN
3873: CLOSE cur_proj_elems;
3874: RAISE FND_API.G_EXC_ERROR;
3875: END IF;
3876: END IF; -- end changes for bug 13923366
3877: ELSE
3878: CLOSE cur_proj_elems;
3877: ELSE
3878: CLOSE cur_proj_elems;
3879: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_INV_REF_TASK_ID');
3880: l_msg_data := 'PA_PS_INV_REF_TASK_ID';
3881: RAISE FND_API.G_EXC_ERROR;
3882: END IF;
3883: CLOSE cur_proj_elems;
3884: x_return_status := FND_API.G_RET_STS_SUCCESS;
3885: --my_error_msg( 'In create_task_version pvt API Stage 7' );
3880: l_msg_data := 'PA_PS_INV_REF_TASK_ID';
3881: RAISE FND_API.G_EXC_ERROR;
3882: END IF;
3883: CLOSE cur_proj_elems;
3884: x_return_status := FND_API.G_RET_STS_SUCCESS;
3885: --my_error_msg( 'In create_task_version pvt API Stage 7' );
3886:
3887:
3888: EXCEPTION
3885: --my_error_msg( 'In create_task_version pvt API Stage 7' );
3886:
3887:
3888: EXCEPTION
3889: WHEN FND_API.G_EXC_ERROR THEN
3890: IF (p_commit = FND_API.G_TRUE) THEN
3891: ROLLBACK to CREATE_TASK_VER_PRIVATE;
3892: END IF;
3893: x_msg_count := FND_MSG_PUB.count_msg;
3886:
3887:
3888: EXCEPTION
3889: WHEN FND_API.G_EXC_ERROR THEN
3890: IF (p_commit = FND_API.G_TRUE) THEN
3891: ROLLBACK to CREATE_TASK_VER_PRIVATE;
3892: END IF;
3893: x_msg_count := FND_MSG_PUB.count_msg;
3894: x_return_status := FND_API.G_RET_STS_ERROR;
3890: IF (p_commit = FND_API.G_TRUE) THEN
3891: ROLLBACK to CREATE_TASK_VER_PRIVATE;
3892: END IF;
3893: x_msg_count := FND_MSG_PUB.count_msg;
3894: x_return_status := FND_API.G_RET_STS_ERROR;
3895:
3896: -- --dbms_output.put_line( 'In exception ');
3897: -- --dbms_output.put_line( 'Status In exception ' ||x_return_status);
3898:
3897: -- --dbms_output.put_line( 'Status In exception ' ||x_return_status);
3898:
3899:
3900: WHEN OTHERS THEN
3901: IF (p_commit = FND_API.G_TRUE) THEN
3902: ROLLBACK to CREATE_TASK_VER_PRIVATE;
3903: END IF;
3904: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3905: x_msg_count := FND_MSG_PUB.count_msg;
3900: WHEN OTHERS THEN
3901: IF (p_commit = FND_API.G_TRUE) THEN
3902: ROLLBACK to CREATE_TASK_VER_PRIVATE;
3903: END IF;
3904: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3905: x_msg_count := FND_MSG_PUB.count_msg;
3906: --put message
3907: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
3908: p_procedure_name => 'create_Task_version',
3916: -- Pre-reqs : None
3917: -- Return Value : N/A
3918: -- Prameters
3919: -- p_api_version IN NUMBER N Not Null 1.0
3920: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
3921: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
3922: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
3923: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
3924: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
3917: -- Return Value : N/A
3918: -- Prameters
3919: -- p_api_version IN NUMBER N Not Null 1.0
3920: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
3921: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
3922: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
3923: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
3924: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
3925: -- p_debug_mode IN VARCHAR2 N Null N
3918: -- Prameters
3919: -- p_api_version IN NUMBER N Not Null 1.0
3920: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
3921: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
3922: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
3923: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
3924: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
3925: -- p_debug_mode IN VARCHAR2 N Null N
3926: -- p_max_msg_count IN NUMBER N NULL PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3919: -- p_api_version IN NUMBER N Not Null 1.0
3920: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
3921: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
3922: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
3923: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
3924: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
3925: -- p_debug_mode IN VARCHAR2 N Null N
3926: -- p_max_msg_count IN NUMBER N NULL PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3927: -- p_task_version_id IN NUMBER N Null
3953: --
3954:
3955: PROCEDURE Update_Task_Version(
3956: p_api_version IN NUMBER :=1.0,
3957: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
3958: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
3959: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
3960: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
3961: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
3954:
3955: PROCEDURE Update_Task_Version(
3956: p_api_version IN NUMBER :=1.0,
3957: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
3958: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
3959: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
3960: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
3961: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
3962: p_debug_mode IN VARCHAR2 :='N',
3955: PROCEDURE Update_Task_Version(
3956: p_api_version IN NUMBER :=1.0,
3957: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
3958: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
3959: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
3960: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
3961: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
3962: p_debug_mode IN VARCHAR2 :='N',
3963: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
3956: p_api_version IN NUMBER :=1.0,
3957: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
3958: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
3959: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
3960: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
3961: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
3962: p_debug_mode IN VARCHAR2 :='N',
3963: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
3964: p_ref_task_version_id IN NUMBER,
4237: IF (p_debug_mode = 'Y') THEN
4238: pa_debug.debug('PA_TASK_PVT1.UPDATE_TASK_VERSION begin');
4239: END IF;
4240:
4241: IF (p_commit = FND_API.G_TRUE) THEN
4242: savepoint UPDATE_TASK_VER_PRIVATE;
4243: END IF;
4244:
4245: IF (p_debug_mode = 'Y') THEN
4275: -- IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id,p_task_version_id) = 'Y' THEN
4276: -- IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id,p_ref_task_version_id) = 'Y' THEN
4277: -- PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4278: -- p_msg_name => 'PA_PS_CHK_DELIV_UPDATE');
4279: -- raise FND_API.G_EXC_ERROR;
4280: -- END IF;
4281:
4282: OPEN cur_ref_task;
4283: FETCH cur_ref_task INTO v_cur_ref_task_rec;
4586: ELSE
4587: CLOSE cur_proj_elems;
4588: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_INVALID_TASK_ID');
4589: l_msg_data := 'PA_PS_INVALID_TASK_ID';
4590: RAISE FND_API.G_EXC_ERROR;
4591: END IF;
4592: CLOSE cur_proj_elems;
4593: -- ELSE
4594: -- CLOSE cur_ref_task;
4593: -- ELSE
4594: -- CLOSE cur_ref_task;
4595: -- PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_INV_REF_TASK_ID');
4596: -- l_msg_data := 'PA_PS_INV_REF_TASK_ID';
4597: -- RAISE FND_API.G_EXC_ERROR;
4598: -- END IF;
4599:
4600: CLOSE cur_ref_task;
4601:
4678: );
4679: IF l_return_status <> 'S' THEN
4680: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4681: p_msg_name => 'PA_ERROR_REFRESHING_STRUCTURE');
4682: RAISE FND_API.G_EXC_ERROR;
4683: END IF;
4684: end if;
4685: END IF;
4686: END IF;
4699: ,x_return_status => l_return_status
4700: ,x_msg_count => l_msg_count
4701: ,x_msg_data => l_msg_data
4702: );
4703: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4704: x_msg_count := FND_MSG_PUB.count_msg;
4705: IF x_msg_count = 1 then
4706: pa_interface_utils_pub.get_messages
4707: (p_encoded => FND_API.G_TRUE,
4703: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4704: x_msg_count := FND_MSG_PUB.count_msg;
4705: IF x_msg_count = 1 then
4706: pa_interface_utils_pub.get_messages
4707: (p_encoded => FND_API.G_TRUE,
4708: p_msg_index => 1,
4709: p_msg_count => l_msg_count,
4710: p_msg_data => l_msg_data,
4711: p_data => l_data,
4711: p_data => l_data,
4712: p_msg_index_out => l_msg_index_out);
4713: x_msg_data := l_data;
4714: END IF;
4715: raise FND_API.G_EXC_ERROR;
4716: END IF;
4717: end if;
4718: END IF;
4719: -- Sridhar Huawei 18-Sept , END add above if statement and procedure call.
4862: ,x_msg_count => l_msg_count
4863: ,x_msg_data => l_msg_data
4864: );
4865:
4866: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4867: x_msg_count := FND_MSG_PUB.count_msg;
4868: IF x_msg_count = 1 then
4869: pa_interface_utils_pub.get_messages
4870: (p_encoded => FND_API.G_TRUE,
4866: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4867: x_msg_count := FND_MSG_PUB.count_msg;
4868: IF x_msg_count = 1 then
4869: pa_interface_utils_pub.get_messages
4870: (p_encoded => FND_API.G_TRUE,
4871: p_msg_index => 1,
4872: p_msg_count => l_msg_count,
4873: p_msg_data => l_msg_data,
4874: p_data => l_data,
4874: p_data => l_data,
4875: p_msg_index_out => l_msg_index_out);
4876: x_msg_data := l_data;
4877: END IF;
4878: raise FND_API.G_EXC_ERROR;
4879: END IF;
4880:
4881: IF l_update_new_child_rels = 'Y' AND p_action IN( 'OUTDENT' )
4882: THEN
4917: ,x_msg_count => x_msg_count
4918: ,x_msg_data => x_msg_data
4919: );
4920:
4921: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4922: x_msg_count := FND_MSG_PUB.count_msg;
4923: IF x_msg_count = 1 then
4924: pa_interface_utils_pub.get_messages
4925: (p_encoded => FND_API.G_TRUE,
4921: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4922: x_msg_count := FND_MSG_PUB.count_msg;
4923: IF x_msg_count = 1 then
4924: pa_interface_utils_pub.get_messages
4925: (p_encoded => FND_API.G_TRUE,
4926: p_msg_index => 1,
4927: p_msg_count => l_msg_count,
4928: p_msg_data => l_msg_data,
4929: p_data => l_data,
4929: p_data => l_data,
4930: p_msg_index_out => l_msg_index_out);
4931: x_msg_data := l_data;
4932: END IF;
4933: raise FND_API.G_EXC_ERROR;
4934: END IF;
4935:
4936: END LOOP;
4937: END IF;
4947:
4948: x_msg_count := FND_MSG_PUB.count_msg;
4949: IF x_msg_count = 1 then
4950: pa_interface_utils_pub.get_messages
4951: (p_encoded => FND_API.G_TRUE,
4952: p_msg_index => 1,
4953: p_msg_count => l_msg_count,
4954: p_msg_data => l_msg_data,
4955: p_data => l_data,
4967:
4968: x_msg_count := FND_MSG_PUB.count_msg;
4969: IF x_msg_count = 1 then
4970: pa_interface_utils_pub.get_messages
4971: (p_encoded => FND_API.G_TRUE,
4972: p_msg_index => 1,
4973: p_msg_count => l_msg_count,
4974: p_msg_data => l_msg_data,
4975: p_data => l_data,
5262: --Bug 13895419 end
5263: END;
5264: END IF; --<< p_action = 'MOVE' >>
5265: -- 14556729:Huawei code change :get the Sharing code and process below code only if its fully shared
5266: x_return_status := FND_API.G_RET_STS_SUCCESS;
5267:
5268: EXCEPTION
5269: WHEN FND_API.G_EXC_ERROR THEN
5270: IF (p_commit = FND_API.G_TRUE) THEN
5265: -- 14556729:Huawei code change :get the Sharing code and process below code only if its fully shared
5266: x_return_status := FND_API.G_RET_STS_SUCCESS;
5267:
5268: EXCEPTION
5269: WHEN FND_API.G_EXC_ERROR THEN
5270: IF (p_commit = FND_API.G_TRUE) THEN
5271: ROLLBACK to UPDATE_TASK_VER_PRIVATE;
5272: END IF;
5273: x_msg_count := FND_MSG_PUB.count_msg;
5266: x_return_status := FND_API.G_RET_STS_SUCCESS;
5267:
5268: EXCEPTION
5269: WHEN FND_API.G_EXC_ERROR THEN
5270: IF (p_commit = FND_API.G_TRUE) THEN
5271: ROLLBACK to UPDATE_TASK_VER_PRIVATE;
5272: END IF;
5273: x_msg_count := FND_MSG_PUB.count_msg;
5274: x_return_status := FND_API.G_RET_STS_ERROR;
5270: IF (p_commit = FND_API.G_TRUE) THEN
5271: ROLLBACK to UPDATE_TASK_VER_PRIVATE;
5272: END IF;
5273: x_msg_count := FND_MSG_PUB.count_msg;
5274: x_return_status := FND_API.G_RET_STS_ERROR;
5275: WHEN OTHERS THEN
5276: IF (p_commit = FND_API.G_TRUE) THEN
5277: ROLLBACK to UPDATE_TASK_VER_PRIVATE;
5278: END IF;
5272: END IF;
5273: x_msg_count := FND_MSG_PUB.count_msg;
5274: x_return_status := FND_API.G_RET_STS_ERROR;
5275: WHEN OTHERS THEN
5276: IF (p_commit = FND_API.G_TRUE) THEN
5277: ROLLBACK to UPDATE_TASK_VER_PRIVATE;
5278: END IF;
5279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5280: x_msg_count := FND_MSG_PUB.count_msg;
5275: WHEN OTHERS THEN
5276: IF (p_commit = FND_API.G_TRUE) THEN
5277: ROLLBACK to UPDATE_TASK_VER_PRIVATE;
5278: END IF;
5279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5280: x_msg_count := FND_MSG_PUB.count_msg;
5281: --put message
5282: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
5283: p_procedure_name => 'update_Task_version',
5289: -- Pre-reqs : None
5290: -- Return Value : N/A
5291: -- Prameters
5292: -- p_api_version IN NUMBER N Not Null 1.0
5293: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
5294: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
5295: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
5296: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
5297: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
5290: -- Return Value : N/A
5291: -- Prameters
5292: -- p_api_version IN NUMBER N Not Null 1.0
5293: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
5294: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
5295: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
5296: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
5297: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
5298: -- p_debug_mode IN VARCHAR2 N Null N
5291: -- Prameters
5292: -- p_api_version IN NUMBER N Not Null 1.0
5293: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
5294: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
5295: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
5296: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
5297: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
5298: -- p_debug_mode IN VARCHAR2 N Null N
5299: -- p_max_msg_count IN NUMBER N NULL PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
5292: -- p_api_version IN NUMBER N Not Null 1.0
5293: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
5294: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
5295: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
5296: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
5297: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
5298: -- p_debug_mode IN VARCHAR2 N Null N
5299: -- p_max_msg_count IN NUMBER N NULL PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
5300: -- p_structure_version_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
5311: --
5312: --
5313: PROCEDURE Delete_Task_Version(
5314: p_api_version IN NUMBER :=1.0,
5315: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
5316: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
5317: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
5318: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
5319: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
5312: --
5313: PROCEDURE Delete_Task_Version(
5314: p_api_version IN NUMBER :=1.0,
5315: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
5316: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
5317: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
5318: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
5319: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
5320: p_debug_mode IN VARCHAR2 :='N',
5313: PROCEDURE Delete_Task_Version(
5314: p_api_version IN NUMBER :=1.0,
5315: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
5316: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
5317: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
5318: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
5319: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
5320: p_debug_mode IN VARCHAR2 :='N',
5321: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
5314: p_api_version IN NUMBER :=1.0,
5315: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
5316: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
5317: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
5318: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
5319: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
5320: p_debug_mode IN VARCHAR2 :='N',
5321: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
5322: p_structure_version_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
5656: , x_return_status => x_return_status
5657: , x_msg_count => x_msg_count
5658: , x_msg_data => x_msg_data
5659: , x_error_msg_code => l_error_msg_code );
5660: If x_return_status = FND_API.G_RET_STS_ERROR then
5661: RAISE FND_API.G_EXC_ERROR;
5662: End If;
5663: End If;
5664: -- End of FP_M changes
5657: , x_msg_count => x_msg_count
5658: , x_msg_data => x_msg_data
5659: , x_error_msg_code => l_error_msg_code );
5660: If x_return_status = FND_API.G_RET_STS_ERROR then
5661: RAISE FND_API.G_EXC_ERROR;
5662: End If;
5663: End If;
5664: -- End of FP_M changes
5665: */
5668: IF (p_debug_mode = 'Y') THEN
5669: pa_debug.debug('PA_TASK_PVT1.DELETE_TASK_VERSION begin');
5670: END IF;
5671:
5672: IF (p_commit = FND_API.G_TRUE) THEN
5673: savepoint DELETE_TASK_VER_PRIVATE;
5674: END IF;
5675:
5676: IF (p_debug_mode = 'Y') THEN
5693: IF ('N' = pa_proj_elements_utils.check_task_in_structure(
5694: p_structure_version_id,
5695: p_task_version_id)) THEN
5696: --deleting linked task. Error
5697: x_return_status := FND_API.G_RET_STS_ERROR;
5698: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NO_DEL_LINKED_TASK');
5699: l_msg_data := 'PA_PS_NO_DEL_LINKED_TASK';
5700: RAISE FND_API.G_EXC_ERROR;
5701: END IF;
5696: --deleting linked task. Error
5697: x_return_status := FND_API.G_RET_STS_ERROR;
5698: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NO_DEL_LINKED_TASK');
5699: l_msg_data := 'PA_PS_NO_DEL_LINKED_TASK';
5700: RAISE FND_API.G_EXC_ERROR;
5701: END IF;
5702: END IF;
5703:
5704: --hsiu added, for dates rollup
5751: WHEN OTHERS THEN
5752: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
5753: p_procedure_name => 'delete_Task_version',
5754: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions:'||SQLERRM,1,240));
5755: RAISE FND_API.G_EXC_ERROR;
5756: END;
5757: IF x_return_status = FND_API.G_RET_STS_ERROR then
5758: RAISE FND_API.G_EXC_ERROR;
5759: End If;
5753: p_procedure_name => 'delete_Task_version',
5754: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions:'||SQLERRM,1,240));
5755: RAISE FND_API.G_EXC_ERROR;
5756: END;
5757: IF x_return_status = FND_API.G_RET_STS_ERROR then
5758: RAISE FND_API.G_EXC_ERROR;
5759: End If;
5760: END IF;
5761: --end bug 4006401
5754: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions:'||SQLERRM,1,240));
5755: RAISE FND_API.G_EXC_ERROR;
5756: END;
5757: IF x_return_status = FND_API.G_RET_STS_ERROR then
5758: RAISE FND_API.G_EXC_ERROR;
5759: End If;
5760: END IF;
5761: --end bug 4006401
5762:
5814: ,x_return_status => x_return_status
5815: ,x_msg_count => x_msg_count
5816: ,x_msg_data => x_msg_data);
5817:
5818: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
5819: x_msg_count := FND_MSG_PUB.count_msg;
5820: If x_msg_count = 1 then
5821: pa_interface_utils_pub.get_messages
5822: (p_encoded => FND_API.G_TRUE,
5818: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
5819: x_msg_count := FND_MSG_PUB.count_msg;
5820: If x_msg_count = 1 then
5821: pa_interface_utils_pub.get_messages
5822: (p_encoded => FND_API.G_TRUE,
5823: p_msg_index => 1,
5824: p_msg_count => l_msg_count,
5825: p_msg_data => l_msg_data,
5826: p_data => l_data,
5826: p_data => l_data,
5827: p_msg_index_out => l_msg_index_out);
5828: x_msg_data := l_data;
5829: End If;
5830: raise FND_API.G_EXC_ERROR;
5831: End If;
5832: End If;
5833:
5834: OPEN cur_pa_projs( l_project_id );
5863: ,p_bulk_flag => 'Y'
5864: ,x_return_status => l_return_status
5865: ,x_msg_count => l_msg_count
5866: ,x_msg_data => l_msg_data);
5867: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5868: x_msg_count := FND_MSG_PUB.count_msg;
5869: IF x_msg_count = 1 then
5870: pa_interface_utils_pub.get_messages(
5871: p_encoded => FND_API.G_TRUE,
5867: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5868: x_msg_count := FND_MSG_PUB.count_msg;
5869: IF x_msg_count = 1 then
5870: pa_interface_utils_pub.get_messages(
5871: p_encoded => FND_API.G_TRUE,
5872: p_msg_index => 1,
5873: p_msg_count => l_msg_count,
5874: p_msg_data => l_msg_data,
5875: p_data => l_data,
5875: p_data => l_data,
5876: p_msg_index_out => l_msg_index_out);
5877: x_msg_data := l_data;
5878: END IF;
5879: raise FND_API.G_EXC_ERROR;
5880: END IF;
5881: END IF; --called_from_api chk.
5882: END IF; --delete flag chk
5883: --end bug 4006401
5934: IF (l_return_status <> 'S') THEN
5935: x_return_status := l_return_status;
5936: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
5937: l_msg_data := l_error_message_code;
5938: RAISE FND_API.G_EXC_ERROR;
5939: END IF;
5940: */
5941:
5942: --dbms_output.put_line( 'before workplan test ' );
5994: WHEN OTHERS THEN
5995: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
5996: p_procedure_name => 'delete_Task_version',
5997: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions:'||SQLERRM,1,240));
5998: RAISE FND_API.G_EXC_ERROR;
5999: END;
6000: IF x_return_status = FND_API.G_RET_STS_ERROR then
6001: RAISE FND_API.G_EXC_ERROR;
6002: End If;
5996: p_procedure_name => 'delete_Task_version',
5997: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions:'||SQLERRM,1,240));
5998: RAISE FND_API.G_EXC_ERROR;
5999: END;
6000: IF x_return_status = FND_API.G_RET_STS_ERROR then
6001: RAISE FND_API.G_EXC_ERROR;
6002: End If;
6003: END IF;
6004: */
5997: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions:'||SQLERRM,1,240));
5998: RAISE FND_API.G_EXC_ERROR;
5999: END;
6000: IF x_return_status = FND_API.G_RET_STS_ERROR then
6001: RAISE FND_API.G_EXC_ERROR;
6002: End If;
6003: END IF;
6004: */
6005: -- till here by skannoji
6034: , x_msg_data => x_msg_data);
6035: END IF;
6036: CLOSE cur_fp_tsk_ver_id;
6037:
6038: If x_return_status = FND_API.G_RET_STS_ERROR then
6039: RAISE FND_API.G_EXC_ERROR;
6040: End If;
6041: End If;
6042: -- till here
6035: END IF;
6036: CLOSE cur_fp_tsk_ver_id;
6037:
6038: If x_return_status = FND_API.G_RET_STS_ERROR then
6039: RAISE FND_API.G_EXC_ERROR;
6040: End If;
6041: End If;
6042: -- till here
6043:
6108: ,x_msg_count => x_msg_count
6109: ,x_msg_data => x_msg_data
6110: );
6111:
6112: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
6113: x_msg_count := FND_MSG_PUB.count_msg;
6114: If x_msg_count = 1 then
6115: pa_interface_utils_pub.get_messages
6116: (p_encoded => FND_API.G_TRUE,
6112: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
6113: x_msg_count := FND_MSG_PUB.count_msg;
6114: If x_msg_count = 1 then
6115: pa_interface_utils_pub.get_messages
6116: (p_encoded => FND_API.G_TRUE,
6117: p_msg_index => 1,
6118: p_msg_count => l_msg_count,
6119: p_msg_data => l_msg_data,
6120: p_data => l_data,
6120: p_data => l_data,
6121: p_msg_index_out => l_msg_index_out);
6122: x_msg_data := l_data;
6123: End If;
6124: raise FND_API.G_EXC_ERROR;
6125: End If;
6126: End If;
6127: -- End of FP_M changes
6128:
6160: , x_msg_data => l_msg_data
6161: , x_msg_count => l_msg_count
6162: );
6163:
6164: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6165: x_msg_count := FND_MSG_PUB.count_msg;
6166: IF x_msg_count = 1 then
6167: pa_interface_utils_pub.get_messages
6168: (p_encoded => FND_API.G_TRUE,
6164: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6165: x_msg_count := FND_MSG_PUB.count_msg;
6166: IF x_msg_count = 1 then
6167: pa_interface_utils_pub.get_messages
6168: (p_encoded => FND_API.G_TRUE,
6169: p_msg_index => 1,
6170: p_msg_count => l_msg_count,
6171: p_msg_data => l_msg_data,
6172: p_data => l_data,
6172: p_data => l_data,
6173: p_msg_index_out => l_msg_index_out);
6174: x_msg_data := l_data;
6175: END IF;
6176: raise FND_API.G_EXC_ERROR;
6177: END IF;
6178: END If; --<< not calling if called from move_task_version api >
6179: --End Bug 2947492
6180: */
6202: ,x_return_status => l_return_status
6203: ,x_msg_count => l_msg_count
6204: ,x_msg_data => l_msg_data
6205: );
6206: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6207: x_msg_count := FND_MSG_PUB.count_msg;
6208: IF x_msg_count = 1 then
6209: pa_interface_utils_pub.get_messages
6210: (p_encoded => FND_API.G_TRUE,
6206: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6207: x_msg_count := FND_MSG_PUB.count_msg;
6208: IF x_msg_count = 1 then
6209: pa_interface_utils_pub.get_messages
6210: (p_encoded => FND_API.G_TRUE,
6211: p_msg_index => 1,
6212: p_msg_count => l_msg_count,
6213: p_msg_data => l_msg_data,
6214: p_data => l_data,
6214: p_data => l_data,
6215: p_msg_index_out => l_msg_index_out);
6216: x_msg_data := l_data;
6217: END IF;
6218: raise FND_API.G_EXC_ERROR;
6219: END IF;
6220:
6221: END IF; --called_from_api chk.
6222: END IF; --delete flag chk
6266: IF l_debug_mode = 'Y' THEN
6267: pa_debug.write('PA_TASK_PVT1.DELETE_TASK_VERSION', 'After PA_RELATIONSHIP_PUB.Delete_SubProject_Association l_return_status='||l_return_status, 3);
6268: END IF;
6269:
6270: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6271: x_msg_count := FND_MSG_PUB.count_msg;
6272: IF x_msg_count = 1 then
6273: pa_interface_utils_pub.get_messages
6274: (p_encoded => FND_API.G_TRUE,
6270: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6271: x_msg_count := FND_MSG_PUB.count_msg;
6272: IF x_msg_count = 1 then
6273: pa_interface_utils_pub.get_messages
6274: (p_encoded => FND_API.G_TRUE,
6275: p_msg_index => 1,
6276: p_msg_count => l_msg_count,
6277: p_msg_data => l_msg_data,
6278: p_data => l_data,
6278: p_data => l_data,
6279: p_msg_index_out => l_msg_index_out);
6280: x_msg_data := l_data;
6281: END IF;
6282: RAISE FND_API.G_EXC_ERROR;
6283: END IF;
6284: END IF; --4573340
6285: CLOSE get_subproj_relation;
6286:
6301: ,x_msg_count => l_msg_count
6302: ,x_msg_data => l_msg_data
6303: );
6304:
6305: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6306: x_msg_count := FND_MSG_PUB.count_msg;
6307: IF x_msg_count = 1 then
6308: pa_interface_utils_pub.get_messages
6309: (p_encoded => FND_API.G_TRUE,
6305: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6306: x_msg_count := FND_MSG_PUB.count_msg;
6307: IF x_msg_count = 1 then
6308: pa_interface_utils_pub.get_messages
6309: (p_encoded => FND_API.G_TRUE,
6310: p_msg_index => 1,
6311: p_msg_count => l_msg_count,
6312: p_msg_data => l_msg_data,
6313: p_data => l_data,
6313: p_data => l_data,
6314: p_msg_index_out => l_msg_index_out);
6315: x_msg_data := l_data;
6316: END IF;
6317: raise FND_API.G_EXC_ERROR;
6318: END IF;
6319:
6320: PA_PROJ_ELEMENT_VERSIONS_PKG.Delete_Row( x_row_id );
6321:
6335: ,p_action => 'DELETE'
6336: ,p_parent_task_id => l_parent_task_verion_id
6337: ,x_return_status => l_return_status );
6338:
6339: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6340: x_msg_count := FND_MSG_PUB.count_msg;
6341: IF x_msg_count = 1 then
6342: pa_interface_utils_pub.get_messages
6343: (p_encoded => FND_API.G_TRUE,
6339: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6340: x_msg_count := FND_MSG_PUB.count_msg;
6341: IF x_msg_count = 1 then
6342: pa_interface_utils_pub.get_messages
6343: (p_encoded => FND_API.G_TRUE,
6344: p_msg_index => 1,
6345: p_msg_count => l_msg_count,
6346: p_msg_data => l_msg_data,
6347: p_data => l_data,
6347: p_data => l_data,
6348: p_msg_index_out => l_msg_index_out);
6349: x_msg_data := l_data;
6350: END IF;
6351: raise FND_API.G_EXC_ERROR;
6352: END IF;
6353: --Ansari
6354: END IF; -- End of changes for bug 13923366
6355:
6391: , x_msg_data => x_msg_data);
6392: End If;
6393: -- Added by skannoji end here
6394:
6395: IF x_return_status = FND_API.G_RET_STS_ERROR then
6396: RAISE FND_API.G_EXC_ERROR;
6397: End If;
6398:
6399: /* bug#16083858 CBS enhancement
6392: End If;
6393: -- Added by skannoji end here
6394:
6395: IF x_return_status = FND_API.G_RET_STS_ERROR then
6396: RAISE FND_API.G_EXC_ERROR;
6397: End If;
6398:
6399: /* bug#16083858 CBS enhancement
6400: * deleting the alt_task_id corresponding to the tasks that are being removed.
6426: l_msg_count :=1;
6427: l_msg_data := 'PA_CBS_ALT_TSK_USED';
6428: x_return_status := 'E';
6429: pa_interface_utils_pub.get_messages
6430: (p_encoded => FND_API.G_TRUE,
6431: p_msg_index => 1,
6432: p_msg_count => l_msg_count,
6433: p_msg_data => l_msg_data,
6434: p_data => l_data,
6433: p_msg_data => l_msg_data,
6434: p_data => l_data,
6435: p_msg_index_out => l_msg_index_out);
6436: x_msg_data := l_data;
6437: RAISE FND_API.G_EXC_ERROR;
6438:
6439: return;
6440:
6441: END IF;
6447: p_Alt_Task_Id => l_alt_task_Ids,
6448: x_return_status => x_return_status,
6449: x_msg_count => x_msg_count,
6450: x_msg_data => x_msg_data );
6451: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6452: RAISE FND_API.G_EXC_ERROR;
6453: END IF;
6454: End;
6455:
6448: x_return_status => x_return_status,
6449: x_msg_count => x_msg_count,
6450: x_msg_data => x_msg_data );
6451: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6452: RAISE FND_API.G_EXC_ERROR;
6453: END IF;
6454: End;
6455:
6456:
6467: -- Ext Attribute changes
6468: -- Bug 2904327
6469:
6470: PA_USER_ATTR_PUB.DELETE_ALL_USER_ATTRS_DATA (
6471: p_validate_only => FND_API.G_FALSE
6472: ,p_project_id => x_project_id
6473: ,p_proj_element_id => l_proj_element_id
6474: ,x_return_status => l_return_status
6475: ,x_msg_count => l_msg_count
6479:
6480: IF l_msg_count > 0 THEN
6481: x_msg_count := l_msg_count;
6482: x_return_status := 'E';
6483: RAISE FND_API.G_EXC_ERROR;
6484: END IF;
6485: -- anlee end of changes
6486:
6487: --bug 3055766
6495:
6496: IF l_msg_count > 0 THEN
6497: x_msg_count := l_msg_count;
6498: x_return_status := 'E';
6499: RAISE FND_API.G_EXC_ERROR;
6500: END IF;
6501:
6502: --End bug 3055766
6503:
6547: p_pkg_name => 'PA_TASK_PVT1',
6548: p_procedure_name => 'Delete_Task_Version',
6549: p_error_text => SUBSTRB('PA_PROGRESS_PUB.delete_working_wp_progress:'||SQLERRM,1,240));
6550:
6551: RAISE FND_API.G_EXC_ERROR;
6552:
6553: END;
6554:
6555: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6551: RAISE FND_API.G_EXC_ERROR;
6552:
6553: END;
6554:
6555: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6556:
6557: RAISE FND_API.G_EXC_ERROR;
6558:
6559: END IF;
6553: END;
6554:
6555: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6556:
6557: RAISE FND_API.G_EXC_ERROR;
6558:
6559: END IF;
6560: */
6561:
6586: p_pkg_name => 'PA_TASK_PVT1',
6587: p_procedure_name => 'Delete_Task_Version',
6588: p_error_text => SUBSTRB('PA_PROGRESS_PUB.delete_working_wp_progress:'||SQLERRM,1,240));
6589:
6590: RAISE FND_API.G_EXC_ERROR;
6591:
6592: END;
6593:
6594: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6590: RAISE FND_API.G_EXC_ERROR;
6591:
6592: END;
6593:
6594: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6595:
6596: RAISE FND_API.G_EXC_ERROR;
6597:
6598: END IF;
6592: END;
6593:
6594: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6595:
6596: RAISE FND_API.G_EXC_ERROR;
6597:
6598: END IF;
6599:
6600: END IF;
6619: AND PA_PROJ_ELEMENTS_UTILS.link_flag ( proj_element_id ) = 'N';
6620: EXCEPTION
6621: WHEN OTHERS THEN
6622: PA_UTILS.ADD_MESSAGE('PA', 'PA_TASK_SEQ_NUM_ERR');
6623: raise FND_API.G_EXC_ERROR;
6624: END;
6625:
6626: END IF; -- End of changes for bug 13923366
6627: --hsiu added, for dates rollup
6633: -- 14556729:Huawei Code change to defer the roll up API when G_ROLLUP_DEFER is set to Y , so that all the roll up is processed once at the end .
6634: IF NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER,'N') = 'N'
6635: then
6636: PA_STRUCT_TASK_ROLLUP_PUB.Tasks_Rollup(
6637: p_commit => FND_API.G_FALSE,
6638: p_element_versions => l_tasks_ver_ids,
6639: x_return_status => l_return_status,
6640: x_msg_count => l_msg_count,
6641: x_msg_data => l_msg_data);
6639: x_return_status => l_return_status,
6640: x_msg_count => l_msg_count,
6641: x_msg_data => l_msg_data);
6642:
6643: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6644: x_msg_count := FND_MSG_PUB.count_msg;
6645: if x_msg_count = 1 then
6646: pa_interface_utils_pub.get_messages
6647: (p_encoded => FND_API.G_TRUE,
6643: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6644: x_msg_count := FND_MSG_PUB.count_msg;
6645: if x_msg_count = 1 then
6646: pa_interface_utils_pub.get_messages
6647: (p_encoded => FND_API.G_TRUE,
6648: p_msg_index => 1,
6649: p_msg_count => l_msg_count,
6650: p_msg_data => l_msg_data,
6651: p_data => l_data,
6651: p_data => l_data,
6652: p_msg_index_out => l_msg_index_out);
6653: x_msg_data := l_data;
6654: end if;
6655: RAISE FND_API.G_EXC_ERROR;
6656: end if;
6657: end if;
6658: END IF;
6659:
6704:
6705: IF (l_template_flag = 'Y' OR l_ver_enabled = 'N') THEN
6706:
6707: PA_PROJECT_DATES_PUB.UPDATE_PROJECT_DATES (
6708: p_validate_only => FND_API.G_FALSE
6709: ,p_project_id => l_project_id
6710: ,p_date_type => 'SCHEDULED'
6711: ,p_start_date => trunc(sysdate)
6712: ,p_finish_date => trunc(sysdate)
6714: ,x_return_status => x_return_status
6715: ,x_msg_count => x_msg_count
6716: ,x_msg_data => x_msg_data );
6717:
6718: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6719: RAISE FND_API.G_EXC_ERROR;
6720: END IF;
6721: END IF;
6722:
6715: ,x_msg_count => x_msg_count
6716: ,x_msg_data => x_msg_data );
6717:
6718: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6719: RAISE FND_API.G_EXC_ERROR;
6720: END IF;
6721: END IF;
6722:
6723: -- End fix for Bug # 4506308.
6743: ,x_msg_count => l_msg_count
6744: ,x_msg_data => l_msg_data
6745: );
6746:
6747: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6748: x_msg_count := FND_MSG_PUB.count_msg;
6749: if x_msg_count = 1 then
6750: pa_interface_utils_pub.get_messages
6751: (p_encoded => FND_API.G_TRUE,
6747: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6748: x_msg_count := FND_MSG_PUB.count_msg;
6749: if x_msg_count = 1 then
6750: pa_interface_utils_pub.get_messages
6751: (p_encoded => FND_API.G_TRUE,
6752: p_msg_index => 1,
6753: p_msg_count => l_msg_count,
6754: p_msg_data => l_msg_data,
6755: p_data => l_data,
6755: p_data => l_data,
6756: p_msg_index_out => l_msg_index_out);
6757: x_msg_data := l_data;
6758: end if;
6759: RAISE FND_API.G_EXC_ERROR;
6760: end if;
6761: end if;
6762:
6763: END IF;
6777: ,x_msg_count => l_msg_count
6778: ,x_msg_data => l_msg_data
6779: );
6780:
6781: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6782: x_msg_count := FND_MSG_PUB.count_msg;
6783: if x_msg_count = 1 then
6784: pa_interface_utils_pub.get_messages
6785: (p_encoded => FND_API.G_TRUE,
6781: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6782: x_msg_count := FND_MSG_PUB.count_msg;
6783: if x_msg_count = 1 then
6784: pa_interface_utils_pub.get_messages
6785: (p_encoded => FND_API.G_TRUE,
6786: p_msg_index => 1,
6787: p_msg_count => l_msg_count,
6788: p_msg_data => l_msg_data,
6789: p_data => l_data,
6789: p_data => l_data,
6790: p_msg_index_out => l_msg_index_out);
6791: x_msg_data := l_data;
6792: end if;
6793: RAISE FND_API.G_EXC_ERROR;
6794: end if;
6795: end if;
6796: --END IF; --bug 3051413 --commenting out this line for bug 3058051 issue # 1
6797: --end task weighting changes
6820: ,x_return_status => l_return_status
6821: ,x_msg_count => l_msg_count
6822: ,x_msg_data => l_msg_data);
6823:
6824: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6825: x_msg_count := FND_MSG_PUB.count_msg;
6826: if x_msg_count = 1 then
6827: pa_interface_utils_pub.get_messages
6828: (p_encoded => FND_API.G_TRUE,
6824: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6825: x_msg_count := FND_MSG_PUB.count_msg;
6826: if x_msg_count = 1 then
6827: pa_interface_utils_pub.get_messages
6828: (p_encoded => FND_API.G_TRUE,
6829: p_msg_index => 1,
6830: p_msg_count => l_msg_count,
6831: p_msg_data => l_msg_data,
6832: p_data => l_data,
6832: p_data => l_data,
6833: p_msg_index_out => l_msg_index_out);
6834: x_msg_data := l_data;
6835: end if;
6836: raise FND_API.G_EXC_ERROR;
6837: end if;
6838: -- end if;
6839: --END IF; --bug 3051413
6840:
6840:
6841: --End bug 3010538 (delete)
6842:
6843:
6844: x_return_status := FND_API.G_RET_STS_SUCCESS;
6845:
6846: EXCEPTION
6847: WHEN FND_API.G_EXC_ERROR THEN
6848: IF (p_commit = FND_API.G_TRUE) THEN
6843:
6844: x_return_status := FND_API.G_RET_STS_SUCCESS;
6845:
6846: EXCEPTION
6847: WHEN FND_API.G_EXC_ERROR THEN
6848: IF (p_commit = FND_API.G_TRUE) THEN
6849: ROLLBACK to DELETE_TASK_VER_PRIVATE;
6850: END IF;
6851: x_msg_count := FND_MSG_PUB.count_msg;
6844: x_return_status := FND_API.G_RET_STS_SUCCESS;
6845:
6846: EXCEPTION
6847: WHEN FND_API.G_EXC_ERROR THEN
6848: IF (p_commit = FND_API.G_TRUE) THEN
6849: ROLLBACK to DELETE_TASK_VER_PRIVATE;
6850: END IF;
6851: x_msg_count := FND_MSG_PUB.count_msg;
6852: x_return_status := FND_API.G_RET_STS_ERROR;
6848: IF (p_commit = FND_API.G_TRUE) THEN
6849: ROLLBACK to DELETE_TASK_VER_PRIVATE;
6850: END IF;
6851: x_msg_count := FND_MSG_PUB.count_msg;
6852: x_return_status := FND_API.G_RET_STS_ERROR;
6853: WHEN OTHERS THEN
6854: IF (p_commit = FND_API.G_TRUE) THEN
6855: ROLLBACK to DELETE_TASK_VER_PRIVATE;
6856: END IF;
6850: END IF;
6851: x_msg_count := FND_MSG_PUB.count_msg;
6852: x_return_status := FND_API.G_RET_STS_ERROR;
6853: WHEN OTHERS THEN
6854: IF (p_commit = FND_API.G_TRUE) THEN
6855: ROLLBACK to DELETE_TASK_VER_PRIVATE;
6856: END IF;
6857: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6858: x_msg_count := FND_MSG_PUB.count_msg;
6853: WHEN OTHERS THEN
6854: IF (p_commit = FND_API.G_TRUE) THEN
6855: ROLLBACK to DELETE_TASK_VER_PRIVATE;
6856: END IF;
6857: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6858: x_msg_count := FND_MSG_PUB.count_msg;
6859: --put message
6860: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
6861: p_procedure_name => 'delete_Task_version',
6868: -- Pre-reqs : None
6869: -- Return Value : N/A
6870: -- Prameters
6871: -- p_api_version IN NUMBER N Not Null 1.0
6872: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
6873: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
6874: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
6875: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
6876: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
6869: -- Return Value : N/A
6870: -- Prameters
6871: -- p_api_version IN NUMBER N Not Null 1.0
6872: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
6873: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
6874: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
6875: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
6876: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
6877: -- p_debug_mode IN VARCHAR2 N Null N
6870: -- Prameters
6871: -- p_api_version IN NUMBER N Not Null 1.0
6872: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
6873: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
6874: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
6875: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
6876: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
6877: -- p_debug_mode IN VARCHAR2 N Null N
6878: -- p_max_msg_count IN NUMBER N NULL PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
6871: -- p_api_version IN NUMBER N Not Null 1.0
6872: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
6873: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
6874: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
6875: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
6876: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
6877: -- p_debug_mode IN VARCHAR2 N Null N
6878: -- p_max_msg_count IN NUMBER N NULL PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
6879: -- p_element_version_id IN NUMBER N Not Null
6905: --
6906:
6907: PROCEDURE Create_Schedule_Version(
6908: p_api_version IN NUMBER :=1.0,
6909: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
6910: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
6911: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
6912: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
6913: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
6906:
6907: PROCEDURE Create_Schedule_Version(
6908: p_api_version IN NUMBER :=1.0,
6909: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
6910: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
6911: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
6912: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
6913: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
6914: p_debug_mode IN VARCHAR2 :='N',
6907: PROCEDURE Create_Schedule_Version(
6908: p_api_version IN NUMBER :=1.0,
6909: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
6910: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
6911: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
6912: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
6913: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
6914: p_debug_mode IN VARCHAR2 :='N',
6915: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
6908: p_api_version IN NUMBER :=1.0,
6909: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
6910: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
6911: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
6912: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
6913: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
6914: p_debug_mode IN VARCHAR2 :='N',
6915: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
6916: p_element_version_id IN NUMBER,
7073: IF (p_debug_mode = 'Y') THEN
7074: pa_debug.debug('PA_TASK_PVT1.CREATE_SCHEDULE_VERSION begin');
7075: END IF;
7076:
7077: IF (p_commit = FND_API.G_TRUE) THEN
7078: savepoint CREATE_SCH_VER_PRIVATE;
7079: END IF;
7080:
7081: IF (p_debug_mode = 'Y') THEN
7203: --hsiu: bug 3638195
7204: IF l_ext_act_duration < 0 THEN
7205: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NEG_EXT_ACT_ERR');
7206: l_msg_data := l_error_message_code;
7207: RAISE FND_API.G_EXC_ERROR;
7208: END IF;
7209: END IF;
7210:
7211: IF ( p_ext_remain_duration = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND p_ext_remain_duration IS NOT NULL )
7216: --hsiu: bug 3638195
7217: IF l_ext_remain_duration < 0 THEN
7218: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NEG_EXT_RMN_ERR');
7219: l_msg_data := l_error_message_code;
7220: RAISE FND_API.G_EXC_ERROR;
7221: END IF;
7222: END IF;
7223:
7224: IF ( p_ext_sch_duration = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND p_ext_sch_duration IS NOT NULL )
7229: --hsiu: bug 3638195
7230: IF l_ext_sch_duration < 0 THEN
7231: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NEG_EXT_SCH_ERR');
7232: l_msg_data := l_error_message_code;
7233: RAISE FND_API.G_EXC_ERROR;
7234: END IF;
7235: END IF;
7236:
7237: -- xxlu
7351:
7352: IF (l_return_status <> 'S') THEN
7353: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
7354: l_msg_data := l_error_message_code;
7355: RAISE FND_API.G_EXC_ERROR;
7356: END IF;
7357:
7358: --3305199: Remove duration calculation using calendar
7359: l_duration := trunc(l_scheduled_end_date) - trunc(l_scheduled_start_date) + 1;
7376: x_msg_count := l_msg_count;
7377: IF x_msg_count = 1 THEN
7378: x_msg_data := l_msg_data;
7379: END IF;
7380: RAISE FND_API.G_EXC_ERROR;
7381: END IF;
7382:
7383: RAISE FND_API.G_EXC_ERROR;
7384: END IF;
7379: END IF;
7380: RAISE FND_API.G_EXC_ERROR;
7381: END IF;
7382:
7383: RAISE FND_API.G_EXC_ERROR;
7384: END IF;
7385:
7386: /*
7387: IF ( l_scheduled_start_date IS NOT NULL AND l_duration IS NOT NULL )
7426: ,x_return_status => l_return_status
7427: ,x_msg_count => l_msg_count
7428: ,x_msg_data => l_msg_data);
7429:
7430: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7431: l_msg_count := FND_MSG_PUB.count_msg;
7432: IF l_msg_count > 0 THEN
7433: x_msg_count := l_msg_count;
7434: IF x_msg_count = 1 THEN
7433: x_msg_count := l_msg_count;
7434: IF x_msg_count = 1 THEN
7435: x_msg_data := l_msg_data;
7436: END IF;
7437: RAISE FND_API.G_EXC_ERROR;
7438: END IF;
7439: END IF;
7440:
7441: END IF;
7460: ,x_return_status => l_return_status
7461: ,x_msg_count => l_msg_count
7462: ,x_msg_data => l_msg_data);
7463:
7464: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7465: l_msg_count := FND_MSG_PUB.count_msg;
7466: IF l_msg_count > 0 THEN
7467: x_msg_count := l_msg_count;
7468: IF x_msg_count = 1 THEN
7467: x_msg_count := l_msg_count;
7468: IF x_msg_count = 1 THEN
7469: x_msg_data := l_msg_data;
7470: END IF;
7471: RAISE FND_API.G_EXC_ERROR;
7472: END IF;
7473: END IF;
7474:
7475: END IF;
7488: 'N' = PA_PROGRESS_UTILS.get_project_wq_flag(l_project_id)) THEN
7489: --error message
7490: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_CANT_ENT_WQ_ATTR1');
7491: x_msg_data := 'PA_PS_CANT_ENT_WQ_ATTR1';
7492: RAISE FND_API.G_EXC_ERROR;
7493: ELSE */
7494: -- Above code is commented and moved below to first check whether any value has been passed in p_wq_planned_quantity
7495:
7496: IF (p_wq_planned_quantity IS NULL OR p_wq_planned_quantity = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
7509: IF (l_wq_planned_quantity < 0) THEN
7510: --error message
7511: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NEG_PLAN_QTY_ERR');
7512: x_msg_data := 'PA_PS_NEG_PLAN_QTY_ERR';
7513: RAISE FND_API.G_EXC_ERROR;
7514: -- Else condition added for Bug No. : 2791413
7515: ELSE
7516: */
7517: IF ('N' = PA_TASK_TYPE_UTILS.check_tk_type_wq_enabled(l_task_type_id) OR
7518: 'N' = PA_PROGRESS_UTILS.get_project_wq_flag(l_project_id)) THEN
7519: --error message
7520: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_CANT_ENT_WQ_ATTR1');
7521: x_msg_data := 'PA_PS_CANT_ENT_WQ_ATTR1';
7522: RAISE FND_API.G_EXC_ERROR;
7523: End IF;
7524: -- END IF;
7525: END IF;
7526:
7539: IF (l_planned_effort < 0) THEN
7540: --error message
7541: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NEG_PLAN_EFF_ERR');
7542: x_msg_data := 'PA_PS_NEG_PLAN_EFF_ERR';
7543: RAISE FND_API.G_EXC_ERROR;
7544: END IF;
7545: END IF;
7546: */
7547: -- END of Bug Fix 5726773
7604: ,x_msg_count => x_msg_count
7605: ,x_msg_data => x_msg_data
7606: );
7607:
7608: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
7609: x_msg_count := FND_MSG_PUB.count_msg;
7610: If x_msg_count = 1 then
7611: pa_interface_utils_pub.get_messages
7612: (p_encoded => FND_API.G_TRUE,
7608: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
7609: x_msg_count := FND_MSG_PUB.count_msg;
7610: If x_msg_count = 1 then
7611: pa_interface_utils_pub.get_messages
7612: (p_encoded => FND_API.G_TRUE,
7613: p_msg_index => 1,
7614: p_msg_count => l_msg_count,
7615: p_msg_data => l_msg_data,
7616: p_data => l_data,
7616: p_data => l_data,
7617: p_msg_index_out => l_msg_index_out);
7618: x_msg_data := l_data;
7619: End If;
7620: raise FND_API.G_EXC_ERROR;
7621: End If;
7622: End If;
7623: -- End of FP_M changes
7624:
7684: ELSE
7685: CLOSE cur_proj_elem_ver;
7686: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_INVALID_TASK_ID');
7687: l_msg_data := 'PA_PS_INVALID_TASK_ID';
7688: RAISE FND_API.G_EXC_ERROR;
7689: END IF;
7690: CLOSE cur_proj_elem_ver;
7691: x_return_status := FND_API.G_RET_STS_SUCCESS;
7692:
7687: l_msg_data := 'PA_PS_INVALID_TASK_ID';
7688: RAISE FND_API.G_EXC_ERROR;
7689: END IF;
7690: CLOSE cur_proj_elem_ver;
7691: x_return_status := FND_API.G_RET_STS_SUCCESS;
7692:
7693: EXCEPTION
7694: WHEN FND_API.G_EXC_ERROR THEN
7695: IF (p_commit = FND_API.G_TRUE) THEN
7690: CLOSE cur_proj_elem_ver;
7691: x_return_status := FND_API.G_RET_STS_SUCCESS;
7692:
7693: EXCEPTION
7694: WHEN FND_API.G_EXC_ERROR THEN
7695: IF (p_commit = FND_API.G_TRUE) THEN
7696: ROLLBACK to CREATE_SCH_VER_PRIVATE;
7697: END IF;
7698: x_msg_count := FND_MSG_PUB.count_msg;
7691: x_return_status := FND_API.G_RET_STS_SUCCESS;
7692:
7693: EXCEPTION
7694: WHEN FND_API.G_EXC_ERROR THEN
7695: IF (p_commit = FND_API.G_TRUE) THEN
7696: ROLLBACK to CREATE_SCH_VER_PRIVATE;
7697: END IF;
7698: x_msg_count := FND_MSG_PUB.count_msg;
7699: x_return_status := FND_API.G_RET_STS_ERROR;
7695: IF (p_commit = FND_API.G_TRUE) THEN
7696: ROLLBACK to CREATE_SCH_VER_PRIVATE;
7697: END IF;
7698: x_msg_count := FND_MSG_PUB.count_msg;
7699: x_return_status := FND_API.G_RET_STS_ERROR;
7700: WHEN OTHERS THEN
7701: IF (p_commit = FND_API.G_TRUE) THEN
7702: ROLLBACK to CREATE_SCH_VER_PRIVATE;
7703: END IF;
7697: END IF;
7698: x_msg_count := FND_MSG_PUB.count_msg;
7699: x_return_status := FND_API.G_RET_STS_ERROR;
7700: WHEN OTHERS THEN
7701: IF (p_commit = FND_API.G_TRUE) THEN
7702: ROLLBACK to CREATE_SCH_VER_PRIVATE;
7703: END IF;
7704: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7705: x_msg_count := FND_MSG_PUB.count_msg;
7700: WHEN OTHERS THEN
7701: IF (p_commit = FND_API.G_TRUE) THEN
7702: ROLLBACK to CREATE_SCH_VER_PRIVATE;
7703: END IF;
7704: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7705: x_msg_count := FND_MSG_PUB.count_msg;
7706: --put message
7707: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
7708: p_procedure_name => 'create_schedule_version',
7716: -- Pre-reqs : None
7717: -- Return Value : N/A
7718: -- Prameters
7719: -- p_api_version IN NUMBER N Not Null 1.0
7720: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
7721: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
7722: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
7723: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
7724: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
7717: -- Return Value : N/A
7718: -- Prameters
7719: -- p_api_version IN NUMBER N Not Null 1.0
7720: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
7721: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
7722: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
7723: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
7724: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
7725: -- p_debug_mode IN VARCHAR2 N Null N
7718: -- Prameters
7719: -- p_api_version IN NUMBER N Not Null 1.0
7720: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
7721: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
7722: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
7723: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
7724: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
7725: -- p_debug_mode IN VARCHAR2 N Null N
7726: -- p_max_msg_count IN NUMBER N NULL PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
7719: -- p_api_version IN NUMBER N Not Null 1.0
7720: -- p_init_msg_list IN VARCHAR2 N Not Null FND_API.TRUE
7721: -- p_commit IN VARCHAR2 N Not Null FND_API.G_FALSE
7722: -- p_validate_only IN VARCHAR2 N Not Null FND_API.G_TRUE
7723: -- p_validation_level IN NUMBER N Null FND_API.G_VALID_LEVEL_FULL
7724: -- p_calling_module IN VARCHAR2 N Null SELF_SERVICE
7725: -- p_debug_mode IN VARCHAR2 N Null N
7726: -- p_max_msg_count IN NUMBER N NULL PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
7727: -- p_element_version_id IN NUMBER N Not Null
7753: --
7754:
7755: PROCEDURE Update_Schedule_Version(
7756: p_api_version IN NUMBER :=1.0,
7757: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
7758: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
7759: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
7760: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
7761: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
7754:
7755: PROCEDURE Update_Schedule_Version(
7756: p_api_version IN NUMBER :=1.0,
7757: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
7758: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
7759: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
7760: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
7761: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
7762: p_debug_mode IN VARCHAR2 :='N',
7755: PROCEDURE Update_Schedule_Version(
7756: p_api_version IN NUMBER :=1.0,
7757: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
7758: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
7759: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
7760: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
7761: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
7762: p_debug_mode IN VARCHAR2 :='N',
7763: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
7756: p_api_version IN NUMBER :=1.0,
7757: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
7758: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
7759: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
7760: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
7761: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
7762: p_debug_mode IN VARCHAR2 :='N',
7763: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
7764: p_pev_schedule_id IN NUMBER,
7971: IF (l_debug_mode = 'Y') THEN
7972: pa_debug.write('PA_TASK_PVT1.UPDATE_SCHEDULE_VERSION', 'PA_TASK_PVT1.UPDATE_SCHEDULE_VERSION begin',3);
7973: END IF;
7974:
7975: IF (p_commit = FND_API.G_TRUE) THEN
7976: savepoint UPDATE_SCH_VER_PRIVATE;
7977: END IF;
7978:
7979: IF (l_debug_mode = 'Y') THEN
7996: 'N' = PA_PROGRESS_UTILS.get_project_wq_flag(cur_val_rec.project_id)) THEN
7997: -- Bug 2791413 Added error message
7998: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_CANT_ENT_WQ_ATTR1');
7999: x_msg_data := 'PA_PS_CANT_ENT_WQ_ATTR1';
8000: RAISE FND_API.G_EXC_ERROR;
8001: ELSE
8002: IF (p_wq_planned_quantity = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
8003: l_wq_planned_quantity := cur_val_rec.WQ_PLANNED_QUANTITY;
8004: ELSE
8014: IF (p_wq_planned_quantity <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND p_wq_planned_quantity IS NOT NULL) THEN
8015: -- Bug 2791413 Added error message
8016: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_CANT_ENT_WQ_ATTR1');
8017: x_msg_data := 'PA_PS_CANT_ENT_WQ_ATTR1';
8018: RAISE FND_API.G_EXC_ERROR;
8019: END IF;
8020: l_wq_planned_quantity := NULL;
8021: ELSE
8022: IF (p_wq_planned_quantity = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
8035: IF (l_wq_planned_quantity < 0) THEN
8036: --error message
8037: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NEG_PLAN_QTY_ERR');
8038: x_msg_data := 'PA_PS_NEG_PLAN_QTY_ERR';
8039: RAISE FND_API.G_EXC_ERROR;
8040: END IF;
8041: END IF;
8042: */
8043: --hsiu: removing validation
8054: -- x_return_status => l_return_status,
8055: -- x_msg_count => l_msg_count,
8056: -- x_msg_data => l_msg_data
8057: -- );
8058: -- IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8059: -- l_msg_count := FND_MSG_PUB.count_msg;
8060: -- IF l_msg_count > 0 THEN
8061: -- x_msg_count := l_msg_count;
8062: -- IF x_msg_count = 1 THEN
8061: -- x_msg_count := l_msg_count;
8062: -- IF x_msg_count = 1 THEN
8063: -- x_msg_data := l_msg_data;
8064: -- END IF;
8065: -- RAISE FND_API.G_EXC_ERROR;
8066: -- END IF;
8067: -- END IF;
8068: -- END IF;
8069: -- END IF;
8171: -- For bug 2625650
8172: -- l_scheduled_start_date := cur_val_rec.SCHEDULED_START_DATE;
8173: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_SCH_DATES_REQD');
8174: l_msg_data := 'PA_PS_SCH_DATES_REQD';
8175: RAISE FND_API.G_EXC_ERROR;
8176: -- End of bug fix
8177: -- ELSE
8178: -- l_scheduled_start_date := TRUNC(p_scheduled_start_date);
8179: END IF;
8184: -- For bug 2625650
8185: --l_scheduled_end_date := cur_val_rec.SCHEDULED_FINISH_DATE;
8186: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_SCH_DATES_REQD');
8187: l_msg_data := 'PA_PS_SCH_DATES_REQD';
8188: RAISE FND_API.G_EXC_ERROR;
8189: -- End of bug fix
8190: -- ELSE
8191: -- l_scheduled_end_date := TRUNC(p_scheduled_end_date);
8192: END IF;
8290: l_ext_act_duration := p_ext_act_duration;
8291: IF l_ext_act_duration < 0 THEN
8292: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NEG_EXT_ACT_ERR');
8293: l_msg_data := l_error_message_code;
8294: RAISE FND_API.G_EXC_ERROR;
8295: END IF;
8296: END IF;
8297:
8298: IF ( p_ext_remain_duration = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND p_ext_remain_duration IS NOT NULL )
8302: l_ext_remain_duration := p_ext_remain_duration;
8303: IF l_ext_remain_duration < 0 THEN
8304: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NEG_EXT_RMN_ERR');
8305: l_msg_data := l_error_message_code;
8306: RAISE FND_API.G_EXC_ERROR;
8307: END IF;
8308: END IF;
8309:
8310: IF ( p_ext_sch_duration = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND p_ext_sch_duration IS NOT NULL )
8314: l_ext_sch_duration := p_ext_sch_duration;
8315: IF l_ext_sch_duration < 0 THEN
8316: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NEG_EXT_SCH_ERR');
8317: l_msg_data := l_error_message_code;
8318: RAISE FND_API.G_EXC_ERROR;
8319: END IF;
8320: END IF;
8321:
8322: -- xxlu
8494:
8495: IF (l_return_status <> 'S') THEN
8496: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
8497: l_msg_data := l_error_message_code;
8498: RAISE FND_API.G_EXC_ERROR;
8499: END IF;
8500:
8501: --hsiu modified for new duration calculation
8502: --schedule duration is calculated and updated in rollup api.
8542: ,x_msg_count => l_msg_count
8543: ,x_msg_data => l_msg_data
8544: );
8545:
8546: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8547: l_msg_count := FND_MSG_PUB.count_msg;
8548: IF l_msg_count > 0 THEN
8549: x_msg_count := l_msg_count;
8550: IF x_msg_count = 1 THEN
8549: x_msg_count := l_msg_count;
8550: IF x_msg_count = 1 THEN
8551: x_msg_data := l_msg_data;
8552: END IF;
8553: RAISE FND_API.G_EXC_ERROR;
8554: END IF;
8555: END IF;
8556: */
8557: -- Bug 3053846. Check if duration for the task has changed. If yes then set the flag.
8587: ,x_return_status => l_return_status
8588: ,x_msg_count => l_msg_count
8589: ,x_msg_data => l_msg_data);
8590:
8591: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8592: l_msg_count := FND_MSG_PUB.count_msg;
8593: IF l_msg_count > 0 THEN
8594: x_msg_count := l_msg_count;
8595: IF x_msg_count = 1 THEN
8594: x_msg_count := l_msg_count;
8595: IF x_msg_count = 1 THEN
8596: x_msg_data := l_msg_data;
8597: END IF;
8598: RAISE FND_API.G_EXC_ERROR;
8599: END IF;
8600: END IF;
8601: */
8602:
8619: ,x_return_status => l_return_status
8620: ,x_msg_count => l_msg_count
8621: ,x_msg_data => l_msg_data);
8622:
8623: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8624: l_msg_count := FND_MSG_PUB.count_msg;
8625: IF l_msg_count > 0 THEN
8626: x_msg_count := l_msg_count;
8627: IF x_msg_count = 1 THEN
8626: x_msg_count := l_msg_count;
8627: IF x_msg_count = 1 THEN
8628: x_msg_data := l_msg_data;
8629: END IF;
8630: RAISE FND_API.G_EXC_ERROR;
8631: END IF;
8632: END IF;
8633: */
8634: END IF;
8681: IF (l_planned_effort < 0) THEN
8682: --error message
8683: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NEG_PLAN_EFF_ERR');
8684: x_msg_data := 'PA_PS_NEG_PLAN_EFF_ERR';
8685: RAISE FND_API.G_EXC_ERROR;
8686: END IF;
8687: END IF;
8688: */
8689: -- END of Bug Fix 5726773
8701: x_return_status => l_return_status,
8702: x_msg_count => l_msg_count,
8703: x_msg_data => l_msg_data
8704: );
8705: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8706: l_msg_count := FND_MSG_PUB.count_msg;
8707: IF l_msg_count > 0 THEN
8708: x_msg_count := l_msg_count;
8709: IF x_msg_count = 1 THEN
8708: x_msg_count := l_msg_count;
8709: IF x_msg_count = 1 THEN
8710: x_msg_data := l_msg_data;
8711: END IF;
8712: RAISE FND_API.G_EXC_ERROR;
8713: END IF;
8714: END IF;
8715: END IF;
8716: --end bug 3035902
8725: ,x_msg_count => x_msg_count
8726: ,x_msg_data => x_msg_data
8727: );
8728:
8729: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
8730: x_msg_count := FND_MSG_PUB.count_msg;
8731: If x_msg_count = 1 then
8732: pa_interface_utils_pub.get_messages
8733: (p_encoded => FND_API.G_TRUE,
8729: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
8730: x_msg_count := FND_MSG_PUB.count_msg;
8731: If x_msg_count = 1 then
8732: pa_interface_utils_pub.get_messages
8733: (p_encoded => FND_API.G_TRUE,
8734: p_msg_index => 1,
8735: p_msg_count => l_msg_count,
8736: p_msg_data => l_msg_data,
8737: p_data => l_data,
8737: p_data => l_data,
8738: p_msg_index_out => l_msg_index_out);
8739: x_msg_data := l_data;
8740: End If;
8741: raise FND_API.G_EXC_ERROR;
8742: End If;
8743:
8744: End If;
8745: -- End of FP_M changes
8858:
8859: l_msg_count := FND_MSG_PUB.count_msg;
8860: IF (l_msg_count > 0) THEN
8861: pa_interface_utils_pub.get_messages(
8862: p_encoded => FND_API.G_TRUE,
8863: p_msg_index => 1,
8864: p_data => l_data,
8865: p_msg_index_out => l_msg_index_out);
8866: RAISE FND_API.G_EXC_ERROR;
8862: p_encoded => FND_API.G_TRUE,
8863: p_msg_index => 1,
8864: p_data => l_data,
8865: p_msg_index_out => l_msg_index_out);
8866: RAISE FND_API.G_EXC_ERROR;
8867: END IF;
8868:
8869: END IF;
8870: END IF;
8928: ELSE
8929: CLOSE cur_proj_elem_ver_sch;
8930: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_INV_PEV_SCH_ID');
8931: l_msg_data := 'PA_PS_INV_PEV_SCH_ID';
8932: RAISE FND_API.G_EXC_ERROR;
8933: END IF;
8934:
8935: OPEN get_parent_struc_Ver_id(cur_proj_elem_ver_sch_rec.element_version_id);
8936: FETCH get_parent_struc_Ver_id INTO l_parent_struc_Ver_id;
8958: x_planning_start_tbl => l_planning_start_tbl,
8959: x_planning_end_tbl => l_planning_end_tbl,
8960: x_return_status => l_return_status);
8961:
8962: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8963: l_msg_count := FND_MSG_PUB.count_msg;
8964: IF l_msg_count > 0 THEN
8965: x_msg_count := l_msg_count;
8966: IF x_msg_count = 1 THEN
8965: x_msg_count := l_msg_count;
8966: IF x_msg_count = 1 THEN
8967: x_msg_data := l_msg_data;
8968: END IF;
8969: RAISE FND_API.G_EXC_ERROR;
8970: END IF;
8971: END IF;
8972: END IF;
8973:
8978: IF (p_calling_module = 'FORMS') THEN
8979: l_tasks_ver_ids.extend;
8980: l_tasks_ver_ids(l_tasks_ver_ids.count) := cur_proj_elem_ver_sch_rec.ELEMENT_VERSION_ID;
8981: PA_STRUCT_TASK_ROLLUP_PUB.Tasks_Rollup(
8982: p_commit => FND_API.G_FALSE,
8983: p_element_versions => l_tasks_ver_ids,
8984: x_return_status => l_return_status,
8985: x_msg_count => l_msg_count,
8986: x_msg_data => l_msg_data);
8984: x_return_status => l_return_status,
8985: x_msg_count => l_msg_count,
8986: x_msg_data => l_msg_data);
8987:
8988: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8989: x_msg_count := FND_MSG_PUB.count_msg;
8990: if x_msg_count = 1 then
8991: pa_interface_utils_pub.get_messages
8992: (p_encoded => FND_API.G_TRUE,
8988: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8989: x_msg_count := FND_MSG_PUB.count_msg;
8990: if x_msg_count = 1 then
8991: pa_interface_utils_pub.get_messages
8992: (p_encoded => FND_API.G_TRUE,
8993: p_msg_index => 1,
8994: p_msg_count => l_msg_count,
8995: p_msg_data => l_msg_data,
8996: p_data => l_data,
8996: p_data => l_data,
8997: p_msg_index_out => l_msg_index_out);
8998: x_msg_data := l_data;
8999: end if;
9000: RAISE FND_API.G_EXC_ERROR;
9001: end if;
9002:
9003: END IF;
9004:
9050: WHEN OTHERS THEN
9051: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
9052: p_procedure_name => 'update_schedule_version',
9053: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.update_planning_transactions:'||SQLERRM,1,240));
9054: RAISE FND_API.G_EXC_ERROR;
9055: END;
9056:
9057: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
9058: x_msg_count := FND_MSG_PUB.count_msg;
9053: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.update_planning_transactions:'||SQLERRM,1,240));
9054: RAISE FND_API.G_EXC_ERROR;
9055: END;
9056:
9057: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
9058: x_msg_count := FND_MSG_PUB.count_msg;
9059: if x_msg_count = 1 then
9060: pa_interface_utils_pub.get_messages
9061: (p_encoded => FND_API.G_TRUE,
9057: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
9058: x_msg_count := FND_MSG_PUB.count_msg;
9059: if x_msg_count = 1 then
9060: pa_interface_utils_pub.get_messages
9061: (p_encoded => FND_API.G_TRUE,
9062: p_msg_index => 1,
9063: p_msg_count => l_msg_count,
9064: p_msg_data => l_msg_data,
9065: p_data => l_data,
9065: p_data => l_data,
9066: p_msg_index_out => l_msg_index_out);
9067: x_msg_data := l_data;
9068: end if;
9069: raise FND_API.G_EXC_ERROR;
9070: end if;
9071: --end 3301192 fp changes
9072: END IF; --<< l_planned_effort >>
9073:
9073:
9074: CLOSE cur_proj_elem_ver_sch;
9075:
9076:
9077: x_return_status := FND_API.G_RET_STS_SUCCESS;
9078:
9079: EXCEPTION
9080: WHEN FND_API.G_EXC_ERROR THEN
9081: IF (p_commit = FND_API.G_TRUE) THEN
9076:
9077: x_return_status := FND_API.G_RET_STS_SUCCESS;
9078:
9079: EXCEPTION
9080: WHEN FND_API.G_EXC_ERROR THEN
9081: IF (p_commit = FND_API.G_TRUE) THEN
9082: ROLLBACK to UPDATE_SCH_VER_PRIVATE;
9083: END IF;
9084: x_msg_count := FND_MSG_PUB.count_msg;
9077: x_return_status := FND_API.G_RET_STS_SUCCESS;
9078:
9079: EXCEPTION
9080: WHEN FND_API.G_EXC_ERROR THEN
9081: IF (p_commit = FND_API.G_TRUE) THEN
9082: ROLLBACK to UPDATE_SCH_VER_PRIVATE;
9083: END IF;
9084: x_msg_count := FND_MSG_PUB.count_msg;
9085: x_return_status := FND_API.G_RET_STS_ERROR;
9081: IF (p_commit = FND_API.G_TRUE) THEN
9082: ROLLBACK to UPDATE_SCH_VER_PRIVATE;
9083: END IF;
9084: x_msg_count := FND_MSG_PUB.count_msg;
9085: x_return_status := FND_API.G_RET_STS_ERROR;
9086: WHEN OTHERS THEN
9087: IF (p_commit = FND_API.G_TRUE) THEN
9088: ROLLBACK to UPDATE_SCH_VER_PRIVATE;
9089: END IF;
9083: END IF;
9084: x_msg_count := FND_MSG_PUB.count_msg;
9085: x_return_status := FND_API.G_RET_STS_ERROR;
9086: WHEN OTHERS THEN
9087: IF (p_commit = FND_API.G_TRUE) THEN
9088: ROLLBACK to UPDATE_SCH_VER_PRIVATE;
9089: END IF;
9090: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9091: x_msg_count := FND_MSG_PUB.count_msg;
9086: WHEN OTHERS THEN
9087: IF (p_commit = FND_API.G_TRUE) THEN
9088: ROLLBACK to UPDATE_SCH_VER_PRIVATE;
9089: END IF;
9090: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9091: x_msg_count := FND_MSG_PUB.count_msg;
9092: --put message
9093: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
9094: p_procedure_name => 'update_schedule_version',
9098:
9099:
9100: PROCEDURE Inherit_task_type_attr(
9101: p_api_version IN NUMBER :=1.0,
9102: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
9103: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
9104: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
9105: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
9106: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
9099:
9100: PROCEDURE Inherit_task_type_attr(
9101: p_api_version IN NUMBER :=1.0,
9102: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
9103: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
9104: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
9105: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
9106: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
9107: p_debug_mode IN VARCHAR2 :='N',
9100: PROCEDURE Inherit_task_type_attr(
9101: p_api_version IN NUMBER :=1.0,
9102: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
9103: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
9104: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
9105: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
9106: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
9107: p_debug_mode IN VARCHAR2 :='N',
9108: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
9101: p_api_version IN NUMBER :=1.0,
9102: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
9103: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
9104: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
9105: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
9106: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
9107: p_debug_mode IN VARCHAR2 :='N',
9108: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
9109: p_task_id IN NUMBER,
9134: from pa_proj_elements c
9135: where c.proj_element_id = p_task_id;
9136: l_type_attr_rec get_current_task_type_attr%ROWTYPE;
9137: BEGIN
9138: x_return_status := FND_API.G_RET_STS_SUCCESS;
9139: OPEN get_parent_task_type_attr;
9140: FETCH get_parent_task_type_attr INTO l_parent_type_attr_rec;
9141: IF get_parent_task_type_attr%NOTFOUND THEN
9142: --it is a top task. no update necessary
9160: where proj_element_id = p_task_id;
9161: END IF;
9162: EXCEPTION
9163: WHEN OTHERS THEN
9164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9165: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
9166: p_procedure_name => 'Inherit_task_type_attr',
9167: p_error_text => SUBSTRB(SQLERRM,1,240));
9168: raise;
9174: -- Pre-reqs : None
9175: -- Return Value : N/A
9176: -- Parameters
9177: -- p_api_version IN NUMBER := 1.0
9178: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
9179: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
9180: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
9181: -- p_validation_level IN VARCHAR2 := 100
9182: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
9175: -- Return Value : N/A
9176: -- Parameters
9177: -- p_api_version IN NUMBER := 1.0
9178: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
9179: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
9180: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
9181: -- p_validation_level IN VARCHAR2 := 100
9182: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
9183: -- p_debug_mode IN VARCHAR2 := 'N'
9176: -- Parameters
9177: -- p_api_version IN NUMBER := 1.0
9178: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
9179: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
9180: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
9181: -- p_validation_level IN VARCHAR2 := 100
9182: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
9183: -- p_debug_mode IN VARCHAR2 := 'N'
9184: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
9196: --
9197: procedure Update_Task_Weighting
9198: (
9199: p_api_version IN NUMBER := 1.0
9200: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
9201: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
9202: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
9203: ,p_validation_level IN VARCHAR2 := 100
9204: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
9197: procedure Update_Task_Weighting
9198: (
9199: p_api_version IN NUMBER := 1.0
9200: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
9201: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
9202: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
9203: ,p_validation_level IN VARCHAR2 := 100
9204: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
9205: ,p_debug_mode IN VARCHAR2 := 'N'
9198: (
9199: p_api_version IN NUMBER := 1.0
9200: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
9201: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
9202: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
9203: ,p_validation_level IN VARCHAR2 := 100
9204: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
9205: ,p_debug_mode IN VARCHAR2 := 'N'
9206: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
9234: IF (p_debug_mode = 'Y') THEN
9235: pa_debug.debug('PA_TASK_PVT1.Update_Task_Weighting begin');
9236: END IF;
9237:
9238: IF (p_commit = FND_API.G_TRUE) THEN
9239: savepoint update_task_weighting_pvt;
9240: END IF;
9241:
9242: IF (p_debug_mode = 'Y') THEN
9255:
9256: OPEN cur_obj_relationships( p_object_relationship_id );
9257: FETCH cur_obj_relationships INTO cur_obj_relationships_rec;
9258: IF cur_obj_relationships%NOTFOUND THEN
9259: RAISE FND_API.G_EXC_ERROR;
9260: END IF;
9261: CLOSE cur_obj_relationships;
9262:
9263: PA_OBJECT_RELATIONSHIPS_PKG.UPDATE_ROW(
9275: ,x_return_status => x_return_status
9276: );
9277:
9278: EXCEPTION
9279: WHEN FND_API.G_EXC_ERROR THEN
9280: IF (p_commit = FND_API.G_TRUE) THEN
9281: ROLLBACK to update_task_weighting_pvt;
9282: END IF;
9283: x_msg_count := FND_MSG_PUB.count_msg;
9276: );
9277:
9278: EXCEPTION
9279: WHEN FND_API.G_EXC_ERROR THEN
9280: IF (p_commit = FND_API.G_TRUE) THEN
9281: ROLLBACK to update_task_weighting_pvt;
9282: END IF;
9283: x_msg_count := FND_MSG_PUB.count_msg;
9284: x_return_status := FND_API.G_RET_STS_ERROR;
9280: IF (p_commit = FND_API.G_TRUE) THEN
9281: ROLLBACK to update_task_weighting_pvt;
9282: END IF;
9283: x_msg_count := FND_MSG_PUB.count_msg;
9284: x_return_status := FND_API.G_RET_STS_ERROR;
9285: WHEN OTHERS THEN
9286: IF (p_commit = FND_API.G_TRUE) THEN
9287: ROLLBACK to update_task_weighting_pvt;
9288: END IF;
9282: END IF;
9283: x_msg_count := FND_MSG_PUB.count_msg;
9284: x_return_status := FND_API.G_RET_STS_ERROR;
9285: WHEN OTHERS THEN
9286: IF (p_commit = FND_API.G_TRUE) THEN
9287: ROLLBACK to update_task_weighting_pvt;
9288: END IF;
9289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9290: x_msg_count := FND_MSG_PUB.count_msg;
9285: WHEN OTHERS THEN
9286: IF (p_commit = FND_API.G_TRUE) THEN
9287: ROLLBACK to update_task_weighting_pvt;
9288: END IF;
9289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9290: x_msg_count := FND_MSG_PUB.count_msg;
9291: --put message
9292: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
9293: p_procedure_name => 'Update_Task_Weighting',
9296: END UPDATE_TASK_WEIGHTING;
9297:
9298: PROCEDURE RECALC_TASKS_WEIGHTING(
9299: p_api_version IN NUMBER := 1.0
9300: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
9301: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
9302: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
9303: ,p_validation_level IN VARCHAR2 := 100
9304: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
9297:
9298: PROCEDURE RECALC_TASKS_WEIGHTING(
9299: p_api_version IN NUMBER := 1.0
9300: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
9301: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
9302: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
9303: ,p_validation_level IN VARCHAR2 := 100
9304: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
9305: ,p_debug_mode IN VARCHAR2 := 'N'
9298: PROCEDURE RECALC_TASKS_WEIGHTING(
9299: p_api_version IN NUMBER := 1.0
9300: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
9301: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
9302: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
9303: ,p_validation_level IN VARCHAR2 := 100
9304: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
9305: ,p_debug_mode IN VARCHAR2 := 'N'
9306: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
9361: --bug 2673570
9362:
9363: BEGIN
9364: --hsiu: bug 3604086
9365: x_return_status := FND_API.G_RET_STS_SUCCESS;
9366:
9367: OPEN get_weighting_sum;
9368: FETCH get_weighting_sum into l_sum;
9369: CLOSE get_weighting_sum;
9409: ,x_msg_count => l_msg_count
9410: ,x_msg_data => l_msg_data
9411: );
9412:
9413: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
9414: x_msg_count := FND_MSG_PUB.count_msg;
9415: if x_msg_count = 1 then
9416: pa_interface_utils_pub.get_messages
9417: (p_encoded => FND_API.G_TRUE,
9413: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
9414: x_msg_count := FND_MSG_PUB.count_msg;
9415: if x_msg_count = 1 then
9416: pa_interface_utils_pub.get_messages
9417: (p_encoded => FND_API.G_TRUE,
9418: p_msg_index => 1,
9419: p_msg_count => l_msg_count,
9420: p_msg_data => l_msg_data,
9421: p_data => l_data,
9421: p_data => l_data,
9422: p_msg_index_out => l_msg_index_out);
9423: x_msg_data := l_data;
9424: end if;
9425: RAISE FND_API.G_EXC_ERROR;
9426: end if;
9427:
9428: l_cnt := l_cnt + 1;
9429: END LOOP;
9444: ,x_msg_count => l_msg_count
9445: ,x_msg_data => l_msg_data
9446: );
9447:
9448: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
9449: x_msg_count := FND_MSG_PUB.count_msg;
9450: if x_msg_count = 1 then
9451: pa_interface_utils_pub.get_messages
9452: (p_encoded => FND_API.G_TRUE,
9448: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
9449: x_msg_count := FND_MSG_PUB.count_msg;
9450: if x_msg_count = 1 then
9451: pa_interface_utils_pub.get_messages
9452: (p_encoded => FND_API.G_TRUE,
9453: p_msg_index => 1,
9454: p_msg_count => l_msg_count,
9455: p_msg_data => l_msg_data,
9456: p_data => l_data,
9456: p_data => l_data,
9457: p_msg_index_out => l_msg_index_out);
9458: x_msg_data := l_data;
9459: end if;
9460: RAISE FND_API.G_EXC_ERROR;
9461: end if;
9462: end if;
9463: -- end anlee
9464:
9464:
9465: CLOSE get_child_weighting;
9466:
9467: EXCEPTION
9468: WHEN FND_API.G_EXC_ERROR THEN
9469: x_msg_count := FND_MSG_PUB.count_msg;
9470: x_return_status := FND_API.G_RET_STS_ERROR;
9471: WHEN OTHERS THEN
9472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9466:
9467: EXCEPTION
9468: WHEN FND_API.G_EXC_ERROR THEN
9469: x_msg_count := FND_MSG_PUB.count_msg;
9470: x_return_status := FND_API.G_RET_STS_ERROR;
9471: WHEN OTHERS THEN
9472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9473: x_msg_count := FND_MSG_PUB.count_msg;
9474: --put message
9468: WHEN FND_API.G_EXC_ERROR THEN
9469: x_msg_count := FND_MSG_PUB.count_msg;
9470: x_return_status := FND_API.G_RET_STS_ERROR;
9471: WHEN OTHERS THEN
9472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9473: x_msg_count := FND_MSG_PUB.count_msg;
9474: --put message
9475: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
9476: p_procedure_name => 'RECALC_TASKS_WEIGHTING',
9479: END RECALC_TASKS_WEIGHTING;
9480:
9481: PROCEDURE update_task_ver_delete_status(
9482: p_api_version IN NUMBER := 1.0
9483: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
9484: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
9485: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
9486: ,p_validation_level IN VARCHAR2 := 100
9487: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
9480:
9481: PROCEDURE update_task_ver_delete_status(
9482: p_api_version IN NUMBER := 1.0
9483: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
9484: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
9485: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
9486: ,p_validation_level IN VARCHAR2 := 100
9487: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
9488: ,p_debug_mode IN VARCHAR2 := 'N'
9481: PROCEDURE update_task_ver_delete_status(
9482: p_api_version IN NUMBER := 1.0
9483: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
9484: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
9485: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
9486: ,p_validation_level IN VARCHAR2 := 100
9487: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
9488: ,p_debug_mode IN VARCHAR2 := 'N'
9489: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
9531:
9532: END LOOP;
9533: CLOSE get_task_versions;
9534:
9535: x_return_status := FND_API.G_RET_STS_SUCCESS;
9536: EXCEPTION
9537: WHEN OTHERS THEN
9538: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9539: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
9534:
9535: x_return_status := FND_API.G_RET_STS_SUCCESS;
9536: EXCEPTION
9537: WHEN OTHERS THEN
9538: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9539: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
9540: p_procedure_name => 'update_task_ver_delete_status',
9541: p_error_text => SUBSTRB(SQLERRM,1,240));
9542: raise;
9544:
9545: procedure delete_task_ver_wo_val
9546: (
9547: p_api_version IN NUMBER :=1.0,
9548: p_init_msg_list IN VARCHAR2:=FND_API.G_TRUE,
9549: p_commit IN VARCHAR2:=FND_API.G_FALSE,
9550: p_validate_only IN VARCHAR2:=FND_API.G_TRUE,
9551: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
9552: p_calling_module IN VARCHAR2:='SELF_SERVICE',
9545: procedure delete_task_ver_wo_val
9546: (
9547: p_api_version IN NUMBER :=1.0,
9548: p_init_msg_list IN VARCHAR2:=FND_API.G_TRUE,
9549: p_commit IN VARCHAR2:=FND_API.G_FALSE,
9550: p_validate_only IN VARCHAR2:=FND_API.G_TRUE,
9551: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
9552: p_calling_module IN VARCHAR2:='SELF_SERVICE',
9553: p_debug_mode IN VARCHAR2:='N',
9546: (
9547: p_api_version IN NUMBER :=1.0,
9548: p_init_msg_list IN VARCHAR2:=FND_API.G_TRUE,
9549: p_commit IN VARCHAR2:=FND_API.G_FALSE,
9550: p_validate_only IN VARCHAR2:=FND_API.G_TRUE,
9551: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
9552: p_calling_module IN VARCHAR2:='SELF_SERVICE',
9553: p_debug_mode IN VARCHAR2:='N',
9554: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
9547: p_api_version IN NUMBER :=1.0,
9548: p_init_msg_list IN VARCHAR2:=FND_API.G_TRUE,
9549: p_commit IN VARCHAR2:=FND_API.G_FALSE,
9550: p_validate_only IN VARCHAR2:=FND_API.G_TRUE,
9551: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
9552: p_calling_module IN VARCHAR2:='SELF_SERVICE',
9553: p_debug_mode IN VARCHAR2:='N',
9554: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
9555: p_structure_version_id IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
9777: IF (p_debug_mode = 'Y') THEN
9778: pa_debug.debug('PA_TASK_PVT1.DELETE_TASK_VER_WO_VAL begin');
9779: END IF;
9780:
9781: IF (p_commit = FND_API.G_TRUE) THEN
9782: savepoint DELETE_TASK_VER_WO_VAL;
9783: END IF;
9784:
9785: --hsiu
9866: WHEN OTHERS THEN
9867: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
9868: p_procedure_name => 'delete_Task_ver_wo_val',
9869: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions:'||SQLERRM,1,240));
9870: RAISE FND_API.G_EXC_ERROR;
9871: END;
9872: IF x_return_status = FND_API.G_RET_STS_ERROR then
9873: RAISE FND_API.G_EXC_ERROR;
9874: End If;
9868: p_procedure_name => 'delete_Task_ver_wo_val',
9869: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions:'||SQLERRM,1,240));
9870: RAISE FND_API.G_EXC_ERROR;
9871: END;
9872: IF x_return_status = FND_API.G_RET_STS_ERROR then
9873: RAISE FND_API.G_EXC_ERROR;
9874: End If;
9875: END IF;
9876: END IF;
9869: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions:'||SQLERRM,1,240));
9870: RAISE FND_API.G_EXC_ERROR;
9871: END;
9872: IF x_return_status = FND_API.G_RET_STS_ERROR then
9873: RAISE FND_API.G_EXC_ERROR;
9874: End If;
9875: END IF;
9876: END IF;
9877: -- till here by skannoji
9898: , x_msg_data => x_msg_data);
9899: END IF;
9900: CLOSE cur_fp_tsk_ver_id;
9901:
9902: If x_return_status = FND_API.G_RET_STS_ERROR then
9903: RAISE FND_API.G_EXC_ERROR;
9904: End If;
9905: End If;
9906: -- till here
9899: END IF;
9900: CLOSE cur_fp_tsk_ver_id;
9901:
9902: If x_return_status = FND_API.G_RET_STS_ERROR then
9903: RAISE FND_API.G_EXC_ERROR;
9904: End If;
9905: End If;
9906: -- till here
9907:
9958: If (l_err_code <> 0) THEN
9959: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9960: p_msg_name => substrb(l_err_stage,1,30)); --3935874 : Changed Substr to Substrb
9961: CLOSE cur_pa_tasks;
9962: raise FND_API.G_EXC_ERROR;
9963: END IF;
9964: END IF; --called_from_api chk.
9965: CLOSE cur_pa_tasks;
9966:
9981: -- ,x_return_status => l_return_status
9982: -- ,x_msg_count => l_msg_count
9983: -- ,x_msg_data => l_msg_data
9984: -- );
9985: -- IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9986: -- x_msg_count := FND_MSG_PUB.count_msg;
9987: -- IF x_msg_count = 1 then
9988: -- pa_interface_utils_pub.get_messages
9989: -- (p_encoded => FND_API.G_TRUE,
9985: -- IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9986: -- x_msg_count := FND_MSG_PUB.count_msg;
9987: -- IF x_msg_count = 1 then
9988: -- pa_interface_utils_pub.get_messages
9989: -- (p_encoded => FND_API.G_TRUE,
9990: -- p_msg_index => 1,
9991: -- p_msg_count => l_msg_count,
9992: -- p_msg_data => l_msg_data,
9993: -- p_data => l_data,
9993: -- p_data => l_data,
9994: -- p_msg_index_out => l_msg_index_out);
9995: -- x_msg_data := l_data;
9996: -- END IF;
9997: -- raise FND_API.G_EXC_ERROR;
9998: -- END IF;
9999:
10000: END IF; --delete flag chk
10001:
10047: 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);
10048: END IF;
10049:
10050:
10051: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10052: x_msg_count := FND_MSG_PUB.count_msg;
10053: IF x_msg_count = 1 then
10054: pa_interface_utils_pub.get_messages
10055: (p_encoded => FND_API.G_TRUE,
10051: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10052: x_msg_count := FND_MSG_PUB.count_msg;
10053: IF x_msg_count = 1 then
10054: pa_interface_utils_pub.get_messages
10055: (p_encoded => FND_API.G_TRUE,
10056: p_msg_index => 1,
10057: p_msg_count => l_msg_count,
10058: p_msg_data => l_msg_data,
10059: p_data => l_data,
10060: p_msg_index_out => l_msg_index_out);
10061: x_msg_data := l_data;
10062: END IF;
10063: l_dest_proj_id :=null; --Added for the Bug 14591859
10064: RAISE FND_API.G_EXC_ERROR;
10065: END IF;
10066: END IF; --Added for the Bug 14591859
10067: -- END IF; --4573340 -- Commented for the Bug 14591859
10068: -- CLOSE get_subproj_relation; -- Commented for the Bug 14591859
10083: ,x_msg_count => l_msg_count
10084: ,x_msg_data => l_msg_data
10085: );
10086:
10087: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10088: x_msg_count := FND_MSG_PUB.count_msg;
10089: IF x_msg_count = 1 then
10090: pa_interface_utils_pub.get_messages
10091: (p_encoded => FND_API.G_TRUE,
10087: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10088: x_msg_count := FND_MSG_PUB.count_msg;
10089: IF x_msg_count = 1 then
10090: pa_interface_utils_pub.get_messages
10091: (p_encoded => FND_API.G_TRUE,
10092: p_msg_index => 1,
10093: p_msg_count => l_msg_count,
10094: p_msg_data => l_msg_data,
10095: p_data => l_data,
10095: p_data => l_data,
10096: p_msg_index_out => l_msg_index_out);
10097: x_msg_data := l_data;
10098: END IF;
10099: raise FND_API.G_EXC_ERROR;
10100: END IF;
10101:
10102: PA_PROJ_ELEMENT_VERSIONS_PKG.Delete_Row( x_row_id );
10103:
10114: ,p_action => 'DELETE'
10115: ,p_parent_task_id => l_parent_task_verion_id
10116: ,x_return_status => l_return_status );
10117:
10118: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10119: x_msg_count := FND_MSG_PUB.count_msg;
10120: IF x_msg_count = 1 then
10121: pa_interface_utils_pub.get_messages
10122: (p_encoded => FND_API.G_TRUE,
10118: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10119: x_msg_count := FND_MSG_PUB.count_msg;
10120: IF x_msg_count = 1 then
10121: pa_interface_utils_pub.get_messages
10122: (p_encoded => FND_API.G_TRUE,
10123: p_msg_index => 1,
10124: p_msg_count => l_msg_count,
10125: p_msg_data => l_msg_data,
10126: p_data => l_data,
10126: p_data => l_data,
10127: p_msg_index_out => l_msg_index_out);
10128: x_msg_data := l_data;
10129: END IF;
10130: raise FND_API.G_EXC_ERROR;
10131: END IF; --hsiu: bug 2800553: for performance changes
10132: END IF;
10133: --Ansari
10134:
10161: , x_msg_data => x_msg_data);
10162: End If;
10163: -- Added by skannoji end here
10164:
10165: IF x_return_status = FND_API.G_RET_STS_ERROR then
10166: RAISE FND_API.G_EXC_ERROR;
10167: End If;
10168:
10169: PA_PROJ_ELEMENTS_PKG.delete_row( x_row_id_elem );
10162: End If;
10163: -- Added by skannoji end here
10164:
10165: IF x_return_status = FND_API.G_RET_STS_ERROR then
10166: RAISE FND_API.G_EXC_ERROR;
10167: End If;
10168:
10169: PA_PROJ_ELEMENTS_PKG.delete_row( x_row_id_elem );
10170:
10172: -- Ext Attribute changes
10173: -- Bug 2904327
10174:
10175: PA_USER_ATTR_PUB.DELETE_ALL_USER_ATTRS_DATA (
10176: p_validate_only => FND_API.G_FALSE
10177: ,p_project_id => x_project_id
10178: ,p_proj_element_id => l_proj_element_id
10179: ,x_return_status => l_return_status
10180: ,x_msg_count => l_msg_count
10184:
10185: IF l_msg_count > 0 THEN
10186: x_msg_count := l_msg_count;
10187: x_return_status := 'E';
10188: RAISE FND_API.G_EXC_ERROR;
10189: END IF;
10190: -- anlee end of changes
10191:
10192: END IF;
10202: ,x_msg_count => l_msg_count
10203: ,x_msg_data => l_msg_data
10204: );
10205:
10206: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
10207: x_msg_count := FND_MSG_PUB.count_msg;
10208: if x_msg_count = 1 then
10209: pa_interface_utils_pub.get_messages
10210: (p_encoded => FND_API.G_TRUE,
10206: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
10207: x_msg_count := FND_MSG_PUB.count_msg;
10208: if x_msg_count = 1 then
10209: pa_interface_utils_pub.get_messages
10210: (p_encoded => FND_API.G_TRUE,
10211: p_msg_index => 1,
10212: p_msg_count => l_msg_count,
10213: p_msg_data => l_msg_data,
10214: p_data => l_data,
10214: p_data => l_data,
10215: p_msg_index_out => l_msg_index_out);
10216: x_msg_data := l_data;
10217: end if;
10218: RAISE FND_API.G_EXC_ERROR;
10219: end if;
10220: END IF;
10221: --End bug 3055766
10222:
10248: WHEN OTHERS THEN
10249: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
10250: p_procedure_name => 'delete_Task_ver_wo_val',
10251: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions:'||SQLERRM,1,240));
10252: RAISE FND_API.G_EXC_ERROR;
10253: END;
10254: IF x_return_status = FND_API.G_RET_STS_ERROR then
10255: RAISE FND_API.G_EXC_ERROR;
10256: End If;
10250: p_procedure_name => 'delete_Task_ver_wo_val',
10251: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions:'||SQLERRM,1,240));
10252: RAISE FND_API.G_EXC_ERROR;
10253: END;
10254: IF x_return_status = FND_API.G_RET_STS_ERROR then
10255: RAISE FND_API.G_EXC_ERROR;
10256: End If;
10257: END IF;
10258: --end bug Bug # : 4172646
10251: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions:'||SQLERRM,1,240));
10252: RAISE FND_API.G_EXC_ERROR;
10253: END;
10254: IF x_return_status = FND_API.G_RET_STS_ERROR then
10255: RAISE FND_API.G_EXC_ERROR;
10256: End If;
10257: END IF;
10258: --end bug Bug # : 4172646
10259: */
10274: AND PA_PROJ_ELEMENTS_UTILS.link_flag ( proj_element_id ) = 'N';
10275: EXCEPTION
10276: WHEN OTHERS THEN
10277: PA_UTILS.ADD_MESSAGE('PA', 'PA_TASK_SEQ_NUM_ERR');
10278: raise FND_API.G_EXC_ERROR;
10279: END;
10280:
10281: --hsiu added, for dates rollup
10282: IF (l_peer_tasks_exist = 'Y') THEN
10281: --hsiu added, for dates rollup
10282: IF (l_peer_tasks_exist = 'Y') THEN
10283: IF PA_PROJECT_STRUCTURE_UTILS.GET_STRUC_TYPE_FOR_VERSION(x_parent_struc_ver_id, 'WORKPLAN') = 'Y' then
10284: PA_STRUCT_TASK_ROLLUP_PUB.Tasks_Rollup(
10285: p_commit => FND_API.G_FALSE,
10286: p_element_versions => l_tasks_ver_ids,
10287: x_return_status => l_return_status,
10288: x_msg_count => l_msg_count,
10289: x_msg_data => l_msg_data);
10287: x_return_status => l_return_status,
10288: x_msg_count => l_msg_count,
10289: x_msg_data => l_msg_data);
10290:
10291: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
10292: x_msg_count := FND_MSG_PUB.count_msg;
10293: if x_msg_count = 1 then
10294: pa_interface_utils_pub.get_messages
10295: (p_encoded => FND_API.G_TRUE,
10291: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
10292: x_msg_count := FND_MSG_PUB.count_msg;
10293: if x_msg_count = 1 then
10294: pa_interface_utils_pub.get_messages
10295: (p_encoded => FND_API.G_TRUE,
10296: p_msg_index => 1,
10297: p_msg_count => l_msg_count,
10298: p_msg_data => l_msg_data,
10299: p_data => l_data,
10299: p_data => l_data,
10300: p_msg_index_out => l_msg_index_out);
10301: x_msg_data := l_data;
10302: end if;
10303: RAISE FND_API.G_EXC_ERROR;
10304: end if;
10305: END IF;
10306: END IF;
10307: END IF;
10322: ,x_msg_count => l_msg_count
10323: ,x_msg_data => l_msg_data
10324: );
10325:
10326: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
10327: x_msg_count := FND_MSG_PUB.count_msg;
10328: if x_msg_count = 1 then
10329: pa_interface_utils_pub.get_messages
10330: (p_encoded => FND_API.G_TRUE,
10326: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
10327: x_msg_count := FND_MSG_PUB.count_msg;
10328: if x_msg_count = 1 then
10329: pa_interface_utils_pub.get_messages
10330: (p_encoded => FND_API.G_TRUE,
10331: p_msg_index => 1,
10332: p_msg_count => l_msg_count,
10333: p_msg_data => l_msg_data,
10334: p_data => l_data,
10334: p_data => l_data,
10335: p_msg_index_out => l_msg_index_out);
10336: x_msg_data := l_data;
10337: end if;
10338: RAISE FND_API.G_EXC_ERROR;
10339: end if;
10340: END IF;
10341: END IF;
10342: CLOSE get_latest_task_ver_id;
10351: ,x_msg_count => l_msg_count
10352: ,x_msg_data => l_msg_data
10353: );
10354:
10355: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
10356: x_msg_count := FND_MSG_PUB.count_msg;
10357: if x_msg_count = 1 then
10358: pa_interface_utils_pub.get_messages
10359: (p_encoded => FND_API.G_TRUE,
10355: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
10356: x_msg_count := FND_MSG_PUB.count_msg;
10357: if x_msg_count = 1 then
10358: pa_interface_utils_pub.get_messages
10359: (p_encoded => FND_API.G_TRUE,
10360: p_msg_index => 1,
10361: p_msg_count => l_msg_count,
10362: p_msg_data => l_msg_data,
10363: p_data => l_data,
10363: p_data => l_data,
10364: p_msg_index_out => l_msg_index_out);
10365: x_msg_data := l_data;
10366: end if;
10367: RAISE FND_API.G_EXC_ERROR;
10368: end if;
10369: END IF;
10370: --end task weighting changes
10371:
10385: ,x_return_status => l_return_status
10386: ,x_msg_count => l_msg_count
10387: ,x_msg_data => l_msg_data);
10388:
10389: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
10390: x_msg_count := FND_MSG_PUB.count_msg;
10391: if x_msg_count = 1 then
10392: pa_interface_utils_pub.get_messages
10393: (p_encoded => FND_API.G_TRUE,
10389: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
10390: x_msg_count := FND_MSG_PUB.count_msg;
10391: if x_msg_count = 1 then
10392: pa_interface_utils_pub.get_messages
10393: (p_encoded => FND_API.G_TRUE,
10394: p_msg_index => 1,
10395: p_msg_count => l_msg_count,
10396: p_msg_data => l_msg_data,
10397: p_data => l_data,
10397: p_data => l_data,
10398: p_msg_index_out => l_msg_index_out);
10399: x_msg_data := l_data;
10400: end if;
10401: raise FND_API.G_EXC_ERROR;
10402: end if;
10403: --end if;
10404: --3035902: end process update flag changes
10405: x_return_status := FND_API.G_RET_STS_SUCCESS;
10401: raise FND_API.G_EXC_ERROR;
10402: end if;
10403: --end if;
10404: --3035902: end process update flag changes
10405: x_return_status := FND_API.G_RET_STS_SUCCESS;
10406:
10407: EXCEPTION
10408: WHEN FND_API.G_EXC_ERROR THEN
10409: IF (p_commit = FND_API.G_TRUE) THEN
10404: --3035902: end process update flag changes
10405: x_return_status := FND_API.G_RET_STS_SUCCESS;
10406:
10407: EXCEPTION
10408: WHEN FND_API.G_EXC_ERROR THEN
10409: IF (p_commit = FND_API.G_TRUE) THEN
10410: ROLLBACK to DELETE_TASK_VER_WO_VAL;
10411: END IF;
10412: x_msg_count := FND_MSG_PUB.count_msg;
10405: x_return_status := FND_API.G_RET_STS_SUCCESS;
10406:
10407: EXCEPTION
10408: WHEN FND_API.G_EXC_ERROR THEN
10409: IF (p_commit = FND_API.G_TRUE) THEN
10410: ROLLBACK to DELETE_TASK_VER_WO_VAL;
10411: END IF;
10412: x_msg_count := FND_MSG_PUB.count_msg;
10413: x_return_status := FND_API.G_RET_STS_ERROR;
10409: IF (p_commit = FND_API.G_TRUE) THEN
10410: ROLLBACK to DELETE_TASK_VER_WO_VAL;
10411: END IF;
10412: x_msg_count := FND_MSG_PUB.count_msg;
10413: x_return_status := FND_API.G_RET_STS_ERROR;
10414: WHEN OTHERS THEN
10415: IF (p_commit = FND_API.G_TRUE) THEN
10416: ROLLBACK to DELETE_TASK_VER_WO_VAL;
10417: END IF;
10411: END IF;
10412: x_msg_count := FND_MSG_PUB.count_msg;
10413: x_return_status := FND_API.G_RET_STS_ERROR;
10414: WHEN OTHERS THEN
10415: IF (p_commit = FND_API.G_TRUE) THEN
10416: ROLLBACK to DELETE_TASK_VER_WO_VAL;
10417: END IF;
10418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10419: x_msg_count := FND_MSG_PUB.count_msg;
10414: WHEN OTHERS THEN
10415: IF (p_commit = FND_API.G_TRUE) THEN
10416: ROLLBACK to DELETE_TASK_VER_WO_VAL;
10417: END IF;
10418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10419: x_msg_count := FND_MSG_PUB.count_msg;
10420: --put message
10421: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
10422: p_procedure_name => 'delete_Task_ver_wo_val',
10424: RAISE;
10425: END delete_task_ver_wo_val;
10426:
10427: procedure UPDATE_WORKING_VER_WEIGHT(
10428: p_commit IN VARCHAR2 := FND_API.G_FALSE
10429: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
10430: ,p_validation_level IN VARCHAR2 := 100
10431: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
10432: ,p_debug_mode IN VARCHAR2 := 'N'
10425: END delete_task_ver_wo_val;
10426:
10427: procedure UPDATE_WORKING_VER_WEIGHT(
10428: p_commit IN VARCHAR2 := FND_API.G_FALSE
10429: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
10430: ,p_validation_level IN VARCHAR2 := 100
10431: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
10432: ,p_debug_mode IN VARCHAR2 := 'N'
10433: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
10511: ,x_msg_data => x_msg_data
10512: );
10513: IF (x_msg_count > 0) THEN
10514: CLOSE get_working_ver;
10515: raise FND_API.G_EXC_ERROR;
10516: END IF;
10517: END LOOP;
10518: CLOSE get_working_ver;
10519:
10516: END IF;
10517: END LOOP;
10518: CLOSE get_working_ver;
10519:
10520: x_return_status := FND_API.G_RET_STS_SUCCESS;
10521: EXCEPTION
10522: WHEN FND_API.G_EXC_ERROR THEN
10523: x_return_status := FND_API.G_RET_STS_ERROR;
10524: WHEN OTHERS THEN
10518: CLOSE get_working_ver;
10519:
10520: x_return_status := FND_API.G_RET_STS_SUCCESS;
10521: EXCEPTION
10522: WHEN FND_API.G_EXC_ERROR THEN
10523: x_return_status := FND_API.G_RET_STS_ERROR;
10524: WHEN OTHERS THEN
10525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10526: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
10519:
10520: x_return_status := FND_API.G_RET_STS_SUCCESS;
10521: EXCEPTION
10522: WHEN FND_API.G_EXC_ERROR THEN
10523: x_return_status := FND_API.G_RET_STS_ERROR;
10524: WHEN OTHERS THEN
10525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10526: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
10527: p_procedure_name => 'UPDATE_WORKING_VER_WEIGHT',
10521: EXCEPTION
10522: WHEN FND_API.G_EXC_ERROR THEN
10523: x_return_status := FND_API.G_RET_STS_ERROR;
10524: WHEN OTHERS THEN
10525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10526: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
10527: p_procedure_name => 'UPDATE_WORKING_VER_WEIGHT',
10528: p_error_text => SUBSTRB(SQLERRM,1,240));
10529: RAISE;
10530: END UPDATE_WORKING_VER_WEIGHT;
10531:
10532:
10533: procedure set_new_tasks_to_TBD(
10534: p_commit IN VARCHAR2 := FND_API.G_FALSE
10535: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
10536: ,p_validation_level IN VARCHAR2 := 100
10537: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
10538: ,p_debug_mode IN VARCHAR2 := 'N'
10531:
10532:
10533: procedure set_new_tasks_to_TBD(
10534: p_commit IN VARCHAR2 := FND_API.G_FALSE
10535: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
10536: ,p_validation_level IN VARCHAR2 := 100
10537: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
10538: ,p_debug_mode IN VARCHAR2 := 'N'
10539: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
10680: ---Call the rollup API to rollup schedule dates and effort
10681: /* Bug 2790703 Begin */
10682: /*
10683: PA_STRUCT_TASK_ROLLUP_PUB.Tasks_Rollup(
10684: p_commit => FND_API.G_FALSE,
10685: p_element_versions => l_tasks_ver_ids,
10686: x_return_status => l_return_status,
10687: x_msg_count => l_msg_count,
10688: x_msg_data => l_msg_data);
10690: -- Bug 4429929 : No need to do Rollup while cancelling a task.
10691: -- This is decided after discussion with Majid
10692: /*
10693: PA_STRUCT_TASK_ROLLUP_PUB.Tasks_Rollup_Unlimited(
10694: p_commit => FND_API.G_FALSE,
10695: p_element_versions => l_task_ver_ids_tbl,
10696: x_return_status => l_return_status,
10697: x_msg_count => l_msg_count,
10698: x_msg_data => l_msg_data);
10700:
10701: /* Bug 2790703 End */
10702:
10703:
10704: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
10705: x_msg_count := FND_MSG_PUB.count_msg;
10706: if x_msg_count = 1 then
10707: pa_interface_utils_pub.get_messages
10708: (p_encoded => FND_API.G_TRUE,
10704: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
10705: x_msg_count := FND_MSG_PUB.count_msg;
10706: if x_msg_count = 1 then
10707: pa_interface_utils_pub.get_messages
10708: (p_encoded => FND_API.G_TRUE,
10709: p_msg_index => 1,
10710: p_msg_count => l_msg_count,
10711: p_msg_data => l_msg_data,
10712: p_data => l_data,
10714: x_msg_data := l_data;
10715: end if;
10716: end if;
10717: END IF;
10718: x_return_status := FND_API.G_RET_STS_SUCCESS;
10719: EXCEPTION
10720: WHEN FND_API.G_EXC_ERROR THEN
10721: x_return_status := FND_API.G_RET_STS_ERROR;
10722: WHEN OTHERS THEN
10716: end if;
10717: END IF;
10718: x_return_status := FND_API.G_RET_STS_SUCCESS;
10719: EXCEPTION
10720: WHEN FND_API.G_EXC_ERROR THEN
10721: x_return_status := FND_API.G_RET_STS_ERROR;
10722: WHEN OTHERS THEN
10723: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10724: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
10717: END IF;
10718: x_return_status := FND_API.G_RET_STS_SUCCESS;
10719: EXCEPTION
10720: WHEN FND_API.G_EXC_ERROR THEN
10721: x_return_status := FND_API.G_RET_STS_ERROR;
10722: WHEN OTHERS THEN
10723: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10724: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
10725: p_procedure_name => 'set_new_tasks_to_TBD',
10719: EXCEPTION
10720: WHEN FND_API.G_EXC_ERROR THEN
10721: x_return_status := FND_API.G_RET_STS_ERROR;
10722: WHEN OTHERS THEN
10723: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10724: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
10725: p_procedure_name => 'set_new_tasks_to_TBD',
10726: p_error_text => SUBSTRB(SQLERRM,1,240));
10727: RAISE;
10731: -- Bug 2812855 : Added following procedure to populate actual and estimated dates to all the task versions
10732:
10733: PROCEDURE Update_Dates_To_All_Versions(
10734: p_api_version IN NUMBER :=1.0,
10735: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
10736: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
10737: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
10738: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
10739: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
10732:
10733: PROCEDURE Update_Dates_To_All_Versions(
10734: p_api_version IN NUMBER :=1.0,
10735: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
10736: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
10737: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
10738: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
10739: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
10740: p_debug_mode IN VARCHAR2 :='N',
10733: PROCEDURE Update_Dates_To_All_Versions(
10734: p_api_version IN NUMBER :=1.0,
10735: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
10736: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
10737: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
10738: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
10739: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
10740: p_debug_mode IN VARCHAR2 :='N',
10741: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
10734: p_api_version IN NUMBER :=1.0,
10735: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
10736: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
10737: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
10738: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
10739: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
10740: p_debug_mode IN VARCHAR2 :='N',
10741: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
10742: p_project_id IN NUMBER,
10772: IF (p_debug_mode = 'Y') THEN
10773: pa_debug.debug('PA_TASK_PVT1.Update_Dates_To_All_Versions begin');
10774: END IF;
10775:
10776: IF (p_commit = FND_API.G_TRUE) THEN
10777: savepoint UPDATE_SCH_VER_PRIVATE_DATES;
10778: END IF;
10779:
10780: -- Get all the info which needs to be updated to its all the versions
10812: WHERE proj_element_id = cur_proj_elem_ver_sch_rec.proj_element_id
10813: and project_id = cur_proj_elem_ver_sch_rec.project_id;
10814: END LOOP;
10815:
10816: IF (p_commit = FND_API.G_TRUE) THEN
10817: commit;
10818: END IF;
10819:
10820: x_return_status := FND_API.G_RET_STS_SUCCESS;
10816: IF (p_commit = FND_API.G_TRUE) THEN
10817: commit;
10818: END IF;
10819:
10820: x_return_status := FND_API.G_RET_STS_SUCCESS;
10821:
10822: EXCEPTION
10823: WHEN FND_API.G_EXC_ERROR THEN
10824: IF (p_commit = FND_API.G_TRUE) THEN
10819:
10820: x_return_status := FND_API.G_RET_STS_SUCCESS;
10821:
10822: EXCEPTION
10823: WHEN FND_API.G_EXC_ERROR THEN
10824: IF (p_commit = FND_API.G_TRUE) THEN
10825: ROLLBACK to UPDATE_SCH_VER_PRIVATE_DATES;
10826: END IF;
10827: x_msg_count := FND_MSG_PUB.count_msg;
10820: x_return_status := FND_API.G_RET_STS_SUCCESS;
10821:
10822: EXCEPTION
10823: WHEN FND_API.G_EXC_ERROR THEN
10824: IF (p_commit = FND_API.G_TRUE) THEN
10825: ROLLBACK to UPDATE_SCH_VER_PRIVATE_DATES;
10826: END IF;
10827: x_msg_count := FND_MSG_PUB.count_msg;
10828: x_return_status := FND_API.G_RET_STS_ERROR;
10824: IF (p_commit = FND_API.G_TRUE) THEN
10825: ROLLBACK to UPDATE_SCH_VER_PRIVATE_DATES;
10826: END IF;
10827: x_msg_count := FND_MSG_PUB.count_msg;
10828: x_return_status := FND_API.G_RET_STS_ERROR;
10829: WHEN OTHERS THEN
10830: IF (p_commit = FND_API.G_TRUE) THEN
10831: ROLLBACK to UPDATE_SCH_VER_PRIVATE_DATES;
10832: END IF;
10826: END IF;
10827: x_msg_count := FND_MSG_PUB.count_msg;
10828: x_return_status := FND_API.G_RET_STS_ERROR;
10829: WHEN OTHERS THEN
10830: IF (p_commit = FND_API.G_TRUE) THEN
10831: ROLLBACK to UPDATE_SCH_VER_PRIVATE_DATES;
10832: END IF;
10833: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10834: x_msg_count := FND_MSG_PUB.count_msg;
10829: WHEN OTHERS THEN
10830: IF (p_commit = FND_API.G_TRUE) THEN
10831: ROLLBACK to UPDATE_SCH_VER_PRIVATE_DATES;
10832: END IF;
10833: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10834: x_msg_count := FND_MSG_PUB.count_msg;
10835: --put message
10836: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
10837: p_procedure_name => 'Update_Dates_To_All_Versions',
10840: END Update_Dates_To_All_Versions;
10841:
10842:
10843: /* procedure rollup_all_working_ver(
10844: p_commit IN VARCHAR2 := FND_API.G_FALSE
10845: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
10846: ,p_validation_level IN VARCHAR2 := 100
10847: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
10848: ,p_debug_mode IN VARCHAR2 := 'N'
10841:
10842:
10843: /* procedure rollup_all_working_ver(
10844: p_commit IN VARCHAR2 := FND_API.G_FALSE
10845: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
10846: ,p_validation_level IN VARCHAR2 := 100
10847: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
10848: ,p_debug_mode IN VARCHAR2 := 'N'
10849: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
10861: */
10862:
10863: PROCEDURE DISP_SEQ_NUM_LEVEL_DEFER(
10864: p_api_version IN NUMBER :=1.0,
10865: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
10866: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
10867: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
10868: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
10869: p_debug_mode IN VARCHAR2 :='N',
10862:
10863: PROCEDURE DISP_SEQ_NUM_LEVEL_DEFER(
10864: p_api_version IN NUMBER :=1.0,
10865: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
10866: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
10867: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
10868: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
10869: p_debug_mode IN VARCHAR2 :='N',
10870: p_project_id IN NUMBER ,
10863: PROCEDURE DISP_SEQ_NUM_LEVEL_DEFER(
10864: p_api_version IN NUMBER :=1.0,
10865: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
10866: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
10867: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
10868: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
10869: p_debug_mode IN VARCHAR2 :='N',
10870: p_project_id IN NUMBER ,
10871: p_event_type IN VARCHAR2 ,
10864: p_api_version IN NUMBER :=1.0,
10865: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
10866: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
10867: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
10868: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
10869: p_debug_mode IN VARCHAR2 :='N',
10870: p_project_id IN NUMBER ,
10871: p_event_type IN VARCHAR2 ,
10872: p_parent_struct_ver_id IN NUMBER ,
10897: IF (p_debug_mode = 'Y') THEN
10898: pa_debug.debug('PA_TASK_PVT1.DISP_SEQ_NUM_LEVEL_DEFER begin');
10899: END IF;
10900:
10901: IF (p_commit = FND_API.G_TRUE) THEN
10902: savepoint DISP_SEQ_NUM_LEVEL_DEFER;
10903: END IF;
10904:
10905: IF p_event_type IN ( 'ADD', 'IDENT','MOVE_SUB' ) THEN
10966: WHERE a.element_version_id = c1_rec.element_version_id ;
10967: t_seq := t_seq + 1;
10968: END LOOP;
10969: END IF;
10970: IF (p_commit = FND_API.G_TRUE) THEN
10971: commit;
10972: END IF;
10973:
10974: x_return_status := FND_API.G_RET_STS_SUCCESS;
10970: IF (p_commit = FND_API.G_TRUE) THEN
10971: commit;
10972: END IF;
10973:
10974: x_return_status := FND_API.G_RET_STS_SUCCESS;
10975: EXCEPTION
10976: WHEN FND_API.G_EXC_ERROR THEN
10977: IF (p_commit = FND_API.G_TRUE) THEN
10978: ROLLBACK to DISP_SEQ_NUM_LEVEL_DEFER;
10972: END IF;
10973:
10974: x_return_status := FND_API.G_RET_STS_SUCCESS;
10975: EXCEPTION
10976: WHEN FND_API.G_EXC_ERROR THEN
10977: IF (p_commit = FND_API.G_TRUE) THEN
10978: ROLLBACK to DISP_SEQ_NUM_LEVEL_DEFER;
10979: END IF;
10980: x_msg_count := FND_MSG_PUB.count_msg;
10973:
10974: x_return_status := FND_API.G_RET_STS_SUCCESS;
10975: EXCEPTION
10976: WHEN FND_API.G_EXC_ERROR THEN
10977: IF (p_commit = FND_API.G_TRUE) THEN
10978: ROLLBACK to DISP_SEQ_NUM_LEVEL_DEFER;
10979: END IF;
10980: x_msg_count := FND_MSG_PUB.count_msg;
10981: x_return_status := FND_API.G_RET_STS_ERROR;
10977: IF (p_commit = FND_API.G_TRUE) THEN
10978: ROLLBACK to DISP_SEQ_NUM_LEVEL_DEFER;
10979: END IF;
10980: x_msg_count := FND_MSG_PUB.count_msg;
10981: x_return_status := FND_API.G_RET_STS_ERROR;
10982: WHEN OTHERS THEN
10983: IF (p_commit = FND_API.G_TRUE) THEN
10984: ROLLBACK to DISP_SEQ_NUM_LEVEL_DEFER;
10985: END IF;
10979: END IF;
10980: x_msg_count := FND_MSG_PUB.count_msg;
10981: x_return_status := FND_API.G_RET_STS_ERROR;
10982: WHEN OTHERS THEN
10983: IF (p_commit = FND_API.G_TRUE) THEN
10984: ROLLBACK to DISP_SEQ_NUM_LEVEL_DEFER;
10985: END IF;
10986: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10987: x_msg_count := FND_MSG_PUB.count_msg;
10982: WHEN OTHERS THEN
10983: IF (p_commit = FND_API.G_TRUE) THEN
10984: ROLLBACK to DISP_SEQ_NUM_LEVEL_DEFER;
10985: END IF;
10986: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10987: x_msg_count := FND_MSG_PUB.count_msg;
10988: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
10989: p_procedure_name => 'DISP_SEQ_NUM_LEVEL_DEFER',
10990: p_error_text => SUBSTRB(SQLERRM,1,240));
10992: END DISP_SEQ_NUM_LEVEL_DEFER;
10993:
10994: Procedure Defer_Calc_Task_Weigthage (
10995: p_api_version IN NUMBER :=1.0,
10996: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
10997: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
10998: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
10999: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
11000: p_debug_mode IN VARCHAR2 :='N',
10993:
10994: Procedure Defer_Calc_Task_Weigthage (
10995: p_api_version IN NUMBER :=1.0,
10996: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
10997: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
10998: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
10999: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
11000: p_debug_mode IN VARCHAR2 :='N',
11001: p_project_id IN NUMBER ,
10994: Procedure Defer_Calc_Task_Weigthage (
10995: p_api_version IN NUMBER :=1.0,
10996: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
10997: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
10998: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
10999: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
11000: p_debug_mode IN VARCHAR2 :='N',
11001: p_project_id IN NUMBER ,
11002: p_parent_struct_ver_id IN NUMBER,
10995: p_api_version IN NUMBER :=1.0,
10996: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
10997: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
10998: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
10999: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
11000: p_debug_mode IN VARCHAR2 :='N',
11001: p_project_id IN NUMBER ,
11002: p_parent_struct_ver_id IN NUMBER,
11003: x_return_status OUT NOCOPY VARCHAR2,
11055: IF (p_debug_mode = 'Y') THEN
11056: pa_debug.debug('PA_TASK_PVT1.DEFER_CALC_TASK_WEIGTHAGE begin');
11057: END IF;
11058:
11059: IF (p_commit = FND_API.G_TRUE) THEN
11060: savepoint DEFER_CALC_TASK_WEIGTHAGE;
11061: END IF;
11062:
11063: l_parent_struc_ver_id := p_parent_struct_ver_id;
11119: WHERE object_id_to1 = l_arr_elem_ver_id(i)
11120: AND por.relationship_type = 'S'
11121: AND por.object_type_from IN ('PA_STRUCTURES', 'PA_TASKS') ;
11122:
11123: IF (p_commit = FND_API.G_TRUE) THEN
11124: commit;
11125: END IF;
11126:
11127: x_return_status := FND_API.G_RET_STS_SUCCESS;
11123: IF (p_commit = FND_API.G_TRUE) THEN
11124: commit;
11125: END IF;
11126:
11127: x_return_status := FND_API.G_RET_STS_SUCCESS;
11128:
11129: EXCEPTION
11130: WHEN FND_API.G_EXC_ERROR THEN
11131: IF (p_commit = FND_API.G_TRUE) THEN
11126:
11127: x_return_status := FND_API.G_RET_STS_SUCCESS;
11128:
11129: EXCEPTION
11130: WHEN FND_API.G_EXC_ERROR THEN
11131: IF (p_commit = FND_API.G_TRUE) THEN
11132: ROLLBACK to DEFER_CALC_TASK_WEIGTHAGE;
11133: END IF;
11134: x_msg_count := FND_MSG_PUB.count_msg;
11127: x_return_status := FND_API.G_RET_STS_SUCCESS;
11128:
11129: EXCEPTION
11130: WHEN FND_API.G_EXC_ERROR THEN
11131: IF (p_commit = FND_API.G_TRUE) THEN
11132: ROLLBACK to DEFER_CALC_TASK_WEIGTHAGE;
11133: END IF;
11134: x_msg_count := FND_MSG_PUB.count_msg;
11135: x_return_status := FND_API.G_RET_STS_ERROR;
11131: IF (p_commit = FND_API.G_TRUE) THEN
11132: ROLLBACK to DEFER_CALC_TASK_WEIGTHAGE;
11133: END IF;
11134: x_msg_count := FND_MSG_PUB.count_msg;
11135: x_return_status := FND_API.G_RET_STS_ERROR;
11136: WHEN OTHERS THEN
11137: IF (p_commit = FND_API.G_TRUE) THEN
11138: ROLLBACK to DEFER_CALC_TASK_WEIGTHAGE;
11139: END IF;
11133: END IF;
11134: x_msg_count := FND_MSG_PUB.count_msg;
11135: x_return_status := FND_API.G_RET_STS_ERROR;
11136: WHEN OTHERS THEN
11137: IF (p_commit = FND_API.G_TRUE) THEN
11138: ROLLBACK to DEFER_CALC_TASK_WEIGTHAGE;
11139: END IF;
11140: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11141: x_msg_count := FND_MSG_PUB.count_msg;
11136: WHEN OTHERS THEN
11137: IF (p_commit = FND_API.G_TRUE) THEN
11138: ROLLBACK to DEFER_CALC_TASK_WEIGTHAGE;
11139: END IF;
11140: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11141: x_msg_count := FND_MSG_PUB.count_msg;
11142: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
11143: p_procedure_name => 'DEFER_CALC_TASK_WEIGTHAGE',
11144: p_error_text => SUBSTRB(SQLERRM,1,240));