[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;
1926: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1927: END IF;
1928:
1929: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1930: FND_MSG_PUB.initialize;
1931: END IF;
1932:
1933: --Check if this structure can be published (ie, if linked structures are published)
1934: IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.Check_Publish_Struc_Ver_Ok(p_structure_version_id)) THEN
1965:
1966: -- error_msg('public --> '||l_return_status||l_msg_count||l_msg_data);
1967:
1968: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1969: x_msg_count := FND_MSG_PUB.count_msg;
1970: IF x_msg_count = 1 then
1971: pa_interface_utils_pub.get_messages
1972: (p_encoded => FND_API.G_TRUE,
1973: p_msg_index => 1,
2002: ,x_msg_data => l_msg_data
2003: );
2004:
2005: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2006: x_msg_count := FND_MSG_PUB.count_msg;
2007: IF x_msg_count = 1 then
2008: pa_interface_utils_pub.get_messages
2009: (p_encoded => FND_API.G_TRUE,
2010: p_msg_index => 1,
2027: ,x_return_status => l_return_status
2028: ) ;
2029:
2030: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2031: x_msg_count := FND_MSG_PUB.count_msg;
2032: IF x_msg_count = 1 then
2033: pa_interface_utils_pub.get_messages
2034: (p_encoded => FND_API.G_TRUE,
2035: p_msg_index => 1,
2069: x_msg_data := SUBSTRB(SQLERRM,1,240);
2070: x_published_struct_ver_id := NULL ;
2071: -- 4537865
2072:
2073: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2074: p_procedure_name => 'PUBLISH_STRUCTURE',
2075: p_error_text => x_msg_data); -- 4537865
2076: when OTHERS then
2077: if p_commit = FND_API.G_TRUE then
2083: x_msg_data := SUBSTRB(SQLERRM,1,240);
2084: x_published_struct_ver_id := NULL ;
2085: -- 4537865
2086:
2087: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2088: p_procedure_name => 'PUBLISH_STRUCTURE',
2089: p_error_text => x_msg_data); -- 4537865
2090: raise;
2091: END Publish_Structure;
2164: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2165: END IF;
2166:
2167: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2168: FND_MSG_PUB.initialize;
2169: END IF;
2170:
2171: PA_PROJECT_STRUCTURE_PVT1.Copy_Structure
2172: ( p_commit => FND_API.G_FALSE
2186: ,x_msg_count => l_msg_count
2187: ,x_msg_data => l_msg_data);
2188:
2189: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2190: x_msg_count := FND_MSG_PUB.count_msg;
2191: IF x_msg_count = 1 then
2192: pa_interface_utils_pub.get_messages
2193: (p_encoded => FND_API.G_TRUE,
2194: p_msg_index => 1,
2225: x_msg_count := 1 ;
2226: x_msg_data := SUBSTRB(SQLERRM,1,240);
2227: -- 4537865
2228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2229: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2230: p_procedure_name => 'COPY_STRUCTURE',
2231: p_error_text => x_msg_data); -- 4537865
2232: when OTHERS then
2233: if p_commit = FND_API.G_TRUE then
2237: -- 4537865
2238: x_msg_count := 1 ;
2239: x_msg_data := SUBSTRB(SQLERRM,1,240);
2240: -- 4537865
2241: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2242: p_procedure_name => 'COPY_STRUCTURE',
2243: p_error_text => x_msg_data); -- 4537865
2244: raise;
2245: END Copy_Structure;
2318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2319: END IF;
2320:
2321: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2322: FND_MSG_PUB.initialize;
2323: END IF;
2324:
2325: PA_PROJECT_STRUCTURE_PVT1.Copy_Structure_Version_bulk
2326: ( p_commit => FND_API.G_FALSE
2338: ,x_msg_count => l_msg_count
2339: ,x_msg_data => l_msg_data);
2340:
2341: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2342: x_msg_count := FND_MSG_PUB.count_msg;
2343: IF x_msg_count = 1 then
2344: pa_interface_utils_pub.get_messages
2345: (p_encoded => FND_API.G_TRUE,
2346: p_msg_index => 1,
2380: x_msg_count := 1 ;
2381: x_msg_data := SUBSTRB(SQLERRM,1,240);
2382: x_new_struct_ver_id := NULL ;
2383: -- 4537865
2384: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2385: p_procedure_name => 'COPY_STRUCTURE_VERSION',
2386: p_error_text => x_msg_data); -- 4537865
2387: when OTHERS then
2388: if p_commit = FND_API.G_TRUE then
2393: x_msg_count := 1 ;
2394: x_msg_data := SUBSTRB(SQLERRM,1,240);
2395: x_new_struct_ver_id := NULL ;
2396: -- 4537865
2397: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2398: p_procedure_name => 'COPY_STRUCTURE_VERSION',
2399: p_error_text => x_msg_data); -- 4537865
2400: raise;
2401: END Copy_Structure_Version;
2444: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2445: END IF;
2446:
2447: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2448: FND_MSG_PUB.initialize;
2449: END IF;
2450:
2451: --Check if this structure can be published (ie, if linked structures are published)
2452: IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.Check_Publish_Struc_Ver_Ok(p_structure_version_id)) THEN
2471: ,x_msg_count => x_msg_count
2472: ,x_msg_data => x_msg_data
2473: );
2474:
2475: x_msg_count := FND_MSG_PUB.count_msg;
2476: IF (x_msg_count > 0) THEN
2477: IF x_msg_count = 1 then
2478: pa_interface_utils_pub.get_messages
2479: (p_encoded => FND_API.G_TRUE,
2510: -- 4537865
2511: x_msg_count := 1 ;
2512: x_msg_data := SUBSTRB(SQLERRM,1,240);
2513: -- 4537865
2514: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2515: p_procedure_name => 'SUBMIT_WORKPLAN',
2516: p_error_text => x_msg_data); -- 4537865
2517: when OTHERS then
2518: if p_commit = FND_API.G_TRUE then
2522: -- 4537865
2523: x_msg_count := 1 ;
2524: x_msg_data := SUBSTRB(SQLERRM,1,240);
2525: -- 4537865
2526: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2527: p_procedure_name => 'SUBMIT_WORKPLAN',
2528: p_error_text => x_msg_data); -- 4537865
2529: raise;
2530: END SUBMIT_WORKPLAN;
2572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2573: END IF;
2574:
2575: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2576: FND_MSG_PUB.initialize;
2577: END IF;
2578:
2579: PA_PROJECT_STRUCTURE_PVT1.REWORK_WORKPLAN(
2580: p_api_version => 1.0
2591: ,x_msg_count => x_msg_count
2592: ,x_msg_data => x_msg_data
2593: );
2594:
2595: x_msg_count := FND_MSG_PUB.count_msg;
2596: IF (x_msg_count > 0) THEN
2597: IF x_msg_count = 1 then
2598: pa_interface_utils_pub.get_messages
2599: (p_encoded => FND_API.G_TRUE,
2629: -- 4537865
2630: x_msg_count := 1 ;
2631: x_msg_data := SUBSTRB(SQLERRM,1,240);
2632: -- 4537865
2633: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2634: p_procedure_name => 'REWORK_WORKPLAN',
2635: p_error_text => x_msg_data); -- 4537865
2636: when OTHERS then
2637: if p_commit = FND_API.G_TRUE then
2641: -- 4537865
2642: x_msg_count := 1 ;
2643: x_msg_data := SUBSTRB(SQLERRM,1,240);
2644: -- 4537865
2645: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2646: p_procedure_name => 'REWORK_WORKPLAN',
2647: p_error_text => x_msg_data); -- 4537865
2648: raise;
2649: END rework_workplan;
2718: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2719: END IF;
2720:
2721: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2722: FND_MSG_PUB.initialize;
2723: END IF;
2724:
2725: PA_PROJECT_STRUCTURE_PVT1.UPDATE_STRUCTURES_SETUP_ATTR(
2726: p_api_version => p_api_version
2743: ,x_msg_count => x_msg_count
2744: ,x_msg_data => x_msg_data
2745: );
2746:
2747: x_msg_count := FND_MSG_PUB.count_msg;
2748: IF (x_msg_count > 0) THEN
2749: IF x_msg_count = 1 then
2750: pa_interface_utils_pub.get_messages
2751: (p_encoded => FND_API.G_TRUE,
2781: x_msg_count := 1 ;
2782: x_msg_data := SUBSTRB(SQLERRM,1,240);
2783: -- 4537865
2784: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2785: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2786: p_procedure_name => 'update_structures_setup_attr',
2787: p_error_text => x_msg_data); -- 4537865
2788: when OTHERS then
2789: if p_commit = FND_API.G_TRUE then
2793: -- 4537865
2794: x_msg_count := 1 ;
2795: x_msg_data := SUBSTRB(SQLERRM,1,240);
2796: -- 4537865
2797: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2798: p_procedure_name => 'update_structures_setup_attr',
2799: p_error_text => x_msg_data); -- 4537865
2800: raise;
2801: END update_structures_setup_attr;
2837: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2838: END IF;
2839:
2840: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2841: FND_MSG_PUB.initialize;
2842: END IF;
2843:
2844: PA_PROJECT_STRUCTURE_PVT1.update_workplan_versioning(
2845: p_api_version => p_api_version
2856: ,x_msg_count => x_msg_count
2857: ,x_msg_data => x_msg_data
2858: );
2859:
2860: x_msg_count := FND_MSG_PUB.count_msg;
2861: IF (x_msg_count > 0) THEN
2862: IF x_msg_count = 1 then
2863: pa_interface_utils_pub.get_messages
2864: (p_encoded => FND_API.G_TRUE,
2894: -- 4537865
2895: x_msg_count := 1 ;
2896: x_msg_data := SUBSTRB(SQLERRM,1,240);
2897: -- 4537865
2898: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2899: p_procedure_name => 'update_workplan_versioning',
2900: p_error_text => x_msg_data); -- 4537865
2901: when OTHERS then
2902: if p_commit = FND_API.G_TRUE then
2906: -- 4537865
2907: x_msg_count := 1 ;
2908: x_msg_data := SUBSTRB(SQLERRM,1,240);
2909: -- 4537865
2910: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2911: p_procedure_name => 'update_workplan_versioning',
2912: p_error_text => x_msg_data); -- 4537865
2913: raise;
2914: END update_workplan_versioning;
2987: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2988: END IF;
2989:
2990: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2991: FND_MSG_PUB.initialize;
2992: END IF;
2993:
2994: OPEN c1;
2995: FETCH c1 into l_project_id;
3023: x_msg_count => l_msg_count,
3024: x_msg_data => l_msg_data);
3025:
3026: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3027: x_msg_count := FND_MSG_PUB.count_msg;
3028: IF x_msg_count = 1 then
3029: pa_interface_utils_pub.get_messages
3030: (p_encoded => FND_API.G_TRUE,
3031: p_msg_index => 1,
3046: when FND_API.G_EXC_ERROR then
3047: if p_commit = FND_API.G_TRUE then
3048: rollback to delete_working_struc_ver;
3049: end if;
3050: x_msg_count := FND_MSG_PUB.count_msg;
3051: x_return_status := FND_API.G_RET_STS_ERROR;
3052: when FND_API.G_EXC_UNEXPECTED_ERROR then
3053: if p_commit = FND_API.G_TRUE then
3054: rollback to delete_working_struc_ver;
3057: -- 4537865
3058: x_msg_count := 1 ;
3059: x_msg_data := SUBSTRB(SQLERRM,1,240);
3060: -- 4537865
3061: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3062: p_procedure_name => 'Delete_Working_Struc_Ver',
3063: p_error_text => x_msg_data); -- 4537865
3064: when OTHERS then
3065: if p_commit = FND_API.G_TRUE then
3069: -- 4537865
3070: x_msg_count := 1 ;
3071: x_msg_data := SUBSTRB(SQLERRM,1,240);
3072: -- 4537865
3073: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3074: p_procedure_name => 'Delete_Working_Struc_Ver',
3075: p_error_text => x_msg_data); -- 4537865
3076: raise;
3077: END DELETE_WORKING_STRUC_VER;
3132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3133: END IF;
3134:
3135: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3136: FND_MSG_PUB.initialize;
3137: END IF;
3138:
3139: PA_WORKPLAN_ATTR_PVT.CREATE_PROJ_WORKPLAN_ATTRS(
3140: p_commit => p_commit
3162: );
3163:
3164: -- 4537865 : This was missing earlier
3165: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3166: x_msg_count := FND_MSG_PUB.count_msg;
3167: IF x_msg_count = 1 then
3168: pa_interface_utils_pub.get_messages
3169: (p_encoded => FND_API.G_TRUE,
3170: p_msg_index => 1,
3202: ,x_msg_data => l_msg_data
3203: );
3204:
3205: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3206: x_msg_count := FND_MSG_PUB.count_msg;
3207: IF x_msg_count = 1 then
3208: pa_interface_utils_pub.get_messages
3209: (p_encoded => FND_API.G_TRUE,
3210: p_msg_index => 1,
3241: -- 4537865
3242: x_msg_count := 1 ;
3243: x_msg_data := SUBSTRB(SQLERRM,1,240);
3244: -- 4537865
3245: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3246: p_procedure_name => 'ENABLE_FINANCIAL_STRUCTURE',
3247: p_error_text => x_msg_data); -- 4537865
3248: when OTHERS then
3249: if p_commit = FND_API.G_TRUE then
3253: -- 4537865
3254: x_msg_count := 1 ;
3255: x_msg_data := SUBSTRB(SQLERRM,1,240);
3256: -- 4537865
3257: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3258: p_procedure_name => 'ENABLE_FINANCIAL_STRUCTURE',
3259: p_error_text => x_msg_data); -- 4537865
3260: raise;
3261:
3328: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3329: END IF;
3330:
3331: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3332: FND_MSG_PUB.initialize;
3333: END IF;
3334:
3335: l_check_sharing_enabled := PA_PROJECT_STRUCTURE_UTILS.CHECK_SHARING_ENABLED(p_project_id);
3336:
3469: ,x_msg_count => l_msg_count
3470: ,x_msg_data => l_msg_data
3471: );
3472: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3473: x_msg_count := FND_MSG_PUB.count_msg;
3474: IF x_msg_count = 1 then
3475: pa_interface_utils_pub.get_messages
3476: (p_encoded => FND_API.G_TRUE,
3477: p_msg_index => 1,
3499: ,x_msg_data => l_msg_data
3500: );
3501:
3502: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3503: x_msg_count := FND_MSG_PUB.count_msg;
3504: IF x_msg_count = 1 then
3505: pa_interface_utils_pub.get_messages
3506: (p_encoded => FND_API.G_TRUE,
3507: p_msg_index => 1,
3539: -- 4537865
3540: x_msg_count := 1 ;
3541: x_msg_data := SUBSTRB(SQLERRM,1,240);
3542: -- 4537865
3543: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3544: p_procedure_name => 'DISABLE_FINANCIAL_STRUCTURE',
3545: p_error_text => x_msg_data); -- 4537865
3546: when OTHERS then
3547: if p_commit = FND_API.G_TRUE then
3551: -- 4537865
3552: x_msg_count := 1 ;
3553: x_msg_data := SUBSTRB(SQLERRM,1,240);
3554: -- 4537865
3555: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3556: p_procedure_name => 'DISABLE_FINANCIAL_STRUCTURE',
3557: p_error_text => x_msg_data); -- 4537865
3558: raise;
3559:
3625: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3626: END IF;
3627:
3628: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3629: FND_MSG_PUB.initialize;
3630: END IF;
3631:
3632: IF (p_structure_version_id IS NOT NULL) THEN
3633: UPDATE PA_PROJ_ELEMENT_VERSIONS
3643: AND ELEMENT_VERSION_ID = p_task_version_id;
3644: END IF;
3645:
3646: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3647: x_msg_count := FND_MSG_PUB.count_msg;
3648: IF x_msg_count = 1 then
3649: pa_interface_utils_pub.get_messages
3650: (p_encoded => FND_API.G_TRUE,
3651: p_msg_index => 1,
3682: -- 4537865
3683: x_msg_count := 1 ;
3684: x_msg_data := SUBSTRB(SQLERRM,1,240);
3685: -- 4537865
3686: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3687: p_procedure_name => 'CLEAR_FINANCIAL_FLAG',
3688: p_error_text => x_msg_data); -- 4537865
3689: when OTHERS then
3690: if p_commit = FND_API.G_TRUE then
3694: -- 4537865
3695: x_msg_count := 1 ;
3696: x_msg_data := SUBSTRB(SQLERRM,1,240);
3697: -- 4537865
3698: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3699: p_procedure_name => 'CLEAR_FINANCIAL_FLAG',
3700: p_error_text => x_msg_data); -- 4537865
3701: raise;
3702:
3764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3765: END IF;
3766: --
3767: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3768: FND_MSG_PUB.initialize;
3769: END IF;
3770: --
3771: PA_PROJECT_STRUCTURE_PVT1.Update_Sch_Dirty_Flag(
3772: p_project_id =>p_project_id
3776: ,x_msg_count =>x_msg_count
3777: ,x_msg_data =>x_msg_data
3778: );
3779: --
3780: x_msg_count := FND_MSG_PUB.count_msg;
3781: IF (x_msg_count > 0) THEN
3782: IF x_msg_count = 1 THEN
3783: pa_interface_utils_pub.get_messages
3784: (p_encoded => FND_API.G_TRUE,
3814: -- 4537865
3815: x_msg_count := 1 ;
3816: x_msg_data := SUBSTRB(SQLERRM,1,240);
3817: -- 4537865
3818: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3819: p_procedure_name => 'update_sch_dirty_flag',
3820: p_error_text => x_msg_data); -- 4537865
3821: WHEN OTHERS THEN
3822: IF p_commit = FND_API.G_TRUE THEN
3826: -- 4537865
3827: x_msg_count := 1 ;
3828: x_msg_data := SUBSTRB(SQLERRM,1,240);
3829: -- 4537865
3830: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3831: p_procedure_name => 'update_sch_dirty_flag',
3832: p_error_text => x_msg_data); -- 4537865
3833: RAISE;
3834: END update_sch_dirty_flag;
3956: IF p_commit = FND_API.G_TRUE THEN
3957: ROLLBACK TO DELETE_PUBLISHED_STRUCTURE_VER;
3958: END IF;
3959: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3960: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3961: p_procedure_name => 'DELETE_PUBLISHED_STRUCTURE_VER',
3962: p_error_text => SUBSTRB(SQLERRM,1,240));
3963: WHEN OTHERS THEN
3964: IF p_commit = FND_API.G_TRUE THEN
3966: ROLLBACK TO DELETE_PUBLISHED_STRUCTURE_VER;
3967:
3968: END IF;
3969: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3970: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3971: p_procedure_name => 'DELETE_PUBLISHED_STRUCTURE_VER',
3972: p_error_text => SUBSTRB(SQLERRM,1,240));
3973: RAISE;
3974:
4020: -- Initialize the message table Unconditionally.
4021:
4022: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
4023:
4024: FND_MSG_PUB.initialize;
4025: END IF;
4026:
4027: -- Set API return status to success
4028: x_return_status := FND_API.G_RET_STS_SUCCESS;
4045: x_return_status => l_return_status,
4046: x_msg_count => l_msg_count,
4047: x_msg_data => l_msg_data);
4048: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4049: l_msg_count := FND_MSG_PUB.count_msg;
4050: x_msg_data := l_msg_data;
4051: RAISE FND_API.G_EXC_ERROR;
4052: END IF;
4053:
4059: x_return_status => l_return_status,
4060: x_msg_count => l_msg_count,
4061: x_msg_data => l_msg_data);
4062: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4063: l_msg_count := FND_MSG_PUB.count_msg;
4064: x_msg_data := l_msg_data;
4065: RAISE FND_API.G_EXC_ERROR;
4066: END IF;
4067:
4078:
4079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4080:
4081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4082: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
4083: p_procedure_name => 'DELETE_PUBLISHED_STRUCTURE_VER',
4084: p_error_text => SUBSTRB(SQLERRM,1,240));
4085:
4086: WHEN OTHERS THEN
4085:
4086: WHEN OTHERS THEN
4087:
4088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4089: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
4090: p_procedure_name => 'DELETE_PUBLISHED_STRUCTURE_VER',
4091: p_error_text => SUBSTRB(SQLERRM,1,240));
4092:
4093: RAISE;
4147: ,x_msg_count => x_msg_count
4148: ,x_msg_data => x_msg_data
4149: );
4150:
4151: x_msg_count := FND_MSG_PUB.count_msg;
4152:
4153: IF (x_msg_count > 0) THEN
4154:
4155: IF x_msg_count = 1 THEN
4177:
4178: x_msg_count := 1 ;
4179: x_msg_data := SUBSTRB(SQLERRM,1,240);
4180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4181: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
4182: p_procedure_name => 'enable_program_flag',
4183: p_error_text => x_msg_data);
4184: WHEN OTHERS THEN
4185:
4185:
4186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4187: x_msg_count := 1 ;
4188: x_msg_data := SUBSTRB(SQLERRM,1,240);
4189: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
4190: p_procedure_name => 'enable_program_flag',
4191: p_error_text => x_msg_data);
4192: RAISE;
4193: