1: PACKAGE BODY igf_sl_pref_lender AS
2: /* $Header: IGFSL21B.pls 120.7 2006/05/05 00:56:24 veramach ship $ */
3: --=========================================================================
4: -- Copyright (c) 1994, 1996 Oracle Corp. Redwood Shores, California, USA
5: -- All rights reserved.
5: -- All rights reserved.
6: -- ========================================================================
7: --
8: -- DESCRIPTION
9: -- PL/SQL body for package: IGF_SL_PREF_LENDER
10: --
11: -- NOTES
12: --
13: -- This process is used to assign a preferred lender to a group of students
123:
124: EXCEPTION
125: WHEN others THEN
126: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
127: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'igf.plsql.igf_sl_pref_lender.print_log_process.exception',SQLERRM);
128: END IF;
129: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
130: fnd_message.set_token('NAME','IGF_SL_PREF_LENDER.PRINT_LOG_PROCESS');
131: app_exception.raise_exception;
126: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
127: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'igf.plsql.igf_sl_pref_lender.print_log_process.exception',SQLERRM);
128: END IF;
129: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
130: fnd_message.set_token('NAME','IGF_SL_PREF_LENDER.PRINT_LOG_PROCESS');
131: app_exception.raise_exception;
132:
133: END print_log_process;
134:
155:
156: EXCEPTION
157: WHEN others THEN
158: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
159: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'igf.plsql.igf_sl_pref_lender.add_log_table_process.exception',SQLERRM);
160: END IF;
161: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
162: fnd_message.set_token('NAME','IGF_SL_PREF_LENDER.ADD_LOG_TABLE_PROCESS');
163: app_exception.raise_exception;
158: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
159: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'igf.plsql.igf_sl_pref_lender.add_log_table_process.exception',SQLERRM);
160: END IF;
161: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
162: fnd_message.set_token('NAME','IGF_SL_PREF_LENDER.ADD_LOG_TABLE_PROCESS');
163: app_exception.raise_exception;
164:
165: END add_log_table_process;
166:
220:
221: EXCEPTION
222: WHEN others THEN
223: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
224: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'igf.plsql.igf_sl_pref_lender.check_for_todo.exception',SQLERRM);
225: END IF;
226: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
227: fnd_message.set_token('NAME','IGF_SL_PREF_LENDER.CHECK_FOR_TODO');
228: app_exception.raise_exception;
223: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
224: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'igf.plsql.igf_sl_pref_lender.check_for_todo.exception',SQLERRM);
225: END IF;
226: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
227: fnd_message.set_token('NAME','IGF_SL_PREF_LENDER.CHECK_FOR_TODO');
228: app_exception.raise_exception;
229: END check_for_todo;
230:
231: PROCEDURE main (
527: l_success_record_cnt := l_success_record_cnt + 1;
528: END IF;
529: -- log the messgae in the logging framework
530: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
531: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_sl_pref_lender.main.debug',l_debug_str);
532: END IF;
533: l_debug_str := NULL;
534:
535: EXCEPTION
536: WHEN OTHERS THEN
537: l_debug_str := NULL;
538: l_error_flag := FALSE;
539: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
540: fnd_message.set_token('NAME','IGF_SL_PREF_LENDER.MAIN');
541: add_log_table_process(l_person_number,l_error,fnd_message.get || ' ' || SQLERRM);
542: ROLLBACK TO sp1;
543: END;
544: -- commit the sucessful record
557:
558: EXCEPTION
559: WHEN others THEN
560: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
561: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'igf.plsql.igf_sl_pref_lender.main.exception',SQLERRM);
562: END IF;
563: ROLLBACK;
564: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
565: fnd_message.set_token('NAME','IGF_SL_PREF_LENDER.MAIN');
561: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'igf.plsql.igf_sl_pref_lender.main.exception',SQLERRM);
562: END IF;
563: ROLLBACK;
564: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
565: fnd_message.set_token('NAME','IGF_SL_PREF_LENDER.MAIN');
566: retcode := 2;
567: errbuf := fnd_message.get;
568: igs_ge_msg_stack.conc_exception_hndl;
569:
568: igs_ge_msg_stack.conc_exception_hndl;
569:
570: END main;
571:
572: END igf_sl_pref_lender;