22: -- is authorised
23: DECLARE
24: cst_academic CONSTANT VARCHAR2(8) := 'ACADEMIC';
25: v_rec_found BOOLEAN DEFAULT FALSE;
26: v_s_encmb_cat IGS_FI_ENCMB_TYPE.s_encumbrance_cat%TYPE;
27: v_start_dt IGS_PE_PERS_ENCUMB.start_dt%TYPE;
28: CURSOR c_encmb_type (
29: cp_encumbrance_type IGS_FI_ENCMB_TYPE.encumbrance_type%TYPE) IS
30: SELECT et.s_encumbrance_cat
25: v_rec_found BOOLEAN DEFAULT FALSE;
26: v_s_encmb_cat IGS_FI_ENCMB_TYPE.s_encumbrance_cat%TYPE;
27: v_start_dt IGS_PE_PERS_ENCUMB.start_dt%TYPE;
28: CURSOR c_encmb_type (
29: cp_encumbrance_type IGS_FI_ENCMB_TYPE.encumbrance_type%TYPE) IS
30: SELECT et.s_encumbrance_cat
31: FROM IGS_FI_ENCMB_TYPE et
32: WHERE et.encumbrance_type = cp_encumbrance_type;
33: CURSOR c_prsn_encmb (
27: v_start_dt IGS_PE_PERS_ENCUMB.start_dt%TYPE;
28: CURSOR c_encmb_type (
29: cp_encumbrance_type IGS_FI_ENCMB_TYPE.encumbrance_type%TYPE) IS
30: SELECT et.s_encumbrance_cat
31: FROM IGS_FI_ENCMB_TYPE et
32: WHERE et.encumbrance_type = cp_encumbrance_type;
33: CURSOR c_prsn_encmb (
34: cp_person_id IGS_PE_PERS_ENCUMB.person_id%TYPE,
35: cp_encumbrance_type IGS_PE_PERS_ENCUMB.encumbrance_type%TYPE,