[Home] [Help]
408: -- MODIFICATION HISTORY
409: -- Person Date Comments
410: -- --------- -------- ------------------------------------------
411: -- MSONTER 21/08/98 Initial creation of function
412: FUNCTION repp_val_enr_cat( p_enr_cat IN OUT NOCOPY IGS_EN_ENROLMENT_CAT.ENROLMENT_CAT%TYPE,
413: p_msg_name OUT NOCOPY VARCHAR2)
414: RETURN BOOLEAN
415: AS
416: --
414: RETURN BOOLEAN
415: AS
416: --
417: -- Local Cursors
418: CURSOR c_crs(cp_enr_cat IGS_EN_ENROLMENT_CAT.enrolment_cat%TYPE)
419: IS
420: SELECT
421: 'x'
422: FROM IGS_EN_ENROLMENT_CAT EC
418: CURSOR c_crs(cp_enr_cat IGS_EN_ENROLMENT_CAT.enrolment_cat%TYPE)
419: IS
420: SELECT
421: 'x'
422: FROM IGS_EN_ENROLMENT_CAT EC
423: WHERE
424: ec.enrolment_cat LIKE cp_enr_cat
425: AND ec.closed_ind = 'N';
426: --
428: v_ok VARCHAR2(1) := NULL;
429: BEGIN
430: --
431: -- check for uppper case requirement
432: IF IGS_GE_GEN_001.GENP_CHK_COL_UPPER('IGS_EN_ENROLMENT_CAT','IGS_EN_ENROLMENT_CAT')
433: THEN
434: p_enr_cat := UPPER(p_enr_cat);
435: END IF;
436: --