[Home] [Help]
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;