389:
390: -- check whether corresponding record already exists.
391: CURSOR old_refapr_cur (p_dom igs_uc_crapr_ints.dom%TYPE) IS
392: SELECT rapr.rowid
393: FROM igs_uc_ref_apr rapr
394: WHERE rapr.dom = p_dom ;
395:
396: BEGIN
397: -- initialize variables
433:
434: -- If not found then insert
435: IF l_rowid IS NULL THEN
436: BEGIN
437: igs_uc_ref_apr_pkg.insert_row --IGSXI24B.pls
438: (
439: x_rowid => l_rowid
440: ,x_dom => new_refapr_rec.dom
441: ,x_dom_text => new_refapr_rec.domtext
451: END;
452:
453: ELSE -- update
454: BEGIN
455: igs_uc_ref_apr_pkg.update_row --IGSXI24B.pls
456: (
457: x_rowid => l_rowid
458: ,x_dom => new_refapr_rec.dom
459: ,x_dom_text => new_refapr_rec.domtext