[Home] [Help]
1: package body PA_PROJECT_STRUCTURE_PUB1 as
2: /*$Header: PAXSTCPB.pls 120.8 2007/07/10 05:57:14 kkorada 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.8 2007/07/10 05:57:14 kkorada 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;
1911: from pa_proj_element_versions
1912: where element_version_id = p_structure_version_id;
1913:
1914: BEGIN
1915: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.PUBLISH_STRUCTURE');
1916:
1917: IF (p_debug_mode = 'Y') THEN
1918: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.PUBLISH_STRUCTURE begin');
1919: END IF;
1914: BEGIN
1915: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.PUBLISH_STRUCTURE');
1916:
1917: IF (p_debug_mode = 'Y') THEN
1918: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.PUBLISH_STRUCTURE begin');
1919: END IF;
1920:
1921: IF (p_commit = FND_API.G_TRUE) THEN
1922: savepoint publish_structure;
2047: COMMIT;
2048: END IF;
2049:
2050: IF (p_debug_mode = 'Y') THEN
2051: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.PUBLISH_STRUCTURE end');
2052: END IF;
2053:
2054: EXCEPTION
2055: when FND_API.G_EXC_ERROR then
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;
2149: l_data VARCHAR2(250);
2150: l_msg_index_out NUMBER;
2151: BEGIN
2152:
2153: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.COPY_STRUCTURE');
2154:
2155: IF (p_debug_mode = 'Y') THEN
2156: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.COPY_STRUCTURE begin');
2157: END IF;
2152:
2153: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.COPY_STRUCTURE');
2154:
2155: IF (p_debug_mode = 'Y') THEN
2156: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.COPY_STRUCTURE begin');
2157: END IF;
2158:
2159: IF (p_commit = FND_API.G_TRUE) THEN
2160: savepoint copy_structure;
2207: COMMIT;
2208: END IF;
2209:
2210: IF (p_debug_mode = 'Y') THEN
2211: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.COPY_STRUCTURE END');
2212: END IF;
2213:
2214: EXCEPTION
2215: when FND_API.G_EXC_ERROR then
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;
2303: l_data VARCHAR2(250);
2304: l_msg_index_out NUMBER;
2305: BEGIN
2306:
2307: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.COPY_STRUCTURE_VERSION');
2308:
2309: IF (p_debug_mode = 'Y') THEN
2310: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.COPY_STRUCTURE_VERSION begin');
2311: END IF;
2306:
2307: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.COPY_STRUCTURE_VERSION');
2308:
2309: IF (p_debug_mode = 'Y') THEN
2310: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.COPY_STRUCTURE_VERSION begin');
2311: END IF;
2312:
2313: IF (p_commit = FND_API.G_TRUE) THEN
2314: savepoint copy_structure_version;
2360: COMMIT;
2361: END IF;
2362:
2363: IF (p_debug_mode = 'Y') THEN
2364: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.COPY_STRUCTURE_VERSION END');
2365: END IF;
2366:
2367: EXCEPTION
2368: when FND_API.G_EXC_ERROR then
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;
2429: l_data VARCHAR2(250);
2430: l_msg_index_out NUMBER;
2431: l_project_id NUMBER;
2432: BEGIN
2433: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.SUBMIT_WORKPLAN');
2434:
2435: IF (p_debug_mode = 'Y') THEN
2436: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.SUBMIT_WORKPLAN begin');
2437: END IF;
2432: BEGIN
2433: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.SUBMIT_WORKPLAN');
2434:
2435: IF (p_debug_mode = 'Y') THEN
2436: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.SUBMIT_WORKPLAN begin');
2437: END IF;
2438:
2439: IF (p_commit = FND_API.G_TRUE) THEN
2440: savepoint submit_workplan;
2492: COMMIT;
2493: END IF;
2494:
2495: IF (p_debug_mode = 'Y') THEN
2496: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.SUBMIT_WORKPLAN end');
2497: END IF;
2498:
2499: EXCEPTION
2500: when FND_API.G_EXC_ERROR then
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;
2557: l_data VARCHAR2(250);
2558: l_msg_index_out NUMBER;
2559: l_project_id NUMBER;
2560: BEGIN
2561: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.REWORK_WORKPLAN');
2562:
2563: IF (p_debug_mode = 'Y') THEN
2564: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.REWORK_WORKPLAN begin');
2565: END IF;
2560: BEGIN
2561: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.REWORK_WORKPLAN');
2562:
2563: IF (p_debug_mode = 'Y') THEN
2564: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.REWORK_WORKPLAN begin');
2565: END IF;
2566:
2567: IF (p_commit = FND_API.G_TRUE) THEN
2568: savepoint rework_workplan;
2611: COMMIT;
2612: END IF;
2613:
2614: IF (p_debug_mode = 'Y') THEN
2615: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.REWORK_WORKPLAN end');
2616: END IF;
2617:
2618: EXCEPTION
2619: when FND_API.G_EXC_ERROR then
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;
2703: l_data VARCHAR2(250);
2704: l_msg_index_out NUMBER;
2705:
2706: BEGIN
2707: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.update_structures_setup_attr');
2708:
2709: IF (p_debug_mode = 'Y') THEN
2710: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.update_structures_setup_attr begin');
2711: END IF;
2706: BEGIN
2707: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.update_structures_setup_attr');
2708:
2709: IF (p_debug_mode = 'Y') THEN
2710: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.update_structures_setup_attr begin');
2711: END IF;
2712:
2713: IF (p_commit = FND_API.G_TRUE) THEN
2714: savepoint update_struc_setup_attr_pub;
2763: COMMIT;
2764: END IF;
2765:
2766: IF (p_debug_mode = 'Y') THEN
2767: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.UPDATE_STRUCTURES_SETUP_ATTR end');
2768: END IF;
2769:
2770: EXCEPTION
2771: when FND_API.G_EXC_ERROR then
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;
2822: l_data VARCHAR2(250);
2823: l_msg_index_out NUMBER;
2824:
2825: BEGIN
2826: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.update_structures_setup_attr');
2827:
2828: IF (p_debug_mode = 'Y') THEN
2829: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.update_structures_setup_attr begin');
2830: END IF;
2825: BEGIN
2826: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.update_structures_setup_attr');
2827:
2828: IF (p_debug_mode = 'Y') THEN
2829: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.update_structures_setup_attr begin');
2830: END IF;
2831:
2832: IF (p_commit = FND_API.G_TRUE) THEN
2833: savepoint update_wp_versioning_pub;
2876: COMMIT;
2877: END IF;
2878:
2879: IF (p_debug_mode = 'Y') THEN
2880: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.UPDATE_WORKPLAN_VERSIONING end');
2881: END IF;
2882:
2883: EXCEPTION
2884: when FND_API.G_EXC_ERROR then
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;
2972: where element_version_id = p_structure_version_id;
2973: l_project_id NUMBER;
2974:
2975: BEGIN
2976: pa_debug.init_err_stack('PA_PROJECT_STRUCTURE_PUB1.Delete_Working_Struc_Ver');
2977:
2978: IF (p_debug_mode = 'Y') THEN
2979: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.DELETE_WORKINGSTRUC_VER begin');
2980: END IF;
2975: BEGIN
2976: pa_debug.init_err_stack('PA_PROJECT_STRUCTURE_PUB1.Delete_Working_Struc_Ver');
2977:
2978: IF (p_debug_mode = 'Y') THEN
2979: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.DELETE_WORKINGSTRUC_VER begin');
2980: END IF;
2981:
2982: IF (p_commit = FND_API.G_TRUE) THEN
2983: savepoint delete_working_struc_ver;
3038:
3039: x_return_status := FND_API.G_RET_STS_SUCCESS;
3040:
3041: IF (p_debug_mode = 'Y') THEN
3042: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.DELETE_STRUCTURE_VERSION end');
3043: END IF;
3044:
3045: EXCEPTION
3046: when FND_API.G_EXC_ERROR then
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;
3117: l_proj_progress_attr_id NUMBER;
3118:
3119: BEGIN
3120:
3121: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.ENABLE_FINANCIAL_STRUCTURE');
3122:
3123: IF (p_debug_mode = 'Y') THEN
3124: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.ENABLE_FINANCIAL_STRUCTURE begin');
3125: END IF;
3120:
3121: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.ENABLE_FINANCIAL_STRUCTURE');
3122:
3123: IF (p_debug_mode = 'Y') THEN
3124: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.ENABLE_FINANCIAL_STRUCTURE begin');
3125: END IF;
3126:
3127: IF (p_commit = FND_API.G_TRUE) THEN
3128: savepoint ENABLE_FINANCIAL_STRUCTURE;
3223: COMMIT;
3224: END IF;
3225:
3226: IF (p_debug_mode = 'Y') THEN
3227: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.ENABLE_FINANCIAL_STRUCTURE END');
3228: END IF;
3229:
3230: EXCEPTION
3231: when FND_API.G_EXC_ERROR then
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:
3313: where proj_element_id = c_structure_id
3314: and project_id = p_project_id;
3315:
3316: BEGIN
3317: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.DISABLE_FINANCIAL_STRUCTURE');
3318:
3319: IF (p_debug_mode = 'Y') THEN
3320: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.DISABLE_FINANCIAL_STRUCTURE begin');
3321: END IF;
3316: BEGIN
3317: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.DISABLE_FINANCIAL_STRUCTURE');
3318:
3319: IF (p_debug_mode = 'Y') THEN
3320: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.DISABLE_FINANCIAL_STRUCTURE begin');
3321: END IF;
3322:
3323: IF (p_commit = FND_API.G_TRUE) THEN
3324: savepoint DISABLE_FINANCIAL_STRUCTURE;
3378: SET FINANCIAL_TASK_FLAG = 'N'
3379: WHERE PROJECT_ID = p_project_id
3380: AND PROJ_ELEMENT_ID = l_task_id;
3381: ELSE
3382: PA_PROJ_TASK_STRUC_PUB.DELETE_TASK_STRUCTURE(p_calling_module => 'PA_PROJECT_STRUCTURE_PUB1.DISABLE_FINANCIAL_STRUCTURE',
3383: p_project_id => p_project_id,
3384: p_task_id => l_task_id,
3385: x_msg_count => l_msg_count,
3386: x_msg_data => l_msg_data,
3461: LOOP
3462: FETCH get_struc_ver_info INTO l_parent_structure_version_id, l_record_version_number;
3463: EXIT WHEN get_Struc_ver_info%NOTFOUND;
3464:
3465: PA_PROJECT_STRUCTURE_PUB1.DELETE_STRUCTURE_VERSION(
3466: p_structure_version_id => l_parent_structure_version_id
3467: ,p_record_version_number => l_record_version_number
3468: ,x_return_status => l_return_status
3469: ,x_msg_count => l_msg_count
3521: COMMIT;
3522: END IF;
3523:
3524: IF (p_debug_mode = 'Y') THEN
3525: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.DISABLE_FINANCIAL_STRUCTURE END');
3526: END IF;
3527:
3528: EXCEPTION
3529: when FND_API.G_EXC_ERROR then
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:
3610: l_data VARCHAR2(250);
3611: l_msg_index_out NUMBER;
3612: BEGIN
3613:
3614: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.CLEAR_FINANCIAL_FLAG');
3615:
3616: IF (p_debug_mode = 'Y') THEN
3617: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.CLEAR_FINANCIAL_FLAG begin');
3618: END IF;
3613:
3614: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.CLEAR_FINANCIAL_FLAG');
3615:
3616: IF (p_debug_mode = 'Y') THEN
3617: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.CLEAR_FINANCIAL_FLAG begin');
3618: END IF;
3619:
3620: IF (p_commit = FND_API.G_TRUE) THEN
3621: savepoint CLEAR_FINANCIAL_FLAG;
3664: COMMIT;
3665: END IF;
3666:
3667: IF (p_debug_mode = 'Y') THEN
3668: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.CLEAR_FINANCIAL_FLAG END');
3669: END IF;
3670:
3671: EXCEPTION
3672: when FND_API.G_EXC_ERROR then
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:
3749: l_data VARCHAR2(250);
3750: l_msg_index_out NUMBER;
3751: --
3752: BEGIN
3753: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.update_sch_dirty_flag');
3754: --
3755: IF (p_debug_mode = 'Y') THEN
3756: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.update_sch_dirty_flag begin');
3757: END IF;
3752: BEGIN
3753: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PUB1.update_sch_dirty_flag');
3754: --
3755: IF (p_debug_mode = 'Y') THEN
3756: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.update_sch_dirty_flag begin');
3757: END IF;
3758: --
3759: IF (p_commit = FND_API.G_TRUE) THEN
3760: savepoint update_sch_dirty_flag_pub;
3796: COMMIT;
3797: END IF;
3798: --
3799: IF (p_debug_mode = 'Y') THEN
3800: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.UPDATE_SCH_DIRTY_FLAG end');
3801: END IF;
3802: --
3803: EXCEPTION
3804: WHEN FND_API.G_EXC_ERROR THEN
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;
3897:
3898:
3899: BEGIN
3900: -- Call the actual delete API
3901: PA_PROJECT_STRUCTURE_PUB1.delete_working_struc_ver(
3902: p_api_version => 1.0,
3903: p_structure_version_id => p_structure_version_id_tbl(i),
3904: p_record_version_number => p_record_version_number_tbl(i),
3905: x_return_status => l_return_status,
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:
4051: RAISE FND_API.G_EXC_ERROR;
4052: END IF;
4053:
4054: -- Call the actual delete API
4055: PA_PROJECT_STRUCTURE_PUB1.delete_working_struc_ver(
4056: p_api_version => 1.0,
4057: p_structure_version_id => p_structure_version_id_tbl(i),
4058: p_record_version_number => p_record_version_number_tbl(i),
4059: x_return_status => l_return_status,
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;
4126: l_fin_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_financial_enabled(p_project_id);
4127: l_delv_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_deliverable_enabled(p_project_id);
4128: l_share_code := PA_PROJECT_STRUCTURE_UTILS.Get_Structure_sharing_code(p_project_id);
4129:
4130: PA_PROJECT_STRUCTURE_PUB1.UPDATE_STRUCTURES_SETUP_ATTR(
4131: p_api_version => 1.0
4132: ,p_init_msg_list => 'T'
4133: ,p_commit => 'F'
4134: --,p_validate_only => 'T'
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:
4193:
4194: END enable_program_flag;
4195: --
4196: --
4197: end PA_PROJECT_STRUCTURE_PUB1;