[Home] [Help]
245: l_event_rec pa_pji_proj_events_log%ROWTYPE;
246:
247: BEGIN
248:
249: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
250: ( p_package_name => g_package_name
251: , x_return_status => x_return_status ) ;
252:
253: print_time ( ' PLAN_DELETE api ' );
294:
295: EXCEPTION
296:
297: WHEN OTHERS THEN
298: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
299: ( p_package_name => g_package_name
300: , p_procedure_name => 'PLAN_DELETE'
301: , x_return_status => x_return_status ) ;
302:
317: l_event_ids SYSTEM.pa_num_tbl_type := SYSTEM.pa_num_tbl_type();
318:
319: BEGIN
320:
321: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
322: ( p_package_name => g_package_name
323: , x_return_status => x_return_status );
324:
325: BEGIN
372: EXCEPTION
373:
374: WHEN OTHERS THEN
375:
376: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
377: ( p_package_name => g_package_name
378: , p_procedure_name => 'PLAN_DELETE_PVT'
379: , x_return_status => x_return_status ) ;
380:
390: p_fp_src_version_ids IN SYSTEM.pa_num_tbl_type :=SYSTEM.pa_num_tbl_type(),
391: p_copy_mode in varchar2 :=NULL) IS
392: BEGIN
393:
394: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
395: ( p_package_name => g_package_name
396: , x_return_status => x_return_status );
397:
398: print_time ( ' PLAN_CREATE api ' );
444: EXCEPTION
445:
446: WHEN OTHERS THEN
447:
448: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
449: ( p_package_name => g_package_name
450: , p_procedure_name => 'PLAN_CREATE'
451: , x_return_status => x_return_status ) ;
452:
461: x_return_status OUT NOCOPY VARCHAR2 ) IS
462: l_processing_code VARCHAR2(12000);
463: BEGIN
464:
465: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
466: ( p_package_name => g_package_name
467: , x_return_status => x_return_status );
468:
469: x_msg_code := Fnd_Api.G_RET_STS_SUCCESS;
511: EXCEPTION
512:
513: WHEN OTHERS THEN
514:
515: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
516: ( p_package_name => g_package_name
517: , p_procedure_name => 'PLAN_UPDATE'
518: , x_return_status => x_return_status ) ;
519:
560: l_msg_count number;
561:
562: BEGIN
563:
564: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
565: ( p_package_name => g_package_name
566: , x_return_status => x_return_status );
567:
568: x_processing_code := Fnd_Api.G_RET_STS_SUCCESS;
745:
746: EXCEPTION
747: WHEN OTHERS THEN
748:
749: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
750: ( p_package_name => g_package_name
751: , p_procedure_name => 'PLAN_UPDATE_PVT'
752: , x_return_status => x_return_status ) ;
753:
759: p_online_flag IN VARCHAR2 := 'Y'
760: , x_return_status OUT NOCOPY VARCHAR2 ) IS
761: BEGIN
762:
763: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
764: ( p_package_name => g_package_name
765: , x_return_status => x_return_status );
766:
767: IF (p_online_flag NOT IN ('Y', 'N')) THEN
780: (SELECT project_id,plan_version_id,plan_type_code FROM pji_fm_extr_plnver3_t); /*4771527 */
781:
782: IF (SQL%ROWCOUNT > 0) THEN
783:
784: pji_pjp_fp_curr_wrap.set_table_stats('PJI','PJI_FM_EXTR_PLNVER3_T', 1 , 1 , 100);
785:
786: /*
787: FND_STATS.SET_TABLE_STATS(
788: ownname => 'PJI', -- IN VARCHAR2,
836:
837: EXCEPTION
838: WHEN OTHERS THEN
839:
840: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
841: ( p_package_name => g_package_name
842: , p_procedure_name => 'DELETE_SMART_SLICE'
843: , x_return_status => x_return_status ) ;
844:
860: l_temp NUMBER;
861:
862: BEGIN
863:
864: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
865: ( p_package_name => g_package_name
866: , x_return_status => x_return_status );
867:
868: x_msg_code := Fnd_Api.G_RET_STS_SUCCESS;
956: EXCEPTION
957:
958: WHEN OTHERS THEN
959:
960: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
961: ( p_package_name => g_package_name
962: , p_procedure_name => 'PLAN_UPDATE_ACT_ETC'
963: , x_return_status => x_return_status ) ;
964:
984: l_update_id NUMBER;
985:
986: BEGIN
987:
988: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
989: ( p_package_name => g_package_name
990: , x_return_status => x_return_status );
991:
992: x_processing_code := Fnd_Api.G_RET_STS_SUCCESS;
1108:
1109: EXCEPTION
1110: WHEN OTHERS THEN
1111:
1112: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
1113: ( p_package_name => g_package_name
1114: , p_procedure_name => 'PLAN_UPDATE_PVT_ACT_ETC'
1115: , x_return_status => x_return_status ) ;
1116:
1145: l_num_dest_fp_ver_types NUMBER := NULL;
1146:
1147: BEGIN
1148:
1149: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
1150: ( p_package_name => g_package_name
1151: , x_return_status => x_return_status );
1152:
1153: print_time ( ' plan copy api ' );
1260: --COMMIT;
1261:
1262: EXCEPTION
1263: WHEN OTHERS THEN
1264: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
1265: ( p_package_name => g_package_name
1266: , p_procedure_name => 'PLAN_COPY'
1267: , x_return_status => x_return_status ) ;
1268:
1285: l_msg_code VARCHAR2(100);
1286:
1287: BEGIN
1288:
1289: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
1290: ( p_package_name => g_package_name
1291: , x_return_status => x_return_status );
1292:
1293: x_processing_code := Fnd_Api.G_RET_STS_SUCCESS;
1350: x_processing_code := l_return_status;
1351:
1352: EXCEPTION
1353: WHEN OTHERS THEN
1354: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
1355: ( p_package_name => g_package_name
1356: , p_procedure_name => 'PLAN_COPY_PVT'
1357: , x_return_status => x_return_status ) ;
1358:
1385: l_d_fp_version_ids SYSTEM.pa_num_tbl_type := SYSTEM.pa_num_tbl_type();
1386:
1387: BEGIN
1388:
1389: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
1390: ( p_package_name => g_package_name
1391: , x_return_status => x_return_status );
1392:
1393:
1486: print_time ( ' PLAN_BASELINE api 002 End ' );
1487:
1488: EXCEPTION
1489: WHEN OTHERS THEN
1490: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
1491: ( p_package_name => g_package_name
1492: , p_procedure_name => 'PLAN_BASELINE'
1493: , x_return_status => x_return_status ) ;
1494:
1535: l_plan_type_code char(1);
1536:
1537: BEGIN
1538:
1539: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
1540: ( p_package_name => g_package_name
1541: , x_return_status => x_return_status );
1542:
1543: x_processing_code := Fnd_Api.G_RET_STS_SUCCESS;
1647: print_time ( ' PLAN_BASELINE_PVT api 008: Deleted events. ' );
1648:
1649: EXCEPTION
1650: WHEN OTHERS THEN
1651: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
1652: ( p_package_name => g_package_name
1653: , p_procedure_name => 'PLAN_BASELINE_PVT'
1654: , x_return_status => x_return_status ) ;
1655:
1678: l_processing_code VARCHAR2(1500) := NULL;
1679:
1680: BEGIN
1681:
1682: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
1683: ( p_package_name => g_package_name
1684: , x_return_status => x_return_status );
1685:
1686: print_time ( ' PLAN_ORIGINAL api ' );
1771: --COMMIT;
1772:
1773: EXCEPTION
1774: WHEN OTHERS THEN
1775: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
1776: ( p_package_name => g_package_name
1777: , p_procedure_name => 'PLAN_ORIGINAL'
1778: , x_return_status => x_return_status ) ;
1779:
1810: l_plan_type_code char(1) ; /*4771527 */
1811:
1812: BEGIN
1813:
1814: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
1815: ( p_package_name => g_package_name
1816: , x_return_status => x_return_status );
1817:
1818: x_processing_code := Fnd_Api.G_RET_STS_SUCCESS;
1933: print_time(' Mark original private: Cleaned up interim tables. ');
1934:
1935: EXCEPTION
1936: WHEN OTHERS THEN
1937: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
1938: ( p_package_name => g_package_name
1939: , p_procedure_name => 'PLAN_ORIGINAL_PVT'
1940: , x_return_status => x_return_status ) ;
1941:
1953: l_msg_code VARCHAR2(100);
1954:
1955: BEGIN
1956:
1957: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
1958: ( p_package_name => g_package_name
1959: , x_return_status => x_return_status );
1960:
1961:
1974: -- Summarization process will pick up this event.
1975:
1976: EXCEPTION
1977: WHEN OTHERS THEN
1978: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
1979: ( p_package_name => g_package_name
1980: , p_procedure_name => 'PRG_CHANGE'
1981: , x_return_status => x_return_status ) ;
1982:
2001: l_template_flag VARCHAR2(1);
2002:
2003: BEGIN
2004:
2005: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
2006: ( p_package_name => g_package_name
2007: , x_return_status => x_return_status );
2008:
2009:
2071: --COMMIT;
2072:
2073: EXCEPTION
2074: WHEN OTHERS THEN
2075: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
2076: ( p_package_name => g_package_name
2077: , p_procedure_name => 'RBS_PUSH'
2078: , x_return_status => x_return_status ) ;
2079:
2094: l_msg_code VARCHAR2(100);
2095:
2096: BEGIN
2097:
2098: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
2099: ( p_package_name => g_package_name
2100: , x_return_status => x_return_status );
2101:
2102: l_event_rec.event_type := 'RBS_DELETE';
2134: --COMMIT;
2135:
2136: EXCEPTION
2137: WHEN OTHERS THEN
2138: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
2139: ( p_package_name => g_package_name
2140: , p_procedure_name => 'RBS_DELETE'
2141: , x_return_status => x_return_status ) ;
2142:
2284: -- VALUES l_event_rec;
2285:
2286: EXCEPTION
2287: WHEN OTHERS THEN
2288: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
2289: ( p_package_name => g_package_name
2290: , p_procedure_name => 'CREATE_EVENT'
2291: , x_return_status => l_return_status ) ;
2292:
2441: for update nowait;
2442:
2443: BEGIN
2444:
2445: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
2446: ( p_package_name => g_package_name
2447: , x_return_status => x_return_status );
2448:
2449: print_time ( ' wbs hdrs lock 1 p_context = ' || p_context );
2919: Fnd_Msg_Pub.add_detail(p_message_type=>FND_API.G_RET_STS_ERROR);
2920:
2921: print_time ( ' wbs hdrs lock exception ' || SQLERRM);
2922:
2923: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
2924: ( p_package_name => g_package_name
2925: , p_procedure_name => 'WBS_HEADERS_LOCK'
2926: , x_return_status => x_return_status ) ;
2927:
2927:
2928: RAISE;
2929:
2930: WHEN OTHERS THEN
2931: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
2932: ( p_package_name => g_package_name
2933: , p_procedure_name => 'WBS_HEADERS_LOCK'
2934: , x_return_status => x_return_status ) ;
2935:
2955: FOR UPDATE NOWAIT;
2956:
2957: BEGIN
2958:
2959: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
2960: ( p_package_name => g_package_name
2961: , x_return_status => x_return_status );
2962:
2963: x_msg_code := Fnd_Api.G_RET_STS_SUCCESS;
2982:
2983: FND_MESSAGE.SET_NAME('PJI', 'PJI_LOCK_NOT_OBTAINED');
2984: Fnd_Msg_Pub.add_detail(p_message_type=>FND_API.G_RET_STS_ERROR);
2985:
2986: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
2987: ( p_package_name => g_package_name
2988: , p_procedure_name => 'PJI_EXTR_LINES_LOCK'
2989: , x_return_status => x_return_status ) ;
2990:
2990:
2991: RAISE;
2992:
2993: WHEN NO_DATA_FOUND THEN
2994: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
2995: ( p_package_name => g_package_name
2996: , p_procedure_name => 'PJI_EXTR_LINES_LOCK'
2997: , x_return_status => x_return_status ) ;
2998:
2998:
2999: RAISE;
3000:
3001: WHEN OTHERS THEN
3002: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
3003: ( p_package_name => g_package_name
3004: , p_procedure_name => 'PJI_EXTR_LINES_LOCK'
3005: , x_return_status => x_return_status ) ;
3006:
3024: FROM pji_fp_rmap_fpr_update_t);
3025:
3026: BEGIN
3027:
3028: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
3029: ( p_package_name => g_package_name
3030: , x_return_status => x_return_status );
3031:
3032: FOR i IN c_plan_version_ids_cur LOOP
3039: x_fp_version_ids := l_fp_version_ids ;
3040:
3041: EXCEPTION
3042: WHEN OTHERS THEN
3043: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
3044: ( p_package_name => g_package_name
3045: , p_procedure_name => 'GET_HDRS_TOLOCK_FOR_UPDATE '
3046: , x_return_status => x_return_status ) ;
3047:
3070: AND operation_type = p_operation_type;
3071:
3072: BEGIN
3073:
3074: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
3075: ( p_package_name => g_package_name
3076: , x_return_status => x_return_status );
3077:
3078: IF (p_operation_type IS NULL) THEN RETURN; END IF;
3091: -- IF c_event_id_cur%ISOPEN THEN c_event_id_cur.CLOSE; END IF;
3092:
3093: EXCEPTION
3094: WHEN OTHERS THEN
3095: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
3096: ( p_package_name => g_package_name
3097: , p_procedure_name => 'GET_EVENT_IDS'
3098: , x_return_status => x_return_status ) ;
3099:
3106: , x_return_status OUT NOCOPY VARCHAR2
3107: , x_msg_code OUT NOCOPY VARCHAR2 ) IS
3108: BEGIN
3109:
3110: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
3111: ( p_package_name => g_package_name
3112: , x_return_status => x_return_status );
3113:
3114: print_time ( ' delete events 001 ' );
3120: print_time ( ' delete events 002 ' );
3121:
3122: EXCEPTION
3123: WHEN OTHERS THEN
3124: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
3125: ( p_package_name => g_package_name
3126: , p_procedure_name => 'DELETE_EVENTS'
3127: , x_return_status => x_return_status ) ;
3128:
3171: END LOOP;
3172:
3173: EXCEPTION
3174: WHEN OTHERS THEN
3175: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
3176: ( p_package_name => g_package_name
3177: , p_procedure_name => 'COPY_PJI_SUMMARIZED_FLAG'
3178: , x_return_status => l_return_status ) ;
3179:
3186: x_return_status OUT NOCOPY VARCHAR2,
3187: x_msg_code OUT NOCOPY VARCHAR2 ) IS
3188: BEGIN
3189:
3190: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
3191: ( p_package_name => g_package_name
3192: , x_return_status => x_return_status );
3193:
3194: -- Todo: verifiy logic with VR.
3200: WHERE budget_version_id = p_original_version_id ;
3201:
3202: EXCEPTION
3203: WHEN OTHERS THEN
3204: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
3205: ( p_package_name => g_package_name
3206: , p_procedure_name => 'MARK_PLAN_ORIGINAL'
3207: , x_return_status => x_return_status ) ;
3208:
3223: l_last_update_login NUMBER := Fnd_Global.LOGIN_ID;
3224: l_return_status VARCHAR2(1);
3225: BEGIN
3226:
3227: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
3228: ( p_package_name => g_package_name
3229: , x_return_status => x_processing_code );
3230:
3231: INSERT INTO pji_fp_xbs_accum_f
3399: );
3400:
3401: EXCEPTION
3402: WHEN OTHERS THEN
3403: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
3404: ( p_package_name => g_package_name
3405: , p_procedure_name => 'COPY_INTO_BASELINE_ORIGINAL'
3406: , x_return_status => x_processing_code ) ;
3407:
3661:
3662:
3663: BEGIN
3664:
3665: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
3666: ( p_package_name => g_package_name
3667: , x_return_status => x_return_status );
3668:
3669:
3708: WHERE
3709: elog.EVENT_ID = p_event_id AND
3710: ROWNUM <= 1;
3711:
3712: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER /* 5138049 */
3713: ( p_package_name => g_package_name
3714: , p_procedure_name => 'WBS_LOCK_PVT'
3715: , x_return_status => x_return_status ) ;
3716: x_lock_mode := 'F';
3744: END IF; --end deferred case
3745:
3746: EXCEPTION
3747: WHEN OTHERS THEN
3748: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
3749: ( p_package_name => g_package_name
3750: , p_procedure_name => 'WBS_LOCK_PVT'
3751: , x_return_status => x_return_status ) ;
3752:
3793: AND plan_version_id > 0;
3794:
3795: BEGIN
3796:
3797: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
3798: ( p_package_name => g_package_name
3799: , x_return_status => x_return_status );
3800: IF g_debug_mode='Y' THEN
3801: Pji_Utils.write2log('calling WBS_MAINT_PVT :p_versioned_flag: '||p_versioned_flag||'p_struct_type:'||p_struct_type||'p_publish_flag:'||p_publish_flag||'p_rerun_flag :' || p_rerun_flag ,null,3);
4250: end if;
4251:
4252: EXCEPTION
4253: WHEN OTHERS THEN
4254: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
4255: ( p_package_name => g_package_name
4256: , p_procedure_name => 'WBS_MAINT_PVT'
4257: , x_return_status => x_return_status ) ;
4258:
4271: l_return_status VARCHAR2(1);
4272:
4273: BEGIN
4274:
4275: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
4276: ( p_package_name => g_package_name
4277: , x_return_status => x_return_status );
4278:
4279: SELECT
4322: p_calling_context => p_calling_context,
4323: p_conc_request_id => l_request_id,
4324: x_return_status => l_return_status );
4325:
4326: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
4327: ( p_package_name => g_package_name
4328: , p_procedure_name => 'LAUNCH_WBS_REQ_PVT'
4329: , x_return_status => x_return_status ) ;
4330:
4364: l_request_id NUMBER;
4365: BEGIN
4366:
4367:
4368: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
4369: ( p_package_name => g_package_name
4370: , x_return_status => x_return_status );
4371: IF g_debug_mode='Y' THEN
4372: Pji_Utils.write2log('Coming IN WBS_MAINT :p_new_struct_ver_id: '||p_new_struct_ver_id||'p_old_struct_ver_id:'||p_old_struct_ver_id||'p_project_id: '||p_project_id||'p_publish_flag :' || p_publish_flag ,null,3);
4761: Pji_Utils.write2log('Going out WBS_MAINT :x_return_status: '||x_return_status||'x_online_flag :'||x_online_flag ,null,3);
4762: end if;
4763: EXCEPTION
4764: WHEN OTHERS THEN
4765: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
4766: ( p_package_name => g_package_name
4767: , p_procedure_name => 'WBS_MAINT'
4768: , x_return_status => x_return_status ) ;
4769:
4960: l_processing_code VARCHAR2(1);
4961:
4962: BEGIN
4963:
4964: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
4965: ( p_package_name => g_package_name
4966: , x_return_status => x_return_status );
4967:
4968: /* FOR rec IN c_pending_events LOOP
4980: WHEN OTHERS THEN
4981:
4982: x_msg_data := SQLERRM;
4983:
4984: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
4985: ( p_package_name => g_package_name
4986: , p_procedure_name => 'PROCESS_PENDING_EVENTS'
4987: , x_return_status => x_return_status ) ;
4988:
5009: l_publish_flag VARCHAR2(1);
5010:
5011: BEGIN
5012:
5013: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
5014: ( p_package_name => g_package_name
5015: , x_return_status => x_return_status );
5016:
5017:
5114: WHEN OTHERS THEN
5115:
5116: x_msg_data := SQLERRM;
5117:
5118: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
5119: ( p_package_name => g_package_name
5120: , p_procedure_name => 'PROCESS_EVENT_PVT'
5121: , x_return_status => x_return_status ) ;
5122:
5131: l_processing_code VARCHAR2(1);
5132:
5133: BEGIN
5134:
5135: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
5136: ( p_package_name => g_package_name
5137: , x_return_status => x_return_status );
5138:
5139: -- PLAN_UPDATE_PVT(
5142:
5143: EXCEPTION
5144: WHEN OTHERS THEN
5145: x_msg_data := SQLERRM;
5146: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
5147: ( p_package_name => g_package_name
5148: , p_procedure_name => 'PROCESS_PENDING_PLAN_UPDATES'
5149: , x_return_status => x_return_status ) ;
5150:
5206: l_wbs_version_id NUMBER := NULL; -- Added for bug 3899810
5207:
5208: BEGIN
5209:
5210: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
5211: ( p_package_name => g_package_name
5212: , x_return_status => x_return_status );
5213:
5214:
5363:
5364: EXCEPTION
5365: WHEN OTHERS THEN
5366: x_msg_data := SQLERRM;
5367: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
5368: ( p_package_name => g_package_name
5369: , p_procedure_name => 'PROCESS_PLAN_EVENTS'
5370: , x_return_status => x_return_status ) ;
5371:
5429: jl_get_wbs_version_id_tbl SYSTEM.pa_num_tbl_type := SYSTEM.pa_num_tbl_type(); /*4471527 */
5430: l_rbs_version_id_tbl SYSTEM.pa_num_tbl_type := SYSTEM.pa_num_tbl_type();
5431: BEGIN
5432:
5433: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
5434: ( p_package_name => g_package_name
5435: , x_return_status => x_return_status );
5436: /* overriding the parameter p_rbs_version_id for Public API with PLSQl table */
5437: IF ( p_rbs_version_id is NOT NULL) THEN
6466:
6467: EXCEPTION
6468: WHEN Invalid_Excep THEN
6469: x_msg_data := 'unexcepted error';
6470: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
6471: ( p_package_name => g_package_name
6472: , p_procedure_name => 'MAINTAIN_SMART_SLICE'
6473: , x_return_status => x_return_status ) ;
6474:
6475: WHEN OTHERS THEN
6476: x_msg_data := SQLERRM;
6477: ROLLBACK;
6478:
6479: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
6480: ( p_package_name => g_package_name
6481: , p_procedure_name => 'MAINTAIN_SMART_SLICE'
6482: , x_return_status => x_return_status ) ;
6483:
6488: PROCEDURE CLEANUP_TEMP_TABLES IS
6489: l_return_status VARCHAR2(1);
6490: BEGIN
6491:
6492: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
6493: ( p_package_name => g_package_name
6494: , x_return_status => l_return_status );
6495:
6496: DELETE FROM pji_fp_aggr_pjp1_t;
6497: DELETE FROM PJI_FM_EXTR_PLNVER3_T;
6498: DELETE FROM pji_fp_rmap_fpr_update_t;
6499: EXCEPTION
6500: WHEN OTHERS THEN
6501: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
6502: ( p_package_name => g_package_name
6503: , p_procedure_name => 'CLEANUP_TEMP_TABLES'
6504: , x_return_status => l_return_status ) ;
6505:
6516: l_project_id NUMBER;
6517: l_return_status VARCHAR2(1);
6518: BEGIN
6519:
6520: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
6521: ( p_package_name => g_package_name
6522: , x_return_status => l_return_status );
6523:
6524: print_time ( ' inside CHECK_BUDGET_VERSION_EXISTS ' ) ;
6555: END LOOP;
6556:
6557: EXCEPTION
6558: WHEN OTHERS THEN
6559: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
6560: ( p_package_name => g_package_name
6561: , p_procedure_name => 'CHECK_BUDGET_VERSION_EXISTS'
6562: , x_return_status => l_return_status ) ;
6563:
6573: i NUMBER;
6574: l_return_status VARCHAR2(1);
6575: BEGIN
6576:
6577: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
6578: ( p_package_name => g_package_name
6579: , x_return_status => l_return_status );
6580:
6581: print_time ( ' There are ' || p_fp_version_ids.COUNT || ' plan versions.');
6584: END LOOP;
6585:
6586: EXCEPTION
6587: WHEN OTHERS THEN
6588: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
6589: ( p_package_name => g_package_name
6590: , p_procedure_name => 'PRINT_PLAN_VERSION_ID_LIST'
6591: , x_return_status => l_return_status ) ;
6592:
6602: i NUMBER;
6603: l_return_status VARCHAR2(1);
6604: BEGIN
6605:
6606: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
6607: ( p_package_name => g_package_name
6608: , x_return_status => l_return_status );
6609:
6610: print_time ( ' There are ' || p_fp_version_types.COUNT || ' plan versions.');
6613: END LOOP;
6614:
6615: EXCEPTION
6616: WHEN OTHERS THEN
6617: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
6618: ( p_package_name => g_package_name
6619: , p_procedure_name => 'PRINT_PLAN_VERSION_TYPE_LIST'
6620: , x_return_status => l_return_status ) ;
6621:
6680: -- Print time API to measure time taken by each api. Also useful for debugging.
6681: ----------
6682: PROCEDURE PRINT_TIME(p_tag IN VARCHAR2) IS
6683: BEGIN
6684: Pji_Pjp_Fp_Curr_Wrap.print_time(p_tag);
6685: EXCEPTION
6686: WHEN OTHERS THEN
6687: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => g_package_name ,
6688: p_procedure_name => 'PRINT_TIME');