281: p_message_name OUT NOCOPY VARCHAR2 )
282: RETURN BOOLEAN AS
283: gv_other_detail VARCHAR2(255);
284: BEGIN
285: -- This routine will logically delete all IGS_FI_SUB_ER_RT records
286:
287: DECLARE
288: e_resource_busy_exception EXCEPTION;
289: PRAGMA EXCEPTION_INIT(e_resource_busy_exception, -54);
294: SUB_ER_ID ,
295: FAR_ID ,
296: CREATE_DATE ,
297: LOGICAL_DELETE_DATE
298: FROM IGS_FI_SUB_ER_RT fsert
299: WHERE fsert.sub_er_id = p_sub_er_id AND
300: fsert.logical_delete_date IS NULL
301: FOR UPDATE OF fsert.logical_delete_date NOWAIT;
302: BEGIN
309: END IF;
310: -- 2. Issue a save point for the module so that if locks exist,
311: -- a rollback can be performed.
312: SAVEPOINT sp_save_point;
313: -- Perform a logical delete of the associated IGS_FI_SUB_ER_RT items.
314: -- Update the appropriate records with NOWAIT option.
315: FOR v_fsert_rec IN c_fsert LOOP
316: igs_fi_sub_er_rt_pkg.update_row (
317: x_mode => 'R',
312: SAVEPOINT sp_save_point;
313: -- Perform a logical delete of the associated IGS_FI_SUB_ER_RT items.
314: -- Update the appropriate records with NOWAIT option.
315: FOR v_fsert_rec IN c_fsert LOOP
316: igs_fi_sub_er_rt_pkg.update_row (
317: x_mode => 'R',
318: x_rowid => v_fsert_rec.ROWID,
319: x_sub_err_id => v_fsert_rec.SUB_ERR_ID,
320: x_sub_er_id => v_fsert_rec.SUB_ER_ID,
353: p_message_name OUT NOCOPY VARCHAR2 )
354: RETURN BOOLEAN AS
355: gv_other_detail VARCHAR2(255);
356: BEGIN
357: -- This routine will logically delete all IGS_FI_SUB_ER_RT records
358:
359: DECLARE
360: e_resource_busy_exception EXCEPTION;
361: PRAGMA EXCEPTION_INIT(e_resource_busy_exception, -54);
440: p_message_name OUT NOCOPY VARCHAR2 )
441: RETURN BOOLEAN AS
442: gv_other_detail VARCHAR2(255);
443: BEGIN
444: -- This routine will logically delete particular record in IGS_FI_SUB_ER_RT
445:
446: DECLARE
447: e_resource_busy_exception EXCEPTION;
448: PRAGMA EXCEPTION_INIT(e_resource_busy_exception, -54);
451: ROWID,
452: SUB_ER_ID ,
453: FAR_ID ,
454: CREATE_DATE
455: FROM IGS_FI_SUB_ER_RT fsert
456: WHERE fsert.sub_err_id = p_sub_err_id AND
457: fsert.logical_delete_date IS NULL
458: FOR UPDATE OF fsert.logical_delete_date NOWAIT;
459:
457: fsert.logical_delete_date IS NULL
458: FOR UPDATE OF fsert.logical_delete_date NOWAIT;
459:
460: l_rowid ROWID;
461: l_sub_er_id igs_fi_sub_er_rt.sub_er_id%TYPE;
462: l_far_id igs_fi_sub_er_rt.far_id%TYPE;
463: l_create_date igs_fi_sub_er_rt.create_date%TYPE;
464:
465: BEGIN
458: FOR UPDATE OF fsert.logical_delete_date NOWAIT;
459:
460: l_rowid ROWID;
461: l_sub_er_id igs_fi_sub_er_rt.sub_er_id%TYPE;
462: l_far_id igs_fi_sub_er_rt.far_id%TYPE;
463: l_create_date igs_fi_sub_er_rt.create_date%TYPE;
464:
465: BEGIN
466: -- Set the default message number
459:
460: l_rowid ROWID;
461: l_sub_er_id igs_fi_sub_er_rt.sub_er_id%TYPE;
462: l_far_id igs_fi_sub_er_rt.far_id%TYPE;
463: l_create_date igs_fi_sub_er_rt.create_date%TYPE;
464:
465: BEGIN
466: -- Set the default message number
467: p_message_name := Null;
472: END IF;
473: -- 2. Issue a save point for the module so that if locks exist,
474: -- a rollback can be performed.
475: SAVEPOINT sp_save_point;
476: -- Perform a logical delete of the associated IGS_FI_SUB_ER_RT items.
477: -- Update the appropriate records with NOWAIT option.
478: OPEN c_fsert;
479: FETCH c_fsert INTO l_rowid, l_sub_er_id,l_far_id,l_create_date;
480: IF c_fsert%FOUND THEN
478: OPEN c_fsert;
479: FETCH c_fsert INTO l_rowid, l_sub_er_id,l_far_id,l_create_date;
480: IF c_fsert%FOUND THEN
481: CLOSE c_fsert;
482: igs_fi_sub_er_rt_pkg.update_row (
483: x_mode => 'R',
484: x_rowid => l_rowid,
485: x_sub_err_id => p_sub_err_id,
486: x_sub_er_id => l_sub_er_id,