[Home] [Help]
281: p_person_id IGS_EN_STDNT_PS_ATT.person_id%TYPE,
282: p_course_cd IGS_EN_STDNT_PS_ATT.course_cd%TYPE)
283: IS
284: BEGIN -- del_esaa
285: -- Delete IGS_EN_SPA_AWD_AIM records
286: DECLARE
287:
288: CURSOR c_esaa IS
289: SELECT award_cd
286: DECLARE
287:
288: CURSOR c_esaa IS
289: SELECT award_cd
290: FROM IGS_EN_SPA_AWD_AIM esaa
291: WHERE esaa.person_id = p_person_id
292: AND esaa.course_cd = p_course_cd;
293:
294: CURSOR c_esaa_del (
291: WHERE esaa.person_id = p_person_id
292: AND esaa.course_cd = p_course_cd;
293:
294: CURSOR c_esaa_del (
295: cp_award_cd IGS_EN_SPA_AWD_AIM.award_cd%TYPE) IS
296: SELECT rowid
297: FROM IGS_EN_SPA_AWD_AIM esaa
298: WHERE esaa.person_id = p_person_id
299: AND esaa.course_cd = p_course_cd
293:
294: CURSOR c_esaa_del (
295: cp_award_cd IGS_EN_SPA_AWD_AIM.award_cd%TYPE) IS
296: SELECT rowid
297: FROM IGS_EN_SPA_AWD_AIM esaa
298: WHERE esaa.person_id = p_person_id
299: AND esaa.course_cd = p_course_cd
300: AND esaa.award_cd = cp_award_cd
301: FOR UPDATE OF esaa.LAST_UPDATE_DATE NOWAIT ;
304:
305: BEGIN
306:
307: FOR v_esaa_rec IN c_esaa LOOP
308: -- Delete IGS_EN_SPA_AWD_AIM records
309: FOR v_esaa_del_exists IN c_esaa_del(v_esaa_rec.award_cd) LOOP
310:
311: IGS_EN_SPA_AWD_AIM_PKG.DELETE_ROW(X_ROWID => v_esaa_del_exists.rowid );
312:
307: FOR v_esaa_rec IN c_esaa LOOP
308: -- Delete IGS_EN_SPA_AWD_AIM records
309: FOR v_esaa_del_exists IN c_esaa_del(v_esaa_rec.award_cd) LOOP
310:
311: IGS_EN_SPA_AWD_AIM_PKG.DELETE_ROW(X_ROWID => v_esaa_del_exists.rowid );
312:
313: END LOOP;
314:
315: END LOOP;