68: p_cal_sequence => p_ci_seq_num
69: ), SYSDATE + 1);
70:
71: -- Log
72: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
73: fnd_log.string(fnd_log.level_statement,
74: 'igf.plsql.igf_aw_cancel_awd.chk_awd_exp_date.debug',
75: 'Award expiration date(l_awd_exp_date): ' ||l_awd_exp_date);
76: END IF;
69: ), SYSDATE + 1);
70:
71: -- Log
72: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
73: fnd_log.string(fnd_log.level_statement,
74: 'igf.plsql.igf_aw_cancel_awd.chk_awd_exp_date.debug',
75: 'Award expiration date(l_awd_exp_date): ' ||l_awd_exp_date);
76: END IF;
77:
79: -- There is some more time for the award to Expire. Do not cancel the award
80: l_result := FALSE;
81:
82: -- Log
83: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
84: fnd_log.string(fnd_log.level_statement,
85: 'igf.plsql.igf_aw_cancel_awd.chk_awd_exp_date.debug',
86: 'Award expiration date > SYSDATE. Award NOT expired.');
87: END IF;
80: l_result := FALSE;
81:
82: -- Log
83: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
84: fnd_log.string(fnd_log.level_statement,
85: 'igf.plsql.igf_aw_cancel_awd.chk_awd_exp_date.debug',
86: 'Award expiration date > SYSDATE. Award NOT expired.');
87: END IF;
88: ELSE
89: -- Award has expired. Cancel award.
90: l_result := TRUE;
91:
92: -- Log
93: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
94: fnd_log.string(fnd_log.level_statement,
95: 'igf.plsql.igf_aw_cancel_awd.chk_awd_exp_date.debug',
96: 'Award expiration date < SYSDATE. Award expired.');
97: END IF;
90: l_result := TRUE;
91:
92: -- Log
93: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
94: fnd_log.string(fnd_log.level_statement,
95: 'igf.plsql.igf_aw_cancel_awd.chk_awd_exp_date.debug',
96: 'Award expiration date < SYSDATE. Award expired.');
97: END IF;
98: END IF;
100: -- Award expiration date is not defined. Do not cancel the award.
101: l_result := FALSE;
102:
103: -- Log
104: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
105: fnd_log.string(fnd_log.level_statement,
106: 'igf.plsql.igf_aw_cancel_awd.chk_awd_exp_date.debug',
107: 'Award expiration offset not setup in Fund Manager for fund_id: ' ||p_fund_id);
108: END IF;
101: l_result := FALSE;
102:
103: -- Log
104: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
105: fnd_log.string(fnd_log.level_statement,
106: 'igf.plsql.igf_aw_cancel_awd.chk_awd_exp_date.debug',
107: 'Award expiration offset not setup in Fund Manager for fund_id: ' ||p_fund_id);
108: END IF;
109: END IF;
237:
238: BEGIN
239:
240: -- Log
241: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
242: fnd_log.string(fnd_log.level_statement,
243: 'igf.plsql.igf_aw_cancel_awd.cancel_award_fabase.debug',
244: '*** Starting to cancel award for base_id: ' ||p_base_id|| ', fund_id: ' ||p_fund_id|| ',cal_type: ' ||p_ci_cal_type|| ', seq_num: ' ||p_ci_seq_num|| ' ***');
245: END IF;
238: BEGIN
239:
240: -- Log
241: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
242: fnd_log.string(fnd_log.level_statement,
243: 'igf.plsql.igf_aw_cancel_awd.cancel_award_fabase.debug',
244: '*** Starting to cancel award for base_id: ' ||p_base_id|| ', fund_id: ' ||p_fund_id|| ',cal_type: ' ||p_ci_cal_type|| ', seq_num: ' ||p_ci_seq_num|| ' ***');
245: END IF;
246:
289: ) THEN
290: -- AWARD ELIGIBLE FOR CANCELLATION
291:
292: -- Log
293: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
294: fnd_log.string(fnd_log.level_statement,
295: 'igf.plsql.igf_aw_cancel_awd.cancel_award_fabase.debug',
296: 'Award id :' ||lc_awd.AWARD_ID|| ' passed validation checks and is eligible for cancellation');
297: END IF;
290: -- AWARD ELIGIBLE FOR CANCELLATION
291:
292: -- Log
293: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
294: fnd_log.string(fnd_log.level_statement,
295: 'igf.plsql.igf_aw_cancel_awd.cancel_award_fabase.debug',
296: 'Award id :' ||lc_awd.AWARD_ID|| ' passed validation checks and is eligible for cancellation');
297: END IF;
298:
376: fnd_file.put_line( fnd_file.log, fnd_message.get);
377: fnd_file.new_line(fnd_file.log,1);
378:
379: -- Log
380: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
381: fnd_log.string(fnd_log.level_statement,
382: 'igf.plsql.igf_aw_cancel_awd.cancel_award_fabase.debug',
383: 'Award id :' ||lc_awd.AWARD_ID|| ' cancelled successfully');
384: END IF;
377: fnd_file.new_line(fnd_file.log,1);
378:
379: -- Log
380: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
381: fnd_log.string(fnd_log.level_statement,
382: 'igf.plsql.igf_aw_cancel_awd.cancel_award_fabase.debug',
383: 'Award id :' ||lc_awd.AWARD_ID|| ' cancelled successfully');
384: END IF;
385: ELSE
389: fnd_message.set_name('IGF', l_msgname);
390: fnd_file.put_line( fnd_file.log, fnd_message.get);
391:
392: -- Log
393: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
394: fnd_log.string(fnd_log.level_statement,
395: 'igf.plsql.igf_aw_cancel_awd.cancel_award_fabase.debug',
396: 'Award id :' ||lc_awd.AWARD_ID|| ' CANNOT be cancelled bcoz of the message ' ||l_msgname);
397: END IF;
390: fnd_file.put_line( fnd_file.log, fnd_message.get);
391:
392: -- Log
393: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
394: fnd_log.string(fnd_log.level_statement,
395: 'igf.plsql.igf_aw_cancel_awd.cancel_award_fabase.debug',
396: 'Award id :' ||lc_awd.AWARD_ID|| ' CANNOT be cancelled bcoz of the message ' ||l_msgname);
397: END IF;
398: ELSE
397: END IF;
398: ELSE
399: -- chk_awd_exp_date() failed
400: -- Log
401: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
402: fnd_log.string(fnd_log.level_statement,
403: 'igf.plsql.igf_aw_cancel_awd.cancel_award_fabase.debug',
404: 'Award id :' ||lc_awd.AWARD_ID|| ' CANNOT be cancelled bcoz - the award is not expired (or) award expiration offset is not setup');
405: END IF;
398: ELSE
399: -- chk_awd_exp_date() failed
400: -- Log
401: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
402: fnd_log.string(fnd_log.level_statement,
403: 'igf.plsql.igf_aw_cancel_awd.cancel_award_fabase.debug',
404: 'Award id :' ||lc_awd.AWARD_ID|| ' CANNOT be cancelled bcoz - the award is not expired (or) award expiration offset is not setup');
405: END IF;
406: END IF; -- l_msgname IS NOT NULL
564: fnd_file.put_line(fnd_file.log,RPAD(l_para_rec(5),80,' ')||':'||RPAD(' ',4,' ') ||NVL(l_person_no, ''));
565: fnd_file.put_line(fnd_file.log,RPAD(l_para_rec(6),80,' ')||':'||RPAD(' ',4,' ') ||igf_aw_gen.lookup_desc('IGF_AW_CNC_RUN_MODE', p_run_mode));
566:
567: -- Log paramaters
568: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
569: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', '#### Awards - Cancel Offered Awards process - STARTS ####');
570: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'Concurrent Process Req Id: ' ||fnd_global.conc_request_id ||' ####');
571: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Award yr: ' ||p_award_year);
572: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Fund code: ' ||NVL(l_fund_code, ''));
565: fnd_file.put_line(fnd_file.log,RPAD(l_para_rec(6),80,' ')||':'||RPAD(' ',4,' ') ||igf_aw_gen.lookup_desc('IGF_AW_CNC_RUN_MODE', p_run_mode));
566:
567: -- Log paramaters
568: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
569: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', '#### Awards - Cancel Offered Awards process - STARTS ####');
570: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'Concurrent Process Req Id: ' ||fnd_global.conc_request_id ||' ####');
571: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Award yr: ' ||p_award_year);
572: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Fund code: ' ||NVL(l_fund_code, ''));
573: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Run mode: ' ||p_run_mode);
566:
567: -- Log paramaters
568: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
569: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', '#### Awards - Cancel Offered Awards process - STARTS ####');
570: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'Concurrent Process Req Id: ' ||fnd_global.conc_request_id ||' ####');
571: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Award yr: ' ||p_award_year);
572: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Fund code: ' ||NVL(l_fund_code, ''));
573: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Run mode: ' ||p_run_mode);
574: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Person num: ' ||NVL(l_person_no, ''));
567: -- Log paramaters
568: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
569: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', '#### Awards - Cancel Offered Awards process - STARTS ####');
570: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'Concurrent Process Req Id: ' ||fnd_global.conc_request_id ||' ####');
571: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Award yr: ' ||p_award_year);
572: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Fund code: ' ||NVL(l_fund_code, ''));
573: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Run mode: ' ||p_run_mode);
574: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Person num: ' ||NVL(l_person_no, ''));
575: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Person Id Grp: ' ||NVL(p_pig, ''));
568: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
569: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', '#### Awards - Cancel Offered Awards process - STARTS ####');
570: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'Concurrent Process Req Id: ' ||fnd_global.conc_request_id ||' ####');
571: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Award yr: ' ||p_award_year);
572: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Fund code: ' ||NVL(l_fund_code, ''));
573: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Run mode: ' ||p_run_mode);
574: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Person num: ' ||NVL(l_person_no, ''));
575: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Person Id Grp: ' ||NVL(p_pig, ''));
576: END IF;
569: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', '#### Awards - Cancel Offered Awards process - STARTS ####');
570: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'Concurrent Process Req Id: ' ||fnd_global.conc_request_id ||' ####');
571: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Award yr: ' ||p_award_year);
572: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Fund code: ' ||NVL(l_fund_code, ''));
573: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Run mode: ' ||p_run_mode);
574: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Person num: ' ||NVL(l_person_no, ''));
575: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Person Id Grp: ' ||NVL(p_pig, ''));
576: END IF;
577:
570: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'Concurrent Process Req Id: ' ||fnd_global.conc_request_id ||' ####');
571: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Award yr: ' ||p_award_year);
572: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Fund code: ' ||NVL(l_fund_code, ''));
573: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Run mode: ' ||p_run_mode);
574: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Person num: ' ||NVL(l_person_no, ''));
575: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Person Id Grp: ' ||NVL(p_pig, ''));
576: END IF;
577:
578: --------------------------------------------------------------------------------------------------------------
571: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Award yr: ' ||p_award_year);
572: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Fund code: ' ||NVL(l_fund_code, ''));
573: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Run mode: ' ||p_run_mode);
574: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Person num: ' ||NVL(l_person_no, ''));
575: fnd_log.string(fnd_log.level_statement, 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug', 'PARAMETER Person Id Grp: ' ||NVL(p_pig, ''));
576: END IF;
577:
578: --------------------------------------------------------------------------------------------------------------
579: -- Parameter Validation --
604:
605: IF (p_base_id IS NULL) AND (p_pig IS NULL) THEN
606:
607: -- Log
608: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
609: fnd_log.string(fnd_log.level_statement,
610: 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug',
611: 'Parameters base_id and pig are NULL. Calling cancel_award_fabase');
612: END IF;
605: IF (p_base_id IS NULL) AND (p_pig IS NULL) THEN
606:
607: -- Log
608: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
609: fnd_log.string(fnd_log.level_statement,
610: 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug',
611: 'Parameters base_id and pig are NULL. Calling cancel_award_fabase');
612: END IF;
613:
622:
623: IF p_base_id IS NOT NULL THEN
624:
625: -- Log
626: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
627: fnd_log.string(fnd_log.level_statement,
628: 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug',
629: 'Parameters base_id is available and pig is NULL. Calling cancel_award_fabase');
630: END IF;
623: IF p_base_id IS NOT NULL THEN
624:
625: -- Log
626: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
627: fnd_log.string(fnd_log.level_statement,
628: 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug',
629: 'Parameters base_id is available and pig is NULL. Calling cancel_award_fabase');
630: END IF;
631:
645:
646: IF p_pig IS NOT NULL THEN
647:
648: -- Log
649: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
650: fnd_log.string(fnd_log.level_statement,
651: 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug',
652: 'Parameters pig is available and base_id is NULL. Processing pig');
653: END IF;
646: IF p_pig IS NOT NULL THEN
647:
648: -- Log
649: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
650: fnd_log.string(fnd_log.level_statement,
651: 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug',
652: 'Parameters pig is available and base_id is NULL. Processing pig');
653: END IF;
654:
686: -- Check if Person number and base_id are valid
687: IF (l_person_no IS NOT NULL) AND (l_base_id IS NOT NULL) THEN
688:
689: -- Log
690: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
691: fnd_log.string(fnd_log.level_statement,
692: 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug',
693: 'Calling cancel_award_fabase for base_id: ' ||l_base_id);
694: END IF;
687: IF (l_person_no IS NOT NULL) AND (l_base_id IS NOT NULL) THEN
688:
689: -- Log
690: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
691: fnd_log.string(fnd_log.level_statement,
692: 'igf.plsql.igf_aw_cancel_awd.cancel_award.debug',
693: 'Calling cancel_award_fabase for base_id: ' ||l_base_id);
694: END IF;
695: