[Home] [Help]
78: RETURN BOOLEAN AS
79: BEGIN -- crsp_val_cous_subind
80: -- This module validates the only_as_sub_ind for a IGS_PS_OFR_UNIT_SET.
81: -- * It ensures that the indicator can not be changed from 'N' to 'Y' once
82: -- IGS_PS_OF_UNT_SET_RL records exist with the
83: -- IGS_PS_OFR_UNIT_SET as the superior.
84: -- * It ensures that the indicator can not be changed from 'N' to 'Y' once
85: -- IGS_PS_COO_AD_UNIT_S records exist for a IGS_PS_OF_OPT_AD_CAT for
86: -- a IGS_PS_OFR_OPT
87: DECLARE
88: v_x VARCHAR2(1);
89: CURSOR c_cousr IS
90: SELECT 'x'
91: FROM IGS_PS_OF_UNT_SET_RL cousr
92: WHERE cousr.course_cd = p_course_cd AND
93: cousr.crv_version_number = p_crv_version_number AND
94: cousr.cal_type = p_cal_type AND
95: cousr.sup_unit_set_cd = p_unit_set_cd AND
106: -- Set the default message number
107: p_message_name := NULL;
108: IF p_old_only_as_sub_ind = 'N' AND
109: p_new_only_as_sub_ind = 'Y' THEN
110: -- Validate against IGS_PS_OF_UNT_SET_RL
111: OPEN c_cousr;
112: FETCH c_cousr INTO v_x;
113: IF (c_cousr%FOUND) THEN
114: p_message_name := 'IGS_PS_SUBORD_INDICATOR_Y';