253: WHEN OTHERS THEN
254: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
255: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.log_parameters.exception', SQLERRM );
256: END IF;
257: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
258: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.LOG_PARAMETERS');
259: igs_ge_msg_stack.add;
260:
261: END log_parameters;
254: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
255: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.log_parameters.exception', SQLERRM );
256: END IF;
257: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
258: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.LOG_PARAMETERS');
259: igs_ge_msg_stack.add;
260:
261: END log_parameters;
262:
553:
554: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
555: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.update_fa_base_data.exception', l_debug_str || SQLERRM );
556: END IF;
557: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
558: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.UPDATE_FA_BASE_DATA');
559: igs_ge_msg_stack.add;
560: RETURN 'E';
561:
554: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
555: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.update_fa_base_data.exception', l_debug_str || SQLERRM );
556: END IF;
557: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
558: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.UPDATE_FA_BASE_DATA');
559: igs_ge_msg_stack.add;
560: RETURN 'E';
561:
562: END update_fa_base_data;
652:
653: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
654: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.delete_existing_pell_rec.exception', l_debug_str || SQLERRM );
655: END IF;
656: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
657: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.DELETE_EXISTING_PELL_REC');
658: igs_ge_msg_stack.add;
659: RETURN 'E';
660:
653: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
654: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.delete_existing_pell_rec.exception', l_debug_str || SQLERRM );
655: END IF;
656: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
657: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.DELETE_EXISTING_PELL_REC');
658: igs_ge_msg_stack.add;
659: RETURN 'E';
660:
661: END delete_existing_pell_rec;
734: WHEN OTHERS THEN
735: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
736: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.create_pell_disb_batch.exception', SQLERRM );
737: END IF;
738: fnd_message.set_name('IGF','IGF_GR_LI_BDINSRT_FAIL');
739: fnd_message.set_token('BATCH_NUM',p_pell_disb_int.disburse_batch_id_txt);
740: fnd_message.set_token('ORIG_ID',p_pell_disb_int.origination_id_txt);
741: fnd_message.set_token('DISB_NUM',p_pell_disb_int.disbursement_num);
742: igs_ge_msg_stack.add;
735: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
736: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.create_pell_disb_batch.exception', SQLERRM );
737: END IF;
738: fnd_message.set_name('IGF','IGF_GR_LI_BDINSRT_FAIL');
739: fnd_message.set_token('BATCH_NUM',p_pell_disb_int.disburse_batch_id_txt);
740: fnd_message.set_token('ORIG_ID',p_pell_disb_int.origination_id_txt);
741: fnd_message.set_token('DISB_NUM',p_pell_disb_int.disbursement_num);
742: igs_ge_msg_stack.add;
743: RETURN -1;
736: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.create_pell_disb_batch.exception', SQLERRM );
737: END IF;
738: fnd_message.set_name('IGF','IGF_GR_LI_BDINSRT_FAIL');
739: fnd_message.set_token('BATCH_NUM',p_pell_disb_int.disburse_batch_id_txt);
740: fnd_message.set_token('ORIG_ID',p_pell_disb_int.origination_id_txt);
741: fnd_message.set_token('DISB_NUM',p_pell_disb_int.disbursement_num);
742: igs_ge_msg_stack.add;
743: RETURN -1;
744:
737: END IF;
738: fnd_message.set_name('IGF','IGF_GR_LI_BDINSRT_FAIL');
739: fnd_message.set_token('BATCH_NUM',p_pell_disb_int.disburse_batch_id_txt);
740: fnd_message.set_token('ORIG_ID',p_pell_disb_int.origination_id_txt);
741: fnd_message.set_token('DISB_NUM',p_pell_disb_int.disbursement_num);
742: igs_ge_msg_stack.add;
743: RETURN -1;
744:
745: END create_pell_disb_batch;
816: WHEN OTHERS THEN
817: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
818: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.create_pell_disb.exception', SQLERRM );
819: END IF;
820: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
821: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.CREATE_PELL_DISB');
822: igs_ge_msg_stack.add;
823: RETURN FALSE;
824:
817: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
818: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.create_pell_disb.exception', SQLERRM );
819: END IF;
820: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
821: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.CREATE_PELL_DISB');
822: igs_ge_msg_stack.add;
823: RETURN FALSE;
824:
825: END create_pell_disb;
866:
867: OPEN c_awd_disb(g_award_id, p_pell_disb_int.disbursement_num);
868: FETCH c_awd_disb INTO lc_awd_disb;
869: IF (c_awd_disb%NOTFOUND) THEN
870: fnd_message.set_name('IGF','IGF_GR_LI_DNUM_INVALID');
871: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
872: CLOSE c_awd_disb;
873: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
874: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_disb.debug', l_debug_str);
867: OPEN c_awd_disb(g_award_id, p_pell_disb_int.disbursement_num);
868: FETCH c_awd_disb INTO lc_awd_disb;
869: IF (c_awd_disb%NOTFOUND) THEN
870: fnd_message.set_name('IGF','IGF_GR_LI_DNUM_INVALID');
871: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
872: CLOSE c_awd_disb;
873: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
874: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_disb.debug', l_debug_str);
875: l_debug_str := NULL;
889: ( (igf_ap_gen.get_aw_lookup_meaning('IGF_GR_ORIG_STATUS', p_pell_disb_int.disb_ack_act_flag, g_sys_award_year) IS NULL) OR
890: (p_pell_disb_int.disb_ack_act_flag IN ('S','D')) )
891: THEN
892:
893: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
894: fnd_message.set_token('FIELD', 'DISB_ACK_ACT_FLAG');
895: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
896: l_disb_import_status := 'E';
897: END IF;
890: (p_pell_disb_int.disb_ack_act_flag IN ('S','D')) )
891: THEN
892:
893: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
894: fnd_message.set_token('FIELD', 'DISB_ACK_ACT_FLAG');
895: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
896: l_disb_import_status := 'E';
897: END IF;
898:
891: THEN
892:
893: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
894: fnd_message.set_token('FIELD', 'DISB_ACK_ACT_FLAG');
895: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
896: l_disb_import_status := 'E';
897: END IF;
898:
899:
909: IF ( SUBSTR(p_pell_disb_int.disburse_batch_id_txt, 0, 12) <> l_disb_batch_id ) OR
910: ( (p_pell_disb_int.disb_ack_act_flag IN ('R','N')) AND
911: (p_pell_disb_int.disburse_batch_id_txt IS NOT NULL) )
912: THEN
913: fnd_message.set_name('IGF','IGF_GR_LI_DBTH_INVALID');
914: fnd_message.set_token('DISB_BATCH_ID',p_pell_disb_int.disburse_batch_id_txt);
915: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
916: l_disb_import_status := 'E';
917: END IF;
910: ( (p_pell_disb_int.disb_ack_act_flag IN ('R','N')) AND
911: (p_pell_disb_int.disburse_batch_id_txt IS NOT NULL) )
912: THEN
913: fnd_message.set_name('IGF','IGF_GR_LI_DBTH_INVALID');
914: fnd_message.set_token('DISB_BATCH_ID',p_pell_disb_int.disburse_batch_id_txt);
915: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
916: l_disb_import_status := 'E';
917: END IF;
918:
911: (p_pell_disb_int.disburse_batch_id_txt IS NOT NULL) )
912: THEN
913: fnd_message.set_name('IGF','IGF_GR_LI_DBTH_INVALID');
914: fnd_message.set_token('DISB_BATCH_ID',p_pell_disb_int.disburse_batch_id_txt);
915: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
916: l_disb_import_status := 'E';
917: END IF;
918:
919:
924:
925: IF ( (p_pell_disb_int.disb_ack_act_flag IN ('N','R')) AND
926: (p_pell_disb_int.disb_status_date IS NOT NULL) )
927: THEN
928: fnd_message.set_name('IGF','IGF_GR_LI_DBSD_INVALID_1');
929: fnd_message.set_token('DISB_STAT_DT',p_pell_disb_int.disb_status_date);
930: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
931: l_disb_import_status := 'E';
932: ELSIF ( (p_pell_disb_int.disb_ack_act_flag IN ('A','C','E')) AND
925: IF ( (p_pell_disb_int.disb_ack_act_flag IN ('N','R')) AND
926: (p_pell_disb_int.disb_status_date IS NOT NULL) )
927: THEN
928: fnd_message.set_name('IGF','IGF_GR_LI_DBSD_INVALID_1');
929: fnd_message.set_token('DISB_STAT_DT',p_pell_disb_int.disb_status_date);
930: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
931: l_disb_import_status := 'E';
932: ELSIF ( (p_pell_disb_int.disb_ack_act_flag IN ('A','C','E')) AND
933: (p_pell_disb_int.disb_status_date IS NULL) )
926: (p_pell_disb_int.disb_status_date IS NOT NULL) )
927: THEN
928: fnd_message.set_name('IGF','IGF_GR_LI_DBSD_INVALID_1');
929: fnd_message.set_token('DISB_STAT_DT',p_pell_disb_int.disb_status_date);
930: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
931: l_disb_import_status := 'E';
932: ELSIF ( (p_pell_disb_int.disb_ack_act_flag IN ('A','C','E')) AND
933: (p_pell_disb_int.disb_status_date IS NULL) )
934: THEN
931: l_disb_import_status := 'E';
932: ELSIF ( (p_pell_disb_int.disb_ack_act_flag IN ('A','C','E')) AND
933: (p_pell_disb_int.disb_status_date IS NULL) )
934: THEN
935: fnd_message.set_name('IGF','IGF_GR_LI_DBSD_INVALID_2');
936: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
937: l_disb_import_status := 'E';
938: END IF;
939:
932: ELSIF ( (p_pell_disb_int.disb_ack_act_flag IN ('A','C','E')) AND
933: (p_pell_disb_int.disb_status_date IS NULL) )
934: THEN
935: fnd_message.set_name('IGF','IGF_GR_LI_DBSD_INVALID_2');
936: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
937: l_disb_import_status := 'E';
938: END IF;
939:
940:
945:
946: IF ( (p_pell_disb_int.disb_ack_act_flag IN ('N','R')) AND
947: (p_pell_disb_int.disburse_batch_process_date IS NOT NULL) )
948: THEN
949: fnd_message.set_name('IGF','IGF_GR_LI_PRDT_INVALID_1');
950: fnd_message.set_token('PROC_DATE',p_pell_disb_int.disburse_batch_process_date);
951: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
952: l_disb_import_status := 'E';
953: ELSIF ( (p_pell_disb_int.disb_ack_act_flag IN ('A','C','E')) AND
946: IF ( (p_pell_disb_int.disb_ack_act_flag IN ('N','R')) AND
947: (p_pell_disb_int.disburse_batch_process_date IS NOT NULL) )
948: THEN
949: fnd_message.set_name('IGF','IGF_GR_LI_PRDT_INVALID_1');
950: fnd_message.set_token('PROC_DATE',p_pell_disb_int.disburse_batch_process_date);
951: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
952: l_disb_import_status := 'E';
953: ELSIF ( (p_pell_disb_int.disb_ack_act_flag IN ('A','C','E')) AND
954: (p_pell_disb_int.disburse_batch_process_date IS NULL) )
947: (p_pell_disb_int.disburse_batch_process_date IS NOT NULL) )
948: THEN
949: fnd_message.set_name('IGF','IGF_GR_LI_PRDT_INVALID_1');
950: fnd_message.set_token('PROC_DATE',p_pell_disb_int.disburse_batch_process_date);
951: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
952: l_disb_import_status := 'E';
953: ELSIF ( (p_pell_disb_int.disb_ack_act_flag IN ('A','C','E')) AND
954: (p_pell_disb_int.disburse_batch_process_date IS NULL) )
955: THEN
952: l_disb_import_status := 'E';
953: ELSIF ( (p_pell_disb_int.disb_ack_act_flag IN ('A','C','E')) AND
954: (p_pell_disb_int.disburse_batch_process_date IS NULL) )
955: THEN
956: fnd_message.set_name('IGF','IGF_GR_LI_PRDT_INVALID_2');
957: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
958: l_disb_import_status := 'E';
959: END IF;
960:
953: ELSIF ( (p_pell_disb_int.disb_ack_act_flag IN ('A','C','E')) AND
954: (p_pell_disb_int.disburse_batch_process_date IS NULL) )
955: THEN
956: fnd_message.set_name('IGF','IGF_GR_LI_PRDT_INVALID_2');
957: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
958: l_disb_import_status := 'E';
959: END IF;
960:
961:
965: END IF;
966: IF ( (p_pell_disb_int.disb_ack_act_flag IN ('N','R')) AND
967: (p_pell_disb_int.pymt_prd_start_date IS NOT NULL) )
968: THEN
969: fnd_message.set_name('IGF','IGF_GR_LI_PMST_INVALID');
970: fnd_message.set_token('PM_STDT',p_pell_disb_int.pymt_prd_start_date);
971: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
972: l_disb_import_status := 'E';
973: END IF;
966: IF ( (p_pell_disb_int.disb_ack_act_flag IN ('N','R')) AND
967: (p_pell_disb_int.pymt_prd_start_date IS NOT NULL) )
968: THEN
969: fnd_message.set_name('IGF','IGF_GR_LI_PMST_INVALID');
970: fnd_message.set_token('PM_STDT',p_pell_disb_int.pymt_prd_start_date);
971: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
972: l_disb_import_status := 'E';
973: END IF;
974:
967: (p_pell_disb_int.pymt_prd_start_date IS NOT NULL) )
968: THEN
969: fnd_message.set_name('IGF','IGF_GR_LI_PMST_INVALID');
970: fnd_message.set_token('PM_STDT',p_pell_disb_int.pymt_prd_start_date);
971: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
972: l_disb_import_status := 'E';
973: END IF;
974:
975:
979: END IF;
980: IF ( (p_pell_disb_int.disb_ack_act_flag IN ('N','R')) AND
981: (p_pell_disb_int.accpt_disb_date IS NOT NULL) )
982: THEN
983: fnd_message.set_name('IGF','IGF_GR_LI_ADBDT_INVALID_1');
984: fnd_message.set_token('ACC_DISB_DT',p_pell_disb_int.accpt_disb_date);
985: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
986: l_disb_import_status := 'E';
987: ELSIF ( (p_pell_disb_int.disb_ack_act_flag IN ('A','C','E')) AND
980: IF ( (p_pell_disb_int.disb_ack_act_flag IN ('N','R')) AND
981: (p_pell_disb_int.accpt_disb_date IS NOT NULL) )
982: THEN
983: fnd_message.set_name('IGF','IGF_GR_LI_ADBDT_INVALID_1');
984: fnd_message.set_token('ACC_DISB_DT',p_pell_disb_int.accpt_disb_date);
985: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
986: l_disb_import_status := 'E';
987: ELSIF ( (p_pell_disb_int.disb_ack_act_flag IN ('A','C','E')) AND
988: (p_pell_disb_int.accpt_disb_date IS NULL) )
981: (p_pell_disb_int.accpt_disb_date IS NOT NULL) )
982: THEN
983: fnd_message.set_name('IGF','IGF_GR_LI_ADBDT_INVALID_1');
984: fnd_message.set_token('ACC_DISB_DT',p_pell_disb_int.accpt_disb_date);
985: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
986: l_disb_import_status := 'E';
987: ELSIF ( (p_pell_disb_int.disb_ack_act_flag IN ('A','C','E')) AND
988: (p_pell_disb_int.accpt_disb_date IS NULL) )
989: THEN
986: l_disb_import_status := 'E';
987: ELSIF ( (p_pell_disb_int.disb_ack_act_flag IN ('A','C','E')) AND
988: (p_pell_disb_int.accpt_disb_date IS NULL) )
989: THEN
990: fnd_message.set_name('IGF','IGF_GR_LI_ADBDT_INVALID_2');
991: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
992: l_disb_import_status := 'E';
993: END IF;
994:
987: ELSIF ( (p_pell_disb_int.disb_ack_act_flag IN ('A','C','E')) AND
988: (p_pell_disb_int.accpt_disb_date IS NULL) )
989: THEN
990: fnd_message.set_name('IGF','IGF_GR_LI_ADBDT_INVALID_2');
991: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
992: l_disb_import_status := 'E';
993: END IF;
994:
995:
999: END IF;
1000: IF ( (p_pell_disb_int.disb_ack_act_flag IN ('N','R')) AND
1001: (p_pell_disb_int.disb_accpt_amt IS NOT NULL) )
1002: THEN
1003: fnd_message.set_name('IGF','IGF_GR_LI_DBAC_AMT_INVALID_1');
1004: fnd_message.set_token('DISB_AC_AMT',p_pell_disb_int.disb_accpt_amt);
1005: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1006: l_disb_import_status := 'E';
1007: ELSIF (p_pell_disb_int.disb_ack_act_flag IN ('A','C','E')) THEN
1000: IF ( (p_pell_disb_int.disb_ack_act_flag IN ('N','R')) AND
1001: (p_pell_disb_int.disb_accpt_amt IS NOT NULL) )
1002: THEN
1003: fnd_message.set_name('IGF','IGF_GR_LI_DBAC_AMT_INVALID_1');
1004: fnd_message.set_token('DISB_AC_AMT',p_pell_disb_int.disb_accpt_amt);
1005: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1006: l_disb_import_status := 'E';
1007: ELSIF (p_pell_disb_int.disb_ack_act_flag IN ('A','C','E')) THEN
1008:
1001: (p_pell_disb_int.disb_accpt_amt IS NOT NULL) )
1002: THEN
1003: fnd_message.set_name('IGF','IGF_GR_LI_DBAC_AMT_INVALID_1');
1004: fnd_message.set_token('DISB_AC_AMT',p_pell_disb_int.disb_accpt_amt);
1005: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1006: l_disb_import_status := 'E';
1007: ELSIF (p_pell_disb_int.disb_ack_act_flag IN ('A','C','E')) THEN
1008:
1009: -- Disb Acpt Amt is mandatory if ack status is Accepted, Corrected or Rejected
1007: ELSIF (p_pell_disb_int.disb_ack_act_flag IN ('A','C','E')) THEN
1008:
1009: -- Disb Acpt Amt is mandatory if ack status is Accepted, Corrected or Rejected
1010: IF p_pell_disb_int.disb_accpt_amt IS NULL THEN
1011: fnd_message.set_name('IGF','IGF_GR_LI_DBAC_AMT_INVALID_2');
1012: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1013: l_disb_import_status := 'E';
1014: -- Validate Disbursement Amount against the Disb table
1015: ELSIF p_pell_disb_int.disb_accpt_amt <> lc_awd_disb.disb_net_amt THEN
1008:
1009: -- Disb Acpt Amt is mandatory if ack status is Accepted, Corrected or Rejected
1010: IF p_pell_disb_int.disb_accpt_amt IS NULL THEN
1011: fnd_message.set_name('IGF','IGF_GR_LI_DBAC_AMT_INVALID_2');
1012: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1013: l_disb_import_status := 'E';
1014: -- Validate Disbursement Amount against the Disb table
1015: ELSIF p_pell_disb_int.disb_accpt_amt <> lc_awd_disb.disb_net_amt THEN
1016: fnd_message.set_name('IGF','IGF_GR_LI_DAMT_INVALID');
1012: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1013: l_disb_import_status := 'E';
1014: -- Validate Disbursement Amount against the Disb table
1015: ELSIF p_pell_disb_int.disb_accpt_amt <> lc_awd_disb.disb_net_amt THEN
1016: fnd_message.set_name('IGF','IGF_GR_LI_DAMT_INVALID');
1017: fnd_message.set_token('INT_AMT',p_pell_disb_int.disb_accpt_amt);
1018: fnd_message.set_token('SYS_AMT',lc_awd_disb.disb_net_amt);
1019: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1020:
1013: l_disb_import_status := 'E';
1014: -- Validate Disbursement Amount against the Disb table
1015: ELSIF p_pell_disb_int.disb_accpt_amt <> lc_awd_disb.disb_net_amt THEN
1016: fnd_message.set_name('IGF','IGF_GR_LI_DAMT_INVALID');
1017: fnd_message.set_token('INT_AMT',p_pell_disb_int.disb_accpt_amt);
1018: fnd_message.set_token('SYS_AMT',lc_awd_disb.disb_net_amt);
1019: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1020:
1021: END IF;
1014: -- Validate Disbursement Amount against the Disb table
1015: ELSIF p_pell_disb_int.disb_accpt_amt <> lc_awd_disb.disb_net_amt THEN
1016: fnd_message.set_name('IGF','IGF_GR_LI_DAMT_INVALID');
1017: fnd_message.set_token('INT_AMT',p_pell_disb_int.disb_accpt_amt);
1018: fnd_message.set_token('SYS_AMT',lc_awd_disb.disb_net_amt);
1019: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1020:
1021: END IF;
1022:
1015: ELSIF p_pell_disb_int.disb_accpt_amt <> lc_awd_disb.disb_net_amt THEN
1016: fnd_message.set_name('IGF','IGF_GR_LI_DAMT_INVALID');
1017: fnd_message.set_token('INT_AMT',p_pell_disb_int.disb_accpt_amt);
1018: fnd_message.set_token('SYS_AMT',lc_awd_disb.disb_net_amt);
1019: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1020:
1021: END IF;
1022:
1023: END IF;
1031: IF ( (p_pell_disb_int.disb_ack_act_flag IN ('N','R')) AND
1032: (p_pell_disb_int.disbursement_sign_flag IS NOT NULL) )
1033:
1034: THEN
1035: fnd_message.set_name('IGF','IGF_GR_LI_ADBCR_INVALID_1');
1036: fnd_message.set_token('ACC_DBCR_FLAG',p_pell_disb_int.disbursement_sign_flag);
1037: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1038: l_disb_import_status := 'E';
1039:
1032: (p_pell_disb_int.disbursement_sign_flag IS NOT NULL) )
1033:
1034: THEN
1035: fnd_message.set_name('IGF','IGF_GR_LI_ADBCR_INVALID_1');
1036: fnd_message.set_token('ACC_DBCR_FLAG',p_pell_disb_int.disbursement_sign_flag);
1037: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1038: l_disb_import_status := 'E';
1039:
1040: ELSIF ( (p_pell_disb_int.disb_ack_act_flag IN ('A','C','E')) AND
1033:
1034: THEN
1035: fnd_message.set_name('IGF','IGF_GR_LI_ADBCR_INVALID_1');
1036: fnd_message.set_token('ACC_DBCR_FLAG',p_pell_disb_int.disbursement_sign_flag);
1037: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1038: l_disb_import_status := 'E';
1039:
1040: ELSIF ( (p_pell_disb_int.disb_ack_act_flag IN ('A','C','E')) AND
1041: (p_pell_disb_int.disbursement_sign_flag IS NULL) )
1039:
1040: ELSIF ( (p_pell_disb_int.disb_ack_act_flag IN ('A','C','E')) AND
1041: (p_pell_disb_int.disbursement_sign_flag IS NULL) )
1042: THEN
1043: fnd_message.set_name('IGF','IGF_GR_LI_ADBCR_INVALID_2');
1044: fnd_message.set_token('ACC_DBCR_FLAG',p_pell_disb_int.disbursement_sign_flag);
1045: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1046: l_disb_import_status := 'E';
1047:
1040: ELSIF ( (p_pell_disb_int.disb_ack_act_flag IN ('A','C','E')) AND
1041: (p_pell_disb_int.disbursement_sign_flag IS NULL) )
1042: THEN
1043: fnd_message.set_name('IGF','IGF_GR_LI_ADBCR_INVALID_2');
1044: fnd_message.set_token('ACC_DBCR_FLAG',p_pell_disb_int.disbursement_sign_flag);
1045: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1046: l_disb_import_status := 'E';
1047:
1048: END IF;
1041: (p_pell_disb_int.disbursement_sign_flag IS NULL) )
1042: THEN
1043: fnd_message.set_name('IGF','IGF_GR_LI_ADBCR_INVALID_2');
1044: fnd_message.set_token('ACC_DBCR_FLAG',p_pell_disb_int.disbursement_sign_flag);
1045: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1046: l_disb_import_status := 'E';
1047:
1048: END IF;
1049:
1056: IF (p_pell_disb_int.disbursement_sign_flag = 'P' AND NVL(p_pell_disb_int.disb_accpt_amt,1) <= 0 ) OR
1057: (p_pell_disb_int.disbursement_sign_flag = 'N' AND NVL(p_pell_disb_int.disb_accpt_amt,-1) > 0 ) OR
1058: (p_pell_disb_int.disbursement_sign_flag NOT IN ('P','N'))
1059: THEN
1060: fnd_message.set_name('IGF','IGF_GR_LI_ADBCR_INVALID_3');
1061: fnd_message.set_token('ACC_DBCR_FLAG',p_pell_disb_int.disbursement_sign_flag);
1062: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1063: l_disb_import_status := 'E';
1064: END IF;
1057: (p_pell_disb_int.disbursement_sign_flag = 'N' AND NVL(p_pell_disb_int.disb_accpt_amt,-1) > 0 ) OR
1058: (p_pell_disb_int.disbursement_sign_flag NOT IN ('P','N'))
1059: THEN
1060: fnd_message.set_name('IGF','IGF_GR_LI_ADBCR_INVALID_3');
1061: fnd_message.set_token('ACC_DBCR_FLAG',p_pell_disb_int.disbursement_sign_flag);
1062: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1063: l_disb_import_status := 'E';
1064: END IF;
1065: END IF;
1058: (p_pell_disb_int.disbursement_sign_flag NOT IN ('P','N'))
1059: THEN
1060: fnd_message.set_name('IGF','IGF_GR_LI_ADBCR_INVALID_3');
1061: fnd_message.set_token('ACC_DBCR_FLAG',p_pell_disb_int.disbursement_sign_flag);
1062: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1063: l_disb_import_status := 'E';
1064: END IF;
1065: END IF;
1066:
1070: END IF;
1071: IF ( (p_pell_disb_int.disb_ack_act_flag IN ('N','R')) AND
1072: (p_pell_disb_int.accpt_pymt_prd_start_date IS NOT NULL) )
1073: THEN
1074: fnd_message.set_name('IGF','IGF_GR_LI_APMST_INVALID');
1075: fnd_message.set_token('ACC_PM_STDT',p_pell_disb_int.accpt_pymt_prd_start_date);
1076: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1077: l_disb_import_status := 'E';
1078: END IF;
1071: IF ( (p_pell_disb_int.disb_ack_act_flag IN ('N','R')) AND
1072: (p_pell_disb_int.accpt_pymt_prd_start_date IS NOT NULL) )
1073: THEN
1074: fnd_message.set_name('IGF','IGF_GR_LI_APMST_INVALID');
1075: fnd_message.set_token('ACC_PM_STDT',p_pell_disb_int.accpt_pymt_prd_start_date);
1076: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1077: l_disb_import_status := 'E';
1078: END IF;
1079:
1072: (p_pell_disb_int.accpt_pymt_prd_start_date IS NOT NULL) )
1073: THEN
1074: fnd_message.set_name('IGF','IGF_GR_LI_APMST_INVALID');
1075: fnd_message.set_token('ACC_PM_STDT',p_pell_disb_int.accpt_pymt_prd_start_date);
1076: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1077: l_disb_import_status := 'E';
1078: END IF;
1079:
1080:
1084: END IF;
1085: IF ( (p_pell_disb_int.disb_ack_act_flag IN ('N','R')) AND
1086: (p_pell_disb_int.disb_ytd_amt IS NOT NULL) )
1087: THEN
1088: fnd_message.set_name('IGF','IGF_GR_LI_DYTD_INVALID_1');
1089: fnd_message.set_token('YTD_AMT',p_pell_disb_int.disb_ytd_amt);
1090: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1091: l_disb_import_status := 'E';
1092:
1085: IF ( (p_pell_disb_int.disb_ack_act_flag IN ('N','R')) AND
1086: (p_pell_disb_int.disb_ytd_amt IS NOT NULL) )
1087: THEN
1088: fnd_message.set_name('IGF','IGF_GR_LI_DYTD_INVALID_1');
1089: fnd_message.set_token('YTD_AMT',p_pell_disb_int.disb_ytd_amt);
1090: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1091: l_disb_import_status := 'E';
1092:
1093: ELSIF ( (p_pell_disb_int.disb_ack_act_flag IN ('A','C','E')) AND
1086: (p_pell_disb_int.disb_ytd_amt IS NOT NULL) )
1087: THEN
1088: fnd_message.set_name('IGF','IGF_GR_LI_DYTD_INVALID_1');
1089: fnd_message.set_token('YTD_AMT',p_pell_disb_int.disb_ytd_amt);
1090: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1091: l_disb_import_status := 'E';
1092:
1093: ELSIF ( (p_pell_disb_int.disb_ack_act_flag IN ('A','C','E')) AND
1094: (p_pell_disb_int.disb_ytd_amt IS NULL) )
1092:
1093: ELSIF ( (p_pell_disb_int.disb_ack_act_flag IN ('A','C','E')) AND
1094: (p_pell_disb_int.disb_ytd_amt IS NULL) )
1095: THEN
1096: fnd_message.set_name('IGF','IGF_GR_LI_DYTD_INVALID_2');
1097: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1098: l_disb_import_status := 'E';
1099:
1100: END IF;
1093: ELSIF ( (p_pell_disb_int.disb_ack_act_flag IN ('A','C','E')) AND
1094: (p_pell_disb_int.disb_ytd_amt IS NULL) )
1095: THEN
1096: fnd_message.set_name('IGF','IGF_GR_LI_DYTD_INVALID_2');
1097: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1098: l_disb_import_status := 'E';
1099:
1100: END IF;
1101:
1106: END IF;
1107: IF ( (p_pell_disb_int.disb_ack_act_flag IN ('N','R')) AND
1108: (p_pell_disb_int.edit_codes_txt IS NOT NULL) )
1109: THEN
1110: fnd_message.set_name('IGF','IGF_GR_LI_REJCD_INVALID');
1111: fnd_message.set_token('REJ_CODES',p_pell_disb_int.edit_codes_txt);
1112: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1113: l_disb_import_status := 'E';
1114: END IF;
1107: IF ( (p_pell_disb_int.disb_ack_act_flag IN ('N','R')) AND
1108: (p_pell_disb_int.edit_codes_txt IS NOT NULL) )
1109: THEN
1110: fnd_message.set_name('IGF','IGF_GR_LI_REJCD_INVALID');
1111: fnd_message.set_token('REJ_CODES',p_pell_disb_int.edit_codes_txt);
1112: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1113: l_disb_import_status := 'E';
1114: END IF;
1115:
1108: (p_pell_disb_int.edit_codes_txt IS NOT NULL) )
1109: THEN
1110: fnd_message.set_name('IGF','IGF_GR_LI_REJCD_INVALID');
1111: fnd_message.set_token('REJ_CODES',p_pell_disb_int.edit_codes_txt);
1112: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1113: l_disb_import_status := 'E';
1114: END IF;
1115:
1116:
1120: END IF;
1121: IF ( (p_pell_disb_int.disb_ack_act_flag IN ('N','R')) AND
1122: (p_pell_disb_int.ed_use_flags IS NOT NULL) )
1123: THEN
1124: fnd_message.set_name('IGF','IGF_GR_LI_DEDF_INVALID');
1125: fnd_message.set_token('DISB_ED_FLAGS',p_pell_disb_int.ed_use_flags);
1126: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1127: l_disb_import_status := 'E';
1128: END IF;
1121: IF ( (p_pell_disb_int.disb_ack_act_flag IN ('N','R')) AND
1122: (p_pell_disb_int.ed_use_flags IS NOT NULL) )
1123: THEN
1124: fnd_message.set_name('IGF','IGF_GR_LI_DEDF_INVALID');
1125: fnd_message.set_token('DISB_ED_FLAGS',p_pell_disb_int.ed_use_flags);
1126: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1127: l_disb_import_status := 'E';
1128: END IF;
1129:
1122: (p_pell_disb_int.ed_use_flags IS NOT NULL) )
1123: THEN
1124: fnd_message.set_name('IGF','IGF_GR_LI_DEDF_INVALID');
1125: fnd_message.set_token('DISB_ED_FLAGS',p_pell_disb_int.ed_use_flags);
1126: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
1127: l_disb_import_status := 'E';
1128: END IF;
1129:
1130: -- Completed all validations for Pell Disbursements
1188: WHEN OTHERS THEN
1189: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
1190: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.import_pell_disb.exception', l_debug_str || SQLERRM );
1191: END IF;
1192: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1193: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.IMPORT_PELL_DISB');
1194: igs_ge_msg_stack.add;
1195: RETURN 'E';
1196:
1189: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
1190: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.import_pell_disb.exception', l_debug_str || SQLERRM );
1191: END IF;
1192: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1193: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.IMPORT_PELL_DISB');
1194: igs_ge_msg_stack.add;
1195: RETURN 'E';
1196:
1197: END import_pell_disb;
1269: WHEN OTHERS THEN
1270: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
1271: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.create_pell_orig_batch.exception', SQLERRM );
1272: END IF;
1273: fnd_message.set_name('IGF','IGF_GR_LI_BINSERT_FAIL');
1274: fnd_message.set_token('BATCH_NUM',p_pell_orig_int.orig_send_batch_id_txt);
1275: igs_ge_msg_stack.add;
1276: RETURN -1;
1277:
1270: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
1271: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.create_pell_orig_batch.exception', SQLERRM );
1272: END IF;
1273: fnd_message.set_name('IGF','IGF_GR_LI_BINSERT_FAIL');
1274: fnd_message.set_token('BATCH_NUM',p_pell_orig_int.orig_send_batch_id_txt);
1275: igs_ge_msg_stack.add;
1276: RETURN -1;
1277:
1278: END create_pell_orig_batch;
1401: WHEN OTHERS THEN
1402: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
1403: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.create_pell_orig.exception', SQLERRM );
1404: END IF;
1405: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1406: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.CREATE_PELL_ORIG');
1407: igs_ge_msg_stack.add;
1408: RETURN FALSE;
1409:
1402: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
1403: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.create_pell_orig.exception', SQLERRM );
1404: END IF;
1405: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1406: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.CREATE_PELL_ORIG');
1407: igs_ge_msg_stack.add;
1408: RETURN FALSE;
1409:
1410: END create_pell_orig;
1518:
1519: OPEN c_awd_details(g_base_id, p_pell_orig_int.award_number_txt);
1520: FETCH c_awd_details INTO lc_awd_details;
1521: IF c_awd_details%NOTFOUND THEN
1522: fnd_message.set_name('IGF','IGF_GR_LI_AWD_INVALID');
1523: fnd_file.put_line(fnd_file.log, fnd_message.get);
1524:
1525: CLOSE c_awd_details;
1526: ROLLBACK TO SP_PELL;
1519: OPEN c_awd_details(g_base_id, p_pell_orig_int.award_number_txt);
1520: FETCH c_awd_details INTO lc_awd_details;
1521: IF c_awd_details%NOTFOUND THEN
1522: fnd_message.set_name('IGF','IGF_GR_LI_AWD_INVALID');
1523: fnd_file.put_line(fnd_file.log, fnd_message.get);
1524:
1525: CLOSE c_awd_details;
1526: ROLLBACK TO SP_PELL;
1527: l_pell_import_status := 'E';
1550: CLOSE c_chk_rfms_awd;
1551:
1552: IF lc_chk_rfms_awd.origination_id IS NOT NULL THEN
1553: ROLLBACK TO SP_PELL;
1554: fnd_message.set_name('IGF','IGF_GR_LI_OINSERT_DUP_AWID');
1555: fnd_message.set_token('SYS_ORIG_ID',lc_chk_rfms_awd.origination_id);
1556: fnd_message.set_token('AWARD_ID',g_award_id);
1557: fnd_file.put_line(fnd_file.log, fnd_message.get);
1558: l_pell_import_status := 'E';
1551:
1552: IF lc_chk_rfms_awd.origination_id IS NOT NULL THEN
1553: ROLLBACK TO SP_PELL;
1554: fnd_message.set_name('IGF','IGF_GR_LI_OINSERT_DUP_AWID');
1555: fnd_message.set_token('SYS_ORIG_ID',lc_chk_rfms_awd.origination_id);
1556: fnd_message.set_token('AWARD_ID',g_award_id);
1557: fnd_file.put_line(fnd_file.log, fnd_message.get);
1558: l_pell_import_status := 'E';
1559: RETURN l_pell_import_status;
1552: IF lc_chk_rfms_awd.origination_id IS NOT NULL THEN
1553: ROLLBACK TO SP_PELL;
1554: fnd_message.set_name('IGF','IGF_GR_LI_OINSERT_DUP_AWID');
1555: fnd_message.set_token('SYS_ORIG_ID',lc_chk_rfms_awd.origination_id);
1556: fnd_message.set_token('AWARD_ID',g_award_id);
1557: fnd_file.put_line(fnd_file.log, fnd_message.get);
1558: l_pell_import_status := 'E';
1559: RETURN l_pell_import_status;
1560: END IF;
1553: ROLLBACK TO SP_PELL;
1554: fnd_message.set_name('IGF','IGF_GR_LI_OINSERT_DUP_AWID');
1555: fnd_message.set_token('SYS_ORIG_ID',lc_chk_rfms_awd.origination_id);
1556: fnd_message.set_token('AWARD_ID',g_award_id);
1557: fnd_file.put_line(fnd_file.log, fnd_message.get);
1558: l_pell_import_status := 'E';
1559: RETURN l_pell_import_status;
1560: END IF;
1561:
1565: l_debug_str := l_debug_str || ', Transaction Number : ' || p_pell_orig_int.transaction_num_txt;
1566: END IF;
1567: -- Bug# 3089841 Added the check for the transaction_num to be NULL
1568: IF p_pell_orig_int.transaction_num_txt IS NULL OR TO_NUMBER(p_pell_orig_int.transaction_num_txt) < 1 OR TO_NUMBER(p_pell_orig_int.transaction_num_txt) > 99 THEN
1569: fnd_message.set_name('IGF','IGF_GR_LI_TRNM_INVALID');
1570: fnd_message.set_token('TRNM',p_pell_orig_int.transaction_num_txt);
1571: fnd_file.put_line(fnd_file.log, fnd_message.get);
1572: l_pell_import_status := 'E';
1573: END IF;
1566: END IF;
1567: -- Bug# 3089841 Added the check for the transaction_num to be NULL
1568: IF p_pell_orig_int.transaction_num_txt IS NULL OR TO_NUMBER(p_pell_orig_int.transaction_num_txt) < 1 OR TO_NUMBER(p_pell_orig_int.transaction_num_txt) > 99 THEN
1569: fnd_message.set_name('IGF','IGF_GR_LI_TRNM_INVALID');
1570: fnd_message.set_token('TRNM',p_pell_orig_int.transaction_num_txt);
1571: fnd_file.put_line(fnd_file.log, fnd_message.get);
1572: l_pell_import_status := 'E';
1573: END IF;
1574:
1567: -- Bug# 3089841 Added the check for the transaction_num to be NULL
1568: IF p_pell_orig_int.transaction_num_txt IS NULL OR TO_NUMBER(p_pell_orig_int.transaction_num_txt) < 1 OR TO_NUMBER(p_pell_orig_int.transaction_num_txt) > 99 THEN
1569: fnd_message.set_name('IGF','IGF_GR_LI_TRNM_INVALID');
1570: fnd_message.set_token('TRNM',p_pell_orig_int.transaction_num_txt);
1571: fnd_file.put_line(fnd_file.log, fnd_message.get);
1572: l_pell_import_status := 'E';
1573: END IF;
1574:
1575:
1584: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug', l_debug_str);
1585: l_debug_str := NULL;
1586: END IF;
1587: -- Bug# 3089841 Changed the message
1588: fnd_message.set_name('IGF','IGF_GR_ISIR_NOT_FOUND');
1589: fnd_message.set_token('STUD',NULL);
1590: fnd_file.put_line(fnd_file.log, fnd_message.get);
1591: CLOSE c_isir_details;
1592: RETURN 'E';
1585: l_debug_str := NULL;
1586: END IF;
1587: -- Bug# 3089841 Changed the message
1588: fnd_message.set_name('IGF','IGF_GR_ISIR_NOT_FOUND');
1589: fnd_message.set_token('STUD',NULL);
1590: fnd_file.put_line(fnd_file.log, fnd_message.get);
1591: CLOSE c_isir_details;
1592: RETURN 'E';
1593: END IF;
1586: END IF;
1587: -- Bug# 3089841 Changed the message
1588: fnd_message.set_name('IGF','IGF_GR_ISIR_NOT_FOUND');
1589: fnd_message.set_token('STUD',NULL);
1590: fnd_file.put_line(fnd_file.log, fnd_message.get);
1591: CLOSE c_isir_details;
1592: RETURN 'E';
1593: END IF;
1594: CLOSE c_isir_details;
1601: IF (p_pell_orig_int.orig_status_code IS NOT NULL) AND
1602: (igf_ap_gen.get_aw_lookup_meaning('IGF_GR_ORIG_STATUS', p_pell_orig_int.orig_status_code, g_sys_award_year) IS NULL OR
1603: p_pell_orig_int.orig_status_code IN ('S','D') )
1604: THEN
1605: fnd_message.set_name('IGF','IGF_GR_LI_OSTS_INVALID');
1606: fnd_message.set_token('ORIG_STATUS',p_pell_orig_int.orig_status_code);
1607: fnd_file.put_line(fnd_file.log, fnd_message.get);
1608: l_pell_import_status := 'E';
1609: END IF;
1602: (igf_ap_gen.get_aw_lookup_meaning('IGF_GR_ORIG_STATUS', p_pell_orig_int.orig_status_code, g_sys_award_year) IS NULL OR
1603: p_pell_orig_int.orig_status_code IN ('S','D') )
1604: THEN
1605: fnd_message.set_name('IGF','IGF_GR_LI_OSTS_INVALID');
1606: fnd_message.set_token('ORIG_STATUS',p_pell_orig_int.orig_status_code);
1607: fnd_file.put_line(fnd_file.log, fnd_message.get);
1608: l_pell_import_status := 'E';
1609: END IF;
1610:
1603: p_pell_orig_int.orig_status_code IN ('S','D') )
1604: THEN
1605: fnd_message.set_name('IGF','IGF_GR_LI_OSTS_INVALID');
1606: fnd_message.set_token('ORIG_STATUS',p_pell_orig_int.orig_status_code);
1607: fnd_file.put_line(fnd_file.log, fnd_message.get);
1608: l_pell_import_status := 'E';
1609: END IF;
1610:
1611: -- nsidana 11/4/2003 FA126 Multiple FA offices.
1621: -- Derive the attending campus ID for the student and validate it against the values in the interface table. They shud match, else error.
1622: igf_sl_gen.get_stu_fao_code(g_base_id,'PELL_ID',l_office_cd,l_ret_status,l_msg_data);
1623: IF(l_ret_status = 'E')THEN
1624: -- return status is error then l_msg_data would have message name. Put it on the Stack and raise error.
1625: fnd_message.set_name('IGF',l_msg_data);
1626: fnd_file.put_line(fnd_file.log,fnd_message.get);
1627: l_pell_import_status := 'E';
1628: ELSE -- return status indicating success here
1629: IF((l_office_cd IS NOT NULL) AND (l_office_cd <> p_pell_orig_int.attending_campus_cd))
1622: igf_sl_gen.get_stu_fao_code(g_base_id,'PELL_ID',l_office_cd,l_ret_status,l_msg_data);
1623: IF(l_ret_status = 'E')THEN
1624: -- return status is error then l_msg_data would have message name. Put it on the Stack and raise error.
1625: fnd_message.set_name('IGF',l_msg_data);
1626: fnd_file.put_line(fnd_file.log,fnd_message.get);
1627: l_pell_import_status := 'E';
1628: ELSE -- return status indicating success here
1629: IF((l_office_cd IS NOT NULL) AND (l_office_cd <> p_pell_orig_int.attending_campus_cd))
1630: THEN
1628: ELSE -- return status indicating success here
1629: IF((l_office_cd IS NOT NULL) AND (l_office_cd <> p_pell_orig_int.attending_campus_cd))
1630: THEN
1631: -- Raise error.
1632: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
1633: fnd_message.set_token('FIELD','ATTENDING_CAMPUS_CD');
1634: fnd_file.put_line(fnd_file.log, fnd_message.get);
1635: l_pell_import_status := 'E';
1636: ELSE
1629: IF((l_office_cd IS NOT NULL) AND (l_office_cd <> p_pell_orig_int.attending_campus_cd))
1630: THEN
1631: -- Raise error.
1632: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
1633: fnd_message.set_token('FIELD','ATTENDING_CAMPUS_CD');
1634: fnd_file.put_line(fnd_file.log, fnd_message.get);
1635: l_pell_import_status := 'E';
1636: ELSE
1637: g_attending_pell_cd := TRIM(p_pell_orig_int.attending_campus_cd);
1630: THEN
1631: -- Raise error.
1632: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
1633: fnd_message.set_token('FIELD','ATTENDING_CAMPUS_CD');
1634: fnd_file.put_line(fnd_file.log, fnd_message.get);
1635: l_pell_import_status := 'E';
1636: ELSE
1637: g_attending_pell_cd := TRIM(p_pell_orig_int.attending_campus_cd);
1638: END IF;
1641:
1642: igf_sl_gen.get_stu_fao_code(g_base_id,'PELL_ID',l_office_cd, l_ret_status,l_msg_data);
1643: IF(l_ret_status = 'E')
1644: THEN
1645: fnd_message.set_name('IGF',l_msg_data);
1646: fnd_file.put_line(fnd_file.log,fnd_message.get);
1647: l_pell_import_status := 'E';
1648: ELSIF(l_ret_status = 'S')
1649: THEN
1642: igf_sl_gen.get_stu_fao_code(g_base_id,'PELL_ID',l_office_cd, l_ret_status,l_msg_data);
1643: IF(l_ret_status = 'E')
1644: THEN
1645: fnd_message.set_name('IGF',l_msg_data);
1646: fnd_file.put_line(fnd_file.log,fnd_message.get);
1647: l_pell_import_status := 'E';
1648: ELSIF(l_ret_status = 'S')
1649: THEN
1650: g_attending_pell_cd := l_office_cd;
1655:
1656: g_reporting_pell_id:=null;
1657: g_reporting_pell_id:=derive_rep_pell_id(p_pell_orig_int);
1658: IF (g_reporting_pell_id IS NULL) THEN
1659: fnd_message.set_name( 'IGF', 'IGF_GR_NOREP_PELL');
1660: fnd_message.set_token('STU_NUMBER',p_pell_orig_int.person_number);
1661: fnd_file.put_line(fnd_file.log,fnd_message.get);
1662: l_pell_import_status := 'E';
1663: END IF;
1656: g_reporting_pell_id:=null;
1657: g_reporting_pell_id:=derive_rep_pell_id(p_pell_orig_int);
1658: IF (g_reporting_pell_id IS NULL) THEN
1659: fnd_message.set_name( 'IGF', 'IGF_GR_NOREP_PELL');
1660: fnd_message.set_token('STU_NUMBER',p_pell_orig_int.person_number);
1661: fnd_file.put_line(fnd_file.log,fnd_message.get);
1662: l_pell_import_status := 'E';
1663: END IF;
1664:
1657: g_reporting_pell_id:=derive_rep_pell_id(p_pell_orig_int);
1658: IF (g_reporting_pell_id IS NULL) THEN
1659: fnd_message.set_name( 'IGF', 'IGF_GR_NOREP_PELL');
1660: fnd_message.set_token('STU_NUMBER',p_pell_orig_int.person_number);
1661: fnd_file.put_line(fnd_file.log,fnd_message.get);
1662: l_pell_import_status := 'E';
1663: END IF;
1664:
1665: END IF;
1699: IF l_origination_id IS NULL OR
1700: p_pell_orig_int.origination_id_txt <> l_origination_id OR
1701: l_error IS NOT NULL
1702: THEN
1703: fnd_message.set_name('IGF','IGF_GR_LI_ORIG_INVALID');
1704: fnd_message.set_token('ORIG_ID',p_pell_orig_int.origination_id_txt);
1705: fnd_file.put_line(fnd_file.log, fnd_message.get);
1706: l_pell_import_status := 'E';
1707: END IF;
1700: p_pell_orig_int.origination_id_txt <> l_origination_id OR
1701: l_error IS NOT NULL
1702: THEN
1703: fnd_message.set_name('IGF','IGF_GR_LI_ORIG_INVALID');
1704: fnd_message.set_token('ORIG_ID',p_pell_orig_int.origination_id_txt);
1705: fnd_file.put_line(fnd_file.log, fnd_message.get);
1706: l_pell_import_status := 'E';
1707: END IF;
1708:
1701: l_error IS NOT NULL
1702: THEN
1703: fnd_message.set_name('IGF','IGF_GR_LI_ORIG_INVALID');
1704: fnd_message.set_token('ORIG_ID',p_pell_orig_int.origination_id_txt);
1705: fnd_file.put_line(fnd_file.log, fnd_message.get);
1706: l_pell_import_status := 'E';
1707: END IF;
1708:
1709:
1719: IF ( SUBSTR(p_pell_orig_int.orig_send_batch_id_txt, 0, 12) <> l_orig_batch_id ) OR
1720: ( (p_pell_orig_int.orig_status_code IN ('R','N')) AND
1721: (p_pell_orig_int.orig_send_batch_id_txt IS NOT NULL) )
1722: THEN
1723: fnd_message.set_name('IGF','IGF_GR_LI_OBID_INVALID');
1724: fnd_message.set_token('BATCH_ID',p_pell_orig_int.orig_send_batch_id_txt);
1725: fnd_file.put_line(fnd_file.log, fnd_message.get);
1726: l_pell_import_status := 'E';
1727: END IF;
1720: ( (p_pell_orig_int.orig_status_code IN ('R','N')) AND
1721: (p_pell_orig_int.orig_send_batch_id_txt IS NOT NULL) )
1722: THEN
1723: fnd_message.set_name('IGF','IGF_GR_LI_OBID_INVALID');
1724: fnd_message.set_token('BATCH_ID',p_pell_orig_int.orig_send_batch_id_txt);
1725: fnd_file.put_line(fnd_file.log, fnd_message.get);
1726: l_pell_import_status := 'E';
1727: END IF;
1728:
1721: (p_pell_orig_int.orig_send_batch_id_txt IS NOT NULL) )
1722: THEN
1723: fnd_message.set_name('IGF','IGF_GR_LI_OBID_INVALID');
1724: fnd_message.set_token('BATCH_ID',p_pell_orig_int.orig_send_batch_id_txt);
1725: fnd_file.put_line(fnd_file.log, fnd_message.get);
1726: l_pell_import_status := 'E';
1727: END IF;
1728:
1729:
1734:
1735: IF (p_pell_orig_int.pell_coa_amt < 0) OR
1736: (p_pell_orig_int.pell_coa_amt > 9999999)
1737: THEN
1738: fnd_message.set_name('IGF','IGF_GR_LI_COA_INVALID');
1739: fnd_message.set_token('PELL_COA',p_pell_orig_int.pell_coa_amt);
1740: fnd_file.put_line(fnd_file.log, fnd_message.get);
1741: l_pell_import_status := 'E';
1742: END IF;
1735: IF (p_pell_orig_int.pell_coa_amt < 0) OR
1736: (p_pell_orig_int.pell_coa_amt > 9999999)
1737: THEN
1738: fnd_message.set_name('IGF','IGF_GR_LI_COA_INVALID');
1739: fnd_message.set_token('PELL_COA',p_pell_orig_int.pell_coa_amt);
1740: fnd_file.put_line(fnd_file.log, fnd_message.get);
1741: l_pell_import_status := 'E';
1742: END IF;
1743:
1736: (p_pell_orig_int.pell_coa_amt > 9999999)
1737: THEN
1738: fnd_message.set_name('IGF','IGF_GR_LI_COA_INVALID');
1739: fnd_message.set_token('PELL_COA',p_pell_orig_int.pell_coa_amt);
1740: fnd_file.put_line(fnd_file.log, fnd_message.get);
1741: l_pell_import_status := 'E';
1742: END IF;
1743:
1744:
1749:
1750: IF (p_pell_orig_int.pell_alt_exp_amt < 0) OR
1751: (p_pell_orig_int.pell_alt_exp_amt > 9999999)
1752: THEN
1753: fnd_message.set_name('IGF','IGF_GR_LI_ALTEXP_INVALID');
1754: fnd_message.set_token('PELL_ALTEXP',p_pell_orig_int.pell_alt_exp_amt);
1755: fnd_file.put_line(fnd_file.log, fnd_message.get);
1756: l_pell_import_status := 'E';
1757: END IF;
1750: IF (p_pell_orig_int.pell_alt_exp_amt < 0) OR
1751: (p_pell_orig_int.pell_alt_exp_amt > 9999999)
1752: THEN
1753: fnd_message.set_name('IGF','IGF_GR_LI_ALTEXP_INVALID');
1754: fnd_message.set_token('PELL_ALTEXP',p_pell_orig_int.pell_alt_exp_amt);
1755: fnd_file.put_line(fnd_file.log, fnd_message.get);
1756: l_pell_import_status := 'E';
1757: END IF;
1758:
1751: (p_pell_orig_int.pell_alt_exp_amt > 9999999)
1752: THEN
1753: fnd_message.set_name('IGF','IGF_GR_LI_ALTEXP_INVALID');
1754: fnd_message.set_token('PELL_ALTEXP',p_pell_orig_int.pell_alt_exp_amt);
1755: fnd_file.put_line(fnd_file.log, fnd_message.get);
1756: l_pell_import_status := 'E';
1757: END IF;
1758:
1759:
1765:
1766: IF (p_pell_orig_int.enrollment_status_flag IS NOT NULL) AND
1767: (igf_ap_gen.get_aw_lookup_meaning('IGF_AP_ENRL_STAT',p_pell_orig_int.enrollment_status_flag, g_sys_award_year) IS NULL )
1768: THEN
1769: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
1770: fnd_message.set_token('FIELD', 'ENROLLMENT_STATUS_FLAG');
1771: fnd_file.put_line(fnd_file.log, fnd_message.get);
1772: l_pell_import_status := 'E';
1773: END IF;
1766: IF (p_pell_orig_int.enrollment_status_flag IS NOT NULL) AND
1767: (igf_ap_gen.get_aw_lookup_meaning('IGF_AP_ENRL_STAT',p_pell_orig_int.enrollment_status_flag, g_sys_award_year) IS NULL )
1768: THEN
1769: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
1770: fnd_message.set_token('FIELD', 'ENROLLMENT_STATUS_FLAG');
1771: fnd_file.put_line(fnd_file.log, fnd_message.get);
1772: l_pell_import_status := 'E';
1773: END IF;
1774:
1767: (igf_ap_gen.get_aw_lookup_meaning('IGF_AP_ENRL_STAT',p_pell_orig_int.enrollment_status_flag, g_sys_award_year) IS NULL )
1768: THEN
1769: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
1770: fnd_message.set_token('FIELD', 'ENROLLMENT_STATUS_FLAG');
1771: fnd_file.put_line(fnd_file.log, fnd_message.get);
1772: l_pell_import_status := 'E';
1773: END IF;
1774:
1775: -- Validate Enrollment status with the system enrollment status
1795:
1796: IF l_enrl_status IS NULL OR
1797: p_pell_orig_int.enrollment_status_flag <> l_enrl_status
1798: THEN
1799: fnd_message.set_name('IGF','IGF_GR_LI_ENRL_MISMTCH');
1800: fnd_message.set_token('SYS_ENRL_CODE', l_enrl_status );
1801: fnd_message.set_token('ENRL_CODE',p_pell_orig_int.enrollment_status_flag);
1802: fnd_file.put_line(fnd_file.log, fnd_message.get);
1803: IF l_pell_import_status <> 'E' THEN
1796: IF l_enrl_status IS NULL OR
1797: p_pell_orig_int.enrollment_status_flag <> l_enrl_status
1798: THEN
1799: fnd_message.set_name('IGF','IGF_GR_LI_ENRL_MISMTCH');
1800: fnd_message.set_token('SYS_ENRL_CODE', l_enrl_status );
1801: fnd_message.set_token('ENRL_CODE',p_pell_orig_int.enrollment_status_flag);
1802: fnd_file.put_line(fnd_file.log, fnd_message.get);
1803: IF l_pell_import_status <> 'E' THEN
1804: l_pell_import_status := 'W';
1797: p_pell_orig_int.enrollment_status_flag <> l_enrl_status
1798: THEN
1799: fnd_message.set_name('IGF','IGF_GR_LI_ENRL_MISMTCH');
1800: fnd_message.set_token('SYS_ENRL_CODE', l_enrl_status );
1801: fnd_message.set_token('ENRL_CODE',p_pell_orig_int.enrollment_status_flag);
1802: fnd_file.put_line(fnd_file.log, fnd_message.get);
1803: IF l_pell_import_status <> 'E' THEN
1804: l_pell_import_status := 'W';
1805: END IF;
1798: THEN
1799: fnd_message.set_name('IGF','IGF_GR_LI_ENRL_MISMTCH');
1800: fnd_message.set_token('SYS_ENRL_CODE', l_enrl_status );
1801: fnd_message.set_token('ENRL_CODE',p_pell_orig_int.enrollment_status_flag);
1802: fnd_file.put_line(fnd_file.log, fnd_message.get);
1803: IF l_pell_import_status <> 'E' THEN
1804: l_pell_import_status := 'W';
1805: END IF;
1806: END IF;
1814:
1815: IF (p_pell_orig_int.efc_amt < 0) OR
1816: (p_pell_orig_int.efc_amt > 9999999)
1817: THEN
1818: fnd_message.set_name('IGF','IGF_GR_LI_EFC_INVALID');
1819: fnd_message.set_token('EFC',p_pell_orig_int.efc_amt);
1820: fnd_file.put_line(fnd_file.log, fnd_message.get);
1821: l_pell_import_status := 'E';
1822: END IF;
1815: IF (p_pell_orig_int.efc_amt < 0) OR
1816: (p_pell_orig_int.efc_amt > 9999999)
1817: THEN
1818: fnd_message.set_name('IGF','IGF_GR_LI_EFC_INVALID');
1819: fnd_message.set_token('EFC',p_pell_orig_int.efc_amt);
1820: fnd_file.put_line(fnd_file.log, fnd_message.get);
1821: l_pell_import_status := 'E';
1822: END IF;
1823:
1816: (p_pell_orig_int.efc_amt > 9999999)
1817: THEN
1818: fnd_message.set_name('IGF','IGF_GR_LI_EFC_INVALID');
1819: fnd_message.set_token('EFC',p_pell_orig_int.efc_amt);
1820: fnd_file.put_line(fnd_file.log, fnd_message.get);
1821: l_pell_import_status := 'E';
1822: END IF;
1823:
1824:
1826: IF (g_awd_yr_status_cd = 'O') AND
1827: (lc_isir_details.paid_efc <> p_pell_orig_int.efc_amt)
1828: THEN
1829:
1830: fnd_message.set_name('IGF','IGF_GR_LI_EFC_MISMTCH');
1831: fnd_message.set_token('ISIR_EFC',lc_isir_details.paid_efc);
1832: fnd_message.set_token('EFC',p_pell_orig_int.efc_amt);
1833: fnd_file.put_line(fnd_file.log, fnd_message.get);
1834: IF l_pell_import_status <> 'E' THEN
1827: (lc_isir_details.paid_efc <> p_pell_orig_int.efc_amt)
1828: THEN
1829:
1830: fnd_message.set_name('IGF','IGF_GR_LI_EFC_MISMTCH');
1831: fnd_message.set_token('ISIR_EFC',lc_isir_details.paid_efc);
1832: fnd_message.set_token('EFC',p_pell_orig_int.efc_amt);
1833: fnd_file.put_line(fnd_file.log, fnd_message.get);
1834: IF l_pell_import_status <> 'E' THEN
1835: l_pell_import_status := 'W';
1828: THEN
1829:
1830: fnd_message.set_name('IGF','IGF_GR_LI_EFC_MISMTCH');
1831: fnd_message.set_token('ISIR_EFC',lc_isir_details.paid_efc);
1832: fnd_message.set_token('EFC',p_pell_orig_int.efc_amt);
1833: fnd_file.put_line(fnd_file.log, fnd_message.get);
1834: IF l_pell_import_status <> 'E' THEN
1835: l_pell_import_status := 'W';
1836: END IF;
1829:
1830: fnd_message.set_name('IGF','IGF_GR_LI_EFC_MISMTCH');
1831: fnd_message.set_token('ISIR_EFC',lc_isir_details.paid_efc);
1832: fnd_message.set_token('EFC',p_pell_orig_int.efc_amt);
1833: fnd_file.put_line(fnd_file.log, fnd_message.get);
1834: IF l_pell_import_status <> 'E' THEN
1835: l_pell_import_status := 'W';
1836: END IF;
1837:
1845:
1846: IF (p_pell_orig_int.low_tution_fee_cd IS NOT NULL) AND
1847: (p_pell_orig_int.low_tution_fee_cd NOT IN ('1','2','3','4'))
1848: THEN
1849: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
1850: fnd_message.set_token('FIELD', 'LOW_TUTION_FEE_CD');
1851: fnd_file.put_line(fnd_file.log, fnd_message.get);
1852: l_pell_import_status := 'E';
1853: END IF;
1846: IF (p_pell_orig_int.low_tution_fee_cd IS NOT NULL) AND
1847: (p_pell_orig_int.low_tution_fee_cd NOT IN ('1','2','3','4'))
1848: THEN
1849: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
1850: fnd_message.set_token('FIELD', 'LOW_TUTION_FEE_CD');
1851: fnd_file.put_line(fnd_file.log, fnd_message.get);
1852: l_pell_import_status := 'E';
1853: END IF;
1854:
1847: (p_pell_orig_int.low_tution_fee_cd NOT IN ('1','2','3','4'))
1848: THEN
1849: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
1850: fnd_message.set_token('FIELD', 'LOW_TUTION_FEE_CD');
1851: fnd_file.put_line(fnd_file.log, fnd_message.get);
1852: l_pell_import_status := 'E';
1853: END IF;
1854:
1855:
1857: -- Validate Scheduled Pell Award for OPEN Award Year and Origination status should be 'Ready' or 'Not Ready'
1858:
1859: -- Validate Pell Award
1860: IF p_pell_orig_int.pell_award_amt <> lc_awd_details.accepted_amt THEN
1861: fnd_message.set_name('IGF','IGF_GR_LI_PELL_AWD_INVALID');
1862: fnd_message.set_token('PELL_LMT', p_pell_orig_int.pell_award_amt);
1863: fnd_message.set_token('AWD_AMT', lc_awd_details.accepted_amt);
1864: fnd_file.put_line(fnd_file.log, fnd_message.get);
1865: l_pell_import_status := 'E';
1858:
1859: -- Validate Pell Award
1860: IF p_pell_orig_int.pell_award_amt <> lc_awd_details.accepted_amt THEN
1861: fnd_message.set_name('IGF','IGF_GR_LI_PELL_AWD_INVALID');
1862: fnd_message.set_token('PELL_LMT', p_pell_orig_int.pell_award_amt);
1863: fnd_message.set_token('AWD_AMT', lc_awd_details.accepted_amt);
1864: fnd_file.put_line(fnd_file.log, fnd_message.get);
1865: l_pell_import_status := 'E';
1866:
1859: -- Validate Pell Award
1860: IF p_pell_orig_int.pell_award_amt <> lc_awd_details.accepted_amt THEN
1861: fnd_message.set_name('IGF','IGF_GR_LI_PELL_AWD_INVALID');
1862: fnd_message.set_token('PELL_LMT', p_pell_orig_int.pell_award_amt);
1863: fnd_message.set_token('AWD_AMT', lc_awd_details.accepted_amt);
1864: fnd_file.put_line(fnd_file.log, fnd_message.get);
1865: l_pell_import_status := 'E';
1866:
1867: END IF;
1860: IF p_pell_orig_int.pell_award_amt <> lc_awd_details.accepted_amt THEN
1861: fnd_message.set_name('IGF','IGF_GR_LI_PELL_AWD_INVALID');
1862: fnd_message.set_token('PELL_LMT', p_pell_orig_int.pell_award_amt);
1863: fnd_message.set_token('AWD_AMT', lc_awd_details.accepted_amt);
1864: fnd_file.put_line(fnd_file.log, fnd_message.get);
1865: l_pell_import_status := 'E';
1866:
1867: END IF;
1868:
1873: l_debug_str := l_debug_str || ', Payment Method : ' || p_pell_orig_int.payment_method_code;
1874: END IF;
1875:
1876: IF igf_ap_gen.get_aw_lookup_meaning('IGF_GR_PAYMENT_METHOD', p_pell_orig_int.payment_method_code, g_sys_award_year) IS NULL THEN
1877: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
1878: fnd_message.set_token('FIELD', 'PAYMENT_METHOD_CODE');
1879: fnd_file.put_line(fnd_file.log, fnd_message.get);
1880: l_pell_import_status := 'E';
1881: END IF;
1874: END IF;
1875:
1876: IF igf_ap_gen.get_aw_lookup_meaning('IGF_GR_PAYMENT_METHOD', p_pell_orig_int.payment_method_code, g_sys_award_year) IS NULL THEN
1877: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
1878: fnd_message.set_token('FIELD', 'PAYMENT_METHOD_CODE');
1879: fnd_file.put_line(fnd_file.log, fnd_message.get);
1880: l_pell_import_status := 'E';
1881: END IF;
1882:
1875:
1876: IF igf_ap_gen.get_aw_lookup_meaning('IGF_GR_PAYMENT_METHOD', p_pell_orig_int.payment_method_code, g_sys_award_year) IS NULL THEN
1877: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
1878: fnd_message.set_token('FIELD', 'PAYMENT_METHOD_CODE');
1879: fnd_file.put_line(fnd_file.log, fnd_message.get);
1880: l_pell_import_status := 'E';
1881: END IF;
1882:
1883:
1888:
1889: IF p_pell_orig_int.payment_method_code = '1' AND
1890: p_pell_orig_int.wk_inst_time_calc_pymt_num IS NOT NULL
1891: THEN
1892: fnd_message.set_name('IGF','IGF_GR_LI_PMWK_INVALID');
1893: fnd_message.set_token('PYMT_WKS', p_pell_orig_int.wk_inst_time_calc_pymt_num);
1894: fnd_file.put_line(fnd_file.log, fnd_message.get);
1895: l_pell_import_status := 'E';
1896:
1889: IF p_pell_orig_int.payment_method_code = '1' AND
1890: p_pell_orig_int.wk_inst_time_calc_pymt_num IS NOT NULL
1891: THEN
1892: fnd_message.set_name('IGF','IGF_GR_LI_PMWK_INVALID');
1893: fnd_message.set_token('PYMT_WKS', p_pell_orig_int.wk_inst_time_calc_pymt_num);
1894: fnd_file.put_line(fnd_file.log, fnd_message.get);
1895: l_pell_import_status := 'E';
1896:
1897: ELSIF p_pell_orig_int.payment_method_code IN ('2','3','4','5') AND
1890: p_pell_orig_int.wk_inst_time_calc_pymt_num IS NOT NULL
1891: THEN
1892: fnd_message.set_name('IGF','IGF_GR_LI_PMWK_INVALID');
1893: fnd_message.set_token('PYMT_WKS', p_pell_orig_int.wk_inst_time_calc_pymt_num);
1894: fnd_file.put_line(fnd_file.log, fnd_message.get);
1895: l_pell_import_status := 'E';
1896:
1897: ELSIF p_pell_orig_int.payment_method_code IN ('2','3','4','5') AND
1898: p_pell_orig_int.wk_inst_time_calc_pymt_num IS NULL
1896:
1897: ELSIF p_pell_orig_int.payment_method_code IN ('2','3','4','5') AND
1898: p_pell_orig_int.wk_inst_time_calc_pymt_num IS NULL
1899: THEN
1900: fnd_message.set_name('IGF','IGF_GR_LI_PMWK_INVALID_1');
1901: fnd_file.put_line(fnd_file.log, fnd_message.get);
1902: l_pell_import_status := 'E';
1903:
1904: END IF;
1897: ELSIF p_pell_orig_int.payment_method_code IN ('2','3','4','5') AND
1898: p_pell_orig_int.wk_inst_time_calc_pymt_num IS NULL
1899: THEN
1900: fnd_message.set_name('IGF','IGF_GR_LI_PMWK_INVALID_1');
1901: fnd_file.put_line(fnd_file.log, fnd_message.get);
1902: l_pell_import_status := 'E';
1903:
1904: END IF;
1905:
1917: p_pell_orig_int.payment_method_code IN ('2','3','4','5') AND
1918: p_pell_orig_int.wk_int_time_prg_def_yr_num IS NULL
1919: )
1920: THEN
1921: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
1922: fnd_message.set_token('FIELD', 'WK_INT_TIME_PRG_DEF_YR_NUM');
1923: fnd_file.put_line(fnd_file.log, fnd_message.get);
1924: l_pell_import_status := 'E';
1925: END IF;
1918: p_pell_orig_int.wk_int_time_prg_def_yr_num IS NULL
1919: )
1920: THEN
1921: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
1922: fnd_message.set_token('FIELD', 'WK_INT_TIME_PRG_DEF_YR_NUM');
1923: fnd_file.put_line(fnd_file.log, fnd_message.get);
1924: l_pell_import_status := 'E';
1925: END IF;
1926:
1919: )
1920: THEN
1921: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
1922: fnd_message.set_token('FIELD', 'WK_INT_TIME_PRG_DEF_YR_NUM');
1923: fnd_file.put_line(fnd_file.log, fnd_message.get);
1924: l_pell_import_status := 'E';
1925: END IF;
1926:
1927:
1931: l_debug_str := l_debug_str || ', Academic Calendar : ' || p_pell_orig_int.academic_calendar_cd;
1932: END IF;
1933:
1934: IF igf_ap_gen.get_aw_lookup_meaning('IGF_GR_ACAD_CAL', p_pell_orig_int.academic_calendar_cd, g_sys_award_year) IS NULL THEN
1935: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
1936: fnd_message.set_token('FIELD', 'ACADEMIC_CALENDAR_CD');
1937: fnd_file.put_line(fnd_file.log, fnd_message.get);
1938: l_pell_import_status := 'E';
1939: END IF;
1932: END IF;
1933:
1934: IF igf_ap_gen.get_aw_lookup_meaning('IGF_GR_ACAD_CAL', p_pell_orig_int.academic_calendar_cd, g_sys_award_year) IS NULL THEN
1935: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
1936: fnd_message.set_token('FIELD', 'ACADEMIC_CALENDAR_CD');
1937: fnd_file.put_line(fnd_file.log, fnd_message.get);
1938: l_pell_import_status := 'E';
1939: END IF;
1940:
1933:
1934: IF igf_ap_gen.get_aw_lookup_meaning('IGF_GR_ACAD_CAL', p_pell_orig_int.academic_calendar_cd, g_sys_award_year) IS NULL THEN
1935: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
1936: fnd_message.set_token('FIELD', 'ACADEMIC_CALENDAR_CD');
1937: fnd_file.put_line(fnd_file.log, fnd_message.get);
1938: l_pell_import_status := 'E';
1939: END IF;
1940:
1941:
1946:
1947: IF ( p_pell_orig_int.academic_calendar_cd IN ('1','2','3','4') AND p_pell_orig_int.cr_clk_hrs_prds_sch_yr_num IS NOT NULL ) OR
1948: ( p_pell_orig_int.academic_calendar_cd IN ('5','6') AND p_pell_orig_int.cr_clk_hrs_prds_sch_yr_num IS NULL )
1949: THEN
1950: fnd_message.set_name('IGF','IGF_GR_LI_EXHR_INVALID');
1951: fnd_message.set_token('EXP_HRS',p_pell_orig_int.cr_clk_hrs_prds_sch_yr_num);
1952: fnd_file.put_line(fnd_file.log, fnd_message.get);
1953: l_pell_import_status := 'E';
1954: END IF;
1947: IF ( p_pell_orig_int.academic_calendar_cd IN ('1','2','3','4') AND p_pell_orig_int.cr_clk_hrs_prds_sch_yr_num IS NOT NULL ) OR
1948: ( p_pell_orig_int.academic_calendar_cd IN ('5','6') AND p_pell_orig_int.cr_clk_hrs_prds_sch_yr_num IS NULL )
1949: THEN
1950: fnd_message.set_name('IGF','IGF_GR_LI_EXHR_INVALID');
1951: fnd_message.set_token('EXP_HRS',p_pell_orig_int.cr_clk_hrs_prds_sch_yr_num);
1952: fnd_file.put_line(fnd_file.log, fnd_message.get);
1953: l_pell_import_status := 'E';
1954: END IF;
1955:
1948: ( p_pell_orig_int.academic_calendar_cd IN ('5','6') AND p_pell_orig_int.cr_clk_hrs_prds_sch_yr_num IS NULL )
1949: THEN
1950: fnd_message.set_name('IGF','IGF_GR_LI_EXHR_INVALID');
1951: fnd_message.set_token('EXP_HRS',p_pell_orig_int.cr_clk_hrs_prds_sch_yr_num);
1952: fnd_file.put_line(fnd_file.log, fnd_message.get);
1953: l_pell_import_status := 'E';
1954: END IF;
1955:
1956:
1961:
1962: IF ( p_pell_orig_int.academic_calendar_cd IN ('1','2','3','4') AND p_pell_orig_int.cr_clk_hrs_acad_yr_num IS NOT NULL )OR
1963: ( p_pell_orig_int.academic_calendar_cd IN ('5','6') AND p_pell_orig_int.cr_clk_hrs_acad_yr_num IS NULL )
1964: THEN
1965: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
1966: fnd_message.set_token('FIELD', 'CR_CLK_HRS_ACAD_YR_NUM');
1967: fnd_file.put_line(fnd_file.log, fnd_message.get);
1968: l_pell_import_status := 'E';
1969: END IF;
1962: IF ( p_pell_orig_int.academic_calendar_cd IN ('1','2','3','4') AND p_pell_orig_int.cr_clk_hrs_acad_yr_num IS NOT NULL )OR
1963: ( p_pell_orig_int.academic_calendar_cd IN ('5','6') AND p_pell_orig_int.cr_clk_hrs_acad_yr_num IS NULL )
1964: THEN
1965: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
1966: fnd_message.set_token('FIELD', 'CR_CLK_HRS_ACAD_YR_NUM');
1967: fnd_file.put_line(fnd_file.log, fnd_message.get);
1968: l_pell_import_status := 'E';
1969: END IF;
1970:
1963: ( p_pell_orig_int.academic_calendar_cd IN ('5','6') AND p_pell_orig_int.cr_clk_hrs_acad_yr_num IS NULL )
1964: THEN
1965: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
1966: fnd_message.set_token('FIELD', 'CR_CLK_HRS_ACAD_YR_NUM');
1967: fnd_file.put_line(fnd_file.log, fnd_message.get);
1968: l_pell_import_status := 'E';
1969: END IF;
1970:
1971:
1978:
1979: IF (p_pell_orig_int.verification_status_code IS NOT NULL) AND
1980: (igf_ap_gen.get_aw_lookup_meaning('IGF_GR_VER_STAT_CD', p_pell_orig_int.verification_status_code, g_sys_award_year) IS NULL )
1981: THEN
1982: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
1983: fnd_message.set_token('FIELD', 'VERIFICATION_STATUS_CODE');
1984: fnd_file.put_line(fnd_file.log, fnd_message.get);
1985: l_pell_import_status := 'E';
1986: END IF;
1979: IF (p_pell_orig_int.verification_status_code IS NOT NULL) AND
1980: (igf_ap_gen.get_aw_lookup_meaning('IGF_GR_VER_STAT_CD', p_pell_orig_int.verification_status_code, g_sys_award_year) IS NULL )
1981: THEN
1982: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
1983: fnd_message.set_token('FIELD', 'VERIFICATION_STATUS_CODE');
1984: fnd_file.put_line(fnd_file.log, fnd_message.get);
1985: l_pell_import_status := 'E';
1986: END IF;
1987:
1980: (igf_ap_gen.get_aw_lookup_meaning('IGF_GR_VER_STAT_CD', p_pell_orig_int.verification_status_code, g_sys_award_year) IS NULL )
1981: THEN
1982: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
1983: fnd_message.set_token('FIELD', 'VERIFICATION_STATUS_CODE');
1984: fnd_file.put_line(fnd_file.log, fnd_message.get);
1985: l_pell_import_status := 'E';
1986: END IF;
1987:
1988:
1994:
1995: IF (p_pell_orig_int.incrcd_fed_pell_rcp_code IS NOT NULL) AND
1996: (igf_ap_gen.get_aw_lookup_meaning('IGF_GR_STU_INCARCE_STATUS', p_pell_orig_int.incrcd_fed_pell_rcp_code, g_sys_award_year) IS NULL )
1997: THEN
1998: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
1999: fnd_message.set_token('FIELD', 'INCRCD_FED_PELL_RCP_CODE');
2000: fnd_file.put_line(fnd_file.log, fnd_message.get);
2001: l_pell_import_status := 'E';
2002: END IF;
1995: IF (p_pell_orig_int.incrcd_fed_pell_rcp_code IS NOT NULL) AND
1996: (igf_ap_gen.get_aw_lookup_meaning('IGF_GR_STU_INCARCE_STATUS', p_pell_orig_int.incrcd_fed_pell_rcp_code, g_sys_award_year) IS NULL )
1997: THEN
1998: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
1999: fnd_message.set_token('FIELD', 'INCRCD_FED_PELL_RCP_CODE');
2000: fnd_file.put_line(fnd_file.log, fnd_message.get);
2001: l_pell_import_status := 'E';
2002: END IF;
2003:
1996: (igf_ap_gen.get_aw_lookup_meaning('IGF_GR_STU_INCARCE_STATUS', p_pell_orig_int.incrcd_fed_pell_rcp_code, g_sys_award_year) IS NULL )
1997: THEN
1998: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
1999: fnd_message.set_token('FIELD', 'INCRCD_FED_PELL_RCP_CODE');
2000: fnd_file.put_line(fnd_file.log, fnd_message.get);
2001: l_pell_import_status := 'E';
2002: END IF;
2003:
2004:
2010:
2011: IF (p_pell_orig_int.secondary_efc_code IS NOT NULL) AND
2012: (igf_ap_gen.get_aw_lookup_meaning('IGF_GR_SEC_EFC_CD', p_pell_orig_int.secondary_efc_code, g_sys_award_year) IS NULL )
2013: THEN
2014: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
2015: fnd_message.set_token('FIELD', 'SECONDARY_EFC_CODE');
2016: fnd_file.put_line(fnd_file.log, fnd_message.get);
2017: l_pell_import_status := 'E';
2018: END IF;
2011: IF (p_pell_orig_int.secondary_efc_code IS NOT NULL) AND
2012: (igf_ap_gen.get_aw_lookup_meaning('IGF_GR_SEC_EFC_CD', p_pell_orig_int.secondary_efc_code, g_sys_award_year) IS NULL )
2013: THEN
2014: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
2015: fnd_message.set_token('FIELD', 'SECONDARY_EFC_CODE');
2016: fnd_file.put_line(fnd_file.log, fnd_message.get);
2017: l_pell_import_status := 'E';
2018: END IF;
2019:
2012: (igf_ap_gen.get_aw_lookup_meaning('IGF_GR_SEC_EFC_CD', p_pell_orig_int.secondary_efc_code, g_sys_award_year) IS NULL )
2013: THEN
2014: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
2015: fnd_message.set_token('FIELD', 'SECONDARY_EFC_CODE');
2016: fnd_file.put_line(fnd_file.log, fnd_message.get);
2017: l_pell_import_status := 'E';
2018: END IF;
2019:
2020: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2030:
2031: IF (p_pell_orig_int.prev_accpt_tran_num_txt IS NOT NULL) AND
2032: (TO_NUMBER(p_pell_orig_int.prev_accpt_tran_num_txt) < 1 OR TO_NUMBER(p_pell_orig_int.prev_accpt_tran_num_txt) > 99 )
2033: THEN
2034: fnd_message.set_name('IGF','IGF_GR_LI_PRNT_INVALID_1');
2035: fnd_message.set_token('PR_TNUM',p_pell_orig_int.prev_accpt_tran_num_txt);
2036: fnd_file.put_line(fnd_file.log, fnd_message.get);
2037: l_pell_import_status := 'E';
2038:
2031: IF (p_pell_orig_int.prev_accpt_tran_num_txt IS NOT NULL) AND
2032: (TO_NUMBER(p_pell_orig_int.prev_accpt_tran_num_txt) < 1 OR TO_NUMBER(p_pell_orig_int.prev_accpt_tran_num_txt) > 99 )
2033: THEN
2034: fnd_message.set_name('IGF','IGF_GR_LI_PRNT_INVALID_1');
2035: fnd_message.set_token('PR_TNUM',p_pell_orig_int.prev_accpt_tran_num_txt);
2036: fnd_file.put_line(fnd_file.log, fnd_message.get);
2037: l_pell_import_status := 'E';
2038:
2039: ELSIF ( (p_pell_orig_int.orig_status_code IN ('N','R','A','C')) AND
2032: (TO_NUMBER(p_pell_orig_int.prev_accpt_tran_num_txt) < 1 OR TO_NUMBER(p_pell_orig_int.prev_accpt_tran_num_txt) > 99 )
2033: THEN
2034: fnd_message.set_name('IGF','IGF_GR_LI_PRNT_INVALID_1');
2035: fnd_message.set_token('PR_TNUM',p_pell_orig_int.prev_accpt_tran_num_txt);
2036: fnd_file.put_line(fnd_file.log, fnd_message.get);
2037: l_pell_import_status := 'E';
2038:
2039: ELSIF ( (p_pell_orig_int.orig_status_code IN ('N','R','A','C')) AND
2040: (p_pell_orig_int.prev_accpt_tran_num_txt IS NOT NULL) )
2038:
2039: ELSIF ( (p_pell_orig_int.orig_status_code IN ('N','R','A','C')) AND
2040: (p_pell_orig_int.prev_accpt_tran_num_txt IS NOT NULL) )
2041: THEN
2042: fnd_message.set_name('IGF','IGF_GR_LI_PRNT_INVALID_2');
2043: fnd_message.set_token('PR_TNUM',p_pell_orig_int.prev_accpt_tran_num_txt);
2044: fnd_file.put_line(fnd_file.log, fnd_message.get);
2045: l_pell_import_status := 'E';
2046:
2039: ELSIF ( (p_pell_orig_int.orig_status_code IN ('N','R','A','C')) AND
2040: (p_pell_orig_int.prev_accpt_tran_num_txt IS NOT NULL) )
2041: THEN
2042: fnd_message.set_name('IGF','IGF_GR_LI_PRNT_INVALID_2');
2043: fnd_message.set_token('PR_TNUM',p_pell_orig_int.prev_accpt_tran_num_txt);
2044: fnd_file.put_line(fnd_file.log, fnd_message.get);
2045: l_pell_import_status := 'E';
2046:
2047: END IF;
2040: (p_pell_orig_int.prev_accpt_tran_num_txt IS NOT NULL) )
2041: THEN
2042: fnd_message.set_name('IGF','IGF_GR_LI_PRNT_INVALID_2');
2043: fnd_message.set_token('PR_TNUM',p_pell_orig_int.prev_accpt_tran_num_txt);
2044: fnd_file.put_line(fnd_file.log, fnd_message.get);
2045: l_pell_import_status := 'E';
2046:
2047: END IF;
2048:
2054:
2055: IF (p_pell_orig_int.prev_accpt_efc_amt < 0) OR
2056: (p_pell_orig_int.prev_accpt_efc_amt > 9999999)
2057: THEN
2058: fnd_message.set_name('IGF','IGF_GR_LI_PSEF_INVALID_1');
2059: fnd_message.set_token('PR_SEC_EFC',p_pell_orig_int.prev_accpt_efc_amt);
2060: fnd_file.put_line(fnd_file.log, fnd_message.get);
2061: l_pell_import_status := 'E';
2062:
2055: IF (p_pell_orig_int.prev_accpt_efc_amt < 0) OR
2056: (p_pell_orig_int.prev_accpt_efc_amt > 9999999)
2057: THEN
2058: fnd_message.set_name('IGF','IGF_GR_LI_PSEF_INVALID_1');
2059: fnd_message.set_token('PR_SEC_EFC',p_pell_orig_int.prev_accpt_efc_amt);
2060: fnd_file.put_line(fnd_file.log, fnd_message.get);
2061: l_pell_import_status := 'E';
2062:
2063: ELSIF ( (p_pell_orig_int.orig_status_code IN ('N','R','A','C')) AND
2056: (p_pell_orig_int.prev_accpt_efc_amt > 9999999)
2057: THEN
2058: fnd_message.set_name('IGF','IGF_GR_LI_PSEF_INVALID_1');
2059: fnd_message.set_token('PR_SEC_EFC',p_pell_orig_int.prev_accpt_efc_amt);
2060: fnd_file.put_line(fnd_file.log, fnd_message.get);
2061: l_pell_import_status := 'E';
2062:
2063: ELSIF ( (p_pell_orig_int.orig_status_code IN ('N','R','A','C')) AND
2064: (p_pell_orig_int.prev_accpt_efc_amt IS NOT NULL) )
2062:
2063: ELSIF ( (p_pell_orig_int.orig_status_code IN ('N','R','A','C')) AND
2064: (p_pell_orig_int.prev_accpt_efc_amt IS NOT NULL) )
2065: THEN
2066: fnd_message.set_name('IGF','IGF_GR_LI_PSEF_INVALID_2');
2067: fnd_message.set_token('PR_SEC_EFC',p_pell_orig_int.prev_accpt_efc_amt);
2068: fnd_file.put_line(fnd_file.log, fnd_message.get);
2069: l_pell_import_status := 'E';
2070:
2063: ELSIF ( (p_pell_orig_int.orig_status_code IN ('N','R','A','C')) AND
2064: (p_pell_orig_int.prev_accpt_efc_amt IS NOT NULL) )
2065: THEN
2066: fnd_message.set_name('IGF','IGF_GR_LI_PSEF_INVALID_2');
2067: fnd_message.set_token('PR_SEC_EFC',p_pell_orig_int.prev_accpt_efc_amt);
2068: fnd_file.put_line(fnd_file.log, fnd_message.get);
2069: l_pell_import_status := 'E';
2070:
2071: END IF;
2064: (p_pell_orig_int.prev_accpt_efc_amt IS NOT NULL) )
2065: THEN
2066: fnd_message.set_name('IGF','IGF_GR_LI_PSEF_INVALID_2');
2067: fnd_message.set_token('PR_SEC_EFC',p_pell_orig_int.prev_accpt_efc_amt);
2068: fnd_file.put_line(fnd_file.log, fnd_message.get);
2069: l_pell_import_status := 'E';
2070:
2071: END IF;
2072:
2079:
2080: IF (p_pell_orig_int.prev_accpt_sec_efc_cd IS NOT NULL) AND
2081: (igf_ap_gen.get_aw_lookup_meaning('IGF_GR_SEC_EFC_CD', p_pell_orig_int.prev_accpt_sec_efc_cd, g_sys_award_year) IS NULL )
2082: THEN
2083: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
2084: fnd_message.set_token('FIELD', 'PREV_ACCPT_SEC_EFC_CD');
2085: fnd_file.put_line(fnd_file.log, fnd_message.get);
2086: l_pell_import_status := 'E';
2087:
2080: IF (p_pell_orig_int.prev_accpt_sec_efc_cd IS NOT NULL) AND
2081: (igf_ap_gen.get_aw_lookup_meaning('IGF_GR_SEC_EFC_CD', p_pell_orig_int.prev_accpt_sec_efc_cd, g_sys_award_year) IS NULL )
2082: THEN
2083: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
2084: fnd_message.set_token('FIELD', 'PREV_ACCPT_SEC_EFC_CD');
2085: fnd_file.put_line(fnd_file.log, fnd_message.get);
2086: l_pell_import_status := 'E';
2087:
2088: ELSIF ( (p_pell_orig_int.orig_status_code IN ('N','R','A','C')) AND
2081: (igf_ap_gen.get_aw_lookup_meaning('IGF_GR_SEC_EFC_CD', p_pell_orig_int.prev_accpt_sec_efc_cd, g_sys_award_year) IS NULL )
2082: THEN
2083: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
2084: fnd_message.set_token('FIELD', 'PREV_ACCPT_SEC_EFC_CD');
2085: fnd_file.put_line(fnd_file.log, fnd_message.get);
2086: l_pell_import_status := 'E';
2087:
2088: ELSIF ( (p_pell_orig_int.orig_status_code IN ('N','R','A','C')) AND
2089: (p_pell_orig_int.prev_accpt_sec_efc_cd IS NOT NULL) )
2087:
2088: ELSIF ( (p_pell_orig_int.orig_status_code IN ('N','R','A','C')) AND
2089: (p_pell_orig_int.prev_accpt_sec_efc_cd IS NOT NULL) )
2090: THEN
2091: fnd_message.set_name('IGF','IGF_GR_LI_PSEFCD_INVALID_2');
2092: fnd_message.set_token('PR_SEC_EFC',p_pell_orig_int.prev_accpt_sec_efc_cd);
2093: fnd_file.put_line(fnd_file.log, fnd_message.get);
2094: l_pell_import_status := 'E';
2095:
2088: ELSIF ( (p_pell_orig_int.orig_status_code IN ('N','R','A','C')) AND
2089: (p_pell_orig_int.prev_accpt_sec_efc_cd IS NOT NULL) )
2090: THEN
2091: fnd_message.set_name('IGF','IGF_GR_LI_PSEFCD_INVALID_2');
2092: fnd_message.set_token('PR_SEC_EFC',p_pell_orig_int.prev_accpt_sec_efc_cd);
2093: fnd_file.put_line(fnd_file.log, fnd_message.get);
2094: l_pell_import_status := 'E';
2095:
2096: END IF;
2089: (p_pell_orig_int.prev_accpt_sec_efc_cd IS NOT NULL) )
2090: THEN
2091: fnd_message.set_name('IGF','IGF_GR_LI_PSEFCD_INVALID_2');
2092: fnd_message.set_token('PR_SEC_EFC',p_pell_orig_int.prev_accpt_sec_efc_cd);
2093: fnd_file.put_line(fnd_file.log, fnd_message.get);
2094: l_pell_import_status := 'E';
2095:
2096: END IF;
2097:
2101: l_debug_str := l_debug_str || ', Previous COA : ' || p_pell_orig_int.prev_accpt_coa_amt;
2102: END IF;
2103:
2104: IF p_pell_orig_int.prev_accpt_coa_amt < 0 OR p_pell_orig_int.prev_accpt_coa_amt < 9999999 THEN
2105: fnd_message.set_name('IGF','IGF_GR_LI_PCOA_INVALID_1');
2106: fnd_message.set_token('PR_COA',p_pell_orig_int.prev_accpt_coa_amt);
2107: fnd_file.put_line(fnd_file.log, fnd_message.get);
2108: l_pell_import_status := 'E';
2109:
2102: END IF;
2103:
2104: IF p_pell_orig_int.prev_accpt_coa_amt < 0 OR p_pell_orig_int.prev_accpt_coa_amt < 9999999 THEN
2105: fnd_message.set_name('IGF','IGF_GR_LI_PCOA_INVALID_1');
2106: fnd_message.set_token('PR_COA',p_pell_orig_int.prev_accpt_coa_amt);
2107: fnd_file.put_line(fnd_file.log, fnd_message.get);
2108: l_pell_import_status := 'E';
2109:
2110: ELSIF ( (p_pell_orig_int.orig_status_code IN ('N','R','A','C')) AND
2103:
2104: IF p_pell_orig_int.prev_accpt_coa_amt < 0 OR p_pell_orig_int.prev_accpt_coa_amt < 9999999 THEN
2105: fnd_message.set_name('IGF','IGF_GR_LI_PCOA_INVALID_1');
2106: fnd_message.set_token('PR_COA',p_pell_orig_int.prev_accpt_coa_amt);
2107: fnd_file.put_line(fnd_file.log, fnd_message.get);
2108: l_pell_import_status := 'E';
2109:
2110: ELSIF ( (p_pell_orig_int.orig_status_code IN ('N','R','A','C')) AND
2111: (p_pell_orig_int.prev_accpt_coa_amt IS NOT NULL) )
2109:
2110: ELSIF ( (p_pell_orig_int.orig_status_code IN ('N','R','A','C')) AND
2111: (p_pell_orig_int.prev_accpt_coa_amt IS NOT NULL) )
2112: THEN
2113: fnd_message.set_name('IGF','IGF_GR_LI_PCOA_INVALID_2');
2114: fnd_message.set_token('PR_COA',p_pell_orig_int.prev_accpt_coa_amt);
2115: fnd_file.put_line(fnd_file.log, fnd_message.get);
2116: l_pell_import_status := 'E';
2117:
2110: ELSIF ( (p_pell_orig_int.orig_status_code IN ('N','R','A','C')) AND
2111: (p_pell_orig_int.prev_accpt_coa_amt IS NOT NULL) )
2112: THEN
2113: fnd_message.set_name('IGF','IGF_GR_LI_PCOA_INVALID_2');
2114: fnd_message.set_token('PR_COA',p_pell_orig_int.prev_accpt_coa_amt);
2115: fnd_file.put_line(fnd_file.log, fnd_message.get);
2116: l_pell_import_status := 'E';
2117:
2118: END IF;
2111: (p_pell_orig_int.prev_accpt_coa_amt IS NOT NULL) )
2112: THEN
2113: fnd_message.set_name('IGF','IGF_GR_LI_PCOA_INVALID_2');
2114: fnd_message.set_token('PR_COA',p_pell_orig_int.prev_accpt_coa_amt);
2115: fnd_file.put_line(fnd_file.log, fnd_message.get);
2116: l_pell_import_status := 'E';
2117:
2118: END IF;
2119:
2125:
2126: IF ( (p_pell_orig_int.orig_status_code IN ('A','C','E')) AND
2127: (p_pell_orig_int.rfms_process_date IS NULL) )
2128: THEN
2129: fnd_message.set_name('IGF','IGF_GR_LI_OPRDT_INVALID_1');
2130: fnd_file.put_line(fnd_file.log, fnd_message.get);
2131: l_pell_import_status := 'E';
2132:
2133: ELSIF ( (p_pell_orig_int.orig_status_code IN ('A','C','E')) AND
2126: IF ( (p_pell_orig_int.orig_status_code IN ('A','C','E')) AND
2127: (p_pell_orig_int.rfms_process_date IS NULL) )
2128: THEN
2129: fnd_message.set_name('IGF','IGF_GR_LI_OPRDT_INVALID_1');
2130: fnd_file.put_line(fnd_file.log, fnd_message.get);
2131: l_pell_import_status := 'E';
2132:
2133: ELSIF ( (p_pell_orig_int.orig_status_code IN ('A','C','E')) AND
2134: (TRUNC(p_pell_orig_int.rfms_process_date) > TRUNC(sysdate)) )
2132:
2133: ELSIF ( (p_pell_orig_int.orig_status_code IN ('A','C','E')) AND
2134: (TRUNC(p_pell_orig_int.rfms_process_date) > TRUNC(sysdate)) )
2135: THEN
2136: fnd_message.set_name('IGF','IGF_GR_LI_OPRDT_INVALID_2');
2137: fnd_message.set_token('PROC_DATE',p_pell_orig_int.rfms_process_date);
2138: fnd_file.put_line(fnd_file.log, fnd_message.get);
2139: l_pell_import_status := 'E';
2140:
2133: ELSIF ( (p_pell_orig_int.orig_status_code IN ('A','C','E')) AND
2134: (TRUNC(p_pell_orig_int.rfms_process_date) > TRUNC(sysdate)) )
2135: THEN
2136: fnd_message.set_name('IGF','IGF_GR_LI_OPRDT_INVALID_2');
2137: fnd_message.set_token('PROC_DATE',p_pell_orig_int.rfms_process_date);
2138: fnd_file.put_line(fnd_file.log, fnd_message.get);
2139: l_pell_import_status := 'E';
2140:
2141: ELSIF ( (p_pell_orig_int.orig_status_code IN ('N','R')) AND
2134: (TRUNC(p_pell_orig_int.rfms_process_date) > TRUNC(sysdate)) )
2135: THEN
2136: fnd_message.set_name('IGF','IGF_GR_LI_OPRDT_INVALID_2');
2137: fnd_message.set_token('PROC_DATE',p_pell_orig_int.rfms_process_date);
2138: fnd_file.put_line(fnd_file.log, fnd_message.get);
2139: l_pell_import_status := 'E';
2140:
2141: ELSIF ( (p_pell_orig_int.orig_status_code IN ('N','R')) AND
2142: (p_pell_orig_int.rfms_process_date IS NOT NULL) )
2140:
2141: ELSIF ( (p_pell_orig_int.orig_status_code IN ('N','R')) AND
2142: (p_pell_orig_int.rfms_process_date IS NOT NULL) )
2143: THEN
2144: fnd_message.set_name('IGF','IGF_GR_LI_OPRDT_INVALID_3');
2145: fnd_message.set_token('PROC_DATE',p_pell_orig_int.rfms_process_date);
2146: fnd_file.put_line(fnd_file.log, fnd_message.get);
2147: l_pell_import_status := 'E';
2148:
2141: ELSIF ( (p_pell_orig_int.orig_status_code IN ('N','R')) AND
2142: (p_pell_orig_int.rfms_process_date IS NOT NULL) )
2143: THEN
2144: fnd_message.set_name('IGF','IGF_GR_LI_OPRDT_INVALID_3');
2145: fnd_message.set_token('PROC_DATE',p_pell_orig_int.rfms_process_date);
2146: fnd_file.put_line(fnd_file.log, fnd_message.get);
2147: l_pell_import_status := 'E';
2148:
2149: END IF;
2142: (p_pell_orig_int.rfms_process_date IS NOT NULL) )
2143: THEN
2144: fnd_message.set_name('IGF','IGF_GR_LI_OPRDT_INVALID_3');
2145: fnd_message.set_token('PROC_DATE',p_pell_orig_int.rfms_process_date);
2146: fnd_file.put_line(fnd_file.log, fnd_message.get);
2147: l_pell_import_status := 'E';
2148:
2149: END IF;
2150:
2156:
2157: IF ( (p_pell_orig_int.orig_status_code IN ('R','N')) AND
2158: (p_pell_orig_int.orig_ed_use_flags_txt IS NOT NULL) )
2159: THEN
2160: fnd_message.set_name('IGF','IGF_GR_LI_OEDFL_INVALID_2');
2161: fnd_message.set_token('ED_FLAG',p_pell_orig_int.orig_ed_use_flags_txt);
2162: fnd_file.put_line(fnd_file.log, fnd_message.get);
2163: l_pell_import_status := 'E';
2164: END IF;
2157: IF ( (p_pell_orig_int.orig_status_code IN ('R','N')) AND
2158: (p_pell_orig_int.orig_ed_use_flags_txt IS NOT NULL) )
2159: THEN
2160: fnd_message.set_name('IGF','IGF_GR_LI_OEDFL_INVALID_2');
2161: fnd_message.set_token('ED_FLAG',p_pell_orig_int.orig_ed_use_flags_txt);
2162: fnd_file.put_line(fnd_file.log, fnd_message.get);
2163: l_pell_import_status := 'E';
2164: END IF;
2165:
2158: (p_pell_orig_int.orig_ed_use_flags_txt IS NOT NULL) )
2159: THEN
2160: fnd_message.set_name('IGF','IGF_GR_LI_OEDFL_INVALID_2');
2161: fnd_message.set_token('ED_FLAG',p_pell_orig_int.orig_ed_use_flags_txt);
2162: fnd_file.put_line(fnd_file.log, fnd_message.get);
2163: l_pell_import_status := 'E';
2164: END IF;
2165:
2166:
2171:
2172: IF ( (p_pell_orig_int.orig_status_code IN ('R','N')) AND
2173: (p_pell_orig_int.orig_reject_codes_txt IS NOT NULL) )
2174: THEN
2175: fnd_message.set_name('IGF','IGF_GR_LI_OEDCD_INVALID_2');
2176: fnd_message.set_token('EDIT_CODE',p_pell_orig_int.orig_reject_codes_txt);
2177: fnd_file.put_line(fnd_file.log, fnd_message.get);
2178: l_pell_import_status := 'E';
2179: END IF;
2172: IF ( (p_pell_orig_int.orig_status_code IN ('R','N')) AND
2173: (p_pell_orig_int.orig_reject_codes_txt IS NOT NULL) )
2174: THEN
2175: fnd_message.set_name('IGF','IGF_GR_LI_OEDCD_INVALID_2');
2176: fnd_message.set_token('EDIT_CODE',p_pell_orig_int.orig_reject_codes_txt);
2177: fnd_file.put_line(fnd_file.log, fnd_message.get);
2178: l_pell_import_status := 'E';
2179: END IF;
2180:
2173: (p_pell_orig_int.orig_reject_codes_txt IS NOT NULL) )
2174: THEN
2175: fnd_message.set_name('IGF','IGF_GR_LI_OEDCD_INVALID_2');
2176: fnd_message.set_token('EDIT_CODE',p_pell_orig_int.orig_reject_codes_txt);
2177: fnd_file.put_line(fnd_file.log, fnd_message.get);
2178: l_pell_import_status := 'E';
2179: END IF;
2180:
2181:
2215: END IF;
2216:
2217: -- Create Pell Record
2218: IF NOT create_pell_orig(p_pell_orig_int, lc_isir_details, l_rfmb_id) THEN
2219: fnd_message.set_name('IGF','IGF_GR_LI_OINSERT_FAIL');
2220: fnd_message.set_token('ORIG_ID',p_pell_orig_int.origination_id_txt);
2221: fnd_file.put_line(fnd_file.log, fnd_message.get);
2222: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2223: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug', ' : Pell Orig rec not created');
2216:
2217: -- Create Pell Record
2218: IF NOT create_pell_orig(p_pell_orig_int, lc_isir_details, l_rfmb_id) THEN
2219: fnd_message.set_name('IGF','IGF_GR_LI_OINSERT_FAIL');
2220: fnd_message.set_token('ORIG_ID',p_pell_orig_int.origination_id_txt);
2221: fnd_file.put_line(fnd_file.log, fnd_message.get);
2222: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2223: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug', ' : Pell Orig rec not created');
2224: END IF;
2217: -- Create Pell Record
2218: IF NOT create_pell_orig(p_pell_orig_int, lc_isir_details, l_rfmb_id) THEN
2219: fnd_message.set_name('IGF','IGF_GR_LI_OINSERT_FAIL');
2220: fnd_message.set_token('ORIG_ID',p_pell_orig_int.origination_id_txt);
2221: fnd_file.put_line(fnd_file.log, fnd_message.get);
2222: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2223: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug', ' : Pell Orig rec not created');
2224: END IF;
2225: l_pell_import_status := 'E';
2262: ELSIF(l_pell_disb_indv_status = 'E')THEN
2263: l_pell_disb_full_status := l_pell_disb_indv_status;
2264:
2265: -- Log an error message that Pell Import is unsuccessful
2266: fnd_message.set_name('IGF','IGF_GR_LI_DINSERT_FAIL');
2267: fnd_message.set_token('ORIG_ID',lc_pell_disb_int.origination_id_txt);
2268: fnd_message.set_token('DISB_NUM',lc_pell_disb_int.disbursement_num);
2269: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
2270: END IF;
2263: l_pell_disb_full_status := l_pell_disb_indv_status;
2264:
2265: -- Log an error message that Pell Import is unsuccessful
2266: fnd_message.set_name('IGF','IGF_GR_LI_DINSERT_FAIL');
2267: fnd_message.set_token('ORIG_ID',lc_pell_disb_int.origination_id_txt);
2268: fnd_message.set_token('DISB_NUM',lc_pell_disb_int.disbursement_num);
2269: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
2270: END IF;
2271:
2264:
2265: -- Log an error message that Pell Import is unsuccessful
2266: fnd_message.set_name('IGF','IGF_GR_LI_DINSERT_FAIL');
2267: fnd_message.set_token('ORIG_ID',lc_pell_disb_int.origination_id_txt);
2268: fnd_message.set_token('DISB_NUM',lc_pell_disb_int.disbursement_num);
2269: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
2270: END IF;
2271:
2272: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2265: -- Log an error message that Pell Import is unsuccessful
2266: fnd_message.set_name('IGF','IGF_GR_LI_DINSERT_FAIL');
2267: fnd_message.set_token('ORIG_ID',lc_pell_disb_int.origination_id_txt);
2268: fnd_message.set_token('DISB_NUM',lc_pell_disb_int.disbursement_num);
2269: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
2270: END IF;
2271:
2272: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2273: l_debug_str := l_debug_str || ', Disb Status : ' || l_pell_disb_indv_status;
2317: BEGIN
2318:
2319: IF ln_rem_disb_cnt = 0 THEN
2320: -- Log a message for processing remaining disbursements.
2321: fnd_message.set_name('IGF','IGF_GR_LI_REMG_DISB');
2322: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
2323: END IF;
2324: ln_rem_disb_cnt := ln_rem_disb_cnt + 1;
2325:
2318:
2319: IF ln_rem_disb_cnt = 0 THEN
2320: -- Log a message for processing remaining disbursements.
2321: fnd_message.set_name('IGF','IGF_GR_LI_REMG_DISB');
2322: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
2323: END IF;
2324: ln_rem_disb_cnt := ln_rem_disb_cnt + 1;
2325:
2326:
2370: END IF;
2371:
2372: EXCEPTION
2373: WHEN OTHERS THEN
2374: fnd_message.set_name('IGF','IGF_GR_LI_REM_DINS_FAIL');
2375: fnd_message.set_token('ORIG_ID',p_pell_orig_int.origination_id_txt);
2376: fnd_message.set_token('DISB_NUM',lc_get_remain_disb.disb_num);
2377: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
2378: END;
2371:
2372: EXCEPTION
2373: WHEN OTHERS THEN
2374: fnd_message.set_name('IGF','IGF_GR_LI_REM_DINS_FAIL');
2375: fnd_message.set_token('ORIG_ID',p_pell_orig_int.origination_id_txt);
2376: fnd_message.set_token('DISB_NUM',lc_get_remain_disb.disb_num);
2377: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
2378: END;
2379:
2372: EXCEPTION
2373: WHEN OTHERS THEN
2374: fnd_message.set_name('IGF','IGF_GR_LI_REM_DINS_FAIL');
2375: fnd_message.set_token('ORIG_ID',p_pell_orig_int.origination_id_txt);
2376: fnd_message.set_token('DISB_NUM',lc_get_remain_disb.disb_num);
2377: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
2378: END;
2379:
2380: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2373: WHEN OTHERS THEN
2374: fnd_message.set_name('IGF','IGF_GR_LI_REM_DINS_FAIL');
2375: fnd_message.set_token('ORIG_ID',p_pell_orig_int.origination_id_txt);
2376: fnd_message.set_token('DISB_NUM',lc_get_remain_disb.disb_num);
2377: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
2378: END;
2379:
2380: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2381: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug', l_debug_str);
2401: WHEN OTHERS THEN
2402: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
2403: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.import_pell_orig.exception', l_debug_str || SQLERRM );
2404: END IF;
2405: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
2406: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.IMPORT_PELL_ORIG');
2407: igs_ge_msg_stack.add;
2408:
2409: END import_pell_orig;
2402: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
2403: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.import_pell_orig.exception', l_debug_str || SQLERRM );
2404: END IF;
2405: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
2406: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.IMPORT_PELL_ORIG');
2407: igs_ge_msg_stack.add;
2408:
2409: END import_pell_orig;
2410:
2437: l_msg_data VARCHAR2(30);
2438: BEGIN
2439: IF (p_atd_entity_id_txt IS NULL)OR (p_rep_entity_id_txt IS NULL) THEN
2440: -- If anyone is null then raise error
2441: fnd_message.set_name('IGF','IGF_SL_ATD_REP_PELL_NOT_CORR');
2442: fnd_file.put_line(fnd_file.log, fnd_message.get);
2443: RETURN FALSE;
2444: ELSE
2445: -- Check if their combination is valid
2438: BEGIN
2439: IF (p_atd_entity_id_txt IS NULL)OR (p_rep_entity_id_txt IS NULL) THEN
2440: -- If anyone is null then raise error
2441: fnd_message.set_name('IGF','IGF_SL_ATD_REP_PELL_NOT_CORR');
2442: fnd_file.put_line(fnd_file.log, fnd_message.get);
2443: RETURN FALSE;
2444: ELSE
2445: -- Check if their combination is valid
2446:
2447: OPEN c_chk_atd_rep_comb (p_atd_entity_id_txt, p_rep_entity_id_txt );
2448: FETCH c_chk_atd_rep_comb INTO chk_atd_rep_comb_rec;
2449:
2450: IF c_chk_atd_rep_comb%NOTFOUND THEN
2451: fnd_message.set_name('IGF','IGF_SL_ATD_REP_PELL_NOT_CORR');
2452: fnd_file.put_line(fnd_file.log, fnd_message.get);
2453: RETURN FALSE;
2454: END IF;
2455:
2448: FETCH c_chk_atd_rep_comb INTO chk_atd_rep_comb_rec;
2449:
2450: IF c_chk_atd_rep_comb%NOTFOUND THEN
2451: fnd_message.set_name('IGF','IGF_SL_ATD_REP_PELL_NOT_CORR');
2452: fnd_file.put_line(fnd_file.log, fnd_message.get);
2453: RETURN FALSE;
2454: END IF;
2455:
2456: CLOSE c_chk_atd_rep_comb;
2593: l_debug_str := l_debug_str || ', Checking Profile value : ' || l_chk_profile;
2594: END IF;
2595:
2596: IF NVL(l_chk_profile, 'N') <> 'Y' THEN
2597: fnd_message.set_name('IGF','IGF_AP_LGCY_PROC_NOT_RUN');
2598: fnd_file.put_line(fnd_file.log, fnd_message.get);
2599: RETURN;
2600: END IF;
2601:
2594: END IF;
2595:
2596: IF NVL(l_chk_profile, 'N') <> 'Y' THEN
2597: fnd_message.set_name('IGF','IGF_AP_LGCY_PROC_NOT_RUN');
2598: fnd_file.put_line(fnd_file.log, fnd_message.get);
2599: RETURN;
2600: END IF;
2601:
2602: -- Validate the Batch Details
2606: l_debug_str := l_debug_str || ', Checking Batch : ' || l_chk_batch;
2607: END IF;
2608:
2609: IF l_chk_batch = 'N' THEN
2610: fnd_message.set_name('IGF','IGF_SL_GR_BATCH_DOES_NO_EXIST');
2611: fnd_message.set_token('BATCH_ID',p_batch_num);
2612: fnd_file.put_line(fnd_file.log, fnd_message.get);
2613: RETURN;
2614: END IF;
2607: END IF;
2608:
2609: IF l_chk_batch = 'N' THEN
2610: fnd_message.set_name('IGF','IGF_SL_GR_BATCH_DOES_NO_EXIST');
2611: fnd_message.set_token('BATCH_ID',p_batch_num);
2612: fnd_file.put_line(fnd_file.log, fnd_message.get);
2613: RETURN;
2614: END IF;
2615:
2608:
2609: IF l_chk_batch = 'N' THEN
2610: fnd_message.set_name('IGF','IGF_SL_GR_BATCH_DOES_NO_EXIST');
2611: fnd_message.set_token('BATCH_ID',p_batch_num);
2612: fnd_file.put_line(fnd_file.log, fnd_message.get);
2613: RETURN;
2614: END IF;
2615:
2616: -- Get the alternate code for the calendar details
2617: OPEN c_sys_awd_yr_dtls(g_cal_type, g_seq_number);
2618: FETCH c_sys_awd_yr_dtls INTO lc_sys_awd_yr_dtls;
2619: IF c_sys_awd_yr_dtls%NOTFOUND THEN
2620: CLOSE c_sys_awd_yr_dtls;
2621: FND_MESSAGE.SET_NAME('IGF','IGF_AP_AWD_YR_NOT_FOUND');
2622: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
2623: retcode := 2;
2624: RETURN;
2625: END IF;
2618: FETCH c_sys_awd_yr_dtls INTO lc_sys_awd_yr_dtls;
2619: IF c_sys_awd_yr_dtls%NOTFOUND THEN
2620: CLOSE c_sys_awd_yr_dtls;
2621: FND_MESSAGE.SET_NAME('IGF','IGF_AP_AWD_YR_NOT_FOUND');
2622: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
2623: retcode := 2;
2624: RETURN;
2625: END IF;
2626: CLOSE c_sys_awd_yr_dtls;
2632: l_debug_str := l_debug_str || ', Sys Awd Yr : ' || lc_sys_awd_yr_dtls.sys_award_year;
2633: END IF;
2634:
2635: IF lc_sys_awd_yr_dtls.award_year_status_code IS NULL OR lc_sys_awd_yr_dtls.award_year_status_code NOT IN ('O','LD') THEN
2636: fnd_message.set_name('IGF','IGF_AP_LG_INVALID_STAT');
2637: fnd_message.set_token('AWARD_STATUS',igf_ap_gen.get_aw_lookup_meaning('IGF_AWARD_YEAR_STATUS', lc_sys_awd_yr_dtls.award_year_status_code, lc_sys_awd_yr_dtls.sys_award_year));
2638: fnd_file.put_line(fnd_file.log, fnd_message.get);
2639: RETURN;
2640: END IF;
2633: END IF;
2634:
2635: IF lc_sys_awd_yr_dtls.award_year_status_code IS NULL OR lc_sys_awd_yr_dtls.award_year_status_code NOT IN ('O','LD') THEN
2636: fnd_message.set_name('IGF','IGF_AP_LG_INVALID_STAT');
2637: fnd_message.set_token('AWARD_STATUS',igf_ap_gen.get_aw_lookup_meaning('IGF_AWARD_YEAR_STATUS', lc_sys_awd_yr_dtls.award_year_status_code, lc_sys_awd_yr_dtls.sys_award_year));
2638: fnd_file.put_line(fnd_file.log, fnd_message.get);
2639: RETURN;
2640: END IF;
2641:
2634:
2635: IF lc_sys_awd_yr_dtls.award_year_status_code IS NULL OR lc_sys_awd_yr_dtls.award_year_status_code NOT IN ('O','LD') THEN
2636: fnd_message.set_name('IGF','IGF_AP_LG_INVALID_STAT');
2637: fnd_message.set_token('AWARD_STATUS',igf_ap_gen.get_aw_lookup_meaning('IGF_AWARD_YEAR_STATUS', lc_sys_awd_yr_dtls.award_year_status_code, lc_sys_awd_yr_dtls.sys_award_year));
2638: fnd_file.put_line(fnd_file.log, fnd_message.get);
2639: RETURN;
2640: END IF;
2641:
2642: -- Set the System Award Year and Award Year status code
2656: l_debug_str := l_debug_str || ', Validating Other Pell Setups : ' || l_chk_setups;
2657: END IF;
2658:
2659: IF NVL(l_chk_setups, 'N') <> 'x' THEN
2660: fnd_message.set_name('IGF','IGF_GR_LI_AWD_YR_INVALID_4');
2661: fnd_file.put_line(fnd_file.log, fnd_message.get);
2662: END IF;
2663:
2664: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2657: END IF;
2658:
2659: IF NVL(l_chk_setups, 'N') <> 'x' THEN
2660: fnd_message.set_name('IGF','IGF_GR_LI_AWD_YR_INVALID_4');
2661: fnd_file.put_line(fnd_file.log, fnd_message.get);
2662: END IF;
2663:
2664: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2665: l_debug_str := l_debug_str || ', Starting Pell Origination import : ';
2687: l_debug_str := l_debug_str || ', Pell int records not found :: ';
2688: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.main.debug', l_debug_str);
2689: l_debug_str := NULL;
2690: END IF;
2691: fnd_message.set_name('IGF','IGF_GR_LI_NO_RECORDS');
2692: fnd_file.put_line(fnd_file.log, fnd_message.get);
2693: RETURN;
2694:
2695: ELSE
2688: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.main.debug', l_debug_str);
2689: l_debug_str := NULL;
2690: END IF;
2691: fnd_message.set_name('IGF','IGF_GR_LI_NO_RECORDS');
2692: fnd_file.put_line(fnd_file.log, fnd_message.get);
2693: RETURN;
2694:
2695: ELSE
2696:
2726: IF igf_sl_dl_validation.check_full_participant (g_cal_type, g_seq_number,'PELL') THEN
2727:
2728: IF (NOT chk_atd_rep(lc_pell_orig_int.atd_entity_id_txt, lc_pell_orig_int.rep_entity_id_txt)) THEN
2729: -- Skip Record
2730: fnd_message.set_name('IGF','IGF_AW_LI_SKIPPING_AWD');
2731: fnd_file.put_line(fnd_file.log, fnd_message.get);
2732: g_tot_rec_imp_error := g_tot_rec_imp_error + 1;
2733: RAISE SKIP_RECORD;
2734: END IF;
2727:
2728: IF (NOT chk_atd_rep(lc_pell_orig_int.atd_entity_id_txt, lc_pell_orig_int.rep_entity_id_txt)) THEN
2729: -- Skip Record
2730: fnd_message.set_name('IGF','IGF_AW_LI_SKIPPING_AWD');
2731: fnd_file.put_line(fnd_file.log, fnd_message.get);
2732: g_tot_rec_imp_error := g_tot_rec_imp_error + 1;
2733: RAISE SKIP_RECORD;
2734: END IF;
2735: IF lc_pell_orig_int.attending_campus_cd IS NOT NULL THEN
2732: g_tot_rec_imp_error := g_tot_rec_imp_error + 1;
2733: RAISE SKIP_RECORD;
2734: END IF;
2735: IF lc_pell_orig_int.attending_campus_cd IS NOT NULL THEN
2736: fnd_message.set_name('IGF','IGF_GR_FULL_NO_ATD_PELL_ID');
2737: fnd_message.set_name('IGF','IGF_AW_LI_SKIPPING_AWD');
2738: fnd_file.put_line(fnd_file.log, fnd_message.get);
2739: fnd_file.put_line(fnd_file.log, fnd_message.get);
2740: g_tot_rec_imp_error := g_tot_rec_imp_error + 1;
2733: RAISE SKIP_RECORD;
2734: END IF;
2735: IF lc_pell_orig_int.attending_campus_cd IS NOT NULL THEN
2736: fnd_message.set_name('IGF','IGF_GR_FULL_NO_ATD_PELL_ID');
2737: fnd_message.set_name('IGF','IGF_AW_LI_SKIPPING_AWD');
2738: fnd_file.put_line(fnd_file.log, fnd_message.get);
2739: fnd_file.put_line(fnd_file.log, fnd_message.get);
2740: g_tot_rec_imp_error := g_tot_rec_imp_error + 1;
2741: RAISE SKIP_RECORD;
2734: END IF;
2735: IF lc_pell_orig_int.attending_campus_cd IS NOT NULL THEN
2736: fnd_message.set_name('IGF','IGF_GR_FULL_NO_ATD_PELL_ID');
2737: fnd_message.set_name('IGF','IGF_AW_LI_SKIPPING_AWD');
2738: fnd_file.put_line(fnd_file.log, fnd_message.get);
2739: fnd_file.put_line(fnd_file.log, fnd_message.get);
2740: g_tot_rec_imp_error := g_tot_rec_imp_error + 1;
2741: RAISE SKIP_RECORD;
2742: END IF;
2735: IF lc_pell_orig_int.attending_campus_cd IS NOT NULL THEN
2736: fnd_message.set_name('IGF','IGF_GR_FULL_NO_ATD_PELL_ID');
2737: fnd_message.set_name('IGF','IGF_AW_LI_SKIPPING_AWD');
2738: fnd_file.put_line(fnd_file.log, fnd_message.get);
2739: fnd_file.put_line(fnd_file.log, fnd_message.get);
2740: g_tot_rec_imp_error := g_tot_rec_imp_error + 1;
2741: RAISE SKIP_RECORD;
2742: END IF;
2743:
2775: END IF;
2776:
2777: -- If person does not exits, log a message and exit the loop
2778: IF g_person_id IS NULL AND g_base_id IS NULL THEN
2779: fnd_message.set_name('IGF','IGF_AW_LI_PERSON_NOT_FND');
2780: fnd_file.put_line(fnd_file.log,fnd_message.get);
2781: l_prev_person_number := NULL;
2782:
2783: fnd_message.set_name('IGF','IGF_AW_LI_SKIPPING_AWD');
2776:
2777: -- If person does not exits, log a message and exit the loop
2778: IF g_person_id IS NULL AND g_base_id IS NULL THEN
2779: fnd_message.set_name('IGF','IGF_AW_LI_PERSON_NOT_FND');
2780: fnd_file.put_line(fnd_file.log,fnd_message.get);
2781: l_prev_person_number := NULL;
2782:
2783: fnd_message.set_name('IGF','IGF_AW_LI_SKIPPING_AWD');
2784: fnd_file.put_line(fnd_file.log, fnd_message.get);
2779: fnd_message.set_name('IGF','IGF_AW_LI_PERSON_NOT_FND');
2780: fnd_file.put_line(fnd_file.log,fnd_message.get);
2781: l_prev_person_number := NULL;
2782:
2783: fnd_message.set_name('IGF','IGF_AW_LI_SKIPPING_AWD');
2784: fnd_file.put_line(fnd_file.log, fnd_message.get);
2785: g_tot_rec_imp_error := g_tot_rec_imp_error + 1;
2786:
2787: UPDATE igf_aw_li_pell_ints
2780: fnd_file.put_line(fnd_file.log,fnd_message.get);
2781: l_prev_person_number := NULL;
2782:
2783: fnd_message.set_name('IGF','IGF_AW_LI_SKIPPING_AWD');
2784: fnd_file.put_line(fnd_file.log, fnd_message.get);
2785: g_tot_rec_imp_error := g_tot_rec_imp_error + 1;
2786:
2787: UPDATE igf_aw_li_pell_ints
2788: SET import_status_type = 'E',
2804:
2805: -- If FA Base record does not exits then log a message and exit the loop
2806: ELSIF g_base_id IS NULL THEN
2807:
2808: fnd_message.set_name('IGF','IGF_AP_FABASE_NOT_FOUND');
2809: fnd_file.put_line(fnd_file.log,fnd_message.get);
2810: l_prev_person_number := NULL;
2811:
2812: fnd_message.set_name('IGF','IGF_AW_LI_SKIPPING_AWD');
2805: -- If FA Base record does not exits then log a message and exit the loop
2806: ELSIF g_base_id IS NULL THEN
2807:
2808: fnd_message.set_name('IGF','IGF_AP_FABASE_NOT_FOUND');
2809: fnd_file.put_line(fnd_file.log,fnd_message.get);
2810: l_prev_person_number := NULL;
2811:
2812: fnd_message.set_name('IGF','IGF_AW_LI_SKIPPING_AWD');
2813: fnd_file.put_line(fnd_file.log, fnd_message.get);
2808: fnd_message.set_name('IGF','IGF_AP_FABASE_NOT_FOUND');
2809: fnd_file.put_line(fnd_file.log,fnd_message.get);
2810: l_prev_person_number := NULL;
2811:
2812: fnd_message.set_name('IGF','IGF_AW_LI_SKIPPING_AWD');
2813: fnd_file.put_line(fnd_file.log, fnd_message.get);
2814: g_tot_rec_imp_error := g_tot_rec_imp_error + 1;
2815:
2816: UPDATE igf_aw_li_pell_ints
2809: fnd_file.put_line(fnd_file.log,fnd_message.get);
2810: l_prev_person_number := NULL;
2811:
2812: fnd_message.set_name('IGF','IGF_AW_LI_SKIPPING_AWD');
2813: fnd_file.put_line(fnd_file.log, fnd_message.get);
2814: g_tot_rec_imp_error := g_tot_rec_imp_error + 1;
2815:
2816: UPDATE igf_aw_li_pell_ints
2817: SET import_status_type = 'E',
2848:
2849: -- IF legacy Pell records are not found OR Errors in Pell records deletion, log an error message and rollback to prev. save point
2850: IF l_delete_status = 'E' THEN
2851: ROLLBACK TO SP_MAIN_PELL;
2852: fnd_message.set_name('IGF','IGF_GR_LI_UPDATE_FAIL');
2853: fnd_file.put_line(fnd_file.log, fnd_message.get);
2854:
2855: UPDATE igf_aw_li_pell_ints
2856: SET import_status_type = 'E',
2849: -- IF legacy Pell records are not found OR Errors in Pell records deletion, log an error message and rollback to prev. save point
2850: IF l_delete_status = 'E' THEN
2851: ROLLBACK TO SP_MAIN_PELL;
2852: fnd_message.set_name('IGF','IGF_GR_LI_UPDATE_FAIL');
2853: fnd_file.put_line(fnd_file.log, fnd_message.get);
2854:
2855: UPDATE igf_aw_li_pell_ints
2856: SET import_status_type = 'E',
2857: last_updated_by = fnd_global.user_id,
2868: AND origination_id_txt = lc_pell_orig_int.origination_id_txt;
2869:
2870: COMMIT;
2871:
2872: fnd_message.set_name('IGF','IGF_AW_LI_SKIPPING_AWD');
2873: fnd_file.put_line(fnd_file.log, fnd_message.get);
2874: g_tot_rec_imp_error := g_tot_rec_imp_error + 1;
2875: RAISE SKIP_RECORD;
2876: END IF;
2869:
2870: COMMIT;
2871:
2872: fnd_message.set_name('IGF','IGF_AW_LI_SKIPPING_AWD');
2873: fnd_file.put_line(fnd_file.log, fnd_message.get);
2874: g_tot_rec_imp_error := g_tot_rec_imp_error + 1;
2875: RAISE SKIP_RECORD;
2876: END IF;
2877:
2881: -- for all other values error out
2882: ELSE
2883:
2884: ROLLBACK TO SP_MAIN_PELL;
2885: fnd_message.set_name('IGF','IGF_AW_LI_INVLD_IMP_REC_TY');
2886: fnd_file.put_line(fnd_file.log, fnd_message.get);
2887:
2888: fnd_message.set_name('IGF','IGF_AW_LI_SKIPPING_AWD');
2889: fnd_file.put_line(fnd_file.log, fnd_message.get);
2882: ELSE
2883:
2884: ROLLBACK TO SP_MAIN_PELL;
2885: fnd_message.set_name('IGF','IGF_AW_LI_INVLD_IMP_REC_TY');
2886: fnd_file.put_line(fnd_file.log, fnd_message.get);
2887:
2888: fnd_message.set_name('IGF','IGF_AW_LI_SKIPPING_AWD');
2889: fnd_file.put_line(fnd_file.log, fnd_message.get);
2890: g_tot_rec_imp_error := g_tot_rec_imp_error + 1;
2884: ROLLBACK TO SP_MAIN_PELL;
2885: fnd_message.set_name('IGF','IGF_AW_LI_INVLD_IMP_REC_TY');
2886: fnd_file.put_line(fnd_file.log, fnd_message.get);
2887:
2888: fnd_message.set_name('IGF','IGF_AW_LI_SKIPPING_AWD');
2889: fnd_file.put_line(fnd_file.log, fnd_message.get);
2890: g_tot_rec_imp_error := g_tot_rec_imp_error + 1;
2891:
2892: UPDATE igf_aw_li_pell_ints
2885: fnd_message.set_name('IGF','IGF_AW_LI_INVLD_IMP_REC_TY');
2886: fnd_file.put_line(fnd_file.log, fnd_message.get);
2887:
2888: fnd_message.set_name('IGF','IGF_AW_LI_SKIPPING_AWD');
2889: fnd_file.put_line(fnd_file.log, fnd_message.get);
2890: g_tot_rec_imp_error := g_tot_rec_imp_error + 1;
2891:
2892: UPDATE igf_aw_li_pell_ints
2893: SET import_status_type = 'E',
2915:
2916: l_fabase_ret_status := NULL;
2917: l_fabase_ret_status := update_fa_base_data( g_base_id, lc_pell_orig_int.pell_coa_amt, lc_pell_orig_int.pell_alt_exp_amt);
2918: IF l_fabase_ret_status = 'E' THEN
2919: fnd_message.set_name('IGF','IGF_GR_LI_FAIL_UPD_COA');
2920: fnd_message.set_token('PELL_COA',lc_pell_orig_int.pell_coa_amt);
2921: fnd_message.set_token('PELL_ALT_EXP',lc_pell_orig_int.pell_alt_exp_amt);
2922: fnd_file.put_line(fnd_file.log, fnd_message.get);
2923:
2916: l_fabase_ret_status := NULL;
2917: l_fabase_ret_status := update_fa_base_data( g_base_id, lc_pell_orig_int.pell_coa_amt, lc_pell_orig_int.pell_alt_exp_amt);
2918: IF l_fabase_ret_status = 'E' THEN
2919: fnd_message.set_name('IGF','IGF_GR_LI_FAIL_UPD_COA');
2920: fnd_message.set_token('PELL_COA',lc_pell_orig_int.pell_coa_amt);
2921: fnd_message.set_token('PELL_ALT_EXP',lc_pell_orig_int.pell_alt_exp_amt);
2922: fnd_file.put_line(fnd_file.log, fnd_message.get);
2923:
2924: IF l_pell_import_status <> 'E' THEN
2917: l_fabase_ret_status := update_fa_base_data( g_base_id, lc_pell_orig_int.pell_coa_amt, lc_pell_orig_int.pell_alt_exp_amt);
2918: IF l_fabase_ret_status = 'E' THEN
2919: fnd_message.set_name('IGF','IGF_GR_LI_FAIL_UPD_COA');
2920: fnd_message.set_token('PELL_COA',lc_pell_orig_int.pell_coa_amt);
2921: fnd_message.set_token('PELL_ALT_EXP',lc_pell_orig_int.pell_alt_exp_amt);
2922: fnd_file.put_line(fnd_file.log, fnd_message.get);
2923:
2924: IF l_pell_import_status <> 'E' THEN
2925: l_pell_import_status := 'W';
2918: IF l_fabase_ret_status = 'E' THEN
2919: fnd_message.set_name('IGF','IGF_GR_LI_FAIL_UPD_COA');
2920: fnd_message.set_token('PELL_COA',lc_pell_orig_int.pell_coa_amt);
2921: fnd_message.set_token('PELL_ALT_EXP',lc_pell_orig_int.pell_alt_exp_amt);
2922: fnd_file.put_line(fnd_file.log, fnd_message.get);
2923:
2924: IF l_pell_import_status <> 'E' THEN
2925: l_pell_import_status := 'W';
2926: END IF;
2935: l_pell_import_status := import_pell_orig(lc_pell_orig_int);
2936:
2937: -- Update the records imported count
2938: IF l_pell_import_status = 'I' THEN
2939: fnd_message.set_name('IGF','IGF_GR_LI_IMP_SUCCES');
2940: fnd_message.set_token('ORIG_ID',lc_pell_orig_int.origination_id_txt);
2941: fnd_file.put_line(fnd_file.log, fnd_message.get);
2942: g_tot_rec_imp_successful := g_tot_rec_imp_successful + 1;
2943:
2936:
2937: -- Update the records imported count
2938: IF l_pell_import_status = 'I' THEN
2939: fnd_message.set_name('IGF','IGF_GR_LI_IMP_SUCCES');
2940: fnd_message.set_token('ORIG_ID',lc_pell_orig_int.origination_id_txt);
2941: fnd_file.put_line(fnd_file.log, fnd_message.get);
2942: g_tot_rec_imp_successful := g_tot_rec_imp_successful + 1;
2943:
2944: -- Commit the transaction after successful import of Pell record.
2937: -- Update the records imported count
2938: IF l_pell_import_status = 'I' THEN
2939: fnd_message.set_name('IGF','IGF_GR_LI_IMP_SUCCES');
2940: fnd_message.set_token('ORIG_ID',lc_pell_orig_int.origination_id_txt);
2941: fnd_file.put_line(fnd_file.log, fnd_message.get);
2942: g_tot_rec_imp_successful := g_tot_rec_imp_successful + 1;
2943:
2944: -- Commit the transaction after successful import of Pell record.
2945: COMMIT;
2944: -- Commit the transaction after successful import of Pell record.
2945: COMMIT;
2946:
2947: ELSIF l_pell_import_status = 'E' THEN
2948: fnd_message.set_name('IGF','IGF_AW_LI_SKIPPING_AWD');
2949: fnd_file.put_line(fnd_file.log, fnd_message.get);
2950: g_tot_rec_imp_error := g_tot_rec_imp_error + 1;
2951:
2952: -- Rollback the intermediate transactions
2945: COMMIT;
2946:
2947: ELSIF l_pell_import_status = 'E' THEN
2948: fnd_message.set_name('IGF','IGF_AW_LI_SKIPPING_AWD');
2949: fnd_file.put_line(fnd_file.log, fnd_message.get);
2950: g_tot_rec_imp_error := g_tot_rec_imp_error + 1;
2951:
2952: -- Rollback the intermediate transactions
2953: ROLLBACK TO SP_MAIN_PELL;
3021: WHEN OTHERS THEN
3022: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
3023: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.main.internal Begin', l_debug_str || SQLERRM );
3024: END IF;
3025: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
3026: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.MAIN_SUB_BEGIN');
3027: igs_ge_msg_stack.add;
3028: app_exception.raise_exception;
3029: END; -- End of local begin
3022: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
3023: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.main.internal Begin', l_debug_str || SQLERRM );
3024: END IF;
3025: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
3026: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.MAIN_SUB_BEGIN');
3027: igs_ge_msg_stack.add;
3028: app_exception.raise_exception;
3029: END; -- End of local begin
3030:
3084: WHEN others THEN
3085: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
3086: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.main.exception', l_debug_str || SQLERRM );
3087: END IF;
3088: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
3089: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.MAIN');
3090: errbuf := fnd_message.get;
3091: igs_ge_msg_stack.conc_exception_hndl;
3092:
3085: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
3086: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.main.exception', l_debug_str || SQLERRM );
3087: END IF;
3088: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
3089: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.MAIN');
3090: errbuf := fnd_message.get;
3091: igs_ge_msg_stack.conc_exception_hndl;
3092:
3093: END main;
3086: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.main.exception', l_debug_str || SQLERRM );
3087: END IF;
3088: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
3089: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.MAIN');
3090: errbuf := fnd_message.get;
3091: igs_ge_msg_stack.conc_exception_hndl;
3092:
3093: END main;
3094: