[Home] [Help]
50: *=======================================================================*/
51:
52: -- Get the details of Pell Origination Interface records
53: CURSOR c_pell_orig_int(
54: cp_batch_num igf_aw_li_pell_ints.batch_num%TYPE,
55: cp_ci_alternate_code igf_aw_li_pell_ints.ci_alternate_code%TYPE,
56: cp_orig_status_code igf_aw_li_pell_ints.orig_status_code%TYPE
57: ) IS
58: SELECT ROWID row_id,
51:
52: -- Get the details of Pell Origination Interface records
53: CURSOR c_pell_orig_int(
54: cp_batch_num igf_aw_li_pell_ints.batch_num%TYPE,
55: cp_ci_alternate_code igf_aw_li_pell_ints.ci_alternate_code%TYPE,
56: cp_orig_status_code igf_aw_li_pell_ints.orig_status_code%TYPE
57: ) IS
58: SELECT ROWID row_id,
59: batch_num batch_num,
52: -- Get the details of Pell Origination Interface records
53: CURSOR c_pell_orig_int(
54: cp_batch_num igf_aw_li_pell_ints.batch_num%TYPE,
55: cp_ci_alternate_code igf_aw_li_pell_ints.ci_alternate_code%TYPE,
56: cp_orig_status_code igf_aw_li_pell_ints.orig_status_code%TYPE
57: ) IS
58: SELECT ROWID row_id,
59: batch_num batch_num,
60: TRIM(ci_alternate_code) ci_alternate_code,
98: TRIM(ope_cd) ope_cd,
99: pell_alt_exp_amt pell_alt_exp_amt,
100: atd_entity_id_txt atd_entity_id_txt,
101: rep_entity_id_txt rep_entity_id_txt
102: FROM igf_aw_li_pell_ints pell
103: WHERE batch_num = cp_batch_num
104: AND TRIM(ci_alternate_code) = cp_ci_alternate_code
105: AND TRIM(import_status_type) IN ('U','R')
106: AND NVL (TRIM (orig_status_code), 'x') = NVL (cp_orig_status_code, NVL (TRIM
662:
663:
664: FUNCTION create_pell_disb_batch(
665: p_pell_disb_int c_pell_disb_int%ROWTYPE,
666: p_ope_cd igf_aw_li_pell_ints.ope_cd%TYPE
667: ) RETURN NUMBER AS
668: /*
669: || Created By : brajendr
670: || Created On : 19-Jun-2003
826:
827:
828: FUNCTION import_pell_disb(
829: p_pell_disb_int c_pell_disb_int%ROWTYPE,
830: p_ope_cd igf_aw_li_pell_ints.ope_cd%TYPE
831: ) RETURN VARCHAR2 AS
832: /*
833: || Created By : brajendr
834: || Created On : 19-Jun-2003
1473: AND ad.award_id = porig.award_id
1474: AND ad.disb_num = pdisb.disb_ref_num);
1475:
1476: lc_isir_details c_isir_details%ROWTYPE;
1477: l_pell_import_status igf_aw_li_pell_ints.import_status_type%TYPE := 'I';
1478: l_enrl_status igs_en_stdnt_ps_att_all.derived_att_type%TYPE;
1479: l_origination_id igf_aw_li_pell_ints.origination_id_txt%TYPE;
1480: l_rfmb_id igf_gr_rfms_batch_all.rfmb_id%TYPE;
1481: l_db_cr_flag igf_gr_rfms_disb.db_cr_flag%TYPE;
1475:
1476: lc_isir_details c_isir_details%ROWTYPE;
1477: l_pell_import_status igf_aw_li_pell_ints.import_status_type%TYPE := 'I';
1478: l_enrl_status igs_en_stdnt_ps_att_all.derived_att_type%TYPE;
1479: l_origination_id igf_aw_li_pell_ints.origination_id_txt%TYPE;
1480: l_rfmb_id igf_gr_rfms_batch_all.rfmb_id%TYPE;
1481: l_db_cr_flag igf_gr_rfms_disb.db_cr_flag%TYPE;
1482: l_rfmd_id igf_gr_rfms_disb.rfmd_id%TYPE;
1483: l_disb_num_prmpt igf_lookups_view.meaning%TYPE;
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',
2789: last_updated_by = fnd_global.user_id,
2790: last_update_date = SYSDATE,
2791: last_update_login = fnd_global.login_id,
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',
2818: last_updated_by = fnd_global.user_id,
2819: last_update_date = SYSDATE,
2820: last_update_login = fnd_global.login_id,
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,
2858: last_update_date = SYSDATE,
2859: last_update_login = fnd_global.login_id,
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',
2894: last_updated_by = fnd_global.user_id,
2895: last_update_date = SYSDATE,
2896: last_update_login = fnd_global.login_id,
2968: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2969: l_debug_str := l_debug_str || ' : Deleting Pell Int rec : ';
2970: END IF;
2971:
2972: DELETE igf_aw_li_pell_ints
2973: WHERE batch_num = lc_pell_orig_int.batch_num
2974: AND ci_alternate_code = lc_pell_orig_int.ci_alternate_code
2975: AND person_number = lc_pell_orig_int.person_number
2976: AND award_number_txt = lc_pell_orig_int.award_number_txt
2993: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2994: l_debug_str := l_debug_str || ' : Updating Pell Int rec : ';
2995: END IF;
2996:
2997: UPDATE igf_aw_li_pell_ints
2998: SET import_status_type = l_pell_import_status,
2999: last_updated_by = fnd_global.user_id,
3000: last_update_date = SYSDATE,
3001: last_update_login = fnd_global.login_id,