383: SELECT rowid
384: ,dom
385: ,domtext
386: ,leaflag
387: FROM igs_uc_crapr_ints
388: WHERE record_status = 'N';
389:
390: -- check whether corresponding record already exists.
391: CURSOR old_refapr_cur (p_dom igs_uc_crapr_ints.dom%TYPE) IS
387: FROM igs_uc_crapr_ints
388: WHERE record_status = 'N';
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:
487:
488: -- update the interface table rec - record_status if successfully processed or Error Code if any error encountered
489: -- while processing the record.
490: IF g_error_code IS NOT NULL THEN
491: UPDATE igs_uc_crapr_ints
492: SET error_code = g_error_code
493: WHERE rowid = new_refapr_rec.rowid;
494:
495: -- log error message/meaning.
498: -- update error count
499: g_error_rec_cnt := g_error_rec_cnt + 1;
500:
501: ELSE
502: UPDATE igs_uc_crapr_ints
503: SET record_status = 'D',
504: error_code = NULL
505: WHERE rowid = new_refapr_rec.rowid;
506: