58:
59: --
60: --Log the Parameters value in the log file. This is to fix Bug# 2690151
61: --
62: FND_MESSAGE.SET_NAME('IGS', 'IGS_FI_ANC_LOG_PARM');
63: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET()||':');
64: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_grd_cal_type = '||p_grd_cal_type);
65: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_grd_ci_sequence_number = '||p_grd_ci_sequence_number);
66: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_course_cd = '||p_course_cd);
59: --
60: --Log the Parameters value in the log file. This is to fix Bug# 2690151
61: --
62: FND_MESSAGE.SET_NAME('IGS', 'IGS_FI_ANC_LOG_PARM');
63: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET()||':');
64: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_grd_cal_type = '||p_grd_cal_type);
65: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_grd_ci_sequence_number = '||p_grd_ci_sequence_number);
66: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_course_cd = '||p_course_cd);
67: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_crs_location_cd = '||p_crs_location_cd);
77: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
78:
79:
80: IF NOT IGS_GR_VAL_AWC.grdp_val_award_type(p_award_cd, 'COURSE', v_message) THEN
81: ERRBUF:=FND_MESSAGE.GET_STRING('IGS', v_message);
82: RAISE INVALID_PARAMETER;
83: END IF;
84:
85: IF p_derived_completion = 'N' AND p_nominated_completion = 'N' THEN
82: RAISE INVALID_PARAMETER;
83: END IF;
84:
85: IF p_derived_completion = 'N' AND p_nominated_completion = 'N' THEN
86: ERRBUF:= FND_MESSAGE.GET_STRING('IGS', 'IGS_GR_NOMIN_DERV_COMPL_SET');
87: RAISE INVALID_PARAMETER;
88: END IF;
89:
90: IF FND_PROFILE.VALUE('OSS_COUNTRY_CODE')='GB' and (p_graduand_status IS NULL OR p_approval_status IS NULL) THEN
87: RAISE INVALID_PARAMETER;
88: END IF;
89:
90: IF FND_PROFILE.VALUE('OSS_COUNTRY_CODE')='GB' and (p_graduand_status IS NULL OR p_approval_status IS NULL) THEN
91: ERRBUF:= FND_MESSAGE.GET_STRING('IGS', 'IGS_GR_GRAD_APPR_REQ');
92: RAISE INVALID_PARAMETER;
93: END IF;
94: EXCEPTION
95: WHEN INVALID_PARAMETER THEN
246: cst_potential);
247: FETCH c_gst INTO v_gst_rec;
248: IF c_gst%NOTFOUND THEN
249: CLOSE c_gst;
250: Fnd_Message.Set_Name('IGS', 'IGS_GE_INVALID_VALUE');
251: --App_Exception.Raise_Exception;
252: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get); --Added as per bug# 2690151
253: RETURN;
254: END IF;
248: IF c_gst%NOTFOUND THEN
249: CLOSE c_gst;
250: Fnd_Message.Set_Name('IGS', 'IGS_GE_INVALID_VALUE');
251: --App_Exception.Raise_Exception;
252: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get); --Added as per bug# 2690151
253: RETURN;
254: END IF;
255: CLOSE c_gst;
256: IF v_gst_rec.closed_ind = 'Y' THEN
253: RETURN;
254: END IF;
255: CLOSE c_gst;
256: IF v_gst_rec.closed_ind = 'Y' THEN
257: Fnd_Message.Set_Name('IGS', 'IGS_GR_GRAD_STATUS_CLOSED');
258: --App_Exception.Raise_Exception;
259: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get); --Added as per bug# 2690151
260: RETURN;
261: END IF;
255: CLOSE c_gst;
256: IF v_gst_rec.closed_ind = 'Y' THEN
257: Fnd_Message.Set_Name('IGS', 'IGS_GR_GRAD_STATUS_CLOSED');
258: --App_Exception.Raise_Exception;
259: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get); --Added as per bug# 2690151
260: RETURN;
261: END IF;
262: -- Validate the eligible IGS_GR_GRADUAND status value
263: OPEN c_gst(
265: cst_eligible);
266: FETCH c_gst INTO v_gst_rec;
267: IF c_gst%NOTFOUND THEN
268: CLOSE c_gst;
269: Fnd_Message.Set_Name('IGS', 'IGS_GE_INVALID_VALUE');
270: --App_Exception.Raise_Exception;
271: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get); --Added as per bug# 2690151
272: RETURN;
273: END IF;
267: IF c_gst%NOTFOUND THEN
268: CLOSE c_gst;
269: Fnd_Message.Set_Name('IGS', 'IGS_GE_INVALID_VALUE');
270: --App_Exception.Raise_Exception;
271: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get); --Added as per bug# 2690151
272: RETURN;
273: END IF;
274: CLOSE c_gst;
275: IF v_gst_rec.closed_ind = 'Y' THEN
272: RETURN;
273: END IF;
274: CLOSE c_gst;
275: IF v_gst_rec.closed_ind = 'Y' THEN
276: Fnd_Message.Set_Name('IGS', 'IGS_GR_GRAD_STATUS_CLOSED');
277: --App_Exception.Raise_Exception;
278: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get); --Added as per bug# 2690151
279: RETURN;
280: END IF;
274: CLOSE c_gst;
275: IF v_gst_rec.closed_ind = 'Y' THEN
276: Fnd_Message.Set_Name('IGS', 'IGS_GR_GRAD_STATUS_CLOSED');
277: --App_Exception.Raise_Exception;
278: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get); --Added as per bug# 2690151
279: RETURN;
280: END IF;
281: -- Validate the IGS_GR_GRADUAND approval status value
282: OPEN c_gas;
282: OPEN c_gas;
283: FETCH c_gas INTO v_gas_rec;
284: IF c_gas%NOTFOUND THEN
285: CLOSE c_gas;
286: Fnd_Message.Set_Name('IGS', 'IGS_GE_INVALID_VALUE');
287: --App_Exception.Raise_Exception;
288: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get); --Added as per bug# 2690151
289: RETURN;
290: END IF;
284: IF c_gas%NOTFOUND THEN
285: CLOSE c_gas;
286: Fnd_Message.Set_Name('IGS', 'IGS_GE_INVALID_VALUE');
287: --App_Exception.Raise_Exception;
288: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get); --Added as per bug# 2690151
289: RETURN;
290: END IF;
291: CLOSE c_gas;
292: IF v_gas_rec.closed_ind = 'Y' THEN
289: RETURN;
290: END IF;
291: CLOSE c_gas;
292: IF v_gas_rec.closed_ind = 'Y' THEN
293: Fnd_Message.Set_Name('IGS', 'IGS_GR_GRAD_APPR_STATUS_CLOSE');
294: --App_Exception.Raise_Exception;
295: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get); --Added as per bug# 2690151
296: RETURN;
297: END IF;
291: CLOSE c_gas;
292: IF v_gas_rec.closed_ind = 'Y' THEN
293: Fnd_Message.Set_Name('IGS', 'IGS_GR_GRAD_APPR_STATUS_CLOSE');
294: --App_Exception.Raise_Exception;
295: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get); --Added as per bug# 2690151
296: RETURN;
297: END IF;
298: EXCEPTION
299: WHEN OTHERS THEN
306: RAISE;
307: END;
308: EXCEPTION
309: WHEN OTHERS THEN
310: Fnd_Message.Set_Name('IGS', 'IGS_GE_UNHANDLED_EXCEPTION');
311: App_Exception.Raise_Exception;
312: END grdpl_val_graduand_status;
313: -------------------------------------------------------------------
314: PROCEDURE grdpl_ins_new_graduand(
527: -- Added to fix bug# 2690151
528: --
529: l_message_name := NULL;
530: IGS_GE_MSG_STACK.GET(IGS_GE_MSG_STACK.COUNT_MSG,'T',l_msg_data,l_msg_index_out);
531: FND_MESSAGE.PARSE_ENCODED(l_msg_data, l_app_name, l_message_name);
532: IF NVL(l_message_name,'NULL') = 'IGS_GR_CANNOT_BE_APPROVED' THEN
533: l_hold := 'Y';
534: FND_MESSAGE.SET_NAME('IGS', 'IGS_GR_GRD_HOLD');
535: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
530: IGS_GE_MSG_STACK.GET(IGS_GE_MSG_STACK.COUNT_MSG,'T',l_msg_data,l_msg_index_out);
531: FND_MESSAGE.PARSE_ENCODED(l_msg_data, l_app_name, l_message_name);
532: IF NVL(l_message_name,'NULL') = 'IGS_GR_CANNOT_BE_APPROVED' THEN
533: l_hold := 'Y';
534: FND_MESSAGE.SET_NAME('IGS', 'IGS_GR_GRD_HOLD');
535: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
536: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET);
537: EXIT; --If hold is there then don't process any other award...
538: ELSIF l_message_name IS NOT NULL THEN
531: FND_MESSAGE.PARSE_ENCODED(l_msg_data, l_app_name, l_message_name);
532: IF NVL(l_message_name,'NULL') = 'IGS_GR_CANNOT_BE_APPROVED' THEN
533: l_hold := 'Y';
534: FND_MESSAGE.SET_NAME('IGS', 'IGS_GR_GRD_HOLD');
535: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
536: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET);
537: EXIT; --If hold is there then don't process any other award...
538: ELSIF l_message_name IS NOT NULL THEN
539: FND_MESSAGE.SET_NAME('IGS',l_message_name);
532: IF NVL(l_message_name,'NULL') = 'IGS_GR_CANNOT_BE_APPROVED' THEN
533: l_hold := 'Y';
534: FND_MESSAGE.SET_NAME('IGS', 'IGS_GR_GRD_HOLD');
535: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
536: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET);
537: EXIT; --If hold is there then don't process any other award...
538: ELSIF l_message_name IS NOT NULL THEN
539: FND_MESSAGE.SET_NAME('IGS',l_message_name);
540: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET());
535: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
536: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET);
537: EXIT; --If hold is there then don't process any other award...
538: ELSIF l_message_name IS NOT NULL THEN
539: FND_MESSAGE.SET_NAME('IGS',l_message_name);
540: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET());
541: EXIT; --Dont EXIT; Let the system process another SPAAA record for the student.
542: ELSE
543: --IGS_UC_ERROR_PROC_DATA - Unexpected error encountered while processing VIEW data
536: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET);
537: EXIT; --If hold is there then don't process any other award...
538: ELSIF l_message_name IS NOT NULL THEN
539: FND_MESSAGE.SET_NAME('IGS',l_message_name);
540: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET());
541: EXIT; --Dont EXIT; Let the system process another SPAAA record for the student.
542: ELSE
543: --IGS_UC_ERROR_PROC_DATA - Unexpected error encountered while processing VIEW data
544: FND_MESSAGE.SET_NAME('IGS','IGS_UC_ERROR_PROC_DATA');
540: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET());
541: EXIT; --Dont EXIT; Let the system process another SPAAA record for the student.
542: ELSE
543: --IGS_UC_ERROR_PROC_DATA - Unexpected error encountered while processing VIEW data
544: FND_MESSAGE.SET_NAME('IGS','IGS_UC_ERROR_PROC_DATA');
545: FND_MESSAGE.SET_TOKEN('VIEW',l_person_number);
546: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET());
547: EXIT;
548: --RAISE; --Dont raise any error... log it in log file and proceed with next student...
541: EXIT; --Dont EXIT; Let the system process another SPAAA record for the student.
542: ELSE
543: --IGS_UC_ERROR_PROC_DATA - Unexpected error encountered while processing VIEW data
544: FND_MESSAGE.SET_NAME('IGS','IGS_UC_ERROR_PROC_DATA');
545: FND_MESSAGE.SET_TOKEN('VIEW',l_person_number);
546: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET());
547: EXIT;
548: --RAISE; --Dont raise any error... log it in log file and proceed with next student...
549: END IF;
542: ELSE
543: --IGS_UC_ERROR_PROC_DATA - Unexpected error encountered while processing VIEW data
544: FND_MESSAGE.SET_NAME('IGS','IGS_UC_ERROR_PROC_DATA');
545: FND_MESSAGE.SET_TOKEN('VIEW',l_person_number);
546: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET());
547: EXIT;
548: --RAISE; --Dont raise any error... log it in log file and proceed with next student...
549: END IF;
550: END;
547: EXIT;
548: --RAISE; --Dont raise any error... log it in log file and proceed with next student...
549: END IF;
550: END;
551: FND_MESSAGE.SET_NAME('IGS','IGS_GR_GRD_REC_CRTED');
552: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
553: FND_MESSAGE.SET_TOKEN('COURSE',p_course_cd);
554: FND_MESSAGE.SET_TOKEN('AWARD',v_spaaa_rec.award_cd);
555: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET());
548: --RAISE; --Dont raise any error... log it in log file and proceed with next student...
549: END IF;
550: END;
551: FND_MESSAGE.SET_NAME('IGS','IGS_GR_GRD_REC_CRTED');
552: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
553: FND_MESSAGE.SET_TOKEN('COURSE',p_course_cd);
554: FND_MESSAGE.SET_TOKEN('AWARD',v_spaaa_rec.award_cd);
555: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET());
556: -- End of new code added as per the bug# 2690151
549: END IF;
550: END;
551: FND_MESSAGE.SET_NAME('IGS','IGS_GR_GRD_REC_CRTED');
552: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
553: FND_MESSAGE.SET_TOKEN('COURSE',p_course_cd);
554: FND_MESSAGE.SET_TOKEN('AWARD',v_spaaa_rec.award_cd);
555: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET());
556: -- End of new code added as per the bug# 2690151
557: v_records_update := v_records_update + 1;
550: END;
551: FND_MESSAGE.SET_NAME('IGS','IGS_GR_GRD_REC_CRTED');
552: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
553: FND_MESSAGE.SET_TOKEN('COURSE',p_course_cd);
554: FND_MESSAGE.SET_TOKEN('AWARD',v_spaaa_rec.award_cd);
555: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET());
556: -- End of new code added as per the bug# 2690151
557: v_records_update := v_records_update + 1;
558: END IF;
551: FND_MESSAGE.SET_NAME('IGS','IGS_GR_GRD_REC_CRTED');
552: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
553: FND_MESSAGE.SET_TOKEN('COURSE',p_course_cd);
554: FND_MESSAGE.SET_TOKEN('AWARD',v_spaaa_rec.award_cd);
555: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET());
556: -- End of new code added as per the bug# 2690151
557: v_records_update := v_records_update + 1;
558: END IF;
559: END LOOP;
573: FETCH c_spaaa_chk INTO l_rec_spaaa_chk;
574: IF c_spaaa_chk%FOUND THEN
575: CLOSE c_spaaa_chk;
576: IF NVL(l_hold,'N') <> 'Y' THEN --"l_hold = 'N'" Indicates no Hold related problems...
577: FND_MESSAGE.SET_NAME('IGS','IGS_PR_PRG');
578: l_person_number := l_person_number||' '||FND_MESSAGE.GET()||': '||p_course_cd||' - '||p_award_cd;
579: FND_MESSAGE.SET_NAME('IGS','IGS_GR_AWD_AIM_SETUP');
580: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
581: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET());
574: IF c_spaaa_chk%FOUND THEN
575: CLOSE c_spaaa_chk;
576: IF NVL(l_hold,'N') <> 'Y' THEN --"l_hold = 'N'" Indicates no Hold related problems...
577: FND_MESSAGE.SET_NAME('IGS','IGS_PR_PRG');
578: l_person_number := l_person_number||' '||FND_MESSAGE.GET()||': '||p_course_cd||' - '||p_award_cd;
579: FND_MESSAGE.SET_NAME('IGS','IGS_GR_AWD_AIM_SETUP');
580: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
581: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET());
582: END IF;
575: CLOSE c_spaaa_chk;
576: IF NVL(l_hold,'N') <> 'Y' THEN --"l_hold = 'N'" Indicates no Hold related problems...
577: FND_MESSAGE.SET_NAME('IGS','IGS_PR_PRG');
578: l_person_number := l_person_number||' '||FND_MESSAGE.GET()||': '||p_course_cd||' - '||p_award_cd;
579: FND_MESSAGE.SET_NAME('IGS','IGS_GR_AWD_AIM_SETUP');
580: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
581: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET());
582: END IF;
583: RETURN;
576: IF NVL(l_hold,'N') <> 'Y' THEN --"l_hold = 'N'" Indicates no Hold related problems...
577: FND_MESSAGE.SET_NAME('IGS','IGS_PR_PRG');
578: l_person_number := l_person_number||' '||FND_MESSAGE.GET()||': '||p_course_cd||' - '||p_award_cd;
579: FND_MESSAGE.SET_NAME('IGS','IGS_GR_AWD_AIM_SETUP');
580: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
581: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET());
582: END IF;
583: RETURN;
584: END IF;
577: FND_MESSAGE.SET_NAME('IGS','IGS_PR_PRG');
578: l_person_number := l_person_number||' '||FND_MESSAGE.GET()||': '||p_course_cd||' - '||p_award_cd;
579: FND_MESSAGE.SET_NAME('IGS','IGS_GR_AWD_AIM_SETUP');
580: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
581: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET());
582: END IF;
583: RETURN;
584: END IF;
585: CLOSE c_spaaa_chk;
609: IF v_records_update = 0 AND NVL(l_hold,'N') <> 'Y' THEN
610: OPEN cur_spaa_gr_dif;
611: FETCH cur_spaa_gr_dif INTO rec_spaa_gr_dif;
612: IF cur_spaa_gr_dif%NOTFOUND THEN
613: FND_MESSAGE.SET_NAME('IGS','IGS_GR_NO_REC_CRETD');
614: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
615: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET());
616: ELSIF cur_spaa_gr_dif%FOUND THEN
617: FND_MESSAGE.SET_NAME('IGS','IGS_GR_GRD_REC_EXT');
610: OPEN cur_spaa_gr_dif;
611: FETCH cur_spaa_gr_dif INTO rec_spaa_gr_dif;
612: IF cur_spaa_gr_dif%NOTFOUND THEN
613: FND_MESSAGE.SET_NAME('IGS','IGS_GR_NO_REC_CRETD');
614: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
615: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET());
616: ELSIF cur_spaa_gr_dif%FOUND THEN
617: FND_MESSAGE.SET_NAME('IGS','IGS_GR_GRD_REC_EXT');
618: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
611: FETCH cur_spaa_gr_dif INTO rec_spaa_gr_dif;
612: IF cur_spaa_gr_dif%NOTFOUND THEN
613: FND_MESSAGE.SET_NAME('IGS','IGS_GR_NO_REC_CRETD');
614: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
615: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET());
616: ELSIF cur_spaa_gr_dif%FOUND THEN
617: FND_MESSAGE.SET_NAME('IGS','IGS_GR_GRD_REC_EXT');
618: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
619: FND_MESSAGE.SET_TOKEN('COURSE',p_course_cd);
613: FND_MESSAGE.SET_NAME('IGS','IGS_GR_NO_REC_CRETD');
614: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
615: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET());
616: ELSIF cur_spaa_gr_dif%FOUND THEN
617: FND_MESSAGE.SET_NAME('IGS','IGS_GR_GRD_REC_EXT');
618: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
619: FND_MESSAGE.SET_TOKEN('COURSE',p_course_cd);
620: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET());
621: END IF;
614: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
615: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET());
616: ELSIF cur_spaa_gr_dif%FOUND THEN
617: FND_MESSAGE.SET_NAME('IGS','IGS_GR_GRD_REC_EXT');
618: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
619: FND_MESSAGE.SET_TOKEN('COURSE',p_course_cd);
620: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET());
621: END IF;
622: CLOSE cur_spaa_gr_dif;
615: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET());
616: ELSIF cur_spaa_gr_dif%FOUND THEN
617: FND_MESSAGE.SET_NAME('IGS','IGS_GR_GRD_REC_EXT');
618: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
619: FND_MESSAGE.SET_TOKEN('COURSE',p_course_cd);
620: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET());
621: END IF;
622: CLOSE cur_spaa_gr_dif;
623: END IF;
616: ELSIF cur_spaa_gr_dif%FOUND THEN
617: FND_MESSAGE.SET_NAME('IGS','IGS_GR_GRD_REC_EXT');
618: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
619: FND_MESSAGE.SET_TOKEN('COURSE',p_course_cd);
620: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET());
621: END IF;
622: CLOSE cur_spaa_gr_dif;
623: END IF;
624: END;
633: RAISE;
634: END;
635: EXCEPTION
636: WHEN OTHERS THEN
637: Fnd_Message.Set_Name('IGS', 'IGS_GE_UNHANDLED_EXCEPTION');
638: App_Exception.Raise_Exception;
639: END grdpl_ins_new_graduand;
640: -------------------------------------------------------------------
641: BEGIN
649: p_restrict_rqrmnt_complete IS NULL OR
650: p_potential_graduand_status IS NULL OR
651: p_eligible_graduand_status IS NULL OR
652: p_graduand_appr_status IS NULL THEN
653: Fnd_Message.Set_Name('IGS', 'IGS_GE_INVALID_VALUE');
654: --App_Exception.Raise_Exception;
655: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get); --Added as per bug# 2690151
656: RETURN;
657: END IF;
651: p_eligible_graduand_status IS NULL OR
652: p_graduand_appr_status IS NULL THEN
653: Fnd_Message.Set_Name('IGS', 'IGS_GE_INVALID_VALUE');
654: --App_Exception.Raise_Exception;
655: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get); --Added as per bug# 2690151
656: RETURN;
657: END IF;
658: -- Validate completion criterion
659: IF p_nominated_completion = 'N' AND
657: END IF;
658: -- Validate completion criterion
659: IF p_nominated_completion = 'N' AND
660: p_derived_completion = 'N' THEN
661: Fnd_Message.Set_Name('IGS', 'IGS_GR_NOMIN_DERV_COMPL_SET');
662: --App_Exception.Raise_Exception;
663: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get); --Added as per bug# 2690151
664: RETURN;
665: END IF;
659: IF p_nominated_completion = 'N' AND
660: p_derived_completion = 'N' THEN
661: Fnd_Message.Set_Name('IGS', 'IGS_GR_NOMIN_DERV_COMPL_SET');
662: --App_Exception.Raise_Exception;
663: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get); --Added as per bug# 2690151
664: RETURN;
665: END IF;
666: --
667: -- Validate the status values provided
738: --Log this message only once for a person.
739: IF l_log_person_id = 'NULL' OR
740: l_log_person_id <> v_crd_sca_rec.person_id||'-'||v_crd_sca_rec.course_cd THEN
741: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
742: FND_MESSAGE.SET_NAME('IGS','IGS_GR_PROCESSING');
743: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
744: FND_MESSAGE.SET_TOKEN('COURSE',v_crd_sca_rec.course_cd);
745: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET());
746: l_log_person_id := v_crd_sca_rec.person_id||'-'||v_crd_sca_rec.course_cd;
739: IF l_log_person_id = 'NULL' OR
740: l_log_person_id <> v_crd_sca_rec.person_id||'-'||v_crd_sca_rec.course_cd THEN
741: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
742: FND_MESSAGE.SET_NAME('IGS','IGS_GR_PROCESSING');
743: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
744: FND_MESSAGE.SET_TOKEN('COURSE',v_crd_sca_rec.course_cd);
745: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET());
746: l_log_person_id := v_crd_sca_rec.person_id||'-'||v_crd_sca_rec.course_cd;
747: END IF;
740: l_log_person_id <> v_crd_sca_rec.person_id||'-'||v_crd_sca_rec.course_cd THEN
741: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
742: FND_MESSAGE.SET_NAME('IGS','IGS_GR_PROCESSING');
743: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
744: FND_MESSAGE.SET_TOKEN('COURSE',v_crd_sca_rec.course_cd);
745: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET());
746: l_log_person_id := v_crd_sca_rec.person_id||'-'||v_crd_sca_rec.course_cd;
747: END IF;
748:
741: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
742: FND_MESSAGE.SET_NAME('IGS','IGS_GR_PROCESSING');
743: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
744: FND_MESSAGE.SET_TOKEN('COURSE',v_crd_sca_rec.course_cd);
745: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET());
746: l_log_person_id := v_crd_sca_rec.person_id||'-'||v_crd_sca_rec.course_cd;
747: END IF;
748:
749: OPEN c_gr(
762: p_course_cd => v_crd_sca_rec.course_cd,
763: p_effective_dt => SYSDATE,
764: p_encmb_effect_type => 'GRAD_BLK',
765: p_message_name => v_message_name) = TRUE THEN
766: FND_MESSAGE.SET_NAME('IGS', 'IGS_GR_GRD_HOLD');
767: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
768: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET);
769: l_chk_hold := v_crd_sca_rec.person_id||'-'||v_crd_sca_rec.course_cd;
770: END IF;
763: p_effective_dt => SYSDATE,
764: p_encmb_effect_type => 'GRAD_BLK',
765: p_message_name => v_message_name) = TRUE THEN
766: FND_MESSAGE.SET_NAME('IGS', 'IGS_GR_GRD_HOLD');
767: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
768: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET);
769: l_chk_hold := v_crd_sca_rec.person_id||'-'||v_crd_sca_rec.course_cd;
770: END IF;
771: END IF;
764: p_encmb_effect_type => 'GRAD_BLK',
765: p_message_name => v_message_name) = TRUE THEN
766: FND_MESSAGE.SET_NAME('IGS', 'IGS_GR_GRD_HOLD');
767: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
768: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET);
769: l_chk_hold := v_crd_sca_rec.person_id||'-'||v_crd_sca_rec.course_cd;
770: END IF;
771: END IF;
772: END IF;
782: v_crd_sca_rec.award_cd,
783: v_message_name);
784: END IF;
785: ELSE
786: FND_MESSAGE.SET_NAME('IGS','IGS_GR_GRD_REC_EXT');
787: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
788: FND_MESSAGE.SET_TOKEN('COURSE',v_crd_sca_rec.course_cd);
789: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET());
790: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
783: v_message_name);
784: END IF;
785: ELSE
786: FND_MESSAGE.SET_NAME('IGS','IGS_GR_GRD_REC_EXT');
787: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
788: FND_MESSAGE.SET_TOKEN('COURSE',v_crd_sca_rec.course_cd);
789: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET());
790: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
791: CLOSE c_gr;
784: END IF;
785: ELSE
786: FND_MESSAGE.SET_NAME('IGS','IGS_GR_GRD_REC_EXT');
787: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
788: FND_MESSAGE.SET_TOKEN('COURSE',v_crd_sca_rec.course_cd);
789: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET());
790: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
791: CLOSE c_gr;
792: END IF;
785: ELSE
786: FND_MESSAGE.SET_NAME('IGS','IGS_GR_GRD_REC_EXT');
787: FND_MESSAGE.SET_TOKEN('PERSON',l_person_number);
788: FND_MESSAGE.SET_TOKEN('COURSE',v_crd_sca_rec.course_cd);
789: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||FND_MESSAGE.GET());
790: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
791: CLOSE c_gr;
792: END IF;
793: END LOOP; -- crd_sca
803: END;
804: EXCEPTION
805: WHEN OTHERS THEN
806: RETCODE := 2;
807: ERRBUF := FND_MESSAGE.GET_STRING('IGS','IGS_GE_UNHANDLED_EXCEPTION');
808: IGS_GE_MSG_STACK.CONC_EXCEPTION_HNDL;
809: END grdp_ins_graduand;
810:
811:
990: END IF;
991: END;
992: EXCEPTION
993: WHEN OTHERS THEN
994: Fnd_Message.Set_Name('IGS', 'IGS_GE_UNHANDLED_EXCEPTION');
995: App_Exception.Raise_Exception;
996: END grdp_ins_gr_hist;
997:
998:
1119: BEGIN
1120: --
1121: --Log the Parameters value in the log file. This is to fix Bug# 2690151
1122: --
1123: FND_MESSAGE.SET_NAME('IGS', 'IGS_FI_ANC_LOG_PARM');
1124: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET()||':');
1125: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_grd_cal_type = '||p_grd_cal_type);
1126: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_grd_ci_sequence_number = '||p_grd_ci_sequence_number);
1127: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_location_cd = '||p_location_cd);
1120: --
1121: --Log the Parameters value in the log file. This is to fix Bug# 2690151
1122: --
1123: FND_MESSAGE.SET_NAME('IGS', 'IGS_FI_ANC_LOG_PARM');
1124: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET()||':');
1125: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_grd_cal_type = '||p_grd_cal_type);
1126: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_grd_ci_sequence_number = '||p_grd_ci_sequence_number);
1127: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_location_cd = '||p_location_cd);
1128: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_graduand_status = '||p_graduand_status);
1136: p_location_cd IS NULL OR
1137: p_graduand_status IS NULL OR
1138: p_resolve_stalemate_type IS NULL OR
1139: p_ignore_unit_sets_ind IS NULL THEN
1140: Fnd_Message.Set_Name('IGS', 'IGS_GE_INSUFFICIENT_PARAMETER');
1141: App_Exception.Raise_Exception;
1142: END IF;
1143: -- 2.1 Find any closed IGS_GR_AWD_CEREMONY records for the specified
1144: -- IGS_GR_CRMN_ROUND and loop through them.
1154: v_awc_rec.award_cd,
1155: p_resolve_stalemate_type,
1156: p_ignore_unit_sets_ind,
1157: v_message_name) = FALSE THEN
1158: Fnd_Message.Set_Name('IGS', v_message_name);
1159: App_Exception.Raise_Exception;
1160: END IF;
1161: END LOOP; -- c_awc
1162: -- 3.1 Find closed IGS_GR_AWD_CRM_US_GP records for the specified
1174: v_acusg_rec.us_group_number,
1175: p_resolve_stalemate_type,
1176: p_ignore_unit_sets_ind,
1177: v_message_name) = FALSE THEN
1178: Fnd_Message.Set_Name('IGS', v_message_name);
1179: App_Exception.Raise_Exception;
1180: END IF;
1181: END LOOP; -- c_acusg
1182: -- 4.1 Find any IGS_GR_GRADUAND records matching the IGS_GR_CRMN_ROUND, location_cd
1246: IF c_gr_upd%ISOPEN THEN
1247: CLOSE c_gr_upd;
1248: END IF;
1249: ROLLBACK TO sp_prc_gac;
1250: Fnd_Message.Set_Name('IGS', 'IGS_GR_CANNOT_UPDATE_GRAD_REC');
1251: App_Exception.Raise_Exception;
1252: WHEN OTHERS THEN
1253: ROLLBACK TO sp_prc_gac;
1254: RAISE;
1274: NULL,
1275: p_resolve_stalemate_type,
1276: p_ignore_unit_sets_ind,
1277: v_message_name) = FALSE THEN
1278: Fnd_Message.Set_Name('IGS', v_message_name);
1279: App_Exception.Raise_Exception;
1280: END IF;
1281: -- 4.4 If the IGS_GR_GRADUAND has been deferred into this IGS_GR_CRMN_ROUND and they
1282: -- have not been placed in a ceremony, ROLLBACK the change to the
1307: END;
1308: EXCEPTION
1309: WHEN OTHERS THEN
1310: /*RETCODE:=2;
1311: ERRBUF:=FND_MESSAGE.GET_STRING('IGS','IGS_GE_UNHANDLED_EXCEPTION');
1312: commented for the exception handler related changes*/
1313:
1314: RETCODE := 2;
1315: ERRBUF := FND_MESSAGE.GET_STRING('IGS','IGS_GE_UNHANDLED_EXCEPTION');
1311: ERRBUF:=FND_MESSAGE.GET_STRING('IGS','IGS_GE_UNHANDLED_EXCEPTION');
1312: commented for the exception handler related changes*/
1313:
1314: RETCODE := 2;
1315: ERRBUF := FND_MESSAGE.GET_STRING('IGS','IGS_GE_UNHANDLED_EXCEPTION');
1316: IGS_GE_MSG_STACK.CONC_EXCEPTION_HNDL;
1317:
1318:
1319: END grdp_prc_gac;
1421: BEGIN
1422:
1423: -- Next check has been added as per the 'Progression Completion' TD Bug# 2636792
1424: IF p_graduand_status IS NULL OR p_approval_status IS NULL THEN
1425: FND_MESSAGE.SET_NAME('IGS', 'IGS_GR_GRAD_APPR_REQ');
1426: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET());
1427: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
1428: RETURN;
1429: END IF;
1422:
1423: -- Next check has been added as per the 'Progression Completion' TD Bug# 2636792
1424: IF p_graduand_status IS NULL OR p_approval_status IS NULL THEN
1425: FND_MESSAGE.SET_NAME('IGS', 'IGS_GR_GRAD_APPR_REQ');
1426: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET());
1427: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
1428: RETURN;
1429: END IF;
1430: -- Check paramenters
1429: END IF;
1430: -- Check paramenters
1431: IF p_eligible_graduand_status IS NULL OR
1432: p_potential_graduand_status IS NULL THEN
1433: Fnd_Message.Set_Name('IGS', 'IGS_GE_INVALID_VALUE');
1434: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET());
1435: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
1436: RETURN;
1437: END IF;
1430: -- Check paramenters
1431: IF p_eligible_graduand_status IS NULL OR
1432: p_potential_graduand_status IS NULL THEN
1433: Fnd_Message.Set_Name('IGS', 'IGS_GE_INVALID_VALUE');
1434: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET());
1435: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
1436: RETURN;
1437: END IF;
1438: -- Validate the status values provided
1441: cst_eligible);
1442: FETCH c_gst INTO v_closed_ind;
1443: IF c_gst%NOTFOUND THEN
1444: CLOSE c_gst;
1445: Fnd_Message.Set_Name('IGS', 'IGS_GE_INVALID_VALUE');
1446: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET());
1447: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
1448: RETURN;
1449: ELSE
1442: FETCH c_gst INTO v_closed_ind;
1443: IF c_gst%NOTFOUND THEN
1444: CLOSE c_gst;
1445: Fnd_Message.Set_Name('IGS', 'IGS_GE_INVALID_VALUE');
1446: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET());
1447: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
1448: RETURN;
1449: ELSE
1450: CLOSE c_gst;
1448: RETURN;
1449: ELSE
1450: CLOSE c_gst;
1451: IF v_closed_ind = 'Y' THEN
1452: Fnd_Message.Set_Name('IGS', 'IGS_GR_GRAD_STATUS_CLOSED');
1453: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET());
1454: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
1455: RETURN;
1456: END IF;
1449: ELSE
1450: CLOSE c_gst;
1451: IF v_closed_ind = 'Y' THEN
1452: Fnd_Message.Set_Name('IGS', 'IGS_GR_GRAD_STATUS_CLOSED');
1453: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET());
1454: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
1455: RETURN;
1456: END IF;
1457: END IF;
1460: cst_potential);
1461: FETCH c_gst INTO v_closed_ind;
1462: IF c_gst%NOTFOUND THEN
1463: CLOSE c_gst;
1464: Fnd_Message.Set_Name('IGS', 'IGS_GE_INVALID_VALUE');
1465: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET());
1466: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
1467: RETURN;
1468: ELSE
1461: FETCH c_gst INTO v_closed_ind;
1462: IF c_gst%NOTFOUND THEN
1463: CLOSE c_gst;
1464: Fnd_Message.Set_Name('IGS', 'IGS_GE_INVALID_VALUE');
1465: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET());
1466: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
1467: RETURN;
1468: ELSE
1469: CLOSE c_gst;
1467: RETURN;
1468: ELSE
1469: CLOSE c_gst;
1470: IF v_closed_ind = 'Y' THEN
1471: Fnd_Message.Set_Name('IGS', 'IGS_GR_GRAD_STATUS_CLOSED');
1472: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET());
1473: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
1474: RETURN;
1475: END IF;
1468: ELSE
1469: CLOSE c_gst;
1470: IF v_closed_ind = 'Y' THEN
1471: Fnd_Message.Set_Name('IGS', 'IGS_GR_GRAD_STATUS_CLOSED');
1472: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET());
1473: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
1474: RETURN;
1475: END IF;
1476: END IF;
1561: BEGIN
1562: OPEN cur_get_person_num(v_gr_gst_rec.person_id);
1563: FETCH cur_get_person_num INTO rec_get_person_num;
1564: CLOSE cur_get_person_num;
1565: l_message_text := fnd_message.get;
1566: FND_MESSAGE.SET_NAME('IGS', 'IGS_GR_ERROR_OCC');
1567: l_log := FND_MESSAGE.GET()||' '''||rec_get_person_num.person_number||'''';
1568: FND_MESSAGE.SET_NAME('IGS', 'IGS_PR_PRG');
1569: l_log := l_log||' '||FND_MESSAGE.GET()||': '''||v_gr_gst_rec.course_cd||' '||v_gr_gst_rec.award_crs_version_number||'''';
1562: OPEN cur_get_person_num(v_gr_gst_rec.person_id);
1563: FETCH cur_get_person_num INTO rec_get_person_num;
1564: CLOSE cur_get_person_num;
1565: l_message_text := fnd_message.get;
1566: FND_MESSAGE.SET_NAME('IGS', 'IGS_GR_ERROR_OCC');
1567: l_log := FND_MESSAGE.GET()||' '''||rec_get_person_num.person_number||'''';
1568: FND_MESSAGE.SET_NAME('IGS', 'IGS_PR_PRG');
1569: l_log := l_log||' '||FND_MESSAGE.GET()||': '''||v_gr_gst_rec.course_cd||' '||v_gr_gst_rec.award_crs_version_number||'''';
1570: FND_MESSAGE.SET_NAME('IGS', 'IGS_PR_PROGRAM_AWARDS');
1563: FETCH cur_get_person_num INTO rec_get_person_num;
1564: CLOSE cur_get_person_num;
1565: l_message_text := fnd_message.get;
1566: FND_MESSAGE.SET_NAME('IGS', 'IGS_GR_ERROR_OCC');
1567: l_log := FND_MESSAGE.GET()||' '''||rec_get_person_num.person_number||'''';
1568: FND_MESSAGE.SET_NAME('IGS', 'IGS_PR_PRG');
1569: l_log := l_log||' '||FND_MESSAGE.GET()||': '''||v_gr_gst_rec.course_cd||' '||v_gr_gst_rec.award_crs_version_number||'''';
1570: FND_MESSAGE.SET_NAME('IGS', 'IGS_PR_PROGRAM_AWARDS');
1571: l_log := l_log||' '||FND_MESSAGE.GET()||': '''||v_gr_gst_rec.award_cd||'''';
1564: CLOSE cur_get_person_num;
1565: l_message_text := fnd_message.get;
1566: FND_MESSAGE.SET_NAME('IGS', 'IGS_GR_ERROR_OCC');
1567: l_log := FND_MESSAGE.GET()||' '''||rec_get_person_num.person_number||'''';
1568: FND_MESSAGE.SET_NAME('IGS', 'IGS_PR_PRG');
1569: l_log := l_log||' '||FND_MESSAGE.GET()||': '''||v_gr_gst_rec.course_cd||' '||v_gr_gst_rec.award_crs_version_number||'''';
1570: FND_MESSAGE.SET_NAME('IGS', 'IGS_PR_PROGRAM_AWARDS');
1571: l_log := l_log||' '||FND_MESSAGE.GET()||': '''||v_gr_gst_rec.award_cd||'''';
1572: FND_FILE.PUT_LINE(FND_FILE.LOG, l_log);
1565: l_message_text := fnd_message.get;
1566: FND_MESSAGE.SET_NAME('IGS', 'IGS_GR_ERROR_OCC');
1567: l_log := FND_MESSAGE.GET()||' '''||rec_get_person_num.person_number||'''';
1568: FND_MESSAGE.SET_NAME('IGS', 'IGS_PR_PRG');
1569: l_log := l_log||' '||FND_MESSAGE.GET()||': '''||v_gr_gst_rec.course_cd||' '||v_gr_gst_rec.award_crs_version_number||'''';
1570: FND_MESSAGE.SET_NAME('IGS', 'IGS_PR_PROGRAM_AWARDS');
1571: l_log := l_log||' '||FND_MESSAGE.GET()||': '''||v_gr_gst_rec.award_cd||'''';
1572: FND_FILE.PUT_LINE(FND_FILE.LOG, l_log);
1573: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||l_message_text);
1566: FND_MESSAGE.SET_NAME('IGS', 'IGS_GR_ERROR_OCC');
1567: l_log := FND_MESSAGE.GET()||' '''||rec_get_person_num.person_number||'''';
1568: FND_MESSAGE.SET_NAME('IGS', 'IGS_PR_PRG');
1569: l_log := l_log||' '||FND_MESSAGE.GET()||': '''||v_gr_gst_rec.course_cd||' '||v_gr_gst_rec.award_crs_version_number||'''';
1570: FND_MESSAGE.SET_NAME('IGS', 'IGS_PR_PROGRAM_AWARDS');
1571: l_log := l_log||' '||FND_MESSAGE.GET()||': '''||v_gr_gst_rec.award_cd||'''';
1572: FND_FILE.PUT_LINE(FND_FILE.LOG, l_log);
1573: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||l_message_text);
1574: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
1567: l_log := FND_MESSAGE.GET()||' '''||rec_get_person_num.person_number||'''';
1568: FND_MESSAGE.SET_NAME('IGS', 'IGS_PR_PRG');
1569: l_log := l_log||' '||FND_MESSAGE.GET()||': '''||v_gr_gst_rec.course_cd||' '||v_gr_gst_rec.award_crs_version_number||'''';
1570: FND_MESSAGE.SET_NAME('IGS', 'IGS_PR_PROGRAM_AWARDS');
1571: l_log := l_log||' '||FND_MESSAGE.GET()||': '''||v_gr_gst_rec.award_cd||'''';
1572: FND_FILE.PUT_LINE(FND_FILE.LOG, l_log);
1573: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||l_message_text);
1574: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
1575: END;
1581: WHEN e_resource_busy THEN
1582: IF c_gr_gst%ISOPEN THEN
1583: CLOSE c_gr_gst;
1584: END IF;
1585: ERRBUF:=FND_MESSAGE.GET_STRING('IGS','IGS_GE_RECORD_LOCKED');
1586: RETCODE:=2;
1587: WHEN OTHERS THEN
1588:
1589: IF c_gst%ISOPEN THEN
1596: END;
1597: EXCEPTION
1598: WHEN OTHERS THEN
1599: /*RETCODE:=2;
1600: ERRBUF:=FND_MESSAGE.GET_STRING('IGS','IGS_GE_UNHANDLED_EXCEPTION');
1601: commented for exception handler related changes */
1602:
1603: RETCODE := 2;
1604: ERRBUF := FND_MESSAGE.GET_STRING('IGS','IGS_GE_UNHANDLED_EXCEPTION');
1600: ERRBUF:=FND_MESSAGE.GET_STRING('IGS','IGS_GE_UNHANDLED_EXCEPTION');
1601: commented for exception handler related changes */
1602:
1603: RETCODE := 2;
1604: ERRBUF := FND_MESSAGE.GET_STRING('IGS','IGS_GE_UNHANDLED_EXCEPTION');
1605: IGS_GE_MSG_STACK.CONC_EXCEPTION_HNDL;
1606: END grdp_set_gr_gst;
1607:
1608:
1780: BEGIN
1781: --
1782: --Log the Parameters value in the log file. This is to fix Bug# 2690151
1783: --
1784: FND_MESSAGE.SET_NAME('IGS', 'IGS_FI_ANC_LOG_PARM');
1785: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET()||':');
1786: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_grd_cal_type = '||p_grd_cal_type);
1787: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_grd_ci_sequence_number = '||p_grd_ci_sequence_number);
1788: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_ceremony_number = '||p_ceremony_number);
1781: --
1782: --Log the Parameters value in the log file. This is to fix Bug# 2690151
1783: --
1784: FND_MESSAGE.SET_NAME('IGS', 'IGS_FI_ANC_LOG_PARM');
1785: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET()||':');
1786: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_grd_cal_type = '||p_grd_cal_type);
1787: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_grd_ci_sequence_number = '||p_grd_ci_sequence_number);
1788: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_ceremony_number = '||p_ceremony_number);
1789: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_order_by = '||p_order_by);
1797: p_ceremony_number IS NULL OR
1798: p_order_by IS NULL OR
1799: p_ignore_unit_sets_ind IS NULL OR
1800: p_group_multi_award_ind IS NULL THEN
1801: Fnd_Message.Set_Name('IGS', 'IGS_GE_INSUFFICIENT_PARAMETER');
1802: --App_Exception.Raise_Exception;
1803: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get); --Added as per bug# 2691809
1804: RETURN;
1805: END IF;
1799: p_ignore_unit_sets_ind IS NULL OR
1800: p_group_multi_award_ind IS NULL THEN
1801: Fnd_Message.Set_Name('IGS', 'IGS_GE_INSUFFICIENT_PARAMETER');
1802: --App_Exception.Raise_Exception;
1803: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get); --Added as per bug# 2691809
1804: RETURN;
1805: END IF;
1806: --2. Loop through all of the IGS_GR_CRMN records
1807: -- which match the specifed parameters.
1812: FETCH c_awc INTO v_awc_exists;
1813: IF c_awc%FOUND THEN
1814: --4. If any records are found raise an error.
1815: CLOSE c_awc;
1816: Fnd_Message.Set_Name('IGS', 'IGS_GR_AWD_CERM_REC_CLOSED');
1817: --App_Exception.Raise_Exception;
1818: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get); --Added as per bug# 2691809
1819: RETURN;
1820: END IF;
1814: --4. If any records are found raise an error.
1815: CLOSE c_awc;
1816: Fnd_Message.Set_Name('IGS', 'IGS_GR_AWD_CERM_REC_CLOSED');
1817: --App_Exception.Raise_Exception;
1818: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get); --Added as per bug# 2691809
1819: RETURN;
1820: END IF;
1821: CLOSE c_awc;
1822: --5. Check if the IGS_GR_CRMN has any related graduand_award_cermony
1826: FETCH c_acusg INTO v_acusg_exists;
1827: IF c_acusg%FOUND THEN
1828: --6. If any records are found raise an error.
1829: CLOSE c_acusg;
1830: Fnd_Message.Set_Name('IGS', 'IGS_GR_AWD_CERM_UNIT_SET_CLOS');
1831: --App_Exception.Raise_Exception;
1832: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get); --Added as per bug# 2691809
1833: RETURN;
1834: END IF;
1828: --6. If any records are found raise an error.
1829: CLOSE c_acusg;
1830: Fnd_Message.Set_Name('IGS', 'IGS_GR_AWD_CERM_UNIT_SET_CLOS');
1831: --App_Exception.Raise_Exception;
1832: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get); --Added as per bug# 2691809
1833: RETURN;
1834: END IF;
1835: CLOSE c_acusg;
1836: --7. Clear the order_in_presentation for all of the IGS_GR_AWD_CRMN
1885: IF c_gac_del%ISOPEN THEN
1886: CLOSE c_gac_del;
1887: END IF;
1888: ROLLBACK TO sp_gac_del;
1889: Fnd_Message.Set_Name('IGS', 'IGS_GR_AWD_CERM_CANNOT_UPDATE');
1890: --App_Exception.Raise_Exception;
1891: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get); --Added as per bug# 2691809
1892: WHEN OTHERS THEN
1893: ROLLBACK TO sp_gac_del;
1887: END IF;
1888: ROLLBACK TO sp_gac_del;
1889: Fnd_Message.Set_Name('IGS', 'IGS_GR_AWD_CERM_CANNOT_UPDATE');
1890: --App_Exception.Raise_Exception;
1891: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get); --Added as per bug# 2691809
1892: WHEN OTHERS THEN
1893: ROLLBACK TO sp_gac_del;
1894: l_msg_text := fnd_message.get;
1895: IGS_GE_MSG_STACK.GET(1,'T',l_msg_text, l_index );
1890: --App_Exception.Raise_Exception;
1891: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get); --Added as per bug# 2691809
1892: WHEN OTHERS THEN
1893: ROLLBACK TO sp_gac_del;
1894: l_msg_text := fnd_message.get;
1895: IGS_GE_MSG_STACK.GET(1,'T',l_msg_text, l_index );
1896: FND_MESSAGE.PARSE_ENCODED (l_msg_text, l_app_name, l_message_name);
1897: IF l_message_name IN ('IGS_GR_INVALID_PROC_PERIOD','IGS_GR_INV_DT_GRAD_CERM', 'IGS_GR_CLOSING_DT_REACHED') THEN
1898: Fnd_Message.Set_Name('IGS', l_message_name);
1892: WHEN OTHERS THEN
1893: ROLLBACK TO sp_gac_del;
1894: l_msg_text := fnd_message.get;
1895: IGS_GE_MSG_STACK.GET(1,'T',l_msg_text, l_index );
1896: FND_MESSAGE.PARSE_ENCODED (l_msg_text, l_app_name, l_message_name);
1897: IF l_message_name IN ('IGS_GR_INVALID_PROC_PERIOD','IGS_GR_INV_DT_GRAD_CERM', 'IGS_GR_CLOSING_DT_REACHED') THEN
1898: Fnd_Message.Set_Name('IGS', l_message_name);
1899: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get); --Added as per bug# 2691809
1900: RETURN;
1894: l_msg_text := fnd_message.get;
1895: IGS_GE_MSG_STACK.GET(1,'T',l_msg_text, l_index );
1896: FND_MESSAGE.PARSE_ENCODED (l_msg_text, l_app_name, l_message_name);
1897: IF l_message_name IN ('IGS_GR_INVALID_PROC_PERIOD','IGS_GR_INV_DT_GRAD_CERM', 'IGS_GR_CLOSING_DT_REACHED') THEN
1898: Fnd_Message.Set_Name('IGS', l_message_name);
1899: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get); --Added as per bug# 2691809
1900: RETURN;
1901: END IF;
1902: RAISE;
1895: IGS_GE_MSG_STACK.GET(1,'T',l_msg_text, l_index );
1896: FND_MESSAGE.PARSE_ENCODED (l_msg_text, l_app_name, l_message_name);
1897: IF l_message_name IN ('IGS_GR_INVALID_PROC_PERIOD','IGS_GR_INV_DT_GRAD_CERM', 'IGS_GR_CLOSING_DT_REACHED') THEN
1898: Fnd_Message.Set_Name('IGS', l_message_name);
1899: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get); --Added as per bug# 2691809
1900: RETURN;
1901: END IF;
1902: RAISE;
1903: END;
2087: X_ORDER_IN_PRESENTATION => gac_rec.order_in_presentation,
2088: X_MODE => 'R');
2089: EXCEPTION
2090: WHEN OTHERS THEN
2091: l_msg_text := fnd_message.get;
2092: igs_ge_msg_stack.get(1,'T',l_msg_text, l_index );
2093: fnd_message.parse_encoded (l_msg_text, l_app_name, l_message_name);
2094: IF l_message_name IN ('IGS_GR_INVALID_PROC_PERIOD','IGS_GR_INV_DT_GRAD_CERM', 'IGS_GR_CLOSING_DT_REACHED') THEN
2095: Fnd_Message.Set_Name('IGS', l_message_name);
2089: EXCEPTION
2090: WHEN OTHERS THEN
2091: l_msg_text := fnd_message.get;
2092: igs_ge_msg_stack.get(1,'T',l_msg_text, l_index );
2093: fnd_message.parse_encoded (l_msg_text, l_app_name, l_message_name);
2094: IF l_message_name IN ('IGS_GR_INVALID_PROC_PERIOD','IGS_GR_INV_DT_GRAD_CERM', 'IGS_GR_CLOSING_DT_REACHED') THEN
2095: Fnd_Message.Set_Name('IGS', l_message_name);
2096: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get);
2097: RETURN;
2091: l_msg_text := fnd_message.get;
2092: igs_ge_msg_stack.get(1,'T',l_msg_text, l_index );
2093: fnd_message.parse_encoded (l_msg_text, l_app_name, l_message_name);
2094: IF l_message_name IN ('IGS_GR_INVALID_PROC_PERIOD','IGS_GR_INV_DT_GRAD_CERM', 'IGS_GR_CLOSING_DT_REACHED') THEN
2095: Fnd_Message.Set_Name('IGS', l_message_name);
2096: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get);
2097: RETURN;
2098: END IF;
2099: END;
2092: igs_ge_msg_stack.get(1,'T',l_msg_text, l_index );
2093: fnd_message.parse_encoded (l_msg_text, l_app_name, l_message_name);
2094: IF l_message_name IN ('IGS_GR_INVALID_PROC_PERIOD','IGS_GR_INV_DT_GRAD_CERM', 'IGS_GR_CLOSING_DT_REACHED') THEN
2095: Fnd_Message.Set_Name('IGS', l_message_name);
2096: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get);
2097: RETURN;
2098: END IF;
2099: END;
2100: end loop;
2147: X_MODE => 'R');
2148:
2149: EXCEPTION
2150: WHEN OTHERS THEN
2151: l_msg_text := fnd_message.get;
2152: igs_ge_msg_stack.get(1,'T',l_msg_text, l_index );
2153: fnd_message.parse_encoded (l_msg_text, l_app_name, l_message_name);
2154: IF l_message_name IN ('IGS_GR_INVALID_PROC_PERIOD','IGS_GR_INV_DT_GRAD_CERM', 'IGS_GR_CLOSING_DT_REACHED') THEN
2155: Fnd_Message.Set_Name('IGS', l_message_name);
2149: EXCEPTION
2150: WHEN OTHERS THEN
2151: l_msg_text := fnd_message.get;
2152: igs_ge_msg_stack.get(1,'T',l_msg_text, l_index );
2153: fnd_message.parse_encoded (l_msg_text, l_app_name, l_message_name);
2154: IF l_message_name IN ('IGS_GR_INVALID_PROC_PERIOD','IGS_GR_INV_DT_GRAD_CERM', 'IGS_GR_CLOSING_DT_REACHED') THEN
2155: Fnd_Message.Set_Name('IGS', l_message_name);
2156: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get);
2157: RETURN;
2151: l_msg_text := fnd_message.get;
2152: igs_ge_msg_stack.get(1,'T',l_msg_text, l_index );
2153: fnd_message.parse_encoded (l_msg_text, l_app_name, l_message_name);
2154: IF l_message_name IN ('IGS_GR_INVALID_PROC_PERIOD','IGS_GR_INV_DT_GRAD_CERM', 'IGS_GR_CLOSING_DT_REACHED') THEN
2155: Fnd_Message.Set_Name('IGS', l_message_name);
2156: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get);
2157: RETURN;
2158: END IF;
2159: END;
2152: igs_ge_msg_stack.get(1,'T',l_msg_text, l_index );
2153: fnd_message.parse_encoded (l_msg_text, l_app_name, l_message_name);
2154: IF l_message_name IN ('IGS_GR_INVALID_PROC_PERIOD','IGS_GR_INV_DT_GRAD_CERM', 'IGS_GR_CLOSING_DT_REACHED') THEN
2155: Fnd_Message.Set_Name('IGS', l_message_name);
2156: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get);
2157: RETURN;
2158: END IF;
2159: END;
2160: END LOOP;
2217: CLOSE c_existing_order;
2218: END IF;
2219: DBMS_SQL.CLOSE_CURSOR(v_gac_upd_c_handle);
2220: ROLLBACK TO sp_gac_upd;
2221: FND_MESSAGE.SET_NAME('IGS', 'IGS_GR_AWD_CERM_CANNOT_UPDATE');
2222: --App_Exception.Raise_Exception;
2223: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get); --Added as per bug# 2691809
2224: RETURN;
2225: WHEN OTHERS THEN
2219: DBMS_SQL.CLOSE_CURSOR(v_gac_upd_c_handle);
2220: ROLLBACK TO sp_gac_upd;
2221: FND_MESSAGE.SET_NAME('IGS', 'IGS_GR_AWD_CERM_CANNOT_UPDATE');
2222: --App_Exception.Raise_Exception;
2223: FND_FILE.PUT_LINE(FND_FILE.LOG,fnd_message.get); --Added as per bug# 2691809
2224: RETURN;
2225: WHEN OTHERS THEN
2226: ROLLBACK TO sp_gac_upd;
2227: RAISE;
2257: END;
2258: EXCEPTION
2259: WHEN OTHERS THEN
2260: /*RETCODE:=2;
2261: ERRBUF:=FND_MESSAGE.GET_STRING('IGS','IGS_GE_UNHANDLED_EXCEPTION');
2262: commented for exception handler related changes */
2263:
2264: RETCODE := 2;
2265: ERRBUF := FND_MESSAGE.GET_STRING('IGS','IGS_GE_UNHANDLED_EXCEPTION');
2261: ERRBUF:=FND_MESSAGE.GET_STRING('IGS','IGS_GE_UNHANDLED_EXCEPTION');
2262: commented for exception handler related changes */
2263:
2264: RETCODE := 2;
2265: ERRBUF := FND_MESSAGE.GET_STRING('IGS','IGS_GE_UNHANDLED_EXCEPTION');
2266: IGS_GE_MSG_STACK.CONC_EXCEPTION_HNDL;
2267:
2268: END grdp_upd_gac_order;
2269: