[Home] [Help]
1: PACKAGE BODY XTR_AUDIT AS
2: /* $Header: xtraudtb.pls 120.5.12010000.2 2009/12/02 09:52:36 nipant ship $ */
3:
4:
5:
2: /* $Header: xtraudtb.pls 120.5.12010000.2 2009/12/02 09:52:36 nipant ship $ */
3:
4:
5:
6: PROCEDURE XTR_AUDIT_REPORT(
7: errbuf OUT NOCOPY VARCHAR2,
8: retcode OUT NOCOPY VARCHAR2,
9: p_event_group VARCHAR2,
10: p_audit_from_date VARCHAR2,
12: IS
13:
14: cursor AUDIT_EVENTS is
15: select EVENT
16: from XTR_AUDIT_GROUPS
17: where GROUP_CODE = p_event_group
18: and EVENT <> 'AUDIT_GROUP_CODE_ROW';
19:
20: cursor NEW_REQUEST is
17: where GROUP_CODE = p_event_group
18: and EVENT <> 'AUDIT_GROUP_CODE_ROW';
19:
20: cursor NEW_REQUEST is
21: select XTR_AUDIT_SUMMARY_S.nextval
22: from dual;
23:
24:
25: audit_requestion_id NUMBER := 999;
37:
38: FOR event_cur in AUDIT_EVENTS LOOP
39: --dbms_output.put_line('event = '|| event_cur.EVENT);
40: if event_cur.EVENT <> 'TERM DEPOSIT/ADVANCE ADJUSTMENTS' then
41: XTR_AUDIT_RETRIEVE( to_char(fnd_global.user_id),
42: audit_requestion_id,
43: event_cur.EVENT,
44: l_date_from,
45: l_date_to );
53: END LOOP;
54:
55: SUBMIT_AUDIT_REPORT(to_char(audit_requestion_id),p_event_group, p_audit_from_date, p_audit_to_date );
56:
57: END XTR_AUDIT_REPORT;
58:
59: PROCEDURE XTR_AUDIT_RETRIEVE(p_audit_requested_by IN VARCHAR2,
60: p_audit_request_id IN NUMBER,
61: p_event_name IN VARCHAR2,
55: SUBMIT_AUDIT_REPORT(to_char(audit_requestion_id),p_event_group, p_audit_from_date, p_audit_to_date );
56:
57: END XTR_AUDIT_REPORT;
58:
59: PROCEDURE XTR_AUDIT_RETRIEVE(p_audit_requested_by IN VARCHAR2,
60: p_audit_request_id IN NUMBER,
61: p_event_name IN VARCHAR2,
62: p_date_from IN VARCHAR2,
63: p_date_to IN VARCHAR2) is
64:
65: native constant integer := 1;
66: V_MAX_COL constant integer := 60;
67: v_counter binary_integer;
68: v_table_column xtr_audit_columns_v.table_column%TYPE;
69: v_select varchar2(4000);
70: v_num_col integer;
71: v_sql varchar2(4000);
72: v_rec_num binary_integer := 1;
120: upper(nvl(p_key_yn,'N')),
121: upper(column_type)
122: --* Bug#3121210, rravunny
123: --*decode(event,'INTERGROUP TRANSFERS',decode(nvl(P_KEY_YN, 'N'),'Y',decode(table_column,'DEAL_NUMBER',1,'TRANSACTION_NUMBER',1,0),0),0)
124: from XTR_AUDIT_COLUMNS
125: where event = pc_event
126: and ( nvl(audit_yn, 'N') = 'Y' or
127: nvl(P_KEY_YN, 'N') = 'Y' )
128: --* Bug#3121210, rravunny
335: -- Insert any differences between individual columns
336: --
337: FOR v_counter IN 1..v_num_col LOOP
338: IF nvl(v_old(v_counter),'JJ') <> nvl(v_new(v_counter),'JJ') THEN
339: insert into XTR_AUDIT_SUMMARY(
340: AUDIT_REQUESTED_BY,
341: AUDIT_REQUEST_ID,
342: AUDIT_REQUESTED_ON,
343: AUDIT_RECORDS_FROM,
375:
376: IF v_new_created_on between
377: to_date(p_date_from, 'DD/MM/YYYY HH24:MI:SS') and
378: to_date(p_date_to , 'DD/MM/YYYY HH24:MI:SS') THEN
379: insert into XTR_AUDIT_SUMMARY(
380: AUDIT_REQUESTED_BY,
381: AUDIT_REQUEST_ID,
382: AUDIT_REQUESTED_ON,
383: AUDIT_RECORDS_FROM,
424: v_rec_num := v_rec_num + 1;
425: END LOOP;
426: dbms_sql.close_cursor(v_cursor);
427: --
428: END XTR_AUDIT_RETRIEVE;
429:
430: PROCEDURE XTR_TERM_ACTIONS_RETRIEVE(p_audit_requested_by IN VARCHAR2,
431: p_audit_request_id IN NUMBER,
432: p_event_name IN VARCHAR2,
434: p_date_to IN VARCHAR2)
435: IS
436: BEGIN
437:
438: insert into XTR_AUDIT_SUMMARY(
439: AUDIT_REQUESTED_BY,
440: AUDIT_REQUEST_ID,
441: AUDIT_REQUESTED_ON,
442: AUDIT_RECORDS_FROM,
599: END IF;
600:
601: END SUBMIT_AUDIT_REPORT;
602:
603: END XTR_AUDIT;