[Home] [Help]
1: package body PA_PROJECT_STRUCTURE_PUB1 as
2: /*$Header: PAXSTCPB.pls 120.10.12020000.11 2013/05/21 12:54:08 djambhek ship $*/
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PA_PROJECT_STRUCTURE_PUB1';
5:
1: package body PA_PROJECT_STRUCTURE_PUB1 as
2: /*$Header: PAXSTCPB.pls 120.10.12020000.11 2013/05/21 12:54:08 djambhek ship $*/
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PA_PROJECT_STRUCTURE_PUB1';
5:
6: FUNCTION CHECK_ACTION_ALLOWED
7: ( p_action IN VARCHAR2
8: ,p_version_id IN NUMBER
54: l_msg_data VARCHAR2(2000);
55: l_user_id NUMBER;
56: l_approval_opt VARCHAR2(1);
57: BEGIN
58: l_user_id := pa_project_structure_pub1.GetGlobalUserId();
59: if l_user_id is null then
60: return fnd_api.g_false;
61: end if;
62:
226:
227: PROCEDURE SetGlobalUserId ( p_user_id NUMBER )
228: IS
229: BEGIN
230: pa_project_structure_pub1.global_user_id := p_user_id;
231: END SetGlobalUserId;
232:
233:
234: FUNCTION GetGlobalUserId RETURN NUMBER
233:
234: FUNCTION GetGlobalUserId RETURN NUMBER
235: IS
236: BEGIN
237: RETURN ( pa_project_structure_pub1.global_user_id );
238: END GetGlobalUserId;
239:
240:
241: -- API name : Create_Structure
351: l_msg_index_out NUMBER;
352:
353:
354: BEGIN
355: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE');
356:
357: IF (p_debug_mode = 'Y') THEN
358: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE begin');
359: END IF;
354: BEGIN
355: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE');
356:
357: IF (p_debug_mode = 'Y') THEN
358: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE begin');
359: END IF;
360:
361: IF (p_commit = FND_API.G_TRUE) THEN
362: savepoint create_structure;
449: COMMIT;
450: END IF;
451:
452: IF (p_debug_mode = 'Y') THEN
453: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE END');
454: END IF;
455:
456: EXCEPTION
457: when FND_API.G_EXC_ERROR then
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;
564: l_data VARCHAR2(250);
565: l_msg_index_out NUMBER;
566:
567: BEGIN
568: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE_VERSION');
569:
570: IF (p_debug_mode = 'Y') THEN
571: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE_VERSION begin');
572: END IF;
567: BEGIN
568: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE_VERSION');
569:
570: IF (p_debug_mode = 'Y') THEN
571: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE_VERSION begin');
572: END IF;
573:
574: IF (p_commit = FND_API.G_TRUE) THEN
575: savepoint create_structure_version;
637: COMMIT;
638: END IF;
639:
640: IF (p_debug_mode = 'Y') THEN
641: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE_VERSION END');
642: END IF;
643:
644: EXCEPTION
645: when FND_API.G_EXC_ERROR then
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;
739: l_data VARCHAR2(250);
740: l_msg_index_out NUMBER;
741:
742: BEGIN
743: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE_VERSION_ATTR');
744:
745: IF (p_debug_mode = 'Y') THEN
746: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE_VERSION_ATTR begin');
747: END IF;
742: BEGIN
743: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE_VERSION_ATTR');
744:
745: IF (p_debug_mode = 'Y') THEN
746: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE_VERSION_ATTR begin');
747: END IF;
748:
749: IF (p_commit = FND_API.G_TRUE) THEN
750: savepoint create_structure_version_attr;
806: COMMIT;
807: END IF;
808:
809: IF (p_debug_mode = 'Y') THEN
810: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE_VERSION_ATTR END');
811: END IF;
812:
813: EXCEPTION
814: when FND_API.G_EXC_ERROR then
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;
941: l_dummy VARCHAR2(1);
942:
943:
944: BEGIN
945: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.UPDATE_STRUCTURE');
946:
947: IF (p_debug_mode = 'Y') THEN
948: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.UPDATE_STRUCTURE begin');
949: END IF;
944: BEGIN
945: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.UPDATE_STRUCTURE');
946:
947: IF (p_debug_mode = 'Y') THEN
948: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.UPDATE_STRUCTURE begin');
949: END IF;
950:
951: IF (p_commit = FND_API.G_TRUE) THEN
952: savepoint update_structure;
1075: COMMIT;
1076: END IF;
1077:
1078: IF (p_debug_mode = 'Y') THEN
1079: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.UPDATE_STRUCTURE end');
1080: END IF;
1081:
1082: EXCEPTION
1083: when FND_API.G_EXC_ERROR then
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;
1190: l_data VARCHAR2(250);
1191: l_msg_index_out NUMBER;
1192:
1193: BEGIN
1194: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.Update_Structure_Version_Attr');
1195:
1196: IF (p_debug_mode = 'Y') THEN
1197: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.UPDATE_STRUCTURE_VERSION_ATTR begin');
1198: END IF;
1193: BEGIN
1194: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.Update_Structure_Version_Attr');
1195:
1196: IF (p_debug_mode = 'Y') THEN
1197: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.UPDATE_STRUCTURE_VERSION_ATTR begin');
1198: END IF;
1199:
1200: IF (p_commit = FND_API.G_TRUE) THEN
1201: savepoint update_structure_version_attr;
1274: COMMIT;
1275: END IF;
1276:
1277: IF (p_debug_mode = 'Y') THEN
1278: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.UPDATE_STRUCTURE_VERSION_ATTR END');
1279: END IF;
1280:
1281: EXCEPTION
1282: when FND_API.G_EXC_ERROR then
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;
1434: i BINARY_INTEGER := 0;
1435:
1436:
1437: BEGIN
1438: pa_debug.init_err_stack('PA_PROJECT_STRUCTURE_PUB1.Delete_Structure_Version');
1439:
1440: IF (p_debug_mode = 'Y') THEN
1441: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.DELETE_STRUCTURE_VERSION begin');
1442: END IF;
1437: BEGIN
1438: pa_debug.init_err_stack('PA_PROJECT_STRUCTURE_PUB1.Delete_Structure_Version');
1439:
1440: IF (p_debug_mode = 'Y') THEN
1441: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.DELETE_STRUCTURE_VERSION begin');
1442: END IF;
1443:
1444: IF (p_commit = FND_API.G_TRUE) THEN
1445: savepoint delete_structure_version;
1502:
1503: l_str(1) := p_structure_version_id;
1504: l_rvn(1) := p_record_version_number;
1505:
1506: PA_PROJECT_STRUCTURE_PUB1.DELETE_PUBLISHED_STRUCTURE_VER(
1507: p_api_version => p_api_version
1508: ,p_init_msg_list => p_init_msg_list
1509: ,p_project_id => l_project_id
1510: ,p_structure_version_id_tbl => l_str
1789:
1790: x_return_status := FND_API.G_RET_STS_SUCCESS;
1791:
1792: IF (p_debug_mode = 'Y') THEN
1793: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.DELETE_STRUCTURE_VERSION end');
1794: END IF;
1795:
1796: END IF; -- End of IF l_strucutre_status = 'STRUCTURE_PUBLISHED' THEN
1797:
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;
1912: from pa_proj_element_versions
1913: where element_version_id = p_structure_version_id;
1914:
1915: BEGIN
1916: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.PUBLISH_STRUCTURE');
1917:
1918: IF (p_debug_mode = 'Y') THEN
1919: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.PUBLISH_STRUCTURE begin');
1920: END IF;
1915: BEGIN
1916: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.PUBLISH_STRUCTURE');
1917:
1918: IF (p_debug_mode = 'Y') THEN
1919: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.PUBLISH_STRUCTURE begin');
1920: END IF;
1921:
1922: IF (p_commit = FND_API.G_TRUE) THEN
1923: savepoint publish_structure;
2063: COMMIT;
2064: END IF;
2065:
2066: IF (p_debug_mode = 'Y') THEN
2067: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.PUBLISH_STRUCTURE end');
2068: END IF;
2069:
2070: EXCEPTION
2071: when FND_API.G_EXC_ERROR then
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;
2165: l_data VARCHAR2(250);
2166: l_msg_index_out NUMBER;
2167: BEGIN
2168:
2169: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.COPY_STRUCTURE');
2170:
2171: IF (p_debug_mode = 'Y') THEN
2172: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.COPY_STRUCTURE begin');
2173: END IF;
2168:
2169: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.COPY_STRUCTURE');
2170:
2171: IF (p_debug_mode = 'Y') THEN
2172: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.COPY_STRUCTURE begin');
2173: END IF;
2174:
2175: IF (p_commit = FND_API.G_TRUE) THEN
2176: savepoint copy_structure;
2223: COMMIT;
2224: END IF;
2225:
2226: IF (p_debug_mode = 'Y') THEN
2227: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.COPY_STRUCTURE END');
2228: END IF;
2229:
2230: EXCEPTION
2231: when FND_API.G_EXC_ERROR then
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;
2319: l_data VARCHAR2(250);
2320: l_msg_index_out NUMBER;
2321: BEGIN
2322:
2323: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.COPY_STRUCTURE_VERSION');
2324:
2325: IF (p_debug_mode = 'Y') THEN
2326: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.COPY_STRUCTURE_VERSION begin');
2327: END IF;
2322:
2323: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.COPY_STRUCTURE_VERSION');
2324:
2325: IF (p_debug_mode = 'Y') THEN
2326: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.COPY_STRUCTURE_VERSION begin');
2327: END IF;
2328:
2329: IF (p_commit = FND_API.G_TRUE) THEN
2330: savepoint copy_structure_version;
2376: COMMIT;
2377: END IF;
2378:
2379: IF (p_debug_mode = 'Y') THEN
2380: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.COPY_STRUCTURE_VERSION END');
2381: END IF;
2382:
2383: EXCEPTION
2384: when FND_API.G_EXC_ERROR then
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;
2445: l_data VARCHAR2(250);
2446: l_msg_index_out NUMBER;
2447: l_project_id NUMBER;
2448: BEGIN
2449: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.SUBMIT_WORKPLAN');
2450:
2451: IF (p_debug_mode = 'Y') THEN
2452: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.SUBMIT_WORKPLAN begin');
2453: END IF;
2448: BEGIN
2449: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.SUBMIT_WORKPLAN');
2450:
2451: IF (p_debug_mode = 'Y') THEN
2452: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.SUBMIT_WORKPLAN begin');
2453: END IF;
2454:
2455: IF (p_commit = FND_API.G_TRUE) THEN
2456: savepoint submit_workplan;
2508: COMMIT;
2509: END IF;
2510:
2511: IF (p_debug_mode = 'Y') THEN
2512: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.SUBMIT_WORKPLAN end');
2513: END IF;
2514:
2515: EXCEPTION
2516: when FND_API.G_EXC_ERROR then
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;
2573: l_data VARCHAR2(250);
2574: l_msg_index_out NUMBER;
2575: l_project_id NUMBER;
2576: BEGIN
2577: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.REWORK_WORKPLAN');
2578:
2579: IF (p_debug_mode = 'Y') THEN
2580: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.REWORK_WORKPLAN begin');
2581: END IF;
2576: BEGIN
2577: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.REWORK_WORKPLAN');
2578:
2579: IF (p_debug_mode = 'Y') THEN
2580: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.REWORK_WORKPLAN begin');
2581: END IF;
2582:
2583: IF (p_commit = FND_API.G_TRUE) THEN
2584: savepoint rework_workplan;
2627: COMMIT;
2628: END IF;
2629:
2630: IF (p_debug_mode = 'Y') THEN
2631: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.REWORK_WORKPLAN end');
2632: END IF;
2633:
2634: EXCEPTION
2635: when FND_API.G_EXC_ERROR then
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;
2721: l_data VARCHAR2(250);
2722: l_msg_index_out NUMBER;
2723:
2724: BEGIN
2725: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.update_structures_setup_attr');
2726:
2727: IF (p_debug_mode = 'Y') THEN
2728: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.update_structures_setup_attr begin');
2729: END IF;
2724: BEGIN
2725: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.update_structures_setup_attr');
2726:
2727: IF (p_debug_mode = 'Y') THEN
2728: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.update_structures_setup_attr begin');
2729: END IF;
2730:
2731: IF (p_commit = FND_API.G_TRUE) THEN
2732: savepoint update_struc_setup_attr_pub;
2783: COMMIT;
2784: END IF;
2785:
2786: IF (p_debug_mode = 'Y') THEN
2787: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.UPDATE_STRUCTURES_SETUP_ATTR end');
2788: END IF;
2789:
2790: EXCEPTION
2791: when FND_API.G_EXC_ERROR then
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;
2842: l_data VARCHAR2(250);
2843: l_msg_index_out NUMBER;
2844:
2845: BEGIN
2846: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.update_structures_setup_attr');
2847:
2848: IF (p_debug_mode = 'Y') THEN
2849: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.update_structures_setup_attr begin');
2850: END IF;
2845: BEGIN
2846: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.update_structures_setup_attr');
2847:
2848: IF (p_debug_mode = 'Y') THEN
2849: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.update_structures_setup_attr begin');
2850: END IF;
2851:
2852: IF (p_commit = FND_API.G_TRUE) THEN
2853: savepoint update_wp_versioning_pub;
2896: COMMIT;
2897: END IF;
2898:
2899: IF (p_debug_mode = 'Y') THEN
2900: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.UPDATE_WORKPLAN_VERSIONING end');
2901: END IF;
2902:
2903: EXCEPTION
2904: when FND_API.G_EXC_ERROR then
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;
2992: where element_version_id = p_structure_version_id;
2993: l_project_id NUMBER;
2994:
2995: BEGIN
2996: pa_debug.init_err_stack('PA_PROJECT_STRUCTURE_PUB1.Delete_Working_Struc_Ver');
2997:
2998: IF (p_debug_mode = 'Y') THEN
2999: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.DELETE_WORKINGSTRUC_VER begin');
3000: END IF;
2995: BEGIN
2996: pa_debug.init_err_stack('PA_PROJECT_STRUCTURE_PUB1.Delete_Working_Struc_Ver');
2997:
2998: IF (p_debug_mode = 'Y') THEN
2999: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.DELETE_WORKINGSTRUC_VER begin');
3000: END IF;
3001:
3002: IF (p_commit = FND_API.G_TRUE) THEN
3003: savepoint delete_working_struc_ver;
3058:
3059: x_return_status := FND_API.G_RET_STS_SUCCESS;
3060:
3061: IF (p_debug_mode = 'Y') THEN
3062: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.DELETE_STRUCTURE_VERSION end');
3063: END IF;
3064:
3065: EXCEPTION
3066: when FND_API.G_EXC_ERROR then
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;
3137: l_proj_progress_attr_id NUMBER;
3138:
3139: BEGIN
3140:
3141: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.ENABLE_FINANCIAL_STRUCTURE');
3142:
3143: IF (p_debug_mode = 'Y') THEN
3144: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.ENABLE_FINANCIAL_STRUCTURE begin');
3145: END IF;
3140:
3141: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.ENABLE_FINANCIAL_STRUCTURE');
3142:
3143: IF (p_debug_mode = 'Y') THEN
3144: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.ENABLE_FINANCIAL_STRUCTURE begin');
3145: END IF;
3146:
3147: IF (p_commit = FND_API.G_TRUE) THEN
3148: savepoint ENABLE_FINANCIAL_STRUCTURE;
3243: COMMIT;
3244: END IF;
3245:
3246: IF (p_debug_mode = 'Y') THEN
3247: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.ENABLE_FINANCIAL_STRUCTURE END');
3248: END IF;
3249:
3250: EXCEPTION
3251: when FND_API.G_EXC_ERROR then
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:
3333: where proj_element_id = c_structure_id
3334: and project_id = p_project_id;
3335:
3336: BEGIN
3337: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.DISABLE_FINANCIAL_STRUCTURE');
3338:
3339: IF (p_debug_mode = 'Y') THEN
3340: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.DISABLE_FINANCIAL_STRUCTURE begin');
3341: END IF;
3336: BEGIN
3337: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.DISABLE_FINANCIAL_STRUCTURE');
3338:
3339: IF (p_debug_mode = 'Y') THEN
3340: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.DISABLE_FINANCIAL_STRUCTURE begin');
3341: END IF;
3342:
3343: IF (p_commit = FND_API.G_TRUE) THEN
3344: savepoint DISABLE_FINANCIAL_STRUCTURE;
3398: SET FINANCIAL_TASK_FLAG = 'N'
3399: WHERE PROJECT_ID = p_project_id
3400: AND PROJ_ELEMENT_ID = l_task_id;
3401: ELSE
3402: PA_PROJ_TASK_STRUC_PUB.DELETE_TASK_STRUCTURE(p_calling_module => 'PA_PROJECT_STRUCTURE_PUB1.DISABLE_FINANCIAL_STRUCTURE',
3403: p_project_id => p_project_id,
3404: p_task_id => l_task_id,
3405: x_msg_count => l_msg_count,
3406: x_msg_data => l_msg_data,
3481: LOOP
3482: FETCH get_struc_ver_info INTO l_parent_structure_version_id, l_record_version_number;
3483: EXIT WHEN get_Struc_ver_info%NOTFOUND;
3484:
3485: PA_PROJECT_STRUCTURE_PUB1.DELETE_STRUCTURE_VERSION(
3486: p_structure_version_id => l_parent_structure_version_id
3487: ,p_record_version_number => l_record_version_number
3488: ,x_return_status => l_return_status
3489: ,x_msg_count => l_msg_count
3541: COMMIT;
3542: END IF;
3543:
3544: IF (p_debug_mode = 'Y') THEN
3545: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.DISABLE_FINANCIAL_STRUCTURE END');
3546: END IF;
3547:
3548: EXCEPTION
3549: when FND_API.G_EXC_ERROR then
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:
3630: l_data VARCHAR2(250);
3631: l_msg_index_out NUMBER;
3632: BEGIN
3633:
3634: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.CLEAR_FINANCIAL_FLAG');
3635:
3636: IF (p_debug_mode = 'Y') THEN
3637: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.CLEAR_FINANCIAL_FLAG begin');
3638: END IF;
3633:
3634: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.CLEAR_FINANCIAL_FLAG');
3635:
3636: IF (p_debug_mode = 'Y') THEN
3637: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.CLEAR_FINANCIAL_FLAG begin');
3638: END IF;
3639:
3640: IF (p_commit = FND_API.G_TRUE) THEN
3641: savepoint CLEAR_FINANCIAL_FLAG;
3684: COMMIT;
3685: END IF;
3686:
3687: IF (p_debug_mode = 'Y') THEN
3688: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.CLEAR_FINANCIAL_FLAG END');
3689: END IF;
3690:
3691: EXCEPTION
3692: when FND_API.G_EXC_ERROR then
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:
3769: l_data VARCHAR2(250);
3770: l_msg_index_out NUMBER;
3771: --
3772: BEGIN
3773: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.update_sch_dirty_flag');
3774: --
3775: IF (p_debug_mode = 'Y') THEN
3776: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.update_sch_dirty_flag begin');
3777: END IF;
3772: BEGIN
3773: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.update_sch_dirty_flag');
3774: --
3775: IF (p_debug_mode = 'Y') THEN
3776: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.update_sch_dirty_flag begin');
3777: END IF;
3778: --
3779: IF (p_commit = FND_API.G_TRUE) THEN
3780: savepoint update_sch_dirty_flag_pub;
3816: COMMIT;
3817: END IF;
3818: --
3819: IF (p_debug_mode = 'Y') THEN
3820: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.UPDATE_SCH_DIRTY_FLAG end');
3821: END IF;
3822: --
3823: EXCEPTION
3824: WHEN FND_API.G_EXC_ERROR THEN
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;
3917:
3918:
3919: BEGIN
3920: -- Call the actual delete API
3921: PA_PROJECT_STRUCTURE_PUB1.delete_working_struc_ver(
3922: p_api_version => 1.0,
3923: p_structure_version_id => p_structure_version_id_tbl(i),
3924: p_record_version_number => p_record_version_number_tbl(i),
3925: x_return_status => l_return_status,
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:
4071: RAISE FND_API.G_EXC_ERROR;
4072: END IF;
4073:
4074: -- Call the actual delete API
4075: PA_PROJECT_STRUCTURE_PUB1.delete_working_struc_ver(
4076: p_api_version => 1.0,
4077: p_structure_version_id => p_structure_version_id_tbl(i),
4078: p_record_version_number => p_record_version_number_tbl(i),
4079: x_return_status => l_return_status,
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;
4146: l_fin_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_financial_enabled(p_project_id);
4147: l_delv_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_deliverable_enabled(p_project_id);
4148: l_share_code := PA_PROJECT_STRUCTURE_UTILS.Get_Structure_sharing_code(p_project_id);
4149:
4150: PA_PROJECT_STRUCTURE_PUB1.UPDATE_STRUCTURES_SETUP_ATTR(
4151: p_api_version => 1.0
4152: ,p_init_msg_list => 'T'
4153: ,p_commit => 'F'
4154: --,p_validate_only => 'T'
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:
4616:
4617: END VALIDATE_PROJECT_FOR_CBS;
4618: --
4619: --
4620: end PA_PROJECT_STRUCTURE_PUB1;