[Home] [Help]
1554: p_course_cd IGS_EN_STDNT_PS_ATT.course_cd%TYPE)
1555: RETURN BOOLEAN
1556: IS
1557: BEGIN -- admpl_del_esaa
1558: -- Delete IGS_EN_SPA_AWD_AIM records
1559: DECLARE
1560: CURSOR c_esaa IS
1561: SELECT award_cd
1562: FROM IGS_EN_SPA_AWD_AIM esaa
1558: -- Delete IGS_EN_SPA_AWD_AIM records
1559: DECLARE
1560: CURSOR c_esaa IS
1561: SELECT award_cd
1562: FROM IGS_EN_SPA_AWD_AIM esaa
1563: WHERE esaa.person_id = p_person_id AND
1564: esaa.course_cd = p_course_cd;
1565:
1566: CURSOR c_esaa_del (
1563: WHERE esaa.person_id = p_person_id AND
1564: esaa.course_cd = p_course_cd;
1565:
1566: CURSOR c_esaa_del (
1567: cp_award_cd IGS_EN_SPA_AWD_AIM.award_cd%TYPE) IS
1568: SELECT rowid
1569: FROM IGS_EN_SPA_AWD_AIM esaa
1570: WHERE esaa.person_id = p_person_id AND
1571: esaa.course_cd = p_course_cd AND
1565:
1566: CURSOR c_esaa_del (
1567: cp_award_cd IGS_EN_SPA_AWD_AIM.award_cd%TYPE) IS
1568: SELECT rowid
1569: FROM IGS_EN_SPA_AWD_AIM esaa
1570: WHERE esaa.person_id = p_person_id AND
1571: esaa.course_cd = p_course_cd AND
1572: esaa.award_cd = cp_award_cd
1573: FOR UPDATE OF esaa.LAST_UPDATE_DATE NOWAIT ;
1578: BEGIN
1579: v_error_flag := FALSE;
1580:
1581: FOR v_esaa_rec IN c_esaa LOOP
1582: -- Delete IGS_EN_SPA_AWD_AIM records
1583: FOR v_esaa_del_exists IN c_esaa_del(v_esaa_rec.award_cd) LOOP
1584: IGS_EN_SPA_AWD_AIM_PKG.DELETE_ROW(
1585: X_ROWID => v_esaa_del_exists.rowid );
1586: END LOOP;
1580:
1581: FOR v_esaa_rec IN c_esaa LOOP
1582: -- Delete IGS_EN_SPA_AWD_AIM records
1583: FOR v_esaa_del_exists IN c_esaa_del(v_esaa_rec.award_cd) LOOP
1584: IGS_EN_SPA_AWD_AIM_PKG.DELETE_ROW(
1585: X_ROWID => v_esaa_del_exists.rowid );
1586: END LOOP;
1587: END LOOP;
1588:
1595: END IF;
1596: IF c_esaa_del%ISOPEN THEN
1597: CLOSE c_esaa_del;
1598: END IF;
1599: l_entity_name := 'IGS_EN_SPA_AWD_AIM';
1600: RETURN FALSE;
1601: WHEN OTHERS THEN
1602: IF c_esaa%ISOPEN THEN
1603: CLOSE c_esaa;
1972: v_process_next := TRUE;
1973: END IF;
1974: END IF;
1975:
1976: -- Delete IGS_EN_SPA_AWD_AIM Records (2)
1977: IF NOT v_process_next THEN
1978: IF NOT admpl_del_esaa(
1979: v_sca_rec.person_id,
1980: v_sca_rec.course_cd) THEN