[Home] [Help]
294: -- MODIFICATION HISTORY
295: -- Person Date Comments
296: -- --------- -------- ------------------------------------------
297: -- MSONTER 21/08/98 Initial creation of function
298: FUNCTION repp_val_unit_mode( p_unit_mode IN OUT NOCOPY IGS_AS_UNIT_MODE.unit_mode%TYPE,
299: p_msg_name OUT NOCOPY VARCHAR2)
300: RETURN BOOLEAN
301: AS
302: --
300: RETURN BOOLEAN
301: AS
302: --
303: -- Local Cursors
304: CURSOR c_um(cp_unit_mode IGS_AS_UNIT_MODE.UNIT_MODE%TYPE)
305: IS
306: SELECT
307: 'x'
308: FROM IGS_AS_UNIT_MODE um
304: CURSOR c_um(cp_unit_mode IGS_AS_UNIT_MODE.UNIT_MODE%TYPE)
305: IS
306: SELECT
307: 'x'
308: FROM IGS_AS_UNIT_MODE um
309: WHERE
310: um.unit_mode LIKE cp_unit_mode
311: AND um.closed_ind = 'N';
312: --
314: v_um_ok VARCHAR2(1) := NULL;
315: BEGIN
316: --
317: -- check for uppper case requirement
318: IF IGS_GE_GEN_001.GENP_CHK_COL_UPPER('IGS_AS_UNIT_MODE','IGS_AS_UNIT_MODE')
319: THEN
320: p_unit_mode := UPPER(p_unit_mode);
321: END IF;
322: --
616: AS
617: --
618: -- Local Cursors
619: CURSOR c_mode(cp_unit_class IGS_AS_UNIT_CLASS.unit_class%TYPE,
620: cp_unit_mode IGS_AS_UNIT_MODE.unit_mode%TYPE)
621: IS
622: SELECT
623: 'x'
624: FROM IGS_AS_UNIT_CLASS uc