234: p_nominated_course_cd IN VARCHAR2 ,
235: p_message_name OUT NOCOPY VARCHAR2 )
236: RETURN BOOLEAN IS
237: BEGIN -- admp_del_aca_hist
238: -- Deletes records from IGS_AD_PS_APPL_HIST table
239: DECLARE
240: FUNCTION admp_del_if_not_locked(
241: p_person_id IGS_AD_PS_APPL_HIST.person_id%TYPE,
242: p_admission_appl_number IGS_AD_PS_APPL_HIST.admission_appl_number%TYPE,
237: BEGIN -- admp_del_aca_hist
238: -- Deletes records from IGS_AD_PS_APPL_HIST table
239: DECLARE
240: FUNCTION admp_del_if_not_locked(
241: p_person_id IGS_AD_PS_APPL_HIST.person_id%TYPE,
242: p_admission_appl_number IGS_AD_PS_APPL_HIST.admission_appl_number%TYPE,
243: p_nominated_course_cd IGS_AD_PS_APPL_HIST.nominated_course_cd%TYPE)
244: RETURN BOOLEAN IS
245: e_resource_busy_exception EXCEPTION;
238: -- Deletes records from IGS_AD_PS_APPL_HIST table
239: DECLARE
240: FUNCTION admp_del_if_not_locked(
241: p_person_id IGS_AD_PS_APPL_HIST.person_id%TYPE,
242: p_admission_appl_number IGS_AD_PS_APPL_HIST.admission_appl_number%TYPE,
243: p_nominated_course_cd IGS_AD_PS_APPL_HIST.nominated_course_cd%TYPE)
244: RETURN BOOLEAN IS
245: e_resource_busy_exception EXCEPTION;
246: PRAGMA EXCEPTION_INIT(e_resource_busy_exception, -54);
239: DECLARE
240: FUNCTION admp_del_if_not_locked(
241: p_person_id IGS_AD_PS_APPL_HIST.person_id%TYPE,
242: p_admission_appl_number IGS_AD_PS_APPL_HIST.admission_appl_number%TYPE,
243: p_nominated_course_cd IGS_AD_PS_APPL_HIST.nominated_course_cd%TYPE)
244: RETURN BOOLEAN IS
245: e_resource_busy_exception EXCEPTION;
246: PRAGMA EXCEPTION_INIT(e_resource_busy_exception, -54);
247: BEGIN
245: e_resource_busy_exception EXCEPTION;
246: PRAGMA EXCEPTION_INIT(e_resource_busy_exception, -54);
247: BEGIN
248: -- admp_del_if_not_locked
249: -- This function will return false if the IGS_AD_PS_APPL_HIST table
250: -- rows are locked. Otherwise, it will delete the appropriate records from the
251: -- table and return true.
252: DECLARE
253: CURSOR c_acah (
250: -- rows are locked. Otherwise, it will delete the appropriate records from the
251: -- table and return true.
252: DECLARE
253: CURSOR c_acah (
254: cp_person_id IGS_AD_PS_APPL_HIST.person_id%TYPE,
255: cp_admission_appl_number IGS_AD_PS_APPL_HIST.admission_appl_number%TYPE,
256: cp_nominated_course_cd IGS_AD_PS_APPL_HIST.nominated_course_cd%TYPE) IS
257: SELECT ROWID, acah.*
258: FROM IGS_AD_PS_APPL_HIST acah
251: -- table and return true.
252: DECLARE
253: CURSOR c_acah (
254: cp_person_id IGS_AD_PS_APPL_HIST.person_id%TYPE,
255: cp_admission_appl_number IGS_AD_PS_APPL_HIST.admission_appl_number%TYPE,
256: cp_nominated_course_cd IGS_AD_PS_APPL_HIST.nominated_course_cd%TYPE) IS
257: SELECT ROWID, acah.*
258: FROM IGS_AD_PS_APPL_HIST acah
259: WHERE acah.person_id = cp_person_id AND
252: DECLARE
253: CURSOR c_acah (
254: cp_person_id IGS_AD_PS_APPL_HIST.person_id%TYPE,
255: cp_admission_appl_number IGS_AD_PS_APPL_HIST.admission_appl_number%TYPE,
256: cp_nominated_course_cd IGS_AD_PS_APPL_HIST.nominated_course_cd%TYPE) IS
257: SELECT ROWID, acah.*
258: FROM IGS_AD_PS_APPL_HIST acah
259: WHERE acah.person_id = cp_person_id AND
260: acah.admission_appl_number = cp_admission_appl_number AND
254: cp_person_id IGS_AD_PS_APPL_HIST.person_id%TYPE,
255: cp_admission_appl_number IGS_AD_PS_APPL_HIST.admission_appl_number%TYPE,
256: cp_nominated_course_cd IGS_AD_PS_APPL_HIST.nominated_course_cd%TYPE) IS
257: SELECT ROWID, acah.*
258: FROM IGS_AD_PS_APPL_HIST acah
259: WHERE acah.person_id = cp_person_id AND
260: acah.admission_appl_number = cp_admission_appl_number AND
261: acah.nominated_course_cd = cp_nominated_course_cd
262: FOR UPDATE OF acah.person_id NOWAIT;
265: p_person_id,
266: p_admission_appl_number,
267: p_nominated_course_cd) LOOP
268:
269: IGS_AD_PS_APPL_HIST_PKG.DELETE_ROW (
270: X_ROWID => v_del_acah_rec.rowid );
271:
272: END LOOP;
273: RETURN TRUE;