42: WHERE installed_flag IN ('I','B');
43:
44: BEGIN
45:
46: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
47: FND_LOG.String
48: (
49: FND_LOG.LEVEL_PROCEDURE,
50: 'fpa.sql.FPA_PlanningCycle_Pvt.Create_Pc.begin',
43:
44: BEGIN
45:
46: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
47: FND_LOG.String
48: (
49: FND_LOG.LEVEL_PROCEDURE,
50: 'fpa.sql.FPA_PlanningCycle_Pvt.Create_Pc.begin',
51: 'Entering FPA_PlanningCycle_Pvt.Create_Pc'
45:
46: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
47: FND_LOG.String
48: (
49: FND_LOG.LEVEL_PROCEDURE,
50: 'fpa.sql.FPA_PlanningCycle_Pvt.Create_Pc.begin',
51: 'Entering FPA_PlanningCycle_Pvt.Create_Pc'
52: );
53: END IF;
117: dbms_aw.execute('portfolio_pc_r = ' || p_pc_all_obj.pc_info.portfolio );
118:
119: dbms_aw.execute('POP planning_cycle_d');
120:
121: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
122: FND_LOG.String
123: (
124: FND_LOG.LEVEL_PROCEDURE,
125: 'fpa.sql.FPA_PlanningCycle_Pvt.Create_Pc.end',
118:
119: dbms_aw.execute('POP planning_cycle_d');
120:
121: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
122: FND_LOG.String
123: (
124: FND_LOG.LEVEL_PROCEDURE,
125: 'fpa.sql.FPA_PlanningCycle_Pvt.Create_Pc.end',
126: 'Exiting FPA_PlanningCycle_Pvt.Create_Pc'
120:
121: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
122: FND_LOG.String
123: (
124: FND_LOG.LEVEL_PROCEDURE,
125: 'fpa.sql.FPA_PlanningCycle_Pvt.Create_Pc.end',
126: 'Exiting FPA_PlanningCycle_Pvt.Create_Pc'
127: );
128: END IF;
138:
139: ROLLBACK;
140: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
141:
142: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
143: FND_LOG.String
144: (
145: FND_LOG.LEVEL_ERROR,
146: 'fpa.sql.FPA_PlanningCycle_Pvt.Create_Pc',
139: ROLLBACK;
140: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
141:
142: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
143: FND_LOG.String
144: (
145: FND_LOG.LEVEL_ERROR,
146: 'fpa.sql.FPA_PlanningCycle_Pvt.Create_Pc',
147: SQLERRM
141:
142: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
143: FND_LOG.String
144: (
145: FND_LOG.LEVEL_ERROR,
146: 'fpa.sql.FPA_PlanningCycle_Pvt.Create_Pc',
147: SQLERRM
148: );
149: END IF;
167: IS
168: l_pc_catg number;
169: l_aw_call varchar2(50);
170: BEGIN
171: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
172: FND_LOG.String
173: (
174: FND_LOG.LEVEL_PROCEDURE,
175: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Invest_Mix.begin',
168: l_pc_catg number;
169: l_aw_call varchar2(50);
170: BEGIN
171: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
172: FND_LOG.String
173: (
174: FND_LOG.LEVEL_PROCEDURE,
175: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Invest_Mix.begin',
176: 'Entering FPA_PlanningCycle_Pvt.Update_Pc_Invest_Mix'
170: BEGIN
171: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
172: FND_LOG.String
173: (
174: FND_LOG.LEVEL_PROCEDURE,
175: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Invest_Mix.begin',
176: 'Entering FPA_PlanningCycle_Pvt.Update_Pc_Invest_Mix'
177: );
178: END IF;
218:
219: END LOOP;
220:
221:
222: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
223: FND_LOG.String
224: (
225: FND_LOG.LEVEL_PROCEDURE,
226: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Invest_Mix.end',
219: END LOOP;
220:
221:
222: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
223: FND_LOG.String
224: (
225: FND_LOG.LEVEL_PROCEDURE,
226: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Invest_Mix.end',
227: 'Exiting FPA_PlanningCycle_Pvt.Update_Pc_Invest_Mix'
221:
222: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
223: FND_LOG.String
224: (
225: FND_LOG.LEVEL_PROCEDURE,
226: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Invest_Mix.end',
227: 'Exiting FPA_PlanningCycle_Pvt.Update_Pc_Invest_Mix'
228: );
229: END IF;
234:
235: ROLLBACK;
236: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
237:
238: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
239: FND_LOG.String
240: (
241: FND_LOG.LEVEL_ERROR,
242: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Invest_Mix',
235: ROLLBACK;
236: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
237:
238: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
239: FND_LOG.String
240: (
241: FND_LOG.LEVEL_ERROR,
242: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Invest_Mix',
243: SQLERRM
237:
238: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
239: FND_LOG.String
240: (
241: FND_LOG.LEVEL_ERROR,
242: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Invest_Mix',
243: SQLERRM
244: );
245: END IF;
266: l_target_name VARCHAR2(80);
267:
268: BEGIN
269:
270: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
271: FND_LOG.String
272: (
273: FND_LOG.LEVEL_PROCEDURE,
274: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Fin_Targets.begin',
267:
268: BEGIN
269:
270: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
271: FND_LOG.String
272: (
273: FND_LOG.LEVEL_PROCEDURE,
274: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Fin_Targets.begin',
275: 'Entering FPA_PlanningCycle_Pvt.Update_Pc_Fin_Targets'
269:
270: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
271: FND_LOG.String
272: (
273: FND_LOG.LEVEL_PROCEDURE,
274: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Fin_Targets.begin',
275: 'Entering FPA_PlanningCycle_Pvt.Update_Pc_Fin_Targets'
276: );
277: END IF;
323: dbms_aw.execute('pc_fintargets_range_to_m = ' || p_fin_targets_tbl(i).financial_target_to*l_pc_disply_factor );
324: END LOOP;
325:
326:
327: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
328: FND_LOG.String
329: (
330: FND_LOG.LEVEL_PROCEDURE,
331: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Fin_Targets.end',
324: END LOOP;
325:
326:
327: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
328: FND_LOG.String
329: (
330: FND_LOG.LEVEL_PROCEDURE,
331: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Fin_Targets.end',
332: 'Exiting FPA_PlanningCycle_Pvt.Update_Pc_Fin_Targets'
326:
327: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
328: FND_LOG.String
329: (
330: FND_LOG.LEVEL_PROCEDURE,
331: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Fin_Targets.end',
332: 'Exiting FPA_PlanningCycle_Pvt.Update_Pc_Fin_Targets'
333: );
334: END IF;
341:
342: ROLLBACK;
343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
344:
345: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
346: FND_LOG.String
347: (
348: FND_LOG.LEVEL_ERROR,
349: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Fin_Targets',
342: ROLLBACK;
343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
344:
345: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
346: FND_LOG.String
347: (
348: FND_LOG.LEVEL_ERROR,
349: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Fin_Targets',
350: SQLERRM
344:
345: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
346: FND_LOG.String
347: (
348: FND_LOG.LEVEL_ERROR,
349: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Fin_Targets',
350: SQLERRM
351: );
352: END IF;
370: l_pc_obj varchar2(3);
371:
372: BEGIN
373:
374: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
375: FND_LOG.String
376: ( FND_LOG.LEVEL_PROCEDURE,
377: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data.begin',
378: 'Entering FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data'
371:
372: BEGIN
373:
374: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
375: FND_LOG.String
376: ( FND_LOG.LEVEL_PROCEDURE,
377: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data.begin',
378: 'Entering FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data'
379: );
372: BEGIN
373:
374: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
375: FND_LOG.String
376: ( FND_LOG.LEVEL_PROCEDURE,
377: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data.begin',
378: 'Entering FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data'
379: );
380: END IF;
386: --DBMS_OUTPUT.put_line(' ..p_inv_crit_tbl(1).pc_project_score_scale=' || p_inv_crit_tbl(1).pc_project_score_scale );
387:
388: -- Update the investment criteria data
389: -- Limit PCID
390: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
391: FND_LOG.String
392: ( FND_LOG.LEVEL_PROCEDURE,
393: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
394: 'Limit pc dimension to ' || p_inv_crit_tbl(1).planning_cycle || ' value.'
387:
388: -- Update the investment criteria data
389: -- Limit PCID
390: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
391: FND_LOG.String
392: ( FND_LOG.LEVEL_PROCEDURE,
393: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
394: 'Limit pc dimension to ' || p_inv_crit_tbl(1).planning_cycle || ' value.'
395: );
388: -- Update the investment criteria data
389: -- Limit PCID
390: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
391: FND_LOG.String
392: ( FND_LOG.LEVEL_PROCEDURE,
393: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
394: 'Limit pc dimension to ' || p_inv_crit_tbl(1).planning_cycle || ' value.'
395: );
396: END IF;
396: END IF;
397: dbms_aw.execute('LMT planning_cycle_d TO ' || p_inv_crit_tbl(1).planning_cycle);
398:
399: -- Set the score source
400: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
401: FND_LOG.String
402: ( FND_LOG.LEVEL_PROCEDURE,
403: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
404: 'Setting score_type_pc_r to: ' || p_inv_crit_tbl(1).pc_project_score_source || ' value.'
397: dbms_aw.execute('LMT planning_cycle_d TO ' || p_inv_crit_tbl(1).planning_cycle);
398:
399: -- Set the score source
400: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
401: FND_LOG.String
402: ( FND_LOG.LEVEL_PROCEDURE,
403: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
404: 'Setting score_type_pc_r to: ' || p_inv_crit_tbl(1).pc_project_score_source || ' value.'
405: );
398:
399: -- Set the score source
400: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
401: FND_LOG.String
402: ( FND_LOG.LEVEL_PROCEDURE,
403: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
404: 'Setting score_type_pc_r to: ' || p_inv_crit_tbl(1).pc_project_score_source || ' value.'
405: );
406: END IF;
406: END IF;
407: dbms_aw.execute('score_type_pc_r = ''' || p_inv_crit_tbl(1).pc_project_score_source || '''');
408:
409: -- Set the score scale
410: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
411: FND_LOG.String
412: ( FND_LOG.LEVEL_PROCEDURE,
413: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
414: 'Setting pc_project_score_scale_m to: ' || p_inv_crit_tbl(1).pc_project_score_scale || ' value.'
407: dbms_aw.execute('score_type_pc_r = ''' || p_inv_crit_tbl(1).pc_project_score_source || '''');
408:
409: -- Set the score scale
410: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
411: FND_LOG.String
412: ( FND_LOG.LEVEL_PROCEDURE,
413: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
414: 'Setting pc_project_score_scale_m to: ' || p_inv_crit_tbl(1).pc_project_score_scale || ' value.'
415: );
408:
409: -- Set the score scale
410: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
411: FND_LOG.String
412: ( FND_LOG.LEVEL_PROCEDURE,
413: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
414: 'Setting pc_project_score_scale_m to: ' || p_inv_crit_tbl(1).pc_project_score_scale || ' value.'
415: );
416: END IF;
419:
420: FOR i IN p_inv_crit_tbl.FIRST..p_inv_crit_tbl.LAST
421: LOOP
422:
423: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
424: FND_LOG.String
425: ( FND_LOG.LEVEL_PROCEDURE,
426: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
427: 'Debugging, we are in ' || i || ' value.'
420: FOR i IN p_inv_crit_tbl.FIRST..p_inv_crit_tbl.LAST
421: LOOP
422:
423: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
424: FND_LOG.String
425: ( FND_LOG.LEVEL_PROCEDURE,
426: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
427: 'Debugging, we are in ' || i || ' value.'
428: );
421: LOOP
422:
423: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
424: FND_LOG.String
425: ( FND_LOG.LEVEL_PROCEDURE,
426: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
427: 'Debugging, we are in ' || i || ' value.'
428: );
429: END IF;
429: END IF;
430:
431:
432: -- Limit strategic_obj_d
433: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
434: FND_LOG.String
435: ( FND_LOG.LEVEL_PROCEDURE,
436: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
437: 'Limit strategic_obj_d dimension to ' || p_inv_crit_tbl(i).investment_criteria || ' value.'
430:
431:
432: -- Limit strategic_obj_d
433: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
434: FND_LOG.String
435: ( FND_LOG.LEVEL_PROCEDURE,
436: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
437: 'Limit strategic_obj_d dimension to ' || p_inv_crit_tbl(i).investment_criteria || ' value.'
438: );
431:
432: -- Limit strategic_obj_d
433: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
434: FND_LOG.String
435: ( FND_LOG.LEVEL_PROCEDURE,
436: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
437: 'Limit strategic_obj_d dimension to ' || p_inv_crit_tbl(i).investment_criteria || ' value.'
438: );
439: END IF;
441:
442: --DBMS_OUTPUT.put_line(' ..Inside For loop...after setting p_inv_crit_tbl(i).investment_criteria' );
443:
444: -- Set the weights for each strategic_obj
445: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
446: FND_LOG.String
447: ( FND_LOG.LEVEL_PROCEDURE,
448: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
449: 'Setting pc_strategic_obj_weights_m: ' || p_inv_crit_tbl(i).pc_inv_criteria_weight || ' value.'
442: --DBMS_OUTPUT.put_line(' ..Inside For loop...after setting p_inv_crit_tbl(i).investment_criteria' );
443:
444: -- Set the weights for each strategic_obj
445: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
446: FND_LOG.String
447: ( FND_LOG.LEVEL_PROCEDURE,
448: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
449: 'Setting pc_strategic_obj_weights_m: ' || p_inv_crit_tbl(i).pc_inv_criteria_weight || ' value.'
450: );
443:
444: -- Set the weights for each strategic_obj
445: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
446: FND_LOG.String
447: ( FND_LOG.LEVEL_PROCEDURE,
448: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
449: 'Setting pc_strategic_obj_weights_m: ' || p_inv_crit_tbl(i).pc_inv_criteria_weight || ' value.'
450: );
451: END IF;
453:
454: --DBMS_OUTPUT.put_line(' ..Inside For loop...after setting p_inv_crit_tbl(i).pc_inv_criteria_weight' );
455:
456: -- Set the target from for each strategic_obj
457: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
458: FND_LOG.String
459: ( FND_LOG.LEVEL_PROCEDURE,
460: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
461: 'Setting pc_obj_wscore_targets_from_m: ' || p_inv_crit_tbl(i).pc_inv_crit_score_target_from || ' value.'
454: --DBMS_OUTPUT.put_line(' ..Inside For loop...after setting p_inv_crit_tbl(i).pc_inv_criteria_weight' );
455:
456: -- Set the target from for each strategic_obj
457: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
458: FND_LOG.String
459: ( FND_LOG.LEVEL_PROCEDURE,
460: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
461: 'Setting pc_obj_wscore_targets_from_m: ' || p_inv_crit_tbl(i).pc_inv_crit_score_target_from || ' value.'
462: );
455:
456: -- Set the target from for each strategic_obj
457: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
458: FND_LOG.String
459: ( FND_LOG.LEVEL_PROCEDURE,
460: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
461: 'Setting pc_obj_wscore_targets_from_m: ' || p_inv_crit_tbl(i).pc_inv_crit_score_target_from || ' value.'
462: );
463: END IF;
472:
473: --DBMS_OUTPUT.put_line(' ..Inside For loop...after setting p_inv_crit_tbl(i).pc_inv_crit_score_target_from' );
474:
475: -- Set the target to for each strategic_obj
476: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
477: FND_LOG.String
478: ( FND_LOG.LEVEL_PROCEDURE,
479: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
480: 'Setting pc_obj_wscore_targets_to_m: ' || p_inv_crit_tbl(i).pc_inv_crit_score_target_to || ' value.'
473: --DBMS_OUTPUT.put_line(' ..Inside For loop...after setting p_inv_crit_tbl(i).pc_inv_crit_score_target_from' );
474:
475: -- Set the target to for each strategic_obj
476: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
477: FND_LOG.String
478: ( FND_LOG.LEVEL_PROCEDURE,
479: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
480: 'Setting pc_obj_wscore_targets_to_m: ' || p_inv_crit_tbl(i).pc_inv_crit_score_target_to || ' value.'
481: );
474:
475: -- Set the target to for each strategic_obj
476: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
477: FND_LOG.String
478: ( FND_LOG.LEVEL_PROCEDURE,
479: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
480: 'Setting pc_obj_wscore_targets_to_m: ' || p_inv_crit_tbl(i).pc_inv_crit_score_target_to || ' value.'
481: );
482: END IF;
491:
492: END LOOP;
493:
494: /*
495: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
496: FND_LOG.String
497: ( FND_LOG.LEVEL_PROCEDURE,
498: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
499: 'Calling AW program: set_pc_invest_criteria_prg( ' || p_inv_crit_tbl(1).planning_cycle || ').'
492: END LOOP;
493:
494: /*
495: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
496: FND_LOG.String
497: ( FND_LOG.LEVEL_PROCEDURE,
498: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
499: 'Calling AW program: set_pc_invest_criteria_prg( ' || p_inv_crit_tbl(1).planning_cycle || ').'
500: );
493:
494: /*
495: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
496: FND_LOG.String
497: ( FND_LOG.LEVEL_PROCEDURE,
498: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
499: 'Calling AW program: set_pc_invest_criteria_prg( ' || p_inv_crit_tbl(1).planning_cycle || ').'
500: );
501: END IF;
502: dbms_aw.execute('call set_pc_invest_criteria_prg(' || p_inv_crit_tbl(1).planning_cycle || ')');
503: */
504:
505:
506: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
507: FND_LOG.String
508: (
509: FND_LOG.LEVEL_PROCEDURE,
510: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data.end',
503: */
504:
505:
506: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
507: FND_LOG.String
508: (
509: FND_LOG.LEVEL_PROCEDURE,
510: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data.end',
511: 'Exiting FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data'
505:
506: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
507: FND_LOG.String
508: (
509: FND_LOG.LEVEL_PROCEDURE,
510: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data.end',
511: 'Exiting FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data'
512: );
513: END IF;
518:
519: ROLLBACK;
520: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
521:
522: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
523: FND_LOG.String
524: (
525: FND_LOG.LEVEL_ERROR,
526: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
519: ROLLBACK;
520: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
521:
522: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
523: FND_LOG.String
524: (
525: FND_LOG.LEVEL_ERROR,
526: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
527: SQLERRM
521:
522: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
523: FND_LOG.String
524: (
525: FND_LOG.LEVEL_ERROR,
526: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
527: SQLERRM
528: );
529: END IF;
547: IS
548:
549: BEGIN
550:
551: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
552: FND_LOG.String
553: (
554: FND_LOG.LEVEL_PROCEDURE,
555: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Desc_Fields.begin',
548:
549: BEGIN
550:
551: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
552: FND_LOG.String
553: (
554: FND_LOG.LEVEL_PROCEDURE,
555: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Desc_Fields.begin',
556: 'Entering FPA_PlanningCycle_Pvt.Update_Pc_Desc_Fields'
550:
551: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
552: FND_LOG.String
553: (
554: FND_LOG.LEVEL_PROCEDURE,
555: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Desc_Fields.begin',
556: 'Entering FPA_PlanningCycle_Pvt.Update_Pc_Desc_Fields'
557: );
558: END IF;
569: WHERE id = p_pc_all_obj.pc_desc_fields.id
570: AND userenv('LANG') IN (LANGUAGE, SOURCE_LANG)
571: AND OBJECT = 'PLANNING_CYCLE'; --Added for bug 6142322
572:
573: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
574: FND_LOG.String
575: (
576: FND_LOG.LEVEL_PROCEDURE,
577: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Desc_Fields.end',
570: AND userenv('LANG') IN (LANGUAGE, SOURCE_LANG)
571: AND OBJECT = 'PLANNING_CYCLE'; --Added for bug 6142322
572:
573: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
574: FND_LOG.String
575: (
576: FND_LOG.LEVEL_PROCEDURE,
577: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Desc_Fields.end',
578: 'Exiting FPA_PlanningCycle_Pvt.Update_Pc_Desc_Fields'
572:
573: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
574: FND_LOG.String
575: (
576: FND_LOG.LEVEL_PROCEDURE,
577: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Desc_Fields.end',
578: 'Exiting FPA_PlanningCycle_Pvt.Update_Pc_Desc_Fields'
579: );
580: END IF;
583: WHEN OTHERS THEN
584: ROLLBACK;
585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
586:
587: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
588: FND_LOG.String
589: (
590: FND_LOG.LEVEL_ERROR,
591: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Desc_Fields',
584: ROLLBACK;
585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
586:
587: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
588: FND_LOG.String
589: (
590: FND_LOG.LEVEL_ERROR,
591: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Desc_Fields',
592: SQLERRM
586:
587: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
588: FND_LOG.String
589: (
590: FND_LOG.LEVEL_ERROR,
591: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Desc_Fields',
592: SQLERRM
593: );
594: END IF;
613:
614: BEGIN
615: --DBMS_OUTPUT.put_line('Inside Set_Pc_Status....');
616:
617: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
618: FND_LOG.String
619: (
620: FND_LOG.LEVEL_PROCEDURE,
621: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Status.begin',
614: BEGIN
615: --DBMS_OUTPUT.put_line('Inside Set_Pc_Status....');
616:
617: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
618: FND_LOG.String
619: (
620: FND_LOG.LEVEL_PROCEDURE,
621: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Status.begin',
622: 'Entering FPA_PlanningCycle_Pvt.Set_Pc_Status'
616:
617: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
618: FND_LOG.String
619: (
620: FND_LOG.LEVEL_PROCEDURE,
621: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Status.begin',
622: 'Entering FPA_PlanningCycle_Pvt.Set_Pc_Status'
623: );
624: END IF;
631: -- Set the new staus
632: dbms_aw.execute('status_pc_r = ''' || p_pc_status_code || '''');
633:
634:
635: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
636: FND_LOG.String
637: (
638: FND_LOG.LEVEL_PROCEDURE,
639: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Status.end',
632: dbms_aw.execute('status_pc_r = ''' || p_pc_status_code || '''');
633:
634:
635: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
636: FND_LOG.String
637: (
638: FND_LOG.LEVEL_PROCEDURE,
639: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Status.end',
640: 'Exiting FPA_PlanningCycle_Pvt.Set_Pc_Status'
634:
635: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
636: FND_LOG.String
637: (
638: FND_LOG.LEVEL_PROCEDURE,
639: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Status.end',
640: 'Exiting FPA_PlanningCycle_Pvt.Set_Pc_Status'
641: );
642: END IF;
645: WHEN OTHERS THEN
646: ROLLBACK;
647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
648:
649: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
650: FND_LOG.String
651: (
652: FND_LOG.LEVEL_ERROR,
653: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Status',
646: ROLLBACK;
647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
648:
649: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
650: FND_LOG.String
651: (
652: FND_LOG.LEVEL_ERROR,
653: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Status',
654: SQLERRM
648:
649: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
650: FND_LOG.String
651: (
652: FND_LOG.LEVEL_ERROR,
653: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Status',
654: SQLERRM
655: );
656: END IF;
673: IS
674: BEGIN
675: --DBMS_OUTPUT.put_line('Inside Set_Pc_Initiate_Date....');
676:
677: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
678: FND_LOG.String
679: (
680: FND_LOG.LEVEL_PROCEDURE,
681: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Initiate_Date.begin',
674: BEGIN
675: --DBMS_OUTPUT.put_line('Inside Set_Pc_Initiate_Date....');
676:
677: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
678: FND_LOG.String
679: (
680: FND_LOG.LEVEL_PROCEDURE,
681: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Initiate_Date.begin',
682: 'Entering FPA_PlanningCycle_Pvt.Set_Pc_Initiate_Date'
676:
677: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
678: FND_LOG.String
679: (
680: FND_LOG.LEVEL_PROCEDURE,
681: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Initiate_Date.begin',
682: 'Entering FPA_PlanningCycle_Pvt.Set_Pc_Initiate_Date'
683: );
684: END IF;
714: dbms_aw.execute('pc_initiate_date_r = '''
715: || to_char(to_date(p_pc_init_date, 'DD-MON-YYYY'), 'DDMONYYYY' || ''''));
716: */
717:
718: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
719: FND_LOG.String
720: (
721: FND_LOG.LEVEL_PROCEDURE,
722: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Initiate_Date.end',
715: || to_char(to_date(p_pc_init_date, 'DD-MON-YYYY'), 'DDMONYYYY' || ''''));
716: */
717:
718: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
719: FND_LOG.String
720: (
721: FND_LOG.LEVEL_PROCEDURE,
722: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Initiate_Date.end',
723: 'Exiting FPA_PlanningCycle_Pvt.Set_Pc_Initiate_Date'
717:
718: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
719: FND_LOG.String
720: (
721: FND_LOG.LEVEL_PROCEDURE,
722: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Initiate_Date.end',
723: 'Exiting FPA_PlanningCycle_Pvt.Set_Pc_Initiate_Date'
724: );
725: END IF;
728: WHEN OTHERS THEN
729: ROLLBACK;
730: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
731:
732: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
733: FND_LOG.String
734: (
735: FND_LOG.LEVEL_ERROR,
736: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Initiate',
729: ROLLBACK;
730: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
731:
732: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
733: FND_LOG.String
734: (
735: FND_LOG.LEVEL_ERROR,
736: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Initiate',
737: SQLERRM
731:
732: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
733: FND_LOG.String
734: (
735: FND_LOG.LEVEL_ERROR,
736: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Initiate',
737: SQLERRM
738: );
739: END IF;
759:
760: BEGIN
761: --DBMS_OUTPUT.put_line('Inside Update_Pc_Class_Category....');
762:
763: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
764: FND_LOG.String
765: (
766: FND_LOG.LEVEL_PROCEDURE,
767: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Class_Category.begin',
760: BEGIN
761: --DBMS_OUTPUT.put_line('Inside Update_Pc_Class_Category....');
762:
763: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
764: FND_LOG.String
765: (
766: FND_LOG.LEVEL_PROCEDURE,
767: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Class_Category.begin',
768: 'Entering FPA_PlanningCycle_Pvt.Update_Pc_Class_Category'
762:
763: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
764: FND_LOG.String
765: (
766: FND_LOG.LEVEL_PROCEDURE,
767: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Class_Category.begin',
768: 'Entering FPA_PlanningCycle_Pvt.Update_Pc_Class_Category'
769: );
770: END IF;
777: --DBMS_OUTPUT.put_line('Before setting pc_class_code_m ....');
778: -- Set the new class category
779: dbms_aw.execute('pc_category_m = ''' || p_catg_id || '''');
780:
781: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
782: FND_LOG.String
783: (
784: FND_LOG.LEVEL_PROCEDURE,
785: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Class_Category.end',
778: -- Set the new class category
779: dbms_aw.execute('pc_category_m = ''' || p_catg_id || '''');
780:
781: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
782: FND_LOG.String
783: (
784: FND_LOG.LEVEL_PROCEDURE,
785: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Class_Category.end',
786: 'Exiting FPA_PlanningCycle_Pvt.Update_Pc_Class_Category'
780:
781: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
782: FND_LOG.String
783: (
784: FND_LOG.LEVEL_PROCEDURE,
785: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Class_Category.end',
786: 'Exiting FPA_PlanningCycle_Pvt.Update_Pc_Class_Category'
787: );
788: END IF;
791: WHEN OTHERS THEN
792: ROLLBACK;
793: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
794:
795: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
796: FND_LOG.String
797: (
798: FND_LOG.LEVEL_ERROR,
799: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Class_Category',
792: ROLLBACK;
793: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
794:
795: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
796: FND_LOG.String
797: (
798: FND_LOG.LEVEL_ERROR,
799: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Class_Category',
800: SQLERRM
794:
795: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
796: FND_LOG.String
797: (
798: FND_LOG.LEVEL_ERROR,
799: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Class_Category',
800: SQLERRM
801: );
802: END IF;
820:
821: BEGIN
822: --DBMS_OUTPUT.put_line('Inside Update_Pc_Calendar....');
823:
824: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
825: FND_LOG.String
826: (
827: FND_LOG.LEVEL_PROCEDURE,
828: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Calendar.begin',
821: BEGIN
822: --DBMS_OUTPUT.put_line('Inside Update_Pc_Calendar....');
823:
824: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
825: FND_LOG.String
826: (
827: FND_LOG.LEVEL_PROCEDURE,
828: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Calendar.begin',
829: 'Entering FPA_PlanningCycle_Pvt.Update_Pc_Calendar'
823:
824: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
825: FND_LOG.String
826: (
827: FND_LOG.LEVEL_PROCEDURE,
828: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Calendar.begin',
829: 'Entering FPA_PlanningCycle_Pvt.Update_Pc_Calendar'
830: );
831: END IF;
883: dbms_aw.execute('pc_funding_period_to_m = ''' || p_pc_info.funding_period_to || '''');
884:
885: dbms_aw.execute('pc_effective_period_to_m = ''' || p_pc_info.effective_period_to || '''');
886:
887: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
888: FND_LOG.String
889: (
890: FND_LOG.LEVEL_PROCEDURE,
891: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Calendar.end',
884:
885: dbms_aw.execute('pc_effective_period_to_m = ''' || p_pc_info.effective_period_to || '''');
886:
887: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
888: FND_LOG.String
889: (
890: FND_LOG.LEVEL_PROCEDURE,
891: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Calendar.end',
892: 'Exiting FPA_PlanningCycle_Pvt.Update_Pc_Calendar'
886:
887: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
888: FND_LOG.String
889: (
890: FND_LOG.LEVEL_PROCEDURE,
891: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Calendar.end',
892: 'Exiting FPA_PlanningCycle_Pvt.Update_Pc_Calendar'
893: );
894: END IF;
897: WHEN OTHERS THEN
898: ROLLBACK;
899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
900:
901: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
902: FND_LOG.String
903: (
904: FND_LOG.LEVEL_ERROR,
905: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Calendar',
898: ROLLBACK;
899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
900:
901: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
902: FND_LOG.String
903: (
904: FND_LOG.LEVEL_ERROR,
905: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Calendar',
906: SQLERRM
900:
901: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
902: FND_LOG.String
903: (
904: FND_LOG.LEVEL_ERROR,
905: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Calendar',
906: SQLERRM
907: );
908: END IF;
926:
927: BEGIN
928: --DBMS_OUTPUT.put_line('Inside Update_Pc_Currency....');
929:
930: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
931: FND_LOG.String
932: (FND_LOG.LEVEL_PROCEDURE,
933: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Currency.begin',
934: 'Entering FPA_PlanningCycle_Pvt.Update_Pc_Currency'
927: BEGIN
928: --DBMS_OUTPUT.put_line('Inside Update_Pc_Currency....');
929:
930: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
931: FND_LOG.String
932: (FND_LOG.LEVEL_PROCEDURE,
933: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Currency.begin',
934: 'Entering FPA_PlanningCycle_Pvt.Update_Pc_Currency'
935: );
928: --DBMS_OUTPUT.put_line('Inside Update_Pc_Currency....');
929:
930: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
931: FND_LOG.String
932: (FND_LOG.LEVEL_PROCEDURE,
933: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Currency.begin',
934: 'Entering FPA_PlanningCycle_Pvt.Update_Pc_Currency'
935: );
936: END IF;
965: -- If conversion rate date is not null then set relation to that value
966: -- else set it to todays date.
967: if p_pc_info.conversion_rate_date is not null
968: then
969: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
970: FND_LOG.String
971: (FND_LOG.LEVEL_PROCEDURE,
972: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Currency',
973: 'Setting currency_date_pc_r to : ' || to_char(fnd_date.chardate_to_date(p_pc_info.conversion_rate_date), 'DDMONYYYY' || '''') || ' value.'
966: -- else set it to todays date.
967: if p_pc_info.conversion_rate_date is not null
968: then
969: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
970: FND_LOG.String
971: (FND_LOG.LEVEL_PROCEDURE,
972: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Currency',
973: 'Setting currency_date_pc_r to : ' || to_char(fnd_date.chardate_to_date(p_pc_info.conversion_rate_date), 'DDMONYYYY' || '''') || ' value.'
974: );
967: if p_pc_info.conversion_rate_date is not null
968: then
969: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
970: FND_LOG.String
971: (FND_LOG.LEVEL_PROCEDURE,
972: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Currency',
973: 'Setting currency_date_pc_r to : ' || to_char(fnd_date.chardate_to_date(p_pc_info.conversion_rate_date), 'DDMONYYYY' || '''') || ' value.'
974: );
975: END IF;
983: /*dbms_aw.execute('currency_date_pc_r = '''
984: || to_char(to_date(p_pc_info.conversion_rate_date,
985: 'DD-MON-YYYY'), 'DDMONYYYY' || ''''));*/
986: else
987: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
988: FND_LOG.String
989: (FND_LOG.LEVEL_PROCEDURE,
990: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Currency',
991: 'Setting currency_date_pc_r to sysdate value.'||to_char(sysdate,'DDMONYYYY' || '''')
984: || to_char(to_date(p_pc_info.conversion_rate_date,
985: 'DD-MON-YYYY'), 'DDMONYYYY' || ''''));*/
986: else
987: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
988: FND_LOG.String
989: (FND_LOG.LEVEL_PROCEDURE,
990: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Currency',
991: 'Setting currency_date_pc_r to sysdate value.'||to_char(sysdate,'DDMONYYYY' || '''')
992: );
985: 'DD-MON-YYYY'), 'DDMONYYYY' || ''''));*/
986: else
987: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
988: FND_LOG.String
989: (FND_LOG.LEVEL_PROCEDURE,
990: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Currency',
991: 'Setting currency_date_pc_r to sysdate value.'||to_char(sysdate,'DDMONYYYY' || '''')
992: );
993: END IF;
1002: || to_char(to_date(sysdate,
1003: 'DD-MON-YYYY'), 'DDMONYYYY' || ''''));*/
1004: end if;
1005:
1006: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1007: FND_LOG.String
1008: (
1009: FND_LOG.LEVEL_PROCEDURE,
1010: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Currency.end',
1003: 'DD-MON-YYYY'), 'DDMONYYYY' || ''''));*/
1004: end if;
1005:
1006: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1007: FND_LOG.String
1008: (
1009: FND_LOG.LEVEL_PROCEDURE,
1010: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Currency.end',
1011: 'Exiting FPA_PlanningCycle_Pvt.Update_Pc_Currency'
1005:
1006: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1007: FND_LOG.String
1008: (
1009: FND_LOG.LEVEL_PROCEDURE,
1010: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Currency.end',
1011: 'Exiting FPA_PlanningCycle_Pvt.Update_Pc_Currency'
1012: );
1013: END IF;
1016: WHEN OTHERS THEN
1017: ROLLBACK;
1018: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1019:
1020: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1021: FND_LOG.String
1022: (
1023: FND_LOG.LEVEL_ERROR,
1024: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Currency',
1017: ROLLBACK;
1018: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1019:
1020: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1021: FND_LOG.String
1022: (
1023: FND_LOG.LEVEL_ERROR,
1024: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Currency',
1025: SQLERRM
1019:
1020: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1021: FND_LOG.String
1022: (
1023: FND_LOG.LEVEL_ERROR,
1024: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Currency',
1025: SQLERRM
1026: );
1027: END IF;
1046:
1047: BEGIN
1048: --DBMS_OUTPUT.put_line('Inside Update_Pc_Sub_Due_Date....');
1049:
1050: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1051: FND_LOG.String
1052: (
1053: FND_LOG.LEVEL_PROCEDURE,
1054: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Sub_Due_Date.begin',
1047: BEGIN
1048: --DBMS_OUTPUT.put_line('Inside Update_Pc_Sub_Due_Date....');
1049:
1050: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1051: FND_LOG.String
1052: (
1053: FND_LOG.LEVEL_PROCEDURE,
1054: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Sub_Due_Date.begin',
1055: 'Entering FPA_PlanningCycle_Pvt.Update_Pc_Sub_Due_Date'
1049:
1050: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1051: FND_LOG.String
1052: (
1053: FND_LOG.LEVEL_PROCEDURE,
1054: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Sub_Due_Date.begin',
1055: 'Entering FPA_PlanningCycle_Pvt.Update_Pc_Sub_Due_Date'
1056: );
1057: END IF;
1087: /*dbms_aw.execute('pc_submission_due_date_r = '''
1088: || to_char(to_date(p_pc_info.submission_due_date,
1089: 'DD-MON-YYYY'), 'DDMONYYYY' || ''''));*/
1090:
1091: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1092: FND_LOG.String
1093: (
1094: FND_LOG.LEVEL_PROCEDURE,
1095: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Sub_Due_Date.end',
1088: || to_char(to_date(p_pc_info.submission_due_date,
1089: 'DD-MON-YYYY'), 'DDMONYYYY' || ''''));*/
1090:
1091: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1092: FND_LOG.String
1093: (
1094: FND_LOG.LEVEL_PROCEDURE,
1095: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Sub_Due_Date.end',
1096: 'Exiting FPA_PlanningCycle_Pvt.Update_Pc_Sub_Due_Date'
1090:
1091: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1092: FND_LOG.String
1093: (
1094: FND_LOG.LEVEL_PROCEDURE,
1095: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Sub_Due_Date.end',
1096: 'Exiting FPA_PlanningCycle_Pvt.Update_Pc_Sub_Due_Date'
1097: );
1098: END IF;
1101: WHEN OTHERS THEN
1102: ROLLBACK;
1103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1104:
1105: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1106: FND_LOG.String
1107: (
1108: FND_LOG.LEVEL_ERROR,
1109: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Sub_Due_Date',
1102: ROLLBACK;
1103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1104:
1105: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1106: FND_LOG.String
1107: (
1108: FND_LOG.LEVEL_ERROR,
1109: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Sub_Due_Date',
1110: SQLERRM
1104:
1105: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1106: FND_LOG.String
1107: (
1108: FND_LOG.LEVEL_ERROR,
1109: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Sub_Due_Date',
1110: SQLERRM
1111: );
1112: END IF;
1132:
1133: BEGIN
1134: --DBMS_OUTPUT.put_line('Inside Update_Pc_Discount_funds....');
1135:
1136: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1137: FND_LOG.String
1138: (
1139: FND_LOG.LEVEL_PROCEDURE,
1140: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Discount_funds.begin',
1133: BEGIN
1134: --DBMS_OUTPUT.put_line('Inside Update_Pc_Discount_funds....');
1135:
1136: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1137: FND_LOG.String
1138: (
1139: FND_LOG.LEVEL_PROCEDURE,
1140: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Discount_funds.begin',
1141: 'Entering FPA_PlanningCycle_Pvt.Update_Pc_Discount_funds'
1135:
1136: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1137: FND_LOG.String
1138: (
1139: FND_LOG.LEVEL_PROCEDURE,
1140: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Discount_funds.begin',
1141: 'Entering FPA_PlanningCycle_Pvt.Update_Pc_Discount_funds'
1142: );
1143: END IF;
1164:
1165: --DBMS_OUTPUT.put_line('Outside IF p_disc_funds IS NOT NULL .... ');
1166:
1167:
1168: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1169: FND_LOG.String
1170: (
1171: FND_LOG.LEVEL_PROCEDURE,
1172: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Discount_funds.end',
1165: --DBMS_OUTPUT.put_line('Outside IF p_disc_funds IS NOT NULL .... ');
1166:
1167:
1168: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1169: FND_LOG.String
1170: (
1171: FND_LOG.LEVEL_PROCEDURE,
1172: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Discount_funds.end',
1173: 'Exiting FPA_PlanningCycle_Pvt.Update_Pc_Discount_funds'
1167:
1168: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1169: FND_LOG.String
1170: (
1171: FND_LOG.LEVEL_PROCEDURE,
1172: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Discount_funds.end',
1173: 'Exiting FPA_PlanningCycle_Pvt.Update_Pc_Discount_funds'
1174: );
1175: END IF;
1178: WHEN OTHERS THEN
1179: ROLLBACK;
1180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1181:
1182: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1183: FND_LOG.String
1184: (
1185: FND_LOG.LEVEL_ERROR,
1186: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Discount_funds',
1179: ROLLBACK;
1180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1181:
1182: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1183: FND_LOG.String
1184: (
1185: FND_LOG.LEVEL_ERROR,
1186: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Discount_funds',
1187: SQLERRM
1181:
1182: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1183: FND_LOG.String
1184: (
1185: FND_LOG.LEVEL_ERROR,
1186: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Discount_funds',
1187: SQLERRM
1188: );
1189: END IF;
1213: l_pcName_Count NUMBER;
1214:
1215: BEGIN
1216:
1217: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1218: FND_LOG.String
1219: (
1220: FND_LOG.LEVEL_PROCEDURE,
1221: 'fpa.sql.FPA_PlanningCycle_Pvt.Check_Pc_Name.begin',
1214:
1215: BEGIN
1216:
1217: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1218: FND_LOG.String
1219: (
1220: FND_LOG.LEVEL_PROCEDURE,
1221: 'fpa.sql.FPA_PlanningCycle_Pvt.Check_Pc_Name.begin',
1222: 'Entering FPA_PlanningCycle_Pvt.Check_Pc_Name'
1216:
1217: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1218: FND_LOG.String
1219: (
1220: FND_LOG.LEVEL_PROCEDURE,
1221: 'fpa.sql.FPA_PlanningCycle_Pvt.Check_Pc_Name.begin',
1222: 'Entering FPA_PlanningCycle_Pvt.Check_Pc_Name'
1223: );
1224: END IF;
1242: END IF;
1243:
1244: RETURN l_pcName_Count;
1245:
1246: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
1247: FND_LOG.String
1248: (
1249: FND_LOG.LEVEL_PROCEDURE,
1250: 'fpa.sql.FPA_PlanningCycle_Pvt.Check_Pc_Name.end',
1243:
1244: RETURN l_pcName_Count;
1245:
1246: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
1247: FND_LOG.String
1248: (
1249: FND_LOG.LEVEL_PROCEDURE,
1250: 'fpa.sql.FPA_PlanningCycle_Pvt.Check_Pc_Name.end',
1251: 'Exiting FPA_PlanningCycle_Pvt.Check_Pc_Name'
1245:
1246: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
1247: FND_LOG.String
1248: (
1249: FND_LOG.LEVEL_PROCEDURE,
1250: 'fpa.sql.FPA_PlanningCycle_Pvt.Check_Pc_Name.end',
1251: 'Exiting FPA_PlanningCycle_Pvt.Check_Pc_Name'
1252: );
1253: END IF;
1256: WHEN OTHERS THEN
1257: ROLLBACK;
1258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1259:
1260: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
1261: FND_LOG.String
1262: (
1263: FND_LOG.LEVEL_ERROR,
1264: 'fpa.sql.FPA_PlanningCycle_Pvt.Check_Pc_Name',
1257: ROLLBACK;
1258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1259:
1260: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
1261: FND_LOG.String
1262: (
1263: FND_LOG.LEVEL_ERROR,
1264: 'fpa.sql.FPA_PlanningCycle_Pvt.Check_Pc_Name',
1265: SQLERRM
1259:
1260: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
1261: FND_LOG.String
1262: (
1263: FND_LOG.LEVEL_ERROR,
1264: 'fpa.sql.FPA_PlanningCycle_Pvt.Check_Pc_Name',
1265: SQLERRM
1266: );
1267: END IF;
1287: IS
1288: l_list_id NUMBER;
1289: l_obj_name VARCHAR2(80);
1290: BEGIN
1291: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1292: FND_LOG.String
1293: (
1294: FND_LOG.LEVEL_PROCEDURE,
1295: 'fpa.sql.FPA_Process_Pvt.Pa_Distrb_Lists_Insert_Row.begin',
1288: l_list_id NUMBER;
1289: l_obj_name VARCHAR2(80);
1290: BEGIN
1291: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1292: FND_LOG.String
1293: (
1294: FND_LOG.LEVEL_PROCEDURE,
1295: 'fpa.sql.FPA_Process_Pvt.Pa_Distrb_Lists_Insert_Row.begin',
1296: 'Entering FPA_Process_Pvt.Pa_Distrb_Lists_Insert_Row'
1290: BEGIN
1291: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1292: FND_LOG.String
1293: (
1294: FND_LOG.LEVEL_PROCEDURE,
1295: 'fpa.sql.FPA_Process_Pvt.Pa_Distrb_Lists_Insert_Row.begin',
1296: 'Entering FPA_Process_Pvt.Pa_Distrb_Lists_Insert_Row'
1297: );
1298: END IF;
1328: P_LAST_UPDATE_LOGIN => fnd_global.user_id
1329: );
1330:
1331:
1332: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1333: FND_LOG.String
1334: (
1335: FND_LOG.LEVEL_PROCEDURE,
1336: 'fpa.sql.FPA_Process_Pvt.Pa_Distrb_Lists_Insert_Row.end',
1329: );
1330:
1331:
1332: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1333: FND_LOG.String
1334: (
1335: FND_LOG.LEVEL_PROCEDURE,
1336: 'fpa.sql.FPA_Process_Pvt.Pa_Distrb_Lists_Insert_Row.end',
1337: 'Exiting FPA_Process_Pvt.Pa_Distrb_Lists_Insert_Row'
1331:
1332: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1333: FND_LOG.String
1334: (
1335: FND_LOG.LEVEL_PROCEDURE,
1336: 'fpa.sql.FPA_Process_Pvt.Pa_Distrb_Lists_Insert_Row.end',
1337: 'Exiting FPA_Process_Pvt.Pa_Distrb_Lists_Insert_Row'
1338: );
1339: END IF;
1345: ROLLBACK;
1346:
1347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1348:
1349: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1350: FND_LOG.String
1351: (
1352: FND_LOG.LEVEL_ERROR,
1353: 'fpa.sql.FPA_Process_Pvt.Pa_Distrb_Lists_Insert_Row',
1346:
1347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1348:
1349: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1350: FND_LOG.String
1351: (
1352: FND_LOG.LEVEL_ERROR,
1353: 'fpa.sql.FPA_Process_Pvt.Pa_Distrb_Lists_Insert_Row',
1354: SQLERRM
1348:
1349: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1350: FND_LOG.String
1351: (
1352: FND_LOG.LEVEL_ERROR,
1353: 'fpa.sql.FPA_Process_Pvt.Pa_Distrb_Lists_Insert_Row',
1354: SQLERRM
1355: );
1356: END IF;
1374: IS
1375: l_list_item_id NUMBER;
1376: l_list_id NUMBER;
1377: BEGIN
1378: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1379: FND_LOG.String
1380: (
1381: FND_LOG.LEVEL_PROCEDURE,
1382: 'fpa.sql.FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row.begin',
1375: l_list_item_id NUMBER;
1376: l_list_id NUMBER;
1377: BEGIN
1378: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1379: FND_LOG.String
1380: (
1381: FND_LOG.LEVEL_PROCEDURE,
1382: 'fpa.sql.FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row.begin',
1383: 'Entering FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row'
1377: BEGIN
1378: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1379: FND_LOG.String
1380: (
1381: FND_LOG.LEVEL_PROCEDURE,
1382: 'fpa.sql.FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row.begin',
1383: 'Entering FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row'
1384: );
1385: END IF;
1454: END LOOP;
1455:
1456: END IF;
1457:
1458: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1459: FND_LOG.String
1460: (
1461: FND_LOG.LEVEL_PROCEDURE,
1462: 'fpa.sql.FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row.end',
1455:
1456: END IF;
1457:
1458: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1459: FND_LOG.String
1460: (
1461: FND_LOG.LEVEL_PROCEDURE,
1462: 'fpa.sql.FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row.end',
1463: 'Exiting FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row'
1457:
1458: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1459: FND_LOG.String
1460: (
1461: FND_LOG.LEVEL_PROCEDURE,
1462: 'fpa.sql.FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row.end',
1463: 'Exiting FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row'
1464: );
1465: END IF;
1471: ROLLBACK;
1472:
1473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1474:
1475: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1476: FND_LOG.String
1477: (
1478: FND_LOG.LEVEL_ERROR,
1479: 'fpa.sql.FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row',
1472:
1473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1474:
1475: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1476: FND_LOG.String
1477: (
1478: FND_LOG.LEVEL_ERROR,
1479: 'fpa.sql.FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row',
1480: SQLERRM
1474:
1475: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1476: FND_LOG.String
1477: (
1478: FND_LOG.LEVEL_ERROR,
1479: 'fpa.sql.FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row',
1480: SQLERRM
1481: );
1482: END IF;
1500: l_api_version CONSTANT NUMBER := 1.0;
1501:
1502: begin
1503:
1504: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1505: fnd_log.string
1506: (
1507: FND_LOG.LEVEL_PROCEDURE,
1508: 'fpa.sql.fpa_planningcycle_pvt.Set_Pc_Investment_Criteria.begin',
1501:
1502: begin
1503:
1504: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1505: fnd_log.string
1506: (
1507: FND_LOG.LEVEL_PROCEDURE,
1508: 'fpa.sql.fpa_planningcycle_pvt.Set_Pc_Investment_Criteria.begin',
1509: 'Entering fpa_planningcycle_pvt.Set_Pc_Investment_Criteria.'
1503:
1504: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1505: fnd_log.string
1506: (
1507: FND_LOG.LEVEL_PROCEDURE,
1508: 'fpa.sql.fpa_planningcycle_pvt.Set_Pc_Investment_Criteria.begin',
1509: 'Entering fpa_planningcycle_pvt.Set_Pc_Investment_Criteria.'
1510: );
1511: END IF;
1509: 'Entering fpa_planningcycle_pvt.Set_Pc_Investment_Criteria.'
1510: );
1511: END IF;
1512:
1513: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1514: fnd_log.string
1515: (
1516: FND_LOG.LEVEL_PROCEDURE,
1517: 'fpa.sql.fpa_planningcycle_pvt.Set_Pc_Investment_Criteria.begin',
1510: );
1511: END IF;
1512:
1513: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1514: fnd_log.string
1515: (
1516: FND_LOG.LEVEL_PROCEDURE,
1517: 'fpa.sql.fpa_planningcycle_pvt.Set_Pc_Investment_Criteria.begin',
1518: 'Calling AW Program SET_PC_INVEST_CRITERIA_PRG.'
1512:
1513: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1514: fnd_log.string
1515: (
1516: FND_LOG.LEVEL_PROCEDURE,
1517: 'fpa.sql.fpa_planningcycle_pvt.Set_Pc_Investment_Criteria.begin',
1518: 'Calling AW Program SET_PC_INVEST_CRITERIA_PRG.'
1519: );
1520: END IF;
1520: END IF;
1521:
1522: dbms_aw.execute('call SET_PC_INVEST_CRITERIA_PRG(' || p_pc_id || ')');
1523:
1524: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1525: fnd_log.string
1526: (
1527: FND_LOG.LEVEL_PROCEDURE,
1528: 'fpa.sql.fpa_planningcycle_pvt.Set_Pc_Investment_Criteria.end',
1521:
1522: dbms_aw.execute('call SET_PC_INVEST_CRITERIA_PRG(' || p_pc_id || ')');
1523:
1524: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1525: fnd_log.string
1526: (
1527: FND_LOG.LEVEL_PROCEDURE,
1528: 'fpa.sql.fpa_planningcycle_pvt.Set_Pc_Investment_Criteria.end',
1529: 'Entering fpa_planningcycle_pvt.Set_Pc_Investment_Criteria.'
1523:
1524: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1525: fnd_log.string
1526: (
1527: FND_LOG.LEVEL_PROCEDURE,
1528: 'fpa.sql.fpa_planningcycle_pvt.Set_Pc_Investment_Criteria.end',
1529: 'Entering fpa_planningcycle_pvt.Set_Pc_Investment_Criteria.'
1530: );
1531: END IF;
1533: EXCEPTION
1534: WHEN OTHERS THEN
1535: ROLLBACK;
1536: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1537: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1538: fnd_log.string
1539: (
1540: FND_LOG.LEVEL_ERROR,
1541: 'fpa.sql.fpa_planningcycle_pvt.Set_Pc_Investment_Criteria',
1534: WHEN OTHERS THEN
1535: ROLLBACK;
1536: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1537: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1538: fnd_log.string
1539: (
1540: FND_LOG.LEVEL_ERROR,
1541: 'fpa.sql.fpa_planningcycle_pvt.Set_Pc_Investment_Criteria',
1542: SQLERRM
1536: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1537: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1538: fnd_log.string
1539: (
1540: FND_LOG.LEVEL_ERROR,
1541: 'fpa.sql.fpa_planningcycle_pvt.Set_Pc_Investment_Criteria',
1542: SQLERRM
1543: );
1544: END IF;
1562: l_api_version CONSTANT NUMBER := 1.0;
1563:
1564: begin
1565:
1566: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1567: FND_LOG.String
1568: (
1569: FND_LOG.LEVEL_PROCEDURE,
1570: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Approved_Flag.begin',
1563:
1564: begin
1565:
1566: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1567: FND_LOG.String
1568: (
1569: FND_LOG.LEVEL_PROCEDURE,
1570: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Approved_Flag.begin',
1571: 'Entering FPA_PlanningCycle_Pvt.Set_Pc_Approved_Flag'
1565:
1566: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1567: FND_LOG.String
1568: (
1569: FND_LOG.LEVEL_PROCEDURE,
1570: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Approved_Flag.begin',
1571: 'Entering FPA_PlanningCycle_Pvt.Set_Pc_Approved_Flag'
1572: );
1573: END IF;
1571: 'Entering FPA_PlanningCycle_Pvt.Set_Pc_Approved_Flag'
1572: );
1573: END IF;
1574:
1575: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1576: FND_LOG.String
1577: (
1578: FND_LOG.LEVEL_PROCEDURE,
1579: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Approved_Flag',
1572: );
1573: END IF;
1574:
1575: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1576: FND_LOG.String
1577: (
1578: FND_LOG.LEVEL_PROCEDURE,
1579: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Approved_Flag',
1580: 'Limiting to passed PC id'
1574:
1575: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1576: FND_LOG.String
1577: (
1578: FND_LOG.LEVEL_PROCEDURE,
1579: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Approved_Flag',
1580: 'Limiting to passed PC id'
1581: );
1582: END IF;
1585: dbms_aw.execute('push portfolio_d');
1586: dbms_aw.execute('oknullstatus = y');
1587: dbms_aw.execute('limit planning_cycle_d to ' || p_pc_id);
1588:
1589: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1590: FND_LOG.String
1591: (
1592: FND_LOG.LEVEL_PROCEDURE,
1593: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Approved_Flag',
1586: dbms_aw.execute('oknullstatus = y');
1587: dbms_aw.execute('limit planning_cycle_d to ' || p_pc_id);
1588:
1589: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1590: FND_LOG.String
1591: (
1592: FND_LOG.LEVEL_PROCEDURE,
1593: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Approved_Flag',
1594: 'Limiting to portfolio for passed PC id'
1588:
1589: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1590: FND_LOG.String
1591: (
1592: FND_LOG.LEVEL_PROCEDURE,
1593: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Approved_Flag',
1594: 'Limiting to portfolio for passed PC id'
1595: );
1596: END IF;
1595: );
1596: END IF;
1597: dbms_aw.execute('limit portfolio_d to portfolio_pc_r');
1598:
1599: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1600: FND_LOG.String
1601: (
1602: FND_LOG.LEVEL_PROCEDURE,
1603: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Approved_Flag',
1596: END IF;
1597: dbms_aw.execute('limit portfolio_d to portfolio_pc_r');
1598:
1599: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1600: FND_LOG.String
1601: (
1602: FND_LOG.LEVEL_PROCEDURE,
1603: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Approved_Flag',
1604: 'Limiting to planning cycles for the same portfolio'
1598:
1599: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1600: FND_LOG.String
1601: (
1602: FND_LOG.LEVEL_PROCEDURE,
1603: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Approved_Flag',
1604: 'Limiting to planning cycles for the same portfolio'
1605: );
1606: END IF;
1605: );
1606: END IF;
1607: dbms_aw.execute('limit planning_cycle_d to portfolio_d');
1608:
1609: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1610: FND_LOG.String
1611: (
1612: FND_LOG.LEVEL_PROCEDURE,
1613: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Approved_Flag',
1606: END IF;
1607: dbms_aw.execute('limit planning_cycle_d to portfolio_d');
1608:
1609: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1610: FND_LOG.String
1611: (
1612: FND_LOG.LEVEL_PROCEDURE,
1613: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Approved_Flag',
1614: 'Reset last approved flag'
1608:
1609: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1610: FND_LOG.String
1611: (
1612: FND_LOG.LEVEL_PROCEDURE,
1613: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Approved_Flag',
1614: 'Reset last approved flag'
1615: );
1616: END IF;
1615: );
1616: END IF;
1617: dbms_aw.execute('pc_last_approved_flag_m = na');
1618:
1619: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1620: FND_LOG.String
1621: (
1622: FND_LOG.LEVEL_PROCEDURE,
1623: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Approved_Flag',
1616: END IF;
1617: dbms_aw.execute('pc_last_approved_flag_m = na');
1618:
1619: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1620: FND_LOG.String
1621: (
1622: FND_LOG.LEVEL_PROCEDURE,
1623: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Approved_Flag',
1624: 'Setting last approved flag to passed pc ID'
1618:
1619: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1620: FND_LOG.String
1621: (
1622: FND_LOG.LEVEL_PROCEDURE,
1623: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Approved_Flag',
1624: 'Setting last approved flag to passed pc ID'
1625: );
1626: END IF;
1628: dbms_aw.execute('pc_last_approved_flag_m = yes');
1629: dbms_aw.execute('pop planning_cycle_d');
1630: dbms_aw.execute('pop portfolio_d');
1631:
1632: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1633: FND_LOG.String
1634: (
1635: FND_LOG.LEVEL_PROCEDURE,
1636: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Approved_Flag.end',
1629: dbms_aw.execute('pop planning_cycle_d');
1630: dbms_aw.execute('pop portfolio_d');
1631:
1632: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1633: FND_LOG.String
1634: (
1635: FND_LOG.LEVEL_PROCEDURE,
1636: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Approved_Flag.end',
1637: 'Exiting fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Approved_Flag.end'
1631:
1632: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1633: FND_LOG.String
1634: (
1635: FND_LOG.LEVEL_PROCEDURE,
1636: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Approved_Flag.end',
1637: 'Exiting fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Approved_Flag.end'
1638: );
1639: END IF;
1641: EXCEPTION
1642: WHEN OTHERS THEN
1643: ROLLBACK;
1644: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1645: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1646: fnd_log.string
1647: (
1648: FND_LOG.LEVEL_ERROR,
1649: 'fpa.sql.fpa_planningcycle_pvt.Set_Pc_Approved_Flag',
1642: WHEN OTHERS THEN
1643: ROLLBACK;
1644: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1645: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1646: fnd_log.string
1647: (
1648: FND_LOG.LEVEL_ERROR,
1649: 'fpa.sql.fpa_planningcycle_pvt.Set_Pc_Approved_Flag',
1650: SQLERRM
1644: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1645: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1646: fnd_log.string
1647: (
1648: FND_LOG.LEVEL_ERROR,
1649: 'fpa.sql.fpa_planningcycle_pvt.Set_Pc_Approved_Flag',
1650: SQLERRM
1651: );
1652: END IF;
1670: l_api_version CONSTANT NUMBER := 1.0;
1671:
1672: begin
1673:
1674: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1675: FND_LOG.String
1676: (
1677: FND_LOG.LEVEL_PROCEDURE,
1678: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Last_Flag.begin',
1671:
1672: begin
1673:
1674: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1675: FND_LOG.String
1676: (
1677: FND_LOG.LEVEL_PROCEDURE,
1678: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Last_Flag.begin',
1679: 'Entering FPA_PlanningCycle_Pvt.Set_Pc_Last_Flag'
1673:
1674: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1675: FND_LOG.String
1676: (
1677: FND_LOG.LEVEL_PROCEDURE,
1678: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Last_Flag.begin',
1679: 'Entering FPA_PlanningCycle_Pvt.Set_Pc_Last_Flag'
1680: );
1681: END IF;
1679: 'Entering FPA_PlanningCycle_Pvt.Set_Pc_Last_Flag'
1680: );
1681: END IF;
1682:
1683: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1684: FND_LOG.String
1685: (
1686: FND_LOG.LEVEL_PROCEDURE,
1687: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Last_Flag',
1680: );
1681: END IF;
1682:
1683: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1684: FND_LOG.String
1685: (
1686: FND_LOG.LEVEL_PROCEDURE,
1687: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Last_Flag',
1688: 'Limiting to passed PC id'
1682:
1683: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1684: FND_LOG.String
1685: (
1686: FND_LOG.LEVEL_PROCEDURE,
1687: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Last_Flag',
1688: 'Limiting to passed PC id'
1689: );
1690: END IF;
1693: dbms_aw.execute('push portfolio_d');
1694: dbms_aw.execute('oknullstatus = y');
1695: dbms_aw.execute('limit planning_cycle_d to ' || p_pc_id);
1696:
1697: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1698: FND_LOG.String
1699: (
1700: FND_LOG.LEVEL_PROCEDURE,
1701: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Last_Flag',
1694: dbms_aw.execute('oknullstatus = y');
1695: dbms_aw.execute('limit planning_cycle_d to ' || p_pc_id);
1696:
1697: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1698: FND_LOG.String
1699: (
1700: FND_LOG.LEVEL_PROCEDURE,
1701: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Last_Flag',
1702: 'Limiting to portfolio for passed PC id'
1696:
1697: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1698: FND_LOG.String
1699: (
1700: FND_LOG.LEVEL_PROCEDURE,
1701: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Last_Flag',
1702: 'Limiting to portfolio for passed PC id'
1703: );
1704: END IF;
1703: );
1704: END IF;
1705: dbms_aw.execute('limit portfolio_d to portfolio_pc_r');
1706:
1707: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1708: FND_LOG.String
1709: (
1710: FND_LOG.LEVEL_PROCEDURE,
1711: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Last_Flag',
1704: END IF;
1705: dbms_aw.execute('limit portfolio_d to portfolio_pc_r');
1706:
1707: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1708: FND_LOG.String
1709: (
1710: FND_LOG.LEVEL_PROCEDURE,
1711: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Last_Flag',
1712: 'Limiting to planning cycles for the same portfolio'
1706:
1707: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1708: FND_LOG.String
1709: (
1710: FND_LOG.LEVEL_PROCEDURE,
1711: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Last_Flag',
1712: 'Limiting to planning cycles for the same portfolio'
1713: );
1714: END IF;
1713: );
1714: END IF;
1715: dbms_aw.execute('limit planning_cycle_d to portfolio_d');
1716:
1717: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1718: FND_LOG.String
1719: (
1720: FND_LOG.LEVEL_PROCEDURE,
1721: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Last_Flag',
1714: END IF;
1715: dbms_aw.execute('limit planning_cycle_d to portfolio_d');
1716:
1717: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1718: FND_LOG.String
1719: (
1720: FND_LOG.LEVEL_PROCEDURE,
1721: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Last_Flag',
1722: 'Reset last approved flag'
1716:
1717: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1718: FND_LOG.String
1719: (
1720: FND_LOG.LEVEL_PROCEDURE,
1721: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Last_Flag',
1722: 'Reset last approved flag'
1723: );
1724: END IF;
1723: );
1724: END IF;
1725: dbms_aw.execute('pc_last_flag_m = na');
1726:
1727: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1728: FND_LOG.String
1729: (
1730: FND_LOG.LEVEL_PROCEDURE,
1731: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Last_Flag',
1724: END IF;
1725: dbms_aw.execute('pc_last_flag_m = na');
1726:
1727: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1728: FND_LOG.String
1729: (
1730: FND_LOG.LEVEL_PROCEDURE,
1731: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Last_Flag',
1732: 'Setting last approved flag to passed pc ID'
1726:
1727: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1728: FND_LOG.String
1729: (
1730: FND_LOG.LEVEL_PROCEDURE,
1731: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Last_Flag',
1732: 'Setting last approved flag to passed pc ID'
1733: );
1734: END IF;
1736: dbms_aw.execute('pc_last_flag_m = yes');
1737: dbms_aw.execute('pop planning_cycle_d');
1738: dbms_aw.execute('pop portfolio_d');
1739:
1740: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1741: FND_LOG.String
1742: (
1743: FND_LOG.LEVEL_PROCEDURE,
1744: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Last_Flag.end',
1737: dbms_aw.execute('pop planning_cycle_d');
1738: dbms_aw.execute('pop portfolio_d');
1739:
1740: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1741: FND_LOG.String
1742: (
1743: FND_LOG.LEVEL_PROCEDURE,
1744: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Last_Flag.end',
1745: 'Exiting fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Last_Flag'
1739:
1740: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1741: FND_LOG.String
1742: (
1743: FND_LOG.LEVEL_PROCEDURE,
1744: 'fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Last_Flag.end',
1745: 'Exiting fpa.sql.FPA_PlanningCycle_Pvt.Set_Pc_Last_Flag'
1746: );
1747: END IF;
1749: EXCEPTION
1750: WHEN OTHERS THEN
1751: ROLLBACK;
1752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1753: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1754: fnd_log.string
1755: (
1756: FND_LOG.LEVEL_ERROR,
1757: 'fpa.sql.fpa_planningcycle_pvt.Set_Pc_Approved_Flag',
1750: WHEN OTHERS THEN
1751: ROLLBACK;
1752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1753: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1754: fnd_log.string
1755: (
1756: FND_LOG.LEVEL_ERROR,
1757: 'fpa.sql.fpa_planningcycle_pvt.Set_Pc_Approved_Flag',
1758: SQLERRM
1752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1753: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1754: fnd_log.string
1755: (
1756: FND_LOG.LEVEL_ERROR,
1757: 'fpa.sql.fpa_planningcycle_pvt.Set_Pc_Approved_Flag',
1758: SQLERRM
1759: );
1760: END IF;
1786: l_api_version CONSTANT NUMBER := 1.0;
1787:
1788: begin
1789:
1790: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1791: FND_LOG.String
1792: (FND_LOG.LEVEL_PROCEDURE,
1793: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates.begin',
1794: 'Entering FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates');
1787:
1788: begin
1789:
1790: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1791: FND_LOG.String
1792: (FND_LOG.LEVEL_PROCEDURE,
1793: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates.begin',
1794: 'Entering FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates');
1795: END IF;
1788: begin
1789:
1790: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1791: FND_LOG.String
1792: (FND_LOG.LEVEL_PROCEDURE,
1793: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates.begin',
1794: 'Entering FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates');
1795: END IF;
1796:
1794: 'Entering FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates');
1795: END IF;
1796:
1797: IF l_api_version <> p_api_version THEN
1798: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1799: FND_LOG.STRING
1800: ( FND_LOG.LEVEL_PROCEDURE,
1801: 'FPA.SQL.FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates.',
1802: 'Checking API version.');
1795: END IF;
1796:
1797: IF l_api_version <> p_api_version THEN
1798: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1799: FND_LOG.STRING
1800: ( FND_LOG.LEVEL_PROCEDURE,
1801: 'FPA.SQL.FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates.',
1802: 'Checking API version.');
1803: END IF;
1796:
1797: IF l_api_version <> p_api_version THEN
1798: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1799: FND_LOG.STRING
1800: ( FND_LOG.LEVEL_PROCEDURE,
1801: 'FPA.SQL.FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates.',
1802: 'Checking API version.');
1803: END IF;
1804: RAISE FND_API.G_EXC_ERROR;
1803: END IF;
1804: RAISE FND_API.G_EXC_ERROR;
1805: END IF;
1806:
1807: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1808: FND_LOG.String
1809: (FND_LOG.LEVEL_PROCEDURE,
1810: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates.',
1811: 'Updating Annual discount rates for the PC in AW.');
1804: RAISE FND_API.G_EXC_ERROR;
1805: END IF;
1806:
1807: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1808: FND_LOG.String
1809: (FND_LOG.LEVEL_PROCEDURE,
1810: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates.',
1811: 'Updating Annual discount rates for the PC in AW.');
1812: END IF;
1805: END IF;
1806:
1807: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1808: FND_LOG.String
1809: (FND_LOG.LEVEL_PROCEDURE,
1810: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates.',
1811: 'Updating Annual discount rates for the PC in AW.');
1812: END IF;
1813:
1814: dbms_aw.execute('lmt planning_cycle_d to ' || p_pc_id);
1815: dbms_aw.execute('lmt time_d to ''' || p_period || '''');
1816: dbms_aw.execute('pc_discount_rate_t_m = ' || p_rate);
1817:
1818: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1819: FND_LOG.String
1820: (FND_LOG.LEVEL_PROCEDURE,
1821: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates.',
1822: 'Done Updating Annual discount rates for the PC in AW.');
1815: dbms_aw.execute('lmt time_d to ''' || p_period || '''');
1816: dbms_aw.execute('pc_discount_rate_t_m = ' || p_rate);
1817:
1818: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1819: FND_LOG.String
1820: (FND_LOG.LEVEL_PROCEDURE,
1821: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates.',
1822: 'Done Updating Annual discount rates for the PC in AW.');
1823: END IF;
1816: dbms_aw.execute('pc_discount_rate_t_m = ' || p_rate);
1817:
1818: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1819: FND_LOG.String
1820: (FND_LOG.LEVEL_PROCEDURE,
1821: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates.',
1822: 'Done Updating Annual discount rates for the PC in AW.');
1823: END IF;
1824:
1821: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates.',
1822: 'Done Updating Annual discount rates for the PC in AW.');
1823: END IF;
1824:
1825: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1826: FND_LOG.String
1827: (FND_LOG.LEVEL_PROCEDURE,
1828: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates.end',
1829: 'Entering FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates');
1822: 'Done Updating Annual discount rates for the PC in AW.');
1823: END IF;
1824:
1825: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1826: FND_LOG.String
1827: (FND_LOG.LEVEL_PROCEDURE,
1828: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates.end',
1829: 'Entering FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates');
1830: END IF;
1823: END IF;
1824:
1825: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1826: FND_LOG.String
1827: (FND_LOG.LEVEL_PROCEDURE,
1828: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates.end',
1829: 'Entering FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates');
1830: END IF;
1831:
1834: RAISE;
1835: WHEN OTHERS THEN
1836: ROLLBACK;
1837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1838: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1839: FND_LOG.String
1840: ( FND_LOG.LEVEL_ERROR,
1841: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates',
1842: SQLERRM);
1835: WHEN OTHERS THEN
1836: ROLLBACK;
1837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1838: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1839: FND_LOG.String
1840: ( FND_LOG.LEVEL_ERROR,
1841: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates',
1842: SQLERRM);
1843: END IF;
1836: ROLLBACK;
1837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1838: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1839: FND_LOG.String
1840: ( FND_LOG.LEVEL_ERROR,
1841: 'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates',
1842: SQLERRM);
1843: END IF;
1844: