APPS.PER_IMAGES_PKG dependencies on PER_IMAGES

Line 1: PACKAGE BODY PER_IMAGES_PKG as

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

Line 12: from per_images

8: -- table_name,parent_id can exist in the images table
9: --
10: cursor img_cur is
11: select 'Y'
12: from per_images
13: where table_name = p_table_name
14: and parent_id = p_parent_id;
15: ---
16: -- local variables

Line 35: select per_images_s.nextval

31: -- Return next sequence number for insert
32: -- of image.
33: --
34: cursor get_seq is
35: select per_images_s.nextval
36: from sys.dual;
37: begin
38: open get_seq;
39: fetch get_seq into p_image_id;

Line 49: per_images_pkg.check_unique(p_table_name =>p_table_name

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;

Line 51: per_images_pkg.get_sequence_no(p_image_id => p_image_id);

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;

Line 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;