859: p_person_id IGS_EN_STDNT_PS_ATT.person_id%TYPE,
860: p_course_cd IGS_EN_STDNT_PS_ATT.course_cd%TYPE)
861: IS
862: BEGIN -- del_scho
863: -- (3) Delete IGS_EN_STDNTPSHECSOP records
864: DECLARE
865: CURSOR c_scho IS
866: SELECT scho.start_dt
867: FROM IGS_EN_STDNTPSHECSOP scho
863: -- (3) Delete IGS_EN_STDNTPSHECSOP records
864: DECLARE
865: CURSOR c_scho IS
866: SELECT scho.start_dt
867: FROM IGS_EN_STDNTPSHECSOP scho
868: WHERE scho.person_id = p_person_id
869: AND scho.course_cd = p_course_cd;
870:
871: CURSOR c_scho_del (
868: WHERE scho.person_id = p_person_id
869: AND scho.course_cd = p_course_cd;
870:
871: CURSOR c_scho_del (
872: cp_start_dt IGS_EN_STDNTPSHECSOP.start_dt%TYPE) IS
873: SELECT ROWID, scho.*
874: FROM IGS_EN_STDNTPSHECSOP scho
875: WHERE scho.person_id = p_person_id
876: AND scho.course_cd = p_course_cd
870:
871: CURSOR c_scho_del (
872: cp_start_dt IGS_EN_STDNTPSHECSOP.start_dt%TYPE) IS
873: SELECT ROWID, scho.*
874: FROM IGS_EN_STDNTPSHECSOP scho
875: WHERE scho.person_id = p_person_id
876: AND scho.course_cd = p_course_cd
877: AND scho.start_dt = cp_start_dt
878: FOR UPDATE OF
882:
883: BEGIN
884:
885: FOR v_scho_rec IN c_scho LOOP
886: -- Delete unconfirmed IGS_EN_STDNTPSHECSOP
887: FOR v_scho_del_exists IN c_scho_del(v_scho_rec.start_dt) LOOP
888:
889: IGS_EN_STDNTPSHECSOP_PKG.DELETE_ROW ( X_ROWID => V_SCHO_DEL_EXISTS.ROWID );
890:
885: FOR v_scho_rec IN c_scho LOOP
886: -- Delete unconfirmed IGS_EN_STDNTPSHECSOP
887: FOR v_scho_del_exists IN c_scho_del(v_scho_rec.start_dt) LOOP
888:
889: IGS_EN_STDNTPSHECSOP_PKG.DELETE_ROW ( X_ROWID => V_SCHO_DEL_EXISTS.ROWID );
890:
891: END LOOP;
892:
893: END LOOP;