[Home] [Help]
32:
33: CURSOR cur_multiple_section IS
34: SELECT 'X'
35: FROM igs_ps_pat_study_unt psu,
36: igs_ps_unit_ver_all a,
37: igs_ps_unit_stat b
38: WHERE
39: psu.course_cd = p_course_cd AND
40: psu.version_number = p_version_number AND
286: END crsp_val_posu_uoo;
287: --
288: -- Validate a least one version of the IGS_PS_UNIT is active.
289: FUNCTION crsp_val_uv_active(
290: p_unit_cd IN IGS_PS_UNIT_VER_ALL.unit_cd%TYPE ,
291: p_message_name OUT NOCOPY VARCHAR2 )
292: RETURN BOOLEAN AS
293: -- who when What
294: --sarakshi 23-dec-2002 Bug#2689625,removed the exception section
292: RETURN BOOLEAN AS
293: -- who when What
294: --sarakshi 23-dec-2002 Bug#2689625,removed the exception section
295: BEGIN -- crsp_val_uv_active
296: -- Validate the IGS_PS_UNIT has at least one ACTIVE IGS_PS_UNIT_VER.
297: DECLARE
298: v_dummy VARCHAR2(1);
299: CURSOR c_chk_uv IS
300: SELECT 'X'
297: DECLARE
298: v_dummy VARCHAR2(1);
299: CURSOR c_chk_uv IS
300: SELECT 'X'
301: FROM IGS_PS_UNIT_VER uv,
302: IGS_PS_UNIT_STAT ust
303: WHERE uv.unit_cd = p_unit_cd AND
304: uv.unit_status = ust.unit_status AND
305: ust.s_unit_status = 'ACTIVE';
310: IF p_unit_cd IS NULL THEN
311: p_message_name := NULL;
312: RETURN TRUE;
313: END IF;
314: -- 2. Check if the unit_cd has an active IGS_PS_UNIT_VER:
315: OPEN c_chk_uv;
316: FETCH c_chk_uv INTO v_dummy;
317: -- 3. IF no active record is found return error:
318: IF (c_chk_uv%NOTFOUND) THEN