68: FND_FILE.PUT_LINE( FND_FILE.LOG, RPAD( l_award_year_pmpt, 40) || ' : '|| p_alternate_code ) ;
69:
70: FND_FILE.PUT_LINE( FND_FILE.LOG, RPAD( l_batch_num_prmpt, 40) || ' : '|| TO_CHAR(p_batch_num) || '-' || l_batch_desc ) ;
71:
72: FND_FILE.PUT_LINE( FND_FILE.LOG, RPAD( FND_MESSAGE.GET_STRING('IGS','IGS_GE_ASK_DEL_REC'), 40) || ' : '|| l_yes_no ) ;
73: FND_FILE.PUT_LINE( FND_FILE.LOG, ' ');
74: FND_FILE.PUT_LINE( FND_FILE.LOG, '-------------------------------------------------------------');
75: FND_FILE.PUT_LINE( FND_FILE.LOG, ' ');
76:
239: WHEN OTHERS THEN
240: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
241: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_lg_coa_imp.check_person_terms.exception','Unhandled exception in Procedure check_person_terms'||SQLERRM);
242: END IF;
243: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
244: fnd_message.set_token('NAME','IGF_AP_LG_COA_IMP.CHECK_PERSON_TERMS');
245: igs_ge_msg_stack.add;
246: app_exception.raise_exception;
247:
240: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
241: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_lg_coa_imp.check_person_terms.exception','Unhandled exception in Procedure check_person_terms'||SQLERRM);
242: END IF;
243: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
244: fnd_message.set_token('NAME','IGF_AP_LG_COA_IMP.CHECK_PERSON_TERMS');
245: igs_ge_msg_stack.add;
246: app_exception.raise_exception;
247:
248: END check_person_terms ;
283: WHEN OTHERS THEN
284: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
285: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_lg_coa_imp.check_dup_coa.exception','Unhandled exception in Procedure check_dup_coa'||SQLERRM);
286: END IF;
287: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
288: fnd_message.set_token('NAME','IGF_AP_LG_COA_IMP.CHECK_DUP_COA');
289: igs_ge_msg_stack.add;
290: app_exception.raise_exception;
291:
284: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
285: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_lg_coa_imp.check_dup_coa.exception','Unhandled exception in Procedure check_dup_coa'||SQLERRM);
286: END IF;
287: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
288: fnd_message.set_token('NAME','IGF_AP_LG_COA_IMP.CHECK_DUP_COA');
289: igs_ge_msg_stack.add;
290: app_exception.raise_exception;
291:
292: END check_dup_coa ;
334: WHEN OTHERS THEN
335: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
336: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_lg_coa_imp.check_dup_coa_term.exception','Unhandled exception in Procedure check_dup_coa_term'||SQLERRM);
337: END IF;
338: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
339: fnd_message.set_token('NAME','IGF_AP_LG_COA_IMP.CHECK_DUP_COA_TERM');
340: igs_ge_msg_stack.add;
341: app_exception.raise_exception;
342:
335: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
336: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_lg_coa_imp.check_dup_coa_term.exception','Unhandled exception in Procedure check_dup_coa_term'||SQLERRM);
337: END IF;
338: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
339: fnd_message.set_token('NAME','IGF_AP_LG_COA_IMP.CHECK_DUP_COA_TERM');
340: igs_ge_msg_stack.add;
341: app_exception.raise_exception;
342:
343: END check_dup_coa_term ;
370: WHEN OTHERS THEN
371: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
372: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_lg_coa_imp.delete_coa_terms.exception','Unhandled exception in Procedure delete_coa_terms'||SQLERRM);
373: END IF;
374: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
375: fnd_message.set_token('NAME','IGF_AP_LG_COA_IMP.DELETE_COA_TERMS');
376: igs_ge_msg_stack.add;
377: app_exception.raise_exception;
378:
371: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
372: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_lg_coa_imp.delete_coa_terms.exception','Unhandled exception in Procedure delete_coa_terms'||SQLERRM);
373: END IF;
374: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
375: fnd_message.set_token('NAME','IGF_AP_LG_COA_IMP.DELETE_COA_TERMS');
376: igs_ge_msg_stack.add;
377: app_exception.raise_exception;
378:
379: END delete_coa_terms ;
407: WHEN OTHERS THEN
408: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
409: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_lg_coa_imp.delete_coa_items.exception','Unhandled exception in Procedure delete_coa_items'||SQLERRM);
410: END IF;
411: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
412: fnd_message.set_token('NAME','IGF_AP_LG_COA_IMP.DELETE_COA_ITEMS');
413: igs_ge_msg_stack.add;
414: app_exception.raise_exception;
415:
408: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
409: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_lg_coa_imp.delete_coa_items.exception','Unhandled exception in Procedure delete_coa_items'||SQLERRM);
410: END IF;
411: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
412: fnd_message.set_token('NAME','IGF_AP_LG_COA_IMP.DELETE_COA_ITEMS');
413: igs_ge_msg_stack.add;
414: app_exception.raise_exception;
415:
416: END delete_coa_items ;
575: FETCH c_get_stat INTO g_award_year_status, g_sys_award_year ;
576: -- check validity of award year
577: IF c_get_stat%NOTFOUND THEN
578: -- Award Year setup tampered .... Log a message
579: FND_MESSAGE.SET_NAME('IGF','IGF_AP_AWD_YR_NOT_FOUND');
580: FND_MESSAGE.SET_TOKEN('P_AWARD_YEAR', l_alternate_code);
581: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
582: g_terminate_process := TRUE ;
583: ELSE
576: -- check validity of award year
577: IF c_get_stat%NOTFOUND THEN
578: -- Award Year setup tampered .... Log a message
579: FND_MESSAGE.SET_NAME('IGF','IGF_AP_AWD_YR_NOT_FOUND');
580: FND_MESSAGE.SET_TOKEN('P_AWARD_YEAR', l_alternate_code);
581: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
582: g_terminate_process := TRUE ;
583: ELSE
584: -- Award year exists but is it Open/Legacy Details .... check
577: IF c_get_stat%NOTFOUND THEN
578: -- Award Year setup tampered .... Log a message
579: FND_MESSAGE.SET_NAME('IGF','IGF_AP_AWD_YR_NOT_FOUND');
580: FND_MESSAGE.SET_TOKEN('P_AWARD_YEAR', l_alternate_code);
581: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
582: g_terminate_process := TRUE ;
583: ELSE
584: -- Award year exists but is it Open/Legacy Details .... check
585: IF g_award_year_status NOT IN ('O','LD') THEN
582: g_terminate_process := TRUE ;
583: ELSE
584: -- Award year exists but is it Open/Legacy Details .... check
585: IF g_award_year_status NOT IN ('O','LD') THEN
586: FND_MESSAGE.SET_NAME('IGF','IGF_AP_LG_INVALID_STAT');
587: FND_MESSAGE.SET_TOKEN('AWARD_STATUS', g_award_year_status);
588: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
589: g_terminate_process := TRUE ;
590: END IF ; -- awd ye open or legacy detail chk
583: ELSE
584: -- Award year exists but is it Open/Legacy Details .... check
585: IF g_award_year_status NOT IN ('O','LD') THEN
586: FND_MESSAGE.SET_NAME('IGF','IGF_AP_LG_INVALID_STAT');
587: FND_MESSAGE.SET_TOKEN('AWARD_STATUS', g_award_year_status);
588: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
589: g_terminate_process := TRUE ;
590: END IF ; -- awd ye open or legacy detail chk
591: END IF ; -- award year invalid check
584: -- Award year exists but is it Open/Legacy Details .... check
585: IF g_award_year_status NOT IN ('O','LD') THEN
586: FND_MESSAGE.SET_NAME('IGF','IGF_AP_LG_INVALID_STAT');
587: FND_MESSAGE.SET_TOKEN('AWARD_STATUS', g_award_year_status);
588: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
589: g_terminate_process := TRUE ;
590: END IF ; -- awd ye open or legacy detail chk
591: END IF ; -- award year invalid check
592: CLOSE c_get_stat ;
595: OPEN c_chk_coa ( NULL);
596: FETCH c_chk_coa INTO l_coa_exist ;
597: -- if no COA Item found
598: IF c_chk_coa%NOTFOUND THEN
599: FND_MESSAGE.SET_NAME('IGF','IGF_AP_COA_SETUP_INCOM');
600: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
601: -- set terminate flag
602: g_terminate_process := TRUE ;
603: END IF ; -- setup check in interface table
596: FETCH c_chk_coa INTO l_coa_exist ;
597: -- if no COA Item found
598: IF c_chk_coa%NOTFOUND THEN
599: FND_MESSAGE.SET_NAME('IGF','IGF_AP_COA_SETUP_INCOM');
600: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
601: -- set terminate flag
602: g_terminate_process := TRUE ;
603: END IF ; -- setup check in interface table
604: CLOSE c_chk_coa ;
605:
606: -- check validity of batch
607: l_batch_valid := igf_ap_gen.check_batch ( p_batch_num, 'COA') ;
608: IF NVL(l_batch_valid,'N') <> 'Y' THEN
609: FND_MESSAGE.SET_NAME('IGF','IGF_GR_BATCH_DOES_NOT_EXIST');
610: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
611: g_terminate_process := TRUE ;
612: END IF;
613:
606: -- check validity of batch
607: l_batch_valid := igf_ap_gen.check_batch ( p_batch_num, 'COA') ;
608: IF NVL(l_batch_valid,'N') <> 'Y' THEN
609: FND_MESSAGE.SET_NAME('IGF','IGF_GR_BATCH_DOES_NOT_EXIST');
610: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
611: g_terminate_process := TRUE ;
612: END IF;
613:
614: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
677: -- coa terms match
678: check_person_terms ( l_fa_base_id, l_per_terms_match) ;
679: IF NOT l_per_terms_match THEN
680:
681: FND_MESSAGE.SET_NAME('IGF','IGF_AP_COA_TERM_DIFF');
682: g_log_tab_index := g_log_tab_index + 1;
683: g_log_tab(g_log_tab_index).person_number := l_last_person_number;
684: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
685:
680:
681: FND_MESSAGE.SET_NAME('IGF','IGF_AP_COA_TERM_DIFF');
682: g_log_tab_index := g_log_tab_index + 1;
683: g_log_tab(g_log_tab_index).person_number := l_last_person_number;
684: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
685:
686: -- Now rollback ....
687: ROLLBACK TO coa_person_recs ;
688:
726: l_person_id, l_fa_base_id) ;
727:
728: IF l_person_id IS NULL THEN
729:
730: FND_MESSAGE.SET_NAME('IGF','IGF_AP_PE_NOT_EXIST');
731: g_log_tab_index := g_log_tab_index + 1;
732: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
733: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
734: g_skip_person := TRUE ;
729:
730: FND_MESSAGE.SET_NAME('IGF','IGF_AP_PE_NOT_EXIST');
731: g_log_tab_index := g_log_tab_index + 1;
732: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
733: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
734: g_skip_person := TRUE ;
735: ELSIF l_fa_base_id IS NULL THEN
736:
737: FND_MESSAGE.SET_NAME('IGF','IGF_AP_FABASE_NOT_FOUND');
733: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
734: g_skip_person := TRUE ;
735: ELSIF l_fa_base_id IS NULL THEN
736:
737: FND_MESSAGE.SET_NAME('IGF','IGF_AP_FABASE_NOT_FOUND');
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_person := TRUE ;
736:
737: FND_MESSAGE.SET_NAME('IGF','IGF_AP_FABASE_NOT_FOUND');
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_person := TRUE ;
742: END IF ; -- person existence check
743:
744: --check if ALL person records aer marked either for insert or for update
746: chk_per_rec_stat( p_batch_num, l_alternate_code, person_rec.person_number, l_rec_type ) ;
747:
748: IF l_rec_type = 'E' THEN
749:
750: FND_MESSAGE.SET_NAME('IGF','IGF_AP_PER_RECS_NOT_SAME');
751: g_log_tab_index := g_log_tab_index + 1;
752: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
753: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
754: g_skip_person := TRUE ;
749:
750: FND_MESSAGE.SET_NAME('IGF','IGF_AP_PER_RECS_NOT_SAME');
751: g_log_tab_index := g_log_tab_index + 1;
752: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
753: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
754: g_skip_person := TRUE ;
755: END IF ;
756:
757:
784: ELSE -- person not to b skipped
785:
786: -- Item level validations ...
787: l_token := person_rec.item_code || ' COAINT_ID - ' || TO_CHAR(person_rec.coaint_id) ;
788: FND_MESSAGE.SET_NAME('IGF','IGF_AP_PROC_ITM');
789: FND_MESSAGE.SET_TOKEN('ITEM', l_token );
790: g_log_tab_index := g_log_tab_index + 1;
791: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
792: g_log_tab(g_log_tab_index).message_text := fnd_message.get;
785:
786: -- Item level validations ...
787: l_token := person_rec.item_code || ' COAINT_ID - ' || TO_CHAR(person_rec.coaint_id) ;
788: FND_MESSAGE.SET_NAME('IGF','IGF_AP_PROC_ITM');
789: FND_MESSAGE.SET_TOKEN('ITEM', l_token );
790: g_log_tab_index := g_log_tab_index + 1;
791: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
792: g_log_tab(g_log_tab_index).message_text := fnd_message.get;
793:
788: FND_MESSAGE.SET_NAME('IGF','IGF_AP_PROC_ITM');
789: FND_MESSAGE.SET_TOKEN('ITEM', l_token );
790: g_log_tab_index := g_log_tab_index + 1;
791: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
792: g_log_tab(g_log_tab_index).message_text := fnd_message.get;
793:
794: -- coa item present in set up
795: OPEN c_chk_coa ( person_rec.item_code);
796: FETCH c_chk_coa INTO l_coa_exist ;
797: -- if no COA Item found
798:
799: IF c_chk_coa%NOTFOUND THEN
800:
801: FND_MESSAGE.SET_NAME('IGF','IGF_AP_COA_INVALID_ITM');
802: FND_MESSAGE.SET_TOKEN('ITEM', person_rec.item_code);
803: g_log_tab_index := g_log_tab_index + 1;
804: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
805: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
798:
799: IF c_chk_coa%NOTFOUND THEN
800:
801: FND_MESSAGE.SET_NAME('IGF','IGF_AP_COA_INVALID_ITM');
802: FND_MESSAGE.SET_TOKEN('ITEM', person_rec.item_code);
803: g_log_tab_index := g_log_tab_index + 1;
804: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
805: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
806: g_skip_record := TRUE ;
801: FND_MESSAGE.SET_NAME('IGF','IGF_AP_COA_INVALID_ITM');
802: FND_MESSAGE.SET_TOKEN('ITEM', person_rec.item_code);
803: g_log_tab_index := g_log_tab_index + 1;
804: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
805: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
806: g_skip_record := TRUE ;
807: -- masehgal latest ...
808: -- as soon as 1 record for a person is marked as error record, we need to skip the whole person
809: -- using person_all_skip flag for the same
819: l_term_chk := igf_ap_gen.validate_cal_inst( 'LOAD', l_alternate_code, person_rec.ld_alternate_code,
820: l_load_cal_type, l_load_seq_num) ;
821:
822: IF (l_load_cal_type IS NULL OR l_load_seq_num IS NULL) THEN
823: FND_MESSAGE.SET_NAME('IGF','IGF_AP_INVALID_TERM');
824: FND_MESSAGE.SET_TOKEN('TERM', person_rec.ld_alternate_code);
825: g_log_tab_index := g_log_tab_index + 1;
826: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
827: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
820: l_load_cal_type, l_load_seq_num) ;
821:
822: IF (l_load_cal_type IS NULL OR l_load_seq_num IS NULL) THEN
823: FND_MESSAGE.SET_NAME('IGF','IGF_AP_INVALID_TERM');
824: FND_MESSAGE.SET_TOKEN('TERM', person_rec.ld_alternate_code);
825: g_log_tab_index := g_log_tab_index + 1;
826: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
827: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
828: g_skip_record := TRUE ;
823: FND_MESSAGE.SET_NAME('IGF','IGF_AP_INVALID_TERM');
824: FND_MESSAGE.SET_TOKEN('TERM', person_rec.ld_alternate_code);
825: g_log_tab_index := g_log_tab_index + 1;
826: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
827: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
828: g_skip_record := TRUE ;
829:
830: -- masehgal latest ...
831: -- as soon as 1 record for a person is marked as error record, we need to skip the whole person
834:
835: g_skip_item_insert := TRUE ;
836: ELSIF NOT l_term_chk THEN
837:
838: FND_MESSAGE.SET_NAME('IGF','IGF_AP_AWD_TERM_INVALID');
839: FND_MESSAGE.SET_TOKEN('TERM', person_rec.ld_alternate_code);
840: FND_MESSAGE.SET_TOKEN('AWARD', l_alternate_code);
841: g_log_tab_index := g_log_tab_index + 1;
842: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
835: g_skip_item_insert := TRUE ;
836: ELSIF NOT l_term_chk THEN
837:
838: FND_MESSAGE.SET_NAME('IGF','IGF_AP_AWD_TERM_INVALID');
839: FND_MESSAGE.SET_TOKEN('TERM', person_rec.ld_alternate_code);
840: FND_MESSAGE.SET_TOKEN('AWARD', l_alternate_code);
841: g_log_tab_index := g_log_tab_index + 1;
842: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
843: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
836: ELSIF NOT l_term_chk THEN
837:
838: FND_MESSAGE.SET_NAME('IGF','IGF_AP_AWD_TERM_INVALID');
839: FND_MESSAGE.SET_TOKEN('TERM', person_rec.ld_alternate_code);
840: FND_MESSAGE.SET_TOKEN('AWARD', l_alternate_code);
841: g_log_tab_index := g_log_tab_index + 1;
842: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
843: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
844: g_skip_record := TRUE ;
839: FND_MESSAGE.SET_TOKEN('TERM', person_rec.ld_alternate_code);
840: FND_MESSAGE.SET_TOKEN('AWARD', l_alternate_code);
841: g_log_tab_index := g_log_tab_index + 1;
842: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
843: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
844: g_skip_record := TRUE ;
845: -- masehgal latest ...
846: -- as soon as 1 record for a person is marked as error record, we need to skip the whole person
847: -- using person_all_skip flag for the same
865:
866: IF (NOT l_dup_coa_found) AND (NOT l_recs_deleted) AND l_rec_type = 'U' THEN
867:
868: -- log a message for duplicate
869: FND_MESSAGE.SET_NAME('IGF','IGF_AP_ORIG_REC_NOT_FOUND');
870: g_log_tab_index := g_log_tab_index + 1;
871: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
872: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
873: g_skip_record := TRUE ;
868: -- log a message for duplicate
869: FND_MESSAGE.SET_NAME('IGF','IGF_AP_ORIG_REC_NOT_FOUND');
870: g_log_tab_index := g_log_tab_index + 1;
871: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
872: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
873: g_skip_record := TRUE ;
874: -- masehgal latest ...
875: -- as soon as 1 record for a person is marked as error record, we need to skip the whole person
876: -- using person_all_skip flag for the same
888:
889: IF l_dup_item_found AND l_rec_type <> 'U' THEN
890:
891: -- log a message for duplicate
892: FND_MESSAGE.SET_NAME('IGF','IGF_AP_COA_ITM_TERM_EXIST');
893: FND_MESSAGE.SET_TOKEN('TERM', person_rec.ld_alternate_code);
894: g_log_tab_index := g_log_tab_index + 1;
895: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
896: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
889: IF l_dup_item_found AND l_rec_type <> 'U' THEN
890:
891: -- log a message for duplicate
892: FND_MESSAGE.SET_NAME('IGF','IGF_AP_COA_ITM_TERM_EXIST');
893: FND_MESSAGE.SET_TOKEN('TERM', person_rec.ld_alternate_code);
894: g_log_tab_index := g_log_tab_index + 1;
895: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
896: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
897: g_skip_record := TRUE ;
892: FND_MESSAGE.SET_NAME('IGF','IGF_AP_COA_ITM_TERM_EXIST');
893: FND_MESSAGE.SET_TOKEN('TERM', person_rec.ld_alternate_code);
894: g_log_tab_index := g_log_tab_index + 1;
895: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
896: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
897: g_skip_record := TRUE ;
898: -- masehgal latest ...
899: -- as soon as 1 record for a person is marked as error record, we need to skip the whole person
900: -- using person_all_skip flag for the same
903: END IF ;
904: IF (NOT l_dup_item_found) AND (NOT l_recs_deleted) AND l_rec_type = 'U' THEN
905:
906: -- log a message for duplicate
907: FND_MESSAGE.SET_NAME('IGF','IGF_AP_ORIG_REC_NOT_FOUND');
908: g_log_tab_index := g_log_tab_index + 1;
909: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
910: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
911: g_skip_record := TRUE ;
906: -- log a message for duplicate
907: FND_MESSAGE.SET_NAME('IGF','IGF_AP_ORIG_REC_NOT_FOUND');
908: g_log_tab_index := g_log_tab_index + 1;
909: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
910: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
911: g_skip_record := TRUE ;
912: -- masehgal latest ...
913: -- as soon as 1 record for a person is marked as error record, we need to skip the whole person
914: -- using person_all_skip flag for the same
973: x_mode => 'R');
974:
975: EXCEPTION WHEN OTHERS THEN
976: -- Note : checking is done in tbh . so re-validation avoided
977: fnd_message.set_name('IGF','IGF_AW_INCON_ITM_TERMS');
978: g_log_tab_index := g_log_tab_index + 1;
979: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
980: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
981: g_skip_record := TRUE ;
976: -- Note : checking is done in tbh . so re-validation avoided
977: fnd_message.set_name('IGF','IGF_AW_INCON_ITM_TERMS');
978: g_log_tab_index := g_log_tab_index + 1;
979: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
980: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
981: g_skip_record := TRUE ;
982: g_person_all_skip := TRUE ;
983:
984: END;
1005: x_mode => 'R');
1006:
1007: EXCEPTION WHEN OTHERS THEN
1008: -- Note : checking is done in tbh . so re-validation avoided
1009: fnd_message.set_name('IGF','IGF_AW_INCON_ITM_TERMS');
1010: g_log_tab_index := g_log_tab_index + 1;
1011: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
1012: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
1013: g_skip_record := TRUE ;
1008: -- Note : checking is done in tbh . so re-validation avoided
1009: fnd_message.set_name('IGF','IGF_AW_INCON_ITM_TERMS');
1010: g_log_tab_index := g_log_tab_index + 1;
1011: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
1012: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
1013: g_skip_record := TRUE ;
1014: g_person_all_skip := TRUE ;
1015:
1016: END;
1112: check_person_terms ( l_fa_base_id, l_per_terms_match) ;
1113:
1114: IF NOT l_per_terms_match THEN
1115:
1116: FND_MESSAGE.SET_NAME('IGF','IGF_AP_COA_TERM_DIFF');
1117: g_log_tab_index := g_log_tab_index + 1;
1118: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
1119: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
1120:
1115:
1116: FND_MESSAGE.SET_NAME('IGF','IGF_AP_COA_TERM_DIFF');
1117: g_log_tab_index := g_log_tab_index + 1;
1118: g_log_tab(g_log_tab_index).person_number := person_rec.person_number;
1119: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
1120:
1121: -- Now rollback ....
1122: ROLLBACK TO coa_person_recs ;
1123:
1144:
1145:
1146:
1147: IF l_rec_processed = 0 THEN
1148: FND_MESSAGE.SET_NAME('IGF','IGF_AP_AWDYR_STAT_NOT_EXISTS');
1149: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
1150: ELSE
1151: -- CALL THE PRINT LOG PROCESS
1152: print_log_process(l_person_number,l_error);
1145:
1146:
1147: IF l_rec_processed = 0 THEN
1148: FND_MESSAGE.SET_NAME('IGF','IGF_AP_AWDYR_STAT_NOT_EXISTS');
1149: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
1150: ELSE
1151: -- CALL THE PRINT LOG PROCESS
1152: print_log_process(l_person_number,l_error);
1153: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(FND_MESSAGE.GET_STRING('IGS','IGS_GE_TOTAL_REC_PROCESSED'),50)|| TO_CHAR(l_rec_processed) );
1149: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
1150: ELSE
1151: -- CALL THE PRINT LOG PROCESS
1152: print_log_process(l_person_number,l_error);
1153: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(FND_MESSAGE.GET_STRING('IGS','IGS_GE_TOTAL_REC_PROCESSED'),50)|| TO_CHAR(l_rec_processed) );
1154: 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));
1155: 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));
1156:
1157: IF l_rec_imported = 0 THEN
1150: ELSE
1151: -- CALL THE PRINT LOG PROCESS
1152: print_log_process(l_person_number,l_error);
1153: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(FND_MESSAGE.GET_STRING('IGS','IGS_GE_TOTAL_REC_PROCESSED'),50)|| TO_CHAR(l_rec_processed) );
1154: 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));
1155: 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));
1156:
1157: IF l_rec_imported = 0 THEN
1158: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, ' ');
1151: -- CALL THE PRINT LOG PROCESS
1152: print_log_process(l_person_number,l_error);
1153: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(FND_MESSAGE.GET_STRING('IGS','IGS_GE_TOTAL_REC_PROCESSED'),50)|| TO_CHAR(l_rec_processed) );
1154: 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));
1155: 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));
1156:
1157: IF l_rec_imported = 0 THEN
1158: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, ' ');
1159: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, '-------------------------------------------------------------');
1157: IF l_rec_imported = 0 THEN
1158: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, ' ');
1159: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, '-------------------------------------------------------------');
1160: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, ' ');
1161: FND_MESSAGE.SET_NAME('IGS','IGS_EN_NO_DATA_IMP' );
1162: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET);
1163: END IF ;
1164: END IF ;
1165:
1158: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, ' ');
1159: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, '-------------------------------------------------------------');
1160: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, ' ');
1161: FND_MESSAGE.SET_NAME('IGS','IGS_EN_NO_DATA_IMP' );
1162: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET);
1163: END IF ;
1164: END IF ;
1165:
1166: END IF ; -- terminate flag check
1167:
1168: ELSE -- profile check
1169: -- error message
1170: -- terminate the process .. no further processing
1171: FND_MESSAGE.SET_NAME('IGF','IGF_AP_LGCY_PROC_NOT_RUN');
1172: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
1173: END IF ; -- profile check ends
1174:
1175: EXCEPTION
1168: ELSE -- profile check
1169: -- error message
1170: -- terminate the process .. no further processing
1171: FND_MESSAGE.SET_NAME('IGF','IGF_AP_LGCY_PROC_NOT_RUN');
1172: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
1173: END IF ; -- profile check ends
1174:
1175: EXCEPTION
1176: WHEN OTHERS THEN
1178: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
1179: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_lg_coa_imp.main.exception','Unhandled exception in Procedure main'||SQLERRM);
1180: END IF;
1181: RETCODE := 2 ;
1182: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP') ;
1183: FND_MESSAGE.SET_TOKEN('NAME','IGF_AP_LG_COA_IMP.MAIN') ;
1184: errbuf := FND_MESSAGE.GET ;
1185: IGS_GE_MSG_STACK.CONC_EXCEPTION_HNDL ;
1186:
1179: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_lg_coa_imp.main.exception','Unhandled exception in Procedure main'||SQLERRM);
1180: END IF;
1181: RETCODE := 2 ;
1182: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP') ;
1183: FND_MESSAGE.SET_TOKEN('NAME','IGF_AP_LG_COA_IMP.MAIN') ;
1184: errbuf := FND_MESSAGE.GET ;
1185: IGS_GE_MSG_STACK.CONC_EXCEPTION_HNDL ;
1186:
1187: END main ;
1180: END IF;
1181: RETCODE := 2 ;
1182: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP') ;
1183: FND_MESSAGE.SET_TOKEN('NAME','IGF_AP_LG_COA_IMP.MAIN') ;
1184: errbuf := FND_MESSAGE.GET ;
1185: IGS_GE_MSG_STACK.CONC_EXCEPTION_HNDL ;
1186:
1187: END main ;
1188: