88: FND_FILE.PUT_LINE( FND_FILE.LOG, ' ');
89:
90: EXCEPTION
91: WHEN OTHERS THEN
92: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
93: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_lg_ver_imp.log_input_params.exception','Unhandled Exception :'||SQLERRM);
94: END IF;
95: END log_input_params ;
96:
89:
90: EXCEPTION
91: WHEN OTHERS THEN
92: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
93: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_lg_ver_imp.log_input_params.exception','Unhandled Exception :'||SQLERRM);
94: END IF;
95: END log_input_params ;
96:
97:
122: END LOOP;
123:
124: EXCEPTION
125: WHEN OTHERS THEN
126: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
127: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_lg_ver_imp.print_log_process.exception','Unhandled Exception :'||SQLERRM);
128: END IF;
129:
130: END print_log_process;
123:
124: EXCEPTION
125: WHEN OTHERS THEN
126: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
127: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_lg_ver_imp.print_log_process.exception','Unhandled Exception :'||SQLERRM);
128: END IF;
129:
130: END print_log_process;
131:
162: CLOSE chk_dup ;
163:
164: EXCEPTION
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');
163:
164: EXCEPTION
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;
205: END IF ;
206: CLOSE cur_corr_items ;
207: EXCEPTION
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');
206: CLOSE cur_corr_items ;
207: EXCEPTION
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;
244: END LOOP;
245:
246: EXCEPTION
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');
245:
246: EXCEPTION
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;
398:
399:
400: EXCEPTION
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');
399:
400: EXCEPTION
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;
531: CLOSE c_alternate_code ;
532:
533: -- Log input params
534: log_input_params( p_batch_num, l_alternate_code , p_delete_flag);
535: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
536: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_lg_ver_imp.main.debug','Completed input parameters logging in Procedure main');
537: END IF;
538:
539: -- Get Award Year Status
532:
533: -- Log input params
534: log_input_params( p_batch_num, l_alternate_code , p_delete_flag);
535: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
536: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_lg_ver_imp.main.debug','Completed input parameters logging in Procedure main');
537: END IF;
538:
539: -- Get Award Year Status
540: OPEN c_get_stat ;
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
569: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_lg_ver_imp.main.debug','Completed batch validations in Procedure main');
570: END IF;
571:
572:
565: g_terminate_process := TRUE ;
566: END IF;
567:
568: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
569: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_lg_ver_imp.main.debug','Completed batch validations in Procedure main');
570: END IF;
571:
572:
573: /***********************************************************************
630:
631: upd_fed_verif_status ( l_new_fed_verif_status) ;
632: -- commit after updating the fa base rec
633: COMMIT ;
634: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
635: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_lg_ver_imp.main.debug','Federal Verification Status updated in Procedure main');
636: END IF;
637:
638: END IF ;
631: upd_fed_verif_status ( l_new_fed_verif_status) ;
632: -- commit after updating the fa base rec
633: COMMIT ;
634: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
635: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_lg_ver_imp.main.debug','Federal Verification Status updated in Procedure main');
636: END IF;
637:
638: END IF ;
639: END IF ;
697: END IF ;
698: END IF ;
699: END IF ; -- person already processed check
700:
701: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
702: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_lg_ver_imp.main.debug','Completed person validations in Procedure main');
703: END IF;
704:
705:
698: END IF ;
699: END IF ; -- person already processed check
700:
701: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
702: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_lg_ver_imp.main.debug','Completed person validations in Procedure main');
703: END IF;
704:
705:
706: /* End Of Person level Check */
775: g_skip_record := TRUE ;
776: END IF ;
777: END IF ; -- end of dup found ...
778: END IF ; -- end of sar null chk
779: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
780: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_lg_ver_imp.main.debug','Completed record validations in Procedure main');
781: END IF;
782:
783:
776: END IF ;
777: END IF ; -- end of dup found ...
778: END IF ; -- end of sar null chk
779: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
780: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_lg_ver_imp.main.debug','Completed record validations in Procedure main');
781: END IF;
782:
783:
784:
810: x_legacy_record_flag => 'Y' ,
811: x_use_blank_flag => NULL,
812: x_mode => 'R'
813: );
814: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
815: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_lg_ver_imp.main.debug','Inserted Verification record in Procedure main');
816: END IF;
817:
818: -- now update the record status
811: x_use_blank_flag => NULL,
812: x_mode => 'R'
813: );
814: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
815: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_lg_ver_imp.main.debug','Inserted Verification record in Procedure main');
816: END IF;
817:
818: -- now update the record status
819: IF p_delete_flag = 'Y' THEN
840: lv_rows := DBMS_SQL.EXECUTE_AND_FETCH(lv_cur);
841: DBMS_SQL.COLUMN_VALUE(lv_cur,1,l_orig_value);
842: DBMS_SQL.CLOSE_CURSOR(lv_cur);
843: END IF;
844: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
845: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_lg_ver_imp.main.debug','Obtained isir column value in Procedure main');
846: END IF;
847:
848:
841: DBMS_SQL.COLUMN_VALUE(lv_cur,1,l_orig_value);
842: DBMS_SQL.CLOSE_CURSOR(lv_cur);
843: END IF;
844: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
845: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_lg_ver_imp.main.debug','Obtained isir column value in Procedure main');
846: END IF;
847:
848:
849: -- check the original value with the new doc value
856:
857: IF person_rec.sar_field_value_txt IS NULL THEN
858: l_doc_null_flag := TRUE ;
859: END IF ;
860: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
861: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_lg_ver_imp.main.debug','Set difference and null value flags in Procedure main');
862: END IF;
863:
864:
857: IF person_rec.sar_field_value_txt IS NULL THEN
858: l_doc_null_flag := TRUE ;
859: END IF ;
860: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
861: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_lg_ver_imp.main.debug','Set difference and null value flags in Procedure main');
862: END IF;
863:
864:
865: END IF ; -- award year check ...
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
908: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_lg_ver_imp.main.debug','Federal Verification Status updated for last person in Procedure main');
909: END IF;
910:
911: END IF ; -- verification status check ...
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
908: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_lg_ver_imp.main.debug','Federal Verification Status updated for last person in Procedure main');
909: END IF;
910:
911: END IF ; -- verification status check ...
912: END IF ; -- counter check ....
943: EXCEPTION
944: WHEN OTHERS THEN
945: ROLLBACK;
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') ;
944: WHEN OTHERS THEN
945: ROLLBACK;
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 ;