183: x_full_resp_code => p_rfms_rec.full_resp_code,
184: x_document_id_txt => p_rfms_rec.document_id_txt );
185: EXCEPTION
186: WHEN OTHERS THEN
187: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
188: fnd_message.set_token('NAME','IGF_GR_RFMS_ORIG.UPDATE_ORIG_REC');
189: igs_ge_msg_stack.add;
190: app_exception.raise_exception;
191:
184: x_document_id_txt => p_rfms_rec.document_id_txt );
185: EXCEPTION
186: WHEN OTHERS THEN
187: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
188: fnd_message.set_token('NAME','IGF_GR_RFMS_ORIG.UPDATE_ORIG_REC');
189: igs_ge_msg_stack.add;
190: app_exception.raise_exception;
191:
192: END update_orig_rec;
259: p_rfms_rec.enrollment_status IS NULL OR
260: p_rfms_rec.enrollment_dt IS NULL
261: THEN
262: fnd_file.new_line(fnd_file.log,1);
263: fnd_message.set_name('IGF','IGF_GR_ORIG_DATA_REQD');
264: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(p_rfms_rec.base_id));
265: fnd_file.put_line(fnd_file.log,fnd_message.get);
266: fnd_file.new_line(fnd_file.log,1);
267: fnd_file.put_line(fnd_file.log, RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','EFC'),50) || ' : ' ||p_rfms_rec.efc);
260: p_rfms_rec.enrollment_dt IS NULL
261: THEN
262: fnd_file.new_line(fnd_file.log,1);
263: fnd_message.set_name('IGF','IGF_GR_ORIG_DATA_REQD');
264: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(p_rfms_rec.base_id));
265: fnd_file.put_line(fnd_file.log,fnd_message.get);
266: fnd_file.new_line(fnd_file.log,1);
267: fnd_file.put_line(fnd_file.log, RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','EFC'),50) || ' : ' ||p_rfms_rec.efc);
268: fnd_file.put_line(fnd_file.log, RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','PELL_AMOUNT'),50) || ' : ' ||p_rfms_rec.pell_amount);
261: THEN
262: fnd_file.new_line(fnd_file.log,1);
263: fnd_message.set_name('IGF','IGF_GR_ORIG_DATA_REQD');
264: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(p_rfms_rec.base_id));
265: fnd_file.put_line(fnd_file.log,fnd_message.get);
266: fnd_file.new_line(fnd_file.log,1);
267: fnd_file.put_line(fnd_file.log, RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','EFC'),50) || ' : ' ||p_rfms_rec.efc);
268: fnd_file.put_line(fnd_file.log, RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','PELL_AMOUNT'),50) || ' : ' ||p_rfms_rec.pell_amount);
269: fnd_file.put_line(fnd_file.log, RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','FT_PELL_AMOUNT'),50) || ' : ' ||p_rfms_rec.ft_pell_amount);
377:
378: -- Since we are going to write the record to file, print log message if we had been set enrollment_status.
379: IF p_enrl_status_mesgnum = 1 THEN
380: -- default to 'Others'
381: fnd_message.set_name('IGF','IGF_GR_DEFAULT_ENRL_STAT');
382: fnd_message.set_token('EN_STAT',igf_aw_gen.lookup_desc('IGF_GR_RFMS_ENROL_STAT', p_rfms_rec.enrollment_status));
383: fnd_file.put_line(fnd_file.log,fnd_message.get);
384: ELSIF p_enrl_status_mesgnum = 2 THEN
385: -- set to pell attendance code.
378: -- Since we are going to write the record to file, print log message if we had been set enrollment_status.
379: IF p_enrl_status_mesgnum = 1 THEN
380: -- default to 'Others'
381: fnd_message.set_name('IGF','IGF_GR_DEFAULT_ENRL_STAT');
382: fnd_message.set_token('EN_STAT',igf_aw_gen.lookup_desc('IGF_GR_RFMS_ENROL_STAT', p_rfms_rec.enrollment_status));
383: fnd_file.put_line(fnd_file.log,fnd_message.get);
384: ELSIF p_enrl_status_mesgnum = 2 THEN
385: -- set to pell attendance code.
386: fnd_message.set_name('IGF','IGF_GR_SET_ENRL_STAT');
379: IF p_enrl_status_mesgnum = 1 THEN
380: -- default to 'Others'
381: fnd_message.set_name('IGF','IGF_GR_DEFAULT_ENRL_STAT');
382: fnd_message.set_token('EN_STAT',igf_aw_gen.lookup_desc('IGF_GR_RFMS_ENROL_STAT', p_rfms_rec.enrollment_status));
383: fnd_file.put_line(fnd_file.log,fnd_message.get);
384: ELSIF p_enrl_status_mesgnum = 2 THEN
385: -- set to pell attendance code.
386: fnd_message.set_name('IGF','IGF_GR_SET_ENRL_STAT');
387: fnd_message.set_token('EN_STAT',igf_aw_gen.lookup_desc('IGF_GR_RFMS_ENROL_STAT', p_rfms_rec.enrollment_status));
382: fnd_message.set_token('EN_STAT',igf_aw_gen.lookup_desc('IGF_GR_RFMS_ENROL_STAT', p_rfms_rec.enrollment_status));
383: fnd_file.put_line(fnd_file.log,fnd_message.get);
384: ELSIF p_enrl_status_mesgnum = 2 THEN
385: -- set to pell attendance code.
386: fnd_message.set_name('IGF','IGF_GR_SET_ENRL_STAT');
387: fnd_message.set_token('EN_STAT',igf_aw_gen.lookup_desc('IGF_GR_RFMS_ENROL_STAT', p_rfms_rec.enrollment_status));
388: fnd_file.put_line(fnd_file.log,fnd_message.get);
389: END IF;
390:
383: fnd_file.put_line(fnd_file.log,fnd_message.get);
384: ELSIF p_enrl_status_mesgnum = 2 THEN
385: -- set to pell attendance code.
386: fnd_message.set_name('IGF','IGF_GR_SET_ENRL_STAT');
387: fnd_message.set_token('EN_STAT',igf_aw_gen.lookup_desc('IGF_GR_RFMS_ENROL_STAT', p_rfms_rec.enrollment_status));
388: fnd_file.put_line(fnd_file.log,fnd_message.get);
389: END IF;
390:
391: fnd_file.put_line(fnd_file.output,UPPER(l_data));
384: ELSIF p_enrl_status_mesgnum = 2 THEN
385: -- set to pell attendance code.
386: fnd_message.set_name('IGF','IGF_GR_SET_ENRL_STAT');
387: fnd_message.set_token('EN_STAT',igf_aw_gen.lookup_desc('IGF_GR_RFMS_ENROL_STAT', p_rfms_rec.enrollment_status));
388: fnd_file.put_line(fnd_file.log,fnd_message.get);
389: END IF;
390:
391: fnd_file.put_line(fnd_file.output,UPPER(l_data));
392: p_num_of_records := p_num_of_records + 1;
392: p_num_of_records := p_num_of_records + 1;
393: p_originated :='Y';
394: update_orig_rec(p_rfms_rec,p_rfmb_id);
395: ELSE
396: fnd_message.set_name('IGF','IGF_GR_VERF_STAT_W');
397: fnd_message.set_token('ORIG_ID',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','ORIGINATION_ID') ||
398: ' : ' || p_rfms_rec.origination_id );
399: fnd_file.put_line(fnd_file.log,fnd_message.get);
400: p_originated :='N';
393: p_originated :='Y';
394: update_orig_rec(p_rfms_rec,p_rfmb_id);
395: ELSE
396: fnd_message.set_name('IGF','IGF_GR_VERF_STAT_W');
397: fnd_message.set_token('ORIG_ID',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','ORIGINATION_ID') ||
398: ' : ' || p_rfms_rec.origination_id );
399: fnd_file.put_line(fnd_file.log,fnd_message.get);
400: p_originated :='N';
401: END IF;
395: ELSE
396: fnd_message.set_name('IGF','IGF_GR_VERF_STAT_W');
397: fnd_message.set_token('ORIG_ID',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','ORIGINATION_ID') ||
398: ' : ' || p_rfms_rec.origination_id );
399: fnd_file.put_line(fnd_file.log,fnd_message.get);
400: p_originated :='N';
401: END IF;
402: END IF;
403:
406: WHEN igf_gr_gen.no_file_version THEN
407: RAISE;
408:
409: WHEN OTHERS THEN
410: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
411: fnd_message.set_token('NAME','IGF_GR_RFMS_ORIG.PREPARE_DATA');
412: igs_ge_msg_stack.add;
413: app_exception.raise_exception;
414:
407: RAISE;
408:
409: WHEN OTHERS THEN
410: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
411: fnd_message.set_token('NAME','IGF_GR_RFMS_ORIG.PREPARE_DATA');
412: igs_ge_msg_stack.add;
413: app_exception.raise_exception;
414:
415: END prepare_data;
444: l_msg_str_1 := RPAD(p_batch_id,50) ||
445: RPAD(p_origination_id,50);
446:
447: fnd_file.put_line(fnd_file.log,' ');
448: fnd_message.set_name('IGF','IGF_GR_NO_RFMS_ORIG');
449: fnd_file.put_line(fnd_file.log,fnd_message.get);
450: fnd_file.put_line(fnd_file.log,' ');
451: fnd_file.put_line(fnd_file.log,l_msg_str_0);
452: fnd_file.put_line(fnd_file.log,RPAD('-',100,'-'));
445: RPAD(p_origination_id,50);
446:
447: fnd_file.put_line(fnd_file.log,' ');
448: fnd_message.set_name('IGF','IGF_GR_NO_RFMS_ORIG');
449: fnd_file.put_line(fnd_file.log,fnd_message.get);
450: fnd_file.put_line(fnd_file.log,' ');
451: fnd_file.put_line(fnd_file.log,l_msg_str_0);
452: fnd_file.put_line(fnd_file.log,RPAD('-',100,'-'));
453: fnd_file.put_line(fnd_file.log,l_msg_str_1);
454:
455:
456: EXCEPTION
457: WHEN others THEN
458: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
459: fnd_message.set_token('NAME','IGF_GR_RFMS_ORIG.LOG_MESSAGE');
460: igs_ge_msg_stack.add;
461: app_exception.raise_exception;
462:
455:
456: EXCEPTION
457: WHEN others THEN
458: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
459: fnd_message.set_token('NAME','IGF_GR_RFMS_ORIG.LOG_MESSAGE');
460: igs_ge_msg_stack.add;
461: app_exception.raise_exception;
462:
463: END log_message;
490: l_msg_str_0 := RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','ORIGINATION_ID'),50);
491: l_msg_str_1 := RPAD(p_origination_id,50);
492:
493: IF l_msg_prn_1 = TRUE THEN
494: fnd_message.set_name('IGF','IGF_GR_RECORDS_UPDATED');
495: fnd_file.put_line(fnd_file.output,fnd_message.get);
496: fnd_file.put_line(fnd_file.output,'');
497: fnd_file.put_line(fnd_file.output,l_msg_str_0);
498: fnd_file.put_line(fnd_file.output,RPAD('-',50,'-'));
491: l_msg_str_1 := RPAD(p_origination_id,50);
492:
493: IF l_msg_prn_1 = TRUE THEN
494: fnd_message.set_name('IGF','IGF_GR_RECORDS_UPDATED');
495: fnd_file.put_line(fnd_file.output,fnd_message.get);
496: fnd_file.put_line(fnd_file.output,'');
497: fnd_file.put_line(fnd_file.output,l_msg_str_0);
498: fnd_file.put_line(fnd_file.output,RPAD('-',50,'-'));
499: l_msg_prn_1 := FALSE;
502:
503:
504: EXCEPTION
505: WHEN others THEN
506: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
507: fnd_message.set_token('NAME','IGF_GR_RFMS_ORIG.LOG_MESSAGE');
508: igs_ge_msg_stack.add;
509: app_exception.raise_exception;
510:
503:
504: EXCEPTION
505: WHEN others THEN
506: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
507: fnd_message.set_token('NAME','IGF_GR_RFMS_ORIG.LOG_MESSAGE');
508: igs_ge_msg_stack.add;
509: app_exception.raise_exception;
510:
511:
544: BEGIN
545:
546: fnd_file.put_line(fnd_file.log,'');
547: IF NVL(TO_NUMBER(RTRIM(LTRIM(p_orig_reject_code))),0) > 0 THEN
548: fnd_message.set_name('IGF','IGF_GR_REC_CONTAIN_EDIT_CODES');
549: fnd_file.put_line(fnd_file.log,fnd_message.get);
550:
551: l_msg_str_0 := RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','ORIGINATION_ID'),50);
552: l_msg_str_1 := RPAD(p_origination_id,50);
545:
546: fnd_file.put_line(fnd_file.log,'');
547: IF NVL(TO_NUMBER(RTRIM(LTRIM(p_orig_reject_code))),0) > 0 THEN
548: fnd_message.set_name('IGF','IGF_GR_REC_CONTAIN_EDIT_CODES');
549: fnd_file.put_line(fnd_file.log,fnd_message.get);
550:
551: l_msg_str_0 := RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','ORIGINATION_ID'),50);
552: l_msg_str_1 := RPAD(p_origination_id,50);
553: l_msg_str_2 := RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','ORIG_REJECT_CODE'),50);
572:
573:
574: EXCEPTION
575: WHEN others THEN
576: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
577: fnd_message.set_token('NAME','IGF_GR_RFMS_ORIG.LOG_MESSAGE');
578: igs_ge_msg_stack.add;
579: app_exception.raise_exception;
580:
573:
574: EXCEPTION
575: WHEN others THEN
576: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
577: fnd_message.set_token('NAME','IGF_GR_RFMS_ORIG.LOG_MESSAGE');
578: igs_ge_msg_stack.add;
579: app_exception.raise_exception;
580:
581:
735: -- If the table does not contain any data for this base_id or award_year
736: -- message is logged into log file and relevent details are also shown
737: IF cur_rfms%NOTFOUND THEN
738: CLOSE cur_rfms;
739: fnd_message.set_name('IGF','IGF_GR_NO_RFMS_ORIG');
740: igs_ge_msg_stack.add;
741:
742: RAISE no_data_in_table;
743: END IF;
761: fnd_file.put_line(fnd_file.log,RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','BATCH_ID'),10)||' :'
762: ||' '|| l_batch_id);
763:
764: fnd_file.new_line(fnd_file.log,1);
765: fnd_message.set_name('IGF','IGF_GR_ORIG_RECORDS');
766: fnd_file.put_line(fnd_file.log,fnd_message.get);
767:
768: l_amount_total := 0;
769: l_num_of_rec := 0;
762: ||' '|| l_batch_id);
763:
764: fnd_file.new_line(fnd_file.log,1);
765: fnd_message.set_name('IGF','IGF_GR_ORIG_RECORDS');
766: fnd_file.put_line(fnd_file.log,fnd_message.get);
767:
768: l_amount_total := 0;
769: l_num_of_rec := 0;
770:
803: END IF;
804:
805: IF (lv_persid_flag) THEN -- Is person-id in person-group or not ?
806: fnd_file.new_line(fnd_file.log,1);
807: fnd_message.set_name('IGF','IGF_GR_PROCESS_STUD');
808: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(rfms_rec.base_id));
809: fnd_message.set_token('ORIG_ID',rfms_rec.origination_id);
810: fnd_file.put_line(fnd_file.log,fnd_message.get);
811:
804:
805: IF (lv_persid_flag) THEN -- Is person-id in person-group or not ?
806: fnd_file.new_line(fnd_file.log,1);
807: fnd_message.set_name('IGF','IGF_GR_PROCESS_STUD');
808: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(rfms_rec.base_id));
809: fnd_message.set_token('ORIG_ID',rfms_rec.origination_id);
810: fnd_file.put_line(fnd_file.log,fnd_message.get);
811:
812: -- check if attending pell is a child of reporting pell id.
805: IF (lv_persid_flag) THEN -- Is person-id in person-group or not ?
806: fnd_file.new_line(fnd_file.log,1);
807: fnd_message.set_name('IGF','IGF_GR_PROCESS_STUD');
808: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(rfms_rec.base_id));
809: fnd_message.set_token('ORIG_ID',rfms_rec.origination_id);
810: fnd_file.put_line(fnd_file.log,fnd_message.get);
811:
812: -- check if attending pell is a child of reporting pell id.
813: l_attending_pell_exists := NULL;
806: fnd_file.new_line(fnd_file.log,1);
807: fnd_message.set_name('IGF','IGF_GR_PROCESS_STUD');
808: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(rfms_rec.base_id));
809: fnd_message.set_token('ORIG_ID',rfms_rec.origination_id);
810: fnd_file.put_line(fnd_file.log,fnd_message.get);
811:
812: -- check if attending pell is a child of reporting pell id.
813: l_attending_pell_exists := NULL;
814: OPEN cur_attending_pell(rfms_rec.ci_cal_type,
819: IF (cur_attending_pell%NOTFOUND) THEN -- Attending pell child records exists?
820:
821: -- No attending pell child record exists. Skip this record
822: CLOSE cur_attending_pell;
823: FND_MESSAGE.SET_NAME('IGF','IGF_GR_ATTEND_PELL_NOT_SETUP');
824: FND_MESSAGE.SET_TOKEN('ATT_PELL','');
825: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
826: ELSE
827: -- attending pell child record exists. Proceed further...
820:
821: -- No attending pell child record exists. Skip this record
822: CLOSE cur_attending_pell;
823: FND_MESSAGE.SET_NAME('IGF','IGF_GR_ATTEND_PELL_NOT_SETUP');
824: FND_MESSAGE.SET_TOKEN('ATT_PELL','');
825: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
826: ELSE
827: -- attending pell child record exists. Proceed further...
828: CLOSE cur_attending_pell;
821: -- No attending pell child record exists. Skip this record
822: CLOSE cur_attending_pell;
823: FND_MESSAGE.SET_NAME('IGF','IGF_GR_ATTEND_PELL_NOT_SETUP');
824: FND_MESSAGE.SET_TOKEN('ATT_PELL','');
825: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
826: ELSE
827: -- attending pell child record exists. Proceed further...
828: CLOSE cur_attending_pell;
829:
883: END IF;
884: CLOSE cur_pymnt_isir;
885:
886: IF NOT l_isir_present THEN
887: fnd_message.set_name('IGF','IGF_AP_NO_PAYMENT_ISIR');
888: fnd_file.put_line(fnd_file.log,fnd_message.get);
889:
890: -- If the Transaction Number being reported does not match do not Originate
891: ELSIF rfms_rec.transaction_num <> NVL(cur_pymnt_isir_rec.transaction_num,-1) THEN
884: CLOSE cur_pymnt_isir;
885:
886: IF NOT l_isir_present THEN
887: fnd_message.set_name('IGF','IGF_AP_NO_PAYMENT_ISIR');
888: fnd_file.put_line(fnd_file.log,fnd_message.get);
889:
890: -- If the Transaction Number being reported does not match do not Originate
891: ELSIF rfms_rec.transaction_num <> NVL(cur_pymnt_isir_rec.transaction_num,-1) THEN
892: fnd_message.set_name('IGF','IGF_GR_PYMNT_ISIR_MISMATCH');
888: fnd_file.put_line(fnd_file.log,fnd_message.get);
889:
890: -- If the Transaction Number being reported does not match do not Originate
891: ELSIF rfms_rec.transaction_num <> NVL(cur_pymnt_isir_rec.transaction_num,-1) THEN
892: fnd_message.set_name('IGF','IGF_GR_PYMNT_ISIR_MISMATCH');
893: fnd_file.put_line(fnd_file.log,fnd_message.get);
894:
895: ELSE
896:
889:
890: -- If the Transaction Number being reported does not match do not Originate
891: ELSIF rfms_rec.transaction_num <> NVL(cur_pymnt_isir_rec.transaction_num,-1) THEN
892: fnd_message.set_name('IGF','IGF_GR_PYMNT_ISIR_MISMATCH');
893: fnd_file.put_line(fnd_file.log,fnd_message.get);
894:
895: ELSE
896:
897: -- Get disbursements amounts total
901: CLOSE cur_disb_amt_tot;
902:
903: -- If origination record's amount is less than sum of disbursement amounts, then do not originate.
904: IF (rfms_rec.pell_amount < rec_disb_amt_tot.disb_amt_tot) THEN
905: fnd_message.set_name('IGF','IGF_GR_PELL_DIFF_AMTS');
906: FND_MESSAGE.SET_TOKEN('DISB_AMT', TO_CHAR(rec_disb_amt_tot.disb_amt_tot));
907: FND_MESSAGE.SET_TOKEN('PELL_TOT', TO_CHAR(rfms_rec.pell_amount));
908:
909: fnd_file.put_line(fnd_file.log,fnd_message.get);
902:
903: -- If origination record's amount is less than sum of disbursement amounts, then do not originate.
904: IF (rfms_rec.pell_amount < rec_disb_amt_tot.disb_amt_tot) THEN
905: fnd_message.set_name('IGF','IGF_GR_PELL_DIFF_AMTS');
906: FND_MESSAGE.SET_TOKEN('DISB_AMT', TO_CHAR(rec_disb_amt_tot.disb_amt_tot));
907: FND_MESSAGE.SET_TOKEN('PELL_TOT', TO_CHAR(rfms_rec.pell_amount));
908:
909: fnd_file.put_line(fnd_file.log,fnd_message.get);
910: ELSE
903: -- If origination record's amount is less than sum of disbursement amounts, then do not originate.
904: IF (rfms_rec.pell_amount < rec_disb_amt_tot.disb_amt_tot) THEN
905: fnd_message.set_name('IGF','IGF_GR_PELL_DIFF_AMTS');
906: FND_MESSAGE.SET_TOKEN('DISB_AMT', TO_CHAR(rec_disb_amt_tot.disb_amt_tot));
907: FND_MESSAGE.SET_TOKEN('PELL_TOT', TO_CHAR(rfms_rec.pell_amount));
908:
909: fnd_file.put_line(fnd_file.log,fnd_message.get);
910: ELSE
911:
905: fnd_message.set_name('IGF','IGF_GR_PELL_DIFF_AMTS');
906: FND_MESSAGE.SET_TOKEN('DISB_AMT', TO_CHAR(rec_disb_amt_tot.disb_amt_tot));
907: FND_MESSAGE.SET_TOKEN('PELL_TOT', TO_CHAR(rfms_rec.pell_amount));
908:
909: fnd_file.put_line(fnd_file.log,fnd_message.get);
910: ELSE
911:
912: l_awd_disb_tot := NULL;
913: OPEN c_awd_disb_tot(rfms_rec.award_id);
915: CLOSE c_awd_disb_tot;
916:
917: IF NVL(l_awd_disb_tot.pell_award,-1) <> rec_disb_amt_tot.disb_amt_tot AND p_orig_run_mode = 'ACTUAL_PELL' THEN
918: --put messages here
919: fnd_message.set_name('IGF','IGF_GR_PELL_AWD_DIFF_AMT');
920: fnd_message.set_token('RFMS_DISB_TOT',TO_CHAR(rec_disb_amt_tot.disb_amt_tot));
921: fnd_message.set_token('AWD_DISB_TOT',TO_CHAR(NVL(l_awd_disb_tot.pell_award,0)));
922: fnd_file.put_line(fnd_file.log,fnd_message.get);
923:
916:
917: IF NVL(l_awd_disb_tot.pell_award,-1) <> rec_disb_amt_tot.disb_amt_tot AND p_orig_run_mode = 'ACTUAL_PELL' THEN
918: --put messages here
919: fnd_message.set_name('IGF','IGF_GR_PELL_AWD_DIFF_AMT');
920: fnd_message.set_token('RFMS_DISB_TOT',TO_CHAR(rec_disb_amt_tot.disb_amt_tot));
921: fnd_message.set_token('AWD_DISB_TOT',TO_CHAR(NVL(l_awd_disb_tot.pell_award,0)));
922: fnd_file.put_line(fnd_file.log,fnd_message.get);
923:
924: ELSE
917: IF NVL(l_awd_disb_tot.pell_award,-1) <> rec_disb_amt_tot.disb_amt_tot AND p_orig_run_mode = 'ACTUAL_PELL' THEN
918: --put messages here
919: fnd_message.set_name('IGF','IGF_GR_PELL_AWD_DIFF_AMT');
920: fnd_message.set_token('RFMS_DISB_TOT',TO_CHAR(rec_disb_amt_tot.disb_amt_tot));
921: fnd_message.set_token('AWD_DISB_TOT',TO_CHAR(NVL(l_awd_disb_tot.pell_award,0)));
922: fnd_file.put_line(fnd_file.log,fnd_message.get);
923:
924: ELSE
925:
918: --put messages here
919: fnd_message.set_name('IGF','IGF_GR_PELL_AWD_DIFF_AMT');
920: fnd_message.set_token('RFMS_DISB_TOT',TO_CHAR(rec_disb_amt_tot.disb_amt_tot));
921: fnd_message.set_token('AWD_DISB_TOT',TO_CHAR(NVL(l_awd_disb_tot.pell_award,0)));
922: fnd_file.put_line(fnd_file.log,fnd_message.get);
923:
924: ELSE
925:
926: -- Calculate Pell amount and Full time Pell amount
936: IF (l_return_status = 'E') THEN
937: fnd_file.put_line(fnd_file.log,l_return_mesg_text);
938: ELSE
939: IF l_pell_amt > l_ft_pell_amt THEN
940: fnd_message.set_name('IGF','IGF_GR_LIMIT_EXC');
941: fnd_message.set_token('PEL_AMT',l_ft_pell_amt);
942: fnd_message.set_token('AWD_AMT',rfms_rec.pell_amount);
943: fnd_file.put_line(fnd_file.log,fnd_message.get);
944: fnd_message.set_name('IGF','IGF_SL_SKIPPING');
937: fnd_file.put_line(fnd_file.log,l_return_mesg_text);
938: ELSE
939: IF l_pell_amt > l_ft_pell_amt THEN
940: fnd_message.set_name('IGF','IGF_GR_LIMIT_EXC');
941: fnd_message.set_token('PEL_AMT',l_ft_pell_amt);
942: fnd_message.set_token('AWD_AMT',rfms_rec.pell_amount);
943: fnd_file.put_line(fnd_file.log,fnd_message.get);
944: fnd_message.set_name('IGF','IGF_SL_SKIPPING');
945: fnd_file.put_line(fnd_file.log,fnd_message.get);
938: ELSE
939: IF l_pell_amt > l_ft_pell_amt THEN
940: fnd_message.set_name('IGF','IGF_GR_LIMIT_EXC');
941: fnd_message.set_token('PEL_AMT',l_ft_pell_amt);
942: fnd_message.set_token('AWD_AMT',rfms_rec.pell_amount);
943: fnd_file.put_line(fnd_file.log,fnd_message.get);
944: fnd_message.set_name('IGF','IGF_SL_SKIPPING');
945: fnd_file.put_line(fnd_file.log,fnd_message.get);
946: ELSE
939: IF l_pell_amt > l_ft_pell_amt THEN
940: fnd_message.set_name('IGF','IGF_GR_LIMIT_EXC');
941: fnd_message.set_token('PEL_AMT',l_ft_pell_amt);
942: fnd_message.set_token('AWD_AMT',rfms_rec.pell_amount);
943: fnd_file.put_line(fnd_file.log,fnd_message.get);
944: fnd_message.set_name('IGF','IGF_SL_SKIPPING');
945: fnd_file.put_line(fnd_file.log,fnd_message.get);
946: ELSE
947: rfms_rec.pell_amount := l_pell_amt;
940: fnd_message.set_name('IGF','IGF_GR_LIMIT_EXC');
941: fnd_message.set_token('PEL_AMT',l_ft_pell_amt);
942: fnd_message.set_token('AWD_AMT',rfms_rec.pell_amount);
943: fnd_file.put_line(fnd_file.log,fnd_message.get);
944: fnd_message.set_name('IGF','IGF_SL_SKIPPING');
945: fnd_file.put_line(fnd_file.log,fnd_message.get);
946: ELSE
947: rfms_rec.pell_amount := l_pell_amt;
948: rfms_rec.ft_pell_amount := l_ft_pell_amt;
941: fnd_message.set_token('PEL_AMT',l_ft_pell_amt);
942: fnd_message.set_token('AWD_AMT',rfms_rec.pell_amount);
943: fnd_file.put_line(fnd_file.log,fnd_message.get);
944: fnd_message.set_name('IGF','IGF_SL_SKIPPING');
945: fnd_file.put_line(fnd_file.log,fnd_message.get);
946: ELSE
947: rfms_rec.pell_amount := l_pell_amt;
948: rfms_rec.ft_pell_amount := l_ft_pell_amt;
949: IF (p_orig_run_mode = 'MAX_PELL') THEN
985: l_num_of_rec,
986: l_amount_total,
987: l_batch_id);
988: fnd_file.new_line(fnd_file.log,1);
989: fnd_message.set_name('IGF','IGF_GR_ORIG_REC_NUM');
990: fnd_message.set_token('TOT_NUM',TO_CHAR(l_num_of_rec));
991: fnd_file.put_line(fnd_file.log,fnd_message.get);
992: -- p_num_of_rec || ' records written into data file
993: fnd_file.new_line(fnd_file.log,1);
986: l_amount_total,
987: l_batch_id);
988: fnd_file.new_line(fnd_file.log,1);
989: fnd_message.set_name('IGF','IGF_GR_ORIG_REC_NUM');
990: fnd_message.set_token('TOT_NUM',TO_CHAR(l_num_of_rec));
991: fnd_file.put_line(fnd_file.log,fnd_message.get);
992: -- p_num_of_rec || ' records written into data file
993: fnd_file.new_line(fnd_file.log,1);
994:
987: l_batch_id);
988: fnd_file.new_line(fnd_file.log,1);
989: fnd_message.set_name('IGF','IGF_GR_ORIG_REC_NUM');
990: fnd_message.set_token('TOT_NUM',TO_CHAR(l_num_of_rec));
991: fnd_file.put_line(fnd_file.log,fnd_message.get);
992: -- p_num_of_rec || ' records written into data file
993: fnd_file.new_line(fnd_file.log,1);
994:
995: IF l_num_of_rec > 0 THEN
1007: RAISE;
1008: WHEN persid_grp_sql_stmt_error THEN
1009: RAISE;
1010: WHEN OTHERS THEN
1011: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1012: fnd_message.set_token('NAME','IGF_GR_RFMS_ORIG.RFMS_ORIG');
1013: igs_ge_msg_stack.add;
1014: app_exception.raise_exception;
1015:
1008: WHEN persid_grp_sql_stmt_error THEN
1009: RAISE;
1010: WHEN OTHERS THEN
1011: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1012: fnd_message.set_token('NAME','IGF_GR_RFMS_ORIG.RFMS_ORIG');
1013: igs_ge_msg_stack.add;
1014: app_exception.raise_exception;
1015:
1016: END rfms_orig;
1080: --
1081: igf_gr_gen.match_file_version (g_ver_num, l_batch_id, lv_message);
1082:
1083: IF lv_message = 'IGF_GR_VRSN_MISMTCH' THEN
1084: fnd_message.set_name('IGF','IGF_GR_VRSN_MISMTCH');
1085: fnd_message.set_token('CYCL',SUBSTR(l_batch_id,3,4));
1086: fnd_message.set_token('BATCH',l_batch_id);
1087: fnd_message.set_token('VRSN',g_ver_num);
1088: fnd_message.set_token('AWD_YR',g_alt_code);
1081: igf_gr_gen.match_file_version (g_ver_num, l_batch_id, lv_message);
1082:
1083: IF lv_message = 'IGF_GR_VRSN_MISMTCH' THEN
1084: fnd_message.set_name('IGF','IGF_GR_VRSN_MISMTCH');
1085: fnd_message.set_token('CYCL',SUBSTR(l_batch_id,3,4));
1086: fnd_message.set_token('BATCH',l_batch_id);
1087: fnd_message.set_token('VRSN',g_ver_num);
1088: fnd_message.set_token('AWD_YR',g_alt_code);
1089: fnd_file.put_line(fnd_file.log,fnd_message.get);
1082:
1083: IF lv_message = 'IGF_GR_VRSN_MISMTCH' THEN
1084: fnd_message.set_name('IGF','IGF_GR_VRSN_MISMTCH');
1085: fnd_message.set_token('CYCL',SUBSTR(l_batch_id,3,4));
1086: fnd_message.set_token('BATCH',l_batch_id);
1087: fnd_message.set_token('VRSN',g_ver_num);
1088: fnd_message.set_token('AWD_YR',g_alt_code);
1089: fnd_file.put_line(fnd_file.log,fnd_message.get);
1090: RAISE invalid_version;
1083: IF lv_message = 'IGF_GR_VRSN_MISMTCH' THEN
1084: fnd_message.set_name('IGF','IGF_GR_VRSN_MISMTCH');
1085: fnd_message.set_token('CYCL',SUBSTR(l_batch_id,3,4));
1086: fnd_message.set_token('BATCH',l_batch_id);
1087: fnd_message.set_token('VRSN',g_ver_num);
1088: fnd_message.set_token('AWD_YR',g_alt_code);
1089: fnd_file.put_line(fnd_file.log,fnd_message.get);
1090: RAISE invalid_version;
1091: END IF;
1084: fnd_message.set_name('IGF','IGF_GR_VRSN_MISMTCH');
1085: fnd_message.set_token('CYCL',SUBSTR(l_batch_id,3,4));
1086: fnd_message.set_token('BATCH',l_batch_id);
1087: fnd_message.set_token('VRSN',g_ver_num);
1088: fnd_message.set_token('AWD_YR',g_alt_code);
1089: fnd_file.put_line(fnd_file.log,fnd_message.get);
1090: RAISE invalid_version;
1091: END IF;
1092:
1085: fnd_message.set_token('CYCL',SUBSTR(l_batch_id,3,4));
1086: fnd_message.set_token('BATCH',l_batch_id);
1087: fnd_message.set_token('VRSN',g_ver_num);
1088: fnd_message.set_token('AWD_YR',g_alt_code);
1089: fnd_file.put_line(fnd_file.log,fnd_message.get);
1090: RAISE invalid_version;
1091: END IF;
1092:
1093: IF l_number_rec > 0 THEN
1147: END IF;
1148: ----Bug #2938258
1149: IF l_rfmb_id<> get_pell_rec.rfmb_id THEN
1150:
1151: fnd_message.set_name('IGF','IGF_GR_ORIG_BATCH_MISMATCH');
1152: fnd_message.set_token('BATCH_ID',l_batch_id);
1153: fnd_message.set_token('ORIG_ID',LTRIM(RTRIM(SUBSTR(rec_data.record_data,1,23))));
1154: fnd_file.put_line(fnd_file.log,fnd_message.get);
1155: fnd_file.new_line(fnd_file.log,1);
1148: ----Bug #2938258
1149: IF l_rfmb_id<> get_pell_rec.rfmb_id THEN
1150:
1151: fnd_message.set_name('IGF','IGF_GR_ORIG_BATCH_MISMATCH');
1152: fnd_message.set_token('BATCH_ID',l_batch_id);
1153: fnd_message.set_token('ORIG_ID',LTRIM(RTRIM(SUBSTR(rec_data.record_data,1,23))));
1154: fnd_file.put_line(fnd_file.log,fnd_message.get);
1155: fnd_file.new_line(fnd_file.log,1);
1156:
1149: IF l_rfmb_id<> get_pell_rec.rfmb_id THEN
1150:
1151: fnd_message.set_name('IGF','IGF_GR_ORIG_BATCH_MISMATCH');
1152: fnd_message.set_token('BATCH_ID',l_batch_id);
1153: fnd_message.set_token('ORIG_ID',LTRIM(RTRIM(SUBSTR(rec_data.record_data,1,23))));
1154: fnd_file.put_line(fnd_file.log,fnd_message.get);
1155: fnd_file.new_line(fnd_file.log,1);
1156:
1157: RAISE igf_gr_gen.skip_this_record;
1150:
1151: fnd_message.set_name('IGF','IGF_GR_ORIG_BATCH_MISMATCH');
1152: fnd_message.set_token('BATCH_ID',l_batch_id);
1153: fnd_message.set_token('ORIG_ID',LTRIM(RTRIM(SUBSTR(rec_data.record_data,1,23))));
1154: fnd_file.put_line(fnd_file.log,fnd_message.get);
1155: fnd_file.new_line(fnd_file.log,1);
1156:
1157: RAISE igf_gr_gen.skip_this_record;
1158: END IF;
1158: END IF;
1159: --Record should be in "Sent" status for acknowledgment processing"
1160: IF get_pell_rec.orig_action_code <> 'S' THEN
1161:
1162: fnd_message.set_name('IGF','IGF_GR_ORIG_NOT_IN_SENT');
1163: fnd_message.set_token('ORIG_ID',LTRIM(RTRIM(SUBSTR(rec_data.record_data,1,23))));
1164: SYSTEM_STATUS := igf_aw_gen.lookup_desc('IGF_GR_ORIG_STATUS',get_pell_rec.orig_action_code);
1165: fnd_message.set_token('SYS_STATUS',SYSTEM_STATUS);
1166: fnd_file.put_line(fnd_file.log,fnd_message.get);
1159: --Record should be in "Sent" status for acknowledgment processing"
1160: IF get_pell_rec.orig_action_code <> 'S' THEN
1161:
1162: fnd_message.set_name('IGF','IGF_GR_ORIG_NOT_IN_SENT');
1163: fnd_message.set_token('ORIG_ID',LTRIM(RTRIM(SUBSTR(rec_data.record_data,1,23))));
1164: SYSTEM_STATUS := igf_aw_gen.lookup_desc('IGF_GR_ORIG_STATUS',get_pell_rec.orig_action_code);
1165: fnd_message.set_token('SYS_STATUS',SYSTEM_STATUS);
1166: fnd_file.put_line(fnd_file.log,fnd_message.get);
1167: fnd_file.new_line(fnd_file.log,1);
1161:
1162: fnd_message.set_name('IGF','IGF_GR_ORIG_NOT_IN_SENT');
1163: fnd_message.set_token('ORIG_ID',LTRIM(RTRIM(SUBSTR(rec_data.record_data,1,23))));
1164: SYSTEM_STATUS := igf_aw_gen.lookup_desc('IGF_GR_ORIG_STATUS',get_pell_rec.orig_action_code);
1165: fnd_message.set_token('SYS_STATUS',SYSTEM_STATUS);
1166: fnd_file.put_line(fnd_file.log,fnd_message.get);
1167: fnd_file.new_line(fnd_file.log,1);
1168: RAISE igf_gr_gen.skip_this_record;
1169: END IF;
1162: fnd_message.set_name('IGF','IGF_GR_ORIG_NOT_IN_SENT');
1163: fnd_message.set_token('ORIG_ID',LTRIM(RTRIM(SUBSTR(rec_data.record_data,1,23))));
1164: SYSTEM_STATUS := igf_aw_gen.lookup_desc('IGF_GR_ORIG_STATUS',get_pell_rec.orig_action_code);
1165: fnd_message.set_token('SYS_STATUS',SYSTEM_STATUS);
1166: fnd_file.put_line(fnd_file.log,fnd_message.get);
1167: fnd_file.new_line(fnd_file.log,1);
1168: RAISE igf_gr_gen.skip_this_record;
1169: END IF;
1170:
1229: EXCEPTION
1230: -- The exception caught here will be the data format exceptions
1231: WHEN OTHERS THEN
1232: lf_count := lf_count + 1;
1233: fnd_message.set_name('IGF','IGF_GR_INVALID_RECORD');
1234: fnd_message.set_token('ORIG_ID',l_rfms.origination_id);
1235: fnd_file.put_line(fnd_file.log,fnd_message.get);
1236:
1237: fnd_message.set_name('IGF','IGF_SL_SKIPPING');
1230: -- The exception caught here will be the data format exceptions
1231: WHEN OTHERS THEN
1232: lf_count := lf_count + 1;
1233: fnd_message.set_name('IGF','IGF_GR_INVALID_RECORD');
1234: fnd_message.set_token('ORIG_ID',l_rfms.origination_id);
1235: fnd_file.put_line(fnd_file.log,fnd_message.get);
1236:
1237: fnd_message.set_name('IGF','IGF_SL_SKIPPING');
1238: fnd_file.put_line(fnd_file.log,fnd_message.get);
1231: WHEN OTHERS THEN
1232: lf_count := lf_count + 1;
1233: fnd_message.set_name('IGF','IGF_GR_INVALID_RECORD');
1234: fnd_message.set_token('ORIG_ID',l_rfms.origination_id);
1235: fnd_file.put_line(fnd_file.log,fnd_message.get);
1236:
1237: fnd_message.set_name('IGF','IGF_SL_SKIPPING');
1238: fnd_file.put_line(fnd_file.log,fnd_message.get);
1239: -- Cannot Process Record for Origination ORIG_ID as it contains corrupt data
1233: fnd_message.set_name('IGF','IGF_GR_INVALID_RECORD');
1234: fnd_message.set_token('ORIG_ID',l_rfms.origination_id);
1235: fnd_file.put_line(fnd_file.log,fnd_message.get);
1236:
1237: fnd_message.set_name('IGF','IGF_SL_SKIPPING');
1238: fnd_file.put_line(fnd_file.log,fnd_message.get);
1239: -- Cannot Process Record for Origination ORIG_ID as it contains corrupt data
1240: fnd_file.put_line(fnd_file.log, ' ' );
1241:
1234: fnd_message.set_token('ORIG_ID',l_rfms.origination_id);
1235: fnd_file.put_line(fnd_file.log,fnd_message.get);
1236:
1237: fnd_message.set_name('IGF','IGF_SL_SKIPPING');
1238: fnd_file.put_line(fnd_file.log,fnd_message.get);
1239: -- Cannot Process Record for Origination ORIG_ID as it contains corrupt data
1240: fnd_file.put_line(fnd_file.log, ' ' );
1241:
1242: RAISE igf_gr_gen.skip_this_record;
1249: l_rfms.orig_status_dt := TRUNC(SYSDATE);
1250:
1251: IF ln_pell_awd <> get_pell_rec.pell_amount THEN
1252: igf_gr_gen.insert_sys_holds(get_pell_rec.award_id,NULL,'PELL');
1253: fnd_message.set_name('IGF','IGF_GR_DIFF_PELL_AMT');
1254: fnd_message.set_token('ORIG_ID',l_rfms.origination_id);
1255: -- The Reported and Received Pell Award Amount for this Origination Record are different
1256: fnd_file.put_line(fnd_file.log,fnd_message.get);
1257:
1250:
1251: IF ln_pell_awd <> get_pell_rec.pell_amount THEN
1252: igf_gr_gen.insert_sys_holds(get_pell_rec.award_id,NULL,'PELL');
1253: fnd_message.set_name('IGF','IGF_GR_DIFF_PELL_AMT');
1254: fnd_message.set_token('ORIG_ID',l_rfms.origination_id);
1255: -- The Reported and Received Pell Award Amount for this Origination Record are different
1256: fnd_file.put_line(fnd_file.log,fnd_message.get);
1257:
1258: fnd_message.set_name('IGF','IGF_GR_REPORTED_AMT');
1252: igf_gr_gen.insert_sys_holds(get_pell_rec.award_id,NULL,'PELL');
1253: fnd_message.set_name('IGF','IGF_GR_DIFF_PELL_AMT');
1254: fnd_message.set_token('ORIG_ID',l_rfms.origination_id);
1255: -- The Reported and Received Pell Award Amount for this Origination Record are different
1256: fnd_file.put_line(fnd_file.log,fnd_message.get);
1257:
1258: fnd_message.set_name('IGF','IGF_GR_REPORTED_AMT');
1259: fnd_message.set_token('AMT', TO_CHAR(get_pell_rec.pell_amount));
1260: fnd_file.put_line(fnd_file.log,fnd_message.get);
1254: fnd_message.set_token('ORIG_ID',l_rfms.origination_id);
1255: -- The Reported and Received Pell Award Amount for this Origination Record are different
1256: fnd_file.put_line(fnd_file.log,fnd_message.get);
1257:
1258: fnd_message.set_name('IGF','IGF_GR_REPORTED_AMT');
1259: fnd_message.set_token('AMT', TO_CHAR(get_pell_rec.pell_amount));
1260: fnd_file.put_line(fnd_file.log,fnd_message.get);
1261:
1262: fnd_message.set_name('IGF','IGF_GR_RECEIVED_AMT');
1255: -- The Reported and Received Pell Award Amount for this Origination Record are different
1256: fnd_file.put_line(fnd_file.log,fnd_message.get);
1257:
1258: fnd_message.set_name('IGF','IGF_GR_REPORTED_AMT');
1259: fnd_message.set_token('AMT', TO_CHAR(get_pell_rec.pell_amount));
1260: fnd_file.put_line(fnd_file.log,fnd_message.get);
1261:
1262: fnd_message.set_name('IGF','IGF_GR_RECEIVED_AMT');
1263: fnd_message.set_token('AMT', TO_CHAR(ln_pell_awd));
1256: fnd_file.put_line(fnd_file.log,fnd_message.get);
1257:
1258: fnd_message.set_name('IGF','IGF_GR_REPORTED_AMT');
1259: fnd_message.set_token('AMT', TO_CHAR(get_pell_rec.pell_amount));
1260: fnd_file.put_line(fnd_file.log,fnd_message.get);
1261:
1262: fnd_message.set_name('IGF','IGF_GR_RECEIVED_AMT');
1263: fnd_message.set_token('AMT', TO_CHAR(ln_pell_awd));
1264: fnd_file.put_line(fnd_file.log,fnd_message.get);
1258: fnd_message.set_name('IGF','IGF_GR_REPORTED_AMT');
1259: fnd_message.set_token('AMT', TO_CHAR(get_pell_rec.pell_amount));
1260: fnd_file.put_line(fnd_file.log,fnd_message.get);
1261:
1262: fnd_message.set_name('IGF','IGF_GR_RECEIVED_AMT');
1263: fnd_message.set_token('AMT', TO_CHAR(ln_pell_awd));
1264: fnd_file.put_line(fnd_file.log,fnd_message.get);
1265: fnd_file.new_line(fnd_file.log,1);
1266:
1259: fnd_message.set_token('AMT', TO_CHAR(get_pell_rec.pell_amount));
1260: fnd_file.put_line(fnd_file.log,fnd_message.get);
1261:
1262: fnd_message.set_name('IGF','IGF_GR_RECEIVED_AMT');
1263: fnd_message.set_token('AMT', TO_CHAR(ln_pell_awd));
1264: fnd_file.put_line(fnd_file.log,fnd_message.get);
1265: fnd_file.new_line(fnd_file.log,1);
1266:
1267: --
1260: fnd_file.put_line(fnd_file.log,fnd_message.get);
1261:
1262: fnd_message.set_name('IGF','IGF_GR_RECEIVED_AMT');
1263: fnd_message.set_token('AMT', TO_CHAR(ln_pell_awd));
1264: fnd_file.put_line(fnd_file.log,fnd_message.get);
1265: fnd_file.new_line(fnd_file.log,1);
1266:
1267: --
1268: -- print both amounts fnd_message.set_name('IGF','IGF_
1264: fnd_file.put_line(fnd_file.log,fnd_message.get);
1265: fnd_file.new_line(fnd_file.log,1);
1266:
1267: --
1268: -- print both amounts fnd_message.set_name('IGF','IGF_
1269: --
1270:
1271: END IF;
1272: lp_count := lp_count + 1;
1348:
1349: CLOSE c_rfms_data;
1350:
1351: IF l_actual_rec <> l_number_rec THEN
1352: fnd_message.set_name('IGF','IGF_GE_RECORD_NUM_NOT_MATCH');
1353: igs_ge_msg_stack.add;
1354: RAISE igf_gr_gen.file_not_loaded;
1355: END IF;
1356: END; -- Inner Begin
1355: END IF;
1356: END; -- Inner Begin
1357:
1358: fnd_file.new_line(fnd_file.log,2);
1359: fnd_message.set_name('IGF','IGF_GR_FILE_REC_CNT');
1360: fnd_message.set_token('CNT',l_number_rec);
1361: fnd_file.put_line(fnd_file.log,fnd_message.get);
1362:
1363: fnd_message.set_name('IGF','IGF_GR_FILE_REC_PAS');
1356: END; -- Inner Begin
1357:
1358: fnd_file.new_line(fnd_file.log,2);
1359: fnd_message.set_name('IGF','IGF_GR_FILE_REC_CNT');
1360: fnd_message.set_token('CNT',l_number_rec);
1361: fnd_file.put_line(fnd_file.log,fnd_message.get);
1362:
1363: fnd_message.set_name('IGF','IGF_GR_FILE_REC_PAS');
1364: fnd_message.set_token('CNT',lp_count);
1357:
1358: fnd_file.new_line(fnd_file.log,2);
1359: fnd_message.set_name('IGF','IGF_GR_FILE_REC_CNT');
1360: fnd_message.set_token('CNT',l_number_rec);
1361: fnd_file.put_line(fnd_file.log,fnd_message.get);
1362:
1363: fnd_message.set_name('IGF','IGF_GR_FILE_REC_PAS');
1364: fnd_message.set_token('CNT',lp_count);
1365: fnd_file.put_line(fnd_file.log,fnd_message.get);
1359: fnd_message.set_name('IGF','IGF_GR_FILE_REC_CNT');
1360: fnd_message.set_token('CNT',l_number_rec);
1361: fnd_file.put_line(fnd_file.log,fnd_message.get);
1362:
1363: fnd_message.set_name('IGF','IGF_GR_FILE_REC_PAS');
1364: fnd_message.set_token('CNT',lp_count);
1365: fnd_file.put_line(fnd_file.log,fnd_message.get);
1366:
1367: fnd_message.set_name('IGF','IGF_GR_FILE_REC_FAL');
1360: fnd_message.set_token('CNT',l_number_rec);
1361: fnd_file.put_line(fnd_file.log,fnd_message.get);
1362:
1363: fnd_message.set_name('IGF','IGF_GR_FILE_REC_PAS');
1364: fnd_message.set_token('CNT',lp_count);
1365: fnd_file.put_line(fnd_file.log,fnd_message.get);
1366:
1367: fnd_message.set_name('IGF','IGF_GR_FILE_REC_FAL');
1368: fnd_message.set_token('CNT',lf_count);
1361: fnd_file.put_line(fnd_file.log,fnd_message.get);
1362:
1363: fnd_message.set_name('IGF','IGF_GR_FILE_REC_PAS');
1364: fnd_message.set_token('CNT',lp_count);
1365: fnd_file.put_line(fnd_file.log,fnd_message.get);
1366:
1367: fnd_message.set_name('IGF','IGF_GR_FILE_REC_FAL');
1368: fnd_message.set_token('CNT',lf_count);
1369: fnd_file.put_line(fnd_file.log,fnd_message.get);
1363: fnd_message.set_name('IGF','IGF_GR_FILE_REC_PAS');
1364: fnd_message.set_token('CNT',lp_count);
1365: fnd_file.put_line(fnd_file.log,fnd_message.get);
1366:
1367: fnd_message.set_name('IGF','IGF_GR_FILE_REC_FAL');
1368: fnd_message.set_token('CNT',lf_count);
1369: fnd_file.put_line(fnd_file.log,fnd_message.get);
1370:
1371: END IF; -- if l_num_rec
1364: fnd_message.set_token('CNT',lp_count);
1365: fnd_file.put_line(fnd_file.log,fnd_message.get);
1366:
1367: fnd_message.set_name('IGF','IGF_GR_FILE_REC_FAL');
1368: fnd_message.set_token('CNT',lf_count);
1369: fnd_file.put_line(fnd_file.log,fnd_message.get);
1370:
1371: END IF; -- if l_num_rec
1372:
1365: fnd_file.put_line(fnd_file.log,fnd_message.get);
1366:
1367: fnd_message.set_name('IGF','IGF_GR_FILE_REC_FAL');
1368: fnd_message.set_token('CNT',lf_count);
1369: fnd_file.put_line(fnd_file.log,fnd_message.get);
1370:
1371: END IF; -- if l_num_rec
1372:
1373: EXCEPTION
1381: WHEN no_data_in_table THEN
1382: RAISE;
1383: WHEN igf_gr_gen.batch_not_in_system THEN
1384: -- Bug # 4008991
1385: fnd_message.set_name('IGF','IGF_SL_GR_BATCH_DOES_NO_EXIST');
1386: fnd_message.set_token('BATCH_ID',l_batch_id);
1387: RAISE;
1388: WHEN igf_gr_gen.file_not_loaded THEN
1389: RAISE;
1382: RAISE;
1383: WHEN igf_gr_gen.batch_not_in_system THEN
1384: -- Bug # 4008991
1385: fnd_message.set_name('IGF','IGF_SL_GR_BATCH_DOES_NO_EXIST');
1386: fnd_message.set_token('BATCH_ID',l_batch_id);
1387: RAISE;
1388: WHEN igf_gr_gen.file_not_loaded THEN
1389: RAISE;
1390: WHEN OTHERS THEN
1387: RAISE;
1388: WHEN igf_gr_gen.file_not_loaded THEN
1389: RAISE;
1390: WHEN OTHERS THEN
1391: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1392: fnd_message.set_token('NAME','IGF_GR_RFMS_ORIG.RFMS_ACK');
1393: igs_ge_msg_stack.add;
1394: app_exception.raise_exception;
1395: END rfms_ack;
1388: WHEN igf_gr_gen.file_not_loaded THEN
1389: RAISE;
1390: WHEN OTHERS THEN
1391: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1392: fnd_message.set_token('NAME','IGF_GR_RFMS_ORIG.RFMS_ACK');
1393: igs_ge_msg_stack.add;
1394: app_exception.raise_exception;
1395: END rfms_ack;
1396:
1473: -- If the award year is FULL_PARTICIPANT then raise the error message
1474: -- and stop processing else continue the process
1475: IF l_cod_year_flag THEN
1476:
1477: fnd_message.set_name('IGF','IGF_GR_COD_NO_ORIG');
1478: fnd_file.put_line(fnd_file.log,fnd_message.get);
1479: RETURN;
1480:
1481: END IF;
1474: -- and stop processing else continue the process
1475: IF l_cod_year_flag THEN
1476:
1477: fnd_message.set_name('IGF','IGF_GR_COD_NO_ORIG');
1478: fnd_file.put_line(fnd_file.log,fnd_message.get);
1479: RETURN;
1480:
1481: END IF;
1482:
1516: fnd_file.put_line(fnd_file.log,l_msg_str_6);
1517:
1518: -- FA 126. base_id and attending pell are mutually exclusive.
1519: IF (base_id IS NOT NULL AND p_attending_pell IS NOT NULL) THEN
1520: FND_MESSAGE.SET_NAME('IGF', 'IGF_GR_PORIG_INCOMPAT');
1521: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
1522: mutually_exclusive := FALSE;
1523: END IF;
1524:
1517:
1518: -- FA 126. base_id and attending pell are mutually exclusive.
1519: IF (base_id IS NOT NULL AND p_attending_pell IS NOT NULL) THEN
1520: FND_MESSAGE.SET_NAME('IGF', 'IGF_GR_PORIG_INCOMPAT');
1521: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
1522: mutually_exclusive := FALSE;
1523: END IF;
1524:
1525: -- FA 131. Person Number(base_id) and Person Group are mutually exclusive.
1523: END IF;
1524:
1525: -- FA 131. Person Number(base_id) and Person Group are mutually exclusive.
1526: IF (base_id IS NOT NULL AND p_persid_grp IS NOT NULL) THEN
1527: FND_MESSAGE.SET_NAME('IGF', 'IGF_GR_PERSID_GRP_INCOMPAT');
1528: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
1529: mutually_exclusive := FALSE;
1530: END IF;
1531:
1524:
1525: -- FA 131. Person Number(base_id) and Person Group are mutually exclusive.
1526: IF (base_id IS NOT NULL AND p_persid_grp IS NOT NULL) THEN
1527: FND_MESSAGE.SET_NAME('IGF', 'IGF_GR_PERSID_GRP_INCOMPAT');
1528: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MESSAGE.GET);
1529: mutually_exclusive := FALSE;
1530: END IF;
1531:
1532: IF NOT mutually_exclusive THEN
1558: EXCEPTION
1559: WHEN igf_gr_gen.no_file_version THEN
1560: ROLLBACK;
1561: retcode := 2;
1562: errbuf := fnd_message.get_string('IGF','IGF_GR_VERSION_NOTFOUND');
1563: fnd_file.put_line(fnd_file.log,errbuf);
1564: WHEN batch_not_created THEN
1565: ROLLBACK;
1566: WHEN param_error THEN
1565: ROLLBACK;
1566: WHEN param_error THEN
1567: ROLLBACK;
1568: retcode := 2;
1569: errbuf := fnd_message.get_string('IGF','IGF_AW_PARAM_ERR');
1570: fnd_file.put_line(fnd_file.log,errbuf);
1571: WHEN no_data_in_table THEN
1572: ROLLBACK;
1573: errbuf := fnd_message.get_string('IGF','IGF_AP_NO_DATA_FOUND');
1569: errbuf := fnd_message.get_string('IGF','IGF_AW_PARAM_ERR');
1570: fnd_file.put_line(fnd_file.log,errbuf);
1571: WHEN no_data_in_table THEN
1572: ROLLBACK;
1573: errbuf := fnd_message.get_string('IGF','IGF_AP_NO_DATA_FOUND');
1574: fnd_file.put_line(fnd_file.log,errbuf);
1575: WHEN app_exception.record_lock_exception THEN
1576: ROLLBACK;
1577: retcode:=2;
1574: fnd_file.put_line(fnd_file.log,errbuf);
1575: WHEN app_exception.record_lock_exception THEN
1576: ROLLBACK;
1577: retcode:=2;
1578: errbuf := fnd_message.get_string('IGF','IGF_GE_LOCK_ERROR');
1579: fnd_file.put_line(fnd_file.log,errbuf);
1580: WHEN persid_grp_sql_stmt_error THEN
1581: ROLLBACK;
1582: retcode := 2;
1579: fnd_file.put_line(fnd_file.log,errbuf);
1580: WHEN persid_grp_sql_stmt_error THEN
1581: ROLLBACK;
1582: retcode := 2;
1583: errbuf := fnd_message.get_string('IGF','IGF_AP_INVALID_QUERY');
1584: fnd_file.put_line(fnd_file.log,errbuf);
1585: WHEN OTHERS THEN
1586: ROLLBACK;
1587: retcode := 2;
1584: fnd_file.put_line(fnd_file.log,errbuf);
1585: WHEN OTHERS THEN
1586: ROLLBACK;
1587: retcode := 2;
1588: errbuf := fnd_message.get_string('IGS','IGS_GE_UNHANDLED_EXCEPTION') || SQLERRM;
1589: igs_ge_msg_stack.conc_exception_hndl;
1590: END main;
1591:
1592: PROCEDURE main_ack( errbuf OUT NOCOPY VARCHAR2,
1634: -- If the award year is FULL_PARTICIPANT then raise the error message
1635: -- and stop processing else continue the process
1636: IF igf_sl_dl_validation.check_full_participant (l_ci_cal_type,l_ci_sequence_number,'PELL') THEN
1637:
1638: fnd_message.set_name('IGF','IGF_GR_COD_NO_ORIG_ACK');
1639: fnd_file.put_line(fnd_file.log,fnd_message.get);
1640: RETURN;
1641:
1642: END IF;
1635: -- and stop processing else continue the process
1636: IF igf_sl_dl_validation.check_full_participant (l_ci_cal_type,l_ci_sequence_number,'PELL') THEN
1637:
1638: fnd_message.set_name('IGF','IGF_GR_COD_NO_ORIG_ACK');
1639: fnd_file.put_line(fnd_file.log,fnd_message.get);
1640: RETURN;
1641:
1642: END IF;
1643:
1667:
1668: WHEN igf_gr_gen.no_file_version THEN
1669: ROLLBACK;
1670: retcode := 2;
1671: errbuf := fnd_message.get_string('IGF','IGF_GR_VERSION_NOTFOUND');
1672: fnd_file.put_line(fnd_file.log,errbuf);
1673:
1674: WHEN app_exception.record_lock_exception THEN
1675: ROLLBACK;
1673:
1674: WHEN app_exception.record_lock_exception THEN
1675: ROLLBACK;
1676: retcode := 2;
1677: errbuf := fnd_message.get_string('IGF','IGF_GE_LOCK_ERROR');
1678: fnd_file.put_line(fnd_file.log,errbuf);
1679:
1680: WHEN param_error THEN
1681: ROLLBACK;
1679:
1680: WHEN param_error THEN
1681: ROLLBACK;
1682: retcode := 2;
1683: errbuf := fnd_message.get_string('IGF','IGF_AW_PARAM_ERR');
1684: fnd_file.put_line(fnd_file.log,errbuf);
1685:
1686: WHEN igf_gr_gen.file_not_loaded THEN
1687: ROLLBACK;
1685:
1686: WHEN igf_gr_gen.file_not_loaded THEN
1687: ROLLBACK;
1688: retcode := 2;
1689: errbuf := fnd_message.get_string('IGF','IGF_GE_FILE_NOT_LOADED');
1690: fnd_file.put_line(fnd_file.log,errbuf);
1691:
1692: WHEN no_data_in_table THEN
1693: ROLLBACK;
1691:
1692: WHEN no_data_in_table THEN
1693: ROLLBACK;
1694: retcode := 2;
1695: errbuf := fnd_message.get_string('IGF','IGF_AP_NO_DATA_FOUND');
1696: fnd_file.put_line(fnd_file.log,errbuf);
1697:
1698: WHEN igf_gr_gen.batch_not_in_system THEN
1699: ROLLBACK;
1697:
1698: WHEN igf_gr_gen.batch_not_in_system THEN
1699: ROLLBACK;
1700: retcode := 2;
1701: errbuf := fnd_message.get; -- Bug # 4008991
1702: fnd_file.put_line(fnd_file.log,errbuf);
1703:
1704: WHEN igf_gr_gen.corrupt_data_file THEN
1705: ROLLBACK;
1703:
1704: WHEN igf_gr_gen.corrupt_data_file THEN
1705: ROLLBACK;
1706: retcode := 2;
1707: errbuf := fnd_message.get_string('IGF','IGF_GR_CORRUPT_DATA_FILE');
1708: fnd_file.put_line(fnd_file.log,errbuf);
1709:
1710: WHEN OTHERS THEN
1711: ROLLBACK;
1709:
1710: WHEN OTHERS THEN
1711: ROLLBACK;
1712: retcode := 2;
1713: errbuf := fnd_message.get_string('IGS','IGS_GE_UNHANDLED_EXCEPTION') || SQLERRM;
1714: igs_ge_msg_stack.conc_exception_hndl;
1715:
1716: END main_ack;
1717: