[Home] [Help]
161:
162: PROCEDURE cancel_award_fabase (
163: p_ci_cal_type IN igs_ca_inst_all.cal_type%TYPE,
164: p_ci_seq_num IN igs_ca_inst_all.sequence_number%TYPE,
165: p_fund_id IN igf_aw_award_all.fund_id%TYPE,
166: p_base_id IN igf_ap_fa_base_rec_all.base_id%TYPE,
167: p_run_mode IN igf_lookups_view.lookup_code%TYPE
168: )
169: IS
189: fapv.person_number,
190: fmast.fund_code,
191: fcat.fed_fund_code
192: FROM
193: igf_aw_award awd,
194: igf_aw_fund_mast fmast,
195: igf_ap_fa_base_rec fbase,
196: igf_ap_person_v fapv,
197: igf_aw_fund_cat fcat
210:
211: lc_award c_award%ROWTYPE;
212:
213: -- Cursor is opened for udpating awards
214: CURSOR c_awd(p_award_id igf_aw_award.award_id%TYPE) IS
215: SELECT
216: awd.*
217: FROM
218: igf_aw_award awd
214: CURSOR c_awd(p_award_id igf_aw_award.award_id%TYPE) IS
215: SELECT
216: awd.*
217: FROM
218: igf_aw_award awd
219: WHERE
220: awd.award_id = p_award_id
221: FOR UPDATE OF award_status NOWAIT;
222:
222:
223: lc_awd c_awd%ROWTYPE;
224:
225: -- Cursor which fetches all the disbursements for an Award
226: CURSOR cur_awd_disb(p_award_id igf_aw_award_all.award_id%TYPE)
227: IS
228: SELECT row_id,disb_num
229: FROM igf_aw_awd_disb
230: WHERE
266: FETCH c_awd INTO lc_awd;
267:
268: IF c_awd%NOTFOUND THEN
269: -- This award does not seem to exist ???
270: fnd_message.set_name('IGF','IGF_AW_AWARD_NOT_FOUND');
271: fnd_file.put_line( fnd_file.log, fnd_message.get);
272: CLOSE c_awd;
273: RAISE e_next_record;
274: END IF;
313: l_fund_type := 'P';
314: END IF;
315:
316: -- Cancel Award
317: igf_aw_award_pkg.update_row (
318: x_mode => 'R',
319: x_rowid => lc_awd.ROW_ID,
320: x_award_id => lc_awd.AWARD_ID,
321: x_fund_id => lc_awd.FUND_ID,
369: END LOOP;
370:
371: igf_aw_gen.update_fabase_awds(lc_award.base_id,'CANCELLED');
372:
373: fnd_message.set_name('IGF', 'IGF_AW_AWARD_CANCELLED');
374: fnd_message.set_token('AWD', lc_award.award_id);
375: fnd_message.set_token('FUND', lc_award.fund_code);
376: fnd_file.put_line( fnd_file.log, fnd_message.get);
377: fnd_file.new_line(fnd_file.log,1);
426: PROCEDURE cancel_award(
427: ERRBUF OUT NOCOPY VARCHAR2,
428: RETCODE OUT NOCOPY NUMBER,
429: p_award_year IN VARCHAR2,
430: p_fund_id IN igf_aw_award_all.fund_id%TYPE,
431: p_run_mode IN igf_lookups_view.lookup_code%TYPE,
432: p_base_id IN igf_ap_fa_con_v.base_id%TYPE,
433: p_org_id IN igf_aw_award_all.org_id%TYPE,
434: p_pig IN igs_pe_all_persid_group_v.group_id%TYPE
429: p_award_year IN VARCHAR2,
430: p_fund_id IN igf_aw_award_all.fund_id%TYPE,
431: p_run_mode IN igf_lookups_view.lookup_code%TYPE,
432: p_base_id IN igf_ap_fa_con_v.base_id%TYPE,
433: p_org_id IN igf_aw_award_all.org_id%TYPE,
434: p_pig IN igs_pe_all_persid_group_v.group_id%TYPE
435: ) AS
436: /*
437: || Created By : prchandr
442: || Who When What
443: || ridas 08-Feb-2006 Bug #5021084. Added new parameter 'lv_group_type' in call to igf_ap_ss_pkg.get_pid
444: || tsailaja 13/Jan/2006 Bug 4947880 Added invocation of igf_aw_gen.set_org_id(NULL);
445: || bvisvana 11-Jul-2005 FA 157 and FA 140 - TBH impact for notification status code and date + Publish in ss page
446: || veramach 1-NOV-2003 # 3160856 Added adplans_id in call to igf_aw_award.update_row
447: || smadathi 03-Feb-2002 Bug 2154941. Modified cursor c_award to exclude sponsor fund
448: ||
449: || (reverse chronological order - newest change first)
450: */
488: l_para_rec l_parameters;
489: l_alt_code igs_ca_inst.alternate_code%TYPE;
490: l_i NUMBER(2);
491: l_fund_code igf_aw_fund_mast.fund_code%TYPE;
492: l_person_no igf_aw_award_v.person_number%TYPE;
493: -----------------------------------------------------------------------------------------------------------
494:
495: l_ci_cal_type igf_aw_award_v.ci_cal_type%TYPE;
496: l_ci_sequence_number igf_aw_award_v.ci_sequence_number%TYPE;
491: l_fund_code igf_aw_fund_mast.fund_code%TYPE;
492: l_person_no igf_aw_award_v.person_number%TYPE;
493: -----------------------------------------------------------------------------------------------------------
494:
495: l_ci_cal_type igf_aw_award_v.ci_cal_type%TYPE;
496: l_ci_sequence_number igf_aw_award_v.ci_sequence_number%TYPE;
497: l_year VARCHAR2(80) DEFAULT igf_aw_gen.lookup_desc('IGF_AW_LOOKUPS_MSG','AWARD_YEAR');
498: l_base_id igf_ap_fa_base_rec_all.base_id%TYPE;
499: l_party_id hz_parties.party_id%TYPE;
492: l_person_no igf_aw_award_v.person_number%TYPE;
493: -----------------------------------------------------------------------------------------------------------
494:
495: l_ci_cal_type igf_aw_award_v.ci_cal_type%TYPE;
496: l_ci_sequence_number igf_aw_award_v.ci_sequence_number%TYPE;
497: l_year VARCHAR2(80) DEFAULT igf_aw_gen.lookup_desc('IGF_AW_LOOKUPS_MSG','AWARD_YEAR');
498: l_base_id igf_ap_fa_base_rec_all.base_id%TYPE;
499: l_party_id hz_parties.party_id%TYPE;
500: l_per_exists BOOLEAN := FALSE;
751: igs_ge_msg_stack.conc_exception_hndl;
752:
753: END cancel_award;
754:
755: FUNCTION chk_awd_cancel(p_award_id IN igf_aw_award.award_id%TYPE,
756: p_base_id IN igf_aw_award.base_id%TYPE,
757: p_fund_id IN igf_aw_award.fund_id%TYPE,
758: p_msg_name OUT NOCOPY VARCHAR2) RETURN BOOLEAN IS
759: /*
752:
753: END cancel_award;
754:
755: FUNCTION chk_awd_cancel(p_award_id IN igf_aw_award.award_id%TYPE,
756: p_base_id IN igf_aw_award.base_id%TYPE,
757: p_fund_id IN igf_aw_award.fund_id%TYPE,
758: p_msg_name OUT NOCOPY VARCHAR2) RETURN BOOLEAN IS
759: /*
760: || Created On : 19-Apr-2002
753: END cancel_award;
754:
755: FUNCTION chk_awd_cancel(p_award_id IN igf_aw_award.award_id%TYPE,
756: p_base_id IN igf_aw_award.base_id%TYPE,
757: p_fund_id IN igf_aw_award.fund_id%TYPE,
758: p_msg_name OUT NOCOPY VARCHAR2) RETURN BOOLEAN IS
759: /*
760: || Created On : 19-Apr-2002
761: || Purpose :