495: OPEN cur_alternate_code;
496: FETCH cur_alternate_code INTO l_alternate_code;
497: IF cur_alternate_code%NOTFOUND THEN
498: CLOSE cur_alternate_code;
499: fnd_message.set_name('IGF','IGF_SL_NO_CALENDAR');
500: igs_ge_msg_stack.add;
501: fnd_file.put_line(fnd_file.log,fnd_message.get);
502: app_exception.raise_exception;
503: END IF;
497: IF cur_alternate_code%NOTFOUND THEN
498: CLOSE cur_alternate_code;
499: fnd_message.set_name('IGF','IGF_SL_NO_CALENDAR');
500: igs_ge_msg_stack.add;
501: fnd_file.put_line(fnd_file.log,fnd_message.get);
502: app_exception.raise_exception;
503: END IF;
504: CLOSE cur_alternate_code;
505:
577: --The recipient information does not exist
578: IF (fnd_log.level_statement >= g_debug_runtime_level) THEN
579: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_cl_orig.cl_originate.debug','Recipient description not found');
580: END IF;
581: fnd_message.set_name('IGF','IGF_SL_RECIP_NOT_FOUND');
582: fnd_message.set_token('REL_CODE',orec.relationship_cd);
583: fnd_file.put_line(fnd_file.log,fnd_message.get);
584: ELSE
585: --The recipient information exists
578: IF (fnd_log.level_statement >= g_debug_runtime_level) THEN
579: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_cl_orig.cl_originate.debug','Recipient description not found');
580: END IF;
581: fnd_message.set_name('IGF','IGF_SL_RECIP_NOT_FOUND');
582: fnd_message.set_token('REL_CODE',orec.relationship_cd);
583: fnd_file.put_line(fnd_file.log,fnd_message.get);
584: ELSE
585: --The recipient information exists
586:
579: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_cl_orig.cl_originate.debug','Recipient description not found');
580: END IF;
581: fnd_message.set_name('IGF','IGF_SL_RECIP_NOT_FOUND');
582: fnd_message.set_token('REL_CODE',orec.relationship_cd);
583: fnd_file.put_line(fnd_file.log,fnd_message.get);
584: ELSE
585: --The recipient information exists
586:
587: CLOSE cur_recip_desc;
621:
622: -- Check the Return Status of Request Id
623: IF lv_request_id = 0 THEN
624: -- On Failure of Concurrent Request
625: fnd_message.set_name('IGF','IGF_SL_CL_ORIG_REQ_FAIL');
626: fnd_message.set_token('NAME',TO_CHAR(lv_request_id));
627: igs_ge_msg_stack.add;
628: IF (fnd_log.level_exception >= g_debug_runtime_level) THEN
629: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_sl_cl_orig.cl_originate.debug','Concurrent request failed');
622: -- Check the Return Status of Request Id
623: IF lv_request_id = 0 THEN
624: -- On Failure of Concurrent Request
625: fnd_message.set_name('IGF','IGF_SL_CL_ORIG_REQ_FAIL');
626: fnd_message.set_token('NAME',TO_CHAR(lv_request_id));
627: igs_ge_msg_stack.add;
628: IF (fnd_log.level_exception >= g_debug_runtime_level) THEN
629: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_sl_cl_orig.cl_originate.debug','Concurrent request failed');
630: END IF;
630: END IF;
631: app_exception.raise_exception;
632: ELSE
633: fnd_file.new_line(fnd_file.log,2);
634: fnd_message.set_name('IGF','IGF_SL_CL_ORIG_CREATED');
635: fnd_message.set_token('P_FILENAME',RPAD(TO_CHAR(lv_request_id),10));
636: fnd_message.set_token('P_RECIP_ID',RPAD(recip_desc_rec.recipient_id,10));
637: fnd_message.set_token('P_RECIP_NAME',recip_desc_rec.recip_description||' ');
638: fnd_message.set_token('P_RECIP_BRC_ID',RPAD(NVL(recip_desc_rec.recip_non_ed_brc_id,' '),'10'));
631: app_exception.raise_exception;
632: ELSE
633: fnd_file.new_line(fnd_file.log,2);
634: fnd_message.set_name('IGF','IGF_SL_CL_ORIG_CREATED');
635: fnd_message.set_token('P_FILENAME',RPAD(TO_CHAR(lv_request_id),10));
636: fnd_message.set_token('P_RECIP_ID',RPAD(recip_desc_rec.recipient_id,10));
637: fnd_message.set_token('P_RECIP_NAME',recip_desc_rec.recip_description||' ');
638: fnd_message.set_token('P_RECIP_BRC_ID',RPAD(NVL(recip_desc_rec.recip_non_ed_brc_id,' '),'10'));
639:
632: ELSE
633: fnd_file.new_line(fnd_file.log,2);
634: fnd_message.set_name('IGF','IGF_SL_CL_ORIG_CREATED');
635: fnd_message.set_token('P_FILENAME',RPAD(TO_CHAR(lv_request_id),10));
636: fnd_message.set_token('P_RECIP_ID',RPAD(recip_desc_rec.recipient_id,10));
637: fnd_message.set_token('P_RECIP_NAME',recip_desc_rec.recip_description||' ');
638: fnd_message.set_token('P_RECIP_BRC_ID',RPAD(NVL(recip_desc_rec.recip_non_ed_brc_id,' '),'10'));
639:
640: -- IGF.#P_FILENAME : #P_RECIP_ID #P_RECIP_NAME #P_RECIP_BRC_ID
633: fnd_file.new_line(fnd_file.log,2);
634: fnd_message.set_name('IGF','IGF_SL_CL_ORIG_CREATED');
635: fnd_message.set_token('P_FILENAME',RPAD(TO_CHAR(lv_request_id),10));
636: fnd_message.set_token('P_RECIP_ID',RPAD(recip_desc_rec.recipient_id,10));
637: fnd_message.set_token('P_RECIP_NAME',recip_desc_rec.recip_description||' ');
638: fnd_message.set_token('P_RECIP_BRC_ID',RPAD(NVL(recip_desc_rec.recip_non_ed_brc_id,' '),'10'));
639:
640: -- IGF.#P_FILENAME : #P_RECIP_ID #P_RECIP_NAME #P_RECIP_BRC_ID
641: fnd_file.put_line(fnd_file.log, fnd_message.get);
634: fnd_message.set_name('IGF','IGF_SL_CL_ORIG_CREATED');
635: fnd_message.set_token('P_FILENAME',RPAD(TO_CHAR(lv_request_id),10));
636: fnd_message.set_token('P_RECIP_ID',RPAD(recip_desc_rec.recipient_id,10));
637: fnd_message.set_token('P_RECIP_NAME',recip_desc_rec.recip_description||' ');
638: fnd_message.set_token('P_RECIP_BRC_ID',RPAD(NVL(recip_desc_rec.recip_non_ed_brc_id,' '),'10'));
639:
640: -- IGF.#P_FILENAME : #P_RECIP_ID #P_RECIP_NAME #P_RECIP_BRC_ID
641: fnd_file.put_line(fnd_file.log, fnd_message.get);
642: fnd_file.new_line(fnd_file.log,2);
637: fnd_message.set_token('P_RECIP_NAME',recip_desc_rec.recip_description||' ');
638: fnd_message.set_token('P_RECIP_BRC_ID',RPAD(NVL(recip_desc_rec.recip_non_ed_brc_id,' '),'10'));
639:
640: -- IGF.#P_FILENAME : #P_RECIP_ID #P_RECIP_NAME #P_RECIP_BRC_ID
641: fnd_file.put_line(fnd_file.log, fnd_message.get);
642: fnd_file.new_line(fnd_file.log,2);
643: END IF;
644: END IF;
645: END LOOP;
649: IF (fnd_log.level_statement >= g_debug_runtime_level) THEN
650: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_cl_orig.cl_originate.debug','Recipient Id not found');
651: END IF;
652: fnd_file.new_line(fnd_file.log,2);
653: fnd_file.put_line(fnd_file.log, fnd_message.get_string('IGF','IGF_SL_NO_LOAN_ORIG_DATA'));
654: fnd_file.new_line(fnd_file.log,2);
655: END IF;
656:
657: COMMIT;
662: IF cur_recip_dts%ISOPEN THEN
663: CLOSE cur_recip_dts;
664: END IF;
665: retcode := 2;
666: errbuf := fnd_message.get_string('IGF','IGF_GE_LOCK_ERROR');
667: IF(fnd_log.level_exception >= g_debug_runtime_level)THEN
668: fnd_log.string(fnd_log.level_exception, 'igf.plsql.igf_sl_cl_orig.cl_originate.exception',SQLERRM);
669: END IF;
670:
675: IF cur_recip_dts%ISOPEN THEN
676: CLOSE cur_recip_dts;
677: END IF;
678: retcode := 2;
679: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
680: fnd_message.set_token('NAME','IGF_SL_CL_ORIG.CL_ORIGINATE');
681: errbuf := fnd_message.get;
682: IF(fnd_log.level_exception >= g_debug_runtime_level)THEN
683: fnd_log.string(fnd_log.level_exception, 'igf.plsql.igf_sl_cl_orig.cl_originate.exception',SQLERRM);
676: CLOSE cur_recip_dts;
677: END IF;
678: retcode := 2;
679: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
680: fnd_message.set_token('NAME','IGF_SL_CL_ORIG.CL_ORIGINATE');
681: errbuf := fnd_message.get;
682: IF(fnd_log.level_exception >= g_debug_runtime_level)THEN
683: fnd_log.string(fnd_log.level_exception, 'igf.plsql.igf_sl_cl_orig.cl_originate.exception',SQLERRM);
684: END IF;
677: END IF;
678: retcode := 2;
679: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
680: fnd_message.set_token('NAME','IGF_SL_CL_ORIG.CL_ORIGINATE');
681: errbuf := fnd_message.get;
682: IF(fnd_log.level_exception >= g_debug_runtime_level)THEN
683: fnd_log.string(fnd_log.level_exception, 'igf.plsql.igf_sl_cl_orig.cl_originate.exception',SQLERRM);
684: END IF;
685: igs_ge_msg_stack.conc_exception_hndl;
957: RAISE;
958:
959: WHEN OTHERS THEN
960:
961: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
962: fnd_message.set_token('NAME','IGF_SL_CL_ORIG.INSERT_LOR_LOC_REC');
963: IF(fnd_log.level_exception >= g_debug_runtime_level)THEN
964: fnd_log.string(fnd_log.level_exception, 'igf.plsql.igf_sl_cl_orig.insert_lor_loc_rec.exception',SQLERRM);
965: END IF;
958:
959: WHEN OTHERS THEN
960:
961: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
962: fnd_message.set_token('NAME','IGF_SL_CL_ORIG.INSERT_LOR_LOC_REC');
963: IF(fnd_log.level_exception >= g_debug_runtime_level)THEN
964: fnd_log.string(fnd_log.level_exception, 'igf.plsql.igf_sl_cl_orig.insert_lor_loc_rec.exception',SQLERRM);
965: END IF;
966: igs_ge_msg_stack.add;
1184: WHEN OTHERS THEN
1185: IF(fnd_log.level_exception >= g_debug_runtime_level)THEN
1186: fnd_log.string(fnd_log.level_exception, 'igf.plsql.igf_sl_cl_orig.update_orig_batch_id.exception',SQLERRM);
1187: END IF;
1188: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
1189: fnd_message.set_token('NAME','IGF_SL_CL_ORIG.UPDATE_ORIG_BATCH_ID');
1190: igs_ge_msg_stack.add;
1191: app_exception.raise_exception;
1192:
1185: IF(fnd_log.level_exception >= g_debug_runtime_level)THEN
1186: fnd_log.string(fnd_log.level_exception, 'igf.plsql.igf_sl_cl_orig.update_orig_batch_id.exception',SQLERRM);
1187: END IF;
1188: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
1189: fnd_message.set_token('NAME','IGF_SL_CL_ORIG.UPDATE_ORIG_BATCH_ID');
1190: igs_ge_msg_stack.add;
1191: app_exception.raise_exception;
1192:
1193: END update_orig_batch_id;
1531: --The recipient information does not exist
1532: IF (fnd_log.level_statement >= g_debug_runtime_level) THEN
1533: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_cl_orig.sub_cl_originate.debug','Recipient description not found');
1534: END IF;
1535: fnd_message.set_name('IGF','IGF_SL_RECIP_NOT_FOUND');
1536: fnd_message.set_token('REL_CODE',p_relationship_cd);
1537: fnd_file.put_line(fnd_file.log,fnd_message.get);
1538: RETURN;
1539: END IF;
1532: IF (fnd_log.level_statement >= g_debug_runtime_level) THEN
1533: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_cl_orig.sub_cl_originate.debug','Recipient description not found');
1534: END IF;
1535: fnd_message.set_name('IGF','IGF_SL_RECIP_NOT_FOUND');
1536: fnd_message.set_token('REL_CODE',p_relationship_cd);
1537: fnd_file.put_line(fnd_file.log,fnd_message.get);
1538: RETURN;
1539: END IF;
1540: CLOSE cur_recip_desc;
1533: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_cl_orig.sub_cl_originate.debug','Recipient description not found');
1534: END IF;
1535: fnd_message.set_name('IGF','IGF_SL_RECIP_NOT_FOUND');
1536: fnd_message.set_token('REL_CODE',p_relationship_cd);
1537: fnd_file.put_line(fnd_file.log,fnd_message.get);
1538: RETURN;
1539: END IF;
1540: CLOSE cur_recip_desc;
1541:
1764: igf_sl_award.pick_setup(loan_rec.base_id,p_ci_cal_type,p_ci_sequence_number,lv_rel_code,lv_person_id,lv_party_id,loan_rec_temp.alt_rel_code);
1765: -- FACR116 Check if the alt_loan_code is not null and the set up record is present or not
1766: IF loan_rec_temp.fed_fund_code = 'ALT' THEN
1767: IF loan_rec_temp.alt_loan_code IS NULL THEN
1768: fnd_message.set_name('IGF','IGF_AW_NO_ALT_LOAN_CODE');
1769: fnd_file.put_line(fnd_file.log,fnd_message.get);
1770: RAISE SKIP_RECORD;
1771: ELSIF lv_rel_code IS NULL AND lv_person_id IS NULL THEN
1772: fnd_message.set_name('IGF','IGF_SL_NO_ALT_SETUP');
1765: -- FACR116 Check if the alt_loan_code is not null and the set up record is present or not
1766: IF loan_rec_temp.fed_fund_code = 'ALT' THEN
1767: IF loan_rec_temp.alt_loan_code IS NULL THEN
1768: fnd_message.set_name('IGF','IGF_AW_NO_ALT_LOAN_CODE');
1769: fnd_file.put_line(fnd_file.log,fnd_message.get);
1770: RAISE SKIP_RECORD;
1771: ELSIF lv_rel_code IS NULL AND lv_person_id IS NULL THEN
1772: fnd_message.set_name('IGF','IGF_SL_NO_ALT_SETUP');
1773: fnd_file.put_line(fnd_file.log,fnd_message.get);
1768: fnd_message.set_name('IGF','IGF_AW_NO_ALT_LOAN_CODE');
1769: fnd_file.put_line(fnd_file.log,fnd_message.get);
1770: RAISE SKIP_RECORD;
1771: ELSIF lv_rel_code IS NULL AND lv_person_id IS NULL THEN
1772: fnd_message.set_name('IGF','IGF_SL_NO_ALT_SETUP');
1773: fnd_file.put_line(fnd_file.log,fnd_message.get);
1774: RAISE SKIP_RECORD;
1775: END IF;
1776: END IF;
1769: fnd_file.put_line(fnd_file.log,fnd_message.get);
1770: RAISE SKIP_RECORD;
1771: ELSIF lv_rel_code IS NULL AND lv_person_id IS NULL THEN
1772: fnd_message.set_name('IGF','IGF_SL_NO_ALT_SETUP');
1773: fnd_file.put_line(fnd_file.log,fnd_message.get);
1774: RAISE SKIP_RECORD;
1775: END IF;
1776: END IF;
1777: /*
1787: OPEN cur_isir_depend_status;
1788: FETCH cur_isir_depend_status INTO lv_dependency_status;
1789: IF cur_isir_depend_status%NOTFOUND THEN
1790: CLOSE cur_isir_depend_status;
1791: fnd_message.set_name('IGF','IGF_GE_REC_NO_DATA_FOUND');
1792: fnd_message.set_token('P_RECORD','igf_ap_fa_base_rec');
1793: fnd_file.put_line(fnd_file.log,fnd_message.get);
1794: IF(fnd_log.level_statement >= g_debug_runtime_level)THEN
1795: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_cl_orig.sub_cl_originate.debug','Record Data not found');
1788: FETCH cur_isir_depend_status INTO lv_dependency_status;
1789: IF cur_isir_depend_status%NOTFOUND THEN
1790: CLOSE cur_isir_depend_status;
1791: fnd_message.set_name('IGF','IGF_GE_REC_NO_DATA_FOUND');
1792: fnd_message.set_token('P_RECORD','igf_ap_fa_base_rec');
1793: fnd_file.put_line(fnd_file.log,fnd_message.get);
1794: IF(fnd_log.level_statement >= g_debug_runtime_level)THEN
1795: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_cl_orig.sub_cl_originate.debug','Record Data not found');
1796: END IF;
1789: IF cur_isir_depend_status%NOTFOUND THEN
1790: CLOSE cur_isir_depend_status;
1791: fnd_message.set_name('IGF','IGF_GE_REC_NO_DATA_FOUND');
1792: fnd_message.set_token('P_RECORD','igf_ap_fa_base_rec');
1793: fnd_file.put_line(fnd_file.log,fnd_message.get);
1794: IF(fnd_log.level_statement >= g_debug_runtime_level)THEN
1795: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_cl_orig.sub_cl_originate.debug','Record Data not found');
1796: END IF;
1797: RAISE SKIP_RECORD;
2898: Update_orig_batch_id(loan_rec.origination_id, lv_batch_id);
2899:
2900: EXCEPTION
2901: WHEN SKIP_RECORD THEN
2902: fnd_message.set_name('IGF','IGF_SL_SKIPPING');
2903: fnd_file.put_line(fnd_file.log,fnd_message.get);
2904: fnd_file.new_line(fnd_file.log,1);
2905: END;
2906: END LOOP;
2899:
2900: EXCEPTION
2901: WHEN SKIP_RECORD THEN
2902: fnd_message.set_name('IGF','IGF_SL_SKIPPING');
2903: fnd_file.put_line(fnd_file.log,fnd_message.get);
2904: fnd_file.new_line(fnd_file.log,1);
2905: END;
2906: END LOOP;
2907:
2963: EXCEPTION
2964: WHEN app_exception.record_lock_exception THEN
2965: ROLLBACK;
2966: retcode := 2;
2967: errbuf := fnd_message.get_string('IGF','IGF_GE_LOCK_ERROR');
2968: IF(fnd_log.level_exception >= g_debug_runtime_level)THEN
2969: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_sl_cl_orig.sub_cl_originate.exception','Record Lock Exception');
2970: END IF;
2971:
2975: -- This will happen when either there were no loan records to originate
2976: -- OR all records which were valid and ready to Send, were not Valid.
2977:
2978: retcode := 2;
2979: errbuf := fnd_message.get_string('IGF','IGF_SL_NO_LOAN_ORIG_DATA');
2980: fnd_file.put_line(fnd_file.log, '');
2981: fnd_file.put_line(fnd_file.log, errbuf);
2982: IF(fnd_log.level_statement >= g_debug_runtime_level)THEN
2983: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_sl_cl_orig.sub_cl_originate.debug','No loan origination data found');
2986:
2987: WHEN OTHERS THEN
2988: ROLLBACK;
2989: retcode := 2;
2990: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
2991: fnd_message.set_token('NAME','IGF_SL_CL_ORIG.SUB_CL_ORIGINATE');
2992: IF(fnd_log.level_exception >= g_debug_runtime_level)THEN
2993: fnd_log.string(fnd_log.level_exception, 'igf.plsql.igf_sl_cl_orig.sub_cl_originate.exception', SQLERRM );
2994: END IF;
2987: WHEN OTHERS THEN
2988: ROLLBACK;
2989: retcode := 2;
2990: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
2991: fnd_message.set_token('NAME','IGF_SL_CL_ORIG.SUB_CL_ORIGINATE');
2992: IF(fnd_log.level_exception >= g_debug_runtime_level)THEN
2993: fnd_log.string(fnd_log.level_exception, 'igf.plsql.igf_sl_cl_orig.sub_cl_originate.exception', SQLERRM );
2994: END IF;
2995: errbuf := fnd_message.get;
2991: fnd_message.set_token('NAME','IGF_SL_CL_ORIG.SUB_CL_ORIGINATE');
2992: IF(fnd_log.level_exception >= g_debug_runtime_level)THEN
2993: fnd_log.string(fnd_log.level_exception, 'igf.plsql.igf_sl_cl_orig.sub_cl_originate.exception', SQLERRM );
2994: END IF;
2995: errbuf := fnd_message.get;
2996:
2997: igs_ge_msg_stack.conc_exception_hndl;
2998: END sub_cl_originate;
2999: