[Home] [Help]
25: v_check VARCHAR2(1);
26: v_ret_val BOOLEAN DEFAULT TRUE;
27: CURSOR c_person_course_exclusion IS
28: SELECT 'x'
29: FROM IGS_PE_COURSE_EXCL
30: WHERE
31: person_id = p_person_id AND
32: encumbrance_type = p_encumbrance_type AND
33: pen_start_dt = p_pen_start_dt AND
70: p_deleting IN BOOLEAN ,
71: p_message_name IN OUT NOCOPY VARCHAR2 )
72: RETURN BOOLEAN AS
73: v_index BINARY_INTEGER;
74: r_person_course_exclusion IGS_PE_COURSE_EXCL%ROWTYPE;
75: BEGIN
76: -- Process saved rows.
77: FOR v_index IN 1..gv_table_index - 1
78: LOOP
78: LOOP
79: BEGIN
80: SELECT *
81: INTO r_person_course_exclusion
82: FROM IGS_PE_COURSE_EXCL
83: WHERE ROWID = gt_rowid_table(v_index);
84: EXCEPTION
85: WHEN OTHERS THEN
86: Fnd_Message.Set_Name('IGS', 'IGS_GE_UNHANDLED_EXP');
341: IF (p_effect_type = 'EXC_CRS_GP' AND
342: p_table_name = 'IGS_PE_CRS_GRP_EXCL') THEN
343: RETURN TRUE;
344: ELSIF (p_effect_type IN('EXC_COURSE', 'SUS_COURSE') AND
345: p_table_name = 'IGS_PE_COURSE_EXCL') THEN
346: RETURN TRUE;
347: ELSIF (p_effect_type = 'EXC_CRS_U' AND
348: p_table_name = 'IGS_PE_PERS_UNT_EXCL') THEN
349: RETURN TRUE;