1: PACKAGE BODY PER_IMAGES_PKG as
2: /* $Header: peimg01t.pkb 115.0 99/07/18 13:54:12 porting ship $ */
3: --
4: procedure check_unique(p_table_name VARCHAR2
5: ,p_parent_id NUMBER) is
45: --
46: -- Run Procedures required at insert.
47: --
48: begin
49: per_images_pkg.check_unique(p_table_name =>p_table_name
50: ,p_parent_id =>p_parent_id);
51: per_images_pkg.get_sequence_no(p_image_id => p_image_id);
52: end insert_row;
53: END PER_IMAGES_PKG;
47: --
48: begin
49: per_images_pkg.check_unique(p_table_name =>p_table_name
50: ,p_parent_id =>p_parent_id);
51: per_images_pkg.get_sequence_no(p_image_id => p_image_id);
52: end insert_row;
53: END PER_IMAGES_PKG;
49: per_images_pkg.check_unique(p_table_name =>p_table_name
50: ,p_parent_id =>p_parent_id);
51: per_images_pkg.get_sequence_no(p_image_id => p_image_id);
52: end insert_row;
53: END PER_IMAGES_PKG;