354: FROM igs_uc_uofabrv_ints
355: WHERE record_status = 'N';
356:
357: -- check whether corresponding record already exists.
358: CURSOR old_uvoffabrv_cur (p_abbrev igs_uc_ref_off_abrv.abbrev_code%TYPE) IS
359: SELECT rowid,
360: abbrev_code,
361: uv_timestamp,
362: uv_updater,
369: imported,
370: sent_to_ucas,
371: deleted,
372: tariff
373: FROM igs_uc_ref_off_abrv
374: WHERE abbrev_code = p_abbrev;
375:
376: old_uvoffabrv_rec old_uvoffabrv_cur%ROWTYPE;
377: l_rec_status igs_uc_uofabrv_ints.record_status%TYPE;
374: WHERE abbrev_code = p_abbrev;
375:
376: old_uvoffabrv_rec old_uvoffabrv_cur%ROWTYPE;
377: l_rec_status igs_uc_uofabrv_ints.record_status%TYPE;
378: l_uncond igs_uc_ref_off_abrv.uncond%TYPE;
379: l_withdrawal igs_uc_ref_off_abrv.withdrawal%TYPE;
380: l_char_abbrev igs_uc_ref_off_abrv.abbrev_code%TYPE;
381:
382: BEGIN
375:
376: old_uvoffabrv_rec old_uvoffabrv_cur%ROWTYPE;
377: l_rec_status igs_uc_uofabrv_ints.record_status%TYPE;
378: l_uncond igs_uc_ref_off_abrv.uncond%TYPE;
379: l_withdrawal igs_uc_ref_off_abrv.withdrawal%TYPE;
380: l_char_abbrev igs_uc_ref_off_abrv.abbrev_code%TYPE;
381:
382: BEGIN
383: -- initialize variables
376: old_uvoffabrv_rec old_uvoffabrv_cur%ROWTYPE;
377: l_rec_status igs_uc_uofabrv_ints.record_status%TYPE;
378: l_uncond igs_uc_ref_off_abrv.uncond%TYPE;
379: l_withdrawal igs_uc_ref_off_abrv.withdrawal%TYPE;
380: l_char_abbrev igs_uc_ref_off_abrv.abbrev_code%TYPE;
381:
382: BEGIN
383: -- initialize variables
384: g_success_rec_cnt := 0;
441:
442: -- If not found then insert
443: IF old_uvoffabrv_rec.rowid IS NULL THEN
444: BEGIN
445: igs_uc_ref_off_abrv_pkg.insert_row --IGSXI30B.pls
446: (
447: x_rowid => old_uvoffabrv_rec.rowid -- i.e. NULL.
448: ,x_abbrev_code => l_char_abbrev
449: ,x_uv_updater => new_uvoffabrv_rec.updater
470:
471: ELSE -- update
472:
473: BEGIN
474: igs_uc_ref_off_abrv_pkg.update_row --IGSXI30B.pls
475: (
476: x_rowid => old_uvoffabrv_rec.rowid
477: ,x_abbrev_code => old_uvoffabrv_rec.abbrev_code
478: ,x_uv_updater => old_uvoffabrv_rec.uv_updater