158: -- If the award year is FULL_PARTICIPANT then raise the error message and stop processing
159: -- else continue the process
160: IF l_cod_year_flag THEN
161:
162: fnd_message.set_name('IGF','IGF_SL_COD_NO_DISB_ORIG');
163: fnd_file.put_line(fnd_file.log,fnd_message.get);
164: RETURN;
165:
166: END IF;
159: -- else continue the process
160: IF l_cod_year_flag THEN
161:
162: fnd_message.set_name('IGF','IGF_SL_COD_NO_DISB_ORIG');
163: fnd_file.put_line(fnd_file.log,fnd_message.get);
164: RETURN;
165:
166: END IF;
167:
179: BEGIN
180: lv_dl_version := igf_sl_gen.get_dl_version(lv_cal_type, lv_cal_seq_num);
181: EXCEPTION
182: WHEN NO_DATA_FOUND THEN
183: fnd_message.set_name('IGF','IGF_DB_DL_VERSION_FALSE');
184: fnd_file.put_line(fnd_file.log,fnd_message.get);
185: RAISE NO_DATA_FOUND;
186: END;
187:
180: lv_dl_version := igf_sl_gen.get_dl_version(lv_cal_type, lv_cal_seq_num);
181: EXCEPTION
182: WHEN NO_DATA_FOUND THEN
183: fnd_message.set_name('IGF','IGF_DB_DL_VERSION_FALSE');
184: fnd_file.put_line(fnd_file.log,fnd_message.get);
185: RAISE NO_DATA_FOUND;
186: END;
187:
188: -- Initialise the Data Record field
204:
205: IF cur_disb_dtl%NOTFOUND THEN
206: --Obseleted message IGF_NO_DL_DISB_DATA_ORIG as it does not comply standards.
207: --Added a new message.
208: fnd_message.set_name('IGF','IGF_DB_DLDISB_NOTORIG');
209: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
210: CLOSE cur_disb_dtl;
211: RAISE no_disb_data;
212: END IF;
205: IF cur_disb_dtl%NOTFOUND THEN
206: --Obseleted message IGF_NO_DL_DISB_DATA_ORIG as it does not comply standards.
207: --Added a new message.
208: fnd_message.set_name('IGF','IGF_DB_DLDISB_NOTORIG');
209: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
210: CLOSE cur_disb_dtl;
211: RAISE no_disb_data;
212: END IF;
213:
225:
226: FETCH Header_Rec into lv_data_record;
227:
228: IF Header_Rec%NOTFOUND THEN
229: fnd_message.set_name ('IGF', 'IGF_GE_HDR_CREATE_ERROR');
230: igs_ge_msg_stack.add;
231: app_exception.raise_exception;
232: END IF;
233:
255: -- Write the Trailer Record
256: igf_sl_dl_record.DLTrailer_cur(lv_dl_version, p_Rec_count,Trailer_Rec);
257: FETCH Trailer_Rec into lv_data_record;
258: IF Trailer_Rec%NOTFOUND THEN
259: fnd_message.set_name ('IGF', 'IGF_GE_TRL_CREATE_ERROR');
260: igs_ge_msg_stack.add;
261: app_exception.raise_exception;
262: END IF;
263: -- Write the Trailer Record into the Output file
264: fnd_file.put_line(FND_FILE.OUTPUT, lv_data_record);
265:
266: --Display message that DL Disb Records are originated.See output File.
267: fnd_file.put_line(fnd_file.log,' ');
268: fnd_message.set_name('IGF','IGF_DB_DL_DISB_ORIG');
269: fnd_file.put_line(fnd_file.log,fnd_message.get);
270: ELSE
271: FND_MESSAGE.SET_NAME('IGF','IGF_AP_TOTAL_RECS');
272: FND_MESSAGE.SET_TOKEN('COUNT', p_Rec_count);
265:
266: --Display message that DL Disb Records are originated.See output File.
267: fnd_file.put_line(fnd_file.log,' ');
268: fnd_message.set_name('IGF','IGF_DB_DL_DISB_ORIG');
269: fnd_file.put_line(fnd_file.log,fnd_message.get);
270: ELSE
271: FND_MESSAGE.SET_NAME('IGF','IGF_AP_TOTAL_RECS');
272: FND_MESSAGE.SET_TOKEN('COUNT', p_Rec_count);
273: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
267: fnd_file.put_line(fnd_file.log,' ');
268: fnd_message.set_name('IGF','IGF_DB_DL_DISB_ORIG');
269: fnd_file.put_line(fnd_file.log,fnd_message.get);
270: ELSE
271: FND_MESSAGE.SET_NAME('IGF','IGF_AP_TOTAL_RECS');
272: FND_MESSAGE.SET_TOKEN('COUNT', p_Rec_count);
273: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
274: END IF;
275: COMMIT;
268: fnd_message.set_name('IGF','IGF_DB_DL_DISB_ORIG');
269: fnd_file.put_line(fnd_file.log,fnd_message.get);
270: ELSE
271: FND_MESSAGE.SET_NAME('IGF','IGF_AP_TOTAL_RECS');
272: FND_MESSAGE.SET_TOKEN('COUNT', p_Rec_count);
273: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
274: END IF;
275: COMMIT;
276:
269: fnd_file.put_line(fnd_file.log,fnd_message.get);
270: ELSE
271: FND_MESSAGE.SET_NAME('IGF','IGF_AP_TOTAL_RECS');
272: FND_MESSAGE.SET_TOKEN('COUNT', p_Rec_count);
273: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
274: END IF;
275: COMMIT;
276:
277: EXCEPTION
283: errbuf := NULL;
284: WHEN app_exception.record_lock_exception THEN
285: ROLLBACK;
286: retcode := 2;
287: errbuf := fnd_message.get_string('IGF','IGF_GE_LOCK_ERROR');
288: IGS_GE_MSG_STACK.CONC_EXCEPTION_HNDL;
289: WHEN OTHERS THEN
290: ROLLBACK;
291: retcode := 2;
288: IGS_GE_MSG_STACK.CONC_EXCEPTION_HNDL;
289: WHEN OTHERS THEN
290: ROLLBACK;
291: retcode := 2;
292: errbuf := fnd_message.get_string('IGS','IGS_GE_UNHANDLED_EXCEPTION');
293: fnd_file.put_line(fnd_file.log,SQLERRM);
294: IGS_GE_MSG_STACK.CONC_EXCEPTION_HNDL;
295: END disb_originate;
296:
407: OPEN cur_school;
408: FETCH cur_school INTO l_orig_fee_perct_stafford, l_orig_fee_perct_plus;
409: IF cur_school%NOTFOUND THEN
410: CLOSE cur_school;
411: fnd_message.set_name ('IGF', 'IGF_SL_NO_DL_SETUP');
412: fnd_file.put_line(fnd_file.log,fnd_message.get);
413: RAISE NO_DATA_FOUND;
414: END IF;
415: CLOSE cur_school;
408: FETCH cur_school INTO l_orig_fee_perct_stafford, l_orig_fee_perct_plus;
409: IF cur_school%NOTFOUND THEN
410: CLOSE cur_school;
411: fnd_message.set_name ('IGF', 'IGF_SL_NO_DL_SETUP');
412: fnd_file.put_line(fnd_file.log,fnd_message.get);
413: RAISE NO_DATA_FOUND;
414: END IF;
415: CLOSE cur_school;
416:
618: END IF;
619: IF cur_school%ISOPEN THEN
620: CLOSE cur_school;
621: END IF;
622: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
623: fnd_message.set_token('NAME','IGF_DB_DL_DISB_ORIG.TRANS_REC');
624: fnd_file.put_line(fnd_file.log,SQLERRM);
625: igs_ge_msg_stack.add;
626: app_exception.raise_exception;
619: IF cur_school%ISOPEN THEN
620: CLOSE cur_school;
621: END IF;
622: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
623: fnd_message.set_token('NAME','IGF_DB_DL_DISB_ORIG.TRANS_REC');
624: fnd_file.put_line(fnd_file.log,SQLERRM);
625: igs_ge_msg_stack.add;
626: app_exception.raise_exception;
627: END trans_rec;