[Home] [Help]
153:
154:
155: PROCEDURE upgrade_sec_access_data IS
156:
157: -- This procedure upgrades data in security access table(edw_sec_dim_access)
158:
159: v_Errorcode number;
160: v_ErrorText varchar2(200);
161:
165: x_object_type varchar2(30) := 'Security Procedure';
166:
167: x_message varchar2(2000);
168:
169: x_dim_id edw_sec_dim_access.dim_id%TYPE;
170: x_level_id edw_sec_dim_access.level_id%TYPE;
171:
172:
173: cursor dim_cursor is
166:
167: x_message varchar2(2000);
168:
169: x_dim_id edw_sec_dim_access.dim_id%TYPE;
170: x_level_id edw_sec_dim_access.level_id%TYPE;
171:
172:
173: cursor dim_cursor is
174: select distinct dim_short_name from edw_sec_dim_access edw
170: x_level_id edw_sec_dim_access.level_id%TYPE;
171:
172:
173: cursor dim_cursor is
174: select distinct dim_short_name from edw_sec_dim_access edw
175: where dim_id <>
176: (
177: select
178: dim.dim_id
182: edw.dim_short_name = dim.dim_name
183: )
184: ;
185: cursor level_cursor is
186: select distinct level_short_name from edw_sec_dim_access edw
187: where level_id <>
188: (select
189: lvl.level_id
190: from
208: select dim_id into x_dim_id
209: from edw_sec_dim_info_v
210: where dim_name = dim_rec.dim_short_name;
211:
212: update edw_sec_dim_access
213: set dim_id = x_dim_id
214: where dim_short_name = dim_rec.dim_short_name;
215:
216: END LOOP;
222: select level_id into x_level_id
223: from edw_sec_lvl_info_v
224: where level_name = level_rec.level_short_name;
225:
226: update edw_sec_dim_access
227: set level_id = x_level_id
228: where level_short_name = level_rec.level_short_name;
229:
230: END LOOP;