463: FOR UPDATE OF hssa.LAST_UPDATE_DATE NOWAIT ;
464:
465:
466: CURSOR c_hssua (
467: cp_person_id IGS_HE_ST_SPA_UT.person_id%TYPE,
468: cp_course_cd IGS_HE_ST_SPA.course_cd%TYPE) IS
469: SELECT hesa_st_spau_id
470: FROM IGS_HE_ST_SPA_UT hssua
471: WHERE hssua.person_id = cp_person_id
466: CURSOR c_hssua (
467: cp_person_id IGS_HE_ST_SPA_UT.person_id%TYPE,
468: cp_course_cd IGS_HE_ST_SPA.course_cd%TYPE) IS
469: SELECT hesa_st_spau_id
470: FROM IGS_HE_ST_SPA_UT hssua
471: WHERE hssua.person_id = cp_person_id
472: AND hssua.course_cd = cp_course_cd ;
473:
474: CURSOR c_hssua_del (
471: WHERE hssua.person_id = cp_person_id
472: AND hssua.course_cd = cp_course_cd ;
473:
474: CURSOR c_hssua_del (
475: cp_hesa_st_spau_id IGS_HE_ST_SPA_UT.hesa_st_spau_id%TYPE) IS
476: SELECT rowid
477: FROM IGS_HE_ST_SPA_UT hssua
478: WHERE hssua.hesa_st_spau_id = cp_hesa_st_spau_id
479: FOR UPDATE OF hssua.LAST_UPDATE_DATE NOWAIT ;
473:
474: CURSOR c_hssua_del (
475: cp_hesa_st_spau_id IGS_HE_ST_SPA_UT.hesa_st_spau_id%TYPE) IS
476: SELECT rowid
477: FROM IGS_HE_ST_SPA_UT hssua
478: WHERE hssua.hesa_st_spau_id = cp_hesa_st_spau_id
479: FOR UPDATE OF hssua.LAST_UPDATE_DATE NOWAIT ;
480:
481: v_hssa_del_exists c_hssa_del%ROWTYPE;
487: FOR v_hssa_rec IN c_hssa LOOP
488: FOR v_hssua_rec IN c_hssua (v_hssa_rec.person_id,
489: v_hssa_rec.course_cd ) LOOP
490: BEGIN
491: -- Delete unconfirmed IGS_HE_ST_SPA_UT records
492: FOR v_hssua_del_rec in c_hssua_del(v_hssua_rec.hesa_st_spau_id)
493:
494: LOOP
495: IGS_HE_ST_SPA_UT_ALL_PKG.DELETE_ROW(
491: -- Delete unconfirmed IGS_HE_ST_SPA_UT records
492: FOR v_hssua_del_rec in c_hssua_del(v_hssua_rec.hesa_st_spau_id)
493:
494: LOOP
495: IGS_HE_ST_SPA_UT_ALL_PKG.DELETE_ROW(
496: X_ROWID => v_hssua_del_rec.ROWID );
497: END LOOP;
498: EXCEPTION
499: WHEN e_resource_busy THEN
499: WHEN e_resource_busy THEN
500: IF c_hssua_del%ISOPEN THEN
501: CLOSE c_hssua_del;
502: END IF;
503: l_entity_name := 'IGS_HE_ST_SPA_UT_ALL';
504: EXIT;
505: END;
506: END LOOP;
507: IF l_entity_name IS NOT NULL THEN