[Home] [Help]
367: END IF;
368:
369:
370: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
371: FND_MSG_PUB.initialize;
372: END IF;
373:
374:
375: PA_PROJECT_STRUCTURE_PVT1.Create_Structure(
427: ,x_msg_data => l_msg_data
428: );
429:
430: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
431: x_msg_count := FND_MSG_PUB.count_msg;
432: IF x_msg_count = 1 then
433: pa_interface_utils_pub.get_messages
434: (p_encoded => FND_API.G_TRUE,
435: p_msg_index => 1,
463: if p_commit = FND_API.G_TRUE then
464: rollback to create_structure;
465: end if;
466: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
467: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
468: p_procedure_name => 'CREATE_STRUCTURE',
469: p_error_text => SUBSTRB(SQLERRM,1,240));
470: when OTHERS then
471: if p_commit = FND_API.G_TRUE then
471: if p_commit = FND_API.G_TRUE then
472: rollback to create_structure;
473: end if;
474: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
475: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
476: p_procedure_name => 'CREATE_STRUCTURE',
477: p_error_text => SUBSTRB(SQLERRM,1,240));
478: raise;
479: END CREATE_STRUCTURE;
579: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
580: END IF;
581:
582: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
583: FND_MSG_PUB.initialize;
584: END IF;
585:
586: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version(
587: p_api_version => p_api_version
615: ,x_msg_data => l_msg_data
616: );
617:
618: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
619: x_msg_count := FND_MSG_PUB.count_msg;
620: IF x_msg_count = 1 then
621: pa_interface_utils_pub.get_messages
622: (p_encoded => FND_API.G_TRUE,
623: p_msg_index => 1,
651: if p_commit = FND_API.G_TRUE then
652: rollback to create_structure_version;
653: end if;
654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
655: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
656: p_procedure_name => 'CREATE_STRUCTURE_VERSION',
657: p_error_text => SUBSTRB(SQLERRM,1,240));
658: when OTHERS then
659: if p_commit = FND_API.G_TRUE then
659: if p_commit = FND_API.G_TRUE then
660: rollback to create_structure_version;
661: end if;
662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
663: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
664: p_procedure_name => 'CREATE_STRUCTURE_VERSION',
665: p_error_text => SUBSTRB(SQLERRM,1,240));
666: raise;
667: END CREATE_STRUCTURE_VERSION;
754: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
755: END IF;
756:
757: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
758: FND_MSG_PUB.initialize;
759: END IF;
760:
761: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version_Attr(
762: p_api_version => p_api_version
784: ,x_msg_data => l_msg_data
785: );
786:
787: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
788: x_msg_count := FND_MSG_PUB.count_msg;
789: IF x_msg_count = 1 then
790: pa_interface_utils_pub.get_messages
791: (p_encoded => FND_API.G_TRUE,
792: p_msg_index => 1,
826: x_msg_data := SUBSTRB(SQLERRM,1,240);
827: -- 4537865
828:
829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
830: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
831: p_procedure_name => 'CREATE_STRUCTURE_VERSION_ATTR',
832: p_error_text => x_msg_data); -- 4537865
833: when OTHERS then
834: if p_commit = FND_API.G_TRUE then
840: x_msg_count := 1 ;
841: x_msg_data := SUBSTRB(SQLERRM,1,240);
842: -- 4537865
843:
844: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
845: p_procedure_name => 'CREATE_STRUCTURE_VERSION_ATTR',
846: p_error_text => x_msg_data); -- 4537865
847: raise;
848: END CREATE_STRUCTURE_VERSION_ATTR;
956: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
957: END IF;
958:
959: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
960: FND_MSG_PUB.initialize;
961: END IF;
962:
963: --Lock row
964: IF( p_validate_only <> FND_API.G_TRUE) THEN
1004: END IF;
1005:
1006: --check if there is error
1007: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1008: x_msg_count := FND_MSG_PUB.count_msg;
1009: IF x_msg_count = 1 then
1010: pa_interface_utils_pub.get_messages
1011: (p_encoded => FND_API.G_TRUE,
1012: p_msg_index => 1,
1054: );
1055:
1056: -- 4537865 : Wrong check was made against l_return_status. Corrected it to x_return_status
1057: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1058: x_msg_count := FND_MSG_PUB.count_msg;
1059: IF x_msg_count = 1 then
1060: pa_interface_utils_pub.get_messages
1061: (p_encoded => FND_API.G_TRUE,
1062: p_msg_index => 1,
1095: x_msg_count := 1 ;
1096: x_msg_data := SUBSTRB(SQLERRM,1,240);
1097: -- 4537865
1098:
1099: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
1100: p_procedure_name => 'UPDATE_STRUCTURE',
1101: p_error_text => x_msg_data); -- 4537865
1102: when OTHERS then
1103: if p_commit = FND_API.G_TRUE then
1109: x_msg_data := SUBSTRB(SQLERRM,1,240);
1110: -- 4537865
1111:
1112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1113: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
1114: p_procedure_name => 'UPDATE_STRUCTURE',
1115: p_error_text => x_msg_data); -- 4537865
1116: raise;
1117: END UPDATE_STRUCTURE;
1205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1206: END IF;
1207:
1208: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1209: FND_MSG_PUB.initialize;
1210: END IF;
1211:
1212: --Lock row
1213:
1212: --Lock row
1213:
1214: --check if there is error
1215: -- IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1216: -- x_msg_count := FND_MSG_PUB.count_msg;
1217: -- IF x_msg_count = 1 then
1218: -- pa_interface_utils_pub.get_messages
1219: -- (p_encoded => FND_API.G_TRUE,
1220: -- p_msg_index => 1,
1253: ,x_msg_data => x_msg_data
1254: );
1255:
1256: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1257: x_msg_count := FND_MSG_PUB.count_msg;
1258: IF x_msg_count = 1 then
1259: pa_interface_utils_pub.get_messages
1260: (p_encoded => FND_API.G_TRUE,
1261: p_msg_index => 1,
1293: x_msg_count := 1 ;
1294: x_msg_data := SUBSTRB(SQLERRM,1,240);
1295: -- 4537865
1296:
1297: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
1298: p_procedure_name => 'Update_Structure_Version_Attr',
1299: p_error_text => x_msg_data) ; -- 4537865
1300: when OTHERS then
1301: if p_commit = FND_API.G_TRUE then
1306: x_msg_count := 1 ;
1307: x_msg_data := SUBSTRB(SQLERRM,1,240);
1308: -- 4537865
1309:
1310: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
1311: p_procedure_name => 'Update_Structure_Version_Attr',
1312: p_error_text => x_msg_data); -- 4537865
1313: raise;
1314: END Update_Structure_Version_Attr;
1449: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1450: END IF;
1451:
1452: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1453: FND_MSG_PUB.initialize;
1454: END IF;
1455:
1456: IF (p_debug_mode = 'Y') THEN
1457: pa_debug.debug('get structure version_info');
1514: ,x_msg_data => l_msg_data);
1515:
1516: -- Checking the return status.
1517: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1518: x_msg_count := FND_MSG_PUB.count_msg;
1519: IF x_msg_count = 1 then
1520: pa_interface_utils_pub.get_messages
1521: (p_encoded => FND_API.G_TRUE,
1522: p_msg_index => 1,
1577: x_return_status => l_return_status,
1578: x_msg_count => l_msg_count,
1579: x_msg_data => l_msg_data);
1580: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1581: x_msg_count := FND_MSG_PUB.count_msg;
1582: IF x_msg_count = 1 then
1583: pa_interface_utils_pub.get_messages
1584: (p_encoded => FND_API.G_TRUE,
1585: p_msg_index => 1,
1617: END IF;
1618:
1619: --check for errors.
1620: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1621: x_msg_count := FND_MSG_PUB.count_msg;
1622: IF x_msg_count = 1 then
1623: pa_interface_utils_pub.get_messages
1624: (p_encoded => FND_API.G_TRUE,
1625: p_msg_index => 1,
1644: x_return_status => l_return_status,
1645: x_msg_count => l_msg_count,
1646: x_msg_data => l_msg_data);
1647: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1648: x_msg_count := FND_MSG_PUB.count_msg;
1649: IF x_msg_count = 1 then
1650: pa_interface_utils_pub.get_messages
1651: (p_encoded => FND_API.G_TRUE,
1652: p_msg_index => 1,
1674: x_msg_count => l_msg_count,
1675: x_msg_data => l_msg_data);
1676:
1677: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1678: x_msg_count := FND_MSG_PUB.count_msg;
1679: IF x_msg_count = 1 then
1680: pa_interface_utils_pub.get_messages
1681: (p_encoded => FND_API.G_TRUE,
1682: p_msg_index => 1,
1716: );
1717:
1718: --Check error
1719: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1720: x_msg_count := FND_MSG_PUB.count_msg;
1721: IF x_msg_count = 1 then
1722: pa_interface_utils_pub.get_messages
1723: (p_encoded => FND_API.G_TRUE,
1724: p_msg_index => 1,
1741: );
1742:
1743: --Check error
1744: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1745: x_msg_count := FND_MSG_PUB.count_msg;
1746: IF x_msg_count = 1 then
1747: pa_interface_utils_pub.get_messages
1748: (p_encoded => FND_API.G_TRUE,
1749: p_msg_index => 1,
1771: CLOSE is_last_version;
1772:
1773: --Check error
1774: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1775: x_msg_count := FND_MSG_PUB.count_msg;
1776: IF x_msg_count = 1 then
1777: pa_interface_utils_pub.get_messages
1778: (p_encoded => FND_API.G_TRUE,
1779: p_msg_index => 1,
1799: when FND_API.G_EXC_ERROR then
1800: if p_commit = FND_API.G_TRUE then
1801: rollback to delete_structure_version;
1802: end if;
1803: x_msg_count := FND_MSG_PUB.count_msg;
1804: x_return_status := FND_API.G_RET_STS_ERROR;
1805: when FND_API.G_EXC_UNEXPECTED_ERROR then
1806: if p_commit = FND_API.G_TRUE then
1807: rollback to delete_structure_version;
1811: x_msg_count := 1 ;
1812: x_msg_data := SUBSTRB(SQLERRM,1,240);
1813: -- 4537865
1814:
1815: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
1816: p_procedure_name => 'Delete_Structure_Version',
1817: p_error_text => x_msg_data); -- 4537865
1818: when OTHERS then
1819: if p_commit = FND_API.G_TRUE then
1824: x_msg_count := 1 ;
1825: x_msg_data := SUBSTRB(SQLERRM,1,240);
1826: -- 4537865
1827:
1828: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
1829: p_procedure_name => 'Delete_Structure_Version',
1830: p_error_text => x_msg_data); -- 4537865
1831: raise;
1832: END DELETE_STRUCTURE_VERSION;
1927: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1928: END IF;
1929:
1930: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1931: FND_MSG_PUB.initialize;
1932: END IF;
1933:
1934: --Check if this structure can be published (ie, if linked structures are published)
1935: IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.Check_Publish_Struc_Ver_Ok(p_structure_version_id)) THEN
1966:
1967: -- error_msg('public --> '||l_return_status||l_msg_count||l_msg_data);
1968:
1969: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1970: x_msg_count := FND_MSG_PUB.count_msg;
1971: IF x_msg_count = 1 then
1972: pa_interface_utils_pub.get_messages
1973: (p_encoded => FND_API.G_TRUE,
1974: p_msg_index => 1,
2016: ,x_msg_data => l_msg_data
2017: );
2018:
2019: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2020: x_msg_count := FND_MSG_PUB.count_msg;
2021: IF x_msg_count = 1 then
2022: pa_interface_utils_pub.get_messages
2023: (p_encoded => FND_API.G_TRUE,
2024: p_msg_index => 1,
2041: ,x_return_status => l_return_status
2042: ) ;
2043:
2044: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2045: x_msg_count := FND_MSG_PUB.count_msg;
2046: IF x_msg_count = 1 then
2047: pa_interface_utils_pub.get_messages
2048: (p_encoded => FND_API.G_TRUE,
2049: p_msg_index => 1,
2085: x_msg_data := SUBSTRB(SQLERRM,1,240);
2086: x_published_struct_ver_id := NULL ;
2087: -- 4537865
2088:
2089: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2090: p_procedure_name => 'PUBLISH_STRUCTURE',
2091: p_error_text => x_msg_data); -- 4537865
2092: when OTHERS then
2093: if p_commit = FND_API.G_TRUE then
2099: x_msg_data := SUBSTRB(SQLERRM,1,240);
2100: x_published_struct_ver_id := NULL ;
2101: -- 4537865
2102:
2103: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2104: p_procedure_name => 'PUBLISH_STRUCTURE',
2105: p_error_text => x_msg_data); -- 4537865
2106: raise;
2107: END Publish_Structure;
2180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2181: END IF;
2182:
2183: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2184: FND_MSG_PUB.initialize;
2185: END IF;
2186:
2187: PA_PROJECT_STRUCTURE_PVT1.Copy_Structure
2188: ( p_commit => FND_API.G_FALSE
2202: ,x_msg_count => l_msg_count
2203: ,x_msg_data => l_msg_data);
2204:
2205: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2206: x_msg_count := FND_MSG_PUB.count_msg;
2207: IF x_msg_count = 1 then
2208: pa_interface_utils_pub.get_messages
2209: (p_encoded => FND_API.G_TRUE,
2210: p_msg_index => 1,
2241: x_msg_count := 1 ;
2242: x_msg_data := SUBSTRB(SQLERRM,1,240);
2243: -- 4537865
2244: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2245: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2246: p_procedure_name => 'COPY_STRUCTURE',
2247: p_error_text => x_msg_data); -- 4537865
2248: when OTHERS then
2249: if p_commit = FND_API.G_TRUE then
2253: -- 4537865
2254: x_msg_count := 1 ;
2255: x_msg_data := SUBSTRB(SQLERRM,1,240);
2256: -- 4537865
2257: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2258: p_procedure_name => 'COPY_STRUCTURE',
2259: p_error_text => x_msg_data); -- 4537865
2260: raise;
2261: END Copy_Structure;
2334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2335: END IF;
2336:
2337: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2338: FND_MSG_PUB.initialize;
2339: END IF;
2340:
2341: PA_PROJECT_STRUCTURE_PVT1.Copy_Structure_Version_bulk
2342: ( p_commit => FND_API.G_FALSE
2354: ,x_msg_count => l_msg_count
2355: ,x_msg_data => l_msg_data);
2356:
2357: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2358: x_msg_count := FND_MSG_PUB.count_msg;
2359: IF x_msg_count = 1 then
2360: pa_interface_utils_pub.get_messages
2361: (p_encoded => FND_API.G_TRUE,
2362: p_msg_index => 1,
2396: x_msg_count := 1 ;
2397: x_msg_data := SUBSTRB(SQLERRM,1,240);
2398: x_new_struct_ver_id := NULL ;
2399: -- 4537865
2400: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2401: p_procedure_name => 'COPY_STRUCTURE_VERSION',
2402: p_error_text => x_msg_data); -- 4537865
2403: when OTHERS then
2404: if p_commit = FND_API.G_TRUE then
2409: x_msg_count := 1 ;
2410: x_msg_data := SUBSTRB(SQLERRM,1,240);
2411: x_new_struct_ver_id := NULL ;
2412: -- 4537865
2413: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2414: p_procedure_name => 'COPY_STRUCTURE_VERSION',
2415: p_error_text => x_msg_data); -- 4537865
2416: raise;
2417: END Copy_Structure_Version;
2460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2461: END IF;
2462:
2463: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2464: FND_MSG_PUB.initialize;
2465: END IF;
2466:
2467: --Check if this structure can be published (ie, if linked structures are published)
2468: IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.Check_Publish_Struc_Ver_Ok(p_structure_version_id)) THEN
2487: ,x_msg_count => x_msg_count
2488: ,x_msg_data => x_msg_data
2489: );
2490:
2491: x_msg_count := FND_MSG_PUB.count_msg;
2492: IF (x_msg_count > 0) THEN
2493: IF x_msg_count = 1 then
2494: pa_interface_utils_pub.get_messages
2495: (p_encoded => FND_API.G_TRUE,
2526: -- 4537865
2527: x_msg_count := 1 ;
2528: x_msg_data := SUBSTRB(SQLERRM,1,240);
2529: -- 4537865
2530: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2531: p_procedure_name => 'SUBMIT_WORKPLAN',
2532: p_error_text => x_msg_data); -- 4537865
2533: when OTHERS then
2534: if p_commit = FND_API.G_TRUE then
2538: -- 4537865
2539: x_msg_count := 1 ;
2540: x_msg_data := SUBSTRB(SQLERRM,1,240);
2541: -- 4537865
2542: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2543: p_procedure_name => 'SUBMIT_WORKPLAN',
2544: p_error_text => x_msg_data); -- 4537865
2545: raise;
2546: END SUBMIT_WORKPLAN;
2588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2589: END IF;
2590:
2591: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2592: FND_MSG_PUB.initialize;
2593: END IF;
2594:
2595: PA_PROJECT_STRUCTURE_PVT1.REWORK_WORKPLAN(
2596: p_api_version => 1.0
2607: ,x_msg_count => x_msg_count
2608: ,x_msg_data => x_msg_data
2609: );
2610:
2611: x_msg_count := FND_MSG_PUB.count_msg;
2612: IF (x_msg_count > 0) THEN
2613: IF x_msg_count = 1 then
2614: pa_interface_utils_pub.get_messages
2615: (p_encoded => FND_API.G_TRUE,
2645: -- 4537865
2646: x_msg_count := 1 ;
2647: x_msg_data := SUBSTRB(SQLERRM,1,240);
2648: -- 4537865
2649: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2650: p_procedure_name => 'REWORK_WORKPLAN',
2651: p_error_text => x_msg_data); -- 4537865
2652: when OTHERS then
2653: if p_commit = FND_API.G_TRUE then
2657: -- 4537865
2658: x_msg_count := 1 ;
2659: x_msg_data := SUBSTRB(SQLERRM,1,240);
2660: -- 4537865
2661: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2662: p_procedure_name => 'REWORK_WORKPLAN',
2663: p_error_text => x_msg_data); -- 4537865
2664: raise;
2665: END rework_workplan;
2736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2737: END IF;
2738:
2739: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2740: FND_MSG_PUB.initialize;
2741: END IF;
2742:
2743: PA_PROJECT_STRUCTURE_PVT1.UPDATE_STRUCTURES_SETUP_ATTR(
2744: p_api_version => p_api_version
2763: ,p_cbs_version_id => p_cbs_version_id
2764: ,p_cbs_enable_flag => p_cbs_enable_flag -- Bug16083858
2765: );
2766:
2767: x_msg_count := FND_MSG_PUB.count_msg;
2768: IF (x_msg_count > 0) THEN
2769: IF x_msg_count = 1 then
2770: pa_interface_utils_pub.get_messages
2771: (p_encoded => FND_API.G_TRUE,
2801: x_msg_count := 1 ;
2802: x_msg_data := SUBSTRB(SQLERRM,1,240);
2803: -- 4537865
2804: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2805: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2806: p_procedure_name => 'update_structures_setup_attr',
2807: p_error_text => x_msg_data); -- 4537865
2808: when OTHERS then
2809: if p_commit = FND_API.G_TRUE then
2813: -- 4537865
2814: x_msg_count := 1 ;
2815: x_msg_data := SUBSTRB(SQLERRM,1,240);
2816: -- 4537865
2817: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2818: p_procedure_name => 'update_structures_setup_attr',
2819: p_error_text => x_msg_data); -- 4537865
2820: raise;
2821: END update_structures_setup_attr;
2857: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2858: END IF;
2859:
2860: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2861: FND_MSG_PUB.initialize;
2862: END IF;
2863:
2864: PA_PROJECT_STRUCTURE_PVT1.update_workplan_versioning(
2865: p_api_version => p_api_version
2876: ,x_msg_count => x_msg_count
2877: ,x_msg_data => x_msg_data
2878: );
2879:
2880: x_msg_count := FND_MSG_PUB.count_msg;
2881: IF (x_msg_count > 0) THEN
2882: IF x_msg_count = 1 then
2883: pa_interface_utils_pub.get_messages
2884: (p_encoded => FND_API.G_TRUE,
2914: -- 4537865
2915: x_msg_count := 1 ;
2916: x_msg_data := SUBSTRB(SQLERRM,1,240);
2917: -- 4537865
2918: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2919: p_procedure_name => 'update_workplan_versioning',
2920: p_error_text => x_msg_data); -- 4537865
2921: when OTHERS then
2922: if p_commit = FND_API.G_TRUE then
2926: -- 4537865
2927: x_msg_count := 1 ;
2928: x_msg_data := SUBSTRB(SQLERRM,1,240);
2929: -- 4537865
2930: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2931: p_procedure_name => 'update_workplan_versioning',
2932: p_error_text => x_msg_data); -- 4537865
2933: raise;
2934: END update_workplan_versioning;
3007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3008: END IF;
3009:
3010: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3011: FND_MSG_PUB.initialize;
3012: END IF;
3013:
3014: OPEN c1;
3015: FETCH c1 into l_project_id;
3043: x_msg_count => l_msg_count,
3044: x_msg_data => l_msg_data);
3045:
3046: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3047: x_msg_count := FND_MSG_PUB.count_msg;
3048: IF x_msg_count = 1 then
3049: pa_interface_utils_pub.get_messages
3050: (p_encoded => FND_API.G_TRUE,
3051: p_msg_index => 1,
3066: when FND_API.G_EXC_ERROR then
3067: if p_commit = FND_API.G_TRUE then
3068: rollback to delete_working_struc_ver;
3069: end if;
3070: x_msg_count := FND_MSG_PUB.count_msg;
3071: x_return_status := FND_API.G_RET_STS_ERROR;
3072: when FND_API.G_EXC_UNEXPECTED_ERROR then
3073: if p_commit = FND_API.G_TRUE then
3074: rollback to delete_working_struc_ver;
3077: -- 4537865
3078: x_msg_count := 1 ;
3079: x_msg_data := SUBSTRB(SQLERRM,1,240);
3080: -- 4537865
3081: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3082: p_procedure_name => 'Delete_Working_Struc_Ver',
3083: p_error_text => x_msg_data); -- 4537865
3084: when OTHERS then
3085: if p_commit = FND_API.G_TRUE then
3089: -- 4537865
3090: x_msg_count := 1 ;
3091: x_msg_data := SUBSTRB(SQLERRM,1,240);
3092: -- 4537865
3093: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3094: p_procedure_name => 'Delete_Working_Struc_Ver',
3095: p_error_text => x_msg_data); -- 4537865
3096: raise;
3097: END DELETE_WORKING_STRUC_VER;
3152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3153: END IF;
3154:
3155: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3156: FND_MSG_PUB.initialize;
3157: END IF;
3158:
3159: PA_WORKPLAN_ATTR_PVT.CREATE_PROJ_WORKPLAN_ATTRS(
3160: p_commit => p_commit
3182: );
3183:
3184: -- 4537865 : This was missing earlier
3185: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3186: x_msg_count := FND_MSG_PUB.count_msg;
3187: IF x_msg_count = 1 then
3188: pa_interface_utils_pub.get_messages
3189: (p_encoded => FND_API.G_TRUE,
3190: p_msg_index => 1,
3222: ,x_msg_data => l_msg_data
3223: );
3224:
3225: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3226: x_msg_count := FND_MSG_PUB.count_msg;
3227: IF x_msg_count = 1 then
3228: pa_interface_utils_pub.get_messages
3229: (p_encoded => FND_API.G_TRUE,
3230: p_msg_index => 1,
3261: -- 4537865
3262: x_msg_count := 1 ;
3263: x_msg_data := SUBSTRB(SQLERRM,1,240);
3264: -- 4537865
3265: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3266: p_procedure_name => 'ENABLE_FINANCIAL_STRUCTURE',
3267: p_error_text => x_msg_data); -- 4537865
3268: when OTHERS then
3269: if p_commit = FND_API.G_TRUE then
3273: -- 4537865
3274: x_msg_count := 1 ;
3275: x_msg_data := SUBSTRB(SQLERRM,1,240);
3276: -- 4537865
3277: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3278: p_procedure_name => 'ENABLE_FINANCIAL_STRUCTURE',
3279: p_error_text => x_msg_data); -- 4537865
3280: raise;
3281:
3348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3349: END IF;
3350:
3351: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3352: FND_MSG_PUB.initialize;
3353: END IF;
3354:
3355: l_check_sharing_enabled := PA_PROJECT_STRUCTURE_UTILS.CHECK_SHARING_ENABLED(p_project_id);
3356:
3489: ,x_msg_count => l_msg_count
3490: ,x_msg_data => l_msg_data
3491: );
3492: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3493: x_msg_count := FND_MSG_PUB.count_msg;
3494: IF x_msg_count = 1 then
3495: pa_interface_utils_pub.get_messages
3496: (p_encoded => FND_API.G_TRUE,
3497: p_msg_index => 1,
3519: ,x_msg_data => l_msg_data
3520: );
3521:
3522: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3523: x_msg_count := FND_MSG_PUB.count_msg;
3524: IF x_msg_count = 1 then
3525: pa_interface_utils_pub.get_messages
3526: (p_encoded => FND_API.G_TRUE,
3527: p_msg_index => 1,
3559: -- 4537865
3560: x_msg_count := 1 ;
3561: x_msg_data := SUBSTRB(SQLERRM,1,240);
3562: -- 4537865
3563: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3564: p_procedure_name => 'DISABLE_FINANCIAL_STRUCTURE',
3565: p_error_text => x_msg_data); -- 4537865
3566: when OTHERS then
3567: if p_commit = FND_API.G_TRUE then
3571: -- 4537865
3572: x_msg_count := 1 ;
3573: x_msg_data := SUBSTRB(SQLERRM,1,240);
3574: -- 4537865
3575: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3576: p_procedure_name => 'DISABLE_FINANCIAL_STRUCTURE',
3577: p_error_text => x_msg_data); -- 4537865
3578: raise;
3579:
3645: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3646: END IF;
3647:
3648: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3649: FND_MSG_PUB.initialize;
3650: END IF;
3651:
3652: IF (p_structure_version_id IS NOT NULL) THEN
3653: UPDATE PA_PROJ_ELEMENT_VERSIONS
3663: AND ELEMENT_VERSION_ID = p_task_version_id;
3664: END IF;
3665:
3666: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3667: x_msg_count := FND_MSG_PUB.count_msg;
3668: IF x_msg_count = 1 then
3669: pa_interface_utils_pub.get_messages
3670: (p_encoded => FND_API.G_TRUE,
3671: p_msg_index => 1,
3702: -- 4537865
3703: x_msg_count := 1 ;
3704: x_msg_data := SUBSTRB(SQLERRM,1,240);
3705: -- 4537865
3706: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3707: p_procedure_name => 'CLEAR_FINANCIAL_FLAG',
3708: p_error_text => x_msg_data); -- 4537865
3709: when OTHERS then
3710: if p_commit = FND_API.G_TRUE then
3714: -- 4537865
3715: x_msg_count := 1 ;
3716: x_msg_data := SUBSTRB(SQLERRM,1,240);
3717: -- 4537865
3718: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3719: p_procedure_name => 'CLEAR_FINANCIAL_FLAG',
3720: p_error_text => x_msg_data); -- 4537865
3721: raise;
3722:
3784: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3785: END IF;
3786: --
3787: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3788: FND_MSG_PUB.initialize;
3789: END IF;
3790: --
3791: PA_PROJECT_STRUCTURE_PVT1.Update_Sch_Dirty_Flag(
3792: p_project_id =>p_project_id
3796: ,x_msg_count =>x_msg_count
3797: ,x_msg_data =>x_msg_data
3798: );
3799: --
3800: x_msg_count := FND_MSG_PUB.count_msg;
3801: IF (x_msg_count > 0) THEN
3802: IF x_msg_count = 1 THEN
3803: pa_interface_utils_pub.get_messages
3804: (p_encoded => FND_API.G_TRUE,
3834: -- 4537865
3835: x_msg_count := 1 ;
3836: x_msg_data := SUBSTRB(SQLERRM,1,240);
3837: -- 4537865
3838: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3839: p_procedure_name => 'update_sch_dirty_flag',
3840: p_error_text => x_msg_data); -- 4537865
3841: WHEN OTHERS THEN
3842: IF p_commit = FND_API.G_TRUE THEN
3846: -- 4537865
3847: x_msg_count := 1 ;
3848: x_msg_data := SUBSTRB(SQLERRM,1,240);
3849: -- 4537865
3850: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3851: p_procedure_name => 'update_sch_dirty_flag',
3852: p_error_text => x_msg_data); -- 4537865
3853: RAISE;
3854: END update_sch_dirty_flag;
3976: IF p_commit = FND_API.G_TRUE THEN
3977: ROLLBACK TO DELETE_PUBLISHED_STRUCTURE_VER;
3978: END IF;
3979: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3980: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3981: p_procedure_name => 'DELETE_PUBLISHED_STRUCTURE_VER',
3982: p_error_text => SUBSTRB(SQLERRM,1,240));
3983: WHEN OTHERS THEN
3984: IF p_commit = FND_API.G_TRUE THEN
3986: ROLLBACK TO DELETE_PUBLISHED_STRUCTURE_VER;
3987:
3988: END IF;
3989: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3990: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3991: p_procedure_name => 'DELETE_PUBLISHED_STRUCTURE_VER',
3992: p_error_text => SUBSTRB(SQLERRM,1,240));
3993: RAISE;
3994:
4040: -- Initialize the message table Unconditionally.
4041:
4042: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
4043:
4044: FND_MSG_PUB.initialize;
4045: END IF;
4046:
4047: -- Set API return status to success
4048: x_return_status := FND_API.G_RET_STS_SUCCESS;
4065: x_return_status => l_return_status,
4066: x_msg_count => l_msg_count,
4067: x_msg_data => l_msg_data);
4068: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4069: l_msg_count := FND_MSG_PUB.count_msg;
4070: x_msg_data := l_msg_data;
4071: RAISE FND_API.G_EXC_ERROR;
4072: END IF;
4073:
4079: x_return_status => l_return_status,
4080: x_msg_count => l_msg_count,
4081: x_msg_data => l_msg_data);
4082: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4083: l_msg_count := FND_MSG_PUB.count_msg;
4084: x_msg_data := l_msg_data;
4085: RAISE FND_API.G_EXC_ERROR;
4086: END IF;
4087:
4098:
4099: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4100:
4101: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4102: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
4103: p_procedure_name => 'DELETE_PUBLISHED_STRUCTURE_VER',
4104: p_error_text => SUBSTRB(SQLERRM,1,240));
4105:
4106: WHEN OTHERS THEN
4105:
4106: WHEN OTHERS THEN
4107:
4108: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4109: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
4110: p_procedure_name => 'DELETE_PUBLISHED_STRUCTURE_VER',
4111: p_error_text => SUBSTRB(SQLERRM,1,240));
4112:
4113: RAISE;
4167: ,x_msg_count => x_msg_count
4168: ,x_msg_data => x_msg_data
4169: );
4170:
4171: x_msg_count := FND_MSG_PUB.count_msg;
4172:
4173: IF (x_msg_count > 0) THEN
4174:
4175: IF x_msg_count = 1 THEN
4197:
4198: x_msg_count := 1 ;
4199: x_msg_data := SUBSTRB(SQLERRM,1,240);
4200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4201: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
4202: p_procedure_name => 'enable_program_flag',
4203: p_error_text => x_msg_data);
4204: WHEN OTHERS THEN
4205:
4205:
4206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4207: x_msg_count := 1 ;
4208: x_msg_data := SUBSTRB(SQLERRM,1,240);
4209: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
4210: p_procedure_name => 'enable_program_flag',
4211: p_error_text => x_msg_data);
4212: RAISE;
4213: