[Home] [Help]
1011: --------------------------------------------------------------------------------
1012: -- ADMPL_DEL_SCAN --------------------------------------------------------------
1013: --------------------------------------------------------------------------------
1014: FUNCTION admpl_del_scan(
1015: p_person_id IGS_AS_SC_ATMPT_NOTE.person_id%TYPE,
1016: p_course_cd IGS_AS_SC_ATMPT_NOTE.course_cd%TYPE)
1017: RETURN BOOLEAN
1018: IS
1019: BEGIN -- admpl_del_scan
1012: -- ADMPL_DEL_SCAN --------------------------------------------------------------
1013: --------------------------------------------------------------------------------
1014: FUNCTION admpl_del_scan(
1015: p_person_id IGS_AS_SC_ATMPT_NOTE.person_id%TYPE,
1016: p_course_cd IGS_AS_SC_ATMPT_NOTE.course_cd%TYPE)
1017: RETURN BOOLEAN
1018: IS
1019: BEGIN -- admpl_del_scan
1020: -- Delete student IGS_PS_COURSE attempt notes (5)
1020: -- Delete student IGS_PS_COURSE attempt notes (5)
1021: DECLARE
1022: CURSOR c_scan IS
1023: SELECT ROWID, scan.*
1024: FROM IGS_AS_SC_ATMPT_NOTE scan
1025: WHERE scan.person_id = p_person_id AND
1026: scan.course_cd = p_course_cd
1027: FOR UPDATE OF scan.reference_number NOWAIT;
1028: BEGIN
1026: scan.course_cd = p_course_cd
1027: FOR UPDATE OF scan.reference_number NOWAIT;
1028: BEGIN
1029: FOR v_scan_rec IN c_scan LOOP
1030: -- Call RI check routine for the IGS_AS_SC_ATMPT_NOTE table
1031: IGS_AS_SC_ATMPT_NOTE_PKG.DELETE_ROW(v_scan_rec.rowid);
1032: END LOOP;
1033:
1034: RETURN TRUE;
1027: FOR UPDATE OF scan.reference_number NOWAIT;
1028: BEGIN
1029: FOR v_scan_rec IN c_scan LOOP
1030: -- Call RI check routine for the IGS_AS_SC_ATMPT_NOTE table
1031: IGS_AS_SC_ATMPT_NOTE_PKG.DELETE_ROW(v_scan_rec.rowid);
1032: END LOOP;
1033:
1034: RETURN TRUE;
1035: EXCEPTION
1036: WHEN e_resource_busy THEN
1037: IF c_scan%ISOPEN THEN
1038: CLOSE c_scan;
1039: END IF;
1040: l_entity_name := 'IGS_AS_SC_ATMPT_NOTE';
1041: RETURN FALSE;
1042: WHEN OTHERS THEN
1043: IF c_scan%ISOPEN THEN
1044: CLOSE c_scan;