[Home] [Help]
636: susa.end_dt IS NULL AND
637: susa.rqrmnts_complete_ind = 'N' AND
638: EXISTS (
639: SELECT 'X'
640: FROM IGS_PR_SDT_PR_UNT_ST spus
641: WHERE spus.person_id = sca.person_id AND
642: spus.course_cd = sca.course_cd AND
643: spus.spo_sequence_number = cp_spo_sequence_number AND
644: spus.unit_set_cd = susa.unit_set_cd) AND
3952: FOR v_pous_rec IN c_pous LOOP
3953: DECLARE
3954: LV_ROWID VARCHAR2(25);
3955: BEGIN
3956: IGS_PR_SDT_PR_UNT_ST_PKG.INSERT_ROW (
3957: X_ROWID =>lv_rowid,
3958: X_PERSON_ID => p_person_id,
3959: X_COURSE_CD => P_COURSE_CD,
3960: X_SPO_SEQUENCE_NUMBER =>v_spo_sequence_number,
4344: spc.spo_course_cd = p_course_cd AND
4345: spc.spo_sequence_number = cp_sequence_number
4346: FOR UPDATE NOWAIT;
4347: CURSOR c_spus (
4348: cp_sequence_number IGS_PR_SDT_PR_UNT_ST.spo_sequence_number%TYPE) IS
4349: SELECT spus.ROWID
4350: FROM IGS_PR_SDT_PR_UNT_ST spus
4351: WHERE spus.person_id = p_person_id AND
4352: spus.course_cd = p_course_cd AND
4346: FOR UPDATE NOWAIT;
4347: CURSOR c_spus (
4348: cp_sequence_number IGS_PR_SDT_PR_UNT_ST.spo_sequence_number%TYPE) IS
4349: SELECT spus.ROWID
4350: FROM IGS_PR_SDT_PR_UNT_ST spus
4351: WHERE spus.person_id = p_person_id AND
4352: spus.course_cd = p_course_cd AND
4353: spus.spo_sequence_number = cp_sequence_number
4354: FOR UPDATE NOWAIT;
4354: FOR UPDATE NOWAIT;
4355:
4356:
4357: CURSOR c_spaw (
4358: cp_sequence_number IGS_PR_SDT_PR_UNT_ST.spo_sequence_number%TYPE) IS
4359: SELECT spaw.ROWID
4360: FROM IGS_PR_STDNT_PR_AWD spaw
4361: WHERE spaw.person_id = p_person_id AND
4362: spaw.course_cd = p_course_cd AND
4489: RAISE;
4490: END;
4491:
4492:
4493: -- Delete from IGS_PR_SDT_PR_UNT_ST
4494: BEGIN
4495: FOR v_spus_rec IN c_spus (v_spo_rec.sequence_number) LOOP
4496: IGS_PR_SDT_PR_UNT_ST_PKG.DELETE_ROW(
4497: v_spus_rec.ROWID
4492:
4493: -- Delete from IGS_PR_SDT_PR_UNT_ST
4494: BEGIN
4495: FOR v_spus_rec IN c_spus (v_spo_rec.sequence_number) LOOP
4496: IGS_PR_SDT_PR_UNT_ST_PKG.DELETE_ROW(
4497: v_spus_rec.ROWID
4498: );
4499: END LOOP;
4500: EXCEPTION