[Home] [Help]
PACKAGE BODY: APPS.CSM_PAGE_PERZ_DELTA_EVENT_PKG
Source
1 PACKAGE BODY CSM_PAGE_PERZ_DELTA_EVENT_PKG AS
2 /* $Header: csmeppdb.pls 120.5.12010000.2 2008/10/22 12:43:20 trajasek ship $ */
3
4 /*** Globals ***/
5 g_page_perz_delta_acc_tab_name CONSTANT VARCHAR2(30) := 'CSM_PAGE_PERZ_DELTA_ACC';
6 g_page_perz_delta_table_name CONSTANT VARCHAR2(30) := 'CSM_PAGE_PERZ_DELTA';
7 g_page_perz_delta_seq_name CONSTANT VARCHAR2(30) := 'CSM_PAGE_PERZ_DELTA_ACC_S' ;
8 g_page_perz_delta_pubi_name CONSTANT VARCHAR2(30) := 'CSM_PAGE_PERZ_DELTA';
9
10 g_page_perz_delta_pkg_name CONSTANT VARCHAR2(30) := 'CSM_PAGE_PERZ_DELTA_EVENT_PKG';
11 g_page_perz_delta_api_name CONSTANT VARCHAR2(30) := 'REFRESH_PAGE_PERZ_DELTA';
12
13
14
15 PROCEDURE REFRESH_PAGE_PERZ_DELTA(p_status OUT NOCOPY VARCHAR2,
16 p_message OUT NOCOPY VARCHAR2) IS
17 PRAGMA AUTONOMOUS_TRANSACTION;
18 /*** get the last run date of the concurent program ***/
19 CURSOR c_LastRundate IS
20 SELECT NVL(LAST_RUN_DATE, to_date('1','J')) LAST_RUN_DATE
21 FROM JTM_CON_REQUEST_DATA
22 WHERE package_name = g_page_perz_delta_pkg_name
23 AND procedure_name = g_page_perz_delta_api_name;
24
25 --DELETE--
26 CURSOR c_delete IS
27 SELECT ACC.ACCESS_ID,
28 ACC.PAGE_PERZ_ID,
29 ACC.LEVEL_ID,
30 ACC.LEVEL_VALUE,
31 ACC.DELTA_FILE_NAME,
32 ACC.DELTA_FILE_TYPE,
33 ACC.DELTA_SERVER_VERSION,
34 ACC.DELTA_CLIENT_VERSION,
35 ACC.FILE_DATA,
36 ACC.USER_ID
37 FROM CSM_PAGE_PERZ_DELTA_ACC ACC,
38 ASG_USER AU
39 WHERE ACC.USER_ID=AU.USER_ID
40 AND AU.USER_ID =AU.OWNER_ID
41 AND EXISTS(SELECT 1
42 FROM CSM_PAGE_PERZ_DELTA CPPD
43 WHERE CPPD.PAGE_PERZ_ID=ACC.PAGE_PERZ_ID
44 AND CPPD.LEVEL_ID<>10001
45 AND (
46 (ACC.LEVEL_ID = 10001
47 AND ACC.LEVEL_VALUE = 0
48 AND CPPD.LEVEL_ID=10003
49 AND CPPD.LEVEL_VALUE = AU.RESPONSIBILITY_ID) --Site to Resp
50 OR (ACC.LEVEL_ID = 10001
51 AND ACC.LEVEL_VALUE = 0
52 AND CPPD.LEVEL_ID=10004
53 AND CPPD.LEVEL_VALUE = AU.USER_ID) -- Site to User
54 OR (ACC.LEVEL_ID = 10003
55 AND ACC.LEVEL_VALUE = AU.RESPONSIBILITY_ID
56 AND CPPD.LEVEL_ID=10004
57 AND CPPD.LEVEL_VALUE = AU.USER_ID)--Resp to User
58 )
59 )
60 UNION ALL
61 SELECT ACC.ACCESS_ID,
62 ACC.PAGE_PERZ_ID,
63 ACC.LEVEL_ID,
64 ACC.LEVEL_VALUE,
65 ACC.DELTA_FILE_NAME,
66 ACC.DELTA_FILE_TYPE,
67 ACC.DELTA_SERVER_VERSION,
68 ACC.DELTA_CLIENT_VERSION,
69 ACC.FILE_DATA,
70 ACC.USER_ID
71 FROM CSM_PAGE_PERZ_DELTA_ACC ACC
72 WHERE NOT EXISTS (SELECT 1 FROM CSM_PAGE_PERZ CPP
73 WHERE CPP.PAGE_PERZ_ID= ACC.PAGE_PERZ_ID)
74 OR
75 NOT EXISTS (SELECT 1 FROM CSM_PAGE_PERZ_DELTA CPPD
76 WHERE CPPD.PAGE_PERZ_ID= ACC.PAGE_PERZ_ID
77 AND CPPD.LEVEL_ID = ACC.LEVEL_ID
78 AND CPPD.LEVEL_VALUE = ACC.LEVEL_VALUE);
79
80
81 --UPDATE--
82 CURSOR c_update(b_lastrundate DATE) IS
83 SELECT ACC.ACCESS_ID,
84 ACC.PAGE_PERZ_ID,
85 ACC.LEVEL_ID,
86 ACC.LEVEL_VALUE,
87 CPPD.DELTA_FILE_NAME,
88 CPPD.DELTA_FILE_TYPE,
89 CPPD.DELTA_SERVER_VERSION,
90 CPPD.DELTA_CLIENT_VERSION,
91 CPPD.FILE_DATA,
92 ACC.USER_ID
93 FROM CSM_PAGE_PERZ_DELTA_ACC ACC,
94 CSM_PAGE_PERZ_DELTA CPPD
95 WHERE CPPD.PAGE_PERZ_ID= ACC.PAGE_PERZ_ID
96 AND CPPD.LEVEL_ID = ACC.LEVEL_ID
97 AND CPPD.LEVEL_VALUE = ACC.LEVEL_VALUE
98 AND CPPD.LAST_UPDATE_DATE > b_lastrundate ;
99
100
101 --INSERT--
102 CURSOR c_insert IS
103 SELECT 1 ACCESS_ID,
104 CPPD.PAGE_PERZ_ID,
105 CPPD.LEVEL_ID,
106 CPPD.LEVEL_VALUE,
107 CPPD.DELTA_FILE_NAME,
108 CPPD.DELTA_FILE_TYPE,
109 CPPD.DELTA_SERVER_VERSION,
110 CPPD.DELTA_CLIENT_VERSION,
111 CPPD.FILE_DATA,
112 AU.USER_ID
113 FROM CSM_PAGE_PERZ CPP,
114 CSM_PAGE_PERZ_DELTA CPPD,
115 ASG_USER AU
116 WHERE CPP.PAGE_PERZ_ID = CPPD.PAGE_PERZ_ID
117 AND AU.USER_ID =AU.OWNER_ID
118 AND ( (CPPD.LEVEL_VALUE = AU.USER_ID
119 AND CPPD.LEVEL_ID = 10004)
120 OR
121 (CPPD.LEVEL_VALUE = AU.RESPONSIBILITY_ID
122 AND CPPD.LEVEL_ID = 10003
123 AND NOT EXISTS (SELECT 1
124 FROM CSM_PAGE_PERZ_DELTA CPPD1
125 WHERE CPPD1.PAGE_PERZ_ID = CPPD.PAGE_PERZ_ID
126 AND CPPD1.LEVEL_ID = 10004
127 AND CPPD1.LEVEL_VALUE= AU.USER_ID ))
128 OR
129 (CPPD.LEVEL_VALUE=0
130 AND CPPD.LEVEL_ID = 10001
131 AND NOT EXISTS (SELECT 1
132 FROM CSM_PAGE_PERZ_DELTA CPPD1
133 WHERE CPPD1.PAGE_PERZ_ID = CPPD.PAGE_PERZ_ID
134 AND CPPD1.LEVEL_ID = 10003
135 AND CPPD1.LEVEL_VALUE= AU.RESPONSIBILITY_ID )
136 AND NOT EXISTS (SELECT 1
137 FROM CSM_PAGE_PERZ_DELTA CPPD1
138 WHERE CPPD1.PAGE_PERZ_ID = CPPD.PAGE_PERZ_ID
139 AND CPPD1.LEVEL_ID = 10004
140 AND CPPD1.LEVEL_VALUE= AU.USER_ID ))
141 )
142 AND NOT EXISTS (SELECT 1
143 FROM CSM_PAGE_PERZ_DELTA_ACC ACC
144 WHERE ACC.PAGE_PERZ_ID = CPPD.PAGE_PERZ_ID
145 AND ACC.LEVEL_ID = CPPD.LEVEL_ID
146 AND ACC.LEVEL_VALUE = CPPD.LEVEL_VALUE
147 AND ACC.USER_ID = AU.USER_ID);
148
149 CURSOR C_GET_ACCESS_ID IS
150 SELECT CSM_PAGE_PERZ_DELTA_ACC_S.NEXTVAL
151 FROM DUAL;
152
153 TYPE con_rec_type IS RECORD
154 (
155 ACCESS_ID CSM_PAGE_PERZ_DELTA_ACC.ACCESS_ID%TYPE,
156 PAGE_PERZ_ID CSM_PAGE_PERZ_DELTA.PAGE_PERZ_ID%TYPE,
157 LEVEL_ID CSM_PAGE_PERZ_DELTA.LEVEL_ID%TYPE,
158 LEVEL_VALUE CSM_PAGE_PERZ_DELTA.LEVEL_VALUE%TYPE,
159 DELTA_FILE_NAME CSM_PAGE_PERZ_DELTA.DELTA_FILE_NAME%TYPE,
160 DELTA_FILE_TYPE CSM_PAGE_PERZ_DELTA.DELTA_FILE_TYPE%TYPE,
161 DELTA_SERVER_VERSION CSM_PAGE_PERZ_DELTA.DELTA_SERVER_VERSION%TYPE,
162 DELTA_CLIENT_VERSION CSM_PAGE_PERZ_DELTA.DELTA_CLIENT_VERSION%TYPE,
163 FILE_DATA CSM_PAGE_PERZ_DELTA.FILE_DATA%TYPE,
164 USER_ID ASG_USER.USER_ID%TYPE
165 );
166
167 TYPE l_tab_type IS TABLE OF con_rec_type
168 INDEX BY BINARY_INTEGER;
169
170 l_tab l_tab_type;
171 l_lastrundate c_LastRundate%ROWTYPE;
172 l_sqlerrno VARCHAR2(20);
173 l_sqlerrmsg VARCHAR2(4000);
174 l_access_id NUMBER;
175 l_dummy BOOLEAN;
176
177 BEGIN
178
179 CSM_UTIL_PKG.LOG('Entering REFRESH_PAGE_PERZ_DELTA: ',
180 'CSM_PAGE_PERZ_DELTA_EVENT_PKG.REFRESH_PAGE_PERZ_DELTA',FND_LOG.LEVEL_PROCEDURE);
181
182 OPEN c_lastrundate;
183 FETCH c_lastrundate INTO l_lastrundate;
184 CLOSE c_lastrundate;
185
186 CSM_UTIL_PKG.LOG('Got LASTRUNDATE ',
187 'CSM_PAGE_PERZ_DELTA_EVENT_PKG.REFRESH_PAGE_PERZ_DELTA',FND_LOG.LEVEL_PROCEDURE);
188 --delete--
189 OPEN c_delete;
190 FETCH c_delete BULK COLLECT INTO l_tab;
191 CLOSE c_delete;
192
193 CSM_UTIL_PKG.LOG('Entering DELETE to remove ' || l_tab.count||' records',
194 'CSM_PAGE_PERZ_DELTA_EVENT_PKG.REFRESH_PAGE_PERZ_DELTA',FND_LOG.LEVEL_PROCEDURE);
195
196 FOR I IN 1..l_tab.COUNT
197 LOOP
198 l_dummy := asg_download.mark_dirty(g_page_perz_delta_pubi_name,l_tab(I).ACCESS_ID , l_tab(I).USER_ID, 'D', sysdate );
199
200 DELETE FROM CSM_PAGE_PERZ_DELTA_ACC WHERE ACCESS_ID=l_tab(I).ACCESS_ID;
201 END LOOP;
202
203 COMMIT;
204
205 CSM_UTIL_PKG.LOG('DELETION successful',
206 'CSM_PAGE_PERZ_DELTA_EVENT_PKG.REFRESH_PAGE_PERZ_DELTA',FND_LOG.LEVEL_PROCEDURE);
207
208 l_tab.DELETE;
209
210
211 --update--
212 OPEN c_update(l_lastrundate.LAST_RUN_DATE);
213 FETCH c_update BULK COLLECT INTO l_tab;
214 CLOSE c_update;
215
216 CSM_UTIL_PKG.LOG('Entering UPDATE to update ' || l_tab.count||' records',
217 'CSM_PAGE_PERZ_DELTA_EVENT_PKG.REFRESH_PAGE_PERZ_DELTA',FND_LOG.LEVEL_PROCEDURE);
218
219 FOR I IN 1..l_tab.COUNT
220 LOOP
221 l_dummy := asg_download.mark_dirty(g_page_perz_delta_pubi_name,l_tab(I).ACCESS_ID,l_tab(I).USER_ID, 'U', sysdate );
222
223 UPDATE CSM_PAGE_PERZ_DELTA_ACC
224 SET
225 DELTA_FILE_NAME=l_tab(I).DELTA_FILE_NAME,
226 DELTA_FILE_TYPE=l_tab(I).DELTA_FILE_TYPE,
227 DELTA_SERVER_VERSION=l_tab(I).DELTA_SERVER_VERSION,
228 DELTA_CLIENT_VERSION=l_tab(I).DELTA_CLIENT_VERSION,
229 FILE_DATA=l_tab(I).FILE_DATA,
230 LAST_UPDATE_DATE=SYSDATE,
231 LAST_UPDATED_BY=1,
232 LAST_UPDATE_LOGIN=1
233 WHERE ACCESS_ID=l_tab(I).ACCESS_ID;
234 END LOOP;
235
236 COMMIT;
237
238 CSM_UTIL_PKG.LOG('UPDATE Successful ',
239 'CSM_PAGE_PERZ_DELTA_EVENT_PKG.REFRESH_PAGE_PERZ_DELTA',FND_LOG.LEVEL_PROCEDURE);
240 l_tab.DELETE;
241
242 --insert--
243 OPEN c_insert;
244 FETCH c_insert BULK COLLECT INTO l_tab;
245 CLOSE c_insert;
246
247 CSM_UTIL_PKG.LOG('Entering INSERT to add ' || l_tab.count||' records',
248 'CSM_PAGE_PERZ_DELTA_EVENT_PKG.REFRESH_PAGE_PERZ_DELTA',FND_LOG.LEVEL_PROCEDURE);
249
250 FOR I IN 1..l_tab.COUNT
251 LOOP
252 OPEN C_GET_ACCESS_ID;
253 FETCH C_GET_ACCESS_ID INTO l_access_id;
254 CLOSE C_GET_ACCESS_ID;
255
256 INSERT INTO CSM_PAGE_PERZ_DELTA_ACC
257 ( ACCESS_ID,
258 PAGE_PERZ_ID,
259 LEVEL_ID,
260 LEVEL_VALUE,
261 DELTA_FILE_NAME,
262 DELTA_FILE_TYPE,
263 DELTA_SERVER_VERSION,
264 DELTA_CLIENT_VERSION,
265 FILE_DATA,
266 USER_ID,
267 COUNTER,
268 CREATED_BY,
269 CREATION_DATE,
270 LAST_UPDATED_BY,
271 LAST_UPDATE_DATE,
272 LAST_UPDATE_LOGIN
273 )
274 VALUES
275 ( l_access_id,
276 l_tab(I).PAGE_PERZ_ID,
277 l_tab(I).LEVEL_ID,
278 l_tab(I).LEVEL_VALUE,
279 l_tab(I).DELTA_FILE_NAME,
280 l_tab(I).DELTA_FILE_TYPE,
281 l_tab(I).DELTA_SERVER_VERSION,
282 l_tab(I).DELTA_CLIENT_VERSION,
283 l_tab(I).FILE_DATA,
284 l_tab(I).USER_ID,
285 1,
286 1,
287 SYSDATE,
288 1,
289 SYSDATE,
290 1
291 );
292
293 l_dummy := asg_download.mark_dirty(g_page_perz_delta_pubi_name,l_access_id , l_tab(I).USER_ID, 'I', sysdate );
294
295 END LOOP;
296
297 COMMIT;
298
299 CSM_UTIL_PKG.LOG('INSERTION Successful ',
300 'CSM_PAGE_PERZ_DELTA_EVENT_PKG.REFRESH_PAGE_PERZ_DELTA',FND_LOG.LEVEL_PROCEDURE);
301
302 UPDATE JTM_CON_REQUEST_DATA
303 SET LAST_RUN_DATE = SYSDATE
304 WHERE package_name = g_page_perz_delta_pkg_name
305 AND procedure_name = g_page_perz_delta_api_name;
306
307 COMMIT;
308
309 p_status := 'FINE';
310 p_message := 'CSM_PAGE_PERZ_DELTA_EVENT_PKG.REFRESH_PAGE_PERZ_DELTA executed successfully';
311
312 CSM_UTIL_PKG.LOG('Leaving REFRESH_PAGE_PERZ_DELTA: ',
313 'CSM_PAGE_PERZ_DELTA_EVENT_PKG.REFRESH_PAGE_PERZ_DELTA',FND_LOG.LEVEL_PROCEDURE);
314
315 EXCEPTION
316 WHEN OTHERS THEN
317 l_sqlerrno := TO_CHAR(SQLCODE);
318 l_sqlerrmsg := SUBSTR(SQLERRM, 1,2000);
319 p_status := 'ERROR';
320 p_message := 'Error in CSM_PAGE_PERZ_DELTA_EVENT_PKG.REFRESH_PAGE_PERZ_DELTA: ' || l_sqlerrno || ':' || l_sqlerrmsg;
321 ROLLBACK;
322 csm_util_pkg.log('CSM_PAGE_PERZ_DELTA_EVENT_PKG.REFRESH_PAGE_PERZ_DELTA ERROR : ' || l_sqlerrno || ':' || l_sqlerrmsg);
323
324 END REFRESH_PAGE_PERZ_DELTA;
325
326 --7239431
327 PROCEDURE REFRESH_USER(p_user_id NUMBER)
328 IS
329
330 --INSERT--
331 CURSOR c_insert(b_user_id NUMBER) IS
332 SELECT 1 ACCESS_ID,
333 CPPD.PAGE_PERZ_ID,
334 CPPD.LEVEL_ID,
335 CPPD.LEVEL_VALUE,
336 CPPD.DELTA_FILE_NAME,
337 CPPD.DELTA_FILE_TYPE,
338 CPPD.DELTA_SERVER_VERSION,
339 CPPD.DELTA_CLIENT_VERSION,
340 CPPD.FILE_DATA,
341 AU.USER_ID
342 FROM CSM_PAGE_PERZ CPP,
343 CSM_PAGE_PERZ_DELTA CPPD,
344 ASG_USER AU
345 WHERE AU.USER_ID=b_user_id
346 AND AU.USER_ID =AU.OWNER_ID
347 AND CPP.PAGE_PERZ_ID = CPPD.PAGE_PERZ_ID
348 AND ( (CPPD.LEVEL_VALUE = AU.USER_ID
349 AND CPPD.LEVEL_ID = 10004)
350 OR
351 (CPPD.LEVEL_VALUE = AU.RESPONSIBILITY_ID
352 AND CPPD.LEVEL_ID = 10003
353 AND NOT EXISTS (SELECT 1
354 FROM CSM_PAGE_PERZ_DELTA CPPD1
355 WHERE CPPD1.PAGE_PERZ_ID = CPPD.PAGE_PERZ_ID
356 AND CPPD1.LEVEL_ID = 10004
357 AND CPPD1.LEVEL_VALUE= AU.USER_ID ))
358 OR
359 (CPPD.LEVEL_VALUE=0
360 AND CPPD.LEVEL_ID = 10001
361 AND NOT EXISTS (SELECT 1
362 FROM CSM_PAGE_PERZ_DELTA CPPD1
363 WHERE CPPD1.PAGE_PERZ_ID = CPPD.PAGE_PERZ_ID
364 AND CPPD1.LEVEL_ID = 10003
365 AND CPPD1.LEVEL_VALUE= AU.RESPONSIBILITY_ID )
366 AND NOT EXISTS (SELECT 1
367 FROM CSM_PAGE_PERZ_DELTA CPPD1
368 WHERE CPPD1.PAGE_PERZ_ID = CPPD.PAGE_PERZ_ID
369 AND CPPD1.LEVEL_ID = 10004
370 AND CPPD1.LEVEL_VALUE= AU.USER_ID ))
371 );
372
373 CURSOR C_GET_ACCESS_ID IS
374 SELECT CSM_PAGE_PERZ_DELTA_ACC_S.NEXTVAL
375 FROM DUAL;
376
377 TYPE con_rec_type IS RECORD
378 (
379 ACCESS_ID CSM_PAGE_PERZ_DELTA_ACC.ACCESS_ID%TYPE,
380 PAGE_PERZ_ID CSM_PAGE_PERZ_DELTA.PAGE_PERZ_ID%TYPE,
381 LEVEL_ID CSM_PAGE_PERZ_DELTA.LEVEL_ID%TYPE,
382 LEVEL_VALUE CSM_PAGE_PERZ_DELTA.LEVEL_VALUE%TYPE,
383 DELTA_FILE_NAME CSM_PAGE_PERZ_DELTA.DELTA_FILE_NAME%TYPE,
384 DELTA_FILE_TYPE CSM_PAGE_PERZ_DELTA.DELTA_FILE_TYPE%TYPE,
385 DELTA_SERVER_VERSION CSM_PAGE_PERZ_DELTA.DELTA_SERVER_VERSION%TYPE,
386 DELTA_CLIENT_VERSION CSM_PAGE_PERZ_DELTA.DELTA_CLIENT_VERSION%TYPE,
387 FILE_DATA CSM_PAGE_PERZ_DELTA.FILE_DATA%TYPE,
388 USER_ID ASG_USER.USER_ID%TYPE
389 );
390
391 TYPE l_tab_type IS TABLE OF con_rec_type
392 INDEX BY BINARY_INTEGER;
393
394 l_tab l_tab_type;
395 l_access_id NUMBER;
396 l_dummy BOOLEAN;
397
398 BEGIN
399
400 CSM_UTIL_PKG.LOG('Entering api REFRESH_USER with user id- '||p_user_id,
401 'CSM_PAGE_PERZ_DELTA_EVENT_PKG.REFRESH_USER',FND_LOG.LEVEL_PROCEDURE);
402
403 DELETE FROM CSM_PAGE_PERZ_DELTA_ACC WHERE USER_ID=p_user_id;
404
405 --insert--
406 OPEN c_insert(p_user_id);
407 FETCH c_insert BULK COLLECT INTO l_tab;
408 CLOSE c_insert;
409
410 CSM_UTIL_PKG.LOG('Entering INSERT to add ' || l_tab.count||' records for user',
411 'CSM_PAGE_PERZ_DELTA_EVENT_PKG.REFRESH_USER',FND_LOG.LEVEL_PROCEDURE);
412
413 FOR I IN 1..l_tab.COUNT
414 LOOP
415 OPEN C_GET_ACCESS_ID;
416 FETCH C_GET_ACCESS_ID INTO l_access_id;
417 CLOSE C_GET_ACCESS_ID;
418
419 INSERT INTO CSM_PAGE_PERZ_DELTA_ACC
420 ( ACCESS_ID,
421 PAGE_PERZ_ID,
422 LEVEL_ID,
423 LEVEL_VALUE,
424 DELTA_FILE_NAME,
425 DELTA_FILE_TYPE,
426 DELTA_SERVER_VERSION,
427 DELTA_CLIENT_VERSION,
428 FILE_DATA,
429 USER_ID,
430 COUNTER,
431 CREATED_BY,
432 CREATION_DATE,
433 LAST_UPDATED_BY,
434 LAST_UPDATE_DATE,
435 LAST_UPDATE_LOGIN
436 )
437 VALUES
438 ( l_access_id,
439 l_tab(I).PAGE_PERZ_ID,
440 l_tab(I).LEVEL_ID,
441 l_tab(I).LEVEL_VALUE,
442 l_tab(I).DELTA_FILE_NAME,
443 l_tab(I).DELTA_FILE_TYPE,
444 l_tab(I).DELTA_SERVER_VERSION,
445 l_tab(I).DELTA_CLIENT_VERSION,
446 l_tab(I).FILE_DATA,
447 l_tab(I).USER_ID,
448 1,
449 1,
450 SYSDATE,
451 1,
452 SYSDATE,
453 1
454 );
455
456 l_dummy := asg_download.mark_dirty(g_page_perz_delta_pubi_name,l_access_id , l_tab(I).USER_ID, 'I', sysdate );
457
458 END LOOP;
459
460 CSM_UTIL_PKG.LOG('INSERTION Successful ',
461 'CSM_PAGE_PERZ_DELTA_EVENT_PKG.REFRESH_USER',FND_LOG.LEVEL_PROCEDURE);
462
463 END REFRESH_USER;
464
465 END CSM_PAGE_PERZ_DELTA_EVENT_PKG;