699:
700: -- check whether corresponding record already exists.
701: CURSOR old_refpocc_cur (p_pocc igs_uc_crefpoc_ints.pocc%TYPE) IS
702: SELECT rowid
703: FROM igs_uc_ref_pocc
704: WHERE pocc = p_pocc ;
705:
706: BEGIN
707: -- initialize variables
745: -- If not found then insert
746: IF l_rowid IS NULL THEN
747:
748: BEGIN
749: igs_uc_ref_pocc_pkg.insert_row --IGSXI31B.pls
750: (
751: x_rowid => l_rowid
752: ,x_pocc => new_refpocc_rec.pocc
753: ,x_social_class => new_refpocc_rec.socialclass
767: END;
768:
769: ELSE -- update
770: BEGIN
771: igs_uc_ref_pocc_pkg.update_row --IGSXI31B.pls
772: (
773: x_rowid => l_rowid
774: ,x_pocc => new_refpocc_rec.pocc
775: ,x_social_class => new_refpocc_rec.socialclass