[Home] [Help]
126: -- FA 134
127:
128: -- FA 134
129:
130: award_rec igf_aw_award_v%ROWTYPE;
131: dl_setup_rec igf_sl_dl_setup_all%ROWTYPE;
132: cl_setup_rec igf_sl_cl_setup_all%ROWTYPE;
133: p_incr_date_code VARCHAR2(100);
134:
147:
148: -- Parameters below is declared to hold the fund id in the
149: -- award rec loop. (Bug 2385334)
150: g_adplans_id igf_aw_awd_dist_plans.adplans_id%TYPE; -- Bug 4568942
151: g_award_id igf_aw_award_all.award_id%TYPE;
152: g_person_id igf_ap_fa_base_rec_all.person_id%TYPE;
153: gn_transaction_num igf_ap_isir_matched_all.transaction_num%TYPE;
154: gv_atd_entity_id_txt VARCHAR2(30);
155: gv_rep_entity_id_txt VARCHAR2(30);
188: MIN(v.object_ID) student_id,
189: MIN(v.SUBJECT_ID) parent_id
190: FROM
191: igs_pe_relationships_v v,
192: igf_aw_award_all awd,
193: igf_sl_loans_all loans,
194: igf_ap_fa_base_rec base
195: WHERE
196: base.person_id = v.object_id
604: app_exception.raise_exception;
605:
606: END get_dl_entity_id;
607:
608: FUNCTION get_loan_start_dt ( p_award_id igf_aw_award_all.award_id%TYPE)
609: RETURN DATE
610: IS
611: --
612: -- Cursor to retrieve Loan Start Date
610: IS
611: --
612: -- Cursor to retrieve Loan Start Date
613: --
614: CURSOR cur_loan_start_dt ( p_award_id igf_aw_award_all.award_id%TYPE) IS
615: SELECT ld_cal_type,ld_sequence_number
616: FROM igf_aw_awd_disb awd
617: WHERE awd.award_id = p_award_id
618: AND awd.trans_type <> 'C'
617: WHERE awd.award_id = p_award_id
618: AND awd.trans_type <> 'C'
619: GROUP BY awd.ld_cal_type,awd.ld_sequence_number;
620:
621: CURSOR c_base_id(cp_award_id igf_aw_award_all.award_id%TYPE) IS
622: SELECT base_id
623: FROM igf_aw_award_all
624: WHERE award_id = cp_award_id;
625: l_base_id igf_ap_fa_base_rec_all.base_id%TYPE;
619: GROUP BY awd.ld_cal_type,awd.ld_sequence_number;
620:
621: CURSOR c_base_id(cp_award_id igf_aw_award_all.award_id%TYPE) IS
622: SELECT base_id
623: FROM igf_aw_award_all
624: WHERE award_id = cp_award_id;
625: l_base_id igf_ap_fa_base_rec_all.base_id%TYPE;
626:
627: p_start_dt DATE;
662: --
663: -- Function to get the Loan End Date
664: --
665:
666: FUNCTION get_loan_end_dt ( p_award_id igf_aw_award_all.award_id%TYPE)
667: RETURN DATE
668: IS
669:
670:
670:
671: --
672: -- Cursor to Retrieve Loan End Date
673: --
674: CURSOR cur_loan_end_dt ( p_award_id igf_aw_award_all.award_id%TYPE) IS
675: SELECT ld_cal_type,ld_sequence_number
676: FROM igf_aw_awd_disb awd
677: WHERE awd.award_id = p_award_id
678: AND awd.trans_type <> 'C'
677: WHERE awd.award_id = p_award_id
678: AND awd.trans_type <> 'C'
679: GROUP BY awd.ld_cal_type,awd.ld_sequence_number;
680:
681: CURSOR c_base_id(cp_award_id igf_aw_award_all.award_id%TYPE) IS
682: SELECT base_id
683: FROM igf_aw_award_all
684: WHERE award_id = cp_award_id;
685: l_base_id igf_ap_fa_base_rec_all.base_id%TYPE;
679: GROUP BY awd.ld_cal_type,awd.ld_sequence_number;
680:
681: CURSOR c_base_id(cp_award_id igf_aw_award_all.award_id%TYPE) IS
682: SELECT base_id
683: FROM igf_aw_award_all
684: WHERE award_id = cp_award_id;
685: l_base_id igf_ap_fa_base_rec_all.base_id%TYPE;
686:
687: p_end_dt DATE;
719: END LOOP;
720: RETURN p_end_dt;
721: END get_loan_end_dt;
722:
723: PROCEDURE log_message(p_award_id igf_aw_award.award_id%TYPE) IS
724: BEGIN
725:
726: IF g_log_start_flag = FALSE THEN
727: fnd_file.new_line(fnd_file.log,1);
737: END log_message;
738:
739:
740: FUNCTION ret_loan_number(p_loan_seq_number IN igf_sl_loans.seq_num%TYPE,
741: p_base_id IN igf_aw_award_v.base_id%TYPE)
742: RETURN VARCHAR2
743: IS
744: /***************************************************************
745: Created By : mesriniv
1552: cp_loan_id igf_sl_loans.loan_id%TYPE
1553: ) IS
1554: SELECT awd.base_id, awd.award_id
1555: FROM igf_sl_loans_all loans,
1556: igf_aw_award_all awd
1557: WHERE loans.loan_id = cp_loan_id
1558: AND loans.award_id = awd.award_id;
1559:
1560: l_get_base_id c_get_base_id%ROWTYPE;
1997: awd.accepted_amt,
1998: fmast.ci_cal_type,
1999: fmast.ci_sequence_number
2000: FROM igf_sl_loans_all loan,
2001: igf_aw_award_all awd,
2002: igf_aw_fund_mast_all fmast,
2003: igf_aw_fund_cat_all fcat,
2004: igf_ap_fa_base_rec_all fa
2005: WHERE loan.award_id = awd.award_id
2073: SELECT
2074: 'X'
2075: FROM
2076: igs_pe_relationships_v v,
2077: igf_aw_award_all awd,
2078: igf_sl_loans_all loans,
2079: igf_ap_fa_base_rec base
2080: WHERE
2081: base.person_id = v.object_ID
2610: performance.
2611: *******************************************************************************/
2612: CURSOR cur_awards_recs (p_award_id number, p_fund_id number, p_base_id number) IS
2613: SELECT awdv.*
2614: FROM igf_aw_award_v awdv
2615: WHERE awdv.sys_fund_type ='LOAN'
2616: AND awdv.ci_cal_type = p_ci_cal_type
2617: AND awdv.ci_sequence_number = p_ci_sequence_number
2618: AND awdv.award_id = NVL(p_award_id, awdv.award_id)
2641: CURSOR cur_count_fed_code IS
2642: SELECT COUNT(*) + 1
2643: FROM
2644: igf_sl_loans_all loan,
2645: igf_aw_award_all awd,
2646: igf_aw_fund_mast_all fmast,
2647: igf_aw_fund_cat_all fcat,
2648: igf_ap_fa_base_rec_all fabase
2649: WHERE
3165:
3166: lv_row_id ROWID;
3167: lv_incr_date NUMBER;
3168: l_found_loans VARCHAR2(1);
3169: l_awd igf_aw_award_all.award_id%TYPE;
3170: l_fund igf_aw_fund_mast_all.fund_code%TYPE;
3171: l_head VARCHAR2(1);
3172: ln_rec_count INTEGER;
3173:
3202: --Check if award exists
3203: CURSOR cur_check_fund_award (p_base_id NUMBER, p_award_id NUMBER, p_fund_id NUMBER, p_cal_type VARCHAR2, p_seq_number NUMBER)
3204: IS
3205: SELECT awd.award_id,fmast.fund_code
3206: FROM igf_aw_award_all awd,
3207: igf_aw_fund_mast_all fmast,
3208: igf_ap_fa_base_rec_all base,
3209: igf_aw_fund_cat_all fcat
3210: WHERE awd.fund_id = fmast.fund_id