81: FND_FILE.PUT_LINE( FND_FILE.LOG, RPAD( l_award_year_pmpt, 40) || ' : '|| p_alternate_code ) ;
82:
83: FND_FILE.PUT_LINE( FND_FILE.LOG, RPAD( l_batch_num_prmpt, 40) || ' : '|| TO_CHAR(p_batch_num) || '-' || l_batch_desc ) ;
84:
85: FND_FILE.PUT_LINE( FND_FILE.LOG, RPAD( FND_MESSAGE.GET_STRING('IGS','IGS_GE_ASK_DEL_REC'), 40) || ' : '|| l_yes_no ) ;
86: FND_FILE.PUT_LINE( FND_FILE.LOG, ' ');
87: FND_FILE.PUT_LINE( FND_FILE.LOG, '-------------------------------------------------------------');
88: FND_FILE.PUT_LINE( FND_FILE.LOG, ' ');
89:
165: WHEN OTHERS THEN
166: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
167: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_lg_ver_imp.check_dup_ver.exception','Unhandled Exception :'||SQLERRM);
168: END IF;
169: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
170: fnd_message.set_token('NAME','IGF_AP_LG_VER_IMP.CHECK_DUP_VER');
171: igs_ge_msg_stack.add;
172: app_exception.raise_exception;
173:
166: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
167: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_lg_ver_imp.check_dup_ver.exception','Unhandled Exception :'||SQLERRM);
168: END IF;
169: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
170: fnd_message.set_token('NAME','IGF_AP_LG_VER_IMP.CHECK_DUP_VER');
171: igs_ge_msg_stack.add;
172: app_exception.raise_exception;
173:
174: END check_dup_ver ;
208: WHEN OTHERS THEN
209: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
210: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_lg_ver_imp.chk_corr_items.exception','Unhandled Exception :'||SQLERRM);
211: END IF;
212: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
213: fnd_message.set_token('NAME','IGF_AP_LG_VER_IMP.CHK_CORR_ITEMS');
214: igs_ge_msg_stack.add;
215: app_exception.raise_exception;
216:
209: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
210: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_lg_ver_imp.chk_corr_items.exception','Unhandled Exception :'||SQLERRM);
211: END IF;
212: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
213: fnd_message.set_token('NAME','IGF_AP_LG_VER_IMP.CHK_CORR_ITEMS');
214: igs_ge_msg_stack.add;
215: app_exception.raise_exception;
216:
217: END chk_corr_items ;
247: WHEN OTHERS THEN
248: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
249: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_lg_ver_imp.delete_ver_items.exception','Unhandled Exception :'||SQLERRM);
250: END IF;
251: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
252: fnd_message.set_token('NAME','IGF_AP_LG_VER_IMP.DELETE_VER_TERMS');
253: igs_ge_msg_stack.add;
254: app_exception.raise_exception;
255:
248: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
249: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_lg_ver_imp.delete_ver_items.exception','Unhandled Exception :'||SQLERRM);
250: END IF;
251: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
252: fnd_message.set_token('NAME','IGF_AP_LG_VER_IMP.DELETE_VER_TERMS');
253: igs_ge_msg_stack.add;
254: app_exception.raise_exception;
255:
256: END delete_ver_items ;
401: WHEN OTHERS THEN
402: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
403: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_lg_ver_imp.upd_fed_verif_status.exception','Unhandled Exception :'||SQLERRM);
404: END IF;
405: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
406: fnd_message.set_token('NAME','IGF_AP_LG_VER_IMP.UPD_FED_VERIF_STATUS');
407: igs_ge_msg_stack.add;
408: app_exception.raise_exception;
409:
402: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
403: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_lg_ver_imp.upd_fed_verif_status.exception','Unhandled Exception :'||SQLERRM);
404: END IF;
405: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
406: fnd_message.set_token('NAME','IGF_AP_LG_VER_IMP.UPD_FED_VERIF_STATUS');
407: igs_ge_msg_stack.add;
408: app_exception.raise_exception;
409:
410: END upd_fed_verif_status ;
541: FETCH c_get_stat INTO g_award_year_status, g_sys_award_year ;
542: -- check validity of award year
543: IF c_get_stat%NOTFOUND THEN
544: -- Award Year setup tampered .... Log a message
545: FND_MESSAGE.SET_NAME('IGF','IGF_AP_AWD_YR_NOT_FOUND');
546: FND_MESSAGE.SET_TOKEN('P_AWARD_YEAR', l_alternate_code);
547: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
548: g_terminate_process := TRUE ;
549: ELSE
542: -- check validity of award year
543: IF c_get_stat%NOTFOUND THEN
544: -- Award Year setup tampered .... Log a message
545: FND_MESSAGE.SET_NAME('IGF','IGF_AP_AWD_YR_NOT_FOUND');
546: FND_MESSAGE.SET_TOKEN('P_AWARD_YEAR', l_alternate_code);
547: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
548: g_terminate_process := TRUE ;
549: ELSE
550: -- Award year exists but is it Open/Legacy Details .... check
543: IF c_get_stat%NOTFOUND THEN
544: -- Award Year setup tampered .... Log a message
545: FND_MESSAGE.SET_NAME('IGF','IGF_AP_AWD_YR_NOT_FOUND');
546: FND_MESSAGE.SET_TOKEN('P_AWARD_YEAR', l_alternate_code);
547: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
548: g_terminate_process := TRUE ;
549: ELSE
550: -- Award year exists but is it Open/Legacy Details .... check
551: IF g_award_year_status NOT IN ('O','LD') THEN
548: g_terminate_process := TRUE ;
549: ELSE
550: -- Award year exists but is it Open/Legacy Details .... check
551: IF g_award_year_status NOT IN ('O','LD') THEN
552: FND_MESSAGE.SET_NAME('IGF','IGF_AP_LG_INVALID_STAT');
553: FND_MESSAGE.SET_TOKEN('AWARD_STATUS', g_award_year_status);
554: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
555: g_terminate_process := TRUE ;
556: END IF ; -- awd ye open or legacy detail chk
549: ELSE
550: -- Award year exists but is it Open/Legacy Details .... check
551: IF g_award_year_status NOT IN ('O','LD') THEN
552: FND_MESSAGE.SET_NAME('IGF','IGF_AP_LG_INVALID_STAT');
553: FND_MESSAGE.SET_TOKEN('AWARD_STATUS', g_award_year_status);
554: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
555: g_terminate_process := TRUE ;
556: END IF ; -- awd ye open or legacy detail chk
557: END IF ; -- award year invalid check
550: -- Award year exists but is it Open/Legacy Details .... check
551: IF g_award_year_status NOT IN ('O','LD') THEN
552: FND_MESSAGE.SET_NAME('IGF','IGF_AP_LG_INVALID_STAT');
553: FND_MESSAGE.SET_TOKEN('AWARD_STATUS', g_award_year_status);
554: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
555: g_terminate_process := TRUE ;
556: END IF ; -- awd ye open or legacy detail chk
557: END IF ; -- award year invalid check
558: CLOSE c_get_stat ;
559:
560: -- check validity of batch
561: l_batch_valid := igf_ap_gen.check_batch ( p_batch_num, 'VERIF') ;
562: IF NVL(l_batch_valid,'N') <> 'Y' THEN
563: FND_MESSAGE.SET_NAME('IGF','IGF_GR_BATCH_DOES_NOT_EXIST');
564: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
565: g_terminate_process := TRUE ;
566: END IF;
567:
560: -- check validity of batch
561: l_batch_valid := igf_ap_gen.check_batch ( p_batch_num, 'VERIF') ;
562: IF NVL(l_batch_valid,'N') <> 'Y' THEN
563: FND_MESSAGE.SET_NAME('IGF','IGF_GR_BATCH_DOES_NOT_EXIST');
564: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
565: g_terminate_process := TRUE ;
566: END IF;
567:
568: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
607: IF l_per_item_count > 0 THEN
608: IF l_fed_verif_status IN ('SELECTED','NOTSELECTED') THEN
609: IF l_doc_null_flag THEN
610: l_new_fed_verif_status := 'WITHOUTDOC' ;
611: FND_MESSAGE.SET_NAME('IGF','IGF_AP_VER_STAT_WITHOUT_DOC');
612: g_log_tab_index := g_log_tab_index + 1;
613: g_log_tab(g_log_tab_index).person_number := l_last_person_number ;
614: g_log_tab(g_log_tab_index).message_text := RPAD(null,12) || fnd_message.get;
615: END IF ;
610: l_new_fed_verif_status := 'WITHOUTDOC' ;
611: FND_MESSAGE.SET_NAME('IGF','IGF_AP_VER_STAT_WITHOUT_DOC');
612: g_log_tab_index := g_log_tab_index + 1;
613: g_log_tab(g_log_tab_index).person_number := l_last_person_number ;
614: g_log_tab(g_log_tab_index).message_text := RPAD(null,12) || fnd_message.get;
615: END IF ;
616: IF NOT l_doc_null_flag AND NOT l_diff_flag THEN
617: l_new_fed_verif_status := 'ACCURATE' ;
618: FND_MESSAGE.SET_NAME('IGF','IGF_AP_VER_STAT_ACCURATE');
614: g_log_tab(g_log_tab_index).message_text := RPAD(null,12) || fnd_message.get;
615: END IF ;
616: IF NOT l_doc_null_flag AND NOT l_diff_flag THEN
617: l_new_fed_verif_status := 'ACCURATE' ;
618: FND_MESSAGE.SET_NAME('IGF','IGF_AP_VER_STAT_ACCURATE');
619: g_log_tab_index := g_log_tab_index + 1;
620: g_log_tab(g_log_tab_index).person_number := l_last_person_number;
621: g_log_tab(g_log_tab_index).message_text := RPAD(null,12) || fnd_message.get;
622: END IF ;
617: l_new_fed_verif_status := 'ACCURATE' ;
618: FND_MESSAGE.SET_NAME('IGF','IGF_AP_VER_STAT_ACCURATE');
619: g_log_tab_index := g_log_tab_index + 1;
620: g_log_tab(g_log_tab_index).person_number := l_last_person_number;
621: g_log_tab(g_log_tab_index).message_text := RPAD(null,12) || fnd_message.get;
622: END IF ;
623: IF NOT l_doc_null_flag AND l_diff_flag THEN
624: l_new_fed_verif_status := 'SELECTED' ;
625: FND_MESSAGE.SET_NAME('IGF','IGF_AP_VER_STAT_SELECTED');
621: g_log_tab(g_log_tab_index).message_text := RPAD(null,12) || fnd_message.get;
622: END IF ;
623: IF NOT l_doc_null_flag AND l_diff_flag THEN
624: l_new_fed_verif_status := 'SELECTED' ;
625: FND_MESSAGE.SET_NAME('IGF','IGF_AP_VER_STAT_SELECTED');
626: g_log_tab_index := g_log_tab_index + 1;
627: g_log_tab(g_log_tab_index).person_number := l_last_person_number;
628: g_log_tab(g_log_tab_index).message_text := RPAD(null,12) || fnd_message.get;
629: END IF ;
624: l_new_fed_verif_status := 'SELECTED' ;
625: FND_MESSAGE.SET_NAME('IGF','IGF_AP_VER_STAT_SELECTED');
626: g_log_tab_index := g_log_tab_index + 1;
627: g_log_tab(g_log_tab_index).person_number := l_last_person_number;
628: g_log_tab(g_log_tab_index).message_text := RPAD(null,12) || fnd_message.get;
629: END IF ;
630:
631: upd_fed_verif_status ( l_new_fed_verif_status) ;
632: -- commit after updating the fa base rec
651: igf_ap_gen.check_person ( person_rec.person_number, g_ci_cal_type, g_ci_sequence_number,
652: l_person_id, l_fa_base_id) ;
653:
654: IF l_person_id IS NULL THEN
655: FND_MESSAGE.SET_NAME('IGF','IGF_AP_PE_NOT_EXIST');
656: g_log_tab_index := g_log_tab_index + 1;
657: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
658: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
659: g_skip_person := TRUE ;
654: IF l_person_id IS NULL THEN
655: FND_MESSAGE.SET_NAME('IGF','IGF_AP_PE_NOT_EXIST');
656: g_log_tab_index := g_log_tab_index + 1;
657: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
658: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
659: g_skip_person := TRUE ;
660: ELSIF l_fa_base_id IS NULL THEN
661: FND_MESSAGE.SET_NAME('IGF','IGF_AP_FABASE_NOT_FOUND');
662: g_log_tab_index := g_log_tab_index + 1;
657: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
658: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
659: g_skip_person := TRUE ;
660: ELSIF l_fa_base_id IS NULL THEN
661: FND_MESSAGE.SET_NAME('IGF','IGF_AP_FABASE_NOT_FOUND');
662: g_log_tab_index := g_log_tab_index + 1;
663: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
664: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
665: g_skip_person := TRUE ;
660: ELSIF l_fa_base_id IS NULL THEN
661: FND_MESSAGE.SET_NAME('IGF','IGF_AP_FABASE_NOT_FOUND');
662: g_log_tab_index := g_log_tab_index + 1;
663: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
664: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
665: g_skip_person := TRUE ;
666: ELSE
667: g_skip_person := FALSE ;
668: END IF ; -- person existence check
681: l_pay_isir_id := act_pay_isir_rec.isir_id ;
682: END IF ;
683: END LOOP ;
684: IF l_act_isir_id IS NULL THEN
685: FND_MESSAGE.SET_NAME('IGF','IGF_AP_ACT_ISIR_NOT_FOUND');
686: g_log_tab_index := g_log_tab_index + 1;
687: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
688: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
689: g_skip_person := TRUE ;
684: IF l_act_isir_id IS NULL THEN
685: FND_MESSAGE.SET_NAME('IGF','IGF_AP_ACT_ISIR_NOT_FOUND');
686: g_log_tab_index := g_log_tab_index + 1;
687: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
688: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
689: g_skip_person := TRUE ;
690: END IF ;
691: IF l_pay_isir_id IS NULL THEN
692: FND_MESSAGE.SET_NAME('IGF','IGF_AP_NO_PAY_ISIR');
688: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
689: g_skip_person := TRUE ;
690: END IF ;
691: IF l_pay_isir_id IS NULL THEN
692: FND_MESSAGE.SET_NAME('IGF','IGF_AP_NO_PAY_ISIR');
693: g_log_tab_index := g_log_tab_index + 1;
694: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
695: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
696: g_skip_person := TRUE ;
691: IF l_pay_isir_id IS NULL THEN
692: FND_MESSAGE.SET_NAME('IGF','IGF_AP_NO_PAY_ISIR');
693: g_log_tab_index := g_log_tab_index + 1;
694: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
695: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
696: g_skip_person := TRUE ;
697: END IF ;
698: END IF ;
699: END IF ; -- person already processed check
720: --COMMIT ;
721: ELSE -- person not to b skipped
722: -- Item level validations ...
723: l_token := person_rec.sar_field_label_code || ' VERINT_ID - ' || TO_CHAR(person_rec.verint_id) ;
724: FND_MESSAGE.SET_NAME('IGF','IGF_AP_PROC_ITM');
725: FND_MESSAGE.SET_TOKEN('ITEM', l_token );
726: g_log_tab_index := g_log_tab_index + 1;
727: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
728: g_log_tab(g_log_tab_index).message_text := RPAD(null,12) || fnd_message.get;
721: ELSE -- person not to b skipped
722: -- Item level validations ...
723: l_token := person_rec.sar_field_label_code || ' VERINT_ID - ' || TO_CHAR(person_rec.verint_id) ;
724: FND_MESSAGE.SET_NAME('IGF','IGF_AP_PROC_ITM');
725: FND_MESSAGE.SET_TOKEN('ITEM', l_token );
726: g_log_tab_index := g_log_tab_index + 1;
727: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
728: g_log_tab(g_log_tab_index).message_text := RPAD(null,12) || fnd_message.get;
729:
724: FND_MESSAGE.SET_NAME('IGF','IGF_AP_PROC_ITM');
725: FND_MESSAGE.SET_TOKEN('ITEM', l_token );
726: g_log_tab_index := g_log_tab_index + 1;
727: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
728: g_log_tab(g_log_tab_index).message_text := RPAD(null,12) || fnd_message.get;
729:
730: -- ver item valid
731: OPEN c_get_sar_num ( g_sys_award_year, person_rec.sar_field_label_code);
732: FETCH c_get_sar_num INTO l_sar_num ;
732: FETCH c_get_sar_num INTO l_sar_num ;
733: -- if no Ver Item found
734: IF c_get_sar_num%NOTFOUND THEN
735: l_sar_num := NULL ;
736: FND_MESSAGE.SET_NAME('IGF','IGF_AP_INVALID_VERN_ITM');
737: FND_MESSAGE.SET_TOKEN('ITEM', person_rec.sar_field_label_code);
738: g_log_tab_index := g_log_tab_index + 1;
739: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
740: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
733: -- if no Ver Item found
734: IF c_get_sar_num%NOTFOUND THEN
735: l_sar_num := NULL ;
736: FND_MESSAGE.SET_NAME('IGF','IGF_AP_INVALID_VERN_ITM');
737: FND_MESSAGE.SET_TOKEN('ITEM', person_rec.sar_field_label_code);
738: g_log_tab_index := g_log_tab_index + 1;
739: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
740: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
741: g_skip_record := TRUE ;
736: FND_MESSAGE.SET_NAME('IGF','IGF_AP_INVALID_VERN_ITM');
737: FND_MESSAGE.SET_TOKEN('ITEM', person_rec.sar_field_label_code);
738: g_log_tab_index := g_log_tab_index + 1;
739: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
740: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
741: g_skip_record := TRUE ;
742: END IF ;
743: CLOSE c_get_sar_num;
744:
746: IF l_sar_num is NOT NULL THEN
747: check_dup_ver ( l_sar_num, l_fa_base_id, l_dup_item_found) ;
748: IF l_dup_item_found AND NVL(person_rec.import_record_type,'A') <> 'U' THEN
749: -- log a message for duplicate
750: FND_MESSAGE.SET_NAME('IGF','IGF_AP_VER_ITM_EXIST');
751: FND_MESSAGE.SET_TOKEN('ITEM', person_rec.sar_field_label_code);
752: g_log_tab_index := g_log_tab_index + 1;
753: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
754: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
747: check_dup_ver ( l_sar_num, l_fa_base_id, l_dup_item_found) ;
748: IF l_dup_item_found AND NVL(person_rec.import_record_type,'A') <> 'U' THEN
749: -- log a message for duplicate
750: FND_MESSAGE.SET_NAME('IGF','IGF_AP_VER_ITM_EXIST');
751: FND_MESSAGE.SET_TOKEN('ITEM', person_rec.sar_field_label_code);
752: g_log_tab_index := g_log_tab_index + 1;
753: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
754: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
755: g_skip_record := TRUE ;
750: FND_MESSAGE.SET_NAME('IGF','IGF_AP_VER_ITM_EXIST');
751: FND_MESSAGE.SET_TOKEN('ITEM', person_rec.sar_field_label_code);
752: g_log_tab_index := g_log_tab_index + 1;
753: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
754: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
755: g_skip_record := TRUE ;
756: END IF ;
757: IF (NOT l_dup_item_found) AND NVL(person_rec.import_record_type,'A') = 'U' THEN
758: -- log a message for duplicate
755: g_skip_record := TRUE ;
756: END IF ;
757: IF (NOT l_dup_item_found) AND NVL(person_rec.import_record_type,'A') = 'U' THEN
758: -- log a message for duplicate
759: FND_MESSAGE.SET_NAME('IGF','IGF_AP_ORIG_REC_NOT_FOUND');
760: g_log_tab_index := g_log_tab_index + 1;
761: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
762: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) ||fnd_message.get;
763: g_skip_record := TRUE ;
758: -- log a message for duplicate
759: FND_MESSAGE.SET_NAME('IGF','IGF_AP_ORIG_REC_NOT_FOUND');
760: g_log_tab_index := g_log_tab_index + 1;
761: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
762: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) ||fnd_message.get;
763: g_skip_record := TRUE ;
764: END IF ;
765:
766: IF l_dup_item_found THEN
767: -- check if corrections have been created for the ver item
768: l_corr_exist := FALSE ;
769: chk_corr_items ( l_pay_isir_id , l_sar_num , l_corr_exist) ;
770: IF l_corr_exist THEN
771: FND_MESSAGE.SET_NAME('IGF','IGF_AP_VER_CORR_GEN');
772: g_log_tab_index := g_log_tab_index + 1;
773: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
774: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) ||fnd_message.get;
775: g_skip_record := TRUE ;
770: IF l_corr_exist THEN
771: FND_MESSAGE.SET_NAME('IGF','IGF_AP_VER_CORR_GEN');
772: g_log_tab_index := g_log_tab_index + 1;
773: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
774: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) ||fnd_message.get;
775: g_skip_record := TRUE ;
776: END IF ;
777: END IF ; -- end of dup found ...
778: END IF ; -- end of sar null chk
882:
883: IF l_fed_verif_status IN ('SELECTED','NOTSELECTED') THEN
884: IF l_doc_null_flag THEN
885: l_new_fed_verif_status := 'WITHOUTDOC' ;
886: FND_MESSAGE.SET_NAME('IGF','IGF_AP_VER_STAT_WITHOUT_DOC');
887: g_log_tab_index := g_log_tab_index + 1;
888: g_log_tab(g_log_tab_index).person_number := l_last_person_number ;
889: g_log_tab(g_log_tab_index).message_text := RPAD(null,12) || fnd_message.get;
890: END IF ;
885: l_new_fed_verif_status := 'WITHOUTDOC' ;
886: FND_MESSAGE.SET_NAME('IGF','IGF_AP_VER_STAT_WITHOUT_DOC');
887: g_log_tab_index := g_log_tab_index + 1;
888: g_log_tab(g_log_tab_index).person_number := l_last_person_number ;
889: g_log_tab(g_log_tab_index).message_text := RPAD(null,12) || fnd_message.get;
890: END IF ;
891: IF NOT l_doc_null_flag AND NOT l_diff_flag THEN
892: l_new_fed_verif_status := 'ACCURATE' ;
893: FND_MESSAGE.SET_NAME('IGF','IGF_AP_VER_STAT_ACCURATE');
889: g_log_tab(g_log_tab_index).message_text := RPAD(null,12) || fnd_message.get;
890: END IF ;
891: IF NOT l_doc_null_flag AND NOT l_diff_flag THEN
892: l_new_fed_verif_status := 'ACCURATE' ;
893: FND_MESSAGE.SET_NAME('IGF','IGF_AP_VER_STAT_ACCURATE');
894: g_log_tab_index := g_log_tab_index + 1;
895: g_log_tab(g_log_tab_index).person_number := l_last_person_number;
896: g_log_tab(g_log_tab_index).message_text := RPAD(null,12) || fnd_message.get;
897: END IF ;
892: l_new_fed_verif_status := 'ACCURATE' ;
893: FND_MESSAGE.SET_NAME('IGF','IGF_AP_VER_STAT_ACCURATE');
894: g_log_tab_index := g_log_tab_index + 1;
895: g_log_tab(g_log_tab_index).person_number := l_last_person_number;
896: g_log_tab(g_log_tab_index).message_text := RPAD(null,12) || fnd_message.get;
897: END IF ;
898: IF NOT l_doc_null_flag AND l_diff_flag THEN
899: l_new_fed_verif_status := 'SELECTED' ;
900: FND_MESSAGE.SET_NAME('IGF','IGF_AP_VER_STAT_SELECTED');
896: g_log_tab(g_log_tab_index).message_text := RPAD(null,12) || fnd_message.get;
897: END IF ;
898: IF NOT l_doc_null_flag AND l_diff_flag THEN
899: l_new_fed_verif_status := 'SELECTED' ;
900: FND_MESSAGE.SET_NAME('IGF','IGF_AP_VER_STAT_SELECTED');
901: g_log_tab_index := g_log_tab_index + 1;
902: g_log_tab(g_log_tab_index).person_number := l_last_person_number;
903: g_log_tab(g_log_tab_index).message_text := RPAD(null,12) || fnd_message.get;
904: END IF ;
899: l_new_fed_verif_status := 'SELECTED' ;
900: FND_MESSAGE.SET_NAME('IGF','IGF_AP_VER_STAT_SELECTED');
901: g_log_tab_index := g_log_tab_index + 1;
902: g_log_tab(g_log_tab_index).person_number := l_last_person_number;
903: g_log_tab(g_log_tab_index).message_text := RPAD(null,12) || fnd_message.get;
904: END IF ;
905:
906: upd_fed_verif_status ( l_new_fed_verif_status) ;
907: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
912: END IF ; -- counter check ....
913: END IF ; -- award year check ...
914:
915: IF l_rec_processed = 0 THEN
916: FND_MESSAGE.SET_NAME('IGF','IGF_AP_AWDYR_STAT_NOT_EXISTS');
917: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
918: ELSE
919: -- CALL THE PRINT LOG PROCESS
920: print_log_process(l_person_number,l_error);
913: END IF ; -- award year check ...
914:
915: IF l_rec_processed = 0 THEN
916: FND_MESSAGE.SET_NAME('IGF','IGF_AP_AWDYR_STAT_NOT_EXISTS');
917: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
918: ELSE
919: -- CALL THE PRINT LOG PROCESS
920: print_log_process(l_person_number,l_error);
921: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(FND_MESSAGE.GET_STRING('IGS','IGS_GE_TOTAL_REC_PROCESSED'),50)|| TO_CHAR(l_rec_processed) );
917: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
918: ELSE
919: -- CALL THE PRINT LOG PROCESS
920: print_log_process(l_person_number,l_error);
921: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(FND_MESSAGE.GET_STRING('IGS','IGS_GE_TOTAL_REC_PROCESSED'),50)|| TO_CHAR(l_rec_processed) );
922: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(FND_MESSAGE.GET_STRING('IGS','IGS_GE_TOTAL_REC_FAILED'),50)|| TO_CHAR(l_rec_processed - l_rec_imported));
923: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(FND_MESSAGE.GET_STRING('IGS','IGS_AD_SUCC_IMP_OFR_RESP_REC'),50)|| TO_CHAR(l_rec_imported));
924:
925: IF l_rec_imported = 0 THEN
918: ELSE
919: -- CALL THE PRINT LOG PROCESS
920: print_log_process(l_person_number,l_error);
921: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(FND_MESSAGE.GET_STRING('IGS','IGS_GE_TOTAL_REC_PROCESSED'),50)|| TO_CHAR(l_rec_processed) );
922: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(FND_MESSAGE.GET_STRING('IGS','IGS_GE_TOTAL_REC_FAILED'),50)|| TO_CHAR(l_rec_processed - l_rec_imported));
923: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(FND_MESSAGE.GET_STRING('IGS','IGS_AD_SUCC_IMP_OFR_RESP_REC'),50)|| TO_CHAR(l_rec_imported));
924:
925: IF l_rec_imported = 0 THEN
926: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, ' ');
919: -- CALL THE PRINT LOG PROCESS
920: print_log_process(l_person_number,l_error);
921: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(FND_MESSAGE.GET_STRING('IGS','IGS_GE_TOTAL_REC_PROCESSED'),50)|| TO_CHAR(l_rec_processed) );
922: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(FND_MESSAGE.GET_STRING('IGS','IGS_GE_TOTAL_REC_FAILED'),50)|| TO_CHAR(l_rec_processed - l_rec_imported));
923: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(FND_MESSAGE.GET_STRING('IGS','IGS_AD_SUCC_IMP_OFR_RESP_REC'),50)|| TO_CHAR(l_rec_imported));
924:
925: IF l_rec_imported = 0 THEN
926: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, ' ');
927: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, '-------------------------------------------------------------');
925: IF l_rec_imported = 0 THEN
926: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, ' ');
927: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, '-------------------------------------------------------------');
928: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, ' ');
929: FND_MESSAGE.SET_NAME('IGS','IGS_EN_NO_DATA_IMP' );
930: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET);
931: END IF ;
932: END IF ;
933:
926: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, ' ');
927: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, '-------------------------------------------------------------');
928: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, ' ');
929: FND_MESSAGE.SET_NAME('IGS','IGS_EN_NO_DATA_IMP' );
930: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET);
931: END IF ;
932: END IF ;
933:
934: END IF ; -- terminate flag check
935:
936: ELSE -- profile check
937: -- error message
938: -- terminate the process .. no further processing
939: FND_MESSAGE.SET_NAME('IGF','IGF_AP_LGCY_PROC_NOT_RUN');
940: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
941: END IF ; -- profile check ends
942:
943: EXCEPTION
936: ELSE -- profile check
937: -- error message
938: -- terminate the process .. no further processing
939: FND_MESSAGE.SET_NAME('IGF','IGF_AP_LGCY_PROC_NOT_RUN');
940: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
941: END IF ; -- profile check ends
942:
943: EXCEPTION
944: WHEN OTHERS THEN
946: RETCODE := 2 ;
947: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
948: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_lg_ver_imp.main.exception','Unhandled Exception :'||SQLERRM);
949: END IF;
950: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP') ;
951: FND_MESSAGE.SET_TOKEN('NAME','IGF_AP_LG_VER_IMP.MAIN') ;
952: errbuf := FND_MESSAGE.GET ;
953: IGS_GE_MSG_STACK.CONC_EXCEPTION_HNDL ;
954: END main ;
947: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
948: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_lg_ver_imp.main.exception','Unhandled Exception :'||SQLERRM);
949: END IF;
950: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP') ;
951: FND_MESSAGE.SET_TOKEN('NAME','IGF_AP_LG_VER_IMP.MAIN') ;
952: errbuf := FND_MESSAGE.GET ;
953: IGS_GE_MSG_STACK.CONC_EXCEPTION_HNDL ;
954: END main ;
955:
948: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_lg_ver_imp.main.exception','Unhandled Exception :'||SQLERRM);
949: END IF;
950: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP') ;
951: FND_MESSAGE.SET_TOKEN('NAME','IGF_AP_LG_VER_IMP.MAIN') ;
952: errbuf := FND_MESSAGE.GET ;
953: IGS_GE_MSG_STACK.CONC_EXCEPTION_HNDL ;
954: END main ;
955:
956: END igf_ap_lg_ver_imp ;