1732: l_award_year_pmpt := igf_ap_gen.get_lookup_meaning('IGF_AW_LOOKUPS_MSG','AWARD_YEAR');
1733: l_yes_no := igf_ap_gen.get_lookup_meaning('IGF_AP_YES_NO',p_delete_flag);
1734: l_params_pass_prmpt := igf_ap_gen.get_lookup_meaning('IGF_GE_PARAMETERS','PARAMETER_PASS');
1735:
1736: fnd_file.put_line( fnd_file.log, ' ');
1737: fnd_file.put_line( fnd_file.log, '-------------------------------------------------------------');
1738: fnd_file.put_line( fnd_file.log, ' ');
1739:
1740: fnd_file.put_line( fnd_file.log, ' ') ;
1733: l_yes_no := igf_ap_gen.get_lookup_meaning('IGF_AP_YES_NO',p_delete_flag);
1734: l_params_pass_prmpt := igf_ap_gen.get_lookup_meaning('IGF_GE_PARAMETERS','PARAMETER_PASS');
1735:
1736: fnd_file.put_line( fnd_file.log, ' ');
1737: fnd_file.put_line( fnd_file.log, '-------------------------------------------------------------');
1738: fnd_file.put_line( fnd_file.log, ' ');
1739:
1740: fnd_file.put_line( fnd_file.log, ' ') ;
1741: fnd_file.put_line( fnd_file.log, l_params_pass_prmpt) ; --parameters passed
1734: l_params_pass_prmpt := igf_ap_gen.get_lookup_meaning('IGF_GE_PARAMETERS','PARAMETER_PASS');
1735:
1736: fnd_file.put_line( fnd_file.log, ' ');
1737: fnd_file.put_line( fnd_file.log, '-------------------------------------------------------------');
1738: fnd_file.put_line( fnd_file.log, ' ');
1739:
1740: fnd_file.put_line( fnd_file.log, ' ') ;
1741: fnd_file.put_line( fnd_file.log, l_params_pass_prmpt) ; --parameters passed
1742: fnd_file.put_line( fnd_file.log, ' ') ;
1736: fnd_file.put_line( fnd_file.log, ' ');
1737: fnd_file.put_line( fnd_file.log, '-------------------------------------------------------------');
1738: fnd_file.put_line( fnd_file.log, ' ');
1739:
1740: fnd_file.put_line( fnd_file.log, ' ') ;
1741: fnd_file.put_line( fnd_file.log, l_params_pass_prmpt) ; --parameters passed
1742: fnd_file.put_line( fnd_file.log, ' ') ;
1743:
1744: fnd_file.put_line( fnd_file.log, RPAD( l_award_year_pmpt, 40) || ' : '|| p_alternate_code ) ;
1737: fnd_file.put_line( fnd_file.log, '-------------------------------------------------------------');
1738: fnd_file.put_line( fnd_file.log, ' ');
1739:
1740: fnd_file.put_line( fnd_file.log, ' ') ;
1741: fnd_file.put_line( fnd_file.log, l_params_pass_prmpt) ; --parameters passed
1742: fnd_file.put_line( fnd_file.log, ' ') ;
1743:
1744: fnd_file.put_line( fnd_file.log, RPAD( l_award_year_pmpt, 40) || ' : '|| p_alternate_code ) ;
1745: IF NVL(g_import_type,'N') <> 'Y' THEN
1738: fnd_file.put_line( fnd_file.log, ' ');
1739:
1740: fnd_file.put_line( fnd_file.log, ' ') ;
1741: fnd_file.put_line( fnd_file.log, l_params_pass_prmpt) ; --parameters passed
1742: fnd_file.put_line( fnd_file.log, ' ') ;
1743:
1744: fnd_file.put_line( fnd_file.log, RPAD( l_award_year_pmpt, 40) || ' : '|| p_alternate_code ) ;
1745: IF NVL(g_import_type,'N') <> 'Y' THEN
1746: fnd_file.put_line( fnd_file.log, RPAD( l_batch_num_prmpt, 40) || ' : '|| p_batch_num || '-' || l_batch_desc ) ;
1740: fnd_file.put_line( fnd_file.log, ' ') ;
1741: fnd_file.put_line( fnd_file.log, l_params_pass_prmpt) ; --parameters passed
1742: fnd_file.put_line( fnd_file.log, ' ') ;
1743:
1744: fnd_file.put_line( fnd_file.log, RPAD( l_award_year_pmpt, 40) || ' : '|| p_alternate_code ) ;
1745: IF NVL(g_import_type,'N') <> 'Y' THEN
1746: fnd_file.put_line( fnd_file.log, RPAD( l_batch_num_prmpt, 40) || ' : '|| p_batch_num || '-' || l_batch_desc ) ;
1747: END IF;
1748:
1742: fnd_file.put_line( fnd_file.log, ' ') ;
1743:
1744: fnd_file.put_line( fnd_file.log, RPAD( l_award_year_pmpt, 40) || ' : '|| p_alternate_code ) ;
1745: IF NVL(g_import_type,'N') <> 'Y' THEN
1746: fnd_file.put_line( fnd_file.log, RPAD( l_batch_num_prmpt, 40) || ' : '|| p_batch_num || '-' || l_batch_desc ) ;
1747: END IF;
1748:
1749: fnd_file.put_line( fnd_file.log, RPAD( l_delete_flag_prmpt, 40) || ' : '|| l_yes_no ) ;
1750: fnd_file.put_line( fnd_file.log, ' ');
1745: IF NVL(g_import_type,'N') <> 'Y' THEN
1746: fnd_file.put_line( fnd_file.log, RPAD( l_batch_num_prmpt, 40) || ' : '|| p_batch_num || '-' || l_batch_desc ) ;
1747: END IF;
1748:
1749: fnd_file.put_line( fnd_file.log, RPAD( l_delete_flag_prmpt, 40) || ' : '|| l_yes_no ) ;
1750: fnd_file.put_line( fnd_file.log, ' ');
1751: fnd_file.put_line( fnd_file.log, '-------------------------------------------------------------');
1752: fnd_file.put_line( fnd_file.log, ' ');
1753:
1746: fnd_file.put_line( fnd_file.log, RPAD( l_batch_num_prmpt, 40) || ' : '|| p_batch_num || '-' || l_batch_desc ) ;
1747: END IF;
1748:
1749: fnd_file.put_line( fnd_file.log, RPAD( l_delete_flag_prmpt, 40) || ' : '|| l_yes_no ) ;
1750: fnd_file.put_line( fnd_file.log, ' ');
1751: fnd_file.put_line( fnd_file.log, '-------------------------------------------------------------');
1752: fnd_file.put_line( fnd_file.log, ' ');
1753:
1754: EXCEPTION
1747: END IF;
1748:
1749: fnd_file.put_line( fnd_file.log, RPAD( l_delete_flag_prmpt, 40) || ' : '|| l_yes_no ) ;
1750: fnd_file.put_line( fnd_file.log, ' ');
1751: fnd_file.put_line( fnd_file.log, '-------------------------------------------------------------');
1752: fnd_file.put_line( fnd_file.log, ' ');
1753:
1754: EXCEPTION
1755: WHEN OTHERS THEN
1748:
1749: fnd_file.put_line( fnd_file.log, RPAD( l_delete_flag_prmpt, 40) || ' : '|| l_yes_no ) ;
1750: fnd_file.put_line( fnd_file.log, ' ');
1751: fnd_file.put_line( fnd_file.log, '-------------------------------------------------------------');
1752: fnd_file.put_line( fnd_file.log, ' ');
1753:
1754: EXCEPTION
1755: WHEN OTHERS THEN
1756: NULL;
3280: FOR indx IN p_igf_ap_message_table.FIRST..p_igf_ap_message_table.LAST
3281:
3282: LOOP
3283:
3284: fnd_file.put_line(fnd_file.log,l_error || l_blank || p_igf_ap_message_table(indx).field_name||' '||p_igf_ap_message_table(indx).msg_text);
3285:
3286: END LOOP;
3287: END IF;
3288: END print_message;
6102: -- check if country code is not'US' AND does not participate in financial aidprogram THEN
6103: -- write into the log file and exit process
6104:
6105: fnd_message.set_name('IGF','IGF_AP_LGCY_PROC_NOT_RUN');
6106: fnd_file.put(fnd_file.log,c_lkup_values_err_rec.meaning || l_blank || fnd_message.get);
6107: RETURN;
6108:
6109: END IF;
6110:
6119: IF c_get_stat%NOTFOUND THEN
6120: -- Award Year setup tampered .... Log a message
6121: fnd_message.set_name('IGF','IGF_AP_AWD_YR_NOT_FOUND');
6122: fnd_message.set_token('P_AWARD_YEAR', l_alternate_code);
6123: fnd_file.put_line(fnd_file.log,l_error || l_blank || fnd_message.get);
6124:
6125: RETURN;
6126: ELSE
6127: -- Award year exists but is it Open/Legacy Details .... check
6127: -- Award year exists but is it Open/Legacy Details .... check
6128: IF g_award_year_status NOT IN ('O','LD') THEN
6129: fnd_message.set_namE('IGF','IGF_AP_LG_INVALID_STAT');
6130: fnd_message.set_token('AWARD_STATUS', g_award_year_status);
6131: fnd_file.put_line(fnd_file.log,l_error || l_blank || fnd_message.get);
6132:
6133: RETURN;
6134: END IF ; -- awd ye open or legacy detail chk
6135: END IF ; -- award year invalid check
6139: IF NVL(p_cps_import,'N') <> 'Y' THEN
6140: l_batch_valid := igf_ap_gen.check_batch ( p_batch_id, 'ISIR') ;
6141: IF NVL(l_batch_valid,'N') <> 'Y' THEN
6142: fnd_message.set_name('IGF','IGF_GR_BATCH_DOES_NOT_EXIST');
6143: fnd_file.put_line(fnd_file.log,l_error || l_blank || fnd_message.get);
6144: RETURN;
6145: END IF;
6146: END IF;
6147:
6206: IF c_award_det_rec.batch_year=c_int_data_rec.batch_year_num THEN
6207: l_num_recrd_processed := l_num_recrd_processed + 1;
6208: EXIT;
6209: END IF;
6210: fnd_file.put_line(fnd_file.log,c_lkup_values_pn_rec.meaning || l_blank || c_int_data_rec.person_number);
6211: fnd_message.set_name('IGF','IGF_AP_AW_BATCH_NOT_EXISTS');
6212: fnd_file.put_line(fnd_file.log,l_error || l_blank || fnd_message.get);
6213: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------------------------');
6214: l_num_recrd_processed := l_num_recrd_processed + 1;
6208: EXIT;
6209: END IF;
6210: fnd_file.put_line(fnd_file.log,c_lkup_values_pn_rec.meaning || l_blank || c_int_data_rec.person_number);
6211: fnd_message.set_name('IGF','IGF_AP_AW_BATCH_NOT_EXISTS');
6212: fnd_file.put_line(fnd_file.log,l_error || l_blank || fnd_message.get);
6213: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------------------------');
6214: l_num_recrd_processed := l_num_recrd_processed + 1;
6215: END LOOP;
6216:
6209: END IF;
6210: fnd_file.put_line(fnd_file.log,c_lkup_values_pn_rec.meaning || l_blank || c_int_data_rec.person_number);
6211: fnd_message.set_name('IGF','IGF_AP_AW_BATCH_NOT_EXISTS');
6212: fnd_file.put_line(fnd_file.log,l_error || l_blank || fnd_message.get);
6213: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------------------------');
6214: l_num_recrd_processed := l_num_recrd_processed + 1;
6215: END LOOP;
6216:
6217: IF c_int_data%NOTFOUND THEN
6417: END IF;
6418:
6419: IF l_valid_for_dml <> 'Y' THEN
6420: IF NVL(p_cps_import,'N') <> 'Y' THEN
6421: fnd_file.put_line(fnd_file.log,c_lkup_values_pn_rec.meaning || l_blank || c_int_data_rec.person_number);
6422: ELSE
6423: fnd_file.put_line(fnd_file.log,c_lkup_values_pn_rec.meaning || l_blank || c_int_data_rec.original_ssn_txt);
6424: END IF;
6425:
6419: IF l_valid_for_dml <> 'Y' THEN
6420: IF NVL(p_cps_import,'N') <> 'Y' THEN
6421: fnd_file.put_line(fnd_file.log,c_lkup_values_pn_rec.meaning || l_blank || c_int_data_rec.person_number);
6422: ELSE
6423: fnd_file.put_line(fnd_file.log,c_lkup_values_pn_rec.meaning || l_blank || c_int_data_rec.original_ssn_txt);
6424: END IF;
6425:
6426: FOR indx_1 IN 1 .. counter
6427: LOOP
6424: END IF;
6425:
6426: FOR indx_1 IN 1 .. counter
6427: LOOP
6428: fnd_file.put_line(fnd_file.log,l_error || l_blank || g_message_table(indx_1).msg_text);
6429: END LOOP;
6430:
6431: IF NOT p_validation_status THEN
6432: print_message(l_igf_ap_message_table );
6430:
6431: IF NOT p_validation_status THEN
6432: print_message(l_igf_ap_message_table );
6433: END IF;
6434: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------------------------');
6435: END IF;
6436: -- write debugging message to log table
6437: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
6438: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_isir_imp_proc.main.debug',l_debug_str);
6445: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_isir_imp_proc.main.begin.debug',l_debug_str||SQLERRM);
6446: END IF;
6447: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
6448: fnd_message.set_token('NAME','IGF_AP_LI_ISIR_IMP_PROC.MAIN'||SQLERRM);
6449: fnd_file.put_line(fnd_file.log,fnd_message.get );
6450: ROLLBACK TO next_record;
6451: END;
6452: COMMIT;
6453: END LOOP;
6459: CLOSE c_int_data ;
6460: END IF;
6461:
6462: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_PROCESSED');
6463: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' ' ||l_num_recrd_processed);
6464: fnd_message.set_name('IGS','IGS_AD_SUCC_IMP_OFR_RESP_REC');
6465: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' ||l_num_recrd_passed);
6466: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_FAILED');
6467: l_num_recrd_failed := l_num_recrd_processed - l_num_recrd_passed;
6461:
6462: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_PROCESSED');
6463: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' ' ||l_num_recrd_processed);
6464: fnd_message.set_name('IGS','IGS_AD_SUCC_IMP_OFR_RESP_REC');
6465: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' ||l_num_recrd_passed);
6466: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_FAILED');
6467: l_num_recrd_failed := l_num_recrd_processed - l_num_recrd_passed;
6468: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' || l_num_recrd_failed);
6469: EXCEPTION
6464: fnd_message.set_name('IGS','IGS_AD_SUCC_IMP_OFR_RESP_REC');
6465: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' ||l_num_recrd_passed);
6466: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_FAILED');
6467: l_num_recrd_failed := l_num_recrd_processed - l_num_recrd_passed;
6468: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' || l_num_recrd_failed);
6469: EXCEPTION
6470: WHEN OTHERS THEN
6471: -- write debugging message to log table
6472: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
6473: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_isir_imp_proc.main.debug',l_debug_str||SQLERRM);
6474: END IF;
6475: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
6476: fnd_message.set_token('NAME','IGF_AP_LI_ISIR_IMP_PROC.MAIN'||SQLERRM);
6477: fnd_file.put_line(fnd_file.log,fnd_message.get );
6478: ROLLBACK TO next_record;
6479: END main;
6480:
6481: PROCEDURE cps_import( errbuf IN OUT NOCOPY VARCHAR2,