950:
951: END del_scae;
952:
953: PROCEDURE del_scan(
954: p_person_id IGS_AS_SC_ATMPT_NOTE.person_id%TYPE,
955: p_course_cd IGS_AS_SC_ATMPT_NOTE.course_cd%TYPE)
956: IS
957: BEGIN -- del_scan
958: -- Delete student IGS_PS_COURSE attempt notes (5)
951: END del_scae;
952:
953: PROCEDURE del_scan(
954: p_person_id IGS_AS_SC_ATMPT_NOTE.person_id%TYPE,
955: p_course_cd IGS_AS_SC_ATMPT_NOTE.course_cd%TYPE)
956: IS
957: BEGIN -- del_scan
958: -- Delete student IGS_PS_COURSE attempt notes (5)
959: DECLARE
958: -- Delete student IGS_PS_COURSE attempt notes (5)
959: DECLARE
960: CURSOR c_scan IS
961: SELECT ROWID, scan.*
962: FROM IGS_AS_SC_ATMPT_NOTE scan
963: WHERE scan.person_id = p_person_id
964: AND scan.course_cd = p_course_cd
965: FOR UPDATE OF scan.reference_number NOWAIT;
966:
966:
967:
968: BEGIN
969: FOR v_scan_rec IN c_scan LOOP
970: -- Call RI check routine for the IGS_AS_SC_ATMPT_NOTE table
971: IGS_AS_SC_ATMPT_NOTE_PKG.DELETE_ROW(v_scan_rec.rowid);
972:
973: END LOOP;
974:
967:
968: BEGIN
969: FOR v_scan_rec IN c_scan LOOP
970: -- Call RI check routine for the IGS_AS_SC_ATMPT_NOTE table
971: IGS_AS_SC_ATMPT_NOTE_PKG.DELETE_ROW(v_scan_rec.rowid);
972:
973: END LOOP;
974:
975: EXCEPTION