PACKAGE BODY: APPS.CN_OBJ_INDEXES_V_PKG

Source

1 PACKAGE BODY cn_obj_indexes_v_pkg AS
2 -- $Header: cnreindb.pls 115.1 99/07/16 07:14:34 porting ship $
3 
4 
5 --
6 -- Public Procedures
7 --
8 
9   PROCEDURE insert_row (
10 	X_rowid		OUT	ROWID,
11 	X_index_id		cn_obj_indexes_v.index_id%TYPE,
12 	X_name			cn_obj_indexes_v.name%TYPE,
13 	X_description		cn_obj_indexes_v.description%TYPE,
14 	X_dependency_map_complete	cn_obj_indexes_v.dependency_map_complete%TYPE,
15 	X_status		cn_obj_indexes_v.status%TYPE,
16 	X_repository_id		cn_obj_indexes_v.repository_id%TYPE,
17 	X_table_id		cn_obj_indexes_v.table_id%TYPE,
18 	X_unique_flag		cn_obj_indexes_v.unique_flag%TYPE,
19 	X_seed_index_id		cn_obj_indexes_v.seed_index_id%TYPE) IS
20 
21     X_primary_key		cn_obj_indexes_v.index_id%TYPE;
22   BEGIN
23 
24     X_primary_key := X_index_id;
25     IF (X_primary_key IS NULL) THEN
26       SELECT cn_objects_s.NEXTVAL
27         INTO X_primary_key
28         FROM dual;
29     END IF;
30 
31     INSERT INTO cn_obj_indexes_v (
32 	index_id,
33 	name,
34 	description,
35 	dependency_map_complete,
36 	status,
37 	repository_id,
38 	table_id,
39 	unique_flag,
40 	object_type,
41 	seed_index_id)
42       VALUES (
43 	X_primary_key,
44 	X_name,
45 	X_description,
46 	X_dependency_map_complete,
47 	X_status,
48 	X_repository_id,
49 	X_table_id,
50 	X_unique_flag,
51 	'IND',
52 	X_seed_index_id);
53 
54     SELECT ROWID
55       INTO X_rowid
56       FROM cn_obj_indexes_v
57      WHERE index_id = X_primary_key;
58 
59     IF (SQL%NOTFOUND) THEN
60       RAISE NO_DATA_FOUND;
61     END IF;
62 
63   END insert_row;
64 
65 
66   PROCEDURE select_row (
67 	recinfo IN OUT cn_obj_indexes_v%ROWTYPE) IS
68   BEGIN
69     -- select row based on index_id (primary key)
70     IF (recinfo.index_id IS NOT NULL) THEN
71 
72       SELECT * INTO recinfo
73         FROM cn_obj_indexes_v coiv
74         WHERE coiv.index_id = recinfo.index_id;
75 
76     END IF;
77   END select_row;
78 
79 
80 END cn_obj_indexes_v_pkg;