[Home] [Help]
148: g_fund_code igf_aw_fund_mast_all.fund_code%TYPE;
149: g_fed_fund_code igf_aw_fund_cat_all.fed_fund_code%TYPE;
150: g_fund_id igf_aw_fund_mast_all.fund_id%TYPE;
151: g_base_id igf_ap_fa_base_rec_all.base_id%TYPE;
152: g_award_id igf_aw_award_all.award_id%TYPE;
153: g_disb_net_amount igf_aw_li_dact_ints.disb_net_amt%TYPE;
154: g_person_id hz_parties.party_id%TYPE;
155: g_processing_string VARCHAR2(1000);
156: g_debug_string fnd_log_messages.message_text%TYPE;
158: g_entry_point VARCHAR2(30);
159:
160: g_print_msg VARCHAR2(200);
161: -- bvisvana - Bug # 4635941 - Global variables
162: CURSOR c_get_awd_details(cp_award_id igf_aw_award_all.award_id%TYPE) IS
163: SELECT * FROM igf_aw_award_all
164: WHERE award_id = cp_award_id;
165:
166: g_old_award_rec c_get_awd_details%ROWTYPE; -- Collects information of the old award (that is getting deleted)
159:
160: g_print_msg VARCHAR2(200);
161: -- bvisvana - Bug # 4635941 - Global variables
162: CURSOR c_get_awd_details(cp_award_id igf_aw_award_all.award_id%TYPE) IS
163: SELECT * FROM igf_aw_award_all
164: WHERE award_id = cp_award_id;
165:
166: g_old_award_rec c_get_awd_details%ROWTYPE; -- Collects information of the old award (that is getting deleted)
167: g_new_award_rec c_get_awd_details%ROWTYPE; -- Collects information of the new award (that is getting created)
426:
427: -- validates the award year interface record
428: CURSOR cur_check_sys_awd (p_base_id igf_ap_fa_base_rec_all.base_id%TYPE) IS
429: SELECT award_id, legacy_record_flag
430: FROM igf_aw_award_all
431: WHERE base_id = p_base_id
432: AND award_number_txt = li_awd_rec.award_number_txt;
433: l_award_id igf_aw_award_all.award_id%TYPE;
434: l_legacy_record_flag igf_aw_award_all.legacy_record_flag%TYPE;
429: SELECT award_id, legacy_record_flag
430: FROM igf_aw_award_all
431: WHERE base_id = p_base_id
432: AND award_number_txt = li_awd_rec.award_number_txt;
433: l_award_id igf_aw_award_all.award_id%TYPE;
434: l_legacy_record_flag igf_aw_award_all.legacy_record_flag%TYPE;
435:
436: CURSOR cur_get_fund_code(p_fund_code igf_aw_li_awd_ints.fund_code%TYPE) IS
437: SELECT fmast.fund_code, fcat.fed_fund_code, fmast.fund_id
430: FROM igf_aw_award_all
431: WHERE base_id = p_base_id
432: AND award_number_txt = li_awd_rec.award_number_txt;
433: l_award_id igf_aw_award_all.award_id%TYPE;
434: l_legacy_record_flag igf_aw_award_all.legacy_record_flag%TYPE;
435:
436: CURSOR cur_get_fund_code(p_fund_code igf_aw_li_awd_ints.fund_code%TYPE) IS
437: SELECT fmast.fund_code, fcat.fed_fund_code, fmast.fund_id
438: FROM igf_aw_fund_mast_all fmast,
444: AND discontinue_fund = 'N';
445:
446: CURSOR c_1_more_pell_fws IS
447: SELECT 'X' present_in_award
448: FROM igf_aw_award_all
449: WHERE base_id = g_base_id
450: AND fund_id = g_fund_id;
451: c_1_more_pell_fws_rec c_1_more_pell_fws%ROWTYPE;
452:
518: c_get_fund_amt_rec c_get_fund_amt%ROWTYPE;
519:
520: CURSOR c_std_max_yr_amt IS
521: SELECT NVL(SUM(NVL(awd.accepted_amt,awd.offered_amt)), 0) yr_total
522: FROM igf_aw_award_all awd
523: WHERE awd.fund_id = g_fund_id
524: AND awd.base_id = g_base_id;
525: c_std_max_yr_amt_rec c_std_max_yr_amt%ROWTYPE;
526:
525: c_std_max_yr_amt_rec c_std_max_yr_amt%ROWTYPE;
526:
527: CURSOR c_std_max_lf_count IS
528: SELECT NVL(SUM( NVL(awd.accepted_amt,awd.offered_amt)), 0) lf_total
529: FROM igf_aw_award_all awd, igf_aw_fund_mast_all fund, igf_ap_fa_base_rec_all fabase
530: WHERE fund.fund_code = g_fund_code
531: AND fabase.person_id = g_person_id
532: AND awd.base_id = fabase.base_id
533: AND awd.fund_id = fund.fund_id;
875: Change History :
876: Who When What
877: ***************************************************************/
878: l_awd_rowid VARCHAR2(25);
879: l_alt_pell_schedule igf_aw_award_all.alt_pell_schedule%TYPE;
880:
881: CURSOR c_visa (cv_person_id hz_parties.party_id%TYPE ) IS
882: SELECT a.visa_type,
883: a.visa_category,
1051: FND_MESSAGE.SET_TOKEN('NAME','CREATE_AWARD_RECORD : '||SQLERRM);
1052: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
1053: END create_award_record;
1054:
1055: PROCEDURE delete_award_and_child_records(p_award_id IN igf_aw_award_all.award_id%TYPE) IS
1056: /***************************************************************
1057: Created By : nsidana
1058: Date Created By : 11/28/2003
1059: Purpose : deletes awards and child records.
1064: Capturing the award details before deleting the award
1065: ***************************************************************/
1066: CURSOR c_get_awd_row IS
1067: SELECT ROWID row_id
1068: FROM igf_aw_award_all
1069: WHERE award_id = p_award_id;
1070:
1071: -- bvisvana - Bug # 4635941 - Added new cursors
1072: CURSOR c_get_awd_hist IS
1098: SELECT ROWID row_id
1099: FROM igf_se_auth
1100: WHERE auth_id = cp_auth_id;
1101:
1102: CURSOR c_get_disb_chg_dtls_row (p_award_id igf_aw_award_all.award_id%TYPE) IS
1103: SELECT ROWID row_id
1104: FROM igf_aw_db_chg_dtls
1105: WHERE award_id = p_award_id;
1106:
1103: SELECT ROWID row_id
1104: FROM igf_aw_db_chg_dtls
1105: WHERE award_id = p_award_id;
1106:
1107: CURSOR c_get_cod_dtl_row (p_award_id igf_aw_award_all.award_id%TYPE) IS
1108: SELECT ROWID row_id
1109: FROM igf_aw_db_cod_dtls
1110: WHERE award_id = p_award_id;
1111:
1191: END LOOP;
1192:
1193: END delete_award_and_child_records;
1194:
1195: PROCEDURE upd_aw_rec_with_legacy_status(p_award_id IN igf_aw_award_all.award_id%TYPE) IS
1196: /***************************************************************
1197: Created By : nsidana
1198: Date Created By : 11/28/2003
1199: Purpose : updates awards records with legacy status.
1202: Who When What
1203: ***************************************************************/
1204: CURSOR c_get_award IS
1205: SELECT ROWID row_id,awd.*
1206: FROM igf_aw_award_all awd
1207: WHERE award_id = p_award_id;
1208: c_get_award_rec c_get_award%ROWTYPE;
1209: BEGIN --begin of upd_aw_rec_with_legacy_status
1210: