127: --commented by syam to avoid adchkdrv errors -dbms_output.put_line(' IN PROCEDURE (DECLARE) END : IGS_FI_GET_SUAEH.finpl_ins_sua_rec');
128: EXCEPTION
129: WHEN OTHERS THEN
130: if SQLCODE <> -20001 then
131: Fnd_Message.Set_Name ('IGS', 'IGS_GE_UNHANDLED_EXP');
132: Fnd_Message.Set_Token('NAME','IGS_FI_GET_SUAEH.FINPL_INS_SUA_REC');
133: IGS_GE_MSG_STACK.ADD;
134: App_Exception.Raise_Exception(Null, Null, fnd_message.get);
135: else
128: EXCEPTION
129: WHEN OTHERS THEN
130: if SQLCODE <> -20001 then
131: Fnd_Message.Set_Name ('IGS', 'IGS_GE_UNHANDLED_EXP');
132: Fnd_Message.Set_Token('NAME','IGS_FI_GET_SUAEH.FINPL_INS_SUA_REC');
133: IGS_GE_MSG_STACK.ADD;
134: App_Exception.Raise_Exception(Null, Null, fnd_message.get);
135: else
136: RAISE;
130: if SQLCODE <> -20001 then
131: Fnd_Message.Set_Name ('IGS', 'IGS_GE_UNHANDLED_EXP');
132: Fnd_Message.Set_Token('NAME','IGS_FI_GET_SUAEH.FINPL_INS_SUA_REC');
133: IGS_GE_MSG_STACK.ADD;
134: App_Exception.Raise_Exception(Null, Null, fnd_message.get);
135: else
136: RAISE;
137: end if;
138: END finpl_ins_sua_rec;
312: --commented by syam to avoid adchkdrv errors -dbms_output.put_line(' IN PROCEDURE (DECLARE) END : IGS_FI_GET_SUAEH.finpl_ins_suah_rec');
313: EXCEPTION
314: WHEN OTHERS THEN
315: if SQLCODE <> -20001 then
316: Fnd_Message.Set_Name ('IGS', 'IGS_GE_UNHANDLED_EXP');
317: Fnd_Message.Set_Token('NAME','IGS_FI_GET_SUAEH.FINP_INS_SUAH_REC');
318: IGS_GE_MSG_STACK.ADD;
319: App_Exception.Raise_Exception(Null, Null, fnd_message.get);
320: else
313: EXCEPTION
314: WHEN OTHERS THEN
315: if SQLCODE <> -20001 then
316: Fnd_Message.Set_Name ('IGS', 'IGS_GE_UNHANDLED_EXP');
317: Fnd_Message.Set_Token('NAME','IGS_FI_GET_SUAEH.FINP_INS_SUAH_REC');
318: IGS_GE_MSG_STACK.ADD;
319: App_Exception.Raise_Exception(Null, Null, fnd_message.get);
320: else
321: RAISE;
315: if SQLCODE <> -20001 then
316: Fnd_Message.Set_Name ('IGS', 'IGS_GE_UNHANDLED_EXP');
317: Fnd_Message.Set_Token('NAME','IGS_FI_GET_SUAEH.FINP_INS_SUAH_REC');
318: IGS_GE_MSG_STACK.ADD;
319: App_Exception.Raise_Exception(Null, Null, fnd_message.get);
320: else
321: RAISE;
322: end if;
323: END finpl_ins_suah_rec;
375: --commented by syam to avoid adchkdrv errors -dbms_output.put_line(' IN PROCEDURE (DECLARE) END : IGS_FI_GET_SUAEH.finpl_ins_suahv_rec');
376: EXCEPTION
377: WHEN OTHERS THEN
378: if SQLCODE <> -20001 then
379: Fnd_Message.Set_Name ('IGS', 'IGS_GE_UNHANDLED_EXP');
380: Fnd_Message.Set_Token('NAME','IGS_FI_GET_SUAEH.FINPL_INS_SUAHV_REC');
381: IGS_GE_MSG_STACK.ADD;
382: App_Exception.Raise_Exception(Null, Null, fnd_message.get);
383: else
376: EXCEPTION
377: WHEN OTHERS THEN
378: if SQLCODE <> -20001 then
379: Fnd_Message.Set_Name ('IGS', 'IGS_GE_UNHANDLED_EXP');
380: Fnd_Message.Set_Token('NAME','IGS_FI_GET_SUAEH.FINPL_INS_SUAHV_REC');
381: IGS_GE_MSG_STACK.ADD;
382: App_Exception.Raise_Exception(Null, Null, fnd_message.get);
383: else
384: RAISE;
378: if SQLCODE <> -20001 then
379: Fnd_Message.Set_Name ('IGS', 'IGS_GE_UNHANDLED_EXP');
380: Fnd_Message.Set_Token('NAME','IGS_FI_GET_SUAEH.FINPL_INS_SUAHV_REC');
381: IGS_GE_MSG_STACK.ADD;
382: App_Exception.Raise_Exception(Null, Null, fnd_message.get);
383: else
384: RAISE;
385: end if;
386: END finpl_ins_suahv_rec;
450: --commented by syam to avoid adchkdrv errors -dbms_output.put_line(' IN PROCEDURE (DECLARE) END : IGS_FI_GET_SUAEH.finpl_prc_sua_enrhist');
451: EXCEPTION
452: WHEN OTHERS THEN
453: if SQLCODE <> -20001 then
454: Fnd_Message.Set_Name ('IGS', 'IGS_GE_UNHANDLED_EXP');
455: Fnd_Message.Set_Token('NAME','IGS_FI_GET_SUAEH.FINPL_PRC_SUA_ENRHIST');
456: IGS_GE_MSG_STACK.ADD;
457: App_Exception.Raise_Exception(Null, Null, fnd_message.get);
458: else
451: EXCEPTION
452: WHEN OTHERS THEN
453: if SQLCODE <> -20001 then
454: Fnd_Message.Set_Name ('IGS', 'IGS_GE_UNHANDLED_EXP');
455: Fnd_Message.Set_Token('NAME','IGS_FI_GET_SUAEH.FINPL_PRC_SUA_ENRHIST');
456: IGS_GE_MSG_STACK.ADD;
457: App_Exception.Raise_Exception(Null, Null, fnd_message.get);
458: else
459: RAISE;
453: if SQLCODE <> -20001 then
454: Fnd_Message.Set_Name ('IGS', 'IGS_GE_UNHANDLED_EXP');
455: Fnd_Message.Set_Token('NAME','IGS_FI_GET_SUAEH.FINPL_PRC_SUA_ENRHIST');
456: IGS_GE_MSG_STACK.ADD;
457: App_Exception.Raise_Exception(Null, Null, fnd_message.get);
458: else
459: RAISE;
460: end if;
461: END finpl_prc_sua_enrhist;
489: --commented by syam to avoid adchkdrv errors -dbms_output.put_line(' IN PROCEDURE START : IGS_FI_GET_SUAEH.finp_get_suaeh');
490:
491: IF p_person_id IS NULL OR
492: p_effective_dt IS NULL THEN
493: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
494: IGS_GE_MSG_STACK.ADD;
495: App_Exception.Raise_Exception(Null, Null, fnd_message.get);
496: END IF;
497: -- check if the effective history has already been captured
491: IF p_person_id IS NULL OR
492: p_effective_dt IS NULL THEN
493: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
494: IGS_GE_MSG_STACK.ADD;
495: App_Exception.Raise_Exception(Null, Null, fnd_message.get);
496: END IF;
497: -- check if the effective history has already been captured
498: IF gv_person_id IS NOT NULL AND
499: gv_effective_dt IS NOT NULL THEN
556: r_sua.LAST_UPDATE_DATE,
557: gv_effective_dt,
558: r_sua);
559: ELSE -- unrecognised status
560: Fnd_Message.Set_Name ('IGS', 'IGS_FI_UNRECOG_SUA_STATUS');
561: IGS_GE_MSG_STACK.ADD;
562: App_Exception.Raise_Exception(Null, Null, fnd_message.get);
563: END IF;
564: ELSE -- processing history effective up until the current day
558: r_sua);
559: ELSE -- unrecognised status
560: Fnd_Message.Set_Name ('IGS', 'IGS_FI_UNRECOG_SUA_STATUS');
561: IGS_GE_MSG_STACK.ADD;
562: App_Exception.Raise_Exception(Null, Null, fnd_message.get);
563: END IF;
564: ELSE -- processing history effective up until the current day
565: -- check if effective date falls within the current SUA history
566: OPEN c_suah( r_sua.course_cd,
802: -- dicontinuation/enrolment
803: RETURN; -- no history
804: END IF;
805: ELSE -- unrecognised status
806: Fnd_Message.Set_Name ('IGS', 'IGS_FI_UNRECOG_SUA_STATUS');
807: IGS_GE_MSG_STACK.ADD;
808: App_Exception.Raise_Exception(Null, Null, fnd_message.get);
809: END IF;
810: END IF;
804: END IF;
805: ELSE -- unrecognised status
806: Fnd_Message.Set_Name ('IGS', 'IGS_FI_UNRECOG_SUA_STATUS');
807: IGS_GE_MSG_STACK.ADD;
808: App_Exception.Raise_Exception(Null, Null, fnd_message.get);
809: END IF;
810: END IF;
811: END LOOP;
812: END;
814: --commented by syam to avoid adchkdrv errors -dbms_output.put_line(' IN PROCEDURE END : IGS_FI_GET_SUAEH.finp_get_suaeh');
815: EXCEPTION
816: WHEN OTHERS THEN
817: if SQLCODE <> -20001 then
818: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP');
819: FND_MESSAGE.SET_TOKEN('NAME','IGS_FI_GET_SUAEH.FINP_GET_SUAEH');
820: IGS_GE_MSG_STACK.ADD;
821: lv_param_values := to_char(p_person_id)||','||
822: p_course_cd||','||p_unit_cd||','||
815: EXCEPTION
816: WHEN OTHERS THEN
817: if SQLCODE <> -20001 then
818: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP');
819: FND_MESSAGE.SET_TOKEN('NAME','IGS_FI_GET_SUAEH.FINP_GET_SUAEH');
820: IGS_GE_MSG_STACK.ADD;
821: lv_param_values := to_char(p_person_id)||','||
822: p_course_cd||','||p_unit_cd||','||
823: igs_ge_date.igschardt(p_effective_dt);
820: IGS_GE_MSG_STACK.ADD;
821: lv_param_values := to_char(p_person_id)||','||
822: p_course_cd||','||p_unit_cd||','||
823: igs_ge_date.igschardt(p_effective_dt);
824: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PARAMETERS');
825: FND_MESSAGE.SET_TOKEN('VALUE',lv_param_values);
826: IGS_GE_MSG_STACK.ADD;
827: App_Exception.Raise_Exception(Null, Null, fnd_message.get);
828: else
821: lv_param_values := to_char(p_person_id)||','||
822: p_course_cd||','||p_unit_cd||','||
823: igs_ge_date.igschardt(p_effective_dt);
824: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PARAMETERS');
825: FND_MESSAGE.SET_TOKEN('VALUE',lv_param_values);
826: IGS_GE_MSG_STACK.ADD;
827: App_Exception.Raise_Exception(Null, Null, fnd_message.get);
828: else
829: RAISE;
823: igs_ge_date.igschardt(p_effective_dt);
824: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PARAMETERS');
825: FND_MESSAGE.SET_TOKEN('VALUE',lv_param_values);
826: IGS_GE_MSG_STACK.ADD;
827: App_Exception.Raise_Exception(Null, Null, fnd_message.get);
828: else
829: RAISE;
830: end if;
831: END finp_get_suaeh;