[Home] [Help]
49: AS
50:
51:
52: BEGIN -- enrp_ins_dflt_effect
53: -- Insert the default IGS_PE_PERSENC_EFFCT's for a IGS_PE_PERS_ENCUMB
54: -- base on the encumbrance_type and its associated encmb_type_dflt_effects.
55: -- This procedure should only be called on createion of a IGS_PE_PERS_ENCUMB
56: -- record
57: DECLARE
58: v_closed_ind VARCHAR2(1);
59: v_error_ind NUMBER(5) := 0;
60: v_apply_to_course_ind IGS_EN_ENCMB_EFCTTYP_V.apply_to_course_ind%TYPE;
61: v_course_cd IGS_EN_STDNT_PS_ATT.course_cd%TYPE;
62: v_pee_seq_num IGS_PE_PERSENC_EFFCT.sequence_number%TYPE;
63: v_message_string VARCHAR2(5512);
64: v_return_type VARCHAR2(1);
65: CURSOR c_s_encmb_effect_type (
66: cp_s_encmb_effect_type IGS_EN_ENCMB_EFCTTYP_V.s_encmb_effect_type%TYPE) IS
226: -- 'not created due to existing record conflict';
227: GOTO CONTINUE;
228: END IF;
229: END IF;
230: SELECT IGS_PE_PERSENC_EFFCT_SEQ_NUM_S.NEXTVAL
231: INTO v_pee_seq_num
232: FROM DUAL;
233: -- Call Table Handler
234: DECLARE
233: -- Call Table Handler
234: DECLARE
235: l_rowid VARCHAR2(25);
236: BEGIN
237: IGS_PE_PERSENC_EFFCT_PKG.INSERT_ROW (
238: x_rowid => l_rowid,
239: x_person_id => p_person_id,
240: x_encumbrance_type => p_encumbrance_type,
241: x_pen_start_dt => p_start_dt,