434: ELSIF c_fa_base%FOUND THEN
435: CLOSE c_fa_base ;
436:
437: fnd_file.new_line(fnd_file.log,1);
438: fnd_message.set_name('IGF','IGF_AW_PROCESS_STUD');
439: fnd_message.set_token('STUD',igf_gr_gen.get_per_num(l_award.base_id));
440: fnd_file.put_line(fnd_file.log,fnd_message.get);
441: fnd_file.new_line(fnd_file.log,1);
442:
435: CLOSE c_fa_base ;
436:
437: fnd_file.new_line(fnd_file.log,1);
438: fnd_message.set_name('IGF','IGF_AW_PROCESS_STUD');
439: fnd_message.set_token('STUD',igf_gr_gen.get_per_num(l_award.base_id));
440: fnd_file.put_line(fnd_file.log,fnd_message.get);
441: fnd_file.new_line(fnd_file.log,1);
442:
443: OPEN cur_payment_isir(l_award.base_id);
436:
437: fnd_file.new_line(fnd_file.log,1);
438: fnd_message.set_name('IGF','IGF_AW_PROCESS_STUD');
439: fnd_message.set_token('STUD',igf_gr_gen.get_per_num(l_award.base_id));
440: fnd_file.put_line(fnd_file.log,fnd_message.get);
441: fnd_file.new_line(fnd_file.log,1);
442:
443: OPEN cur_payment_isir(l_award.base_id);
444: FETCH cur_payment_isir INTO l_payment_isir;
447: --If active isir is not same as the payment isir, then
448: IF ((l_fa_base.isir_id IS NULL OR l_payment_isir IS NULL)
449: OR (l_fa_base.isir_id <> l_payment_isir))
450: THEN
451: fnd_message.set_name('IGF','IGF_AP_PELL_ISIR_CHK');
452: fnd_file.put_line(fnd_file.log,fnd_message.get);
453: RAISE MY_EXP;
454: END IF;
455:
448: IF ((l_fa_base.isir_id IS NULL OR l_payment_isir IS NULL)
449: OR (l_fa_base.isir_id <> l_payment_isir))
450: THEN
451: fnd_message.set_name('IGF','IGF_AP_PELL_ISIR_CHK');
452: fnd_file.put_line(fnd_file.log,fnd_message.get);
453: RAISE MY_EXP;
454: END IF;
455:
456: OPEN c_coa_pell(l_award.base_id);
455:
456: OPEN c_coa_pell(l_award.base_id);
457: FETCH c_coa_pell INTO l_coa_pell;
458: IF l_coa_pell IS NULL THEN
459: fnd_message.set_name('IGF','IGF_AW_PK_COA_NULL');
460: fnd_file.put_line(fnd_file.log,fnd_message.get);
461: CLOSE c_coa_pell;
462: RAISE MY_EXP;
463: END IF;
456: OPEN c_coa_pell(l_award.base_id);
457: FETCH c_coa_pell INTO l_coa_pell;
458: IF l_coa_pell IS NULL THEN
459: fnd_message.set_name('IGF','IGF_AW_PK_COA_NULL');
460: fnd_file.put_line(fnd_file.log,fnd_message.get);
461: CLOSE c_coa_pell;
462: RAISE MY_EXP;
463: END IF;
464:
471: --
472: -- Create RFMS Record only if there is no existing Record
473: --
474: IF cur_chk_orig%FOUND THEN
475: fnd_message.set_name('IGF','IGF_GR_PELL_ALREADY_EXISTS');
476: fnd_file.put_line(fnd_file.log,fnd_message.get);
477: CLOSE cur_chk_orig;
478: RAISE MY_EXP;
479: ELSE
472: -- Create RFMS Record only if there is no existing Record
473: --
474: IF cur_chk_orig%FOUND THEN
475: fnd_message.set_name('IGF','IGF_GR_PELL_ALREADY_EXISTS');
476: fnd_file.put_line(fnd_file.log,fnd_message.get);
477: CLOSE cur_chk_orig;
478: RAISE MY_EXP;
479: ELSE
480: CLOSE cur_chk_orig;
533: END IF;
534:
535: IF (l_ret_status='E') THEN
536: IF (l_cod_year_flag) THEN
537: fnd_message.set_name('IGF','IGF_GR_NO_ATTEND_ENTITY_ID');
538: ELSE
539: fnd_message.set_name('IGF','IGF_GR_NO_ATTEND_PELL');
540: END IF;
541: fnd_file.put_line(fnd_file.log,fnd_message.get());
535: IF (l_ret_status='E') THEN
536: IF (l_cod_year_flag) THEN
537: fnd_message.set_name('IGF','IGF_GR_NO_ATTEND_ENTITY_ID');
538: ELSE
539: fnd_message.set_name('IGF','IGF_GR_NO_ATTEND_PELL');
540: END IF;
541: fnd_file.put_line(fnd_file.log,fnd_message.get());
542: RAISE MY_EXP;
543:
537: fnd_message.set_name('IGF','IGF_GR_NO_ATTEND_ENTITY_ID');
538: ELSE
539: fnd_message.set_name('IGF','IGF_GR_NO_ATTEND_PELL');
540: END IF;
541: fnd_file.put_line(fnd_file.log,fnd_message.get());
542: RAISE MY_EXP;
543:
544: ELSIF ((l_ret_status='S') AND (l_attend_pell_id IS NOT NULL OR l_attend_entity_id IS NOT NULL)) THEN
545:
554: CLOSE c_get_rep_entity_id;
555:
556: IF (l_rep_entity_id IS NULL) THEN
557: l_stu_num:=igf_gr_gen.get_per_num(l_award.base_id);
558: fnd_message.set_name( 'IGF', 'IGF_GR_NOREP_ENTITY');
559: fnd_message.set_token('STU_NUMBER',l_stu_num);
560: fnd_file.put_line(fnd_file.log,fnd_message.get());
561: RAISE MY_EXP;
562: END IF;
555:
556: IF (l_rep_entity_id IS NULL) THEN
557: l_stu_num:=igf_gr_gen.get_per_num(l_award.base_id);
558: fnd_message.set_name( 'IGF', 'IGF_GR_NOREP_ENTITY');
559: fnd_message.set_token('STU_NUMBER',l_stu_num);
560: fnd_file.put_line(fnd_file.log,fnd_message.get());
561: RAISE MY_EXP;
562: END IF;
563:
556: IF (l_rep_entity_id IS NULL) THEN
557: l_stu_num:=igf_gr_gen.get_per_num(l_award.base_id);
558: fnd_message.set_name( 'IGF', 'IGF_GR_NOREP_ENTITY');
559: fnd_message.set_token('STU_NUMBER',l_stu_num);
560: fnd_file.put_line(fnd_file.log,fnd_message.get());
561: RAISE MY_EXP;
562: END IF;
563:
564: ELSE -- phase-in participation
568: CLOSE c_get_rep_pell_id;
569:
570: IF (l_rep_pell_id IS NULL) THEN
571: l_stu_num:=igf_gr_gen.get_per_num(l_award.base_id);
572: fnd_message.set_name( 'IGF', 'IGF_GR_NOREP_PELL');
573: fnd_message.set_token('STU_NUMBER',l_stu_num);
574: fnd_file.put_line(fnd_file.log,fnd_message.get());
575: RAISE MY_EXP;
576: END IF;
569:
570: IF (l_rep_pell_id IS NULL) THEN
571: l_stu_num:=igf_gr_gen.get_per_num(l_award.base_id);
572: fnd_message.set_name( 'IGF', 'IGF_GR_NOREP_PELL');
573: fnd_message.set_token('STU_NUMBER',l_stu_num);
574: fnd_file.put_line(fnd_file.log,fnd_message.get());
575: RAISE MY_EXP;
576: END IF;
577:
570: IF (l_rep_pell_id IS NULL) THEN
571: l_stu_num:=igf_gr_gen.get_per_num(l_award.base_id);
572: fnd_message.set_name( 'IGF', 'IGF_GR_NOREP_PELL');
573: fnd_message.set_token('STU_NUMBER',l_stu_num);
574: fnd_file.put_line(fnd_file.log,fnd_message.get());
575: RAISE MY_EXP;
576: END IF;
577:
578: END IF;
601: OPEN cur_chk_duplicate_ssn(l_origination_id);
602: FETCH cur_chk_duplicate_ssn INTO chk_ssn;
603: IF (cur_chk_duplicate_ssn%FOUND) THEN
604: CLOSE cur_chk_duplicate_ssn;
605: fnd_message.set_name( 'IGF', 'IGF_SL_SSN_IN_USE');
606: fnd_message.set_token('VALUE',SUBSTR(l_origination_id,1,9));
607: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(l_fa_base.base_id));
608: fnd_file.put_line(fnd_file.log,fnd_message.get());
609: RAISE MY_EXP;
602: FETCH cur_chk_duplicate_ssn INTO chk_ssn;
603: IF (cur_chk_duplicate_ssn%FOUND) THEN
604: CLOSE cur_chk_duplicate_ssn;
605: fnd_message.set_name( 'IGF', 'IGF_SL_SSN_IN_USE');
606: fnd_message.set_token('VALUE',SUBSTR(l_origination_id,1,9));
607: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(l_fa_base.base_id));
608: fnd_file.put_line(fnd_file.log,fnd_message.get());
609: RAISE MY_EXP;
610: END IF;
603: IF (cur_chk_duplicate_ssn%FOUND) THEN
604: CLOSE cur_chk_duplicate_ssn;
605: fnd_message.set_name( 'IGF', 'IGF_SL_SSN_IN_USE');
606: fnd_message.set_token('VALUE',SUBSTR(l_origination_id,1,9));
607: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(l_fa_base.base_id));
608: fnd_file.put_line(fnd_file.log,fnd_message.get());
609: RAISE MY_EXP;
610: END IF;
611: CLOSE cur_chk_duplicate_ssn;
604: CLOSE cur_chk_duplicate_ssn;
605: fnd_message.set_name( 'IGF', 'IGF_SL_SSN_IN_USE');
606: fnd_message.set_token('VALUE',SUBSTR(l_origination_id,1,9));
607: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(l_fa_base.base_id));
608: fnd_file.put_line(fnd_file.log,fnd_message.get());
609: RAISE MY_EXP;
610: END IF;
611: CLOSE cur_chk_duplicate_ssn;
612:
610: END IF;
611: CLOSE cur_chk_duplicate_ssn;
612:
613: IF ( l_error = 'ISIR' ) THEN
614: fnd_message.set_name( 'IGF', 'IGF_GR_ISIR_NOT_FOUND');
615: fnd_message.set_token('STUD', igf_gr_gen.get_per_num(l_fa_base.base_id));
616: fnd_file.put_line(fnd_file.log,fnd_message.get());
617: RAISE NO_SETUP;
618:
611: CLOSE cur_chk_duplicate_ssn;
612:
613: IF ( l_error = 'ISIR' ) THEN
614: fnd_message.set_name( 'IGF', 'IGF_GR_ISIR_NOT_FOUND');
615: fnd_message.set_token('STUD', igf_gr_gen.get_per_num(l_fa_base.base_id));
616: fnd_file.put_line(fnd_file.log,fnd_message.get());
617: RAISE NO_SETUP;
618:
619: ELSIF ( l_error = 'CAL' ) THEN
612:
613: IF ( l_error = 'ISIR' ) THEN
614: fnd_message.set_name( 'IGF', 'IGF_GR_ISIR_NOT_FOUND');
615: fnd_message.set_token('STUD', igf_gr_gen.get_per_num(l_fa_base.base_id));
616: fnd_file.put_line(fnd_file.log,fnd_message.get());
617: RAISE NO_SETUP;
618:
619: ELSIF ( l_error = 'CAL' ) THEN
620:
617: RAISE NO_SETUP;
618:
619: ELSIF ( l_error = 'CAL' ) THEN
620:
621: fnd_message.set_name( 'IGF', 'IGF_GR_CAL_NOT_FOUND');
622: fnd_message.set_token('STUD', igf_gr_gen.get_per_num(l_fa_base.base_id));
623: fnd_file.put_line(fnd_file.log,fnd_message.get());
624: RAISE NO_SETUP;
625:
618:
619: ELSIF ( l_error = 'CAL' ) THEN
620:
621: fnd_message.set_name( 'IGF', 'IGF_GR_CAL_NOT_FOUND');
622: fnd_message.set_token('STUD', igf_gr_gen.get_per_num(l_fa_base.base_id));
623: fnd_file.put_line(fnd_file.log,fnd_message.get());
624: RAISE NO_SETUP;
625:
626: ELSIF ( l_error = 'VAL_NULL' ) then
619: ELSIF ( l_error = 'CAL' ) THEN
620:
621: fnd_message.set_name( 'IGF', 'IGF_GR_CAL_NOT_FOUND');
622: fnd_message.set_token('STUD', igf_gr_gen.get_per_num(l_fa_base.base_id));
623: fnd_file.put_line(fnd_file.log,fnd_message.get());
624: RAISE NO_SETUP;
625:
626: ELSIF ( l_error = 'VAL_NULL' ) then
627:
624: RAISE NO_SETUP;
625:
626: ELSIF ( l_error = 'VAL_NULL' ) then
627:
628: fnd_message.set_name( 'IGF', 'IGF_GR_VALS_NULL');
629: fnd_message.set_token('STUD',igf_gr_gen.get_per_num(l_fa_base.base_id));
630: fnd_file.put_line(fnd_file.log,fnd_message.get());
631:
632: RAISE NO_SETUP;
625:
626: ELSIF ( l_error = 'VAL_NULL' ) then
627:
628: fnd_message.set_name( 'IGF', 'IGF_GR_VALS_NULL');
629: fnd_message.set_token('STUD',igf_gr_gen.get_per_num(l_fa_base.base_id));
630: fnd_file.put_line(fnd_file.log,fnd_message.get());
631:
632: RAISE NO_SETUP;
633:
626: ELSIF ( l_error = 'VAL_NULL' ) then
627:
628: fnd_message.set_name( 'IGF', 'IGF_GR_VALS_NULL');
629: fnd_message.set_token('STUD',igf_gr_gen.get_per_num(l_fa_base.base_id));
630: fnd_file.put_line(fnd_file.log,fnd_message.get());
631:
632: RAISE NO_SETUP;
633:
634: END IF;
675: IF (l_return_status = 'E') THEN
676: fnd_file.put_line(fnd_file.log,l_return_mesg_text);
677: ELSE
678: IF l_rfms_rec.pell_amount > l_ft_pell_amt THEN
679: fnd_message.set_name('IGF','IGF_GR_LI_PELL_AWD_SCH_MISMTH');
680: fnd_message.set_token('AWD_AMT',l_rfms_rec.pell_amount);
681: fnd_message.set_token('SCHDL_AMT',l_ft_pell_amt);
682: fnd_file.put_line(fnd_file.log,fnd_message.get);
683: RAISE my_exp;
676: fnd_file.put_line(fnd_file.log,l_return_mesg_text);
677: ELSE
678: IF l_rfms_rec.pell_amount > l_ft_pell_amt THEN
679: fnd_message.set_name('IGF','IGF_GR_LI_PELL_AWD_SCH_MISMTH');
680: fnd_message.set_token('AWD_AMT',l_rfms_rec.pell_amount);
681: fnd_message.set_token('SCHDL_AMT',l_ft_pell_amt);
682: fnd_file.put_line(fnd_file.log,fnd_message.get);
683: RAISE my_exp;
684: ELSE
677: ELSE
678: IF l_rfms_rec.pell_amount > l_ft_pell_amt THEN
679: fnd_message.set_name('IGF','IGF_GR_LI_PELL_AWD_SCH_MISMTH');
680: fnd_message.set_token('AWD_AMT',l_rfms_rec.pell_amount);
681: fnd_message.set_token('SCHDL_AMT',l_ft_pell_amt);
682: fnd_file.put_line(fnd_file.log,fnd_message.get);
683: RAISE my_exp;
684: ELSE
685: l_rfms_rec.ft_pell_amount := l_ft_pell_amt;
678: IF l_rfms_rec.pell_amount > l_ft_pell_amt THEN
679: fnd_message.set_name('IGF','IGF_GR_LI_PELL_AWD_SCH_MISMTH');
680: fnd_message.set_token('AWD_AMT',l_rfms_rec.pell_amount);
681: fnd_message.set_token('SCHDL_AMT',l_ft_pell_amt);
682: fnd_file.put_line(fnd_file.log,fnd_message.get);
683: RAISE my_exp;
684: ELSE
685: l_rfms_rec.ft_pell_amount := l_ft_pell_amt;
686: END IF;
814: x_full_resp_code => l_rfms_rec.full_resp_code,
815: x_document_id_txt => NULL );
816:
817: fnd_file.put_line(fnd_file.log,'');
818: fnd_message.set_name('IGF','IGF_GR_CREATE_RFMS');
819: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(l_fa_base.base_id));
820: fnd_message.set_token('ORIG_ID',l_rfms_rec.origination_id);
821: fnd_file.put_line(fnd_file.log, fnd_message.get);
822: fnd_file.put_line(fnd_file.log,'');
815: x_document_id_txt => NULL );
816:
817: fnd_file.put_line(fnd_file.log,'');
818: fnd_message.set_name('IGF','IGF_GR_CREATE_RFMS');
819: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(l_fa_base.base_id));
820: fnd_message.set_token('ORIG_ID',l_rfms_rec.origination_id);
821: fnd_file.put_line(fnd_file.log, fnd_message.get);
822: fnd_file.put_line(fnd_file.log,'');
823:
816:
817: fnd_file.put_line(fnd_file.log,'');
818: fnd_message.set_name('IGF','IGF_GR_CREATE_RFMS');
819: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(l_fa_base.base_id));
820: fnd_message.set_token('ORIG_ID',l_rfms_rec.origination_id);
821: fnd_file.put_line(fnd_file.log, fnd_message.get);
822: fnd_file.put_line(fnd_file.log,'');
823:
824: ln_cnt := ln_cnt + 1;
817: fnd_file.put_line(fnd_file.log,'');
818: fnd_message.set_name('IGF','IGF_GR_CREATE_RFMS');
819: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(l_fa_base.base_id));
820: fnd_message.set_token('ORIG_ID',l_rfms_rec.origination_id);
821: fnd_file.put_line(fnd_file.log, fnd_message.get);
822: fnd_file.put_line(fnd_file.log,'');
823:
824: ln_cnt := ln_cnt + 1;
825:
892: x_edit_code => l_rfmsd_rec.edit_code ,
893: x_rfmb_id => l_rfmsd_rec.rfmb_id,
894: x_ed_use_flags => l_rfmsd_rec.ed_use_flags);
895:
896: fnd_message.set_name('IGF','IGF_GR_CREATE_RFMS_DISB');
897: fnd_message.set_token('ORIG_ID',l_rfmsd_rec.origination_id);
898: fnd_message.set_token('DISB_NUM',l_rfmsd_rec.disb_ref_num);
899: fnd_file.put_line(fnd_file.log, fnd_message.get);
900: ELSIF c_rfms%FOUND THEN
893: x_rfmb_id => l_rfmsd_rec.rfmb_id,
894: x_ed_use_flags => l_rfmsd_rec.ed_use_flags);
895:
896: fnd_message.set_name('IGF','IGF_GR_CREATE_RFMS_DISB');
897: fnd_message.set_token('ORIG_ID',l_rfmsd_rec.origination_id);
898: fnd_message.set_token('DISB_NUM',l_rfmsd_rec.disb_ref_num);
899: fnd_file.put_line(fnd_file.log, fnd_message.get);
900: ELSIF c_rfms%FOUND THEN
901: CLOSE c_rfms;
894: x_ed_use_flags => l_rfmsd_rec.ed_use_flags);
895:
896: fnd_message.set_name('IGF','IGF_GR_CREATE_RFMS_DISB');
897: fnd_message.set_token('ORIG_ID',l_rfmsd_rec.origination_id);
898: fnd_message.set_token('DISB_NUM',l_rfmsd_rec.disb_ref_num);
899: fnd_file.put_line(fnd_file.log, fnd_message.get);
900: ELSIF c_rfms%FOUND THEN
901: CLOSE c_rfms;
902: END IF;
895:
896: fnd_message.set_name('IGF','IGF_GR_CREATE_RFMS_DISB');
897: fnd_message.set_token('ORIG_ID',l_rfmsd_rec.origination_id);
898: fnd_message.set_token('DISB_NUM',l_rfmsd_rec.disb_ref_num);
899: fnd_file.put_line(fnd_file.log, fnd_message.get);
900: ELSIF c_rfms%FOUND THEN
901: CLOSE c_rfms;
902: END IF;
903: END LOOP;
914:
915: EXCEPTION
916:
917: WHEN NO_SETUP THEN
918: fnd_message.set_name('IGF','IGF_SL_SKIPPING');
919: fnd_file.put_line(fnd_file.log,fnd_message.get);
920: fnd_file.new_line(fnd_file.log,1);
921:
922: WHEN MY_EXP THEN
915: EXCEPTION
916:
917: WHEN NO_SETUP THEN
918: fnd_message.set_name('IGF','IGF_SL_SKIPPING');
919: fnd_file.put_line(fnd_file.log,fnd_message.get);
920: fnd_file.new_line(fnd_file.log,1);
921:
922: WHEN MY_EXP THEN
923: fnd_message.set_name('IGF','IGF_SL_SKIPPING');
919: fnd_file.put_line(fnd_file.log,fnd_message.get);
920: fnd_file.new_line(fnd_file.log,1);
921:
922: WHEN MY_EXP THEN
923: fnd_message.set_name('IGF','IGF_SL_SKIPPING');
924: fnd_file.put_line(fnd_file.log,fnd_message.get);
925: fnd_file.new_line(fnd_file.log,1);
926: ln_cnt := ln_cnt +1;
927: END; -- Block
920: fnd_file.new_line(fnd_file.log,1);
921:
922: WHEN MY_EXP THEN
923: fnd_message.set_name('IGF','IGF_SL_SKIPPING');
924: fnd_file.put_line(fnd_file.log,fnd_message.get);
925: fnd_file.new_line(fnd_file.log,1);
926: ln_cnt := ln_cnt +1;
927: END; -- Block
928:
931:
932: IF ln_cnt > 0 THEN
933: NULL;
934: ELSE
935: fnd_message.set_name('IGF','IGF_AP_NO_DATA_FOUND'); -- Origination Record already exist
936: fnd_file.put_line(fnd_file.log,fnd_message.get);
937: END IF;
938:
939: EXCEPTION
932: IF ln_cnt > 0 THEN
933: NULL;
934: ELSE
935: fnd_message.set_name('IGF','IGF_AP_NO_DATA_FOUND'); -- Origination Record already exist
936: fnd_file.put_line(fnd_file.log,fnd_message.get);
937: END IF;
938:
939: EXCEPTION
940: WHEN OTHERS THEN
937: END IF;
938:
939: EXCEPTION
940: WHEN OTHERS THEN
941: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
942: fnd_message.set_token('NAME','IGF_GR_PELL.RFMS_LOAD_REC');
943: fnd_file.put_line(fnd_file.log,SQLERRM);
944: igs_ge_msg_stack.add;
945: app_exception.raise_exception;
938:
939: EXCEPTION
940: WHEN OTHERS THEN
941: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
942: fnd_message.set_token('NAME','IGF_GR_PELL.RFMS_LOAD_REC');
943: fnd_file.put_line(fnd_file.log,SQLERRM);
944: igs_ge_msg_stack.add;
945: app_exception.raise_exception;
946: END rfms_load_rec ;
990: l_ci_sequence_number := TO_NUMBER(SUBSTR(l_award_year,11));
991:
992: IF l_ci_cal_type IS NULL OR l_ci_sequence_number IS NULL THEN
993: retcode := 2 ;
994: errbuf := fnd_message.get_string('IGF','IGF_AW_PARAM_ERR');
995: igs_ge_msg_stack.conc_exception_hndl;
996: ELSE
997: rfms_load_rec(l_ci_cal_type,l_ci_sequence_number,l_base_id);
998:
1004:
1005: WHEN app_exception.record_lock_exception THEN
1006: ROLLBACK;
1007: retcode:=2;
1008: fnd_message.set_name('IGF','IGF_GE_LOCK_ERROR');
1009: igs_ge_msg_stack.add;
1010: errbuf := fnd_message.get;
1011:
1012: WHEN OTHERS THEN
1006: ROLLBACK;
1007: retcode:=2;
1008: fnd_message.set_name('IGF','IGF_GE_LOCK_ERROR');
1009: igs_ge_msg_stack.add;
1010: errbuf := fnd_message.get;
1011:
1012: WHEN OTHERS THEN
1013: ROLLBACK;
1014: retcode:=2;
1011:
1012: WHEN OTHERS THEN
1013: ROLLBACK;
1014: retcode:=2;
1015: errbuf := fnd_message.get_string('IGS','IGS_GE_UNHANDLED_EXCEPTION');
1016: fnd_file.put_line(fnd_file.log,SQLERRM);
1017: igs_ge_msg_stack.conc_exception_hndl;
1018:
1019: END rfms_load ;
1096:
1097: EXCEPTION
1098:
1099: WHEN OTHERS THEN
1100: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1101: fnd_message.set_token('NAME','IGF_GR_PELL.GENERATE_ORIGINATION_ID' ||' '||SQLERRM);
1102: igs_ge_msg_stack.add;
1103: app_exception.raise_exception;
1104:
1097: EXCEPTION
1098:
1099: WHEN OTHERS THEN
1100: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1101: fnd_message.set_token('NAME','IGF_GR_PELL.GENERATE_ORIGINATION_ID' ||' '||SQLERRM);
1102: igs_ge_msg_stack.add;
1103: app_exception.raise_exception;
1104:
1105: END generate_origination_id;