[Home] [Help]
PACKAGE BODY: APPS.CNDISL_SLICE_DEF_DIM_PKG
Source
1 PACKAGE BODY CNDISL_slice_def_dim_PKG as
2 -- $Header: cndislbb.pls 115.1 99/07/16 07:06:28 porting ship $
3
4
5 -- -----------------------------------------------------------
6
7 PROCEDURE Default_Rows (X_column_map_id IN OUT number,
8 X_destination_column_id IN OUT number,
9 X_tmp_column_map_id IN OUT number,
10 X_tmp_dest_column_id IN OUT number,
11 X_rup_column_map_id IN OUT number,
12 X_rup_dest_column_id IN OUT number) IS
13 BEGIN
14
15 SELECT cn_column_maps_s.nextval, cn_objects_s.nextval
16 INTO X_column_map_id, X_destination_column_id
17 FROM dual;
18
19 SELECT cn_column_maps_s.nextval, cn_objects_s.nextval
20 INTO X_tmp_column_map_id, X_tmp_dest_column_id
21 FROM dual;
22
23 SELECT cn_column_maps_s.nextval, cn_objects_s.nextval
24 INTO X_rup_column_map_id, X_rup_dest_column_id
25 FROM dual;
26
27 END Default_Rows;
28
29 -- -----------------------------------------------------------
30
31 PROCEDURE Populate_Fields (X_source_column_id IN number,
32 X_column_name IN OUT varchar2,
33 X_dimension_name IN OUT varchar2,
34 X_dest_column_id IN number,
35 X_dest_column_name IN OUT varchar2) IS
36 BEGIN
37
38 SELECT col.name, dim.name
39 INTO X_column_name, X_dimension_name
40 FROM cn_obj_columns_v col,
41 cn_dimensions dim
42 WHERE col.column_id = X_source_column_id
43 AND col.dimension_id = dim.dimension_id (+);
44
45 SELECT name
46 INTO X_dest_column_name
47 FROM cn_obj_columns_v
48 WHERE column_id = X_dest_column_id;
49
50 END Populate_Fields;
51
52 -- -----------------------------------------------------------
53
54 PROCEDURE Insert_Row ( X_table_map_id number,
55 X_column_map_id number,
56 X_source_column_id number,
57 X_group_by_flag varchar,
58 X_destination_column_id number,
59 X_column_name varchar,
60 X_repository_id number,
61 X_table_id number,
62 X_tmp_table_map_id number,
63 X_tmp_table_id number,
64 X_tmp_column_map_id number,
65 X_tmp_dest_column_id number,
66 X_rup_table_map_id number,
67 X_rup_table_id number,
68 X_rup_column_map_id number,
69 X_rup_dest_column_id number) IS
70
71 BEGIN
72
73 INSERT INTO cn_column_maps (table_map_id, column_map_id,
74 source_column_id, group_by_flag,
75 destination_column_id)
76 VALUES (X_table_map_id, X_column_map_id,
77 X_source_column_id, X_group_by_flag,
78 X_destination_column_id);
79
80 INSERT INTO cn_obj_columns_v (column_id, name, dependency_map_complete,
81 status, repository_id, table_id, data_length,
82 data_type, nullable, primary_key, position,
83 dimension_id, data_scale, column_type, object_type)
84 (SELECT X_destination_column_id, X_column_name, 'N',
85 'V', X_repository_id, X_table_id, data_length,
86 data_type, nullable, 'N', position,
87 dimension_id, data_scale, column_type, 'COL'
88 FROM cn_obj_columns_v WHERE column_id = X_source_column_id);
89
90
91 -- Temp. slice table definition ----------
92
93 INSERT INTO cn_column_maps (table_map_id, column_map_id,
94 source_column_id, group_by_flag,
95 destination_column_id)
96 VALUES (X_tmp_table_map_id, X_tmp_column_map_id,
97 X_source_column_id, X_group_by_flag,
98 X_tmp_dest_column_id);
99
100 INSERT INTO cn_obj_columns_v (column_id, name, dependency_map_complete,
101 status, repository_id, table_id, data_length,
102 data_type, nullable, primary_key, position,
103 dimension_id, data_scale, column_type, object_type)
104 (SELECT X_tmp_dest_column_id, X_column_name, 'N',
105 'V', X_repository_id, X_tmp_table_id, data_length,
106 data_type, nullable, 'N', position,
107 dimension_id, data_scale, column_type, 'COL'
108 FROM cn_obj_columns_v WHERE column_id = X_source_column_id);
109
110 -- Temp. Rollup table definition ----------
111
112 INSERT INTO cn_column_maps (table_map_id, column_map_id,
113 source_column_id, group_by_flag,
114 destination_column_id)
115 VALUES (X_rup_table_map_id, X_rup_column_map_id,
116 X_source_column_id, X_group_by_flag,
117 X_rup_dest_column_id);
118
119 INSERT INTO cn_obj_columns_v (column_id, name, dependency_map_complete,
120 status, repository_id, table_id, data_length,
121 data_type, nullable, primary_key, position,
122 dimension_id, data_scale, column_type, object_type)
123 (SELECT X_rup_dest_column_id, X_column_name, 'N',
124 'V', X_repository_id, X_rup_table_id, data_length,
125 data_type, nullable, 'N', position,
126 dimension_id, data_scale, column_type, 'COL'
127 FROM cn_obj_columns_v WHERE column_id = X_source_column_id);
128
129 END Insert_Row;
130
131 -- -----------------------------------------------------------
132
133 PROCEDURE Delete_Row ( X_column_map_id number,
134 X_destination_column_id number,
135 X_tmp_column_map_id number,
136 X_tmp_dest_column_id number,
137 X_rup_column_map_id number,
138 X_rup_dest_column_id number) IS
139 BEGIN
140
141 DELETE cn_column_maps WHERE column_map_id = X_column_map_id;
142 DELETE cn_obj_columns_v WHERE column_id = X_destination_column_id;
143
144 DELETE cn_column_maps WHERE column_map_id = X_tmp_column_map_id;
145 DELETE cn_obj_columns_v WHERE column_id = X_tmp_dest_column_id;
146
147 DELETE cn_column_maps WHERE column_map_id = X_rup_column_map_id;
148 DELETE cn_obj_columns_v WHERE column_id = X_rup_dest_column_id;
149
150 END Delete_Row;
151
152 -- -----------------------------------------------------------
153
154 END CNDISL_slice_def_dim_PKG;