38: g_enable_debug_logging VARCHAR2(1);
39: g_upd_ant_val VARCHAR2(1);
40:
41: g_debug_seq NUMBER:=0; --- #R1 Remove after debugging
42: g_old_active_isir_id igf_ap_isir_matched_all.isir_id%TYPE; -- bbb
43:
44: -- pl/sql table def for deleting from match details using BULK operation.
45: TYPE match_details_amd_id IS TABLE OF igf_ap_match_details.amd_id%TYPE;
46: g_amd_id_tab match_details_amd_id;
182: ||
183: || (reverse chronological order - newest change first)
184: */
185:
186: l_mesg_class igf_ap_isir_matched_all.message_class_txt%TYPE;
187: l_dot_in_file_name NUMBER :=0;
188:
189: BEGIN
190: -- Check if data file has a file extn
627: app_exception.raise_exception;
628: END update_fa_base_rec;
629:
630: PROCEDURE update_isir_matched_rec(p_isir_matched_record igf_ap_isir_matched%ROWTYPE,
631: p_payment_isir igf_ap_isir_matched_all.payment_isir%TYPE,
632: p_active_isir igf_ap_isir_matched_all.active_isir%TYPE )
633: IS
634: /*
635: || Created By : rgangara
628: END update_fa_base_rec;
629:
630: PROCEDURE update_isir_matched_rec(p_isir_matched_record igf_ap_isir_matched%ROWTYPE,
631: p_payment_isir igf_ap_isir_matched_all.payment_isir%TYPE,
632: p_active_isir igf_ap_isir_matched_all.active_isir%TYPE )
633: IS
634: /*
635: || Created By : rgangara
636: || Created On : 05-AUG-2004
1016: END;
1017:
1018:
1019: PROCEDURE insert_isir_matched_rec(cp_isir_int_rec igf_ap_isir_ints%ROWTYPE,
1020: p_payment_isir igf_ap_isir_matched_all.payment_isir%TYPE,
1021: p_active_isir igf_ap_isir_matched_all.active_isir%TYPE,
1022: p_base_id NUMBER,
1023: p_out_isir_id OUT NOCOPY NUMBER
1024: ) IS
1017:
1018:
1019: PROCEDURE insert_isir_matched_rec(cp_isir_int_rec igf_ap_isir_ints%ROWTYPE,
1020: p_payment_isir igf_ap_isir_matched_all.payment_isir%TYPE,
1021: p_active_isir igf_ap_isir_matched_all.active_isir%TYPE,
1022: p_base_id NUMBER,
1023: p_out_isir_id OUT NOCOPY NUMBER
1024: ) IS
1025:
1037: ||
1038: || (reverse chronological order - newest change first)
1039: */
1040:
1041: l_mesg_class igf_ap_isir_matched_all.message_class_txt%TYPE;
1042: lv_rowid VARCHAR2(30);
1043:
1044: BEGIN
1045: lv_rowid := NULL;
1392:
1393:
1394:
1395: PROCEDURE insert_nslds_data_rec(cp_isir_intrface_rec igf_ap_isir_ints%ROWTYPE,
1396: p_isir_id igf_ap_isir_matched_all.isir_id%TYPE,
1397: p_base_id NUMBER,
1398: p_out_nslds_id OUT NOCOPY NUMBER
1399: )
1400: IS
3666: */
3667: CURSOR chk_isir_exist (cp_base_id igf_ap_fa_base_rec_all.base_id%TYPE)
3668: IS
3669: SELECT 'x'
3670: FROM igf_ap_isir_matched_all
3671: WHERE base_id = cp_base_id AND
3672: ROWNUM = 1;
3673:
3674: l_chk_isir_exist chk_isir_exist%ROWTYPE;
3680:
3681: lv_cur_fabase_rec cur_fabase%ROWTYPE;
3682:
3683: lv_base_id igf_ap_fa_base_rec.base_id%TYPE;
3684: lv_isir_id igf_ap_isir_matched_all.isir_id%TYPE;
3685: lv_nslds_id igf_ap_nslds_data_all.nslds_id%TYPE;
3686: l_pymt_isir_flag igf_ap_isir_matched_all.payment_isir%TYPE;
3687: l_chk_fo_ant_data BOOLEAN;
3688: l_anticip_status VARCHAR2(30);
3682:
3683: lv_base_id igf_ap_fa_base_rec.base_id%TYPE;
3684: lv_isir_id igf_ap_isir_matched_all.isir_id%TYPE;
3685: lv_nslds_id igf_ap_nslds_data_all.nslds_id%TYPE;
3686: l_pymt_isir_flag igf_ap_isir_matched_all.payment_isir%TYPE;
3687: l_chk_fo_ant_data BOOLEAN;
3688: l_anticip_status VARCHAR2(30);
3689: l_awd_prc_status VARCHAR2(30);
3690:
3885: lv_person_id igf_ap_person_v.person_id%TYPE ;
3886: lv_base_id igf_ap_fa_base_rec.base_id%TYPE;
3887: lv_isir_id igf_ap_css_profile.cssp_id%TYPE;
3888: lv_nslds_id igf_ap_nslds_data_all.nslds_id%TYPE;
3889: l_pymt_isir_flag igf_ap_isir_matched_all.payment_isir%TYPE;
3890:
3891: BEGIN
3892:
3893:
4700:
4701: CURSOR chk_isir_exist (cp_base_id igf_ap_fa_base_rec_all.base_id%TYPE)
4702: IS
4703: SELECT 'x'
4704: FROM igf_ap_isir_matched_all
4705: WHERE base_id = cp_base_id AND
4706: ROWNUM = 1;
4707:
4708: l_chk_isir_exist chk_isir_exist%ROWTYPE;
4903: IS
4904:
4905: CURSOR c_get_payment_isir(cp_base_id NUMBER) IS
4906: SELECT isir_id
4907: FROM igf_ap_isir_matched_all
4908: WHERE base_id = cp_base_id
4909: AND payment_isir = 'Y';
4910:
4911: CURSOR c_get_trans_num(cp_base_id NUMBER) IS
4909: AND payment_isir = 'Y';
4910:
4911: CURSOR c_get_trans_num(cp_base_id NUMBER) IS
4912: SELECT transaction_num
4913: FROM igf_ap_isir_matched_all
4914: WHERE base_id = cp_base_id
4915: AND system_record_type = 'CORRECTION';
4916:
4917: CURSOR c_get_isir_id(cp_trans_num igf_ap_isir_matched_all.transaction_num%TYPE,
4913: FROM igf_ap_isir_matched_all
4914: WHERE base_id = cp_base_id
4915: AND system_record_type = 'CORRECTION';
4916:
4917: CURSOR c_get_isir_id(cp_trans_num igf_ap_isir_matched_all.transaction_num%TYPE,
4918: cp_base_id igf_ap_isir_matched_all.base_id%TYPE) IS
4919: SELECT isir_id
4920: FROM igf_ap_isir_matched_all
4921: WHERE base_id = cp_base_id
4914: WHERE base_id = cp_base_id
4915: AND system_record_type = 'CORRECTION';
4916:
4917: CURSOR c_get_isir_id(cp_trans_num igf_ap_isir_matched_all.transaction_num%TYPE,
4918: cp_base_id igf_ap_isir_matched_all.base_id%TYPE) IS
4919: SELECT isir_id
4920: FROM igf_ap_isir_matched_all
4921: WHERE base_id = cp_base_id
4922: AND transaction_num = cp_trans_num
4916:
4917: CURSOR c_get_isir_id(cp_trans_num igf_ap_isir_matched_all.transaction_num%TYPE,
4918: cp_base_id igf_ap_isir_matched_all.base_id%TYPE) IS
4919: SELECT isir_id
4920: FROM igf_ap_isir_matched_all
4921: WHERE base_id = cp_base_id
4922: AND transaction_num = cp_trans_num
4923: AND system_record_type <> 'CORRECTION';
4924:
4921: WHERE base_id = cp_base_id
4922: AND transaction_num = cp_trans_num
4923: AND system_record_type <> 'CORRECTION';
4924:
4925: l_get_trans_num igf_ap_isir_matched_all.transaction_num%TYPE;
4926:
4927: BEGIN
4928:
4929: OPEN c_get_payment_isir(p_base_id);
4968:
4969: lv_payment_isir_rec get_isir%ROWTYPE;
4970:
4971:
4972: CURSOR get_corr_isir (cp_base_id igf_ap_isir_matched_all.base_id%TYPE) IS
4973: SELECT row_id, isir_id
4974: FROM igf_ap_isir_matched
4975: WHERE base_id = cp_base_id
4976: AND NVL(system_record_type,'*') = 'CORRECTION';
6772:
6773: -- Get the privious Active ISIR id for the base id.
6774: CURSOR cur_old_active_isir(cp_base_id igf_ap_fa_base_rec_all.base_id%TYPE) IS
6775: SELECT isir_id
6776: FROM igf_ap_isir_matched_all
6777: WHERE base_id = cp_base_id
6778: AND active_isir = 'Y';
6779:
6780: CURSOR cur_loan_orig_chk(cp_base_id igf_ap_fa_base_rec_all.base_id%TYPE) IS
6781: SELECT
6782: 'X'
6783: FROM
6784: IGF_SL_LOR_ALL LOR, IGF_SL_LOANS_ALL LOAN,
6785: IGF_AW_AWARD_ALL AWD, igf_ap_isir_matched_all m
6786: WHERE
6787: m.base_id = awd.base_id and
6788: awd.award_id = loan.award_id and
6789: loan.loan_id = lor.loan_id and