eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.IEU_UWQM_AUDIT_LOG_PKG

Source


1 package body IEU_UWQM_AUDIT_LOG_PKG as
2 /* $Header: IEUVUALB.pls 120.0 2005/06/02 15:54:02 appldev noship $ */
3 procedure INSERT_ROW (
4 P_ACTION_KEY			IN VARCHAR2,
5 P_EVENT_KEY			IN VARCHAR2,
6 P_MODULE			IN VARCHAR2,
7 P_WS_CODE			IN VARCHAR2,
8 P_APPLICATION_ID		IN VARCHAR2,
9 P_WORKITEM_PK_ID		IN VARCHAR2,
10 P_WORKITEM_OBJ_CODE		IN VARCHAR2,
11 P_WORK_ITEM_STATUS_PREV		IN VARCHAR2,
12 P_WORK_ITEM_STATUS_CURR		IN VARCHAR2,
13 P_OWNER_ID_PREV			IN NUMBER,
14 P_OWNER_ID_CURR			IN NUMBER,
15 P_OWNER_TYPE_PREV		IN VARCHAR2,
16 P_OWNER_TYPE_CURR		IN VARCHAR2,
17 P_ASSIGNEE_ID_PREV		IN NUMBER,
18 P_ASSIGNEE_ID_CURR		IN NUMBER,
19 P_ASSIGNEE_TYPE_PREV		IN VARCHAR2,
20 P_ASSIGNEE_TYPE_CURR		IN VARCHAR2,
21 P_SOURCE_OBJECT_ID_PREV		IN NUMBER,
22 P_SOURCE_OBJECT_ID_CURR		IN NUMBER,
23 P_SOURCE_OBJECT_TYPE_CODE_PREV  IN VARCHAR2,
24 P_SOURCE_OBJECT_TYPE_CODE_CURR  IN VARCHAR2,
25 P_PARENT_WORKITEM_STATUS_PREV	IN VARCHAR2,
26 P_PARENT_WORKITEM_STATUS_CURR	IN VARCHAR2,
27 P_PARENT_DIST_STATUS_PREV	IN VARCHAR2,
28 P_PARENT_DIST_STATUS_CURR	IN VARCHAR2,
29 P_WORKITEM_DIST_STATUS_PREV	IN VARCHAR2,
30 P_WORKITEM_DIST_STATUS_CURR	IN VARCHAR2,
31 P_PRIORITY_PREV			IN VARCHAR2,
32 P_PRIORITY_CURR			IN VARCHAR2,
33 P_DUE_DATE_PREV			IN DATE,
34 P_DUE_DATE_CURR			IN DATE,
35 P_RESCHEDULE_TIME_PREV		IN DATE,
36 P_RESCHEDULE_TIME_CURR		IN DATE,
37 P_IEU_COMMENT_CODE1		IN VARCHAR2,
38 P_IEU_COMMENT_CODE2		IN VARCHAR2,
39 P_IEU_COMMENT_CODE3		IN VARCHAR2,
40 P_IEU_COMMENT_CODE4		IN VARCHAR2,
41 P_IEU_COMMENT_CODE5		IN VARCHAR2,
42 P_WORKITEM_COMMENT_CODE1	IN VARCHAR2,
43 P_WORKITEM_COMMENT_CODE2	IN VARCHAR2,
44 P_WORKITEM_COMMENT_CODE3	IN VARCHAR2,
45 P_WORKITEM_COMMENT_CODE4	IN VARCHAR2,
46 P_WORKITEM_COMMENT_CODE5	IN VARCHAR2,
47 P_STATUS			IN VARCHAR2,
48 P_ERROR_CODE			IN VARCHAR2,
49 X_AUDIT_LOG_ID			OUT NOCOPY NUMBER,
50 x_msg_data			OUT NOCOPY VARCHAR2,
51 x_return_status			OUT NOCOPY VARCHAR2
52 
53 ) is
54 
55 l_work_item_number VARCHAR2(100);
56 l_audit_log_val VARCHAR2(100);
57 
58 begin
59 
60  l_audit_log_val := FND_PROFILE.VALUE('IEU_WR_DIST_AUDIT_LOG');
61 
62   BEGIN
63 
64     SELECT WORK_ITEM_NUMBER
65     INTO   L_WORK_ITEM_NUMBER
66     FROM   IEU_UWQM_ITEMS
67     WHERE  WORKITEM_PK_ID = P_WORKITEM_PK_ID
68     AND    WORKITEM_OBJ_CODE = P_WORKITEM_OBJ_CODE;
69 
70   EXCEPTION
71      WHEN OTHERS THEN
72       l_work_item_number := null;
73   END;
74 
75   insert into IEU_UWQM_AUDIT_LOG
76   (	AUDIT_LOG_ID,
77         OBJECT_VERSION_NUMBER,
78         CREATED_BY,
79         CREATION_DATE,
80         LAST_UPDATED_BY,
81         LAST_UPDATE_DATE,
82         LAST_UPDATE_LOGIN,
83 	ACTION_KEY,
84 	EVENT_KEY,
85 	MODULE,
86 	WS_CODE,
87 	APPLICATION_ID,
88 	WORKITEM_PK_ID,
89 	WORKITEM_OBJ_CODE,
90 	WORK_ITEM_NUMBER,
91 	WORKITEM_STATUS_ID_PREV,
92 	WORKITEM_STATUS_ID_CURR,
93 	OWNER_ID_PREV,
94 	OWNER_ID_CURR,
95 	OWNER_TYPE_PREV,
96 	OWNER_TYPE_CURR,
97 	ASSIGNEE_ID_PREV,
98 	ASSIGNEE_ID_CURR,
99 	ASSIGNEE_TYPE_PREV,
100 	ASSIGNEE_TYPE_CURR,
101 	SOURCE_OBJECT_ID_PREV,
102 	SOURCE_OBJECT_ID_CURR,
103 	SOURCE_OBJECT_TYPE_CODE_PREV,
104 	SOURCE_OBJECT_TYPE_CODE_CURR,
105 	PARENT_WORKITEM_STATUS_ID_PREV,
106 	PARENT_WORKITEM_STATUS_ID_CURR,
107 	PARENT_DIST_STATUS_ID_PREV,
108 	PARENT_DIST_STATUS_ID_CURR,
109 	WORKITEM_DIST_STATUS_ID_PREV,
110 	WORKITEM_DIST_STATUS_ID_CURR,
111 	PRIORITY_ID_PREV,
112 	PRIORITY_ID_CURR,
113 	DUE_DATE_PREV,
114 	DUE_DATE_CURR,
115 	RESCHEDULE_TIME_PREV,
116 	RESCHEDULE_TIME_CURR,
117 	IEU_COMMENT_CODE1,
118 	IEU_COMMENT_CODE2,
119 	IEU_COMMENT_CODE3,
120 	IEU_COMMENT_CODE4,
121 	IEU_COMMENT_CODE5,
122 	WORKITEM_COMMENT_CODE1,
123 	WORKITEM_COMMENT_CODE2,
124 	WORKITEM_COMMENT_CODE3,
125 	WORKITEM_COMMENT_CODE4,
126 	WORKITEM_COMMENT_CODE5,
127 	RETURN_STATUS,
128 	ERROR_CODE,
129 	LOGGING_LEVEL)
130   values
131 	(
132 	IEU_UWQM_AUDIT_LOG_S1.NEXTVAL,
133         1,
134         FND_GLOBAL.USER_ID,
135         SYSDATE,
136         FND_GLOBAL.USER_ID,
137         SYSDATE,
138         FND_GLOBAL.LOGIN_ID,
139 	P_ACTION_KEY,
140 	P_EVENT_KEY,
141 	P_MODULE,
142 	P_WS_CODE,
143 	P_APPLICATION_ID,
144 	P_WORKITEM_PK_ID,
145 	P_WORKITEM_OBJ_CODE,
146 	L_WORK_ITEM_NUMBER,
147 	P_WORK_ITEM_STATUS_PREV,
148 	P_WORK_ITEM_STATUS_CURR,
149 	P_OWNER_ID_PREV,
150 	P_OWNER_ID_CURR,
151 	P_OWNER_TYPE_PREV,
152 	P_OWNER_TYPE_CURR,
153 	P_ASSIGNEE_ID_PREV,
154 	P_ASSIGNEE_ID_CURR,
155 	P_ASSIGNEE_TYPE_PREV,
156 	P_ASSIGNEE_TYPE_CURR,
157 	P_SOURCE_OBJECT_ID_PREV,
158 	P_SOURCE_OBJECT_ID_CURR,
159 	P_SOURCE_OBJECT_TYPE_CODE_PREV,
160 	P_SOURCE_OBJECT_TYPE_CODE_CURR,
161 	P_PARENT_WORKITEM_STATUS_PREV,
162 	P_PARENT_WORKITEM_STATUS_CURR,
163 	P_PARENT_DIST_STATUS_PREV,
164 	P_PARENT_DIST_STATUS_CURR,
165 	P_WORKITEM_DIST_STATUS_PREV,
166 	P_WORKITEM_DIST_STATUS_CURR,
167 	P_PRIORITY_PREV,
168 	P_PRIORITY_CURR,
169 	P_DUE_DATE_PREV,
170 	P_DUE_DATE_CURR,
171 	P_RESCHEDULE_TIME_PREV,
172 	P_RESCHEDULE_TIME_CURR,
173 	P_IEU_COMMENT_CODE1,
174 	P_IEU_COMMENT_CODE2,
175 	P_IEU_COMMENT_CODE3,
176 	P_IEU_COMMENT_CODE4,
177 	P_IEU_COMMENT_CODE5,
178 	P_WORKITEM_COMMENT_CODE1,
179 	P_WORKITEM_COMMENT_CODE2,
180 	P_WORKITEM_COMMENT_CODE3,
181 	P_WORKITEM_COMMENT_CODE4,
182 	P_WORKITEM_COMMENT_CODE5,
183 	P_STATUS,
184 	P_ERROR_CODE,
185 	l_audit_log_val) RETURNING AUDIT_LOG_ID INTO X_AUDIT_LOG_ID;
186 
187 
188 end INSERT_ROW;
189 
190 procedure UPDATE_ROW (
191 P_AUDIT_LOG_ID			IN NUMBER,
192 P_ACTION_KEY			IN VARCHAR2,
193 P_EVENT_KEY			IN VARCHAR2,
194 P_MODULE			IN VARCHAR2,
195 P_WS_CODE			IN VARCHAR2,
196 P_APPLICATION_ID		IN VARCHAR2,
197 P_WORKITEM_PK_ID		IN VARCHAR2,
198 P_WORKITEM_OBJ_CODE		IN VARCHAR2,
199 P_WORK_ITEM_STATUS_PREV		IN VARCHAR2,
200 P_WORK_ITEM_STATUS_CURR		IN VARCHAR2,
201 P_OWNER_ID_PREV			IN NUMBER,
202 P_OWNER_ID_CURR			IN NUMBER,
203 P_OWNER_TYPE_PREV		IN VARCHAR2,
204 P_OWNER_TYPE_CURR		IN VARCHAR2,
205 P_ASSIGNEE_ID_PREV		IN NUMBER,
206 P_ASSIGNEE_ID_CURR		IN NUMBER,
207 P_ASSIGNEE_TYPE_PREV		IN VARCHAR2,
208 P_ASSIGNEE_TYPE_CURR		IN VARCHAR2,
209 P_SOURCE_OBJECT_ID_PREV		IN NUMBER,
210 P_SOURCE_OBJECT_ID_CURR		IN NUMBER,
211 P_SOURCE_OBJECT_TYPE_CODE_PREV  IN VARCHAR2,
212 P_SOURCE_OBJECT_TYPE_CODE_CURR  IN VARCHAR2,
213 P_PARENT_WORKITEM_STATUS_PREV	IN VARCHAR2,
214 P_PARENT_WORKITEM_STATUS_CURR	IN VARCHAR2,
215 P_PARENT_DIST_STATUS_PREV	IN VARCHAR2,
216 P_PARENT_DIST_STATUS_CURR	IN VARCHAR2,
217 P_WORKITEM_DIST_STATUS_PREV	IN VARCHAR2,
218 P_WORKITEM_DIST_STATUS_CURR	IN VARCHAR2,
219 P_PRIORITY_PREV			IN VARCHAR2,
220 P_PRIORITY_CURR			IN VARCHAR2,
221 P_DUE_DATE_PREV			IN DATE,
222 P_DUE_DATE_CURR			IN DATE,
223 P_RESCHEDULE_TIME_PREV		IN DATE,
224 P_RESCHEDULE_TIME_CURR		IN DATE,
225 P_IEU_COMMENT_CODE1		IN VARCHAR2,
226 P_IEU_COMMENT_CODE2		IN VARCHAR2,
227 P_IEU_COMMENT_CODE3		IN VARCHAR2,
228 P_IEU_COMMENT_CODE4		IN VARCHAR2,
229 P_IEU_COMMENT_CODE5		IN VARCHAR2,
230 P_WORKITEM_COMMENT_CODE1	IN VARCHAR2,
231 P_WORKITEM_COMMENT_CODE2	IN VARCHAR2,
232 P_WORKITEM_COMMENT_CODE3	IN VARCHAR2,
233 P_WORKITEM_COMMENT_CODE4	IN VARCHAR2,
234 P_WORKITEM_COMMENT_CODE5	IN VARCHAR2,
235 P_STATUS			IN VARCHAR2,
236 P_ERROR_CODE			IN VARCHAR2
237 ) is
238 
239 l_audit_log_val VARCHAR2(100);
240 
241 begin
242 
243  l_audit_log_val := FND_PROFILE.VALUE('IEU_WR_DIST_AUDIT_LOG');
244 
245   UPDATE IEU_UWQM_AUDIT_LOG
246   SET
247         CREATED_BY		    =   FND_GLOBAL.USER_ID,
248         CREATION_DATE		    =   SYSDATE,
249         LAST_UPDATED_BY		    =   FND_GLOBAL.USER_ID,
250         LAST_UPDATE_DATE	    =   SYSDATE,
251         LAST_UPDATE_LOGIN	    =   FND_GLOBAL.LOGIN_ID,
252         OBJECT_VERSION_NUMBER	    =   OBJECT_VERSION_NUMBER + 1,
253 	ACTION_KEY                  =   P_ACTION_KEY,
254 	EVENT_KEY                   =   P_EVENT_KEY,
255 	MODULE                      =   P_MODULE,
256 	WS_CODE                     =   P_WS_CODE,
257 	APPLICATION_ID              =   P_APPLICATION_ID,
258 	WORKITEM_STATUS_ID_PREV     =   P_WORK_ITEM_STATUS_PREV,
259 	WORKITEM_STATUS_ID_CURR     =   P_WORK_ITEM_STATUS_CURR,
260 	OWNER_ID_PREV               =   P_OWNER_ID_PREV	,
261 	OWNER_ID_CURR               =   P_OWNER_ID_CURR,
262 	OWNER_TYPE_PREV             =   P_OWNER_TYPE_PREV,
263 	OWNER_TYPE_CURR             =   P_OWNER_TYPE_CURR,
264 	ASSIGNEE_ID_PREV            =   P_ASSIGNEE_ID_PREV,
265 	ASSIGNEE_ID_CURR            =   P_ASSIGNEE_ID_CURR,
266 	ASSIGNEE_TYPE_PREV          =   P_ASSIGNEE_TYPE_PREV,
267 	ASSIGNEE_TYPE_CURR          =   P_ASSIGNEE_TYPE_CURR,
268 	SOURCE_OBJECT_ID_PREV       =   P_SOURCE_OBJECT_ID_PREV,
269 	SOURCE_OBJECT_ID_CURR       =   P_SOURCE_OBJECT_ID_CURR,
270 	SOURCE_OBJECT_TYPE_CODE_PREV =   P_SOURCE_OBJECT_TYPE_CODE_PREV,
271 	SOURCE_OBJECT_TYPE_CODE_CURR =   P_SOURCE_OBJECT_TYPE_CODE_CURR,
272 	PARENT_WORKITEM_STATUS_ID_PREV =   P_PARENT_WORKITEM_STATUS_PREV,
273 	PARENT_WORKITEM_STATUS_ID_CURR =   P_PARENT_WORKITEM_STATUS_CURR,
274 	PARENT_DIST_STATUS_ID_PREV  =   P_PARENT_DIST_STATUS_PREV,
275 	PARENT_DIST_STATUS_ID_CURR  =   P_PARENT_DIST_STATUS_CURR,
276 	WORKITEM_DIST_STATUS_ID_PREV   =   P_WORKITEM_DIST_STATUS_PREV,
277 	WORKITEM_DIST_STATUS_ID_CURR   =   P_WORKITEM_DIST_STATUS_CURR,
278 	PRIORITY_ID_PREV               =   P_PRIORITY_PREV,
279 	PRIORITY_ID_CURR               =   P_PRIORITY_CURR,
280 	DUE_DATE_PREV               =   P_DUE_DATE_PREV,
281 	DUE_DATE_CURR               =   P_DUE_DATE_CURR,
282 	RESCHEDULE_TIME_PREV        =   P_RESCHEDULE_TIME_PREV,
283 	RESCHEDULE_TIME_CURR        =   P_RESCHEDULE_TIME_CURR,
284 	IEU_COMMENT_CODE1           =   P_IEU_COMMENT_CODE1,
285 	IEU_COMMENT_CODE2           =   P_IEU_COMMENT_CODE2,
286 	IEU_COMMENT_CODE3           =   P_IEU_COMMENT_CODE3,
287 	IEU_COMMENT_CODE4           =   P_IEU_COMMENT_CODE4,
288 	IEU_COMMENT_CODE5           =   P_IEU_COMMENT_CODE5,
289 	WORKITEM_COMMENT_CODE1      =   P_WORKITEM_COMMENT_CODE1,
290 	WORKITEM_COMMENT_CODE2      =   P_WORKITEM_COMMENT_CODE2,
291 	WORKITEM_COMMENT_CODE3      =   P_WORKITEM_COMMENT_CODE3,
292 	WORKITEM_COMMENT_CODE4      =   P_WORKITEM_COMMENT_CODE4,
293 	WORKITEM_COMMENT_CODE5      =   P_WORKITEM_COMMENT_CODE5,
294 	RETURN_STATUS               =   P_STATUS,
295 	ERROR_CODE                  =   P_ERROR_CODE,
296 	LOGGING_LEVEL		    =   L_AUDIT_LOG_VAL
297    WHERE
298         AUDIT_LOG_ID		    =   P_AUDIT_LOG_ID
299    AND	WORKITEM_PK_ID              =   P_WORKITEM_PK_ID
300    AND  WORKITEM_OBJ_CODE	    =   P_WORKITEM_OBJ_CODE;
301 
302   if (sql%notfound) then
303     raise no_data_found;
304   end if;
305 end UPDATE_ROW;
306 
307 PROCEDURE LOAD_ROW (
308 P_AUDIT_LOG_ID			IN NUMBER,
309 P_ACTION_KEY			IN VARCHAR2,
310 P_EVENT_KEY			IN VARCHAR2,
311 P_MODULE			IN VARCHAR2,
312 P_WS_CODE			IN VARCHAR2,
313 P_APPLICATION_ID		IN VARCHAR2,
314 P_WORKITEM_PK_ID		IN VARCHAR2,
315 P_WORKITEM_OBJ_CODE		IN VARCHAR2,
316 P_WORK_ITEM_STATUS_PREV		IN VARCHAR2,
317 P_WORK_ITEM_STATUS_CURR		IN VARCHAR2,
318 P_OWNER_ID_PREV			IN NUMBER,
319 P_OWNER_ID_CURR			IN NUMBER,
320 P_OWNER_TYPE_PREV		IN VARCHAR2,
321 P_OWNER_TYPE_CURR		IN VARCHAR2,
322 P_ASSIGNEE_ID_PREV		IN NUMBER,
323 P_ASSIGNEE_ID_CURR		IN NUMBER,
324 P_ASSIGNEE_TYPE_PREV		IN VARCHAR2,
325 P_ASSIGNEE_TYPE_CURR		IN VARCHAR2,
326 P_SOURCE_OBJECT_ID_PREV		IN NUMBER,
327 P_SOURCE_OBJECT_ID_CURR		IN NUMBER,
328 P_SOURCE_OBJECT_TYPE_CODE_PREV  IN VARCHAR2,
329 P_SOURCE_OBJECT_TYPE_CODE_CURR  IN VARCHAR2,
330 P_PARENT_WORKITEM_STATUS_PREV	IN VARCHAR2,
331 P_PARENT_WORKITEM_STATUS_CURR	IN VARCHAR2,
332 P_PARENT_DIST_STATUS_PREV	IN VARCHAR2,
333 P_PARENT_DIST_STATUS_CURR	IN VARCHAR2,
334 P_WORKITEM_DIST_STATUS_PREV	IN VARCHAR2,
335 P_WORKITEM_DIST_STATUS_CURR	IN VARCHAR2,
336 P_PRIORITY_PREV			IN VARCHAR2,
337 P_PRIORITY_CURR			IN VARCHAR2,
338 P_DUE_DATE_PREV			IN DATE,
339 P_DUE_DATE_CURR			IN DATE,
340 P_RESCHEDULE_TIME_PREV		IN DATE,
341 P_RESCHEDULE_TIME_CURR		IN DATE,
342 P_IEU_COMMENT_CODE1		IN VARCHAR2,
343 P_IEU_COMMENT_CODE2		IN VARCHAR2,
344 P_IEU_COMMENT_CODE3		IN VARCHAR2,
345 P_IEU_COMMENT_CODE4		IN VARCHAR2,
346 P_IEU_COMMENT_CODE5		IN VARCHAR2,
347 P_WORKITEM_COMMENT_CODE1	IN VARCHAR2,
348 P_WORKITEM_COMMENT_CODE2	IN VARCHAR2,
349 P_WORKITEM_COMMENT_CODE3	IN VARCHAR2,
350 P_WORKITEM_COMMENT_CODE4	IN VARCHAR2,
351 P_WORKITEM_COMMENT_CODE5	IN VARCHAR2,
352 P_STATUS			IN VARCHAR2,
353 P_ERROR_CODE			IN VARCHAR2,
354 x_msg_data			OUT NOCOPY VARCHAR2,
355 x_return_status			OUT NOCOPY VARCHAR2
356 ) is
357 
358 L_AUDIT_LOG_ID NUMBER;
359 
360  begin
361    UPDATE_ROW(
362 	P_AUDIT_LOG_ID,
363 	P_ACTION_KEY,
364 	P_EVENT_KEY,
365 	P_MODULE,
366 	P_WS_CODE,
367 	P_APPLICATION_ID,
368 	P_WORKITEM_PK_ID,
369 	P_WORKITEM_OBJ_CODE,
370 	P_WORK_ITEM_STATUS_PREV,
371 	P_WORK_ITEM_STATUS_CURR,
372 	P_OWNER_ID_PREV,
373 	P_OWNER_ID_CURR,
374 	P_OWNER_TYPE_PREV,
375 	P_OWNER_TYPE_CURR,
376 	P_ASSIGNEE_ID_PREV,
377 	P_ASSIGNEE_ID_CURR,
378 	P_ASSIGNEE_TYPE_PREV,
379 	P_ASSIGNEE_TYPE_CURR,
380 	P_SOURCE_OBJECT_ID_PREV,
381 	P_SOURCE_OBJECT_ID_CURR,
382 	P_SOURCE_OBJECT_TYPE_CODE_PREV,
383 	P_SOURCE_OBJECT_TYPE_CODE_CURR,
384 	P_PARENT_WORKITEM_STATUS_PREV,
385 	P_PARENT_WORKITEM_STATUS_CURR,
386 	P_PARENT_DIST_STATUS_PREV,
387 	P_PARENT_DIST_STATUS_CURR,
388 	P_WORKITEM_DIST_STATUS_PREV,
389 	P_WORKITEM_DIST_STATUS_CURR,
390 	P_PRIORITY_PREV,
391 	P_PRIORITY_CURR,
392 	P_DUE_DATE_PREV,
393 	P_DUE_DATE_CURR,
394 	P_RESCHEDULE_TIME_PREV,
395 	P_RESCHEDULE_TIME_CURR,
396 	P_IEU_COMMENT_CODE1,
397 	P_IEU_COMMENT_CODE2,
398 	P_IEU_COMMENT_CODE3,
399 	P_IEU_COMMENT_CODE4,
400 	P_IEU_COMMENT_CODE5,
401 	P_WORKITEM_COMMENT_CODE1,
402 	P_WORKITEM_COMMENT_CODE2,
403 	P_WORKITEM_COMMENT_CODE3,
404 	P_WORKITEM_COMMENT_CODE4,
405 	P_WORKITEM_COMMENT_CODE5,
406 	P_STATUS,
407 	P_ERROR_CODE
408 	);
409 
410    If SQL%NOTFOUND then
411      raise no_data_found;
412    end if;
413  Exception
414    when no_data_found then
415    INSERT_ROW(
416 	P_ACTION_KEY,
417 	P_EVENT_KEY,
418 	P_MODULE,
419 	P_WS_CODE,
420 	P_APPLICATION_ID,
421 	P_WORKITEM_PK_ID,
422 	P_WORKITEM_OBJ_CODE,
423 	P_WORK_ITEM_STATUS_PREV,
424 	P_WORK_ITEM_STATUS_CURR,
425 	P_OWNER_ID_PREV,
426 	P_OWNER_ID_CURR,
427 	P_OWNER_TYPE_PREV,
428 	P_OWNER_TYPE_CURR,
429 	P_ASSIGNEE_ID_PREV,
430 	P_ASSIGNEE_ID_CURR,
431 	P_ASSIGNEE_TYPE_PREV,
432 	P_ASSIGNEE_TYPE_CURR,
433 	P_SOURCE_OBJECT_ID_PREV,
434 	P_SOURCE_OBJECT_ID_CURR,
435 	P_SOURCE_OBJECT_TYPE_CODE_PREV,
436 	P_SOURCE_OBJECT_TYPE_CODE_CURR,
437 	P_PARENT_WORKITEM_STATUS_PREV,
438 	P_PARENT_WORKITEM_STATUS_CURR,
439 	P_PARENT_DIST_STATUS_PREV,
440 	P_PARENT_DIST_STATUS_CURR,
441 	P_WORKITEM_DIST_STATUS_PREV,
442 	P_WORKITEM_DIST_STATUS_CURR,
443 	P_PRIORITY_PREV,
444 	P_PRIORITY_CURR,
445 	P_DUE_DATE_PREV,
446 	P_DUE_DATE_CURR,
447 	P_RESCHEDULE_TIME_PREV,
448 	P_RESCHEDULE_TIME_CURR,
449 	P_IEU_COMMENT_CODE1,
450 	P_IEU_COMMENT_CODE2,
451 	P_IEU_COMMENT_CODE3,
452 	P_IEU_COMMENT_CODE4,
453 	P_IEU_COMMENT_CODE5,
454 	P_WORKITEM_COMMENT_CODE1,
455 	P_WORKITEM_COMMENT_CODE2,
456 	P_WORKITEM_COMMENT_CODE3,
457 	P_WORKITEM_COMMENT_CODE4,
458 	P_WORKITEM_COMMENT_CODE5,
459 	P_STATUS,
460 	P_ERROR_CODE,
461 	L_AUDIT_LOG_ID,
462 	x_msg_data,
463         x_return_status
464 	);
465 
466 END LOAD_ROW;
467 
468 procedure DELETE_ROW (
469  P_WS_CODE IN VARCHAR2
470 ) is
471 begin
472   delete from IEU_UWQM_AUDIT_LOG
473   where WS_CODE = P_WS_CODE;
474 
475   if (sql%notfound) then
476     raise no_data_found;
477   end if;
478 
479 end DELETE_ROW;
480 
481 end IEU_UWQM_AUDIT_LOG_PKG;