[Home] [Help]
PACKAGE BODY: APPS.IEX_DEL_CREATE_EVT_PVT
Source
1 PACKAGE BODY IEX_DEL_CREATE_EVT_PVT AS
2 /* $Header: iexdevtb.pls 120.0 2005/06/15 17:39:39 acaraujo noship $ */
3
4 PG_DEBUG NUMBER(2) := TO_NUMBER(NVL(FND_PROFILE.value('IEX_DEBUG_LEVEL'), '20'));
5 l_enabled varchar2(5) := 'N';
6
7 PROCEDURE RAISE_EVENT(
8 ERRBUF OUT NOCOPY VARCHAR2,
9 RETCODE OUT NOCOPY VARCHAR2,
10 P_REQUEST_ID IN NUMBER) IS
11
12
13 l_parameter_list wf_parameter_list_t;
14 l_key VARCHAR2(240);
15 l_seq NUMBER;
16 l_event_name varchar2(240) := 'oracle.apps.iex.delinquency.create';
17 l_evt_ctr NUMBER ;
18 l_request_id NUMBER;
19
20 cursor c_get_del(l_request_id IN NUMBER) is
21 select party_cust_id,delinquency_id,status,
22 cust_account_id,customer_site_use_id,
23 payment_schedule_id,case_id
24 from iex_delinquencies
25 where request_id = l_request_id;
26
27
28
29 BEGIN
30 l_request_id :=p_request_id;
31 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Start Raise Delinquency Event Concurrent program');
32 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Program Run Date:'||SYSDATE);
33 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '***********************************************');
34 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'PARAMETERS');
35 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Request Id = ' ||l_request_id);
36 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '***********************************************');
37
38
39 --Event Counter
40 l_evt_ctr :=0;
41 for i in c_get_del(l_request_id)
42 LOOP
43 select iex_del_wf_s.nextval INTO l_seq from dual;
44 l_key := l_event_name ||'-'||i.delinquency_id || '-'||l_seq;
45 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
46 write_log(FND_LOG.LEVEL_STATEMENT,' EVENT KEY ' ||l_key );
47 write_log(FND_LOG.LEVEL_STATEMENT,'****************************************');
48 write_log(FND_LOG.LEVEL_STATEMENT,
49 ' STATUS =' ||i.status
50 ||' PARTY = ' ||i.party_cust_id
51 ||' ACCOUNT = ' ||i.cust_account_id
52 ||' BILL_TO =' ||i.customer_site_use_id
53 ||' PAYMENT SCHEDULE ='||i.payment_schedule_id
54 ||' CASE =' ||i.case_id
55 ||' DELINQUENCY = ' ||i.delinquency_id
56 );
57
58 END IF;
59
60 wf_event.AddParameterToList('PARTY_ID',
61 to_char(i.party_cust_id),
62 l_parameter_list);
63 wf_event.AddParameterToList('COLLECTION_STATUS',
64 i.status,
65 l_parameter_list);
66 wf_event.AddParameterToList('ACCOUNT_ID',
67 to_char(i.cust_account_id),
68 l_parameter_list);
69 wf_event.AddParameterToList('BILL_TO_ID',
70 to_char(i.customer_site_use_id),
71 l_parameter_list);
72 wf_event.AddParameterToList('PAYMENT SCHEDULE_ID',
73 to_char(i.payment_schedule_id),
74 l_parameter_list);
75 wf_event.AddParameterToList('CASE_ID',
76 to_char(i.case_id),
77 l_parameter_list);
78 wf_event.AddParameterToList('DELINQUENCY_ID',
79 to_char(i.delinquency_id),
80 l_parameter_list);
81
82
83 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
84 write_log(FND_LOG.LEVEL_STATEMENT,
85 ' Before Launching Event ');
86 END IF;
87
88 wf_event.raise(p_event_name => l_event_name
89 ,p_event_key => l_key
90 ,p_parameters => l_parameter_list);
91
92 COMMIT ;
93
94 l_parameter_list.DELETE;
95 l_evt_ctr:=l_evt_ctr +1;
96 END LOOP;
97
98 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'No of Events raised :'||l_evt_ctr);
99 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'End Raise Delinquency Event Concurrent program');
100 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '***********************************************');
101
102 EXCEPTION
103 WHEN OTHERS THEN
104 write_log(FND_LOG.LEVEL_UNEXPECTED,
105 'Raise Delinquency Event Concurrent program raised exception '
106 || sqlerrm);
107 close c_get_del;
108 END RAISE_EVENT;
109
110 PROCEDURE write_log(mesg_level IN NUMBER, mesg IN VARCHAR2) is
111 l_schema varchar2(10);
112 l_dot varchar2(10);
113 l_module varchar2(10);
114 BEGIN
115 if (mesg_level >= l_msgLevel) then
116 fnd_file.put_line(FND_FILE.LOG, mesg);
117 end if;
118 END write_log;
119
120 BEGIN
121 l_enabled := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'), 'N');
122 if (l_enabled = 'N') then
123 l_MsgLevel := FND_LOG.LEVEL_UNEXPECTED;
124 else
125 l_MsgLevel := NVL(to_number(FND_PROFILE.VALUE('AFLOG_LEVEL')), FND_LOG.LEVEL_UNEXPECTED);
126 end if;
127
128
129 END IEX_DEL_CREATE_EVT_PVT;