40:
41:
42: BEGIN
43:
44: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
45: fnd_log.string
46: (
47: FND_LOG.LEVEL_PROCEDURE,
48: 'fpa.sql.fpa_scenario_pvt.create_scenario.begin',
41:
42: BEGIN
43:
44: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
45: fnd_log.string
46: (
47: FND_LOG.LEVEL_PROCEDURE,
48: 'fpa.sql.fpa_scenario_pvt.create_scenario.begin',
49: 'Entering fpa_scenario_pvt.create_scenario'
43:
44: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
45: fnd_log.string
46: (
47: FND_LOG.LEVEL_PROCEDURE,
48: 'fpa.sql.fpa_scenario_pvt.create_scenario.begin',
49: 'Entering fpa_scenario_pvt.create_scenario'
50: );
51: END IF;
49: 'Entering fpa_scenario_pvt.create_scenario'
50: );
51: END IF;
52:
53: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
54: fnd_log.string
55: (
56: FND_LOG.LEVEL_PROCEDURE,
57: 'fpa.sql.fpa_scenario_pvt.create_scenario',
50: );
51: END IF;
52:
53: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
54: fnd_log.string
55: (
56: FND_LOG.LEVEL_PROCEDURE,
57: 'fpa.sql.fpa_scenario_pvt.create_scenario',
58: 'Getting next sequence value for scenario id.'
52:
53: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
54: fnd_log.string
55: (
56: FND_LOG.LEVEL_PROCEDURE,
57: 'fpa.sql.fpa_scenario_pvt.create_scenario',
58: 'Getting next sequence value for scenario id.'
59: );
60: END IF;
63: OPEN scenario_s_c;
64: FETCH scenario_s_c INTO x_scenario_id;
65: CLOSE scenario_s_c;
66:
67: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
68: fnd_log.string
69: (
70: FND_LOG.LEVEL_PROCEDURE,
71: 'fpa.sql.fpa_scenario_pvt.create_scenario',
64: FETCH scenario_s_c INTO x_scenario_id;
65: CLOSE scenario_s_c;
66:
67: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
68: fnd_log.string
69: (
70: FND_LOG.LEVEL_PROCEDURE,
71: 'fpa.sql.fpa_scenario_pvt.create_scenario',
72: 'Maintaing scenario dimension with new scenario id.'
66:
67: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
68: fnd_log.string
69: (
70: FND_LOG.LEVEL_PROCEDURE,
71: 'fpa.sql.fpa_scenario_pvt.create_scenario',
72: 'Maintaing scenario dimension with new scenario id.'
73: );
74: END IF;
76: -- Add the new scenario to the dimension
77: dbms_aw.execute('MAINTAIN scenario_d ADD ' || x_scenario_id);
78:
79:
80: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
81: fnd_log.string
82: (
83: FND_LOG.LEVEL_PROCEDURE,
84: 'fpa.sql.fpa_scenario_pvt.create_scenario',
77: dbms_aw.execute('MAINTAIN scenario_d ADD ' || x_scenario_id);
78:
79:
80: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
81: fnd_log.string
82: (
83: FND_LOG.LEVEL_PROCEDURE,
84: 'fpa.sql.fpa_scenario_pvt.create_scenario',
85: 'Setting PC relation for new scenario.'
79:
80: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
81: fnd_log.string
82: (
83: FND_LOG.LEVEL_PROCEDURE,
84: 'fpa.sql.fpa_scenario_pvt.create_scenario',
85: 'Setting PC relation for new scenario.'
86: );
87: END IF;
91: -- Associate the scenario with the planning cycle
92: dbms_aw.execute('planning_cycle_scenario_r = ' || p_pc_id);
93: dbms_aw.execute('POP scenario_d');
94:
95: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
96: fnd_log.string
97: (
98: FND_LOG.LEVEL_PROCEDURE,
99: 'fpa.sql.fpa_scenario_pvt.create_scenario',
92: dbms_aw.execute('planning_cycle_scenario_r = ' || p_pc_id);
93: dbms_aw.execute('POP scenario_d');
94:
95: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
96: fnd_log.string
97: (
98: FND_LOG.LEVEL_PROCEDURE,
99: 'fpa.sql.fpa_scenario_pvt.create_scenario',
100: 'Updating FPA_OBJECTS_TL with scenario information name not null.'
94:
95: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
96: fnd_log.string
97: (
98: FND_LOG.LEVEL_PROCEDURE,
99: 'fpa.sql.fpa_scenario_pvt.create_scenario',
100: 'Updating FPA_OBJECTS_TL with scenario information name not null.'
101: );
102: END IF;
102: END IF;
103:
104: if (p_scenario_name is not null) then
105:
106: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
107: fnd_log.string
108: (
109: FND_LOG.LEVEL_PROCEDURE,
110: 'fpa.sql.fpa_scenario_pvt.create_scenario',
103:
104: if (p_scenario_name is not null) then
105:
106: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
107: fnd_log.string
108: (
109: FND_LOG.LEVEL_PROCEDURE,
110: 'fpa.sql.fpa_scenario_pvt.create_scenario',
111: 'Scenario name is not null, Updating FPA_OBJECTS_TL with scenario information name not null.'
105:
106: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
107: fnd_log.string
108: (
109: FND_LOG.LEVEL_PROCEDURE,
110: 'fpa.sql.fpa_scenario_pvt.create_scenario',
111: 'Scenario name is not null, Updating FPA_OBJECTS_TL with scenario information name not null.'
112: );
113: END IF;
144: CLOSE l_language_csr;
145:
146: end if;
147:
148: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
149: fnd_log.string
150: (
151: FND_LOG.LEVEL_PROCEDURE,
152: 'fpa.sql.fpa_scenario_pvt.create_scenario.end',
145:
146: end if;
147:
148: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
149: fnd_log.string
150: (
151: FND_LOG.LEVEL_PROCEDURE,
152: 'fpa.sql.fpa_scenario_pvt.create_scenario.end',
153: 'Exiting fpa_scenario_pvt.create_scenario'
147:
148: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
149: fnd_log.string
150: (
151: FND_LOG.LEVEL_PROCEDURE,
152: 'fpa.sql.fpa_scenario_pvt.create_scenario.end',
153: 'Exiting fpa_scenario_pvt.create_scenario'
154: );
155: END IF;
157: EXCEPTION
158: WHEN OTHERS THEN
159: ROLLBACK;
160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
161: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
162: fnd_log.string
163: (
164: FND_LOG.LEVEL_ERROR,
165: 'fpa.sql.fpa_scenario_pvt.create_scenario',
158: WHEN OTHERS THEN
159: ROLLBACK;
160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
161: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
162: fnd_log.string
163: (
164: FND_LOG.LEVEL_ERROR,
165: 'fpa.sql.fpa_scenario_pvt.create_scenario',
166: SQLERRM
160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
161: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
162: fnd_log.string
163: (
164: FND_LOG.LEVEL_ERROR,
165: 'fpa.sql.fpa_scenario_pvt.create_scenario',
166: SQLERRM
167: );
168: END IF;
192: l_api_version CONSTANT NUMBER := 1.0;
193:
194: begin
195:
196: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
197: fnd_log.string
198: (
199: FND_LOG.LEVEL_PROCEDURE,
200: 'fpa.sql.fpa_scenario_pvt.copy_scenario_data.begin',
193:
194: begin
195:
196: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
197: fnd_log.string
198: (
199: FND_LOG.LEVEL_PROCEDURE,
200: 'fpa.sql.fpa_scenario_pvt.copy_scenario_data.begin',
201: 'Entering fpa_scenario_pvt.copy_scenario_data'
195:
196: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
197: fnd_log.string
198: (
199: FND_LOG.LEVEL_PROCEDURE,
200: 'fpa.sql.fpa_scenario_pvt.copy_scenario_data.begin',
201: 'Entering fpa_scenario_pvt.copy_scenario_data'
202: );
203: END IF;
201: 'Entering fpa_scenario_pvt.copy_scenario_data'
202: );
203: END IF;
204:
205: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
206: fnd_log.string
207: (
208: FND_LOG.LEVEL_PROCEDURE,
209: 'fpa.sql.fpa_scenario_pvt.copy_scenario_data.begin',
202: );
203: END IF;
204:
205: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
206: fnd_log.string
207: (
208: FND_LOG.LEVEL_PROCEDURE,
209: 'fpa.sql.fpa_scenario_pvt.copy_scenario_data.begin',
210: 'Calling AW program COPY_SCE_DATA_PRG for scenario source: ' || p_scenario_id_source || ' and scenario target: ' || p_scenario_id_target || ' and copy flag: ' || p_copy_proposed_proj || 'values.'
204:
205: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
206: fnd_log.string
207: (
208: FND_LOG.LEVEL_PROCEDURE,
209: 'fpa.sql.fpa_scenario_pvt.copy_scenario_data.begin',
210: 'Calling AW program COPY_SCE_DATA_PRG for scenario source: ' || p_scenario_id_source || ' and scenario target: ' || p_scenario_id_target || ' and copy flag: ' || p_copy_proposed_proj || 'values.'
211: );
212: END IF;
210: 'Calling AW program COPY_SCE_DATA_PRG for scenario source: ' || p_scenario_id_source || ' and scenario target: ' || p_scenario_id_target || ' and copy flag: ' || p_copy_proposed_proj || 'values.'
211: );
212: END IF;
213:
214: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
215: fnd_log.string
216: (
217: FND_LOG.LEVEL_PROCEDURE,
218: 'fpa.sql.fpa_scenario_pvt.copy_scenario_data.begin',
211: );
212: END IF;
213:
214: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
215: fnd_log.string
216: (
217: FND_LOG.LEVEL_PROCEDURE,
218: 'fpa.sql.fpa_scenario_pvt.copy_scenario_data.begin',
219: 'call copy_sce_data_prg(' || p_scenario_id_source || ' ' || p_scenario_id_target || ' ''' || p_copy_proposed_proj || ''')'
213:
214: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
215: fnd_log.string
216: (
217: FND_LOG.LEVEL_PROCEDURE,
218: 'fpa.sql.fpa_scenario_pvt.copy_scenario_data.begin',
219: 'call copy_sce_data_prg(' || p_scenario_id_source || ' ' || p_scenario_id_target || ' ''' || p_copy_proposed_proj || ''')'
220: );
221: END IF;
222:
223:
224: dbms_aw.execute('call copy_sce_data_prg(' || p_scenario_id_source || ' ' || p_scenario_id_target || ' ''' || p_copy_proposed_proj || ''')');
225:
226: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
227: fnd_log.string
228: (
229: FND_LOG.LEVEL_PROCEDURE,
230: 'fpa.sql.fpa_scenario_pvt.copy_scenario_data.end',
223:
224: dbms_aw.execute('call copy_sce_data_prg(' || p_scenario_id_source || ' ' || p_scenario_id_target || ' ''' || p_copy_proposed_proj || ''')');
225:
226: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
227: fnd_log.string
228: (
229: FND_LOG.LEVEL_PROCEDURE,
230: 'fpa.sql.fpa_scenario_pvt.copy_scenario_data.end',
231: 'Entering fpa_scenario_pvt.copy_scenario_data'
225:
226: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
227: fnd_log.string
228: (
229: FND_LOG.LEVEL_PROCEDURE,
230: 'fpa.sql.fpa_scenario_pvt.copy_scenario_data.end',
231: 'Entering fpa_scenario_pvt.copy_scenario_data'
232: );
233: END IF;
235: EXCEPTION
236: WHEN OTHERS THEN
237: ROLLBACK;
238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
239: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
240: fnd_log.string
241: (
242: FND_LOG.LEVEL_ERROR,
243: 'fpa.sql.fpa_scenario_pvt.create_scenario',
236: WHEN OTHERS THEN
237: ROLLBACK;
238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
239: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
240: fnd_log.string
241: (
242: FND_LOG.LEVEL_ERROR,
243: 'fpa.sql.fpa_scenario_pvt.create_scenario',
244: SQLERRM
238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
239: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
240: fnd_log.string
241: (
242: FND_LOG.LEVEL_ERROR,
243: 'fpa.sql.fpa_scenario_pvt.create_scenario',
244: SQLERRM
245: );
246: END IF;
265: x_msg_data OUT NOCOPY VARCHAR2
266: )
267: IS
268: BEGIN
269: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
270: fnd_log.string
271: (
272: FND_LOG.LEVEL_PROCEDURE,
273: 'fpa.sql.fpa_scenario_pvt.lock_scenario.begin',
266: )
267: IS
268: BEGIN
269: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
270: fnd_log.string
271: (
272: FND_LOG.LEVEL_PROCEDURE,
273: 'fpa.sql.fpa_scenario_pvt.lock_scenario.begin',
274: 'Entering fpa_project_pvt.lock_scenario'
268: BEGIN
269: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
270: fnd_log.string
271: (
272: FND_LOG.LEVEL_PROCEDURE,
273: 'fpa.sql.fpa_scenario_pvt.lock_scenario.begin',
274: 'Entering fpa_project_pvt.lock_scenario'
275: );
276: END IF;
276: END IF;
277:
278: IF g_attach_aw THEN
279: -- Attach the AW space read write.
280: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
281: fnd_log.string
282: (
283: FND_LOG.LEVEL_STATEMENT,
284: 'fpa.sql.fpa_scenario_pvt.lock_scenario',
277:
278: IF g_attach_aw THEN
279: -- Attach the AW space read write.
280: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
281: fnd_log.string
282: (
283: FND_LOG.LEVEL_STATEMENT,
284: 'fpa.sql.fpa_scenario_pvt.lock_scenario',
285: 'Attaching OLAP workspace: '
279: -- Attach the AW space read write.
280: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
281: fnd_log.string
282: (
283: FND_LOG.LEVEL_STATEMENT,
284: 'fpa.sql.fpa_scenario_pvt.lock_scenario',
285: 'Attaching OLAP workspace: '
286: );
287: END IF;
305: COMMIT;
306: END IF;
307:
308: -- Finally, detach the workspace
309: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
310: fnd_log.string
311: (
312: FND_LOG.LEVEL_STATEMENT,
313: 'fpa.sql.fpa_scenario_pvt.lock_scenario',
306: END IF;
307:
308: -- Finally, detach the workspace
309: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
310: fnd_log.string
311: (
312: FND_LOG.LEVEL_STATEMENT,
313: 'fpa.sql.fpa_scenario_pvt.lock_scenario',
314: 'Detaching OLAP workspace: '
308: -- Finally, detach the workspace
309: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
310: fnd_log.string
311: (
312: FND_LOG.LEVEL_STATEMENT,
313: 'fpa.sql.fpa_scenario_pvt.lock_scenario',
314: 'Detaching OLAP workspace: '
315: );
316: END IF;
315: );
316: END IF;
317: END IF;
318:
319: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
320: fnd_log.string
321: (
322: FND_LOG.LEVEL_PROCEDURE,
323: 'fpa.sql.fpa_scenario_pvt.lock_scenario.end',
316: END IF;
317: END IF;
318:
319: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
320: fnd_log.string
321: (
322: FND_LOG.LEVEL_PROCEDURE,
323: 'fpa.sql.fpa_scenario_pvt.lock_scenario.end',
324: 'Exiting fpa_scenario_pvt.lock_scenario'
318:
319: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
320: fnd_log.string
321: (
322: FND_LOG.LEVEL_PROCEDURE,
323: 'fpa.sql.fpa_scenario_pvt.lock_scenario.end',
324: 'Exiting fpa_scenario_pvt.lock_scenario'
325: );
326: END IF;
329: WHEN OTHERS THEN
330: ROLLBACK;
331: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
332:
333: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
334: fnd_log.string
335: (
336: FND_LOG.LEVEL_ERROR,
337: 'fpa.sql.fpa_scenario_pvt.lock_scenario',
330: ROLLBACK;
331: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
332:
333: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
334: fnd_log.string
335: (
336: FND_LOG.LEVEL_ERROR,
337: 'fpa.sql.fpa_scenario_pvt.lock_scenario',
338: SQLERRM
332:
333: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
334: fnd_log.string
335: (
336: FND_LOG.LEVEL_ERROR,
337: 'fpa.sql.fpa_scenario_pvt.lock_scenario',
338: SQLERRM
339: );
340: END IF;
374: EXCEPTION
375: WHEN OTHERS THEN
376: ROLLBACK;
377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
378: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
379: fnd_log.string
380: (
381: FND_LOG.LEVEL_ERROR,
382: 'fpa_scenario_pvt.Check_scenario_name',
375: WHEN OTHERS THEN
376: ROLLBACK;
377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
378: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
379: fnd_log.string
380: (
381: FND_LOG.LEVEL_ERROR,
382: 'fpa_scenario_pvt.Check_scenario_name',
383: SQLERRM
377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
378: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
379: fnd_log.string
380: (
381: FND_LOG.LEVEL_ERROR,
382: 'fpa_scenario_pvt.Check_scenario_name',
383: SQLERRM
384: );
385: END IF;
407:
408: begin
409:
410:
411: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
412: fnd_log.string
413: (
414: FND_LOG.LEVEL_PROCEDURE,
415: 'fpa.sql.fpa_scenario_pvt.update_scen_approved_flag.begin',
408: begin
409:
410:
411: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
412: fnd_log.string
413: (
414: FND_LOG.LEVEL_PROCEDURE,
415: 'fpa.sql.fpa_scenario_pvt.update_scen_approved_flag.begin',
416: 'Entering fpa_scenario_pvt.update_scen_approved_flag'
410:
411: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
412: fnd_log.string
413: (
414: FND_LOG.LEVEL_PROCEDURE,
415: 'fpa.sql.fpa_scenario_pvt.update_scen_approved_flag.begin',
416: 'Entering fpa_scenario_pvt.update_scen_approved_flag'
417: );
418: END IF;
432:
433: -- Set the last update date
434: -- need to wite code for this
435:
436: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
437: fnd_log.string
438: (
439: FND_LOG.LEVEL_PROCEDURE,
440: 'fpa.sql.fpa_scenario_pvt.update_scen_approved_flag.end',
433: -- Set the last update date
434: -- need to wite code for this
435:
436: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
437: fnd_log.string
438: (
439: FND_LOG.LEVEL_PROCEDURE,
440: 'fpa.sql.fpa_scenario_pvt.update_scen_approved_flag.end',
441: 'Exiting fpa_scenario_pvt.update_scen_approved_flag'
435:
436: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
437: fnd_log.string
438: (
439: FND_LOG.LEVEL_PROCEDURE,
440: 'fpa.sql.fpa_scenario_pvt.update_scen_approved_flag.end',
441: 'Exiting fpa_scenario_pvt.update_scen_approved_flag'
442: );
443: END IF;
446: WHEN OTHERS THEN
447: ROLLBACK;
448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
449:
450: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
451: fnd_log.string
452: (
453: FND_LOG.LEVEL_ERROR,
454: 'fpa.sql.fpa_scenario_pvt.update_scen_approved_flag',
447: ROLLBACK;
448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
449:
450: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
451: fnd_log.string
452: (
453: FND_LOG.LEVEL_ERROR,
454: 'fpa.sql.fpa_scenario_pvt.update_scen_approved_flag',
455: SQLERRM
449:
450: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
451: fnd_log.string
452: (
453: FND_LOG.LEVEL_ERROR,
454: 'fpa.sql.fpa_scenario_pvt.update_scen_approved_flag',
455: SQLERRM
456: );
457: END IF;
482: l_api_version CONSTANT NUMBER := 1.0;
483:
484: begin
485:
486: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
487: fnd_log.string
488: (
489: FND_LOG.LEVEL_PROCEDURE,
490: 'fpa.sql.fpa_scenario_pvt.update_scenario_disc_rate.begin',
483:
484: begin
485:
486: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
487: fnd_log.string
488: (
489: FND_LOG.LEVEL_PROCEDURE,
490: 'fpa.sql.fpa_scenario_pvt.update_scenario_disc_rate.begin',
491: 'Entering fpa_scenario_pvt.update_scenario_disc_rate'
485:
486: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
487: fnd_log.string
488: (
489: FND_LOG.LEVEL_PROCEDURE,
490: 'fpa.sql.fpa_scenario_pvt.update_scenario_disc_rate.begin',
491: 'Entering fpa_scenario_pvt.update_scenario_disc_rate'
492: );
493: END IF;
491: 'Entering fpa_scenario_pvt.update_scenario_disc_rate'
492: );
493: END IF;
494:
495: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
496: fnd_log.string
497: (
498: FND_LOG.LEVEL_PROCEDURE,
499: 'fpa.sql.fpa_scenario_pvt.update_scenario_disc_rate',
492: );
493: END IF;
494:
495: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
496: fnd_log.string
497: (
498: FND_LOG.LEVEL_PROCEDURE,
499: 'fpa.sql.fpa_scenario_pvt.update_scenario_disc_rate',
500: 'Setting the discount rate.'
494:
495: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
496: fnd_log.string
497: (
498: FND_LOG.LEVEL_PROCEDURE,
499: 'fpa.sql.fpa_scenario_pvt.update_scenario_disc_rate',
500: 'Setting the discount rate.'
501: );
502: END IF;
508: -- Update daily discount rate
509: dbms_aw.execute('scenario_discount_rate_daily_m = ((1+scenario_discount_rate_m)**(1/365))-1');
510: dbms_aw.execute('POP scenario_d');
511:
512: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
513: fnd_log.string
514: (
515: FND_LOG.LEVEL_PROCEDURE,
516: 'fpa.sql.fpa_scenario_pvt.update_scenario_disc_rate.end',
509: dbms_aw.execute('scenario_discount_rate_daily_m = ((1+scenario_discount_rate_m)**(1/365))-1');
510: dbms_aw.execute('POP scenario_d');
511:
512: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
513: fnd_log.string
514: (
515: FND_LOG.LEVEL_PROCEDURE,
516: 'fpa.sql.fpa_scenario_pvt.update_scenario_disc_rate.end',
517: 'Entering fpa_scenario_pvt.update_scenario_disc_rate'
511:
512: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
513: fnd_log.string
514: (
515: FND_LOG.LEVEL_PROCEDURE,
516: 'fpa.sql.fpa_scenario_pvt.update_scenario_disc_rate.end',
517: 'Entering fpa_scenario_pvt.update_scenario_disc_rate'
518: );
519: END IF;
521: EXCEPTION
522: WHEN OTHERS THEN
523: ROLLBACK;
524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
525: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
526: fnd_log.string
527: (
528: FND_LOG.LEVEL_ERROR,
529: 'fpa.sql.fpa_scenario_pvt.create_scenario',
522: WHEN OTHERS THEN
523: ROLLBACK;
524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
525: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
526: fnd_log.string
527: (
528: FND_LOG.LEVEL_ERROR,
529: 'fpa.sql.fpa_scenario_pvt.create_scenario',
530: SQLERRM
524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
525: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
526: fnd_log.string
527: (
528: FND_LOG.LEVEL_ERROR,
529: 'fpa.sql.fpa_scenario_pvt.create_scenario',
530: SQLERRM
531: );
532: END IF;
555: l_api_version CONSTANT NUMBER := 1.0;
556: l_pc_disply_factor VARCHAR2(30);
557: begin
558:
559: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
560: fnd_log.string
561: (
562: FND_LOG.LEVEL_PROCEDURE,
563: 'fpa.sql.fpa_scenario_pvt.update_scenario_funds_avail.begin',
556: l_pc_disply_factor VARCHAR2(30);
557: begin
558:
559: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
560: fnd_log.string
561: (
562: FND_LOG.LEVEL_PROCEDURE,
563: 'fpa.sql.fpa_scenario_pvt.update_scenario_funds_avail.begin',
564: 'Entering fpa_scenario_pvt.update_scenario_funds_avail'
558:
559: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
560: fnd_log.string
561: (
562: FND_LOG.LEVEL_PROCEDURE,
563: 'fpa.sql.fpa_scenario_pvt.update_scenario_funds_avail.begin',
564: 'Entering fpa_scenario_pvt.update_scenario_funds_avail'
565: );
566: END IF;
564: 'Entering fpa_scenario_pvt.update_scenario_funds_avail'
565: );
566: END IF;
567:
568: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
569: fnd_log.string
570: (
571: FND_LOG.LEVEL_PROCEDURE,
572: 'fpa.sql.fpa_scenario_pvt.update_scenario_funds_avail',
565: );
566: END IF;
567:
568: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
569: fnd_log.string
570: (
571: FND_LOG.LEVEL_PROCEDURE,
572: 'fpa.sql.fpa_scenario_pvt.update_scenario_funds_avail',
573: 'Setting the discount rate.'
567:
568: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
569: fnd_log.string
570: (
571: FND_LOG.LEVEL_PROCEDURE,
572: 'fpa.sql.fpa_scenario_pvt.update_scenario_funds_avail',
573: 'Setting the discount rate.'
574: );
575: END IF;
588: -- Associate the scenario with the planning cycle
589: dbms_aw.execute('scenario_funding_m = ' || p_scenario_funds*l_pc_disply_factor);
590: dbms_aw.execute('POP scenario_d');
591:
592: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
593: fnd_log.string
594: (
595: FND_LOG.LEVEL_PROCEDURE,
596: 'fpa.sql.fpa_scenario_pvt.update_scenario_funds_avail.end',
589: dbms_aw.execute('scenario_funding_m = ' || p_scenario_funds*l_pc_disply_factor);
590: dbms_aw.execute('POP scenario_d');
591:
592: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
593: fnd_log.string
594: (
595: FND_LOG.LEVEL_PROCEDURE,
596: 'fpa.sql.fpa_scenario_pvt.update_scenario_funds_avail.end',
597: 'Entering fpa_scenario_pvt.update_scenario_funds_avail'
591:
592: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
593: fnd_log.string
594: (
595: FND_LOG.LEVEL_PROCEDURE,
596: 'fpa.sql.fpa_scenario_pvt.update_scenario_funds_avail.end',
597: 'Entering fpa_scenario_pvt.update_scenario_funds_avail'
598: );
599: END IF;
601: EXCEPTION
602: WHEN OTHERS THEN
603: ROLLBACK;
604: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
605: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
606: fnd_log.string
607: (
608: FND_LOG.LEVEL_ERROR,
609: 'fpa.sql.fpa_scenario_pvt.update_scenario_funds_avail',
602: WHEN OTHERS THEN
603: ROLLBACK;
604: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
605: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
606: fnd_log.string
607: (
608: FND_LOG.LEVEL_ERROR,
609: 'fpa.sql.fpa_scenario_pvt.update_scenario_funds_avail',
610: SQLERRM
604: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
605: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
606: fnd_log.string
607: (
608: FND_LOG.LEVEL_ERROR,
609: 'fpa.sql.fpa_scenario_pvt.update_scenario_funds_avail',
610: SQLERRM
611: );
612: END IF;
635: l_api_version CONSTANT NUMBER := 1.0;
636:
637: begin
638:
639: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
640: fnd_log.string
641: (
642: FND_LOG.LEVEL_PROCEDURE,
643: 'fpa.sql.fpa_scenario_pvt.update_scenario_initial_flag.begin',
636:
637: begin
638:
639: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
640: fnd_log.string
641: (
642: FND_LOG.LEVEL_PROCEDURE,
643: 'fpa.sql.fpa_scenario_pvt.update_scenario_initial_flag.begin',
644: 'Entering fpa_scenario_pvt.update_scenario_initial_flag.'
638:
639: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
640: fnd_log.string
641: (
642: FND_LOG.LEVEL_PROCEDURE,
643: 'fpa.sql.fpa_scenario_pvt.update_scenario_initial_flag.begin',
644: 'Entering fpa_scenario_pvt.update_scenario_initial_flag.'
645: );
646: END IF;
644: 'Entering fpa_scenario_pvt.update_scenario_initial_flag.'
645: );
646: END IF;
647:
648: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
649: fnd_log.string
650: (
651: FND_LOG.LEVEL_PROCEDURE,
652: 'fpa.sql.fpa_scenario_pvt.update_scenario_initial_flag.begin',
645: );
646: END IF;
647:
648: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
649: fnd_log.string
650: (
651: FND_LOG.LEVEL_PROCEDURE,
652: 'fpa.sql.fpa_scenario_pvt.update_scenario_initial_flag.begin',
653: 'Unsetting any previous flags and setting new flag.'
647:
648: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
649: fnd_log.string
650: (
651: FND_LOG.LEVEL_PROCEDURE,
652: 'fpa.sql.fpa_scenario_pvt.update_scenario_initial_flag.begin',
653: 'Unsetting any previous flags and setting new flag.'
654: );
655: END IF;
668: dbms_aw.execute('scenario_initial_m = yes');
669: dbms_aw.execute('POP scenario_d');
670: dbms_aw.execute('POP planning_cycle_d');
671:
672: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
673: fnd_log.string
674: (
675: FND_LOG.LEVEL_PROCEDURE,
676: 'fpa.sql.fpa_scenario_pvt.update_scenario_initial_flag.end',
669: dbms_aw.execute('POP scenario_d');
670: dbms_aw.execute('POP planning_cycle_d');
671:
672: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
673: fnd_log.string
674: (
675: FND_LOG.LEVEL_PROCEDURE,
676: 'fpa.sql.fpa_scenario_pvt.update_scenario_initial_flag.end',
677: 'Entering fpa_scenario_pvt.update_scenario_initial_flag.'
671:
672: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
673: fnd_log.string
674: (
675: FND_LOG.LEVEL_PROCEDURE,
676: 'fpa.sql.fpa_scenario_pvt.update_scenario_initial_flag.end',
677: 'Entering fpa_scenario_pvt.update_scenario_initial_flag.'
678: );
679: END IF;
681: EXCEPTION
682: WHEN OTHERS THEN
683: ROLLBACK;
684: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
685: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
686: fnd_log.string
687: (
688: FND_LOG.LEVEL_ERROR,
689: 'fpa.sql.fpa_scenario_pvt.update_scenario_initial_flag',
682: WHEN OTHERS THEN
683: ROLLBACK;
684: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
685: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
686: fnd_log.string
687: (
688: FND_LOG.LEVEL_ERROR,
689: 'fpa.sql.fpa_scenario_pvt.update_scenario_initial_flag',
690: SQLERRM
684: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
685: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
686: fnd_log.string
687: (
688: FND_LOG.LEVEL_ERROR,
689: 'fpa.sql.fpa_scenario_pvt.update_scenario_initial_flag',
690: SQLERRM
691: );
692: END IF;
715: l_api_version CONSTANT NUMBER := 1.0;
716:
717: begin
718:
719: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
720: fnd_log.string
721: (
722: FND_LOG.LEVEL_PROCEDURE,
723: 'fpa.sql.fpa_scenario_pvt.update_scenario_working_flag.begin',
716:
717: begin
718:
719: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
720: fnd_log.string
721: (
722: FND_LOG.LEVEL_PROCEDURE,
723: 'fpa.sql.fpa_scenario_pvt.update_scenario_working_flag.begin',
724: 'Entering fpa_scenario_pvt.update_scenario_working_flag.'
718:
719: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
720: fnd_log.string
721: (
722: FND_LOG.LEVEL_PROCEDURE,
723: 'fpa.sql.fpa_scenario_pvt.update_scenario_working_flag.begin',
724: 'Entering fpa_scenario_pvt.update_scenario_working_flag.'
725: );
726: END IF;
724: 'Entering fpa_scenario_pvt.update_scenario_working_flag.'
725: );
726: END IF;
727:
728: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
729: fnd_log.string
730: (
731: FND_LOG.LEVEL_PROCEDURE,
732: 'fpa.sql.fpa_scenario_pvt.update_scenario_working_flag',
725: );
726: END IF;
727:
728: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
729: fnd_log.string
730: (
731: FND_LOG.LEVEL_PROCEDURE,
732: 'fpa.sql.fpa_scenario_pvt.update_scenario_working_flag',
733: 'Unsetting any previous flags and setting new flag.'
727:
728: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
729: fnd_log.string
730: (
731: FND_LOG.LEVEL_PROCEDURE,
732: 'fpa.sql.fpa_scenario_pvt.update_scenario_working_flag',
733: 'Unsetting any previous flags and setting new flag.'
734: );
735: END IF;
746: dbms_aw.execute('scenario_working_m = yes');
747: dbms_aw.execute('POP scenario_d');
748: dbms_aw.execute('POP planning_cycle_d');
749:
750: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
751: fnd_log.string
752: (
753: FND_LOG.LEVEL_PROCEDURE,
754: 'fpa.sql.fpa_scenario_pvt.update_scenario_working_flag.end',
747: dbms_aw.execute('POP scenario_d');
748: dbms_aw.execute('POP planning_cycle_d');
749:
750: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
751: fnd_log.string
752: (
753: FND_LOG.LEVEL_PROCEDURE,
754: 'fpa.sql.fpa_scenario_pvt.update_scenario_working_flag.end',
755: 'Entering fpa_scenario_pvt.update_scenario_working_flag.'
749:
750: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
751: fnd_log.string
752: (
753: FND_LOG.LEVEL_PROCEDURE,
754: 'fpa.sql.fpa_scenario_pvt.update_scenario_working_flag.end',
755: 'Entering fpa_scenario_pvt.update_scenario_working_flag.'
756: );
757: END IF;
760: WHEN OTHERS THEN
761: --dbms_output.put_line(SQLERRM);
762: ROLLBACK;
763: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
764: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
765: fnd_log.string
766: (
767: FND_LOG.LEVEL_ERROR,
768: 'fpa.sql.fpa_scenario_pvt.update_scenario_working_flag',
761: --dbms_output.put_line(SQLERRM);
762: ROLLBACK;
763: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
764: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
765: fnd_log.string
766: (
767: FND_LOG.LEVEL_ERROR,
768: 'fpa.sql.fpa_scenario_pvt.update_scenario_working_flag',
769: SQLERRM
763: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
764: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
765: fnd_log.string
766: (
767: FND_LOG.LEVEL_ERROR,
768: 'fpa.sql.fpa_scenario_pvt.update_scenario_working_flag',
769: SQLERRM
770: );
771: END IF;
797: l_api_version CONSTANT NUMBER := 1.0;
798:
799: begin
800:
801: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
802: fnd_log.string
803: (
804: FND_LOG.LEVEL_PROCEDURE,
805: 'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_flag.begin',
798:
799: begin
800:
801: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
802: fnd_log.string
803: (
804: FND_LOG.LEVEL_PROCEDURE,
805: 'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_flag.begin',
806: 'Entering fpa_scenario_pvt.update_scenario_reccom_flag.'
800:
801: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
802: fnd_log.string
803: (
804: FND_LOG.LEVEL_PROCEDURE,
805: 'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_flag.begin',
806: 'Entering fpa_scenario_pvt.update_scenario_reccom_flag.'
807: );
808: END IF;
806: 'Entering fpa_scenario_pvt.update_scenario_reccom_flag.'
807: );
808: END IF;
809:
810: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
811: fnd_log.string
812: (
813: FND_LOG.LEVEL_PROCEDURE,
814: 'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_flag',
807: );
808: END IF;
809:
810: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
811: fnd_log.string
812: (
813: FND_LOG.LEVEL_PROCEDURE,
814: 'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_flag',
815: 'Unsetting any previous flags and setting new flag.'
809:
810: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
811: fnd_log.string
812: (
813: FND_LOG.LEVEL_PROCEDURE,
814: 'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_flag',
815: 'Unsetting any previous flags and setting new flag.'
816: );
817: END IF;
820: dbms_aw.execute('lmt scenario_d to ' || p_scenario_id);
821: dbms_aw.execute('scenario_recommended_flag_m = ' || p_scenario_reccom_status);
822: dbms_aw.execute('POP scenario_d');
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_scenario_pvt.update_scenario_reccom_flag.end',
821: dbms_aw.execute('scenario_recommended_flag_m = ' || p_scenario_reccom_status);
822: dbms_aw.execute('POP scenario_d');
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_scenario_pvt.update_scenario_reccom_flag.end',
829: 'Entering fpa_scenario_pvt.update_scenario_reccom_flag.'
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_scenario_pvt.update_scenario_reccom_flag.end',
829: 'Entering fpa_scenario_pvt.update_scenario_reccom_flag.'
830: );
831: END IF;
834: WHEN OTHERS THEN
835: --dbms_output.put_line(SQLERRM);
836: ROLLBACK;
837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
838: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
839: fnd_log.string
840: (
841: FND_LOG.LEVEL_ERROR,
842: 'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_flag',
835: --dbms_output.put_line(SQLERRM);
836: ROLLBACK;
837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
838: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
839: fnd_log.string
840: (
841: FND_LOG.LEVEL_ERROR,
842: 'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_flag',
843: SQLERRM
837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
838: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
839: fnd_log.string
840: (
841: FND_LOG.LEVEL_ERROR,
842: 'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_flag',
843: SQLERRM
844: );
845: END IF;
877: l_project_id VARCHAR2(10);
878:
879: begin
880:
881: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
882: fnd_log.string
883: (
884: FND_LOG.LEVEL_PROCEDURE,
885: 'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status.begin',
878:
879: begin
880:
881: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
882: fnd_log.string
883: (
884: FND_LOG.LEVEL_PROCEDURE,
885: 'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status.begin',
886: 'Entering fpa_scenario_pvt.update_scenario_reccom_status'
880:
881: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
882: fnd_log.string
883: (
884: FND_LOG.LEVEL_PROCEDURE,
885: 'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status.begin',
886: 'Entering fpa_scenario_pvt.update_scenario_reccom_status'
887: );
888: END IF;
886: 'Entering fpa_scenario_pvt.update_scenario_reccom_status'
887: );
888: END IF;
889:
890: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
891: fnd_log.string
892: (
893: FND_LOG.LEVEL_PROCEDURE,
894: 'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status.begin',
887: );
888: END IF;
889:
890: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
891: fnd_log.string
892: (
893: FND_LOG.LEVEL_PROCEDURE,
894: 'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status.begin',
895: 'Limiting to scenario id passed.'
889:
890: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
891: fnd_log.string
892: (
893: FND_LOG.LEVEL_PROCEDURE,
894: 'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status.begin',
895: 'Limiting to scenario id passed.'
896: );
897: END IF;
898:
899: dbms_aw.execute('PUSH scenario_d');
900: dbms_aw.execute('LMT scenario_d TO ' || p_scenario_id);
901:
902: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
903: fnd_log.string
904: (
905: FND_LOG.LEVEL_PROCEDURE,
906: 'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status.begin',
899: dbms_aw.execute('PUSH scenario_d');
900: dbms_aw.execute('LMT scenario_d TO ' || p_scenario_id);
901:
902: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
903: fnd_log.string
904: (
905: FND_LOG.LEVEL_PROCEDURE,
906: 'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status.begin',
907: 'Assing project id string passed to local string variable.'
901:
902: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
903: fnd_log.string
904: (
905: FND_LOG.LEVEL_PROCEDURE,
906: 'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status.begin',
907: 'Assing project id string passed to local string variable.'
908: );
909: END IF;
909: END IF;
910:
911: l_project_id_string := p_project_id;
912:
913: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
914: fnd_log.string
915: (
916: FND_LOG.LEVEL_PROCEDURE,
917: 'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status.begin',
910:
911: l_project_id_string := p_project_id;
912:
913: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
914: fnd_log.string
915: (
916: FND_LOG.LEVEL_PROCEDURE,
917: 'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status.begin',
918: 'Loop over project id string and update recommended funding status relation.'
912:
913: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
914: fnd_log.string
915: (
916: FND_LOG.LEVEL_PROCEDURE,
917: 'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status.begin',
918: 'Loop over project id string and update recommended funding status relation.'
919: );
920: END IF;
920: END IF;
921:
922: WHILE (length(l_project_id_string) > 0) LOOP
923:
924: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
925: fnd_log.string
926: (
927: FND_LOG.LEVEL_PROCEDURE,
928: 'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status.begin',
921:
922: WHILE (length(l_project_id_string) > 0) LOOP
923:
924: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
925: fnd_log.string
926: (
927: FND_LOG.LEVEL_PROCEDURE,
928: 'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status.begin',
929: 'Current project string: ' || l_project_id_string || ' and project id: ' || l_project_id
923:
924: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
925: fnd_log.string
926: (
927: FND_LOG.LEVEL_PROCEDURE,
928: 'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status.begin',
929: 'Current project string: ' || l_project_id_string || ' and project id: ' || l_project_id
930: );
931: END IF;
934: l_project_id_string := substr(l_project_id_string, (instr(l_project_id_string, ',') + 1));
935: --dbms_output.put_line('id: ' || l_project_id);
936: --dbms_output.put_line('string: ' || l_project_id_string);
937:
938: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
939: fnd_log.string
940: (
941: FND_LOG.LEVEL_PROCEDURE,
942: 'fpa.sql.fpa_scenario_pvt.',
935: --dbms_output.put_line('id: ' || l_project_id);
936: --dbms_output.put_line('string: ' || l_project_id_string);
937:
938: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
939: fnd_log.string
940: (
941: FND_LOG.LEVEL_PROCEDURE,
942: 'fpa.sql.fpa_scenario_pvt.',
943: 'Updating FUNDING_STATUS_REC_SCENARIO_PROJECT_R relation for scenario: ' || p_scenario_id || ' and for project: ' || l_project_id
937:
938: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
939: fnd_log.string
940: (
941: FND_LOG.LEVEL_PROCEDURE,
942: 'fpa.sql.fpa_scenario_pvt.',
943: 'Updating FUNDING_STATUS_REC_SCENARIO_PROJECT_R relation for scenario: ' || p_scenario_id || ' and for project: ' || l_project_id
944: );
945: END IF;
949: END LOOP;
950:
951: dbms_aw.execute('POP scenario_d');
952:
953: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
954: fnd_log.string
955: (
956: FND_LOG.LEVEL_PROCEDURE,
957: 'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status.end',
950:
951: dbms_aw.execute('POP scenario_d');
952:
953: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
954: fnd_log.string
955: (
956: FND_LOG.LEVEL_PROCEDURE,
957: 'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status.end',
958: 'Exiting fpa_scenario_pvt.update_scenario_reccom_status.'
952:
953: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
954: fnd_log.string
955: (
956: FND_LOG.LEVEL_PROCEDURE,
957: 'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status.end',
958: 'Exiting fpa_scenario_pvt.update_scenario_reccom_status.'
959: );
960: END IF;
962: EXCEPTION
963: WHEN OTHERS THEN
964: ROLLBACK;
965: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
966: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
967: fnd_log.string
968: (
969: FND_LOG.LEVEL_ERROR,
970: 'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status',
963: WHEN OTHERS THEN
964: ROLLBACK;
965: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
966: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
967: fnd_log.string
968: (
969: FND_LOG.LEVEL_ERROR,
970: 'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status',
971: SQLERRM
965: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
966: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
967: fnd_log.string
968: (
969: FND_LOG.LEVEL_ERROR,
970: 'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status',
971: SQLERRM
972: );
973: END IF;
1000: l_str varchar2(2000);
1001: source_scen_id number;
1002: BEGIN
1003:
1004: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1005: fnd_log.string
1006: (
1007: FND_LOG.LEVEL_PROCEDURE,
1008: 'fpa.sql.fpa_scenario_pvt.copy_sce_project_data.begin',
1001: source_scen_id number;
1002: BEGIN
1003:
1004: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1005: fnd_log.string
1006: (
1007: FND_LOG.LEVEL_PROCEDURE,
1008: 'fpa.sql.fpa_scenario_pvt.copy_sce_project_data.begin',
1009: 'Entering fpa_scenario_pvt.copy_sce_project_data'
1003:
1004: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1005: fnd_log.string
1006: (
1007: FND_LOG.LEVEL_PROCEDURE,
1008: 'fpa.sql.fpa_scenario_pvt.copy_sce_project_data.begin',
1009: 'Entering fpa_scenario_pvt.copy_sce_project_data'
1010: );
1011: END IF;
1025: l_str := 'call copy_proj_data_prg(' || p_target_scen_id || ', ' || source_scen_id || ', '' ' || p_project_id_str || ''')';
1026: dbms_aw.execute(l_str);
1027: --('call copy_proj_data_prg(' || p_target_scen_id || ' ' || source_scen_id || ' '' ' || p_project_id_str || ''')');
1028:
1029: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1030: fnd_log.string
1031: (
1032: FND_LOG.LEVEL_PROCEDURE,
1033: 'fpa.sql.fpa_scenario_pvt.copy_sce_project_data.end',
1026: dbms_aw.execute(l_str);
1027: --('call copy_proj_data_prg(' || p_target_scen_id || ' ' || source_scen_id || ' '' ' || p_project_id_str || ''')');
1028:
1029: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1030: fnd_log.string
1031: (
1032: FND_LOG.LEVEL_PROCEDURE,
1033: 'fpa.sql.fpa_scenario_pvt.copy_sce_project_data.end',
1034: 'Entering fpa_scenario_pvt.copy_sce_project_data'
1028:
1029: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1030: fnd_log.string
1031: (
1032: FND_LOG.LEVEL_PROCEDURE,
1033: 'fpa.sql.fpa_scenario_pvt.copy_sce_project_data.end',
1034: 'Entering fpa_scenario_pvt.copy_sce_project_data'
1035: );
1036: END IF;
1038: EXCEPTION
1039: WHEN OTHERS THEN
1040: ROLLBACK;
1041: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1042: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1043: fnd_log.string
1044: (
1045: FND_LOG.LEVEL_ERROR,
1046: 'fpa.sql.fpa_scenario_pvt.copy_sce_project_data',
1039: WHEN OTHERS THEN
1040: ROLLBACK;
1041: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1042: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1043: fnd_log.string
1044: (
1045: FND_LOG.LEVEL_ERROR,
1046: 'fpa.sql.fpa_scenario_pvt.copy_sce_project_data',
1047: SQLERRM
1041: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1042: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1043: fnd_log.string
1044: (
1045: FND_LOG.LEVEL_ERROR,
1046: 'fpa.sql.fpa_scenario_pvt.copy_sce_project_data',
1047: SQLERRM
1048: );
1049: END IF;
1069:
1070: l_str varchar2(2000);
1071: BEGIN
1072:
1073: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1074: fnd_log.string
1075: (
1076: FND_LOG.LEVEL_PROCEDURE,
1077: 'fpa.sql.fpa_scenario_pvt.remove_project_from_scenario.begin',
1070: l_str varchar2(2000);
1071: BEGIN
1072:
1073: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1074: fnd_log.string
1075: (
1076: FND_LOG.LEVEL_PROCEDURE,
1077: 'fpa.sql.fpa_scenario_pvt.remove_project_from_scenario.begin',
1078: 'Entering fpa_scenario_pvt.remove_project_from_scenario'
1072:
1073: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1074: fnd_log.string
1075: (
1076: FND_LOG.LEVEL_PROCEDURE,
1077: 'fpa.sql.fpa_scenario_pvt.remove_project_from_scenario.begin',
1078: 'Entering fpa_scenario_pvt.remove_project_from_scenario'
1079: );
1080: END IF;
1083:
1084: -- dbms_output.put_line(l_str);
1085: dbms_aw.execute(l_str);
1086:
1087: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1088: fnd_log.string
1089: (
1090: FND_LOG.LEVEL_PROCEDURE,
1091: 'fpa.sql.fpa_scenario_pvt.remove_project_from_scenario.end',
1084: -- dbms_output.put_line(l_str);
1085: dbms_aw.execute(l_str);
1086:
1087: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1088: fnd_log.string
1089: (
1090: FND_LOG.LEVEL_PROCEDURE,
1091: 'fpa.sql.fpa_scenario_pvt.remove_project_from_scenario.end',
1092: 'Entering fpa_scenario_pvt.remove_project_from_scenario'
1086:
1087: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1088: fnd_log.string
1089: (
1090: FND_LOG.LEVEL_PROCEDURE,
1091: 'fpa.sql.fpa_scenario_pvt.remove_project_from_scenario.end',
1092: 'Entering fpa_scenario_pvt.remove_project_from_scenario'
1093: );
1094: END IF;
1096: EXCEPTION
1097: WHEN OTHERS THEN
1098: ROLLBACK;
1099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1100: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1101: fnd_log.string
1102: (
1103: FND_LOG.LEVEL_ERROR,
1104: 'fpa.sql.fpa_scenario_pvt.remove_project_from_scenario',
1097: WHEN OTHERS THEN
1098: ROLLBACK;
1099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1100: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1101: fnd_log.string
1102: (
1103: FND_LOG.LEVEL_ERROR,
1104: 'fpa.sql.fpa_scenario_pvt.remove_project_from_scenario',
1105: SQLERRM
1099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1100: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1101: fnd_log.string
1102: (
1103: FND_LOG.LEVEL_ERROR,
1104: 'fpa.sql.fpa_scenario_pvt.remove_project_from_scenario',
1105: SQLERRM
1106: );
1107: END IF;
1122: x_msg_count OUT NOCOPY NUMBER )
1123: IS
1124: BEGIN
1125:
1126: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1127: FND_LOG.String
1128: (
1129: FND_LOG.LEVEL_PROCEDURE,
1130: 'fpa.sql.FPA_Scenario_Pvt.Update_Proj_User_Ranks.begin',
1123: IS
1124: BEGIN
1125:
1126: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1127: FND_LOG.String
1128: (
1129: FND_LOG.LEVEL_PROCEDURE,
1130: 'fpa.sql.FPA_Scenario_Pvt.Update_Proj_User_Ranks.begin',
1131: 'Entering FPA_Scenario_Pvt.Update_Proj_User_Ranks'
1125:
1126: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1127: FND_LOG.String
1128: (
1129: FND_LOG.LEVEL_PROCEDURE,
1130: 'fpa.sql.FPA_Scenario_Pvt.Update_Proj_User_Ranks.begin',
1131: 'Entering FPA_Scenario_Pvt.Update_Proj_User_Ranks'
1132: );
1133: END IF;
1142: LOOP
1143:
1144: -- DBMS_OUTPUT.put_line(' ..Inside For loop...p_proj_metrics(i).project=' || p_proj_metrics(i).projectID );
1145: -- DBMS_OUTPUT.put_line(' ..Inside For loop...p_proj_metrics(i).user_rank=' || p_proj_metrics(i).user_rank );
1146: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1147: FND_LOG.String
1148: (
1149: FND_LOG.LEVEL_PROCEDURE,
1150: 'fpa.sql.FPA_Scenario_Pvt.Update_Proj_User_Ranks.end',
1143:
1144: -- DBMS_OUTPUT.put_line(' ..Inside For loop...p_proj_metrics(i).project=' || p_proj_metrics(i).projectID );
1145: -- DBMS_OUTPUT.put_line(' ..Inside For loop...p_proj_metrics(i).user_rank=' || p_proj_metrics(i).user_rank );
1146: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1147: FND_LOG.String
1148: (
1149: FND_LOG.LEVEL_PROCEDURE,
1150: 'fpa.sql.FPA_Scenario_Pvt.Update_Proj_User_Ranks.end',
1151: 'FPA_Scenario_Pvt.Update_Proj_User_Ranks: Inside for loop:projectID='||p_proj_metrics(i).projectID
1145: -- DBMS_OUTPUT.put_line(' ..Inside For loop...p_proj_metrics(i).user_rank=' || p_proj_metrics(i).user_rank );
1146: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1147: FND_LOG.String
1148: (
1149: FND_LOG.LEVEL_PROCEDURE,
1150: 'fpa.sql.FPA_Scenario_Pvt.Update_Proj_User_Ranks.end',
1151: 'FPA_Scenario_Pvt.Update_Proj_User_Ranks: Inside for loop:projectID='||p_proj_metrics(i).projectID
1152: ||' user_rank='||p_proj_metrics(i).user_rank
1153: );
1165:
1166: END LOOP;
1167:
1168:
1169: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1170: FND_LOG.String
1171: (
1172: FND_LOG.LEVEL_PROCEDURE,
1173: 'fpa.sql.FPA_Scenario_Pvt.Update_Proj_User_Ranks.end',
1166: END LOOP;
1167:
1168:
1169: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1170: FND_LOG.String
1171: (
1172: FND_LOG.LEVEL_PROCEDURE,
1173: 'fpa.sql.FPA_Scenario_Pvt.Update_Proj_User_Ranks.end',
1174: 'Exiting FPA_Scenario_Pvt.Update_Proj_User_Ranks'
1168:
1169: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1170: FND_LOG.String
1171: (
1172: FND_LOG.LEVEL_PROCEDURE,
1173: 'fpa.sql.FPA_Scenario_Pvt.Update_Proj_User_Ranks.end',
1174: 'Exiting FPA_Scenario_Pvt.Update_Proj_User_Ranks'
1175: );
1176: END IF;
1181:
1182: ROLLBACK;
1183: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1184:
1185: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
1186: FND_LOG.String
1187: (
1188: FND_LOG.LEVEL_ERROR,
1189: 'fpa.sql.FPA_Scenario_Pvt.Update_Proj_User_Ranks',
1182: ROLLBACK;
1183: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1184:
1185: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
1186: FND_LOG.String
1187: (
1188: FND_LOG.LEVEL_ERROR,
1189: 'fpa.sql.FPA_Scenario_Pvt.Update_Proj_User_Ranks',
1190: SQLERRM
1184:
1185: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
1186: FND_LOG.String
1187: (
1188: FND_LOG.LEVEL_ERROR,
1189: 'fpa.sql.FPA_Scenario_Pvt.Update_Proj_User_Ranks',
1190: SQLERRM
1191: );
1192: END IF;
1223: l_api_version CONSTANT NUMBER := 1.0;
1224:
1225: begin
1226:
1227: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1228: fnd_log.string
1229: (
1230: FND_LOG.LEVEL_PROCEDURE,
1231: 'fpa.sql.fpa_scenario_pvt.calc_scenario_data.begin',
1224:
1225: begin
1226:
1227: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1228: fnd_log.string
1229: (
1230: FND_LOG.LEVEL_PROCEDURE,
1231: 'fpa.sql.fpa_scenario_pvt.calc_scenario_data.begin',
1232: 'Entering fpa_scenario_pvt.calc_scenario_data'
1226:
1227: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1228: fnd_log.string
1229: (
1230: FND_LOG.LEVEL_PROCEDURE,
1231: 'fpa.sql.fpa_scenario_pvt.calc_scenario_data.begin',
1232: 'Entering fpa_scenario_pvt.calc_scenario_data'
1233: );
1234: END IF;
1232: 'Entering fpa_scenario_pvt.calc_scenario_data'
1233: );
1234: END IF;
1235:
1236: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1237: fnd_log.string
1238: (
1239: FND_LOG.LEVEL_PROCEDURE,
1240: 'fpa.sql.fpa_scenario_pvt.calc_scenario_data.',
1233: );
1234: END IF;
1235:
1236: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1237: fnd_log.string
1238: (
1239: FND_LOG.LEVEL_PROCEDURE,
1240: 'fpa.sql.fpa_scenario_pvt.calc_scenario_data.',
1241: 'Calling AW program CALC_SCE_ALL_DATA_PRG.'
1235:
1236: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1237: fnd_log.string
1238: (
1239: FND_LOG.LEVEL_PROCEDURE,
1240: 'fpa.sql.fpa_scenario_pvt.calc_scenario_data.',
1241: 'Calling AW program CALC_SCE_ALL_DATA_PRG.'
1242: );
1243: END IF;
1249: elsif p_class_code_id is null
1250: then dbms_aw.execute('call calc_sce_all_data_prg(' || p_scenario_id || ' ' || p_project_id || ' na ''' || p_data_to_calc || ''')');
1251: end if;
1252:
1253: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1254: fnd_log.string
1255: (
1256: FND_LOG.LEVEL_PROCEDURE,
1257: 'fpa.sql.fpa_scenario_pvt.calc_scenario_data.end',
1250: then dbms_aw.execute('call calc_sce_all_data_prg(' || p_scenario_id || ' ' || p_project_id || ' na ''' || p_data_to_calc || ''')');
1251: end if;
1252:
1253: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1254: fnd_log.string
1255: (
1256: FND_LOG.LEVEL_PROCEDURE,
1257: 'fpa.sql.fpa_scenario_pvt.calc_scenario_data.end',
1258: 'Entering fpa_scenario_pvt.calc_scenario_data'
1252:
1253: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1254: fnd_log.string
1255: (
1256: FND_LOG.LEVEL_PROCEDURE,
1257: 'fpa.sql.fpa_scenario_pvt.calc_scenario_data.end',
1258: 'Entering fpa_scenario_pvt.calc_scenario_data'
1259: );
1260: END IF;
1262: EXCEPTION
1263: WHEN OTHERS THEN
1264: ROLLBACK;
1265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1266: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1267: fnd_log.string
1268: (
1269: FND_LOG.LEVEL_ERROR,
1270: 'fpa.sql.fpa_scenario_pvt.calc_scenario_data',
1263: WHEN OTHERS THEN
1264: ROLLBACK;
1265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1266: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1267: fnd_log.string
1268: (
1269: FND_LOG.LEVEL_ERROR,
1270: 'fpa.sql.fpa_scenario_pvt.calc_scenario_data',
1271: SQLERRM
1265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1266: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1267: fnd_log.string
1268: (
1269: FND_LOG.LEVEL_ERROR,
1270: 'fpa.sql.fpa_scenario_pvt.calc_scenario_data',
1271: SQLERRM
1272: );
1273: END IF;