30: -- A record to hold the new sequence value
31: portfolio_s_r portfolio_s_c%ROWTYPE;
32: BEGIN
33:
34: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
35: fnd_log.string
36: (
37: FND_LOG.LEVEL_PROCEDURE,
38: 'fpa.sql.fpa_portfolio_pvt.create_portfolio.begin',
31: portfolio_s_r portfolio_s_c%ROWTYPE;
32: BEGIN
33:
34: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
35: fnd_log.string
36: (
37: FND_LOG.LEVEL_PROCEDURE,
38: 'fpa.sql.fpa_portfolio_pvt.create_portfolio.begin',
39: 'Entering fpa_portfolo_pvt.create_portfolio'
33:
34: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
35: fnd_log.string
36: (
37: FND_LOG.LEVEL_PROCEDURE,
38: 'fpa.sql.fpa_portfolio_pvt.create_portfolio.begin',
39: 'Entering fpa_portfolo_pvt.create_portfolio'
40: );
41: END IF;
114:
115:
116: CLOSE c_language;
117:
118: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
119: fnd_log.string
120: (
121: FND_LOG.LEVEL_PROCEDURE,
122: 'fpa_portfolo_pvt.create_portfolio.end',
115:
116: CLOSE c_language;
117:
118: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
119: fnd_log.string
120: (
121: FND_LOG.LEVEL_PROCEDURE,
122: 'fpa_portfolo_pvt.create_portfolio.end',
123: 'Exiting fpa_portfolio_pvt.create_portfolio'
117:
118: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
119: fnd_log.string
120: (
121: FND_LOG.LEVEL_PROCEDURE,
122: 'fpa_portfolo_pvt.create_portfolio.end',
123: 'Exiting fpa_portfolio_pvt.create_portfolio'
124: );
125: END IF;
140:
141: ROLLBACK;
142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
143:
144: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
145: fnd_log.string
146: (
147: FND_LOG.LEVEL_ERROR,
148: 'fpa_portfolio_pvt.create_portfolio',
141: ROLLBACK;
142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
143:
144: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
145: fnd_log.string
146: (
147: FND_LOG.LEVEL_ERROR,
148: 'fpa_portfolio_pvt.create_portfolio',
149: SQLERRM
143:
144: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
145: fnd_log.string
146: (
147: FND_LOG.LEVEL_ERROR,
148: 'fpa_portfolio_pvt.create_portfolio',
149: SQLERRM
150: );
151: END IF;
173: IS
174:
175: BEGIN
176:
177: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
178: fnd_log.string
179: (
180: FND_LOG.LEVEL_PROCEDURE,
181: 'fpa_portfolio_pvt.Delete_Portfolio.begin',
174:
175: BEGIN
176:
177: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
178: fnd_log.string
179: (
180: FND_LOG.LEVEL_PROCEDURE,
181: 'fpa_portfolio_pvt.Delete_Portfolio.begin',
182: 'Entering fpa_portfolio_pvt.Delete_Portfolio'
176:
177: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
178: fnd_log.string
179: (
180: FND_LOG.LEVEL_PROCEDURE,
181: 'fpa_portfolio_pvt.Delete_Portfolio.begin',
182: 'Entering fpa_portfolio_pvt.Delete_Portfolio'
183: );
184: END IF;
182: 'Entering fpa_portfolio_pvt.Delete_Portfolio'
183: );
184: END IF;
185:
186: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
187: fnd_log.string
188: (
189: FND_LOG.LEVEL_PROCEDURE,
190: ' fpa_portfolio_pvt.Delete_Portfolio',
183: );
184: END IF;
185:
186: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
187: fnd_log.string
188: (
189: FND_LOG.LEVEL_PROCEDURE,
190: ' fpa_portfolio_pvt.Delete_Portfolio',
191: ' Before remove portfolio maintain portfolio_d '
185:
186: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
187: fnd_log.string
188: (
189: FND_LOG.LEVEL_PROCEDURE,
190: ' fpa_portfolio_pvt.Delete_Portfolio',
191: ' Before remove portfolio maintain portfolio_d '
192: );
193: END IF;
193: END IF;
194:
195: -- Delete the portfolio from the AW space.
196: dbms_aw.Execute('maintain portfolio_d delete ' || p_portfolio_id );
197: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
198: fnd_log.string
199: (
200: FND_LOG.LEVEL_PROCEDURE,
201: ' fpa_portfolio_pvt.Delete_Portfolio',
194:
195: -- Delete the portfolio from the AW space.
196: dbms_aw.Execute('maintain portfolio_d delete ' || p_portfolio_id );
197: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
198: fnd_log.string
199: (
200: FND_LOG.LEVEL_PROCEDURE,
201: ' fpa_portfolio_pvt.Delete_Portfolio',
202: ' After remove portfolio maintain portfolio_d '
196: dbms_aw.Execute('maintain portfolio_d delete ' || p_portfolio_id );
197: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
198: fnd_log.string
199: (
200: FND_LOG.LEVEL_PROCEDURE,
201: ' fpa_portfolio_pvt.Delete_Portfolio',
202: ' After remove portfolio maintain portfolio_d '
203: );
204: END IF;
214: -- 2) REMOVE CORRESPONDING PORTFOLIO USERSS
215:
216:
217:
218: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
219: fnd_log.string
220: (
221: FND_LOG.LEVEL_PROCEDURE,
222: 'fpa_portfolio_pvt.Delete_Portfolio.end',
215:
216:
217:
218: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
219: fnd_log.string
220: (
221: FND_LOG.LEVEL_PROCEDURE,
222: 'fpa_portfolio_pvt.Delete_Portfolio.end',
223: 'Exiting fpa_portfolio_pvt.Delete_Portfolio'
217:
218: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
219: fnd_log.string
220: (
221: FND_LOG.LEVEL_PROCEDURE,
222: 'fpa_portfolio_pvt.Delete_Portfolio.end',
223: 'Exiting fpa_portfolio_pvt.Delete_Portfolio'
224: );
225: END IF;
229: WHEN OTHERS THEN
230: ROLLBACK;
231: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
232:
233: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
234: fnd_log.string
235: (
236: FND_LOG.LEVEL_ERROR,
237: 'fpa_portfolio_pvt.Delete_Portfolio.end',
230: ROLLBACK;
231: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
232:
233: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
234: fnd_log.string
235: (
236: FND_LOG.LEVEL_ERROR,
237: 'fpa_portfolio_pvt.Delete_Portfolio.end',
238: SQLERRM
232:
233: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
234: fnd_log.string
235: (
236: FND_LOG.LEVEL_ERROR,
237: 'fpa_portfolio_pvt.Delete_Portfolio.end',
238: SQLERRM
239: );
240: END IF;
264: )
265: IS
266: BEGIN
267:
268: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
269: fnd_log.string
270: (
271: FND_LOG.LEVEL_PROCEDURE,
272: 'fpa.sql.fpa_portfolio_pvt.update_portfolio_Descr.begin',
265: IS
266: BEGIN
267:
268: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
269: fnd_log.string
270: (
271: FND_LOG.LEVEL_PROCEDURE,
272: 'fpa.sql.fpa_portfolio_pvt.update_portfolio_Descr.begin',
273: 'Entering fpa_portfolo_pvt.update_portfolio_descr'
267:
268: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
269: fnd_log.string
270: (
271: FND_LOG.LEVEL_PROCEDURE,
272: 'fpa.sql.fpa_portfolio_pvt.update_portfolio_Descr.begin',
273: 'Entering fpa_portfolo_pvt.update_portfolio_descr'
274: );
275: END IF;
280: where objtl.id = p_portfolio_rec.portfolio_id
281: and userenv('LANG') IN (objtl.LANGUAGE, objtl.SOURCE_LANG);
282:
283:
284: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
285: fnd_log.string
286: (
287: FND_LOG.LEVEL_PROCEDURE,
288: 'fpa.sql.fpa_portfolio_pvt.update_portfolio_desc.end',
281: and userenv('LANG') IN (objtl.LANGUAGE, objtl.SOURCE_LANG);
282:
283:
284: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
285: fnd_log.string
286: (
287: FND_LOG.LEVEL_PROCEDURE,
288: 'fpa.sql.fpa_portfolio_pvt.update_portfolio_desc.end',
289: 'Exiting fpa_portfolo_pvt.update_portfolio_descr'
283:
284: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
285: fnd_log.string
286: (
287: FND_LOG.LEVEL_PROCEDURE,
288: 'fpa.sql.fpa_portfolio_pvt.update_portfolio_desc.end',
289: 'Exiting fpa_portfolo_pvt.update_portfolio_descr'
290: );
291: END IF;
294: WHEN OTHERS THEN
295: ROLLBACK;
296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
297:
298: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
299: fnd_log.string
300: (
301: FND_LOG.LEVEL_ERROR,
302: 'fpa_portfolio_pvt.update_portfolio',
295: ROLLBACK;
296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
297:
298: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
299: fnd_log.string
300: (
301: FND_LOG.LEVEL_ERROR,
302: 'fpa_portfolio_pvt.update_portfolio',
303: SQLERRM
297:
298: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
299: fnd_log.string
300: (
301: FND_LOG.LEVEL_ERROR,
302: 'fpa_portfolio_pvt.update_portfolio',
303: SQLERRM
304: );
305: END IF;
327: x_msg_count OUT NOCOPY NUMBER
328: )
329: IS
330: BEGIN
331: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
332: fnd_log.string
333: (
334: FND_LOG.LEVEL_PROCEDURE,
335: 'fpa.sql.fpa_portfolio_pvt.update_portfolio_type.begin',
328: )
329: IS
330: BEGIN
331: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
332: fnd_log.string
333: (
334: FND_LOG.LEVEL_PROCEDURE,
335: 'fpa.sql.fpa_portfolio_pvt.update_portfolio_type.begin',
336: 'Entering fpa_portfolo_pvt.update_portfolio_type'
330: BEGIN
331: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
332: fnd_log.string
333: (
334: FND_LOG.LEVEL_PROCEDURE,
335: 'fpa.sql.fpa_portfolio_pvt.update_portfolio_type.begin',
336: 'Entering fpa_portfolo_pvt.update_portfolio_type'
337: );
338: END IF;
339: -- Update name and description
340: dbms_aw.execute('LMT portfolio_d TO '||p_portfolio_id);
341: dbms_aw.execute('portfolio_class_code_m='|| p_portfolio_class_code );
342:
343: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
344: fnd_log.string
345: (
346: FND_LOG.LEVEL_PROCEDURE,
347: 'fpa.sql.fpa_portfolio_pvt.update_portfolio_type.end',
340: dbms_aw.execute('LMT portfolio_d TO '||p_portfolio_id);
341: dbms_aw.execute('portfolio_class_code_m='|| p_portfolio_class_code );
342:
343: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
344: fnd_log.string
345: (
346: FND_LOG.LEVEL_PROCEDURE,
347: 'fpa.sql.fpa_portfolio_pvt.update_portfolio_type.end',
348: 'Exiting fpa_portfolo_pvt.update_portfolio_type'
342:
343: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
344: fnd_log.string
345: (
346: FND_LOG.LEVEL_PROCEDURE,
347: 'fpa.sql.fpa_portfolio_pvt.update_portfolio_type.end',
348: 'Exiting fpa_portfolo_pvt.update_portfolio_type'
349: );
350: END IF;
353: WHEN OTHERS THEN
354: ROLLBACK;
355: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
356:
357: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
358: fnd_log.string
359: (
360: FND_LOG.LEVEL_ERROR,
361: 'fpa_portfolio_pvt.update_portfolio_type',
354: ROLLBACK;
355: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
356:
357: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
358: fnd_log.string
359: (
360: FND_LOG.LEVEL_ERROR,
361: 'fpa_portfolio_pvt.update_portfolio_type',
362: SQLERRM
356:
357: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
358: fnd_log.string
359: (
360: FND_LOG.LEVEL_ERROR,
361: 'fpa_portfolio_pvt.update_portfolio_type',
362: SQLERRM
363: );
364: END IF;
387: )
388: IS
389: BEGIN
390:
391: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
392: fnd_log.string
393: (
394: FND_LOG.LEVEL_PROCEDURE,
395: 'fpa.sql.fpa_portfolio_pvt.update_portfolio_organization.begin',
388: IS
389: BEGIN
390:
391: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
392: fnd_log.string
393: (
394: FND_LOG.LEVEL_PROCEDURE,
395: 'fpa.sql.fpa_portfolio_pvt.update_portfolio_organization.begin',
396: 'Entering fpa_portfolo_pvt.update_portfolio_organization'
390:
391: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
392: fnd_log.string
393: (
394: FND_LOG.LEVEL_PROCEDURE,
395: 'fpa.sql.fpa_portfolio_pvt.update_portfolio_organization.begin',
396: 'Entering fpa_portfolo_pvt.update_portfolio_organization'
397: );
398: END IF;
402: ELSE
403: dbms_aw.execute('portfolio_organization_m= '|| p_portfolio_organization );
404: END IF;
405:
406: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
407: fnd_log.string
408: (
409: FND_LOG.LEVEL_PROCEDURE,
410: 'fpa.sql.fpa_portfolio_pvt.update_portfolio_organization.end',
403: dbms_aw.execute('portfolio_organization_m= '|| p_portfolio_organization );
404: END IF;
405:
406: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
407: fnd_log.string
408: (
409: FND_LOG.LEVEL_PROCEDURE,
410: 'fpa.sql.fpa_portfolio_pvt.update_portfolio_organization.end',
411: 'Exiting fpa_portfolo_pvt.update_portfolio_organization'
405:
406: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
407: fnd_log.string
408: (
409: FND_LOG.LEVEL_PROCEDURE,
410: 'fpa.sql.fpa_portfolio_pvt.update_portfolio_organization.end',
411: 'Exiting fpa_portfolo_pvt.update_portfolio_organization'
412: );
413: END IF;
416: WHEN OTHERS THEN
417: ROLLBACK;
418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
419:
420: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
421: fnd_log.string
422: (
423: FND_LOG.LEVEL_ERROR,
424: 'fpa_portfolio_pvt.update_portfolio_organization',
417: ROLLBACK;
418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
419:
420: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
421: fnd_log.string
422: (
423: FND_LOG.LEVEL_ERROR,
424: 'fpa_portfolio_pvt.update_portfolio_organization',
425: SQLERRM
419:
420: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
421: fnd_log.string
422: (
423: FND_LOG.LEVEL_ERROR,
424: 'fpa_portfolio_pvt.update_portfolio_organization',
425: SQLERRM
426: );
427: END IF;
452: IS
453: PortfolioCnt NUMBER;
454: BEGIN
455:
456: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
457: fnd_log.string
458: (
459: FND_LOG.LEVEL_PROCEDURE,
460: 'fpa.sql.fpa_portfolio_pvt.Check_portfolio_name.begin',
453: PortfolioCnt NUMBER;
454: BEGIN
455:
456: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
457: fnd_log.string
458: (
459: FND_LOG.LEVEL_PROCEDURE,
460: 'fpa.sql.fpa_portfolio_pvt.Check_portfolio_name.begin',
461: 'Entering fpa_portfolo_pvt.Check_portfolio_name'
455:
456: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
457: fnd_log.string
458: (
459: FND_LOG.LEVEL_PROCEDURE,
460: 'fpa.sql.fpa_portfolio_pvt.Check_portfolio_name.begin',
461: 'Entering fpa_portfolo_pvt.Check_portfolio_name'
462: );
463: END IF;
482: END IF;
483: --dbms_output.PUT_LINE(PortfolioCnt);
484: RETURN PortfolioCnt;
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_portfolio_pvt.Check_portfolio_name.end',
483: --dbms_output.PUT_LINE(PortfolioCnt);
484: RETURN PortfolioCnt;
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_portfolio_pvt.Check_portfolio_name.end',
491: 'Exting fpa_portfolo_pvt.Check_portfolio_name'
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_portfolio_pvt.Check_portfolio_name.end',
491: 'Exting fpa_portfolo_pvt.Check_portfolio_name'
492: );
493: END IF;
497: WHEN OTHERS THEN
498: ROLLBACK;
499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
500:
501: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
502: fnd_log.string
503: (
504: FND_LOG.LEVEL_ERROR,
505: 'fpa_portfolio_pvt.Check_portfolio_name',
498: ROLLBACK;
499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
500:
501: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
502: fnd_log.string
503: (
504: FND_LOG.LEVEL_ERROR,
505: 'fpa_portfolio_pvt.Check_portfolio_name',
506: SQLERRM
500:
501: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
502: fnd_log.string
503: (
504: FND_LOG.LEVEL_ERROR,
505: 'fpa_portfolio_pvt.Check_portfolio_name',
506: SQLERRM
507: );
508: END IF;