PACKAGE BODY: APPS.CN_COLUMN_IND_MAPS_PKG

Source

1 PACKAGE BODY cn_column_ind_maps_pkg AS
2 -- $Header: cnrecimb.pls 115.1 99/07/16 07:13:30 porting ship $
3 
4 
5 --
6 -- Public Procedures
7 --
8 
9   PROCEDURE insert_row (
10 	X_rowid		OUT	ROWID,
11 	X_column_ind_map_id	cn_column_ind_maps.column_ind_map_id%TYPE,
12 	X_index_id		cn_column_ind_maps.index_id%TYPE,
13 	X_column_id		cn_column_ind_maps.column_id%TYPE,
14 	X_column_position	cn_column_ind_maps.column_position%TYPE,
15 	X_order_flag		cn_column_ind_maps.order_flag%TYPE) IS
16 
17     X_primary_key               cn_column_trg_maps.column_trg_map_id%TYPE;
18   BEGIN
19 
20     X_primary_key := X_column_ind_map_id;
21     IF (X_primary_key IS NULL) THEN
22       SELECT cn_objects_s.NEXTVAL
23         INTO X_primary_key
24         FROM dual;
25     END IF;
26 
27     INSERT INTO cn_column_ind_maps (
28 	column_ind_map_id,
29 	index_id,
30 	column_id,
31 	column_position,
32 	order_flag)
33       VALUES (
34 	X_column_ind_map_id,
35 	X_index_id,
36 	X_column_id,
37 	X_column_position,
38 	X_order_flag);
39 
40     SELECT ROWID
41       INTO X_rowid
42       FROM cn_column_ind_maps
43      WHERE column_ind_map_id = X_primary_key;
44 
45     IF (SQL%NOTFOUND) THEN
46       RAISE NO_DATA_FOUND;
47     END IF;
48 
49   END insert_row;
50 
51 
52   PROCEDURE select_row (
53 	recinfo IN OUT cn_column_ind_maps%ROWTYPE) IS
54   BEGIN
55     -- select row based on index_id (primary key)
56     IF (recinfo.index_id IS NOT NULL) THEN
57 
58       SELECT * INTO recinfo
59         FROM cn_column_ind_maps ccim
60         WHERE ccim.index_id = recinfo.index_id;
61 
62     END IF;
63   END select_row;
64 
65 
66 END cn_column_ind_maps_pkg;