247: l_event_rec pa_pji_proj_events_log%ROWTYPE;
248:
249: BEGIN
250:
251: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
252: ( p_package_name => g_package_name
253: , x_return_status => x_return_status ) ;
254:
255: print_time ( ' PLAN_DELETE api ' );
296:
297: EXCEPTION
298:
299: WHEN OTHERS THEN
300: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
301: ( p_package_name => g_package_name
302: , p_procedure_name => 'PLAN_DELETE'
303: , x_return_status => x_return_status ) ;
304:
319: l_event_ids SYSTEM.pa_num_tbl_type := SYSTEM.pa_num_tbl_type();
320:
321: BEGIN
322:
323: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
324: ( p_package_name => g_package_name
325: , x_return_status => x_return_status );
326:
327: BEGIN
374: EXCEPTION
375:
376: WHEN OTHERS THEN
377:
378: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
379: ( p_package_name => g_package_name
380: , p_procedure_name => 'PLAN_DELETE_PVT'
381: , x_return_status => x_return_status ) ;
382:
410:
411:
412: BEGIN
413:
414: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
415: ( p_package_name => g_package_name
416: , x_return_status => x_return_status );
417:
418: print_time ( ' PLAN_CREATE api ' );
551: EXCEPTION
552:
553: WHEN OTHERS THEN
554:
555: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
556: ( p_package_name => g_package_name
557: , p_procedure_name => 'PLAN_CREATE'
558: , x_return_status => x_return_status ) ;
559:
612: pa_debug.write('PLAN_UPDATE: ' || g_module_name,'Pa_Task_Pub1.G_CALL_PJI_ROLLUP '||Pa_Task_Pub1.G_CALL_PJI_ROLLUP,1);
613: pa_debug.write('PLAN_UPDATE: ' || g_module_name,'p_plan_version_id '||p_plan_version_id,1);
614: END IF;
615:
616: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
617: ( p_package_name => g_package_name
618: , x_return_status => x_return_status );
619:
620: x_msg_code := Fnd_Api.G_RET_STS_SUCCESS;
789: EXCEPTION
790:
791: WHEN OTHERS THEN
792:
793: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
794: ( p_package_name => g_package_name
795: , p_procedure_name => 'PLAN_UPDATE'
796: , x_return_status => x_return_status ) ;
797:
838: l_msg_count number;
839:
840: BEGIN
841:
842: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
843: ( p_package_name => g_package_name
844: , x_return_status => x_return_status );
845:
846: x_processing_code := Fnd_Api.G_RET_STS_SUCCESS;
1023:
1024: EXCEPTION
1025: WHEN OTHERS THEN
1026:
1027: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
1028: ( p_package_name => g_package_name
1029: , p_procedure_name => 'PLAN_UPDATE_PVT'
1030: , x_return_status => x_return_status ) ;
1031:
1037: p_online_flag IN VARCHAR2 := 'Y'
1038: , x_return_status OUT NOCOPY VARCHAR2 ) IS
1039: BEGIN
1040:
1041: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
1042: ( p_package_name => g_package_name
1043: , x_return_status => x_return_status );
1044:
1045: IF (p_online_flag NOT IN ('Y', 'N')) THEN
1058: (SELECT project_id,plan_version_id,plan_type_code FROM pji_fm_extr_plnver3_t); /*4771527 */
1059:
1060: IF (SQL%ROWCOUNT > 0) THEN
1061:
1062: pji_pjp_fp_curr_wrap.set_table_stats('PJI','PJI_FM_EXTR_PLNVER3_T', 1 , 1 , 100);
1063:
1064: /*
1065: FND_STATS.SET_TABLE_STATS(
1066: ownname => 'PJI', -- IN VARCHAR2,
1114:
1115: EXCEPTION
1116: WHEN OTHERS THEN
1117:
1118: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
1119: ( p_package_name => g_package_name
1120: , p_procedure_name => 'DELETE_SMART_SLICE'
1121: , x_return_status => x_return_status ) ;
1122:
1138: l_temp NUMBER;
1139:
1140: BEGIN
1141:
1142: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
1143: ( p_package_name => g_package_name
1144: , x_return_status => x_return_status );
1145:
1146: x_msg_code := Fnd_Api.G_RET_STS_SUCCESS;
1234: EXCEPTION
1235:
1236: WHEN OTHERS THEN
1237:
1238: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
1239: ( p_package_name => g_package_name
1240: , p_procedure_name => 'PLAN_UPDATE_ACT_ETC'
1241: , x_return_status => x_return_status ) ;
1242:
1262: l_update_id NUMBER;
1263:
1264: BEGIN
1265:
1266: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
1267: ( p_package_name => g_package_name
1268: , x_return_status => x_return_status );
1269:
1270: x_processing_code := Fnd_Api.G_RET_STS_SUCCESS;
1386:
1387: EXCEPTION
1388: WHEN OTHERS THEN
1389:
1390: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
1391: ( p_package_name => g_package_name
1392: , p_procedure_name => 'PLAN_UPDATE_PVT_ACT_ETC'
1393: , x_return_status => x_return_status ) ;
1394:
1436:
1437:
1438: BEGIN
1439:
1440: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
1441: ( p_package_name => g_package_name
1442: , x_return_status => x_return_status );
1443:
1444: print_time ( ' plan copy api ' );
1590: --COMMIT;
1591:
1592: EXCEPTION
1593: WHEN OTHERS THEN
1594: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
1595: ( p_package_name => g_package_name
1596: , p_procedure_name => 'PLAN_COPY'
1597: , x_return_status => x_return_status ) ;
1598:
1615: l_msg_code VARCHAR2(100);
1616:
1617: BEGIN
1618:
1619: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
1620: ( p_package_name => g_package_name
1621: , x_return_status => x_return_status );
1622:
1623: x_processing_code := Fnd_Api.G_RET_STS_SUCCESS;
1680: x_processing_code := l_return_status;
1681:
1682: EXCEPTION
1683: WHEN OTHERS THEN
1684: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
1685: ( p_package_name => g_package_name
1686: , p_procedure_name => 'PLAN_COPY_PVT'
1687: , x_return_status => x_return_status ) ;
1688:
1726: -- OLAP END CHANGE V2
1727:
1728: BEGIN
1729:
1730: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
1731: ( p_package_name => g_package_name
1732: , x_return_status => x_return_status );
1733:
1734:
1862: print_time ( ' PLAN_BASELINE api 002 End ' );
1863:
1864: EXCEPTION
1865: WHEN OTHERS THEN
1866: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
1867: ( p_package_name => g_package_name
1868: , p_procedure_name => 'PLAN_BASELINE'
1869: , x_return_status => x_return_status ) ;
1870:
1911: l_plan_type_code char(1);
1912:
1913: BEGIN
1914:
1915: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
1916: ( p_package_name => g_package_name
1917: , x_return_status => x_return_status );
1918:
1919: x_processing_code := Fnd_Api.G_RET_STS_SUCCESS;
2023: print_time ( ' PLAN_BASELINE_PVT api 008: Deleted events. ' );
2024:
2025: EXCEPTION
2026: WHEN OTHERS THEN
2027: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
2028: ( p_package_name => g_package_name
2029: , p_procedure_name => 'PLAN_BASELINE_PVT'
2030: , x_return_status => x_return_status ) ;
2031:
2054: l_processing_code VARCHAR2(1500) := NULL;
2055:
2056: BEGIN
2057:
2058: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
2059: ( p_package_name => g_package_name
2060: , x_return_status => x_return_status );
2061:
2062: print_time ( ' PLAN_ORIGINAL api ' );
2147: --COMMIT;
2148:
2149: EXCEPTION
2150: WHEN OTHERS THEN
2151: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
2152: ( p_package_name => g_package_name
2153: , p_procedure_name => 'PLAN_ORIGINAL'
2154: , x_return_status => x_return_status ) ;
2155:
2186: l_plan_type_code char(1) ; /*4771527 */
2187:
2188: BEGIN
2189:
2190: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
2191: ( p_package_name => g_package_name
2192: , x_return_status => x_return_status );
2193:
2194: x_processing_code := Fnd_Api.G_RET_STS_SUCCESS;
2309: print_time(' Mark original private: Cleaned up interim tables. ');
2310:
2311: EXCEPTION
2312: WHEN OTHERS THEN
2313: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
2314: ( p_package_name => g_package_name
2315: , p_procedure_name => 'PLAN_ORIGINAL_PVT'
2316: , x_return_status => x_return_status ) ;
2317:
2329: l_msg_code VARCHAR2(100);
2330:
2331: BEGIN
2332:
2333: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
2334: ( p_package_name => g_package_name
2335: , x_return_status => x_return_status );
2336:
2337:
2350: -- Summarization process will pick up this event.
2351:
2352: EXCEPTION
2353: WHEN OTHERS THEN
2354: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
2355: ( p_package_name => g_package_name
2356: , p_procedure_name => 'PRG_CHANGE'
2357: , x_return_status => x_return_status ) ;
2358:
2377: l_template_flag VARCHAR2(1);
2378:
2379: BEGIN
2380:
2381: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
2382: ( p_package_name => g_package_name
2383: , x_return_status => x_return_status );
2384:
2385:
2447: --COMMIT;
2448:
2449: EXCEPTION
2450: WHEN OTHERS THEN
2451: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
2452: ( p_package_name => g_package_name
2453: , p_procedure_name => 'RBS_PUSH'
2454: , x_return_status => x_return_status ) ;
2455:
2470: l_msg_code VARCHAR2(100);
2471:
2472: BEGIN
2473:
2474: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
2475: ( p_package_name => g_package_name
2476: , x_return_status => x_return_status );
2477:
2478: l_event_rec.event_type := 'RBS_DELETE';
2510: --COMMIT;
2511:
2512: EXCEPTION
2513: WHEN OTHERS THEN
2514: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
2515: ( p_package_name => g_package_name
2516: , p_procedure_name => 'RBS_DELETE'
2517: , x_return_status => x_return_status ) ;
2518:
2660: -- VALUES l_event_rec;
2661:
2662: EXCEPTION
2663: WHEN OTHERS THEN
2664: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
2665: ( p_package_name => g_package_name
2666: , p_procedure_name => 'CREATE_EVENT'
2667: , x_return_status => l_return_status ) ;
2668:
2817: for update nowait;
2818:
2819: BEGIN
2820:
2821: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
2822: ( p_package_name => g_package_name
2823: , x_return_status => x_return_status );
2824:
2825: print_time ( ' wbs hdrs lock 1 p_context = ' || p_context );
3295: Fnd_Msg_Pub.add_detail(p_message_type=>FND_API.G_RET_STS_ERROR);
3296:
3297: print_time ( ' wbs hdrs lock exception ' || SQLERRM);
3298:
3299: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
3300: ( p_package_name => g_package_name
3301: , p_procedure_name => 'WBS_HEADERS_LOCK'
3302: , x_return_status => x_return_status ) ;
3303:
3303:
3304: RAISE;
3305:
3306: WHEN OTHERS THEN
3307: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
3308: ( p_package_name => g_package_name
3309: , p_procedure_name => 'WBS_HEADERS_LOCK'
3310: , x_return_status => x_return_status ) ;
3311:
3331: FOR UPDATE NOWAIT;
3332:
3333: BEGIN
3334:
3335: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
3336: ( p_package_name => g_package_name
3337: , x_return_status => x_return_status );
3338:
3339: x_msg_code := Fnd_Api.G_RET_STS_SUCCESS;
3358:
3359: FND_MESSAGE.SET_NAME('PJI', 'PJI_LOCK_NOT_OBTAINED');
3360: Fnd_Msg_Pub.add_detail(p_message_type=>FND_API.G_RET_STS_ERROR);
3361:
3362: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
3363: ( p_package_name => g_package_name
3364: , p_procedure_name => 'PJI_EXTR_LINES_LOCK'
3365: , x_return_status => x_return_status ) ;
3366:
3366:
3367: RAISE;
3368:
3369: WHEN NO_DATA_FOUND THEN
3370: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
3371: ( p_package_name => g_package_name
3372: , p_procedure_name => 'PJI_EXTR_LINES_LOCK'
3373: , x_return_status => x_return_status ) ;
3374:
3374:
3375: RAISE;
3376:
3377: WHEN OTHERS THEN
3378: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
3379: ( p_package_name => g_package_name
3380: , p_procedure_name => 'PJI_EXTR_LINES_LOCK'
3381: , x_return_status => x_return_status ) ;
3382:
3400: FROM pji_fp_rmap_fpr_update_t);
3401:
3402: BEGIN
3403:
3404: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
3405: ( p_package_name => g_package_name
3406: , x_return_status => x_return_status );
3407:
3408: FOR i IN c_plan_version_ids_cur LOOP
3415: x_fp_version_ids := l_fp_version_ids ;
3416:
3417: EXCEPTION
3418: WHEN OTHERS THEN
3419: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
3420: ( p_package_name => g_package_name
3421: , p_procedure_name => 'GET_HDRS_TOLOCK_FOR_UPDATE '
3422: , x_return_status => x_return_status ) ;
3423:
3446: AND operation_type = p_operation_type;
3447:
3448: BEGIN
3449:
3450: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
3451: ( p_package_name => g_package_name
3452: , x_return_status => x_return_status );
3453:
3454: IF (p_operation_type IS NULL) THEN RETURN; END IF;
3467: -- IF c_event_id_cur%ISOPEN THEN c_event_id_cur.CLOSE; END IF;
3468:
3469: EXCEPTION
3470: WHEN OTHERS THEN
3471: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
3472: ( p_package_name => g_package_name
3473: , p_procedure_name => 'GET_EVENT_IDS'
3474: , x_return_status => x_return_status ) ;
3475:
3482: , x_return_status OUT NOCOPY VARCHAR2
3483: , x_msg_code OUT NOCOPY VARCHAR2 ) IS
3484: BEGIN
3485:
3486: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
3487: ( p_package_name => g_package_name
3488: , x_return_status => x_return_status );
3489:
3490: print_time ( ' delete events 001 ' );
3496: print_time ( ' delete events 002 ' );
3497:
3498: EXCEPTION
3499: WHEN OTHERS THEN
3500: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
3501: ( p_package_name => g_package_name
3502: , p_procedure_name => 'DELETE_EVENTS'
3503: , x_return_status => x_return_status ) ;
3504:
3547: END LOOP;
3548:
3549: EXCEPTION
3550: WHEN OTHERS THEN
3551: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
3552: ( p_package_name => g_package_name
3553: , p_procedure_name => 'COPY_PJI_SUMMARIZED_FLAG'
3554: , x_return_status => l_return_status ) ;
3555:
3562: x_return_status OUT NOCOPY VARCHAR2,
3563: x_msg_code OUT NOCOPY VARCHAR2 ) IS
3564: BEGIN
3565:
3566: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
3567: ( p_package_name => g_package_name
3568: , x_return_status => x_return_status );
3569:
3570: -- Todo: verifiy logic with VR.
3576: WHERE budget_version_id = p_original_version_id ;
3577:
3578: EXCEPTION
3579: WHEN OTHERS THEN
3580: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
3581: ( p_package_name => g_package_name
3582: , p_procedure_name => 'MARK_PLAN_ORIGINAL'
3583: , x_return_status => x_return_status ) ;
3584:
3599: l_last_update_login NUMBER := Fnd_Global.LOGIN_ID;
3600: l_return_status VARCHAR2(1);
3601: BEGIN
3602:
3603: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
3604: ( p_package_name => g_package_name
3605: , x_return_status => x_processing_code );
3606:
3607: INSERT INTO pji_fp_xbs_accum_f
3775: );
3776:
3777: EXCEPTION
3778: WHEN OTHERS THEN
3779: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
3780: ( p_package_name => g_package_name
3781: , p_procedure_name => 'COPY_INTO_BASELINE_ORIGINAL'
3782: , x_return_status => x_processing_code ) ;
3783:
4037:
4038:
4039: BEGIN
4040:
4041: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
4042: ( p_package_name => g_package_name
4043: , x_return_status => x_return_status );
4044:
4045:
4084: WHERE
4085: elog.EVENT_ID = p_event_id AND
4086: ROWNUM <= 1;
4087:
4088: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER /* 5138049 */
4089: ( p_package_name => g_package_name
4090: , p_procedure_name => 'WBS_LOCK_PVT'
4091: , x_return_status => x_return_status ) ;
4092: x_lock_mode := 'F';
4120: END IF; --end deferred case
4121:
4122: EXCEPTION
4123: WHEN OTHERS THEN
4124: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
4125: ( p_package_name => g_package_name
4126: , p_procedure_name => 'WBS_LOCK_PVT'
4127: , x_return_status => x_return_status ) ;
4128:
4169: AND plan_version_id > 0;
4170:
4171: BEGIN
4172:
4173: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
4174: ( p_package_name => g_package_name
4175: , x_return_status => x_return_status );
4176: IF g_debug_mode='Y' THEN
4177: 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);
4628: end if;
4629:
4630: EXCEPTION
4631: WHEN OTHERS THEN
4632: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
4633: ( p_package_name => g_package_name
4634: , p_procedure_name => 'WBS_MAINT_PVT'
4635: , x_return_status => x_return_status ) ;
4636:
4649: l_return_status VARCHAR2(1);
4650:
4651: BEGIN
4652:
4653: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
4654: ( p_package_name => g_package_name
4655: , x_return_status => x_return_status );
4656:
4657: SELECT
4700: p_calling_context => p_calling_context,
4701: p_conc_request_id => l_request_id,
4702: x_return_status => l_return_status );
4703:
4704: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
4705: ( p_package_name => g_package_name
4706: , p_procedure_name => 'LAUNCH_WBS_REQ_PVT'
4707: , x_return_status => x_return_status ) ;
4708:
4742: l_request_id NUMBER;
4743: BEGIN
4744:
4745:
4746: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
4747: ( p_package_name => g_package_name
4748: , x_return_status => x_return_status );
4749: IF g_debug_mode='Y' THEN
4750: 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);
5139: Pji_Utils.write2log('Going out WBS_MAINT :x_return_status: '||x_return_status||'x_online_flag :'||x_online_flag ,null,3);
5140: end if;
5141: EXCEPTION
5142: WHEN OTHERS THEN
5143: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
5144: ( p_package_name => g_package_name
5145: , p_procedure_name => 'WBS_MAINT'
5146: , x_return_status => x_return_status ) ;
5147:
5338: l_processing_code VARCHAR2(1);
5339:
5340: BEGIN
5341:
5342: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
5343: ( p_package_name => g_package_name
5344: , x_return_status => x_return_status );
5345:
5346: /* FOR rec IN c_pending_events LOOP
5358: WHEN OTHERS THEN
5359:
5360: x_msg_data := SQLERRM;
5361:
5362: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
5363: ( p_package_name => g_package_name
5364: , p_procedure_name => 'PROCESS_PENDING_EVENTS'
5365: , x_return_status => x_return_status ) ;
5366:
5387: l_publish_flag VARCHAR2(1);
5388:
5389: BEGIN
5390:
5391: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
5392: ( p_package_name => g_package_name
5393: , x_return_status => x_return_status );
5394:
5395:
5492: WHEN OTHERS THEN
5493:
5494: x_msg_data := SQLERRM;
5495:
5496: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
5497: ( p_package_name => g_package_name
5498: , p_procedure_name => 'PROCESS_EVENT_PVT'
5499: , x_return_status => x_return_status ) ;
5500:
5509: l_processing_code VARCHAR2(1);
5510:
5511: BEGIN
5512:
5513: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
5514: ( p_package_name => g_package_name
5515: , x_return_status => x_return_status );
5516:
5517: -- PLAN_UPDATE_PVT(
5520:
5521: EXCEPTION
5522: WHEN OTHERS THEN
5523: x_msg_data := SQLERRM;
5524: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
5525: ( p_package_name => g_package_name
5526: , p_procedure_name => 'PROCESS_PENDING_PLAN_UPDATES'
5527: , x_return_status => x_return_status ) ;
5528:
5584: l_wbs_version_id NUMBER := NULL; -- Added for bug 3899810
5585:
5586: BEGIN
5587:
5588: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
5589: ( p_package_name => g_package_name
5590: , x_return_status => x_return_status );
5591:
5592:
5741:
5742: EXCEPTION
5743: WHEN OTHERS THEN
5744: x_msg_data := SQLERRM;
5745: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
5746: ( p_package_name => g_package_name
5747: , p_procedure_name => 'PROCESS_PLAN_EVENTS'
5748: , x_return_status => x_return_status ) ;
5749:
5819: -- OLAP END
5820:
5821: BEGIN
5822:
5823: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
5824: ( p_package_name => g_package_name
5825: , x_return_status => x_return_status );
5826: /* overriding the parameter p_rbs_version_id for Public API with PLSQl table */
5827: IF ( p_rbs_version_id is NOT NULL) THEN
6986:
6987: EXCEPTION
6988: WHEN Invalid_Excep THEN
6989: x_msg_data := 'unexcepted error';
6990: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
6991: ( p_package_name => g_package_name
6992: , p_procedure_name => 'MAINTAIN_SMART_SLICE'
6993: , x_return_status => x_return_status ) ;
6994:
6995: WHEN OTHERS THEN
6996: x_msg_data := SQLERRM;
6997: ROLLBACK;
6998:
6999: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
7000: ( p_package_name => g_package_name
7001: , p_procedure_name => 'MAINTAIN_SMART_SLICE'
7002: , x_return_status => x_return_status ) ;
7003:
7008: PROCEDURE CLEANUP_TEMP_TABLES IS
7009: l_return_status VARCHAR2(1);
7010: BEGIN
7011:
7012: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
7013: ( p_package_name => g_package_name
7014: , x_return_status => l_return_status );
7015:
7016: DELETE FROM pji_fp_aggr_pjp1_t;
7017: DELETE FROM PJI_FM_EXTR_PLNVER3_T;
7018: DELETE FROM pji_fp_rmap_fpr_update_t;
7019: EXCEPTION
7020: WHEN OTHERS THEN
7021: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
7022: ( p_package_name => g_package_name
7023: , p_procedure_name => 'CLEANUP_TEMP_TABLES'
7024: , x_return_status => l_return_status ) ;
7025:
7036: l_project_id NUMBER;
7037: l_return_status VARCHAR2(1);
7038: BEGIN
7039:
7040: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
7041: ( p_package_name => g_package_name
7042: , x_return_status => l_return_status );
7043:
7044: print_time ( ' inside CHECK_BUDGET_VERSION_EXISTS ' ) ;
7075: END LOOP;
7076:
7077: EXCEPTION
7078: WHEN OTHERS THEN
7079: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
7080: ( p_package_name => g_package_name
7081: , p_procedure_name => 'CHECK_BUDGET_VERSION_EXISTS'
7082: , x_return_status => l_return_status ) ;
7083:
7093: i NUMBER;
7094: l_return_status VARCHAR2(1);
7095: BEGIN
7096:
7097: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
7098: ( p_package_name => g_package_name
7099: , x_return_status => l_return_status );
7100:
7101: print_time ( ' There are ' || p_fp_version_ids.COUNT || ' plan versions.');
7104: END LOOP;
7105:
7106: EXCEPTION
7107: WHEN OTHERS THEN
7108: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
7109: ( p_package_name => g_package_name
7110: , p_procedure_name => 'PRINT_PLAN_VERSION_ID_LIST'
7111: , x_return_status => l_return_status ) ;
7112:
7122: i NUMBER;
7123: l_return_status VARCHAR2(1);
7124: BEGIN
7125:
7126: Pji_Pjp_Fp_Curr_Wrap.INIT_ERR_STACK
7127: ( p_package_name => g_package_name
7128: , x_return_status => l_return_status );
7129:
7130: print_time ( ' There are ' || p_fp_version_types.COUNT || ' plan versions.');
7133: END LOOP;
7134:
7135: EXCEPTION
7136: WHEN OTHERS THEN
7137: Pji_Pjp_Fp_Curr_Wrap.EXCP_HANDLER
7138: ( p_package_name => g_package_name
7139: , p_procedure_name => 'PRINT_PLAN_VERSION_TYPE_LIST'
7140: , x_return_status => l_return_status ) ;
7141:
7200: -- Print time API to measure time taken by each api. Also useful for debugging.
7201: ----------
7202: PROCEDURE PRINT_TIME(p_tag IN VARCHAR2) IS
7203: BEGIN
7204: Pji_Pjp_Fp_Curr_Wrap.print_time(p_tag);
7205: EXCEPTION
7206: WHEN OTHERS THEN
7207: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => g_package_name ,
7208: p_procedure_name => 'PRINT_TIME');