184: V_MESSAGE_NAME VARCHAR2(30);
185: BEGIN -- ASSP_VAL_AI_TYPE
186: -- This module will be called when the assessment type is being altered for an
187: -- existing assessment item. It will check that when altering the assessment
188: -- type, that no IGS_AS_UNITASS_ITEM records exist within a unitoffering
189: -- pattern that will have the same reference and type.
190: DECLARE
191: v_dummy VARCHAR2(1);
192: v_atyp_s_ass_type IGS_AS_ASSESSMNT_TYP.s_assessment_type%TYPE;
193: v_atyp_examinable_ind IGS_AS_ASSESSMNT_TYP.examinable_ind%TYPE;
194: cst_assignment CONSTANT VARCHAR2(10) := 'ASSIGNMENT';
195: CURSOR c_uai IS
196: SELECT 'x'
197: FROM IGS_AS_UNITASS_ITEM uai
198: WHERE ass_id = p_ass_id AND
199: EXISTS (
200: SELECT 'x'
201: FROM IGS_AS_UNITASS_ITEM uai2
197: FROM IGS_AS_UNITASS_ITEM uai
198: WHERE ass_id = p_ass_id AND
199: EXISTS (
200: SELECT 'x'
201: FROM IGS_AS_UNITASS_ITEM uai2
202: WHERE uai2.unit_cd = uai.unit_cd AND
203: uai2.version_number = uai.version_number AND
204: uai2.cal_type = uai.cal_type AND
205: uai2.ci_sequence_number = uai.ci_sequence_number AND
226: -- If an examinable item, then reference must be unique across all examinable
227: -- items within the IGS_PS_UNIT offering pattern.
228: CURSOR c_uai2 IS
229: SELECT 'x'
230: FROM IGS_AS_UNITASS_ITEM uai
231: WHERE ass_id = p_ass_id AND
232: EXISTS (
233: SELECT 'x'
234: FROM IGS_AS_UNITASS_ITEM uai2,
230: FROM IGS_AS_UNITASS_ITEM uai
231: WHERE ass_id = p_ass_id AND
232: EXISTS (
233: SELECT 'x'
234: FROM IGS_AS_UNITASS_ITEM uai2,
235: IGS_AS_ASSESSMNT_ITM ai,
236: IGS_AS_ASSESSMNT_TYP atyp
237: WHERE uai2.unit_cd = uai.unit_cd AND
238: uai2.version_number = uai.version_number AND