98: PROCEDURE log_message(p_loan_number igf_sl_loans_all.loan_number%TYPE) IS
99: BEGIN
100:
101: IF g_log_start_flag = FALSE THEN
102: fnd_file.put_line(fnd_file.log, '');
103: fnd_file.put_line(fnd_file.log, '');
104: fnd_file.put_line(fnd_file.log, RPAD('-',80,'-'));
105:
106: IF g_log_title IS NULL THEN
99: BEGIN
100:
101: IF g_log_start_flag = FALSE THEN
102: fnd_file.put_line(fnd_file.log, '');
103: fnd_file.put_line(fnd_file.log, '');
104: fnd_file.put_line(fnd_file.log, RPAD('-',80,'-'));
105:
106: IF g_log_title IS NULL THEN
107: g_log_title := igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','LOAN_NUMBER')||' : ';
100:
101: IF g_log_start_flag = FALSE THEN
102: fnd_file.put_line(fnd_file.log, '');
103: fnd_file.put_line(fnd_file.log, '');
104: fnd_file.put_line(fnd_file.log, RPAD('-',80,'-'));
105:
106: IF g_log_title IS NULL THEN
107: g_log_title := igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','LOAN_NUMBER')||' : ';
108: END IF;
106: IF g_log_title IS NULL THEN
107: g_log_title := igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','LOAN_NUMBER')||' : ';
108: END IF;
109:
110: fnd_file.put_line(fnd_file.log, g_log_title||p_loan_number);
111: g_log_start_flag := TRUE;
112: END IF;
113:
114: END log_message;
232:
233: IF l_dl_loan_catg in ('DL_STAFFORD','DL_PLUS','DL_STAFFORD_PLUS') THEN
234: -- This is an Direct Loan Promissory Note Acknowledgment File
235: fnd_message.set_name('IGF','IGF_SL_DL_ORIG_PNOTE_FILE');
236: fnd_file.put_line(fnd_file.log,FND_MESSAGE.GET);
237:
238: END IF;
239:
240: -- Get the System Award Year from l_dl_version
250: -- and stop processing else continue the process
251: IF l_cod_year_flag THEN
252:
253: fnd_message.set_name('IGF','IGF_SL_COD_NO_PNOTE_ACK');
254: fnd_file.put_line(fnd_file.log,fnd_message.get);
255: RETURN;
256:
257: END IF;
258:
428: RAISE;
429: WHEN OTHERS THEN
430: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
431: fnd_message.set_token('NAME','IGF_SL_DL_PNOTE_ACK.DL_LOAD_DATA');
432: fnd_file.put_line(fnd_file.log,SQLERRM);
433: igs_ge_msg_stack.add;
434: app_exception.raise_exception;
435: END dl_load_data;
436:
560: IF resp_rec.pnote_rej_codes IS NOT NULL THEN
561:
562: log_message(resp_rec.loan_number);
563: fnd_message.set_name('IGF','IGF_SL_DL_REJ_EXISTS');
564: fnd_file.put_line(fnd_file.log,FND_MESSAGE.GET);
565: resp_rec.pnote_rej_codes := translate(resp_rec.pnote_rej_codes,'0',' ');
566: DECLARE
567: CURSOR c_rej IS
568: SELECT lookup_code, meaning FROM igf_lookups_view
574: LTRIM(RTRIM(SUBSTR(resp_rec.pnote_rej_codes, 9,2))));
575: BEGIN
576: igf_sl_edit.delete_edit(resp_rec.loan_number, 'P');
577: FOR rrec IN c_rej LOOP
578: fnd_file.put_line(fnd_file.log, ' '||RPAD(rrec.lookup_code,3)||' - '||rrec.meaning);
579: igf_sl_edit.insert_edit(resp_rec.loan_number, 'P', 'IGF_SL_PNOTE_REJ_CODES',
580: rrec.lookup_code, '', '');
581: END LOOP;
582: END;
591:
592: FETCH cur_loanid INTO lcur_loanid;
593: log_message(resp_rec.loan_number);
594: fnd_message.set_name('IGF','IGF_SL_DL_PNOTE_REJECTED');
595: fnd_file.put_line(fnd_file.log,FND_MESSAGE.GET);
596:
597: IF cur_loanid%NOTFOUND THEN
598: CLOSE cur_loanid;
599: log_message(resp_rec.loan_number);
643: -- ## User Defined exception
644: IF tbh_rec.pnote_status='A' AND tbh_rec.pnote_ack_date IS NOT NULL THEN
645: log_message(resp_rec.loan_number);
646: fnd_message.set_name('IGF','IGF_SL_DL_AlREADY_ACCEPTED');
647: fnd_file.put_line(fnd_file.log,FND_MESSAGE.GET);
648: update_resp_edit(resp_rec.dlpnr_id,'U');
649: RAISE Rec_no_update;
650: ELSE
651:
811: FETCH cur_award INTO lcur_award;
812: EXIT WHEN cur_award%NOTFOUND;
813: IF resp_rec.pnote_accept_amt <> lcur_award.loan_amt THEN
814: log_message(resp_rec.loan_number);
815: fnd_file.put_line(fnd_file.log,
816: RPAD(igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','PNOTE_ACCEPT_AMT'),40,' ')||' : '||
817: TO_CHAR(resp_rec.pnote_accept_amt));
818: fnd_file.put_line(fnd_file.log,
819: RPAD(igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','LOAN_AMT_ACCEPTED'),40,' ')||' : '||
814: log_message(resp_rec.loan_number);
815: fnd_file.put_line(fnd_file.log,
816: RPAD(igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','PNOTE_ACCEPT_AMT'),40,' ')||' : '||
817: TO_CHAR(resp_rec.pnote_accept_amt));
818: fnd_file.put_line(fnd_file.log,
819: RPAD(igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','LOAN_AMT_ACCEPTED'),40,' ')||' : '||
820: TO_CHAR(lcur_award.loan_amt));
821: END IF;
822: END;
836:
837: EXCEPTION
838: WHEN invalid_loan THEN
839: fnd_message.set_name('IGF','IGF_SL_DL_INVALID_LOAN');
840: fnd_file.put_line(fnd_file.log,FND_MESSAGE.GET);
841: WHEN Rec_no_update THEN
842: NULL;
843: WHEN no_loan_id THEN
844: NULL;
849: END LOOP;
850:
851: END IF; -- Condition for Loan Category Checking
852:
853: fnd_file.put_line(fnd_file.log, '');
854:
855: COMMIT;
856:
857: EXCEPTION
868: WHEN OTHERS THEN
869: ROLLBACK;
870: retcode := 2;
871: errbuf := fnd_message.get_string('IGS','IGS_GE_UNHANDLED_EXCEPTION');
872: fnd_file.put_line(fnd_file.log,SQLERRM);
873: igs_ge_msg_stack.conc_exception_hndl;
874:
875: END process_ack;
876:
1008: p_disb_under_line := RPAD('-',30,'-')
1009: ||RPAD('-',30,'-');
1010: END IF;
1011:
1012: fnd_file.put_line(fnd_file.log,' ');
1013: fnd_file.put_line(fnd_file.log,igf_aw_gen.lookup_desc('IGF_SL_GEN','OFA_DISB_DETAILS'));
1014: fnd_file.put_line(fnd_file.log,p_disb_title);
1015: fnd_file.put_line(fnd_file.log,p_disb_under_line);
1016: --To show the Disbursement Details in OFA
1009: ||RPAD('-',30,'-');
1010: END IF;
1011:
1012: fnd_file.put_line(fnd_file.log,' ');
1013: fnd_file.put_line(fnd_file.log,igf_aw_gen.lookup_desc('IGF_SL_GEN','OFA_DISB_DETAILS'));
1014: fnd_file.put_line(fnd_file.log,p_disb_title);
1015: fnd_file.put_line(fnd_file.log,p_disb_under_line);
1016: --To show the Disbursement Details in OFA
1017:
1010: END IF;
1011:
1012: fnd_file.put_line(fnd_file.log,' ');
1013: fnd_file.put_line(fnd_file.log,igf_aw_gen.lookup_desc('IGF_SL_GEN','OFA_DISB_DETAILS'));
1014: fnd_file.put_line(fnd_file.log,p_disb_title);
1015: fnd_file.put_line(fnd_file.log,p_disb_under_line);
1016: --To show the Disbursement Details in OFA
1017:
1018: FOR OFA_disb IN cur_old_disbursements
1011:
1012: fnd_file.put_line(fnd_file.log,' ');
1013: fnd_file.put_line(fnd_file.log,igf_aw_gen.lookup_desc('IGF_SL_GEN','OFA_DISB_DETAILS'));
1014: fnd_file.put_line(fnd_file.log,p_disb_title);
1015: fnd_file.put_line(fnd_file.log,p_disb_under_line);
1016: --To show the Disbursement Details in OFA
1017:
1018: FOR OFA_disb IN cur_old_disbursements
1019: LOOP
1016: --To show the Disbursement Details in OFA
1017:
1018: FOR OFA_disb IN cur_old_disbursements
1019: LOOP
1020: fnd_file.put_line(fnd_file.log,
1021: LPAD(TO_CHAR(OFA_disb.disb_num),30)
1022: ||LPAD(TO_CHAR(OFA_disb.disb_accepted_amt),30));
1023: END LOOP;
1024:
1022: ||LPAD(TO_CHAR(OFA_disb.disb_accepted_amt),30));
1023: END LOOP;
1024:
1025: --To show the Disbursement details in File
1026: fnd_file.put_line(fnd_file.log,' ');
1027: fnd_file.put_line(fnd_file.log,igf_aw_gen.lookup_desc('IGF_SL_GEN','LOC_DISB_DETAILS'));
1028: fnd_file.put_line(fnd_file.log,p_disb_title);
1029: fnd_file.put_line(fnd_file.log,p_disb_under_line);
1030:
1023: END LOOP;
1024:
1025: --To show the Disbursement details in File
1026: fnd_file.put_line(fnd_file.log,' ');
1027: fnd_file.put_line(fnd_file.log,igf_aw_gen.lookup_desc('IGF_SL_GEN','LOC_DISB_DETAILS'));
1028: fnd_file.put_line(fnd_file.log,p_disb_title);
1029: fnd_file.put_line(fnd_file.log,p_disb_under_line);
1030:
1031: FOR LOC_disb IN cur_new_disbursements
1024:
1025: --To show the Disbursement details in File
1026: fnd_file.put_line(fnd_file.log,' ');
1027: fnd_file.put_line(fnd_file.log,igf_aw_gen.lookup_desc('IGF_SL_GEN','LOC_DISB_DETAILS'));
1028: fnd_file.put_line(fnd_file.log,p_disb_title);
1029: fnd_file.put_line(fnd_file.log,p_disb_under_line);
1030:
1031: FOR LOC_disb IN cur_new_disbursements
1032: LOOP
1025: --To show the Disbursement details in File
1026: fnd_file.put_line(fnd_file.log,' ');
1027: fnd_file.put_line(fnd_file.log,igf_aw_gen.lookup_desc('IGF_SL_GEN','LOC_DISB_DETAILS'));
1028: fnd_file.put_line(fnd_file.log,p_disb_title);
1029: fnd_file.put_line(fnd_file.log,p_disb_under_line);
1030:
1031: FOR LOC_disb IN cur_new_disbursements
1032: LOOP
1033: fnd_file.put_line(fnd_file.log,
1029: fnd_file.put_line(fnd_file.log,p_disb_under_line);
1030:
1031: FOR LOC_disb IN cur_new_disbursements
1032: LOOP
1033: fnd_file.put_line(fnd_file.log,
1034: LPAD(TO_CHAR(LOC_disb.dlpdr_id),30)
1035: ||LPAD(TO_CHAR(LOC_disb.disb_gross_amt),30));
1036:
1037: END LOOP;
1150: RAISE;
1151: WHEN OTHERS THEN
1152: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1153: fnd_message.set_token('NAME','IGF_SL_DL_PNOTE_ACK.COMPARE_DISBURSEMENTS');
1154: fnd_file.put_line(fnd_file.log,SQLERRM);
1155: igs_ge_msg_stack.add;
1156: app_exception.raise_exception;
1157: END compare_disbursements;
1158: