357:
358: EXCEPTION
359: WHEN OTHERS THEN
360: CLOSE c_ver_item_exists ;
361: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP') ;
362: IGS_GE_MSG_STACK.ADD ;
363:
364: RETURN TRUE ;
365: END ;
505: igf_ap_batch_ver_prc_pkg.update_fed_verif_status(p_base_id,'SELECTED');
506:
507: ELSE
508:
509: FND_MESSAGE.SET_NAME('IGF','IGF_AP_VER_ITEM_PRESENT');
510: FND_MESSAGE.SET_TOKEN('ITEM', lv_meaning);
511: FND_FILE.PUT_LINE(FND_FILE.LOG ,FND_MESSAGE.GET);
512: END IF ;
513: END IF ;
506:
507: ELSE
508:
509: FND_MESSAGE.SET_NAME('IGF','IGF_AP_VER_ITEM_PRESENT');
510: FND_MESSAGE.SET_TOKEN('ITEM', lv_meaning);
511: FND_FILE.PUT_LINE(FND_FILE.LOG ,FND_MESSAGE.GET);
512: END IF ;
513: END IF ;
514: RETURN lb_return_value;
507: ELSE
508:
509: FND_MESSAGE.SET_NAME('IGF','IGF_AP_VER_ITEM_PRESENT');
510: FND_MESSAGE.SET_TOKEN('ITEM', lv_meaning);
511: FND_FILE.PUT_LINE(FND_FILE.LOG ,FND_MESSAGE.GET);
512: END IF ;
513: END IF ;
514: RETURN lb_return_value;
515:
517: WHEN OTHERS THEN
518: IF cur_isir_desc%ISOPEN THEN
519: CLOSE cur_isir_desc;
520: END IF;
521: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP') ;
522: FND_MESSAGE.SET_TOKEN('NAME','IGF_AP_ASSIGN_VER_ITEM_PKG.ADD_VER_ITEM') ;
523: IGS_GE_MSG_STACK.ADD ;
524: APP_EXCEPTION.RAISE_EXCEPTION ;
525: END add_ver_item ;
518: IF cur_isir_desc%ISOPEN THEN
519: CLOSE cur_isir_desc;
520: END IF;
521: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP') ;
522: FND_MESSAGE.SET_TOKEN('NAME','IGF_AP_ASSIGN_VER_ITEM_PKG.ADD_VER_ITEM') ;
523: IGS_GE_MSG_STACK.ADD ;
524: APP_EXCEPTION.RAISE_EXCEPTION ;
525: END add_ver_item ;
526:
638: END IF;
639: -- If Person ID Group and Person ID both are present then,
640: -- exit the process stating that either of the one should be present.
641: IF p_base_id IS NOT NULL AND p_prs_grp_id IS NOT NULL THEN
642: FND_MESSAGE.SET_NAME('IGS','IGS_FI_NO_PERS_PGRP');
643: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
644: retcode := 2;
645: errbuf := FND_MESSAGE.GET_STRING('IGS','IGS_FI_NO_PERS_PGRP');
646: RETURN ;
639: -- If Person ID Group and Person ID both are present then,
640: -- exit the process stating that either of the one should be present.
641: IF p_base_id IS NOT NULL AND p_prs_grp_id IS NOT NULL THEN
642: FND_MESSAGE.SET_NAME('IGS','IGS_FI_NO_PERS_PGRP');
643: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
644: retcode := 2;
645: errbuf := FND_MESSAGE.GET_STRING('IGS','IGS_FI_NO_PERS_PGRP');
646: RETURN ;
647:
641: IF p_base_id IS NOT NULL AND p_prs_grp_id IS NOT NULL THEN
642: FND_MESSAGE.SET_NAME('IGS','IGS_FI_NO_PERS_PGRP');
643: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
644: retcode := 2;
645: errbuf := FND_MESSAGE.GET_STRING('IGS','IGS_FI_NO_PERS_PGRP');
646: RETURN ;
647:
648:
649: ELSIF p_base_id IS NULL AND p_prs_grp_id IS NULL THEN
646: RETURN ;
647:
648:
649: ELSIF p_base_id IS NULL AND p_prs_grp_id IS NULL THEN
650: FND_MESSAGE.SET_NAME('IGS','IGS_FI_PRS_PRSIDGRP_NULL');
651: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
652: retcode := 2;
653: errbuf := FND_MESSAGE.GET_STRING('IGS','IGS_FI_PRS_PRSIDGRP_NULL');
654: RETURN ;
647:
648:
649: ELSIF p_base_id IS NULL AND p_prs_grp_id IS NULL THEN
650: FND_MESSAGE.SET_NAME('IGS','IGS_FI_PRS_PRSIDGRP_NULL');
651: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
652: retcode := 2;
653: errbuf := FND_MESSAGE.GET_STRING('IGS','IGS_FI_PRS_PRSIDGRP_NULL');
654: RETURN ;
655: END IF;
649: ELSIF p_base_id IS NULL AND p_prs_grp_id IS NULL THEN
650: FND_MESSAGE.SET_NAME('IGS','IGS_FI_PRS_PRSIDGRP_NULL');
651: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
652: retcode := 2;
653: errbuf := FND_MESSAGE.GET_STRING('IGS','IGS_FI_PRS_PRSIDGRP_NULL');
654: RETURN ;
655: END IF;
656:
657: -- fnd_file.put_line(fnd_file.log, 'SQL Statement:'|| lv_sql_stmt);
669: END IF;
670:
671: EXCEPTION
672: WHEN OTHERS THEN
673: FND_MESSAGE.SET_NAME ('IGF','IGF_AP_INVALID_QUERY');
674: FND_FILE.PUT_LINE (FND_FILE.LOG,FND_MESSAGE.GET);
675: RETURN;
676: END;
677:
670:
671: EXCEPTION
672: WHEN OTHERS THEN
673: FND_MESSAGE.SET_NAME ('IGF','IGF_AP_INVALID_QUERY');
674: FND_FILE.PUT_LINE (FND_FILE.LOG,FND_MESSAGE.GET);
675: RETURN;
676: END;
677:
678: IF ln_stdnt_count = 0 THEN
675: RETURN;
676: END;
677:
678: IF ln_stdnt_count = 0 THEN
679: FND_MESSAGE.SET_NAME('IGF','IGF_DB_NO_PER_GRP');
680: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
681: retcode := 2;
682: errbuf := FND_MESSAGE.GET_STRING('IGF','IGF_DB_NO_PER_GRP');
683: RETURN;
676: END;
677:
678: IF ln_stdnt_count = 0 THEN
679: FND_MESSAGE.SET_NAME('IGF','IGF_DB_NO_PER_GRP');
680: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
681: retcode := 2;
682: errbuf := FND_MESSAGE.GET_STRING('IGF','IGF_DB_NO_PER_GRP');
683: RETURN;
684: END IF;
678: IF ln_stdnt_count = 0 THEN
679: FND_MESSAGE.SET_NAME('IGF','IGF_DB_NO_PER_GRP');
680: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
681: retcode := 2;
682: errbuf := FND_MESSAGE.GET_STRING('IGF','IGF_DB_NO_PER_GRP');
683: RETURN;
684: END IF;
685: END IF ;
686:
690: OPEN c_person_details(p_base_id);
691: FETCH c_person_details INTO lc_person_details_rec;
692: CLOSE c_person_details;
693:
694: FND_MESSAGE.SET_NAME('IGF','IGF_AP_PROCESSING_STUDENT');
695: FND_MESSAGE.SET_TOKEN('PERSON_NAME', lc_person_details_rec.full_name);
696: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', lc_person_details_rec.person_number);
697: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
698:
691: FETCH c_person_details INTO lc_person_details_rec;
692: CLOSE c_person_details;
693:
694: FND_MESSAGE.SET_NAME('IGF','IGF_AP_PROCESSING_STUDENT');
695: FND_MESSAGE.SET_TOKEN('PERSON_NAME', lc_person_details_rec.full_name);
696: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', lc_person_details_rec.person_number);
697: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
698:
699: -- process records
692: CLOSE c_person_details;
693:
694: FND_MESSAGE.SET_NAME('IGF','IGF_AP_PROCESSING_STUDENT');
695: FND_MESSAGE.SET_TOKEN('PERSON_NAME', lc_person_details_rec.full_name);
696: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', lc_person_details_rec.person_number);
697: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
698:
699: -- process records
700: -- Assign verification item for all the students
693:
694: FND_MESSAGE.SET_NAME('IGF','IGF_AP_PROCESSING_STUDENT');
695: FND_MESSAGE.SET_TOKEN('PERSON_NAME', lc_person_details_rec.full_name);
696: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', lc_person_details_rec.person_number);
697: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
698:
699: -- process records
700: -- Assign verification item for all the students
701:
759: CLOSE c_get_parameters;
760: FND_FILE.PUT_LINE(FND_FILE.LOG,l_person_number|| ' : '|| c_person_id_grp_rec.person_number);
761:
762: -- Log a message and skip the student
763: FND_MESSAGE.SET_NAME('IGF','IGF_AP_NO_BASEID');
764: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
765:
766: ELSE
767: ln_base_id := ln_base_id_rec.base_id ;
760: FND_FILE.PUT_LINE(FND_FILE.LOG,l_person_number|| ' : '|| c_person_id_grp_rec.person_number);
761:
762: -- Log a message and skip the student
763: FND_MESSAGE.SET_NAME('IGF','IGF_AP_NO_BASEID');
764: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
765:
766: ELSE
767: ln_base_id := ln_base_id_rec.base_id ;
768:
768:
769: OPEN c_person_details(ln_base_id);
770: FETCH c_person_details INTO lc_person_details_rec;
771: CLOSE c_person_details;
772: FND_MESSAGE.SET_NAME('IGF','IGF_AP_PROCESSING_STUDENT');
773: FND_MESSAGE.SET_TOKEN('PERSON_NAME', lc_person_details_rec.full_name);
774: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', lc_person_details_rec.person_number);
775: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
776:
769: OPEN c_person_details(ln_base_id);
770: FETCH c_person_details INTO lc_person_details_rec;
771: CLOSE c_person_details;
772: FND_MESSAGE.SET_NAME('IGF','IGF_AP_PROCESSING_STUDENT');
773: FND_MESSAGE.SET_TOKEN('PERSON_NAME', lc_person_details_rec.full_name);
774: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', lc_person_details_rec.person_number);
775: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
776:
777:
770: FETCH c_person_details INTO lc_person_details_rec;
771: CLOSE c_person_details;
772: FND_MESSAGE.SET_NAME('IGF','IGF_AP_PROCESSING_STUDENT');
773: FND_MESSAGE.SET_TOKEN('PERSON_NAME', lc_person_details_rec.full_name);
774: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', lc_person_details_rec.person_number);
775: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
776:
777:
778: -- process records
771: CLOSE c_person_details;
772: FND_MESSAGE.SET_NAME('IGF','IGF_AP_PROCESSING_STUDENT');
773: FND_MESSAGE.SET_TOKEN('PERSON_NAME', lc_person_details_rec.full_name);
774: FND_MESSAGE.SET_TOKEN('PERSON_NUMBER', lc_person_details_rec.person_number);
775: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
776:
777:
778: -- process records
779: -- Assign verification item for all the students
808: WHEN OTHERS THEN
809: ROLLBACK;
810: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM) ;
811: RETCODE := 2 ;
812: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP') ;
813: FND_MESSAGE.SET_TOKEN('NAME','IGF_AP_ASSIGN_VER_ITEM_PKG.MAIN') ;
814: errbuf := FND_MESSAGE.GET ;
815: IGS_GE_MSG_STACK.CONC_EXCEPTION_HNDL ;
816: END main;
809: ROLLBACK;
810: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM) ;
811: RETCODE := 2 ;
812: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP') ;
813: FND_MESSAGE.SET_TOKEN('NAME','IGF_AP_ASSIGN_VER_ITEM_PKG.MAIN') ;
814: errbuf := FND_MESSAGE.GET ;
815: IGS_GE_MSG_STACK.CONC_EXCEPTION_HNDL ;
816: END main;
817:
810: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM) ;
811: RETCODE := 2 ;
812: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP') ;
813: FND_MESSAGE.SET_TOKEN('NAME','IGF_AP_ASSIGN_VER_ITEM_PKG.MAIN') ;
814: errbuf := FND_MESSAGE.GET ;
815: IGS_GE_MSG_STACK.CONC_EXCEPTION_HNDL ;
816: END main;
817:
818: