609: p_person_id IGS_EN_STDNT_PS_ATT.person_id%TYPE,
610: p_course_cd IGS_EN_STDNT_PS_ATT.course_cd%TYPE)
611: IS
612: BEGIN -- del_psaa
613: -- Delete IGS_PS_STDNT_APV_ALT records
614: DECLARE
615:
616: CURSOR c_psaa IS
617: SELECT exit_course_cd,exit_version_number
614: DECLARE
615:
616: CURSOR c_psaa IS
617: SELECT exit_course_cd,exit_version_number
618: FROM IGS_PS_STDNT_APV_ALT psaa
619: WHERE psaa.person_id = p_person_id
620: AND psaa.course_cd = p_course_cd;
621:
622: CURSOR c_psaa_del (
619: WHERE psaa.person_id = p_person_id
620: AND psaa.course_cd = p_course_cd;
621:
622: CURSOR c_psaa_del (
623: cp_exit_course_cd IGS_PS_STDNT_APV_ALT.exit_course_cd%TYPE,
624: cp_exit_version_number IGS_PS_STDNT_APV_ALT.exit_version_number%TYPE) IS
625: SELECT rowid
626: FROM IGS_PS_STDNT_APV_ALT psaa
627: WHERE psaa.person_id = p_person_id
620: AND psaa.course_cd = p_course_cd;
621:
622: CURSOR c_psaa_del (
623: cp_exit_course_cd IGS_PS_STDNT_APV_ALT.exit_course_cd%TYPE,
624: cp_exit_version_number IGS_PS_STDNT_APV_ALT.exit_version_number%TYPE) IS
625: SELECT rowid
626: FROM IGS_PS_STDNT_APV_ALT psaa
627: WHERE psaa.person_id = p_person_id
628: AND psaa.course_cd = p_course_cd
622: CURSOR c_psaa_del (
623: cp_exit_course_cd IGS_PS_STDNT_APV_ALT.exit_course_cd%TYPE,
624: cp_exit_version_number IGS_PS_STDNT_APV_ALT.exit_version_number%TYPE) IS
625: SELECT rowid
626: FROM IGS_PS_STDNT_APV_ALT psaa
627: WHERE psaa.person_id = p_person_id
628: AND psaa.course_cd = p_course_cd
629: AND psaa.exit_course_cd = cp_exit_course_cd
630: AND psaa.exit_version_number = cp_exit_version_number
634:
635: BEGIN
636:
637: FOR v_psaa_rec IN c_psaa LOOP
638: -- Delete IGS_PS_STDNT_APV_ALT records
639: FOR v_psaa_del_exists IN c_psaa_del(v_psaa_rec.exit_course_cd,
640: v_psaa_rec.exit_version_number ) LOOP
641:
642: IGS_PS_STDNT_APV_ALT_PKG.DELETE_ROW(X_ROWID => v_psaa_del_exists.rowid);
638: -- Delete IGS_PS_STDNT_APV_ALT records
639: FOR v_psaa_del_exists IN c_psaa_del(v_psaa_rec.exit_course_cd,
640: v_psaa_rec.exit_version_number ) LOOP
641:
642: IGS_PS_STDNT_APV_ALT_PKG.DELETE_ROW(X_ROWID => v_psaa_del_exists.rowid);
643:
644: END LOOP;
645: END LOOP;
646: