[Home] [Help]
73: WHERE course_cd = p_course_cd AND
74: version_number = p_version_number AND
75: CLOSED_IND = 'N';
76: BEGIN
77: -- validating the IGS_PS_VER.IGS_PS_TYPE
78: OPEN c_course_type;
79: FETCH c_course_type INTO v_closed_ind, v_award_course_ind;
80: IF c_course_type%NOTFOUND THEN
81: p_message_name := NULL;
213: FROM IGS_PS_STAT
214: WHERE course_status = p_course_status;
215: CURSOR c_check_cv_cs IS
216: SELECT 'x'
217: FROM IGS_PS_VER cv,
218: IGS_PS_STAT cs
219: WHERE
220: course_cd = p_course_cd AND
221: version_number <> p_version_number AND
275: CLOSE c_course_status;
276: RETURN FALSE;
277: END IF;
278: CLOSE c_course_status;
279: -- Validating whether IGS_PS_VER.IGS_PS_STAT isn't being changed
280: -- from 'ACTIVE' or 'INACTIVE' to 'PLANNED'. This is only checked when
281: -- IGS_PS_VER.IGS_PS_STAT
282: -- is being updated.
283: IF (p_old_course_status IS NOT NULL) AND
277: END IF;
278: CLOSE c_course_status;
279: -- Validating whether IGS_PS_VER.IGS_PS_STAT isn't being changed
280: -- from 'ACTIVE' or 'INACTIVE' to 'PLANNED'. This is only checked when
281: -- IGS_PS_VER.IGS_PS_STAT
282: -- is being updated.
283: IF (p_old_course_status IS NOT NULL) AND
284: (p_new_course_status <> p_old_course_status) THEN
285: OPEN c_course_status(p_old_course_status);
327: smvk 03-Jun-2003 Bug # 2858436. Modified the cursor c_get_award_cd to select open program awards only.
328: skpandey 10-Jul-2006 Bug#5343912,removed the validation of 100% Field of study as this was used as check for updating status to active.
329: ***************************************************************/
330:
331: v_cv_rec IGS_PS_VER%ROWTYPE;
332: v_award_cd IGS_PS_AWARD.award_cd%TYPE;
333: v_funding_source IGS_FI_FND_SRC_RSTN.funding_source%TYPE;
334: v_award_course_ind IGS_PS_TYPE.award_course_ind%TYPE;
335: v_field_of_study IGS_PS_FIELD_STUDY.field_of_study%TYPE;
338: v_terminate BOOLEAN := FALSE;
339: v_coo_exist BOOLEAN := FALSE;
340: CURSOR c_course_version IS
341: SELECT *
342: FROM IGS_PS_VER
343: WHERE course_cd = p_course_cd AND
344: version_number = p_version_number;
345: CURSOR c_get_award_course_ind (
346: cp_course_type IGS_PS_VER.course_type%TYPE) IS
342: FROM IGS_PS_VER
343: WHERE course_cd = p_course_cd AND
344: version_number = p_version_number;
345: CURSOR c_get_award_course_ind (
346: cp_course_type IGS_PS_VER.course_type%TYPE) IS
347: SELECT award_course_ind
348: FROM IGS_PS_TYPE
349: WHERE course_type = cp_course_type;
350: CURSOR c_get_award_cd IS
413: version_number = p_version_number;
414: BEGIN
415: OPEN c_course_version;
416: FETCH c_course_version INTO v_cv_rec;
417: -- no IGS_PS_VER found
418: IF (c_course_version%NOTFOUND) THEN
419: CLOSE c_course_version;
420: p_message_name := 'IGS_GE_VAL_DOES_NOT_XS';
421: RETURN FALSE;
468: END IF;
469: OPEN c_get_award_course_ind(v_cv_rec.course_type);
470: FETCH c_get_award_course_ind INTO v_award_course_ind;
471: CLOSE c_get_award_course_ind;
472: -- If IGS_PS_VER is an IGS_PS_AWD IGS_PS_COURSE, check that the IGS_PS_AWD is open
473: -- and that the IGS_PS_AWD_OWN percentages total 100% for
474: -- a IGS_PS_VER IGS_PS_AWD
475: IF (v_award_course_ind = 'Y') THEN
476: OPEN c_get_award_cd;
470: FETCH c_get_award_course_ind INTO v_award_course_ind;
471: CLOSE c_get_award_course_ind;
472: -- If IGS_PS_VER is an IGS_PS_AWD IGS_PS_COURSE, check that the IGS_PS_AWD is open
473: -- and that the IGS_PS_AWD_OWN percentages total 100% for
474: -- a IGS_PS_VER IGS_PS_AWD
475: IF (v_award_course_ind = 'Y') THEN
476: OPEN c_get_award_cd;
477: LOOP
478: FETCH c_get_award_cd INTO v_award_cd;
495: IF (v_terminate = TRUE) THEN
496: CLOSE c_get_award_cd;
497: RETURN FALSE;
498: END IF;
499: -- IGS_PS_VER is an IGS_PS_AWD IGS_PS_COURSE and no record exist in the
500: -- IGS_PS_AWARD table for p_course_cd and p_version_number
501: IF (c_get_award_cd%ROWCOUNT = 0) THEN
502: CLOSE c_get_award_cd;
503: p_message_name := 'IGS_PS_PRGVER_AWARDPRG';