1: package body edw_sec_util as
2: /* $Header: EDWSUTLB.pls 115.5 2002/12/06 02:57:37 tiwang noship $*/
3:
4: -- This procedure refreshes security metadata tables from owb repository
5:
9: v_ErrorText varchar2(200);
10:
11: g_conc_program_id number;
12:
13: x_object_name varchar2(50) := 'EDW_SEC_UTIL.REFRESH_SEC_METADATA';
14: x_object_type varchar2(30) := 'Security Procedure';
15:
16: x_message varchar2(2000);
17:
99:
100:
101: -- Call procedure to upgrade EDW security access setup data
102:
103: edw_sec_util.upgrade_sec_access_data;
104:
105:
106:
107: EXCEPTION
116: x_message := 'Oracle error occured.
117: Errorcode is : ' || v_ErrorCode || ' and Errortext is : ' || v_ErrorText ;
118:
119:
120: edw_sec_util.log_error(x_object_name, x_object_type, null, g_conc_program_id, x_message);
121:
122: Errbuf := v_ErrorText;
123: Retcode := SQLCODE;
124:
160: v_ErrorText varchar2(200);
161:
162: -- g_conc_program_id number;
163:
164: x_object_name varchar2(50) := 'EDW_SEC_UTIL.UPGRADE_SEC_ACCESS_DATA';
165: x_object_type varchar2(30) := 'Security Procedure';
166:
167: x_message varchar2(2000);
168:
243: x_message := 'Oracle error occured.
244: Errorcode is : ' || v_ErrorCode || ' and Errortext is : ' || v_ErrorText ;
245:
246:
247: edw_sec_util.log_error(x_object_name, x_object_type, null, null, x_message);
248:
249: RAISE;
250:
251: END upgrade_sec_access_data;
253:
254:
255:
256:
257: END edw_sec_util;