[Home] [Help]
PACKAGE BODY: APPS.IEX_UWQ_POP_SUM_TBL_PVT
Source
1 PACKAGE BODY IEX_UWQ_POP_SUM_TBL_PVT AS
2 /* $Header: iexvuwpb.pls 120.41.12020000.4 2012/11/30 10:04:17 snuthala ship $ */
3
4 g_pkg_name constant VARCHAR2(30) := 'IEX_UWQ_POP_SUM_TBL_PVT';
5 g_file_name constant VARCHAR2(12) := 'iexvuwpb.pls';
6 G_LOG_ENABLED varchar2(5);
7 G_MSG_LEVEL NUMBER;
8 G_Batch_Size NUMBER := to_number(nvl(fnd_profile.value('IEX_BATCH_SIZE'), '100000'));
9 --Begin Bug 8707923 27-Jul-2009 barathsr
10 G_SYSTEM_LEVEL varchar2(100);
11 G_PARTY_LVL_ENB varchar2(1);
12 G_OU_LVL_ENB varchar2(1);
13 G_LEVEL_COUNT number:=0;
14 --End Bug 8707923 27-Jul-2009 barathsr
15
16 /*deadlock_detected EXCEPTION;
17 PRAGMA EXCEPTION_INIT(deadlock_detected, -60);*/
18
19 TYPE number_list is TABLE of NUMBER INDEX BY BINARY_INTEGER;
20 TYPE varchar_10_list is TABLE of VARCHAR2(10) INDEX BY BINARY_INTEGER;
21 TYPE varchar_20_list is TABLE of VARCHAR2(20) INDEX BY BINARY_INTEGER;
22 TYPE varchar_30_list is TABLE of VARCHAR2(30) INDEX BY BINARY_INTEGER;
23 TYPE varchar_40_list is TABLE of VARCHAR2(40) INDEX BY BINARY_INTEGER;
24 TYPE varchar_60_list is TABLE of VARCHAR2(60) INDEX BY BINARY_INTEGER;
25 TYPE varchar_80_list is TABLE of VARCHAR2(80) INDEX BY BINARY_INTEGER;
26 TYPE varchar_240_list is TABLE of VARCHAR2(240) INDEX BY BINARY_INTEGER;
27 TYPE varchar_360_list is TABLE of VARCHAR2(360) INDEX BY BINARY_INTEGER;
28 TYPE varchar_2020_list is TABLE of VARCHAR2(2020) INDEX BY BINARY_INTEGER;
29 TYPE date_list is TABLE of DATE INDEX BY BINARY_INTEGER;
30 PROCEDURE populate_aging_info(p_fmode varchar2, p_from_date date,p_org_id number); -- Added for bug#7662453
31 PROCEDURE populate_contracts_info; -- Added for bug#8261043
32 PROCEDURE insert_conc_req IS
33 BEGIN
34 DELETE from AR_CONC_PROCESS_REQUESTS
35 where CONCURRENT_PROGRAM_NAME = 'IEX_POPULATE_UWQ_SUM';
36
37 INSERT INTO AR_CONC_PROCESS_REQUESTS
38 (CONCURRENT_PROGRAM_NAME, REQUEST_ID)
39 values ('IEX_POPULATE_UWQ_SUM',FND_GLOBAL.conc_request_id);
40 COMMIT;
41 END insert_conc_req;
42
43
44 Procedure LogMessage(p_msg_level IN NUMBER, p_msg in varchar2)
45 IS
46 BEGIN
47 if (p_msg_level >= G_MSG_LEVEL) then
48
49 FND_LOG.STRING(p_msg_level, G_PKG_NAME, p_msg);
50 if FND_GLOBAL.Conc_Request_Id is not null then
51 fnd_file.put_line(FND_FILE.LOG, p_msg);
52 end if;
53
54 end if;
55
56 EXCEPTION
57 WHEN OTHERS THEN
58 LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: ' || sqlerrm);
59 END LogMessage;
60
61 -- Begin Bug13987015 by bibeura
62 -- This function checks if event subscriptions are enabled and IEX: Delinquencies Management concurrent program is running
63 FUNCTION is_incompatible RETURN BOOLEAN
64 IS
65 l_noof_active_busi_events NUMBER;
66 l_count NUMBER;
67
68 BEGIN
69
70 SELECT COUNT(we.name)
71 INTO l_noof_active_busi_events
72 FROM wf_event_subscriptions wes,
73 wf_events we,
74 fnd_application fa
75 WHERE we.guid = wes.event_filter_guid
76 AND we.name LIKE 'oracle.apps.ar.%'
77 AND fa.application_id = 695
78 AND WES.owner_tag = fa.application_short_name
79 AND wes.status = 'ENABLED'
80 AND we.status = 'ENABLED';
81
82 iex_debug_pub.logmessage( 'l_noof_active_busi_events: '||l_noof_active_busi_events );
83 FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_noof_active_busi_events: '||l_noof_active_busi_events);
84
85 IF ( l_noof_active_busi_events > 0 ) THEN
86 SELECT count(1) INTO l_count
87 FROM fnd_concurrent_requests
88 WHERE concurrent_program_id = ( SELECT concurrent_program_id
89 FROM fnd_concurrent_programs_vl
90 WHERE concurrent_program_name = 'IEXDLMGB')
91 AND ((phase_code = 'R') OR (phase_code = 'P' AND status_code = 'C'));
92
93 iex_debug_pub.logmessage( 'l_count :'||l_count );
94 FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_count: '||l_count);
95 IF l_count > 0 THEN
96 RETURN TRUE;
97 ELSE
98 RETURN FALSE;
99 END IF;
100 ELSE
101 RETURN FALSE;
102 END IF;
103
104 EXCEPTION
105 WHEN OTHERS THEN
106 iex_debug_pub.logmessage('Error Found in function is_incompatible');
107 END is_incompatible;
108 -- End Bug13987015 by bibeura
109
110 --Begin Bug 9597052 28-Apr-2010 barathsr
111 --Created a new concurrent program IEX: Update AR Transactions Summary Table to call this procedure
112 --Removed all the calls to this procedure in this package
113 --This concurrent program should be run everytime before running IEX: Populate Uwq Summary table cp
114 --Begin Bug 8707932 27-Jul-2009 barathsr
115 --Moved the update of ar_trx_bal_summ from insert_summary as a separate procedure.
116 --This procedure gets executed everytime the cp is run.
117 procedure update_trx_bal_summ_concur( x_errbuf OUT nocopy VARCHAR2,
118 x_retcode OUT nocopy VARCHAR2)
119
120 /* (p_mode in varchar2 default 'CP',
121 p_org_id in number)*/
122 is
123 --Begin bug#7133605 schekuri 09-Jun-2008
124 --Start bug 6876187 gnramasa 14th mar 08
125 CURSOR c_cust_account_id_1 IS
126 SELECT DISTINCT CUST_ACCOUNT_ID FROM AR_TRX_BAL_SUMMARY ARS
127 WHERE ARS.REFERENCE_1 IS Null
128 AND EXISTS (SELECT 1 FROM IEX_DELINQUENCIES_ALL IED WHERE
129 IED.STATUS IN ('DELINQUENT', 'PREDELINQUENT')
130 AND ARS.CUST_ACCOUNT_ID = IED.CUST_ACCOUNT_ID);
131 -- and ied.org_id=nvl(p_org_id,ied.org_id));
132
133 CURSOR c_cust_account_id_n IS
134 SELECT DISTINCT CUST_ACCOUNT_ID FROM AR_TRX_BAL_SUMMARY ARS
135 WHERE ARS.REFERENCE_1 = 1
136 AND NOT EXISTS (SELECT 1 FROM IEX_DELINQUENCIES_ALL IED WHERE
137 IED.STATUS IN ('DELINQUENT', 'PREDELINQUENT')
138 AND ARS.CUST_ACCOUNT_ID = IED.CUST_ACCOUNT_ID);
139 -- and ied.org_id=nvl(p_org_id,ied.org_id));
140
141 TYPE cust_account_id_list_1 is TABLE of NUMBER INDEX BY BINARY_INTEGER;
142 TYPE cust_account_id_list_n is TABLE of NUMBER INDEX BY BINARY_INTEGER;
143
144 l_cust_account_id_1 cust_account_id_list_1;
145 l_cust_account_id_n cust_account_id_list_n;
146
147 --End bug 6876187 gnramasa 14th mar 08
148
149 CURSOR c_cust_account_id_dln(p_cust_account_id number) IS
150 SELECT CUST_ACCOUNT_ID FROM AR_TRX_BAL_SUMMARY ARS
151 WHERE ARS.REFERENCE_1 = 1
152 AND ARS.CUST_ACCOUNT_ID=P_CUST_ACCOUNT_ID
153 AND NOT EXISTS (SELECT 1 FROM IEX_DELINQUENCIES_ALL IED WHERE
154 IED.STATUS IN ('DELINQUENT', 'PREDELINQUENT')
155 AND ARS.CUST_ACCOUNT_ID = IED.CUST_ACCOUNT_ID)
156 -- and ied.org_id=nvl(p_org_id,ied.org_id))
157 for update of reference_1 nowait;
158
159 l_cust_account_id_dln cust_account_id_list_n;
160
161 CURSOR C_CUST_ACCOUNT_ID_DL1(p_cust_account_id number) IS
162 SELECT CUST_ACCOUNT_ID FROM AR_TRX_BAL_SUMMARY ARS
163 WHERE ARS.REFERENCE_1 IS Null
164 AND ARS.CUST_ACCOUNT_ID=P_CUST_ACCOUNT_ID
165 -- and ars.org_id=nvl(p_org_id,ars.org_id)
166 for update of reference_1 nowait;
167 TYPE cust_account_id_list_dl1 is TABLE of NUMBER INDEX BY BINARY_INTEGER;
168 l_cust_account_id_dl1 cust_account_id_list_n;
169 l_cust_account_id1 number;
170 --End bug#7133605 schekuri 09-Jun-200
171
172 begin
173 /* Begin Kasreeni 3/1/2007 Bug 5905023 We will update everytime instead of once */
174 -- if (p_mode = 'CP') then
175 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Updating Reference_1 of AR_TRX_BAL_SUMMARY for Delinquent Customers');
176 --Start bug 6876187 gnramasa 14th mar 08
177 --update ar_trx_bal_summary set reference_1 = 1;
178 --Begin bug#7133605 schekuri 09-Jun-2008
179 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Starting to update ar_trx_bal_summary with reference_1 = 1...');
180 FND_FILE.PUT_LINE(FND_FILE.LOG,'Starting to update ar_trx_bal_summary with reference_1 = 1...');
181 BEGIN
182 OPEN c_cust_account_id_1;
183 LOOP
184 FETCH c_cust_account_id_1 BULK COLLECT INTO
185 l_cust_account_id_1 LIMIT G_BATCH_SIZE;
186 IF l_cust_account_id_1.count = 0 THEN
187
188 IEX_DEBUG_PUB.LOGMESSAGE('Exit after Updating ar_trx_bal_summary with reference_1 = 1...');
189
190 CLOSE c_cust_account_id_1;
191 EXIT;
192 ELSE
193 FORALL I IN l_cust_account_id_1.first..l_cust_account_id_1.last
194 UPDATE AR_TRX_BAL_SUMMARY ARS
195 SET REFERENCE_1 = '1'
196 WHERE CUST_ACCOUNT_ID = l_cust_account_id_1(I)
197 and reference_1 is null;
198 l_cust_account_id_1.delete;
199
200 commit;
201
202 IEX_DEBUG_PUB.LOGMESSAGE(SQL%ROWCOUNT || ' Rows updated in ar_trx_bal_summary with reference_1 = 1');
203 FND_FILE.PUT_LINE(FND_FILE.LOG, ' Rows updated in ar_trx_bal_summary with reference_1 = 1-->'||l_cust_account_id_1.count);
204
205 END IF;
206 END LOOP;
207 EXCEPTION
208
209 WHEN deadlock_detected THEN
210 FND_FILE.PUT_LINE(FND_FILE.LOG, 'Deadlock detected when updating ar_trx_bal_summary.reference to 1' || sqlerrm);
211 LogMessage(FND_LOG.LEVEL_STATEMENT,' Deadlock detected when updating ar_trx_bal_summary.reference to 1.');
212 ROLLBACK;
213 l_cust_account_id_1.delete;
214 if c_cust_account_id_1%ISOPEN then
215 close c_cust_account_id_1;
216 end if;
217 OPEN c_cust_account_id_1;
218 LOOP
219 FETCH c_cust_account_id_1 BULK COLLECT INTO
220 l_cust_account_id_1 LIMIT G_BATCH_SIZE;
221 IF l_cust_account_id_1.count = 0 THEN
222 IEX_DEBUG_PUB.LOGMESSAGE('Exit after Updating ar_trx_bal_summary with reference_1 = 1 in Deadlock handler');
223 CLOSE c_cust_account_id_1;
224 EXIT;
225 ELSE
226 FOR i IN l_cust_account_id_1.first..l_cust_account_id_1.last
227 LOOP
228 BEGIN
229 OPEN C_CUST_ACCOUNT_ID_DL1(l_cust_account_id_1(i));
230 FETCH C_CUST_ACCOUNT_ID_DL1 into l_cust_account_id1;
231 EXIT WHEN C_CUST_ACCOUNT_ID_DL1%NOTFOUND;
232 UPDATE AR_TRX_BAL_SUMMARY
233 SET REFERENCE_1 = '1'
234 WHERE cust_account_id=l_cust_account_id1
235 and REFERENCE_1 is null;
236 FND_FILE.PUT_LINE(FND_FILE.LOG,'updated records- '||l_cust_account_id_1.count);
237
238 CLOSE C_CUST_ACCOUNT_ID_DL1;
239 EXCEPTION
240 WHEN LOCKED_BY_ANOTHER_SESSION THEN
241 LogMessage(FND_LOG.LEVEL_STATEMENT,'Records corresponding to account id '||l_cust_account_id_1(i)|| ' are locked by another session');
242 if C_CUST_ACCOUNT_ID_DL1%ISOPEN THEN
243 CLOSE C_CUST_ACCOUNT_ID_DL1;
244 END IF;
245 WHEN OTHERS THEN
246 LogMessage(FND_LOG.LEVEL_STATEMENT,'Error while updating reference_1 to 1 in Dead lock handler '||sqlerrm);
247 IF C_CUST_ACCOUNT_ID_DL1%ISOPEN THEN
248 CLOSE C_CUST_ACCOUNT_ID_DL1;
249 END IF;
250 END;
251
252 END LOOP;
253
254 IEX_DEBUG_PUB.LOGMESSAGE(l_cust_account_id_1.count || ' rows updated in ar_trx_bal_summary with reference_1 = 1');
255 l_cust_account_id_1.delete;
256 commit;
257
258 END IF;
259 END LOOP;
260 WHEN locked_by_another_session THEN
261 FND_FILE.PUT_LINE(FND_FILE.LOG,'Locked by another session when updating ar_trx_bal_summary.reference to 1');
262 if c_cust_account_id_1%ISOPEN then
263 close c_cust_account_id_1;
264 end if;
265 ROLLBACK;
266
267 WHEN OTHERS THEN
268 IEX_DEBUG_PUB.LOGMESSAGE(SQLERRM || ' Error while updating ar_trx_bal_summary with reference_1 = 1');
269 END;
270
271 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Starting to update ar_trx_bal_summary with reference_1 = Null...');
272 BEGIN
273 OPEN c_cust_account_id_n;
274 LOOP
275 FETCH c_cust_account_id_n BULK COLLECT INTO
276 l_cust_account_id_n LIMIT G_BATCH_SIZE;
277 IF l_cust_account_id_n.count = 0 THEN
278 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Exit after Update ar_trx_bal_summary on complete with reference_1 = Null...');
279 -- FND_FILE.PUT_LINE(FND_FILE.LOG,SQL%ROWCOUNT || ' Rows updated in ar_trx_bal_summary with reference_1 = Null');
280 CLOSE c_cust_account_id_n;
281 EXIT;
282 ELSE
283 FORALL I IN l_cust_account_id_n.first..l_cust_account_id_n.last
284 UPDATE AR_TRX_BAL_SUMMARY ARS
285 SET REFERENCE_1 = Null
286 WHERE CUST_ACCOUNT_ID = l_cust_account_id_n(I)
287 and reference_1='1';
288 l_cust_account_id_n.delete;
289 commit;
290 FND_FILE.PUT_LINE(FND_FILE.LOG,' Rows updated in ar_trx_bal_summary with reference_1 = Null->'||l_cust_account_id_n.count);
291 LogMessage(FND_LOG.LEVEL_UNEXPECTED,l_cust_account_id_n.count || 'Rows updated in ar_trx_bal_summary with reference_1 = Null');
292 END IF;
293 END LOOP;
294 EXCEPTION
295 WHEN deadlock_detected THEN
296 FND_FILE.PUT_LINE(FND_FILE.LOG, 'Deadlock detected when updating ar_trx_bal_summary.reference to null' || sqlerrm);
297 LogMessage(FND_LOG.LEVEL_STATEMENT,' Deadlock detected when updating ar_trx_bal_summary.reference to null.');
298 ROLLBACK;
299 l_cust_account_id_n.delete;
300 if c_cust_account_id_n%ISOPEN then
301 close c_cust_account_id_n;
302 end if;
303 OPEN c_cust_account_id_n;
304 LOOP
305 FETCH c_cust_account_id_n BULK COLLECT INTO
306 l_cust_account_id_n LIMIT G_BATCH_SIZE;
307 IF l_cust_account_id_n.count = 0 THEN
308 IEX_DEBUG_PUB.LOGMESSAGE('Exit after Updating ar_trx_bal_summary with reference_1 = null in Deadlock handler');
309 CLOSE c_cust_account_id_n;
310 EXIT;
311 ELSE
312 FOR i IN l_cust_account_id_n.first..l_cust_account_id_n.last
313 LOOP
314 BEGIN
315 OPEN C_CUST_ACCOUNT_ID_DLN(l_cust_account_id_n(i));
316 FETCH C_CUST_ACCOUNT_ID_DLN into l_cust_account_id1;
317 EXIT WHEN C_CUST_ACCOUNT_ID_DLN%NOTFOUND;
318 UPDATE AR_TRX_BAL_SUMMARY
319 SET REFERENCE_1 = null
320 WHERE cust_account_id=l_cust_account_id1
321 and REFERENCE_1 = '1';
322 FND_FILE.PUT_LINE(FND_FILE.LOG,'updated records '||sql%rowcount);
323
324 CLOSE C_CUST_ACCOUNT_ID_DLN;
325 EXCEPTION
326 WHEN LOCKED_BY_ANOTHER_SESSION THEN
327 LogMessage(FND_LOG.LEVEL_STATEMENT,'Records corresponding to account id '||l_cust_account_id_n(i)|| ' are locked by another session');
328 if C_CUST_ACCOUNT_ID_DLN%ISOPEN THEN
329 CLOSE C_CUST_ACCOUNT_ID_DLN;
330 END IF;
331 WHEN OTHERS THEN
332 LogMessage(FND_LOG.LEVEL_STATEMENT,'Error while updating reference_1 to 1 in Dead lock handler '||sqlerrm);
333 IF C_CUST_ACCOUNT_ID_DLN%ISOPEN THEN
334 CLOSE C_CUST_ACCOUNT_ID_DLN;
335 END IF;
336 END;
337
338 END LOOP;
339
340 IEX_DEBUG_PUB.LOGMESSAGE(l_cust_account_id_1.count || ' rows updated in ar_trx_bal_summary with reference_1 = 1');
341 l_cust_account_id_1.delete;
342 commit;
343
344 END IF;
345 END LOOP;
346 WHEN locked_by_another_session THEN
347 FND_FILE.PUT_LINE(FND_FILE.LOG,'Locked by another session when updating ar_trx_bal_summary.reference to 1');
348 if c_cust_account_id_1%ISOPEN then
349 close c_cust_account_id_1;
350 end if;
351 ROLLBACK;
352 WHEN OTHERS THEN
353 LogMessage(FND_LOG.LEVEL_UNEXPECTED,SQLERRM || ' Error while updating ar_trx_bal_summary with reference_1 = Null');
354 END;
355
356 --End bug 6876187 gnramasa 14th mar 08
357 --End bug#7133605 schekuri 09-Jun-2008
358
359 /*update ar_trx_bal_summary set reference_1 = '1'
360 where cust_account_id in
361 ( select distinct cust_account_id
362 from iex_delinquencies_all
363 where status in ('DELINQUENT','PREDELINQUENT'));*/
364 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Done updating Reference_1 of AR_TRX_BAL_SUMMARY ');
365
366 -- end if;
367 /* End Kasreeni 3/1/2007 Bug 5905023 We will update everytime instead of once */
368 end update_trx_bal_summ_concur;
369 --End Bug 8707932 27-Jul-2009 barathsr
370 --End Bug 9597052 28-Apr-2010 barathsr
371
372
373 --Begin Bug 8707932 27-Jul-2009 barathsr
374 --Moved delete/truncate from dln_uwq_summary from insert_summary procedure into a separate procedure.
375 --This procedure gets executed when from_date is null/not null
376 --when from_date not null the corresponding records are deleted and repopulated if there are any updates after the date passed as parameter.
377 Procedure delete_rows_from_uwq_summ(from_date in varchar2,
378 p_org_id in number,
379 p_truncate_table in varchar2,
380 l_return_status IN OUT NOCOPY VARCHAR2
381 )
382 is
383
384 --CURSOR c_get_table IS
385 --select OWNER || '.' || TABLE_NAME from sys.all_tables where table_name = 'IEX_DLN_UWQ_SUMMARY';
386
387 l_out_status varchar2(100);
388 l_out_industry varchar2(100);
389 l_out_oracle_schema varchar2(100);
390 x boolean;
391
392 CURSOR c_org(c_org_id number) IS
393 SELECT organization_id from hr_operating_units where
394 mo_global.check_access(organization_id) = 'Y'
395 AND organization_id = nvl(c_org_id,organization_id);
396
397 --Begin Bug 8942646 12-Oct-2009 barathsr
398 CURSOR c_get_level IS
399 SELECT PREFERENCE_VALUE
400 FROM IEX_APP_PREFERENCES_B
401 WHERE PREFERENCE_NAME = 'COLLECTIONS STRATEGY LEVEL'
402 and enabled_flag='Y'
403 and org_id is null;
404
405 CURSOR c_allowed_levels IS
406 SELECT LOOKUP_CODE
407 FROM IEX_LOOKUPS_V
408 WHERE LOOKUP_TYPE='IEX_RUNNING_LEVEL'
409 AND iex_utilities.validate_running_level(LOOKUP_CODE)='Y';
410
411 cursor c_get_ou_biz_lvl(c_org_id number) is
412 SELECT PREFERENCE_VALUE
413 FROM IEX_APP_PREFERENCES_B
414 WHERE PREFERENCE_NAME = 'COLLECTIONS STRATEGY LEVEL'
415 and (org_id=c_org_id or org_id is null)
416 and enabled_flag='Y'
417 order by nvl(org_id,0) desc ;
418
419 --End Bug 8942646 12-Oct-2009 barathsr
420
421
422
423 l_truncate_table VARCHAR2(60);
424 l_org_id number;
425 l_cnt number;
426 l_cnt1 number;
427 l_allowed_lvl varchar2(20);
428 l_curr_org_id number;
429 l_from_date date;
430 l_return boolean;
431 begin
432 --if (l_from_date is null and p_mode = 'CP' and G_LEVEL_COUNT=0 ) then --Bug5691098
433 -- LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Fully repopulating IEX_DLN_UWQ_SUMMARY table...');
434
435 /* if p_org_id is null and G_OU_LVL_ENB='Y' then
436 FND_FILE.PUT_LINE(FND_FILE.LOG, 'Missing Org_id value to set the multi level strategy at OU..Please pass the org_id value' );
437 LogMessage(FND_LOG.LEVEL_STATEMENT, 'Missing Org_id value to set the multi level strategy at OU..Please pass the org_id value');
438 return;
439 end if;*/--will be handled in parameter window
440
441 --Begin Bug 8942646 12-Oct-2009 barathsr
442 --Handling when from_date not null also in this proc
443
444 l_return_status := 'S';
445 l_from_date := to_date(substr(FROM_DATE, 1, 10), 'YYYY/MM/DD');
446 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Input FROM_DATE = ' || l_from_date);
447 FND_FILE.PUT_LINE(FND_FILE.LOG,'Input FROM_DATE = ' || l_from_date);
448
449 x := fnd_installation.get_app_info ('FND',l_out_status,l_out_industry,l_out_oracle_schema);
450 LogMessage(FND_LOG.LEVEL_STATEMENT,'IEX Schema:'||l_out_oracle_schema);
451
452
453 if (G_OU_LVL_ENB='Y' or G_PARTY_LVL_ENB='Y') then
454 if G_OU_LVL_ENB='Y' then
455 mo_global.init('IEX');
456 if p_org_id is null then
457 MO_GLOBAL.SET_POLICY_CONTEXT('M',NULL); -- Multi Org.
458 FND_FILE.PUT_LINE(FND_FILE.LOG, 'MO: Operating Unit=' || 'All');
459 --open c_org(l_org_id);
460 else
461 MO_GLOBAL.SET_POLICY_CONTEXT('S',p_ORG_ID);
462 end if;
463
464 for i in c_org(p_org_id) loop
465 l_curr_org_id:=i.organization_id;
466 FND_FILE.PUT_LINE(FND_FILE.LOG, 'org_id is-->'||l_curr_org_id);
467 if (l_from_date is null and p_truncate_table='Y') then
468 /*OPEN c_get_table;
469 FETCH c_get_table INTO l_truncate_table;
470 CLOSE c_get_table;
471 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'truncate table ' || l_truncate_table);
472 EXECUTE IMMEDIATE 'truncate table ' || l_truncate_table;*/
473 LogMessage(FND_LOG.LEVEL_STATEMENT,'Truncating IEX_DLN_UWQ_SUMMARY');
474 ad_ddl.do_ddl( l_out_oracle_schema,
475 'IEX',
476 AD_DDL.TRUNCATE_TABLE,
477 'TRUNCATE TABLE IEX_DLN_UWQ_SUMMARY',
478 'IEX_DLN_UWQ_SUMMARY' );
479
480 LogMessage(FND_LOG.LEVEL_STATEMENT,'Truncated IEX_DLN_UWQ_SUMMARY');
481 elsif l_from_date is null then
482 delete from iex_dln_uwq_summary
483 where org_id=l_curr_org_id;
484 elsif l_from_date is not null then
485
486 FND_FILE.PUT_LINE(FND_FILE.LOG,'records deleted for org_id-'||l_curr_org_id);
487
488 open c_get_ou_biz_lvl(l_curr_org_id);
489 fetch c_get_ou_biz_lvl into G_SYSTEM_LEVEL;
490 close c_get_ou_biz_lvl;
491 FND_FILE.PUT_LINE(FND_FILE.LOG, 'OU lvl is-->'||G_SYSTEM_LEVEL);
492
493 for r_allowed_levels in c_allowed_levels loop
494 l_allowed_lvl:=r_allowed_LEVELS.lookup_code;
495 FND_FILE.PUT_LINE(FND_FILE.LOG,'looping for other levels in ou-->'||r_allowed_LEVELS.lookup_code);
496 if (g_party_lvl_enb='N' and l_allowed_lvl=g_system_level) or g_party_lvl_enb='Y' then
497 IF l_allowed_lvl = 'CUSTOMER' THEN
498 FND_FILE.PUT_LINE(FND_FILE.LOG,'Deleting records at Customer level--in OU');
499 delete from IEX_DLN_UWQ_SUMMARY where (party_id,org_id) in
500 (select hza.party_id,trb.org_id from ar_trx_bal_summary trb, hz_cust_accounts hza
501 where hza.cust_account_id = trb.cust_account_id and trunc(trb.LAST_UPDATE_DATE) >= trunc(l_from_date)
502 and trb.org_id=nvl(l_curr_org_id,trb.org_id))
503 and cust_account_id is null and site_use_id is null;--Added for Bug 8707923 27-Jul-2009 barathsr
504 FND_FILE.PUT_LINE(FND_FILE.LOG,'No. of records deleted at Cust level-->'||sql%rowcount);
505 ELSIF l_allowed_lvl = 'ACCOUNT' THEN
506 FND_FILE.PUT_LINE(FND_FILE.LOG,'Deleting records at Account level--in OU');
507 delete from IEX_DLN_UWQ_SUMMARY where (cust_account_id, org_id) in
508 (select cust_account_id, org_id from ar_trx_bal_summary trb where trunc(LAST_UPDATE_DATE) >= trunc(l_from_date)
509 and trb.org_id=nvl(l_curr_org_id,trb.org_id))
510 and site_use_id is null;--Added for Bug 8707923 27-Jul-2009 barathsr
511 FND_FILE.PUT_LINE(FND_FILE.LOG,'No. of records deleted at A/c level-->'||sql%rowcount);
512 ELSIF l_allowed_lvl = 'BILL_TO' THEN
513 FND_FILE.PUT_LINE(FND_FILE.LOG,'Deleting records at BillTo level--in OU');
514 delete from IEX_DLN_UWQ_SUMMARY where (cust_account_id, site_use_id, org_id) in
515 (select cust_account_id, site_use_id, org_id from ar_trx_bal_summary trb where trunc(LAST_UPDATE_DATE) >= trunc(l_from_date)
516 and trb.org_id=nvl(l_curr_org_id,trb.org_id))
517 and site_use_id is not null;--Added for Bug 8707923 27-Jul-2009 barathsr
518 FND_FILE.PUT_LINE(FND_FILE.LOG,'No. of records deleted at Billto level-->'||sql%rowcount);
519 END IF;
520 end if;
521 end loop;
522 end if;
523 end loop;
524
525
526 elsif G_PARTY_LVL_ENB='Y' then
527
528 if (l_from_date is null and p_truncate_table='Y') then
529 /*OPEN c_get_table;
530 FETCH c_get_table INTO l_truncate_table;
531 CLOSE c_get_table;
532 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'truncate table ' || l_truncate_table);
533 EXECUTE IMMEDIATE 'truncate table ' || l_truncate_table;
534 LogMessage(FND_LOG.LEVEL_STATEMENT,'Truncated whole table');*/
535 LogMessage(FND_LOG.LEVEL_STATEMENT,'Truncating IEX_DLN_UWQ_SUMMARY');
536 ad_ddl.do_ddl( l_out_oracle_schema,
537 'IEX',
538 AD_DDL.TRUNCATE_TABLE,
539 'TRUNCATE TABLE IEX_DLN_UWQ_SUMMARY',
540 'IEX_DLN_UWQ_SUMMARY' );
541
542 LogMessage(FND_LOG.LEVEL_STATEMENT,'Truncated IEX_DLN_UWQ_SUMMARY');
543 elsif l_from_date is not null then
544 FND_FILE.PUT_LINE(FND_FILE.LOG,'inside party level');
545 open c_get_level;
546 fetch c_get_level into G_SYSTEM_LEVEL;
547 close c_get_level;
548 FND_FILE.PUT_LINE(FND_FILE.LOG, 'party lvl is-->'||G_SYSTEM_LEVEL);
549 for r_allowed_levels in c_allowed_levels loop
550 l_allowed_lvl:=r_allowed_LEVELS.lookup_code;
551 FND_FILE.PUT_LINE(FND_FILE.LOG,'looping for other levels in party-->'||r_allowed_LEVELS.lookup_code);
552 IF l_allowed_lvl = 'CUSTOMER' THEN
553 FND_FILE.PUT_LINE(FND_FILE.LOG,'Deleting records at Customer level--in party ');
554 delete from IEX_DLN_UWQ_SUMMARY where (party_id,org_id) in
555 (select hza.party_id,trb.org_id from ar_trx_bal_summary trb, hz_cust_accounts hza
556 where hza.cust_account_id = trb.cust_account_id and trunc(trb.LAST_UPDATE_DATE) >= trunc(l_from_date))
557 -- and trb.org_id=nvl(l_curr_org_id,trb.org_id)
558 and cust_account_id is null and site_use_id is null;--Added for Bug 8707923 27-Jul-2009 barathsr
559 FND_FILE.PUT_LINE(FND_FILE.LOG,'No. of records deleted at Cust level-->'||sql%rowcount);
560 ELSIF l_allowed_lvl = 'ACCOUNT' THEN
561 FND_FILE.PUT_LINE(FND_FILE.LOG,'Deleting records at Account level--in party ');
562 delete from IEX_DLN_UWQ_SUMMARY where (cust_account_id, org_id) in
563 (select cust_account_id, org_id from ar_trx_bal_summary trb where trunc(LAST_UPDATE_DATE) >= trunc(l_from_date))
564 -- and trb.org_id=nvl(l_curr_org_id,trb.org_id)
565 and site_use_id is null;--Added for Bug 8707923 27-Jul-2009 barathsr
566 FND_FILE.PUT_LINE(FND_FILE.LOG,'No. of records deleted at A/C level-->'||sql%rowcount);
567 ELSIF l_allowed_lvl = 'BILL_TO' THEN
568 FND_FILE.PUT_LINE(FND_FILE.LOG,'Deleting records at BillTo level--in party ');
569 delete from IEX_DLN_UWQ_SUMMARY where (cust_account_id, site_use_id, org_id) in
570 (select cust_account_id, site_use_id, org_id from ar_trx_bal_summary trb where trunc(LAST_UPDATE_DATE) >= trunc(l_from_date))
571 -- and trb.org_id=nvl(l_curr_org_id,trb.org_id))
572 and site_use_id is not null;--Added for Bug 8707923 27-Jul-2009 barathsr
573 FND_FILE.PUT_LINE(FND_FILE.LOG,'No. of records deleted at Billto level-->'||sql%rowcount);
574 END IF;
575 end loop;
576 end if;
577 end if;
578
579 else
580
581 if (l_from_date is null and p_truncate_table='Y') then
582 /*OPEN c_get_table;
583 FETCH c_get_table INTO l_truncate_table;
584 CLOSE c_get_table;
585 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'truncate table ' || l_truncate_table);
586 EXECUTE IMMEDIATE 'truncate table ' || l_truncate_table;
587 LogMessage(FND_LOG.LEVEL_STATEMENT,'Truncated whole table');*/
588 LogMessage(FND_LOG.LEVEL_STATEMENT,'Truncating IEX_DLN_UWQ_SUMMARY');
589 ad_ddl.do_ddl( l_out_oracle_schema,
590 'IEX',
591 AD_DDL.TRUNCATE_TABLE,
592 'TRUNCATE TABLE IEX_DLN_UWQ_SUMMARY',
593 'IEX_DLN_UWQ_SUMMARY' );
594
595 LogMessage(FND_LOG.LEVEL_STATEMENT,'Truncated IEX_DLN_UWQ_SUMMARY');
596 elsif l_from_date is not null then
597 open c_get_level;
598 fetch c_get_level into G_SYSTEM_LEVEL;
599 FND_FILE.PUT_LINE(FND_FILE.LOG,'inside system level-->'||G_SYSTEM_LEVEL);
600 if G_SYSTEM_LEVEL is not null then
601 IF g_system_level = 'CUSTOMER' THEN
602 FND_FILE.PUT_LINE(FND_FILE.LOG,'Deleting records at Customer level--in sys lvl ');
603 delete from IEX_DLN_UWQ_SUMMARY where (party_id,org_id) in
604 (select hza.party_id,trb.org_id from ar_trx_bal_summary trb, hz_cust_accounts hza
605 where hza.cust_account_id = trb.cust_account_id and trunc(trb.LAST_UPDATE_DATE) >= trunc(l_from_date))
606 -- and trb.org_id=nvl(l_curr_org_id,trb.org_id)
607 and cust_account_id is null and site_use_id is null;--Added for Bug 8707923 27-Jul-2009 barathsr
608 ELSIF g_system_level = 'ACCOUNT' THEN
609 FND_FILE.PUT_LINE(FND_FILE.LOG,'Deleting records at Account level--in sys lvl ');
610 delete from IEX_DLN_UWQ_SUMMARY where (cust_account_id, org_id) in
611 (select cust_account_id, org_id from ar_trx_bal_summary trb where trunc(LAST_UPDATE_DATE) >= trunc(l_from_date))
612 -- and trb.org_id=nvl(l_curr_org_id,trb.org_id)
613 and site_use_id is null;--Added for Bug 8707923 27-Jul-2009 barathsr
614 ELSIF g_system_level = 'BILL_TO' THEN
615 FND_FILE.PUT_LINE(FND_FILE.LOG,'Deleting records at BillTo level--in sys lvl');
616 delete from IEX_DLN_UWQ_SUMMARY where (cust_account_id, site_use_id, org_id) in
617 (select cust_account_id, site_use_id, org_id from ar_trx_bal_summary trb where trunc(LAST_UPDATE_DATE) >= trunc(l_from_date))
618 -- and trb.org_id=nvl(l_curr_org_id,trb.org_id))
619 and site_use_id is not null;--Added for Bug 8707923 27-Jul-2009 barathsr
620 END IF;
621 end if;
622 close c_get_level;
623 end if;
624 end if;
625 --End Bug 8942646 12-Oct-2009 barathsr
626 --Commented for Bug 8942646 12-Oct-2009 barathsr
627 /* if nvl(g_ou_lvl_enb,'N')='N' then
628 if from_date is null then
629 OPEN c_get_table;
630 FETCH c_get_table INTO l_truncate_table;
631 CLOSE c_get_table;
632 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'truncate table ' || l_truncate_table);
633
634 EXECUTE IMMEDIATE 'truncate table ' || l_truncate_table;
635 LogMessage(FND_LOG.LEVEL_STATEMENT,'Truncated whole table');
636 end if;
637 else
638
639 if from_date is null then
640 if p_truncate_table='Y' then
641
642 OPEN c_get_table;
643 FETCH c_get_table INTO l_truncate_table;
644 CLOSE c_get_table;
645 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'truncate table ' || l_truncate_table);
646 EXECUTE IMMEDIATE 'truncate table ' || l_truncate_table;
647 LogMessage(FND_LOG.LEVEL_STATEMENT,'Truncated whole table');
648 else
649 mo_global.init('IEX');
650 if p_org_id is null then
651 MO_GLOBAL.SET_POLICY_CONTEXT('M',NULL); -- Multi Org.
652 FND_FILE.PUT_LINE(FND_FILE.LOG, 'MO: Operating Unit=' || 'All');
653 else
654 MO_GLOBAL.SET_POLICY_CONTEXT('S',p_ORG_ID);
655 end if;
656 for i in c_org(p_org_id) loop
657 l_org_id:=i.organization_id;
658 LogMessage(FND_LOG.LEVEL_STATEMENT,'Delete records corresponding to the org_id passed-->'||l_org_id);
659 select count(*) into l_cnt
660 from iex_dln_uwq_summary where org_id=l_org_id;
661 FND_FILE.PUT_LINE(FND_FILE.LOG,'No of rows selected: ' || l_cnt);
662 delete from iex_dln_uwq_summary
663 where org_id=l_org_id;
664 LogMessage(FND_LOG.LEVEL_STATEMENT,'Records deleted for the org_id passed');
665 -- LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No of rows deleted: ' || SQL%ROWCOUNT);
666 -- FND_FILE.PUT_LINE(FND_FILE.LOG,'No of rows deleted: ' || SQL%ROWCOUNT);
667 select count(*) into l_cnt1
668 from iex_dln_uwq_summary where org_id=l_org_id;
669 FND_FILE.PUT_LINE(FND_FILE.LOG,'No of rows selected: ' || l_cnt);
670 FND_FILE.PUT_LINE(FND_FILE.LOG,'No of rows remaining: ' || l_cnt1);
671 end loop;
672 end if;
673 end if;
674 end if;*/
675
676
677 commit;
678
679 EXCEPTION
680 -- added for bug 12434263 pnaveenk end program in error if delete or truncate iex_dln_uwq_summary is not success
681 WHEN deadlock_detected THEN
682 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Exception in populate_uwq_sum: deadlock detected');
683 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'SQLCODE: ' || to_char(SQLCODE) || ' SQLERRM: ' || sqlerrm);
684 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
685 l_return_status := 'E';
686 Rollback;
687 DELETE from AR_CONC_PROCESS_REQUESTS
688 where REQUEST_ID = FND_GLOBAL.conc_request_id;
689 commit;
690 if FND_GLOBAL.Conc_Request_Id is not null then
691 l_return := FND_CONCURRENT.SET_COMPLETION_STATUS(
692 status => 'ERROR',
693 message => 'The process has failed. Please review log file.');
694 end if;
695
696 when others then
697 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Exception in delete_rows_from_uwq_summ');
698 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'SQLCODE: ' || to_char(SQLCODE) || ' SQLERRM: ' || sqlerrm);
699 FND_FILE.PUT_LINE(FND_FILE.LOG,'SQLERRM: ' || sqlerrm);
700 l_return_status := 'E';
701 Rollback;
702 DELETE from AR_CONC_PROCESS_REQUESTS
703 where REQUEST_ID = FND_GLOBAL.conc_request_id;
704 commit;
705 if FND_GLOBAL.Conc_Request_Id is not null then
706 l_return := FND_CONCURRENT.SET_COMPLETION_STATUS(
707 status => 'ERROR',
708 message => 'The process has failed. Please review log file.');
709 end if;
710 end delete_rows_from_uwq_summ;
711 --End Bug 8707923 27-Jul-2009 barathsr
712
713 --Included org_id,truncate_table parameters for Bug 8707923
714 PROCEDURE populate_uwq_sum_concur (
715 x_errbuf OUT nocopy VARCHAR2,
716 x_retcode OUT nocopy VARCHAR2,
717 FROM_DATE IN VARCHAR2,
718 p_ou_lvl_enb in varchar2 default null,--Begin Bug 8707923 27-Jul-2009 barathsr
719 p_org_id in number,
720 p_truncate_table in varchar2 default 'N',
721 p_update_contact in varchar2 default 'Y') -- Added new parameter for Bug13713264 bibeura 15-Feb-2012
722
723 IS
724
725
726 CURSOR c_get_level IS
727 SELECT PREFERENCE_VALUE
728 FROM IEX_APP_PREFERENCES_B
729 WHERE PREFERENCE_NAME = 'COLLECTIONS STRATEGY LEVEL'
730 and enabled_flag='Y'
731 and org_id is null;
732
733 CURSOR c_allowed_levels IS
734 SELECT LOOKUP_CODE
735 FROM IEX_LOOKUPS_V
736 WHERE LOOKUP_TYPE='IEX_RUNNING_LEVEL'
737 AND iex_utilities.validate_running_level(LOOKUP_CODE)='Y';
738
739 cursor c_get_ou_biz_lvl(c_org_id number) is
740 SELECT PREFERENCE_VALUE
741 FROM IEX_APP_PREFERENCES_B
742 WHERE PREFERENCE_NAME = 'COLLECTIONS STRATEGY LEVEL'
743 and (org_id=c_org_id or org_id is null)
744 and enabled_flag='Y'
745 order by nvl(org_id,0) desc ;
746
747 CURSOR c_org(c_org_id number) IS
748 SELECT organization_id from hr_operating_units where
749 mo_global.check_access(organization_id) = 'Y'
750 AND organization_id = nvl(c_org_id,organization_id);
751
752 l_allowed_lvl varchar2(20);
753 l_curr_org_id number;
754 l_truncate_table varchar2(5);
755 l_return boolean;
756 l_return_status VARCHAR2(1);
757 l_update_contact varchar2(5); -- Added for bug13713264 bibeura 15-Feb-2012
758 BEGIN
759 --Bug5691098. Start.
760 LogMessage(FND_LOG.LEVEL_STATEMENT,' Populate_uwq_sum_concur Started.');
761 FND_FILE.PUT_LINE(FND_FILE.LOG,'from date...-->'||from_date);
762 FND_FILE.PUT_LINE(FND_FILE.LOG,'org_id...-->'||p_org_id);
763 FND_FILE.PUT_LINE(FND_FILE.LOG,'truncate_table...-->'||p_truncate_table);
764 FND_FILE.PUT_LINE(FND_FILE.LOG,'p_update_contact...-->'||p_update_contact);
765 LogMessage(FND_LOG.LEVEL_STATEMENT,' p_update_contact: ' || p_update_contact);
766
767 -- Bug13987015 by bibeura
768 -- If event subscriptions are enabled and IEX: Delinquencies Management concurrent program
769 -- is running, IEX: Populate UWQ Summary concurrent program should not be allowed to proceed.
770 -- Function is_incompatible is used to achieve the same
771
772 IF is_incompatible THEN
773 fnd_file.put_line(FND_FILE.LOG,'**************************************************************************************************************************************************');
774 fnd_file.put_line(FND_FILE.LOG,'Populate UWQ Summary is not allowed to be run when event subscriptions are enabled and IEX: Delinquencies Management concurrent program is running');
775 fnd_file.put_line(FND_FILE.LOG,'**************************************************************************************************************************************************');
776 l_return := fnd_concurrent.set_completion_status (status => 'WARNING',
777 message => 'Other Incompatible programs are running. Please check concurrent request log for details');
778 return;
779 END IF;
780 -- Bug13987015 by bibeura
781
782 IEX_CHECKLIST_UTILITY.UPDATE_MLSETUP;
783
784 FND_FILE.PUT_LINE(FND_FILE.LOG,'populate party,ou global vars...');
785
786 select DEFINE_PARTY_RUNNING_LEVEL,DEFINE_OU_RUNNING_LEVEL
787 into G_PARTY_LVL_ENB,G_OU_LVL_ENB
788 from IEX_QUESTIONNAIRE_ITEMS;
789
790
791
792 l_truncate_table:=nvl(p_truncate_table,'N');
793 l_update_contact:=nvl(p_update_contact,'Y'); -- Added for bug13713264 bibeura 15-Feb-2012
794
795 --Begin Bug 9079404 04-Nov-2009 barathsr
796
797 if from_date is not null and l_truncate_table='Y' then
798 if FND_GLOBAL.Conc_Request_Id is not null then
799 l_return := fnd_concurrent.set_completion_status (status => 'WARNING',
800 message => 'Invalid set of parameters..Pl modify the set of parameters provided.');
801 end if;
802 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Invalid set of parameters..Pl modify the set of parameters provided.');
803 fnd_file.put_line(FND_FILE.LOG,'Invalid set of parameters..Pl modify the set of parameters provided.');
804 return;
805 end if;
806
807 if from_date is null and l_truncate_table='N' and g_ou_lvl_enb='N' then
808 if FND_GLOBAL.Conc_Request_Id is not null then
809 l_return := fnd_concurrent.set_completion_status (status => 'WARNING',
810 message => 'Invalid set of parameters..Pl modify the set of parameters provided.');
811 end if;
812 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Invalid set of parameters..Pl modify the set of parameters provided.');
813 fnd_file.put_line(FND_FILE.LOG,'Invalid set of parameters..Pl modify the set of parameters provided.');
814 return;
815 end if;
816
817 --End Bug 9079404 04-Nov-2009 barathsr
818
819
820
821 delete_rows_from_uwq_summ(from_date,p_org_id,l_truncate_table,l_return_status);
822 -- added for bug 13454263 pnaveenk
823 IF l_return_status <> 'S' THEN
824 fnd_file.put_line(FND_FILE.LOG, ' Delete or Truncate on table iex_dln_uwq_summary is not success. Ending the program');
825 return;
826 END IF;
827
828
829
830 if (G_OU_LVL_ENB='Y' or G_PARTY_LVL_ENB='Y') then
831 if G_OU_LVL_ENB='Y' then
832 mo_global.init('IEX');
833 if p_org_id is null then
834
835 MO_GLOBAL.SET_POLICY_CONTEXT('M',NULL); -- Multi Org.
836 FND_FILE.PUT_LINE(FND_FILE.LOG, 'MO: Operating Unit=' || 'All');
837 --open c_org(l_org_id);
838 else
839 MO_GLOBAL.SET_POLICY_CONTEXT('S',p_ORG_ID);
840 end if;
841
842 for i in c_org(p_org_id) loop
843 l_curr_org_id:=i.organization_id;
844 FND_FILE.PUT_LINE(FND_FILE.LOG, 'org_id is-->'||l_curr_org_id);
845 MO_GLOBAL.SET_POLICY_CONTEXT('S',l_curr_org_id );
846
847 -- update_trx_bal_summ('CP',l_curr_org_id);
848 FND_FILE.PUT_LINE(FND_FILE.LOG,'into OU level');
849
850 open c_get_ou_biz_lvl(l_curr_org_id);
851 fetch c_get_ou_biz_lvl into G_SYSTEM_LEVEL;
852 close c_get_ou_biz_lvl;
853 FND_FILE.PUT_LINE(FND_FILE.LOG, 'OU lvl is-->'||G_SYSTEM_LEVEL);
854
855 for r_allowed_levels in c_allowed_levels loop
856 l_allowed_lvl:=r_allowed_LEVELS.lookup_code;
857 FND_FILE.PUT_LINE(FND_FILE.LOG,'looping for other levels in ou-->'||r_allowed_LEVELS.lookup_code);
858 if (g_party_lvl_enb='N' and l_allowed_lvl=g_system_level) or g_party_lvl_enb='Y' then
859 Insert_Summary(x_errbuf,x_retcode,FROM_DATE,l_curr_org_id,l_allowed_lvl,'CP',l_update_contact);
860 end if;
861 G_LEVEL_COUNT:=G_LEVEL_COUNT+1;
862 end loop;
863 end loop;
864
865
866 elsif G_PARTY_LVL_ENB='Y' then
867 -- update_trx_bal_summ('CP',null);
868 FND_FILE.PUT_LINE(FND_FILE.LOG,'inside party level');
869 open c_get_level;
870 fetch c_get_level into G_SYSTEM_LEVEL;
871 close c_get_level;
872 FND_FILE.PUT_LINE(FND_FILE.LOG, 'party lvl is-->'||G_SYSTEM_LEVEL);
873 for r_allowed_levels in c_allowed_levels loop
874 l_allowed_lvl:=r_allowed_LEVELS.lookup_code;
875 FND_FILE.PUT_LINE(FND_FILE.LOG,'looping for other levels in party-->'||r_allowed_LEVELS.lookup_code);
876 Insert_Summary(x_errbuf,x_retcode,FROM_DATE,null,l_allowed_lvl,'CP',l_update_contact);
877 G_LEVEL_COUNT:=G_LEVEL_COUNT+1;
878 end loop;
879
880 end if;
881
882 else
883 -- update_trx_bal_summ('CP',null);
884 open c_get_level;
885 fetch c_get_level into G_SYSTEM_LEVEL;
886 FND_FILE.PUT_LINE(FND_FILE.LOG,'inside system level-->'||G_SYSTEM_LEVEL);
887 if G_SYSTEM_LEVEL is not null then
888 Insert_Summary(x_errbuf,x_retcode,FROM_DATE,null,G_SYSTEM_LEVEL,'CP',l_update_contact);
889 end if;
890 close c_get_level;
891 end if;
892 exception
893 when others then
894 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Exception in populate_uwq_sum_concur');
895 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'SQLCODE: ' || to_char(SQLCODE) || ' SQLERRM: ' || sqlerrm);
896 FND_FILE.PUT_LINE(FND_FILE.LOG,'SQLERRM: ' || sqlerrm);
897 END populate_uwq_sum_concur;
898
899 --End Bug 8707923 27-Jul-2009 barathsr
900
901 PROCEDURE Insert_Summary(
902 x_errbuf OUT nocopy VARCHAR2,
903 x_retcode OUT nocopy VARCHAR2,
904 FROM_DATE IN VARCHAR2,
905 p_org_id in number,--Added for Bug 8707923 27-Jul-2009 barathsr
906 p_level in varchar2,--Added for Bug 8707923 27-Jul-2009 barathsr
907 P_MODE IN VARCHAR2 DEFAULT 'CP',
908 p_update_contact in varchar2 default 'Y') -- Added new parameter for bug13713264 bibeura 15-Feb-2012
909 IS
910
911 --Commented for Bug 8707923 27-Jul-2009 barathsr.Handled in populate_uwq_sum_concur procedure
912 -- CURSOR c_get_level IS
913 -- SELECT PREFERENCE_VALUE FROM IEX_APP_PREFERENCES_VL WHERE PREFERENCE_NAME = 'COLLECTIONS STRATEGY LEVEL';
914
915 --Start of comment for Bug 9597052 28-Apr-2010 barathsr
916 --Start bug 6634879 gnramasa 20th Nov 07
917 /* CURSOR c_iex_billto_uwq_summary(c_level varchar2,c_org_id number)--Added for Bug 8707923 27-Jul-2009 barathsr --9597052
918 IS
919 SELECT
920 trx_summ.org_id,
921 max(ac.collector_id),
922 max(ac.resource_id),
923 max(ac.resource_type),
924 objb.object_function ieu_object_function,
925 objb.object_parameters || ' DISPLAYCBO=IEXTRMAN' ieu_object_parameters,
926 '' ieu_media_type_uuid,
927 'CUSTOMER_SITE_USE_ID' ieu_param_pk_col,
928 to_char(trx_summ.site_use_id) ieu_param_pk_value,
929 1 resource_id,
930 'RS_EMPLOYEE' resource_type,
931 party.party_id party_id,
932 party.party_name party_name,
933 trx_summ.cust_account_id cust_account_id,
934 acc.account_name account_name,
935 acc.account_number account_number,
936 trx_summ.site_use_id site_use_id,
937 site_uses.location location,
938 max(gl.CURRENCY_CODE) currency,
939 SUM(trx_summ.op_invoices_count) op_invoices_count,
940 SUM(trx_summ.op_debit_memos_count) op_debit_memos_count,
941 SUM(trx_summ.op_deposits_count) op_deposits_count,
942 SUM(trx_summ.op_bills_receivables_count) op_bills_receivables_count,
943 SUM(trx_summ.op_chargeback_count) op_chargeback_count,
944 SUM(trx_summ.op_credit_memos_count) op_credit_memos_count,
945 SUM(trx_summ.unresolved_cash_count) unresolved_cash_count,
946 SUM(trx_summ.disputed_inv_count) disputed_inv_count,
947 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.best_current_receivables,
948 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
949 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.best_current_receivables))) best_current_receivables,
950 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_invoices_value,
951 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
952 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_invoices_value))) op_invoices_value,
953 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_debit_memos_value,
954 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
955 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_debit_memos_value))) op_debit_memos_value,
956 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_deposits_value,
957 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
958 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_deposits_value))) op_deposits_value,
959 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_bills_receivables_value,
960 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
961 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_bills_receivables_value))) op_bills_receivables_value,
962 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_chargeback_value,
963 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
964 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_chargeback_value))) op_chargeback_value,
965 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_credit_memos_value,
966 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
967 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_credit_memos_value))) op_credit_memos_value,
968 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.unresolved_cash_value,
969 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
970 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.unresolved_cash_value))) unresolved_cash_value,
971 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.receipts_at_risk_value,
972 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
973 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.receipts_at_risk_value))) receipts_at_risk_value,
974 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.inv_amt_in_dispute,
975 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
976 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.inv_amt_in_dispute))) inv_amt_in_dispute,
977 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.pending_adj_value,
978 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
979 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.pending_adj_value))) pending_adj_value,
980 (SELECT SUM(b.acctd_amount_due_remaining)
981 FROM iex_delinquencies_all a,
982 ar_payment_schedules_all b
983 WHERE a.customer_site_use_id = trx_summ.site_use_id
984 AND a.payment_schedule_id = b.payment_schedule_id
985 AND b.status = 'OP'
986 AND a.status IN('DELINQUENT', 'PREDELINQUENT')
987 AND b.org_id = trx_summ.org_id) past_due_inv_value,
988 SUM(trx_summ.past_due_inv_inst_count) past_due_inv_inst_count,
989 MAX(trx_summ.last_payment_date) last_payment_date,
990 MAX(iex_uwq_view_pkg.get_last_payment_amount(0, 0, trx_summ.site_use_id)) last_payment_amount,
991 max(gl.CURRENCY_CODE) last_payment_amount_curr,
992 MAX(iex_uwq_view_pkg.get_last_payment_number(0, 0, trx_summ.site_use_id)) last_payment_number,
993 MAX(trx_summ.last_update_date) last_update_date,
994 MAX(trx_summ.last_updated_by) last_updated_by,
995 MAX(trx_summ.creation_date) creation_date,
996 MAX(trx_summ.created_by) created_by,
997 MAX(trx_summ.last_update_login) last_update_login,
998 (SELECT COUNT(1)
999 FROM iex_delinquencies_all
1000 WHERE customer_site_use_id = trx_summ.site_use_id
1001 AND status IN('DELINQUENT', 'PREDELINQUENT')
1002 AND org_id = trx_summ.org_id)
1003 number_of_delinquencies,
1004 (SELECT 1
1005 FROM dual
1006 WHERE EXISTS
1007 (SELECT 1
1008 FROM iex_delinquencies_all
1009 WHERE customer_site_use_id = trx_summ.site_use_id
1010 AND status IN('DELINQUENT', 'PREDELINQUENT')
1011 AND org_id = trx_summ.org_id
1012 AND(uwq_status IS NULL OR uwq_status = 'ACTIVE' OR(TRUNC(uwq_active_date) <= TRUNC(sysdate)
1013 AND uwq_status = 'PENDING')))
1014 )
1015 active_delinquencies,
1016 (SELECT 1
1017 FROM dual
1018 WHERE EXISTS
1019 (SELECT 1
1020 FROM iex_delinquencies_all
1021 WHERE customer_site_use_id = trx_summ.site_use_id
1022 AND status IN('DELINQUENT', 'PREDELINQUENT')
1023 AND org_id = trx_summ.org_id
1024 AND(uwq_status = 'COMPLETE'
1025 AND(TRUNC(uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') > TRUNC(sysdate))))
1026 )
1027 complete_delinquencies,
1028 (SELECT 1
1029 FROM dual
1030 WHERE EXISTS
1031 (SELECT 1
1032 FROM iex_delinquencies_all where customer_site_use_id = trx_summ.site_use_id
1033 AND status IN('DELINQUENT', 'PREDELINQUENT')
1034 AND org_id = trx_summ.org_id
1035 AND(uwq_status = 'PENDING'
1036 AND(TRUNC(uwq_active_date) > TRUNC(sysdate))))
1037 )
1038 pending_delinquencies,*/ --9597052
1039 -- Start for the bug#7562130 by PNAVEENK
1040 /* (SELECT a.score_value
1041 FROM iex_score_histories a
1042 WHERE a.creation_date =
1043 (SELECT MAX(creation_date)
1044 FROM iex_score_histories
1045 WHERE score_object_code = 'IEX_BILLTO'
1046 AND score_object_id = trx_summ.site_use_id)
1047 AND rownum < 2
1048 AND a.score_object_code = 'IEX_BILLTO'
1049 AND a.score_object_id = trx_summ.site_use_id)
1050 score,*/
1051 /* to_number(cal_score(trx_summ.site_use_id,'IEX_BILLTO','SCORE_VALUE')) score, -9597052
1052 to_number(cal_score(trx_summ.site_use_id,'IEX_BILLTO','SCORE_ID')) score_id,
1053 cal_score(trx_summ.site_use_id,'IEX_BILLTO','SCORE_NAME') score_name,
1054 max(decode(ac.resource_type, 'RS_RESOURCE' ,
1055 (select rs.source_name from jtf_rs_resource_extns rs where rs.resource_id= ac.resource_id),
1056 (select rg.group_name from JTF_RS_GROUPS_VL rg where rg.group_id=ac.resource_id)
1057 ) ) collector_resource_name,*/ --9597052
1058 -- end for the bug#7562130
1059 -- Start for the bug#8538945 by PNAVEENK
1060 /* party.address1 address1,
1061 party.city city,
1062 party.state state,
1063 party.county county,*/
1064 /* loc.address1 address1, --9597052
1065 loc.city city,
1066 loc.state state,
1067 loc.county county,
1068 fnd_terr.territory_short_name country,
1069 -- party.province province,
1070 -- party.postal_code postal_code,
1071 loc.province province,
1072 loc.postal_code postal_code,
1073 -- end for the bug#8538945
1074 phone.phone_country_code phone_country_code,
1075 phone.phone_area_code phone_area_code,
1076 phone.phone_number phone_number,
1077 phone.phone_extension phone_extension,
1078 (SELECT COUNT(1) FROM iex_bankruptcies bkr
1079 WHERE bkr.party_id = party.party_id and NVL(BKR.DISPOSITION_CODE,'GRANTED') in ('GRANTED','NEGOTIATION')) number_of_bankruptcies, -- Changed for bug#7693986
1080
1081 (SELECT COUNT(1) FROM iex_promise_details PRO, IEX_DELINQUENCIES_ALL DEL
1082 WHERE PRO.CUST_ACCOUNT_ID = TRX_SUMM.CUST_ACCOUNT_ID and del.customer_site_use_id = TRX_SUMM.site_use_ID AND
1083 PRO.STATUS IN ('COLLECTABLE', 'PENDING') AND PRO.STATE = 'BROKEN_PROMISE' AND PRO.AMOUNT_DUE_REMAINING > 0 AND
1084 PRO.DELINQUENCY_ID = DEL.DELINQUENCY_ID(+)
1085 AND (DEL.STATUS --(+) Commented for Bug 6446848 06-Jan-2009 barathsr
1086 NOT IN ('CURRENT', 'CLOSE')
1087 or (del.status='CURRENT' and del.source_program_name='IEX_CURR_INV'))--Added for Bug 6446848 06-Jan-2009 barathsr
1088 AND DEL.org_id = trx_summ.org_id) number_of_promises,
1089
1090 (SELECT SUM(AMOUNT_DUE_REMAINING) FROM iex_promise_details PRO, IEX_DELINQUENCIES_ALL DEL
1091 WHERE PRO.CUST_ACCOUNT_ID = TRX_SUMM.CUST_ACCOUNT_ID and del.customer_site_use_id = TRX_SUMM.site_use_ID AND
1092 PRO.STATUS IN ('COLLECTABLE', 'PENDING') AND PRO.STATE = 'BROKEN_PROMISE' AND PRO.AMOUNT_DUE_REMAINING > 0 AND
1093 PRO.DELINQUENCY_ID = DEL.DELINQUENCY_ID(+)
1094 AND (DEL.STATUS --(+) Commented for Bug 6446848 06-Jan-2009 barathsr
1095 NOT IN ('CURRENT', 'CLOSE')
1096 or (del.status='CURRENT' and del.source_program_name='IEX_CURR_INV'))--Added for Bug 6446848 06-Jan-2009 barathsr
1097 AND DEL.org_id = trx_summ.org_id) BROKEN_PROMISE_AMOUNT ,
1098
1099 (SELECT SUM(PROMISE_AMOUNT) FROM iex_promise_details PRO, IEX_DELINQUENCIES_ALL DEL
1100 WHERE PRO.CUST_ACCOUNT_ID = TRX_SUMM.CUST_ACCOUNT_ID and del.customer_site_use_id = TRX_SUMM.site_use_ID AND
1101 PRO.STATUS IN ('COLLECTABLE', 'PENDING') AND PRO.STATE = 'BROKEN_PROMISE' AND PRO.AMOUNT_DUE_REMAINING > 0 AND
1102 PRO.DELINQUENCY_ID = DEL.DELINQUENCY_ID(+)
1103 AND (DEL.STATUS --(+) Commented for Bug 6446848 06-Jan-2009 barathsr
1104 NOT IN ('CURRENT', 'CLOSE')
1105 or (del.status='CURRENT' and del.source_program_name='IEX_CURR_INV'))--Added for Bug 6446848 06-Jan-2009 barathsr
1106 AND DEL.org_id = trx_summ.org_id) PROMISE_AMOUNT,
1107
1108 (SELECT 1 FROM dual WHERE EXISTS
1109 (SELECT 1 FROM dual WHERE EXISTS
1110 (SELECT 1
1111 FROM iex_promise_details PRO, IEX_DELINQUENCIES_ALL DEL
1112 WHERE pro.cust_account_id = trx_summ.cust_account_id
1113 and del.customer_site_use_id = TRX_SUMM.site_use_ID
1114 AND pro.state = 'BROKEN_PROMISE'
1115 AND(pro.uwq_status IS NULL OR pro.uwq_status = 'ACTIVE' OR(TRUNC(pro.uwq_active_date) <= TRUNC(sysdate)
1116 AND pro.uwq_status = 'PENDING')))
1117 )
1118 ) active_promises,
1119
1120 (SELECT 1 FROM dual WHERE EXISTS
1121 (SELECT 1 FROM dual WHERE EXISTS
1122 (SELECT 1
1123 FROM iex_promise_details PRO, IEX_DELINQUENCIES_ALL DEL
1124 WHERE pro.cust_account_id = trx_summ.cust_account_id
1125 and del.customer_site_use_id = TRX_SUMM.site_use_ID
1126 AND pro.state = 'BROKEN_PROMISE'
1127 AND(pro.uwq_status = 'COMPLETE'
1128 AND(TRUNC(pro.uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') > TRUNC(sysdate))))
1129 )
1130 ) complete_promises,
1131
1132 (SELECT 1 FROM dual WHERE EXISTS
1133 (SELECT 1 FROM dual WHERE EXISTS
1134 (SELECT 1
1135 FROM iex_promise_details PRO, IEX_DELINQUENCIES_ALL DEL
1136 WHERE pro.cust_account_id = trx_summ.cust_account_id
1137 and del.customer_site_use_id = TRX_SUMM.site_use_ID
1138 AND pro.state = 'BROKEN_PROMISE'
1139 AND(pro.uwq_status = 'PENDING'
1140 AND(TRUNC(pro.uwq_active_date) > TRUNC(sysdate))))
1141 )
1142 ) pending_promises
1143
1144 FROM ar_trx_bal_summary trx_summ,
1145 hz_cust_accounts acc,
1146 hz_parties party,
1147 hz_party_preferences party_pref,--Added for Bug 8707923 27-Jul-2009 barathsr
1148 jtf_objects_b objb,
1149 hz_contact_points phone,
1150 fnd_territories_tl fnd_terr,
1151 hz_cust_site_uses_all site_uses,
1152 hz_customer_profiles prf,
1153 ar_collectors ac,
1154 GL_SETS_OF_BOOKS gl,
1155 AR_SYSTEM_PARAMETERS_all sys,
1156 -- Added for the bug#8538945 by PNAVEENK
1157 HZ_CUST_ACCT_SITES_all ACCT_SITE,--Modified for Bug 9487600 23-Mar-2010 barathsr
1158 HZ_PARTY_SITES PARTY_SITE,
1159 HZ_LOCATIONS LOC
1160 -- end for the bug#8538945
1161 WHERE
1162 P_MODE = 'CP'
1163 AND trx_summ.reference_1 = '1'
1164 -- Added for the bug#8538945 by PNAVEENK
1165 and PARTY_SITE.LOCATION_ID = LOC.LOCATION_ID
1166 and ACCT_SITE.PARTY_SITE_ID = PARTY_SITE.PARTY_SITE_ID
1167 and site_uses.CUST_ACCT_SITE_ID = ACCT_SITE.CUST_ACCT_SITE_ID
1168 -- end for the bug#8538945
1169 AND trx_summ.site_use_id = site_uses.site_use_id
1170 AND trx_summ.cust_account_id = acc.cust_account_id
1171 AND acc.party_id = party.party_id
1172 AND objb.object_code = 'IEX_BILLTO'
1173 and objb.object_code <> 'IEX_DELINQUENCY'--Added for Bug 8707923 27-Jul-2009 barathsr
1174 AND loc.country = fnd_terr.territory_code(+) -- Changed for the bug#8538945
1175 AND fnd_terr.LANGUAGE(+) = userenv('LANG')
1176 AND phone.owner_table_id(+) = party.party_id
1177 AND phone.owner_table_name(+) = 'HZ_PARTIES'
1178 AND phone.contact_point_type(+) = 'PHONE'
1179 AND phone.primary_by_purpose(+) = 'Y'
1180 AND phone.contact_point_purpose(+) = 'COLLECTIONS'
1181 AND phone.phone_line_type(+) NOT IN('PAGER', 'FAX')
1182 AND phone.status(+) = 'A'
1183 AND nvl(phone.do_not_use_flag(+), 'N') = 'N'
1184 and prf.SITE_USE_ID(+) = trx_summ.site_use_id
1185 and ac.collector_id(+) = prf.collector_id
1186 and gl.SET_OF_BOOKS_ID = sys.SET_OF_BOOKS_ID
1187 and trx_summ.org_id = sys.org_id
1188 --Begin Bug 8707923 27-Jul-2009 barathsr
1189 and party.party_id=party_pref.party_id(+)
1190 and party_pref.module(+)='COLLECTIONS'
1191 and party_pref.category(+)='COLLECTIONS LEVEL'
1192 and party_pref.preference_code(+)='PARTY_ID'
1193 and nvl(decode(G_PARTY_LVL_ENB,'Y',party_pref.VALUE_VARCHAR2,null),c_level)='BILL_TO'
1194 and trx_summ.org_id=nvl(c_org_id,trx_summ.org_id)
1195 --End Bug 8707923 27-Jul-2009 barathsr
1196 GROUP BY trx_summ.org_id,
1197 objb.object_function,
1198 objb.object_parameters,
1199 party.party_id,
1200 party.party_name,
1201 trx_summ.cust_account_id,
1202 acc.account_name,
1203 acc.account_number,
1204 trx_summ.site_use_id,
1205 site_uses.location, /* --9597052
1206 -- Start for the bug#8538945 by PNAVEENK
1207 /* party.address1,
1208 party.city,
1209 party.state,
1210 party.county,*/
1211 /* loc.address1, --9597052
1212 loc.city,
1213 loc.state,
1214 loc.county,
1215 fnd_terr.territory_short_name,
1216 -- party.province,
1217 -- party.postal_code,
1218 loc.province,
1219 loc.postal_code,
1220 -- end for the bug#8538945
1221 phone.phone_country_code,
1222 phone.phone_area_code,
1223 phone.phone_number,
1224 phone.phone_extension;*/ --9597052
1225 --End of comment for Bug 9597052 28-Apr-2010 barathsr
1226
1227 --Begin Bug 9597052 28-Apr-2010 barathsr
1228 --This cursor fetches column values from ar_trx_bal_summary table and the values are inserted in iex_dln_uwq_summary
1229 --All the other column values are fetched with small cursors from the respective tables and updated in iex_dln_uwq_summary
1230 CURSOR c_iex_billto_uwq_summary(c_level varchar2,c_org_id number)
1231 IS
1232 SELECT
1233 trx_summ.org_id,
1234 objb.object_function ieu_object_function,
1235 objb.object_parameters || ' DISPLAYCBO=IEXTRMAN' ieu_object_parameters,
1236 '' ieu_media_type_uuid,
1237 'CUSTOMER_SITE_USE_ID' ieu_param_pk_col,
1238 to_char(trx_summ.site_use_id) ieu_param_pk_value,
1239 to_number(null) party_id,
1240 trx_summ.cust_account_id cust_account_id,
1241 trx_summ.site_use_id site_use_id,
1242 max(gl.CURRENCY_CODE) currency,
1243 SUM(trx_summ.op_invoices_count) op_invoices_count,
1244 SUM(trx_summ.op_debit_memos_count) op_debit_memos_count,
1245 SUM(trx_summ.op_deposits_count) op_deposits_count,
1246 SUM(trx_summ.op_bills_receivables_count) op_bills_receivables_count,
1247 SUM(trx_summ.op_chargeback_count) op_chargeback_count,
1248 SUM(trx_summ.op_credit_memos_count) op_credit_memos_count,
1249 SUM(trx_summ.unresolved_cash_count) unresolved_cash_count,
1250 SUM(trx_summ.disputed_inv_count) disputed_inv_count,
1251 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.best_current_receivables,
1252 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1253 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.best_current_receivables))) best_current_receivables,
1254 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_invoices_value,
1255 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1256 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_invoices_value))) op_invoices_value,
1257 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_debit_memos_value,
1258 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1259 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_debit_memos_value))) op_debit_memos_value,
1260 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_deposits_value,
1261 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1262 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_deposits_value))) op_deposits_value,
1263 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_bills_receivables_value,
1264 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1265 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_bills_receivables_value))) op_bills_receivables_value,
1266 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_chargeback_value,
1267 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1268 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_chargeback_value))) op_chargeback_value,
1269 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_credit_memos_value,
1270 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1271 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_credit_memos_value))) op_credit_memos_value,
1272 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.unresolved_cash_value,
1273 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1274 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.unresolved_cash_value))) unresolved_cash_value,
1275 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.receipts_at_risk_value,
1276 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1277 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.receipts_at_risk_value))) receipts_at_risk_value,
1278 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.inv_amt_in_dispute,
1279 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1280 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.inv_amt_in_dispute))) inv_amt_in_dispute,
1281 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.pending_adj_value,
1282 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1283 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.pending_adj_value))) pending_adj_value,
1284 SUM(trx_summ.past_due_inv_inst_count) past_due_inv_inst_count,
1285 MAX(trx_summ.last_payment_date) last_payment_date,
1286 MAX(trx_summ.last_update_date) last_update_date,
1287 MAX(trx_summ.last_updated_by) last_updated_by,
1288 MAX(trx_summ.creation_date) creation_date,
1289 MAX(trx_summ.created_by) created_by,
1290 MAX(trx_summ.last_update_login) last_update_login
1291 FROM ar_trx_bal_summary trx_summ,
1292 GL_SETS_OF_BOOKS gl,
1293 AR_SYSTEM_PARAMETERS_all sys,
1294 jtf_objects_b objb,
1295 hz_cust_accounts acc,
1296 hz_party_preferences party_pref
1297 where
1298 P_MODE = 'CP'
1299 AND trx_summ.reference_1 = '1'
1300 AND objb.object_code = 'IEX_BILLTO'
1301 and objb.object_code <> 'IEX_DELINQUENCY'
1302 and gl.SET_OF_BOOKS_ID = sys.SET_OF_BOOKS_ID
1303 and trx_summ.org_id = sys.org_id
1304 and trx_summ.org_id=nvl(c_org_id,trx_summ.org_id)
1305 and trx_summ.cust_account_id=acc.cust_account_id
1306 and acc.party_id=party_pref.party_id(+)
1307 and party_pref.module(+)='COLLECTIONS'
1308 and party_pref.category(+)='COLLECTIONS LEVEL'
1309 and party_pref.preference_code(+)='PARTY_ID'
1310 and nvl(decode(G_PARTY_LVL_ENB,'Y',party_pref.VALUE_VARCHAR2,null),c_level)='BILL_TO'
1311 and trx_summ.site_use_id > 0
1312 group by trx_summ.org_id,
1313 objb.object_function,
1314 objb.object_parameters,
1315 trx_summ.cust_account_id,
1316 trx_summ.site_use_id;
1317
1318 cursor c_billto_deln_cnt is
1319 SELECT a.customer_site_use_id,
1320 count(a.delinquency_id) number_of_delinquencies,
1321 SUM(b.acctd_amount_due_remaining) past_due_inv_value
1322 FROM iex_delinquencies_all a,
1323 ar_payment_schedules_all b,
1324 iex_dln_uwq_summary dln
1325 WHERE a.customer_site_use_id =dln.site_use_id
1326 AND a.payment_schedule_id = b.payment_schedule_id
1327 AND b.status = 'OP'
1328 AND a.status IN('DELINQUENT', 'PREDELINQUENT')
1329 AND dln.org_id = a.org_id
1330 GROUP BY a.customer_site_use_id;
1331
1332
1333 cursor c_billto_deln_dtls
1334 is
1335 select del.CUSTOMER_SITE_USE_ID,
1336 max(decode(uwq_status,'PENDING',(decode(sign(TRUNC(uwq_active_date) - TRUNC(sysdate)),1,1)))) pending_delinquencies,
1337 max(decode(uwq_status,'COMPLETE',(decode(sign(TRUNC(uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') - TRUNC(sysdate)),1,1)))) complete_delinquencies,
1338 max(decode(uwq_status,NULL,1,'ACTIVE',1,'PENDING',(decode(sign(TRUNC(uwq_active_date) - TRUNC(sysdate)),-1,1,0,1)))) active_delinquencies
1339 from iex_delinquencies_all del,
1340 iex_dln_uwq_summary dln
1341 WHERE del.customer_site_use_id = dln.site_use_id AND
1342 del.org_id = dln.org_id and
1343 del.status IN('DELINQUENT', 'PREDELINQUENT')
1344 group by del.CUSTOMER_SITE_USE_ID;
1345
1346
1347 cursor c_billto_pro_dtls is
1348 SELECT del.customer_site_use_id,
1349 COUNT(1) number_of_promises,
1350 -- Start Bug 14197188 bibeura 26-Jun-2012
1351 -- SUM(pd.amount_due_remaining) broken_promise_amount,
1352 -- SUM(pd.promise_amount) promise_amount
1353 SUM(gl_currency_api.convert_amount_sql(pd.currency_code, dln.currency, sysdate,
1354 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), pd.amount_due_remaining)) broken_promise_amount,
1355 SUM(gl_currency_api.convert_amount_sql(pd.currency_code, dln.currency, sysdate,
1356 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), pd.promise_amount)) promise_amount
1357 -- End Bug 14197188 bibeura 26-Jun-2012
1358 FROM iex_promise_details pd,
1359 iex_delinquencies_all del,
1360 iex_dln_uwq_summary dln
1361 WHERE pd.cust_account_id = del.cust_account_id
1362 AND pd.delinquency_id = del.delinquency_id
1363 AND pd.status IN('COLLECTABLE', 'PENDING')
1364 AND pd.state = 'BROKEN_PROMISE'
1365 AND pd.amount_due_remaining > 0
1366 AND (del.status NOT IN('CURRENT', 'CLOSE')
1367 or (del.status='CURRENT' and del.source_program_name='IEX_CURR_INV'))
1368 and del.customer_site_use_id = dln.site_use_id
1369 and del.org_id = dln.org_id
1370 GROUP BY del.customer_site_use_id;
1371
1372 cursor c_billto_pro_summ is
1373 select del.CUSTOMER_SITE_USE_ID,
1374 max(decode(pd.uwq_status,'PENDING',(decode(sign(TRUNC(pd.uwq_active_date) - TRUNC(sysdate)),1,1)))) pending_promises,
1375 max(decode(pd.uwq_status,'COMPLETE',(decode(sign(TRUNC(pd.uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') - TRUNC(sysdate)),1,1)))) complete_promises,
1376 max(decode(pd.uwq_status,NULL,1,'ACTIVE',1,'PENDING',(decode(sign(TRUNC(pd.uwq_active_date) - TRUNC(sysdate)),-1,1,0,1)))) active_promises
1377 from iex_promise_details pd,
1378 IEX_DELINQUENCIES_ALL DEL,
1379 iex_dln_uwq_summary dln
1380 WHERE pd.cust_account_id = del.cust_account_id
1381 and pd.delinquency_id = del.delinquency_id
1382 and del.customer_site_use_id = dln.site_use_id
1383 and del.org_id = dln.org_id
1384 and pd.state = 'BROKEN_PROMISE'
1385 group by del.CUSTOMER_SITE_USE_ID;
1386
1387
1388 CURSOR c_billto_site_details IS
1389 SELECT
1390 party.party_id party_id,
1391 party.party_name party_name,
1392 summ.cust_account_id cust_account_id,
1393 acc.account_name account_name,
1394 acc.account_number account_number,
1395 summ.site_use_id site_use_id,
1396 site_uses.location location,
1397 loc.address1 address1,
1398 loc.city city,
1399 loc.state state,
1400 loc.county county,
1401 fnd_terr.territory_short_name country,
1402 loc.province province,
1403 loc.postal_code postal_code
1404 FROM iex_dln_uwq_summary summ,
1405 hz_cust_accounts acc,
1406 hz_parties party,
1407 -- hz_party_preferences party_pref, -- Commented for bug13452739
1408 fnd_territories_tl fnd_terr,
1409 hz_cust_site_uses_all site_uses,
1410 hz_cust_acct_sites_all acct_site,
1411 hz_party_sites party_site,
1412 hz_locations loc
1413 WHERE
1414 party_site.location_id = loc.location_id
1415 and acct_site.party_site_id = party_site.party_site_id
1416 and site_uses.cust_acct_site_id = acct_site.cust_acct_site_id
1417 AND summ.site_use_id = site_uses.site_use_id
1418 AND summ.cust_account_id = acc.cust_account_id
1419 AND acc.party_id = party.party_id
1420 AND loc.country = fnd_terr.territory_code(+)
1421 AND fnd_terr.LANGUAGE(+) = userenv('LANG')
1422 -- Commented for bug13452739
1423 /*
1424 and party.party_id=party_pref.party_id(+)
1425 and party_pref.module(+)='COLLECTIONS'
1426 and party_pref.category(+)='COLLECTIONS LEVEL'
1427 and party_pref.preference_code(+)='PARTY_ID'
1428 */
1429 GROUP BY party.party_id,
1430 party.party_name,
1431 summ.cust_account_id,
1432 acc.account_name,
1433 acc.account_number,
1434 summ.site_use_id,
1435 site_uses.location,
1436 loc.address1,
1437 loc.city,
1438 loc.state,
1439 loc.county,
1440 fnd_terr.territory_short_name,
1441 loc.province,
1442 loc.postal_code;
1443
1444
1445 CURSOR C_billto_CONTACT_POINT IS
1446 SELECT summ.party_id,
1447 phone.phone_country_code phone_country_code,
1448 phone.phone_area_code phone_area_code,
1449 phone.phone_number phone_number,
1450 phone.phone_extension phone_extension
1451 FROM iex_dln_uwq_summary summ,
1452 hz_contact_points phone
1453 WHERE
1454 phone.owner_table_id = summ.party_id
1455 AND phone.owner_table_name = 'HZ_PARTIES'
1456 AND phone.contact_point_type = 'PHONE'
1457 AND phone.primary_by_purpose = 'Y'
1458 AND phone.contact_point_purpose = 'COLLECTIONS'
1459 AND phone.phone_line_type NOT IN('PAGER', 'FAX')
1460 AND phone.status = 'A'
1461 AND nvl(phone.do_not_use_flag, 'N') = 'N'
1462 group by summ.party_id,
1463 phone.phone_country_code,
1464 phone.phone_area_code,
1465 phone.phone_number,
1466 phone.phone_extension;
1467
1468
1469 CURSOR C_billto_COLLECTOR_prof IS
1470 SELECT
1471 hp.collector_id collector_id,
1472 ac.resource_id collector_resource_id,
1473 ac.resource_type COLLECTOR_RES_TYPE,
1474 decode(ac.resource_type, 'RS_RESOURCE' , rs.source_name , rg.group_name) collector_resource_name,
1475 1 resource_id,
1476 'RS_EMPLOYEE' resource_type,
1477 hp.party_id,
1478 hp.cust_account_id,
1479 hp.site_use_id
1480 FROM
1481 hz_customer_profiles hp,
1482 ar_collectors ac,
1483 iex_dln_uwq_summary temp,
1484 JTF_RS_GROUPS_VL rg,
1485 jtf_rs_resource_extns rs
1486 WHERE
1487 hp.site_use_id=temp.site_use_id
1488 and hp.collector_id=ac.collector_id
1489 and rg.group_id (+) = ac.resource_id
1490 and rs.resource_id(+) = ac.resource_id;
1491
1492 cursor c_billto_last_payment_dtls is
1493 select summ.site_use_id,
1494 summ.last_payment_amount last_payment_amount,
1495 summ.currency last_payment_currency,
1496 summ.last_payment_number last_payment_number
1497 from ar_trx_bal_summary summ,
1498 gl_sets_of_books gl,
1499 ar_system_parameters_all sys
1500 where summ.reference_1='1'
1501 and gl.SET_OF_BOOKS_ID = sys.SET_OF_BOOKS_ID
1502 and summ.org_id = sys.org_id
1503 and summ.last_payment_date=(select max(summ1.last_payment_date)
1504 from iex_dln_uwq_summary summ1
1505 where summ1.site_use_id=summ.site_use_id);
1506
1507 cursor c_billto_bankruptcies is
1508 select summ.party_id,
1509 COUNT(1) number_of_bankruptcies
1510 FROM iex_bankruptcies bkr,
1511 iex_dln_uwq_summary summ
1512 where bkr.customer_site_use_id=summ.site_use_id
1513 and NVL(BKR.DISPOSITION_CODE,'GRANTED') in ('GRANTED','NEGOTIATION')
1514 group by summ.party_id;
1515
1516 cursor c_billto_score is
1517 SELECT sh.score_object_id,
1518 sh.score_value score,
1519 sc.score_id,
1520 sc.score_name
1521 FROM iex_score_histories sh,iex_scores sc
1522 WHERE sc.score_id = sh.score_id
1523 and sh.score_object_code = 'IEX_BILLTO'
1524 and (sh.score_object_id,sh.score_object_code,sh.creation_date)
1525 in (SELECT sh1.score_object_id,sh1.score_object_code,MAX(sh1.creation_date)
1526 FROM iex_score_histories sh1,
1527 iex_dln_uwq_summary temp
1528 WHERE sh1.score_object_code = 'IEX_BILLTO'
1529 AND sh1.score_object_id = temp.site_use_id
1530 group by sh1.score_object_id,sh1.score_object_code);
1531 --End Bug 9597052 28-Apr-2010 barathsr
1532
1533
1534 -----------------
1535 --Start of comment for Bug 9597052 28-Apr-2010 barathsr
1536 -- Begin - Andre Araujo - 10/20/06 - Added selection using date
1537 /*CURSOR c_iex_billto_uwq_dt_sum(p_from_date date,c_level varchar2,c_org_id number)--Added for Bug 8707923 27-Jul-2009 barathsr --9597052
1538 IS
1539 SELECT
1540 trx_summ.org_id,
1541 max(ac.collector_id),
1542 max(ac.resource_id),
1543 max(ac.resource_type),
1544 objb.object_function ieu_object_function,
1545 objb.object_parameters || ' DISPLAYCBO=IEXTRMAN' ieu_object_parameters,
1546 '' ieu_media_type_uuid,
1547 'CUSTOMER_SITE_USE_ID' ieu_param_pk_col,
1548 to_char(trx_summ.site_use_id) ieu_param_pk_value,
1549 1 resource_id,
1550 'RS_EMPLOYEE' resource_type,
1551 party.party_id party_id,
1552 party.party_name party_name,
1553 trx_summ.cust_account_id cust_account_id,
1554 acc.account_name account_name,
1555 acc.account_number account_number,
1556 trx_summ.site_use_id site_use_id,
1557 site_uses.location location,
1558 max(gl.CURRENCY_CODE) currency,
1559 SUM(trx_summ.op_invoices_count) op_invoices_count,
1560 SUM(trx_summ.op_debit_memos_count) op_debit_memos_count,
1561 SUM(trx_summ.op_deposits_count) op_deposits_count,
1562 SUM(trx_summ.op_bills_receivables_count) op_bills_receivables_count,
1563 SUM(trx_summ.op_chargeback_count) op_chargeback_count,
1564 SUM(trx_summ.op_credit_memos_count) op_credit_memos_count,
1565 SUM(trx_summ.unresolved_cash_count) unresolved_cash_count,
1566 SUM(trx_summ.disputed_inv_count) disputed_inv_count,
1567 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.best_current_receivables,
1568 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1569 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.best_current_receivables))) best_current_receivables,
1570 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_invoices_value,
1571 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1572 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_invoices_value))) op_invoices_value,
1573 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_debit_memos_value,
1574 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1575 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_debit_memos_value))) op_debit_memos_value,
1576 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_deposits_value,
1577 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1578 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_deposits_value))) op_deposits_value,
1579 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_bills_receivables_value,
1580 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1581 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_bills_receivables_value))) op_bills_receivables_value,
1582 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_chargeback_value,
1583 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1584 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_chargeback_value))) op_chargeback_value,
1585 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_credit_memos_value,
1586 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1587 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_credit_memos_value))) op_credit_memos_value,
1588 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.unresolved_cash_value,
1589 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1590 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.unresolved_cash_value))) unresolved_cash_value,
1591 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.receipts_at_risk_value,
1592 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1593 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.receipts_at_risk_value))) receipts_at_risk_value,
1594 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.inv_amt_in_dispute,
1595 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1596 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.inv_amt_in_dispute))) inv_amt_in_dispute,
1597 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.pending_adj_value,
1598 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1599 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.pending_adj_value))) pending_adj_value,
1600 (SELECT SUM(b.acctd_amount_due_remaining)
1601 FROM iex_delinquencies_all a,
1602 ar_payment_schedules_all b
1603 WHERE a.customer_site_use_id = trx_summ.site_use_id
1604 AND a.payment_schedule_id = b.payment_schedule_id
1605 AND b.status = 'OP'
1606 AND a.status IN('DELINQUENT', 'PREDELINQUENT')
1607 AND b.org_id = trx_summ.org_id) past_due_inv_value,
1608 SUM(trx_summ.past_due_inv_inst_count) past_due_inv_inst_count,
1609 MAX(trx_summ.last_payment_date) last_payment_date,
1610 MAX(iex_uwq_view_pkg.get_last_payment_amount(0, 0, trx_summ.site_use_id)) last_payment_amount,
1611 max(gl.CURRENCY_CODE) last_payment_amount_curr,
1612 MAX(iex_uwq_view_pkg.get_last_payment_number(0, 0, trx_summ.site_use_id)) last_payment_number,
1613 MAX(trx_summ.last_update_date) last_update_date,
1614 MAX(trx_summ.last_updated_by) last_updated_by,
1615 MAX(trx_summ.creation_date) creation_date,
1616 MAX(trx_summ.created_by) created_by,
1617 MAX(trx_summ.last_update_login) last_update_login,
1618 (SELECT COUNT(1)
1619 FROM iex_delinquencies_all
1620 WHERE customer_site_use_id = trx_summ.site_use_id
1621 AND status IN('DELINQUENT', 'PREDELINQUENT')
1622 AND org_id = trx_summ.org_id)
1623 number_of_delinquencies,
1624 (SELECT 1
1625 FROM dual
1626 WHERE EXISTS
1627 (SELECT 1
1628 FROM iex_delinquencies_all
1629 WHERE customer_site_use_id = trx_summ.site_use_id
1630 AND status IN('DELINQUENT', 'PREDELINQUENT')
1631 AND org_id = trx_summ.org_id
1632 AND(uwq_status IS NULL OR uwq_status = 'ACTIVE' OR(TRUNC(uwq_active_date) <= TRUNC(sysdate)
1633 AND uwq_status = 'PENDING')))
1634 )
1635 active_delinquencies,
1636 (SELECT 1
1637 FROM dual
1638 WHERE EXISTS
1639 (SELECT 1
1640 FROM iex_delinquencies_all
1641 WHERE customer_site_use_id = trx_summ.site_use_id
1642 AND status IN('DELINQUENT', 'PREDELINQUENT')
1643 AND org_id = trx_summ.org_id
1644 AND(uwq_status = 'COMPLETE'
1645 AND(TRUNC(uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') > TRUNC(sysdate))))
1646 )
1647 complete_delinquencies,
1648 (SELECT 1
1649 FROM dual
1650 WHERE EXISTS
1651 (SELECT 1
1652 FROM iex_delinquencies_all where customer_site_use_id = trx_summ.site_use_id
1653 AND status IN('DELINQUENT', 'PREDELINQUENT')
1654 AND org_id = trx_summ.org_id
1655 AND(uwq_status = 'PENDING'
1656 AND(TRUNC(uwq_active_date) > TRUNC(sysdate))))
1657 )
1658 pending_delinquencies,*/ --9597052
1659 -- Start for the bug#7562130 by PNAVEENK
1660 /* (SELECT a.score_value
1661 FROM iex_score_histories a
1662 WHERE a.creation_date =
1663 (SELECT MAX(creation_date)
1664 FROM iex_score_histories
1665 WHERE score_object_code = 'IEX_BILLTO'
1666 AND score_object_id = trx_summ.site_use_id)
1667 AND rownum < 2
1668 AND a.score_object_code = 'IEX_BILLTO'
1669 AND a.score_object_id = trx_summ.site_use_id)
1670 score,*/
1671 /*to_number(cal_score(trx_summ.site_use_id,'IEX_BILLTO','SCORE_VALUE')) score, --9597052
1672 to_number(cal_score(trx_summ.site_use_id,'IEX_BILLTO','SCORE_ID')) score_id,
1673 cal_score(trx_summ.site_use_id,'IEX_BILLTO','SCORE_NAME') score_name,
1674 max(decode(ac.resource_type, 'RS_RESOURCE' ,
1675 (select rs.source_name from jtf_rs_resource_extns rs where rs.resource_id= ac.resource_id),
1676 (select rg.group_name from JTF_RS_GROUPS_VL rg where rg.group_id=ac.resource_id)
1677 ) ) collector_resource_name,*/--9597052
1678 -- end for the bug#7562130
1679 -- Start for the bug#8538945 by PNAVEENK
1680 /* party.address1 address1,
1681 party.city city,
1682 party.state state,
1683 party.county county,*/
1684 /* loc.address1 address1, --9597052
1685 loc.city city,
1686 loc.state state,
1687 loc.county county,
1688 fnd_terr.territory_short_name country,*/ --9597052
1689 -- party.province province,
1690 -- party.postal_code postal_code,
1691 /* loc.province province, --9597052
1692 loc.postal_code postal_code,
1693 -- end for the bug#8538945
1694 phone.phone_country_code phone_country_code,
1695 phone.phone_area_code phone_area_code,
1696 phone.phone_number phone_number,
1697 phone.phone_extension phone_extension,
1698 (SELECT COUNT(1) FROM iex_bankruptcies bkr WHERE bkr.party_id = party.party_id and NVL(BKR.DISPOSITION_CODE,'GRANTED') in ('GRANTED','NEGOTIATION')) number_of_bankruptcies, -- Changed for bug#7693986
1699
1700 (SELECT COUNT(1) FROM iex_promise_details PRO, IEX_DELINQUENCIES_ALL DEL
1701 WHERE PRO.CUST_ACCOUNT_ID = TRX_SUMM.CUST_ACCOUNT_ID and del.customer_site_use_id = TRX_SUMM.site_use_ID AND
1702 PRO.STATUS IN ('COLLECTABLE', 'PENDING') AND PRO.STATE = 'BROKEN_PROMISE' AND PRO.AMOUNT_DUE_REMAINING > 0 AND
1703 PRO.DELINQUENCY_ID = DEL.DELINQUENCY_ID(+)
1704 AND (DEL.STATUS --(+) Commented for Bug 6446848 06-Jan-2009 barathsr
1705 NOT IN ('CURRENT', 'CLOSE')
1706 or (del.status='CURRENT' and del.source_program_name='IEX_CURR_INV')) --Added for Bug 6446848 06-Jan-2009 barathsr
1707 AND DEL.org_id = trx_summ.org_id) number_of_promises,
1708
1709 (SELECT SUM(AMOUNT_DUE_REMAINING) FROM iex_promise_details PRO, IEX_DELINQUENCIES_ALL DEL
1710 WHERE PRO.CUST_ACCOUNT_ID = TRX_SUMM.CUST_ACCOUNT_ID and del.customer_site_use_id = TRX_SUMM.site_use_ID AND
1711 PRO.STATUS IN ('COLLECTABLE', 'PENDING') AND PRO.STATE = 'BROKEN_PROMISE' AND PRO.AMOUNT_DUE_REMAINING > 0 AND
1712 PRO.DELINQUENCY_ID = DEL.DELINQUENCY_ID(+)
1713 AND (DEL.STATUS --(+) Commented for Bug 6446848 06-Jan-2009 barathsr
1714 NOT IN ('CURRENT', 'CLOSE')
1715 or (del.status='CURRENT' and del.source_program_name='IEX_CURR_INV')) --Added for Bug 6446848 06-Jan-2009 barathsr
1716 AND DEL.org_id = trx_summ.org_id) BROKEN_PROMISE_AMOUNT ,
1717
1718 (SELECT SUM(PROMISE_AMOUNT) FROM iex_promise_details PRO, IEX_DELINQUENCIES_ALL DEL
1719 WHERE PRO.CUST_ACCOUNT_ID = TRX_SUMM.CUST_ACCOUNT_ID and del.customer_site_use_id = TRX_SUMM.site_use_ID AND
1720 PRO.STATUS IN ('COLLECTABLE', 'PENDING') AND PRO.STATE = 'BROKEN_PROMISE' AND PRO.AMOUNT_DUE_REMAINING > 0 AND
1721 PRO.DELINQUENCY_ID = DEL.DELINQUENCY_ID(+)
1722 AND (DEL.STATUS --(+) Commented for Bug 6446848 06-Jan-2009 barathsr
1723 NOT IN ('CURRENT', 'CLOSE')
1724 or (del.status='CURRENT' and del.source_program_name='IEX_CURR_INV')) --Added for Bug 6446848 06-Jan-2009 barathsr
1725 AND DEL.org_id = trx_summ.org_id) PROMISE_AMOUNT,
1726
1727 (SELECT 1 FROM dual WHERE EXISTS
1728 (SELECT 1 FROM dual WHERE EXISTS
1729 (SELECT 1
1730 FROM iex_promise_details PRO, IEX_DELINQUENCIES_ALL DEL
1731 WHERE pro.cust_account_id = trx_summ.cust_account_id
1732 and del.customer_site_use_id = TRX_SUMM.site_use_ID
1733 AND pro.state = 'BROKEN_PROMISE'
1734 AND(pro.uwq_status IS NULL OR pro.uwq_status = 'ACTIVE' OR(TRUNC(pro.uwq_active_date) <= TRUNC(sysdate)
1735 AND pro.uwq_status = 'PENDING')))
1736 )
1737 ) active_promises,
1738
1739 (SELECT 1 FROM dual WHERE EXISTS
1740 (SELECT 1 FROM dual WHERE EXISTS
1741 (SELECT 1
1742 FROM iex_promise_details PRO, IEX_DELINQUENCIES_ALL DEL
1743 WHERE pro.cust_account_id = trx_summ.cust_account_id
1744 and del.customer_site_use_id = TRX_SUMM.site_use_ID
1745 AND pro.state = 'BROKEN_PROMISE'
1746 AND(pro.uwq_status = 'COMPLETE'
1747 AND(TRUNC(pro.uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') > TRUNC(sysdate))))
1748 )
1749 ) complete_promises,
1750
1751 (SELECT 1 FROM dual WHERE EXISTS
1752 (SELECT 1 FROM dual WHERE EXISTS
1753 (SELECT 1
1754 FROM iex_promise_details PRO, IEX_DELINQUENCIES_ALL DEL
1755 WHERE pro.cust_account_id = trx_summ.cust_account_id
1756 and del.customer_site_use_id = TRX_SUMM.site_use_ID
1757 AND pro.state = 'BROKEN_PROMISE'
1758 AND(pro.uwq_status = 'PENDING'
1759 AND(TRUNC(pro.uwq_active_date) > TRUNC(sysdate))))
1760 )
1761 ) pending_promises
1762 FROM ar_trx_bal_summary trx_summ,
1763 hz_cust_accounts acc,
1764 hz_parties party,
1765 hz_party_preferences party_pref,--Added for Bug 8707923 27-Jul-2009 barathsr
1766 jtf_objects_b objb,
1767 hz_contact_points phone,
1768 fnd_territories_tl fnd_terr,
1769 hz_cust_site_uses_all site_uses,
1770 hz_customer_profiles prf,
1771 ar_collectors ac,
1772 GL_SETS_OF_BOOKS gl,
1773 AR_SYSTEM_PARAMETERS_all sys,
1774 -- Added for the bug#8538945 by PNAVEENK
1775 HZ_CUST_ACCT_SITES_all ACCT_SITE,--Modified for Bug 9487600 23-Mar-2010 barathsr
1776 HZ_PARTY_SITES PARTY_SITE,
1777 HZ_LOCATIONS LOC
1778 -- end for the bug#8538945
1779 WHERE
1780 trx_summ.reference_1 = '1'
1781 -- Added for the bug#8538945 by PNAVEENK
1782 and PARTY_SITE.LOCATION_ID = LOC.LOCATION_ID
1783 and ACCT_SITE.PARTY_SITE_ID = PARTY_SITE.PARTY_SITE_ID
1784 and site_uses.CUST_ACCT_SITE_ID = ACCT_SITE.CUST_ACCT_SITE_ID
1785 -- end for the bug#8538945
1786 AND trx_summ.site_use_id = site_uses.site_use_id
1787 AND trx_summ.cust_account_id = acc.cust_account_id
1788 AND acc.party_id = party.party_id
1789 AND objb.object_code = 'IEX_BILLTO'
1790 and objb.object_code <> 'IEX_DELINQUENCY'--Added for Bug 8707923 27-Jul-2009 barathsr
1791 AND loc.country = fnd_terr.territory_code(+) -- Changed for the bug#8538945
1792 AND fnd_terr.LANGUAGE(+) = userenv('LANG')
1793 AND phone.owner_table_id(+) = party.party_id
1794 AND phone.owner_table_name(+) = 'HZ_PARTIES'
1795 AND phone.contact_point_type(+) = 'PHONE'
1796 AND phone.primary_by_purpose(+) = 'Y'
1797 AND phone.contact_point_purpose(+) = 'COLLECTIONS'
1798 AND phone.phone_line_type(+) NOT IN('PAGER', 'FAX')
1799 AND phone.status(+) = 'A'
1800 AND nvl(phone.do_not_use_flag(+), 'N') = 'N'
1801 and prf.SITE_USE_ID(+) = trx_summ.site_use_id
1802 and ac.collector_id(+) = prf.collector_id
1803 and gl.SET_OF_BOOKS_ID = sys.SET_OF_BOOKS_ID
1804 and trx_summ.org_id = sys.org_id*/ --9597052
1805 -- start bug 5762888 gnramasa 13-July-2007
1806 /* and (trx_summ.cust_account_id, trx_summ.site_use_id, trx_summ.org_id) in
1807 (select cust_account_id, site_use_id, org_id from ar_trx_bal_summary where trunc(LAST_UPDATE_DATE) >= trunc(p_from_date))
1808 */
1809 /* and trunc(trx_summ.last_update_date) >= trunc(p_from_date)--9597052
1810 -- end bug 5762888 gnramasa 13-July-2007
1811 --Begin Bug 8707923 27-Jul-2009 barathsr
1812 and party.party_id=party_pref.party_id(+)
1813 and party_pref.module(+)='COLLECTIONS'
1814 and party_pref.category(+)='COLLECTIONS LEVEL'
1815 and party_pref.preference_code(+)='PARTY_ID'
1816 and nvl(decode(G_PARTY_LVL_ENB,'Y',party_pref.VALUE_VARCHAR2,null),c_level)='BILL_TO'
1817 and trx_summ.org_id=nvl(c_org_id,trx_summ.org_id)
1818 --End Bug 8707923 27-Jul-2009 barathsr
1819 GROUP BY trx_summ.org_id,
1820 objb.object_function,
1821 objb.object_parameters,
1822 party.party_id,
1823 party.party_name,
1824 trx_summ.cust_account_id,
1825 acc.account_name,
1826 acc.account_number,
1827 trx_summ.site_use_id,
1828 site_uses.location,*/ --9597052
1829 -- Start for the bug#8538945 by PNAVEENK
1830 /* party.address1,
1831 party.city,
1832 party.state,
1833 party.county,*/
1834 /* loc.address1, --9597052
1835 loc.city,
1836 loc.state,
1837 loc.county,
1838 fnd_terr.territory_short_name,
1839 -- party.province,
1840 -- party.postal_code,
1841 loc.province,
1842 loc.postal_code,
1843 -- end for the bug#8538945
1844 phone.phone_country_code,
1845 phone.phone_area_code,
1846 phone.phone_number,
1847 phone.phone_extension;*/ --9597052
1848 -- End - Andre Araujo - 10/20/06 - Added selection using date
1849 --End of comment for Bug 9597052 28-Apr-2010 barathsr
1850 --Begin Bug 9597052 28-Apr-2010 barathsr
1851 --This cursor fetches column values from ar_trx_bal_summary table and the values are inserted in iex_dln_uwq_summary for the date specified
1852 --All the other column values are fetched with small cursors from the respective tables and updated in iex_dln_uwq_summary
1853
1854 CURSOR c_iex_billto_uwq_dt_sum(p_from_date date,c_level varchar2,c_org_id number)
1855 IS
1856 SELECT
1857 trx_summ.org_id,
1858 objb.object_function ieu_object_function,
1859 objb.object_parameters || ' DISPLAYCBO=IEXTRMAN' ieu_object_parameters,
1860 '' ieu_media_type_uuid,
1861 'CUSTOMER_SITE_USE_ID' ieu_param_pk_col,
1862 to_char(trx_summ.site_use_id) ieu_param_pk_value,
1863 to_number(null) party_id,
1864 trx_summ.cust_account_id cust_account_id,
1865 trx_summ.site_use_id site_use_id,
1866 max(gl.CURRENCY_CODE) currency,
1867 SUM(trx_summ.op_invoices_count) op_invoices_count,
1868 SUM(trx_summ.op_debit_memos_count) op_debit_memos_count,
1869 SUM(trx_summ.op_deposits_count) op_deposits_count,
1870 SUM(trx_summ.op_bills_receivables_count) op_bills_receivables_count,
1871 SUM(trx_summ.op_chargeback_count) op_chargeback_count,
1872 SUM(trx_summ.op_credit_memos_count) op_credit_memos_count,
1873 SUM(trx_summ.unresolved_cash_count) unresolved_cash_count,
1874 SUM(trx_summ.disputed_inv_count) disputed_inv_count,
1875 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.best_current_receivables,
1876 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1877 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.best_current_receivables))) best_current_receivables,
1878 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_invoices_value,
1879 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1880 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_invoices_value))) op_invoices_value,
1881 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_debit_memos_value,
1882 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1883 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_debit_memos_value))) op_debit_memos_value,
1884 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_deposits_value,
1885 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1886 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_deposits_value))) op_deposits_value,
1887 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_bills_receivables_value,
1888 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1889 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_bills_receivables_value))) op_bills_receivables_value,
1890 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_chargeback_value,
1891 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1892 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_chargeback_value))) op_chargeback_value,
1893 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_credit_memos_value,
1894 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1895 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_credit_memos_value))) op_credit_memos_value,
1896 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.unresolved_cash_value,
1897 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1898 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.unresolved_cash_value))) unresolved_cash_value,
1899 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.receipts_at_risk_value,
1900 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1901 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.receipts_at_risk_value))) receipts_at_risk_value,
1902 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.inv_amt_in_dispute,
1903 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1904 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.inv_amt_in_dispute))) inv_amt_in_dispute,
1905 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.pending_adj_value,
1906 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
1907 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.pending_adj_value))) pending_adj_value,
1908 SUM(trx_summ.past_due_inv_inst_count) past_due_inv_inst_count,
1909 MAX(trx_summ.last_payment_date) last_payment_date,
1910 MAX(trx_summ.last_update_date) last_update_date,
1911 MAX(trx_summ.last_updated_by) last_updated_by,
1912 MAX(trx_summ.creation_date) creation_date,
1913 MAX(trx_summ.created_by) created_by,
1914 MAX(trx_summ.last_update_login) last_update_login
1915 FROM ar_trx_bal_summary trx_summ,
1916 GL_SETS_OF_BOOKS gl,
1917 AR_SYSTEM_PARAMETERS_all sys,
1918 jtf_objects_b objb,
1919 hz_cust_accounts acc,
1920 hz_party_preferences party_pref
1921 where
1922 P_MODE = 'CP'
1923 AND trx_summ.reference_1 = '1'
1924 AND objb.object_code = 'IEX_BILLTO'
1925 and objb.object_code <> 'IEX_DELINQUENCY'
1926 and gl.SET_OF_BOOKS_ID = sys.SET_OF_BOOKS_ID
1927 and trx_summ.org_id = sys.org_id
1928 and trx_summ.org_id=nvl(c_org_id,trx_summ.org_id)
1929 and trx_summ.cust_account_id=acc.cust_account_id
1930 and trunc(trx_summ.last_update_date) >= trunc(p_from_date)
1931 and acc.party_id=party_pref.party_id(+)
1932 and party_pref.module(+)='COLLECTIONS'
1933 and party_pref.category(+)='COLLECTIONS LEVEL'
1934 and party_pref.preference_code(+)='PARTY_ID'
1935 and nvl(decode(G_PARTY_LVL_ENB,'Y',party_pref.VALUE_VARCHAR2,null),c_level)='BILL_TO'
1936 and trx_summ.site_use_id > 0
1937 group by trx_summ.org_id,
1938 objb.object_function,
1939 objb.object_parameters,
1940 trx_summ.cust_account_id,
1941 trx_summ.site_use_id;
1942
1943
1944 cursor c_billto_deln_cnt_dt
1945 is
1946 SELECT a.customer_site_use_id,
1947 count(a.delinquency_id) number_of_delinquencies,
1948 SUM(b.acctd_amount_due_remaining) past_due_inv_value
1949 FROM iex_delinquencies_all a,
1950 ar_payment_schedules_all b,
1951 iex_dln_uwq_summary dln
1952 WHERE a.customer_site_use_id =dln.site_use_id
1953 AND a.payment_schedule_id = b.payment_schedule_id
1954 AND b.status = 'OP'
1955 AND a.status IN('DELINQUENT', 'PREDELINQUENT')
1956 AND dln.org_id = a.org_id
1957 --AND TRUNC(dln.LAST_UPDATE_DATE)>=trunc(sysdate-1) -- changed for bug 13322580
1958 AND dln.request_id = FND_GLOBAL.CONC_REQUEST_ID -- Added for bug13452739
1959 GROUP BY a.customer_site_use_id;
1960
1961
1962
1963 cursor c_billto_deln_dtls_dt
1964 is
1965 select del.CUSTOMER_SITE_USE_ID,
1966 max(decode(uwq_status,'PENDING',(decode(sign(TRUNC(uwq_active_date) - TRUNC(sysdate)),1,1)))) pending_delinquencies,
1967 max(decode(uwq_status,'COMPLETE',(decode(sign(TRUNC(uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') - TRUNC(sysdate)),1,1)))) complete_delinquencies,
1968 max(decode(uwq_status,NULL,1,'ACTIVE',1,'PENDING',(decode(sign(TRUNC(uwq_active_date) - TRUNC(sysdate)),-1,1,0,1)))) active_delinquencies
1969 from iex_delinquencies_all del,
1970 iex_dln_uwq_summary dln
1971 WHERE del.customer_site_use_id = dln.site_use_id AND
1972 del.org_id = dln.org_id and
1973 del.status IN('DELINQUENT', 'PREDELINQUENT')
1974 --AND TRUNC(dln.LAST_UPDATE_DATE)>=trunc(sysdate-1) -- changed for bug 13322580
1975 AND dln.request_id = FND_GLOBAL.CONC_REQUEST_ID -- Added for bug13452739
1976 group by del.CUSTOMER_SITE_USE_ID;
1977
1978
1979
1980 cursor c_billto_pro_dtls_dt is
1981 SELECT del.customer_site_use_id,
1982 COUNT(1) number_of_promises,
1983 -- Start Bug 14197188 bibeura 26-Jun-2012
1984 -- SUM(pd.amount_due_remaining) broken_promise_amount,
1985 -- SUM(pd.promise_amount) promise_amount
1986 SUM(gl_currency_api.convert_amount_sql(pd.currency_code, dln.currency, sysdate,
1987 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), pd.amount_due_remaining)) broken_promise_amount,
1988 SUM(gl_currency_api.convert_amount_sql(pd.currency_code, dln.currency, sysdate,
1989 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), pd.promise_amount)) promise_amount
1990 -- End Bug 14197188 bibeura 26-Jun-2012
1991 FROM iex_promise_details pd,
1992 iex_delinquencies_all del,
1993 iex_dln_uwq_summary dln
1994 WHERE pd.cust_account_id = del.cust_account_id
1995 AND pd.delinquency_id = del.delinquency_id
1996 AND pd.status IN('COLLECTABLE', 'PENDING')
1997 AND pd.state = 'BROKEN_PROMISE'
1998 AND pd.amount_due_remaining > 0
1999 AND (del.status NOT IN('CURRENT', 'CLOSE')
2000 or (del.status='CURRENT' and del.source_program_name='IEX_CURR_INV'))
2001 and del.customer_site_use_id = dln.site_use_id
2002 and del.org_id = dln.org_id
2003 --and TRUNC(dln.LAST_UPDATE_DATE)>=TRUNC(sysdate-1) -- changed for bug 13322580
2004 and dln.request_id = FND_GLOBAL.CONC_REQUEST_ID -- Added for bug13452739
2005 GROUP BY del.customer_site_use_id;
2006
2007 cursor c_billto_pro_summ_dt is
2008 select del.CUSTOMER_SITE_USE_ID,
2009 max(decode(pd.uwq_status,'PENDING',(decode(sign(TRUNC(pd.uwq_active_date) - TRUNC(sysdate)),1,1)))) pending_promises,
2010 max(decode(pd.uwq_status,'COMPLETE',(decode(sign(TRUNC(pd.uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') - TRUNC(sysdate)),1,1)))) complete_promises,
2011 max(decode(pd.uwq_status,NULL,1,'ACTIVE',1,'PENDING',(decode(sign(TRUNC(pd.uwq_active_date) - TRUNC(sysdate)),-1,1,0,1)))) active_promises
2012 from iex_promise_details pd,
2013 IEX_DELINQUENCIES_ALL DEL,
2014 iex_dln_uwq_summary dln
2015 WHERE pd.cust_account_id = del.cust_account_id
2016 and pd.delinquency_id = del.delinquency_id
2017 and del.customer_site_use_id = dln.site_use_id
2018 and del.org_id = dln.org_id
2019 and pd.state = 'BROKEN_PROMISE'
2020 --AND TRUNC(dln.LAST_UPDATE_DATE)>=TRUNC(sysdate-1) -- changed for bug 13322580
2021 and dln.request_id = FND_GLOBAL.CONC_REQUEST_ID -- Added for bug13452739
2022 group by del.CUSTOMER_SITE_USE_ID;
2023
2024
2025 CURSOR c_billto_site_details_dt IS
2026 SELECT
2027 party.party_id party_id,
2028 party.party_name party_name,
2029 summ.cust_account_id cust_account_id,
2030 acc.account_name account_name,
2031 acc.account_number account_number,
2032 summ.site_use_id site_use_id,
2033 site_uses.location location,
2034 loc.address1 address1,
2035 loc.city city,
2036 loc.state state,
2037 loc.county county,
2038 fnd_terr.territory_short_name country,
2039 loc.province province,
2040 loc.postal_code postal_code
2041 FROM iex_dln_uwq_summary summ,
2042 hz_cust_accounts acc,
2043 hz_parties party,
2044 hz_party_preferences party_pref,
2045 fnd_territories_tl fnd_terr,
2046 hz_cust_site_uses_all site_uses,
2047 hz_cust_acct_sites_all acct_site,
2048 hz_party_sites party_site,
2049 hz_locations loc
2050 WHERE
2051 party_site.location_id = loc.location_id
2052 and acct_site.party_site_id = party_site.party_site_id
2053 and site_uses.cust_acct_site_id = acct_site.cust_acct_site_id
2054 AND summ.site_use_id = site_uses.site_use_id
2055 AND summ.cust_account_id = acc.cust_account_id
2056 AND acc.party_id = party.party_id
2057 AND loc.country = fnd_terr.territory_code(+)
2058 -- AND trunc(summ.LAST_UPDATE_DATE) >= trunc(sysdate-1) -- changed for bug 13322580
2059 AND summ.request_id = FND_GLOBAL.CONC_REQUEST_ID -- Added for bug13452739
2060 AND fnd_terr.LANGUAGE(+) = userenv('LANG')
2061 and party.party_id=party_pref.party_id(+)
2062 and party_pref.module(+)='COLLECTIONS'
2063 and party_pref.category(+)='COLLECTIONS LEVEL'
2064 and party_pref.preference_code(+)='PARTY_ID'
2065 GROUP BY party.party_id,
2066 party.party_name,
2067 summ.cust_account_id,
2068 acc.account_name,
2069 acc.account_number,
2070 summ.site_use_id,
2071 site_uses.location,
2072 loc.address1,
2073 loc.city,
2074 loc.state,
2075 loc.county,
2076 fnd_terr.territory_short_name,
2077 loc.province,
2078 loc.postal_code;
2079
2080
2081 CURSOR C_billto_CONTACT_POINT_dt IS
2082 SELECT summ.party_id,
2083 phone.phone_country_code phone_country_code,
2084 phone.phone_area_code phone_area_code,
2085 phone.phone_number phone_number,
2086 phone.phone_extension phone_extension
2087 FROM iex_dln_uwq_summary summ,
2088 hz_contact_points phone
2089 WHERE
2090 phone.owner_table_id = summ.party_id
2091 AND phone.owner_table_name = 'HZ_PARTIES'
2092 AND phone.contact_point_type = 'PHONE'
2093 AND phone.primary_by_purpose = 'Y'
2094 AND phone.contact_point_purpose = 'COLLECTIONS'
2095 AND phone.phone_line_type NOT IN('PAGER', 'FAX')
2096 AND phone.status = 'A'
2097 AND nvl(phone.do_not_use_flag, 'N') = 'N'
2098 -- AND trunc(summ.LAST_UPDATE_DATE) >= trunc(sysdate-1) -- changed for bug 13322580
2099 AND summ.request_id = FND_GLOBAL.CONC_REQUEST_ID -- Added for bug13452739
2100 group by summ.party_id,
2101 phone.phone_country_code,
2102 phone.phone_area_code,
2103 phone.phone_number,
2104 phone.phone_extension;
2105
2106 cursor C_BILLTO_COLLECTOR_PROF_dt is
2107 SELECT
2108 hp.collector_id collector_id,
2109 ac.resource_id collector_resource_id,
2110 ac.resource_type COLLECTOR_RES_TYPE,
2111 decode(ac.resource_type, 'RS_RESOURCE' , rs.source_name , rg.group_name) collector_resource_name,
2112 1 resource_id,
2113 'RS_EMPLOYEE' resource_type,
2114 hp.party_id,
2115 hp.cust_account_id,
2116 hp.site_use_id
2117 FROM
2118 hz_customer_profiles hp,
2119 ar_collectors ac,
2120 iex_dln_uwq_summary temp,
2121 JTF_RS_GROUPS_VL rg,
2122 jtf_rs_resource_extns rs
2123 WHERE
2124 hp.site_use_id=temp.site_use_id
2125 and hp.collector_id=ac.collector_id
2126 and rg.group_id (+) = ac.resource_id
2127 and rs.resource_id(+) = ac.resource_id
2128 --AND trunc(temp.LAST_UPDATE_DATE) >= trunc(sysdate-1); -- changed for bug 13322580
2129 and temp.request_id = FND_GLOBAL.CONC_REQUEST_ID ; -- Added for bug13452739
2130
2131 CURSOR c_billto_ch_coll_dt_sum IS
2132 SELECT
2133 DISTINCT
2134 ac.resource_id collector_resource_id,
2135 ac.resource_type COLLECTOR_RES_TYPE,
2136 ac.collector_id collector_id,
2137 hp.site_use_id
2138 FROM
2139 ar_collectors ac,
2140 hz_customer_profiles hp,
2141 iex_dln_uwq_summary ids
2142 WHERE
2143 hp.site_use_id=ids.site_use_id
2144 and ac.collector_id = hp.collector_id
2145 AND ac.resource_id is NOT NULL
2146 AND ac.resource_id <> ids.collector_resource_id
2147 -- AND trunc(ids.last_update_date)>= TRUNC(SYSDATE-1); -- changed for bug 13322580
2148 AND ids.request_id = FND_GLOBAL.CONC_REQUEST_ID; -- Added for bug13452739
2149
2150 cursor c_billto_last_payment_dtls_dt is
2151 select summ.site_use_id,
2152 summ.last_payment_amount last_payment_amount,
2153 summ.currency last_payment_currency,
2154 summ.last_payment_number last_payment_number
2155 from ar_trx_bal_summary summ,
2156 gl_sets_of_books gl,
2157 ar_system_parameters_all sys
2158 where summ.reference_1='1'
2159 and gl.SET_OF_BOOKS_ID = sys.SET_OF_BOOKS_ID
2160 and summ.org_id = sys.org_id
2161 and summ.last_payment_date=(select max(summ1.last_payment_date)
2162 from iex_dln_uwq_summary summ1
2163 where summ1.site_use_id=summ.site_use_id
2164 --and trunc(summ1.last_update_date)>= trunc(sysdate-1)); -- chnaged for bug 13322580
2165 and summ1.request_id = FND_GLOBAL.CONC_REQUEST_ID); -- Added for bug13452739
2166
2167
2168 cursor c_billto_bankruptcies_dt is
2169 select summ.party_id,
2170 COUNT(1) number_of_bankruptcies
2171 FROM iex_bankruptcies bkr,
2172 iex_dln_uwq_summary summ
2173 where bkr.customer_site_use_id=summ.site_use_id
2174 and NVL(BKR.DISPOSITION_CODE,'GRANTED') in ('GRANTED','NEGOTIATION')
2175 --AND trunc(summ.last_update_date)>=trunc(sysdate-1) --changed for bug 13322580
2176 AND summ.request_id = FND_GLOBAL.CONC_REQUEST_ID -- Added for bug13452739
2177 group by summ.party_id;
2178
2179 cursor c_billto_score_dt is
2180 SELECT sh.score_object_id,
2181 sh.score_value score,
2182 sc.score_id,
2183 sc.score_name
2184 FROM iex_score_histories sh,iex_scores sc
2185 WHERE sc.score_id = sh.score_id
2186 and (sh.score_object_id,sh.score_object_code,sh.creation_date)
2187 in (SELECT sh1.score_object_id,sh1.score_object_code,MAX(sh1.creation_date)
2188 FROM iex_score_histories sh1,
2189 iex_dln_uwq_summary temp
2190 WHERE sh1.score_object_code = 'IEX_BILLTO'
2191 AND sh1.score_object_id = temp.site_use_id
2192 --AND trunc(temp.LAST_UPDATE_DATE) >= trunc(sysdate-1) -- chnaged for bug 13322580
2193 AND temp.request_id = FND_GLOBAL.CONC_REQUEST_ID -- Added for bug13452739
2194 group by sh1.score_object_id,sh1.score_object_code);
2195
2196 --End Bug 9597052 28-Apr-2010 barathsr
2197
2198 -------------------------------
2199 --Start of comment for Bug 9597052 28-Apr-2010 barathsr
2200 /* CURSOR c_iex_acc_uwq_summary(c_level varchar2,c_org_id number) --Added for Bug 8707923 27-Jul-2009 barathsr
2201 IS
2202 SELECT
2203 trx_summ.org_id,
2204 max(ac.collector_id),
2205 max(ac.resource_id),
2206 max(ac.resource_type),
2207 objb.object_function ieu_object_function,
2208 objb.object_parameters || ' DISPLAYCBO=IEXTRMAN' ieu_object_parameters,
2209 '' ieu_media_type_uuid,
2210 'CUST_ACCOUNT_ID' ieu_param_pk_col,
2211 to_char(trx_summ.cust_account_id) ieu_param_pk_value,
2212 1 resource_id,
2213 'RS_EMPLOYEE' resource_type,
2214 party.party_id party_id,
2215 party.party_name party_name,
2216 trx_summ.cust_account_id cust_account_id,
2217 acc.account_name account_name,
2218 acc.account_number account_number,
2219 to_number(null) site_use_id,
2220 null location,
2221 max(gl.CURRENCY_CODE) currency,
2222 SUM(trx_summ.op_invoices_count) op_invoices_count,
2223 SUM(trx_summ.op_debit_memos_count) op_debit_memos_count,
2224 SUM(trx_summ.op_deposits_count) op_deposits_count,
2225 SUM(trx_summ.op_bills_receivables_count) op_bills_receivables_count,
2226 SUM(trx_summ.op_chargeback_count) op_chargeback_count,
2227 SUM(trx_summ.op_credit_memos_count) op_credit_memos_count,
2228 SUM(trx_summ.unresolved_cash_count) unresolved_cash_count,
2229 SUM(trx_summ.disputed_inv_count) disputed_inv_count,
2230 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.best_current_receivables,
2231 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2232 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.best_current_receivables))) best_current_receivables,
2233 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_invoices_value,
2234 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2235 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_invoices_value))) op_invoices_value,
2236 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_debit_memos_value,
2237 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2238 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_debit_memos_value))) op_debit_memos_value,
2239 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_deposits_value,
2240 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2241 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_deposits_value))) op_deposits_value,
2242 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_bills_receivables_value,
2243 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2244 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_bills_receivables_value))) op_bills_receivables_value,
2245 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_chargeback_value,
2246 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2247 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_chargeback_value))) op_chargeback_value,
2248 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_credit_memos_value,
2249 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2250 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_credit_memos_value))) op_credit_memos_value,
2251 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.unresolved_cash_value,
2252 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2253 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.unresolved_cash_value))) unresolved_cash_value,
2254 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.receipts_at_risk_value,
2255 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2256 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.receipts_at_risk_value))) receipts_at_risk_value,
2257 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.inv_amt_in_dispute,
2258 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2259 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.inv_amt_in_dispute))) inv_amt_in_dispute,
2260 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.pending_adj_value,
2261 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2262 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.pending_adj_value))) pending_adj_value,
2263 (SELECT SUM(b.acctd_amount_due_remaining)
2264 FROM iex_delinquencies_all a,
2265 ar_payment_schedules_all b
2266 WHERE a.cust_account_id = trx_summ.cust_account_id
2267 AND a.payment_schedule_id = b.payment_schedule_id
2268 AND b.status = 'OP'
2269 AND a.status IN('DELINQUENT', 'PREDELINQUENT')
2270 AND b.org_id = trx_summ.org_id) past_due_inv_value,
2271 SUM(trx_summ.past_due_inv_inst_count) past_due_inv_inst_count,
2272 MAX(trx_summ.last_payment_date) last_payment_date,
2273 MAX(iex_uwq_view_pkg.get_last_payment_amount(0, trx_summ.cust_account_id, 0)) last_payment_amount,
2274 max(gl.CURRENCY_CODE) last_payment_amount_curr,
2275 MAX(iex_uwq_view_pkg.get_last_payment_number(0, trx_summ.cust_account_id, 0)) last_payment_number,
2276 MAX(trx_summ.last_update_date) last_update_date,
2277 MAX(trx_summ.last_updated_by) last_updated_by,
2278 MAX(trx_summ.creation_date) creation_date,
2279 MAX(trx_summ.created_by) created_by,
2280 MAX(trx_summ.last_update_login) last_update_login,
2281 (SELECT COUNT(1)
2282 FROM iex_delinquencies_all
2283 WHERE cust_account_id = trx_summ.cust_account_id
2284 AND status IN('DELINQUENT', 'PREDELINQUENT')
2285 AND org_id = trx_summ.org_id)
2286 number_of_delinquencies,
2287 (SELECT 1
2288 FROM dual
2289 WHERE EXISTS
2290 (SELECT 1
2291 FROM iex_delinquencies_all
2292 WHERE cust_account_id = trx_summ.cust_account_id
2293 AND status IN('DELINQUENT', 'PREDELINQUENT')
2294 AND org_id = trx_summ.org_id
2295 AND(uwq_status IS NULL OR uwq_status = 'ACTIVE' OR(TRUNC(uwq_active_date) <= TRUNC(sysdate)
2296 AND uwq_status = 'PENDING')))
2297 )
2298 active_delinquencies,
2299 (SELECT 1
2300 FROM dual
2301 WHERE EXISTS
2302 (SELECT 1
2303 FROM iex_delinquencies_all
2304 WHERE cust_account_id = trx_summ.cust_account_id
2305 AND status IN('DELINQUENT', 'PREDELINQUENT')
2306 AND org_id = trx_summ.org_id
2307 AND(uwq_status = 'COMPLETE'
2308 AND(TRUNC(uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') > TRUNC(sysdate))))
2309 )
2310 complete_delinquencies,
2311 (SELECT 1
2312 FROM dual
2313 WHERE EXISTS
2314 (SELECT 1
2315 FROM iex_delinquencies_all WHERE cust_account_id = trx_summ.cust_account_id
2316 AND status IN('DELINQUENT', 'PREDELINQUENT')
2317 AND org_id = trx_summ.org_id
2318 AND(uwq_status = 'PENDING'
2319 AND(TRUNC(uwq_active_date) > TRUNC(sysdate))))
2320 )
2321 pending_delinquencies,
2322
2323 -- Start for the bug#7562130 by PNAVEENK
2324 /* (SELECT a.score_value
2325 FROM iex_score_histories a
2326 WHERE a.creation_date =
2327 (SELECT MAX(creation_date)
2328 FROM iex_score_histories
2329 WHERE score_object_code = 'IEX_ACCOUNT'
2330 AND score_object_id = trx_summ.cust_account_id)
2331 AND rownum < 2
2332 AND a.score_object_code = 'IEX_ACCOUNT'
2333 AND a.score_object_id = trx_summ.cust_account_id)
2334 score,*/
2335 /* to_number(cal_score(trx_summ.cust_account_id,'IEX_ACCOUNT','SCORE_VALUE')) score,
2336 to_number(cal_score(trx_summ.cust_account_id,'IEX_ACCOUNT','SCORE_ID')) score_id,
2337 cal_score(trx_summ.cust_account_id,'IEX_ACCOUNT','SCORE_NAME') score_name,
2338 max(decode(ac.resource_type, 'RS_RESOURCE' ,
2339 (select rs.source_name from jtf_rs_resource_extns rs where rs.resource_id= ac.resource_id),
2340 (select rg.group_name from JTF_RS_GROUPS_VL rg where rg.group_id=ac.resource_id)
2341 ) ) collector_resource_name,
2342 -- end for the bug#7562130
2343 party.address1 address1,
2344 party.city city,
2345 party.state state,
2346 party.county county,
2347 fnd_terr.territory_short_name country,
2348 party.province province,
2349 party.postal_code postal_code,
2350 phone.phone_country_code phone_country_code,
2351 phone.phone_area_code phone_area_code,
2352 phone.phone_number phone_number,
2353 phone.phone_extension phone_extension,
2354 (SELECT COUNT(1) FROM iex_bankruptcies bkr WHERE bkr.party_id = party.party_id and NVL(BKR.DISPOSITION_CODE,'GRANTED') in ('GRANTED','NEGOTIATION')) number_of_bankruptcies, -- Changed for bug#7693986
2355
2356 (SELECT COUNT(1) FROM iex_promise_details PRO, IEX_DELINQUENCIES_all DEL
2357 WHERE PRO.CUST_ACCOUNT_ID = TRX_SUMM.CUST_ACCOUNT_ID AND
2358 PRO.STATUS IN ('COLLECTABLE', 'PENDING') AND PRO.STATE = 'BROKEN_PROMISE' AND PRO.AMOUNT_DUE_REMAINING > 0 AND
2359 PRO.DELINQUENCY_ID = DEL.DELINQUENCY_ID(+)
2360 AND (DEL.STATUS --(+) Commented for Bug 6446848 06-Jan-2009 barathsr
2361 NOT IN ('CURRENT', 'CLOSE')
2362 or (del.status='CURRENT' and del.source_program_name='IEX_CURR_INV'))--Added for Bug 6446848 06-Jan-2009 barathsr
2363 AND DEL.org_id = trx_summ.org_id) NUMBER_OF_PROMISES ,
2364
2365 (SELECT SUM(AMOUNT_DUE_REMAINING) FROM IEX_PROMISE_DETAILS PRO, IEX_DELINQUENCIES_all DEL
2366 WHERE PRO.CUST_ACCOUNT_ID = TRX_SUMM.CUST_ACCOUNT_ID AND
2367 PRO.STATUS IN ('COLLECTABLE', 'PENDING') AND PRO.STATE = 'BROKEN_PROMISE' AND PRO.AMOUNT_DUE_REMAINING > 0 AND
2368 PRO.DELINQUENCY_ID = DEL.DELINQUENCY_ID(+)
2369 AND (DEL.STATUS --(+) Commented for Bug 6446848 06-Jan-2009 barathsr
2370 NOT IN ('CURRENT', 'CLOSE')
2371 or (del.status='CURRENT' and del.source_program_name='IEX_CURR_INV'))--Added for Bug 6446848 06-Jan-2009 barathsr
2372 AND DEL.org_id = trx_summ.org_id) BROKEN_PROMISE_AMOUNT ,
2373
2374 (SELECT SUM(PROMISE_AMOUNT) FROM IEX_PROMISE_DETAILS PRO, IEX_DELINQUENCIES_all DEL
2375 WHERE PRO.CUST_ACCOUNT_ID = TRX_SUMM.CUST_ACCOUNT_ID AND
2376 PRO.STATUS IN ('COLLECTABLE', 'PENDING') AND PRO.STATE = 'BROKEN_PROMISE' AND PRO.AMOUNT_DUE_REMAINING > 0 AND
2377 PRO.DELINQUENCY_ID = DEL.DELINQUENCY_ID(+)
2378 AND (DEL.STATUS --(+) Commented for Bug 6446848 06-Jan-2009 barathsr
2379 NOT IN ('CURRENT', 'CLOSE')
2380 or (del.status='CURRENT' and del.source_program_name='IEX_CURR_INV'))--Added for Bug 6446848 06-Jan-2009 barathsr
2381 AND DEL.org_id = trx_summ.org_id) PROMISE_AMOUNT,
2382
2383 (SELECT 1 FROM dual WHERE EXISTS
2384 (SELECT 1 FROM dual WHERE EXISTS
2385 (SELECT 1
2386 FROM iex_promise_details
2387 WHERE cust_account_id = trx_summ.cust_account_id
2388 AND state = 'BROKEN_PROMISE'
2389 AND(uwq_status IS NULL OR uwq_status = 'ACTIVE' OR(TRUNC(uwq_active_date) <= TRUNC(sysdate)
2390 AND uwq_status = 'PENDING')))
2391 )
2392 ) active_promises,
2393
2394 (SELECT 1 FROM dual WHERE EXISTS
2395 (SELECT 1 FROM dual WHERE EXISTS
2396 (SELECT 1
2397 FROM iex_promise_details
2398 WHERE cust_account_id = trx_summ.cust_account_id
2399 AND state = 'BROKEN_PROMISE'
2400 AND(uwq_status = 'COMPLETE'
2401 AND(TRUNC(uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') > TRUNC(sysdate))))
2402 )
2403 ) complete_promises,
2404
2405 (SELECT 1 FROM dual WHERE EXISTS
2406 (SELECT 1 FROM dual WHERE EXISTS
2407 (SELECT 1
2408 FROM iex_promise_details
2409 WHERE cust_account_id = trx_summ.cust_account_id
2410 AND state = 'BROKEN_PROMISE'
2411 AND(uwq_status = 'PENDING'
2412 AND(TRUNC(uwq_active_date) > TRUNC(sysdate))))
2413 )
2414 ) pending_promises
2415
2416 FROM ar_trx_bal_summary trx_summ,
2417 hz_cust_accounts acc,
2418 hz_parties party,
2419 hz_party_preferences party_pref,--Added for Bug 8707923 27-Jul-2009 barathsr
2420 jtf_objects_b objb,
2421 hz_contact_points phone,
2422 fnd_territories_tl fnd_terr,
2423 hz_customer_profiles prf,
2424 ar_collectors ac,
2425 GL_SETS_OF_BOOKS gl,
2426 AR_SYSTEM_PARAMETERS_all sys
2427 WHERE
2428 P_MODE = 'CP'
2429 AND trx_summ.reference_1 = '1'
2430 AND trx_summ.cust_account_id = acc.cust_account_id
2431 AND acc.party_id = party.party_id
2432 AND objb.object_code = 'IEX_ACCOUNT'
2433 and objb.object_code <> 'IEX_DELINQUENCY'--Added for Bug 8707923 27-Jul-2009 barathsr
2434 AND party.country = fnd_terr.territory_code(+)
2435 AND fnd_terr.LANGUAGE(+) = userenv('LANG')
2436 AND phone.owner_table_id(+) = party.party_id
2437 AND phone.owner_table_name(+) = 'HZ_PARTIES'
2438 AND phone.contact_point_type(+) = 'PHONE'
2439 AND phone.primary_by_purpose(+) = 'Y'
2440 AND phone.contact_point_purpose(+) = 'COLLECTIONS'
2441 AND phone.phone_line_type(+) NOT IN('PAGER', 'FAX')
2442 AND phone.status(+) = 'A'
2443 AND nvl(phone.do_not_use_flag(+), 'N') = 'N'
2444 and prf.CUST_ACCOUNT_ID = trx_summ.CUST_ACCOUNT_ID
2445 and prf.SITE_USE_ID is null
2446 and ac.collector_id(+) = prf.collector_id
2447 and gl.SET_OF_BOOKS_ID = sys.SET_OF_BOOKS_ID
2448 and trx_summ.org_id = sys.org_id
2449 --Begin Bug 8707923 27-Jul-2009 barathsr
2450 and party.party_id=party_pref.party_id(+)
2451 and party_pref.module(+)='COLLECTIONS'
2452 and party_pref.category(+)='COLLECTIONS LEVEL'
2453 and party_pref.preference_code(+)='PARTY_ID'
2454 and nvl(decode(G_PARTY_LVL_ENB,'Y',party_pref.VALUE_VARCHAR2,null),c_level)='ACCOUNT'
2455 and trx_summ.org_id=nvl(c_org_id,trx_summ.org_id)
2456 --End Bug 8707923 27-Jul-2009 barathsr
2457 GROUP BY trx_summ.org_id,
2458 objb.object_function,
2459 objb.object_parameters,
2460 party.party_id,
2461 party.party_name,
2462 trx_summ.cust_account_id,
2463 acc.account_name,
2464 acc.account_number,
2465 party.address1,
2466 party.city,
2467 party.state,
2468 party.county,
2469 fnd_terr.territory_short_name,
2470 party.province,
2471 party.postal_code,
2472 phone.phone_country_code,
2473 phone.phone_area_code,
2474 phone.phone_number,
2475 phone.phone_extension;*/
2476 --End of comment for Bug 9597052 28-Apr-2010 barathsr
2477
2478 --Begin Bug 9597052 28-Apr-2010 barathsr
2479 --This cursor fetches column values from ar_trx_bal_summary table and the values are inserted in iex_dln_uwq_summary at Account level
2480 --All the other column values are fetched with small cursors from the respective tables and updated in iex_dln_uwq_summary
2481
2482 CURSOR c_iex_acc_uwq_summary(c_level varchar2,c_org_id number) --Added for Bug 8707923 27-Jul-2009 barathsr
2483 IS
2484 SELECT
2485 trx_summ.org_id,
2486 objb.object_function ieu_object_function,
2487 objb.object_parameters || ' DISPLAYCBO=IEXTRMAN' ieu_object_parameters,
2488 '' ieu_media_type_uuid,
2489 'CUST_ACCOUNT_ID' ieu_param_pk_col,
2490 to_char(trx_summ.cust_account_id) ieu_param_pk_value,
2491 to_number(null) party_id,
2492 trx_summ.cust_account_id cust_account_id,
2493 to_number(null) site_use_id,
2494 max(gl.CURRENCY_CODE) currency,
2495 SUM(trx_summ.op_invoices_count) op_invoices_count,
2496 SUM(trx_summ.op_debit_memos_count) op_debit_memos_count,
2497 SUM(trx_summ.op_deposits_count) op_deposits_count,
2498 SUM(trx_summ.op_bills_receivables_count) op_bills_receivables_count,
2499 SUM(trx_summ.op_chargeback_count) op_chargeback_count,
2500 SUM(trx_summ.op_credit_memos_count) op_credit_memos_count,
2501 SUM(trx_summ.unresolved_cash_count) unresolved_cash_count,
2502 SUM(trx_summ.disputed_inv_count) disputed_inv_count,
2503 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.best_current_receivables,
2504 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2505 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.best_current_receivables))) best_current_receivables,
2506 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_invoices_value,
2507 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2508 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_invoices_value))) op_invoices_value,
2509 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_debit_memos_value,
2510 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2511 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_debit_memos_value))) op_debit_memos_value,
2512 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_deposits_value,
2513 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2514 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_deposits_value))) op_deposits_value,
2515 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_bills_receivables_value,
2516 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2517 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_bills_receivables_value))) op_bills_receivables_value,
2518 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_chargeback_value,
2519 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2520 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_chargeback_value))) op_chargeback_value,
2521 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_credit_memos_value,
2522 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2523 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_credit_memos_value))) op_credit_memos_value,
2524 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.unresolved_cash_value,
2525 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2526 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.unresolved_cash_value))) unresolved_cash_value,
2527 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.receipts_at_risk_value,
2528 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2529 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.receipts_at_risk_value))) receipts_at_risk_value,
2530 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.inv_amt_in_dispute,
2531 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2532 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.inv_amt_in_dispute))) inv_amt_in_dispute,
2533 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.pending_adj_value,
2534 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2535 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.pending_adj_value))) pending_adj_value,
2536 SUM(trx_summ.past_due_inv_inst_count) past_due_inv_inst_count,
2537 MAX(trx_summ.last_payment_date) last_payment_date,
2538 MAX(trx_summ.last_update_date) last_update_date,
2539 MAX(trx_summ.last_updated_by) last_updated_by,
2540 MAX(trx_summ.creation_date) creation_date,
2541 MAX(trx_summ.created_by) created_by,
2542 MAX(trx_summ.last_update_login) last_update_login
2543 FROM ar_trx_bal_summary trx_summ,
2544 hz_cust_accounts acc,
2545 hz_party_preferences party_pref,--Added for Bug 8707923 27-Jul-2009 barathsr
2546 jtf_objects_b objb,
2547 GL_SETS_OF_BOOKS gl,
2548 AR_SYSTEM_PARAMETERS_all sys
2549 WHERE
2550 P_MODE = 'CP'
2551 AND trx_summ.reference_1 = '1'
2552 AND trx_summ.cust_account_id = acc.cust_account_id
2553 -- and trx_summ.site_use_id is null
2554 AND objb.object_code = 'IEX_ACCOUNT'
2555 and objb.object_code <> 'IEX_DELINQUENCY'--Added for Bug 8707923 27-Jul-2009 barathsr
2556 and gl.SET_OF_BOOKS_ID = sys.SET_OF_BOOKS_ID
2557 and trx_summ.org_id = sys.org_id
2558 --Begin Bug 8707923 27-Jul-2009 barathsr
2559 and acc.party_id=party_pref.party_id(+)
2560 and party_pref.module(+)='COLLECTIONS'
2561 and party_pref.category(+)='COLLECTIONS LEVEL'
2562 and party_pref.preference_code(+)='PARTY_ID'
2563 and nvl(decode(G_PARTY_LVL_ENB,'Y',party_pref.VALUE_VARCHAR2,null),c_level)='ACCOUNT'
2564 and trx_summ.org_id=nvl(c_org_id,trx_summ.org_id)
2565 --End Bug 8707923 27-Jul-2009 barathsr
2566 GROUP BY trx_summ.org_id,
2567 objb.object_function,
2568 objb.object_parameters,
2569 trx_summ.cust_account_id;
2570
2571
2572 cursor c_acc_deln_cnt is
2573 SELECT a.cust_account_id,dln.org_id,
2574 count(a.delinquency_id) number_of_delinquencies,
2575 SUM(b.acctd_amount_due_remaining) past_due_inv_value
2576 FROM iex_delinquencies_all a,
2577 ar_payment_schedules_all b,
2578 iex_dln_uwq_summary dln
2579 WHERE a.cust_account_id =dln.cust_account_id
2580 AND a.payment_schedule_id = b.payment_schedule_id
2581 AND b.status = 'OP'
2582 AND a.status IN('DELINQUENT', 'PREDELINQUENT')
2583 AND dln.org_id = a.org_id
2584 and dln.site_use_id is null
2585 GROUP BY a.cust_account_id,dln.org_id;
2586
2587 cursor c_acc_deln_dtls
2588 is
2589 select del.cust_account_ID,dln.org_id,
2590 max(decode(uwq_status,'PENDING',(decode(sign(TRUNC(uwq_active_date) - TRUNC(sysdate)),1,1)))) pending_delinquencies,
2591 max(decode(uwq_status,'COMPLETE',(decode(sign(TRUNC(uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') - TRUNC(sysdate)),1,1)))) complete_delinquencies,
2592 max(decode(uwq_status,NULL,1,'ACTIVE',1,'PENDING',(decode(sign(TRUNC(uwq_active_date) - TRUNC(sysdate)),-1,1,0,1)))) active_delinquencies
2593 from iex_delinquencies_all del,
2594 iex_dln_uwq_summary dln
2595 WHERE del.cust_account_id = dln.cust_account_id AND
2596 del.org_id = dln.org_id and
2597 del.status IN('DELINQUENT', 'PREDELINQUENT')
2598 group by del.Cust_account_id,dln.org_id;
2599
2600 cursor c_acc_pro_dtls is
2601 SELECT del.cust_account_id,dln.org_id,
2602 COUNT(1) number_of_promises,
2603 -- Start Bug 14197188 bibeura 26-Jun-2012
2604 -- SUM(pd.amount_due_remaining) broken_promise_amount,
2605 -- SUM(pd.promise_amount) promise_amount
2606 SUM(gl_currency_api.convert_amount_sql(pd.currency_code, dln.currency, sysdate,
2607 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), pd.amount_due_remaining)) broken_promise_amount,
2608 SUM(gl_currency_api.convert_amount_sql(pd.currency_code, dln.currency, sysdate,
2609 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), pd.promise_amount)) promise_amount
2610 -- End Bug 14197188 bibeura 26-Jun-2012
2611 FROM iex_promise_details pd,
2612 iex_delinquencies_all del,
2613 iex_dln_uwq_summary dln
2614 WHERE dln.cust_account_id = del.cust_account_id
2615 AND pd.delinquency_id = del.delinquency_id
2616 AND pd.status IN('COLLECTABLE', 'PENDING')
2617 AND pd.state = 'BROKEN_PROMISE'
2618 AND pd.amount_due_remaining > 0
2619 AND (del.status NOT IN('CURRENT', 'CLOSE')
2620 or (del.status='CURRENT' and del.source_program_name='IEX_CURR_INV'))
2621 and dln.site_use_id is null
2622 and del.org_id = dln.org_id
2623 GROUP BY del.cust_account_id,dln.org_id;
2624
2625 cursor c_acc_pro_summ is
2626 select del.CUST_Account_ID,dln.org_id,
2627 max(decode(pd.uwq_status,'PENDING',(decode(sign(TRUNC(pd.uwq_active_date) - TRUNC(sysdate)),1,1)))) pending_promises,
2628 max(decode(pd.uwq_status,'COMPLETE',(decode(sign(TRUNC(pd.uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') - TRUNC(sysdate)),1,1)))) complete_promises,
2629 max(decode(pd.uwq_status,NULL,1,'ACTIVE',1,'PENDING',(decode(sign(TRUNC(pd.uwq_active_date) - TRUNC(sysdate)),-1,1,0,1)))) active_promises
2630 from iex_promise_details pd,
2631 IEX_DELINQUENCIES_ALL DEL,
2632 iex_dln_uwq_summary dln
2633 WHERE dln.cust_account_id = del.cust_account_id
2634 and pd.delinquency_id = del.delinquency_id
2635 and dln.site_use_id is null
2636 and del.org_id = dln.org_id
2637 and pd.state = 'BROKEN_PROMISE'
2638 group by del.CUST_account_ID,dln.org_id;
2639
2640
2641 CURSOR c_acct_details IS
2642 SELECT
2643 party.party_id party_id,summ.org_id,
2644 party.party_name party_name,
2645 summ.cust_account_id cust_account_id,
2646 acc.account_name account_name,
2647 acc.account_number account_number,
2648 null location,
2649 party.address1 address1,
2650 party.city city,
2651 party.state state,
2652 party.county county,
2653 fnd_terr.territory_short_name country,
2654 party.province province,
2655 party.postal_code postal_code
2656 FROM iex_dln_uwq_summary summ,
2657 hz_cust_accounts acc,
2658 hz_parties party,
2659 hz_party_preferences party_pref,
2660 fnd_territories_tl fnd_terr
2661 WHERE
2662 summ.cust_account_id = acc.cust_account_id
2663 AND acc.party_id = party.party_id
2664 AND party.country = fnd_terr.territory_code(+)
2665 AND fnd_terr.LANGUAGE(+) = userenv('LANG')
2666 and party.party_id=party_pref.party_id(+)
2667 and party_pref.module(+)='COLLECTIONS'
2668 and party_pref.category(+)='COLLECTIONS LEVEL'
2669 and party_pref.preference_code(+)='PARTY_ID'
2670 and summ.site_use_id is null
2671 GROUP BY party.party_id,
2672 party.party_name,
2673 summ.cust_account_id,
2674 acc.account_name,
2675 acc.account_number,
2676 party.address1,
2677 party.city,
2678 party.state,
2679 party.county,
2680 fnd_terr.territory_short_name,
2681 party.province,
2682 party.postal_code,
2683 summ.org_id;
2684
2685
2686 CURSOR C_acc_CONTACT_POINT IS
2687 SELECT summ.party_id,summ.org_id,
2688 phone.phone_country_code phone_country_code,
2689 phone.phone_area_code phone_area_code,
2690 phone.phone_number phone_number,
2691 phone.phone_extension phone_extension
2692 FROM iex_dln_uwq_summary summ,
2693 hz_contact_points phone
2694 WHERE
2695 phone.owner_table_id(+) = summ.party_id
2696 AND phone.owner_table_name(+) = 'HZ_PARTIES'
2697 AND phone.contact_point_type(+) = 'PHONE'
2698 AND phone.primary_by_purpose(+) = 'Y'
2699 AND phone.contact_point_purpose(+) = 'COLLECTIONS'
2700 AND phone.phone_line_type(+) NOT IN('PAGER', 'FAX')
2701 AND phone.status(+) = 'A'
2702 AND nvl(phone.do_not_use_flag(+), 'N') = 'N'
2703 and summ.site_use_id is null
2704 group by summ.party_id,
2705 phone.phone_country_code,
2706 phone.phone_area_code,
2707 phone.phone_number,
2708 phone.phone_extension,
2709 summ.org_id;
2710
2711
2712 CURSOR C_acc_COLLECTOR_prof IS
2713 SELECT
2714 hp.collector_id collector_id,temp.org_id,
2715 ac.resource_id collector_resource_id,
2716 ac.resource_type COLLECTOR_RES_TYPE,
2717 decode(ac.resource_type, 'RS_RESOURCE' , rs.source_name , rg.group_name) collector_resource_name,
2718 1 resource_id,
2719 'RS_EMPLOYEE' resource_type,
2720 hp.party_id,
2721 hp.cust_account_id
2722 FROM
2723 hz_customer_profiles hp,
2724 ar_collectors ac,
2725 iex_dln_uwq_summary temp,
2726 JTF_RS_GROUPS_VL rg,
2727 jtf_rs_resource_extns rs
2728 WHERE
2729 hp.CUST_ACCOUNT_ID = temp.CUST_ACCOUNT_ID
2730 and ac.collector_id(+) = hp.collector_id
2731 and rg.group_id(+) = ac.resource_id
2732 and rs.resource_id(+) = ac.resource_id
2733 and hp.site_use_id is null
2734 and temp.site_use_id is null;
2735
2736 cursor c_acc_last_payment_dtls is
2737 select summ.cust_account_id,summ.org_id,
2738 summ.last_payment_amount last_payment_amount,
2739 summ.currency last_payment_currency,
2740 summ.last_payment_number last_payment_number
2741 from ar_trx_bal_summary summ,
2742 gl_sets_of_books gl,
2743 ar_system_parameters_all sys
2744 where gl.SET_OF_BOOKS_ID = sys.SET_OF_BOOKS_ID
2745 and summ.org_id = sys.org_id
2746 and summ.last_payment_date=(select max(dln.last_payment_date)
2747 from iex_dln_uwq_summary dln
2748 where dln.cust_account_id=summ.cust_account_id
2749 and dln.org_id=summ.org_id
2750 and dln.site_use_id is null);
2751
2752
2753 cursor c_acc_bankruptcies is
2754 select summ.party_id,summ.org_id,
2755 COUNT(1) number_of_bankruptcies
2756 FROM iex_bankruptcies bkr,
2757 iex_dln_uwq_summary summ
2758 where bkr.cust_account_id=summ.cust_account_id
2759 and NVL(BKR.DISPOSITION_CODE,'GRANTED') in ('GRANTED','NEGOTIATION')
2760 group by summ.party_id,summ.org_id;
2761
2762 cursor c_acc_score is
2763 SELECT sh.score_object_id,
2764 sh.score_value score,
2765 sc.score_id,
2766 sc.score_name
2767 FROM iex_score_histories sh,iex_scores sc
2768 WHERE sc.score_id = sh.score_id
2769 and sh.score_object_code = 'IEX_ACCOUNT'
2770 and (sh.score_object_id,sh.score_object_code,sh.creation_date)
2771 in (SELECT sh1.score_object_id,sh1.score_object_code,MAX(sh1.creation_date)
2772 FROM iex_score_histories sh1,
2773 iex_dln_uwq_summary temp
2774 WHERE sh1.score_object_code = 'IEX_ACCOUNT'
2775 AND sh1.score_object_id = temp.cust_account_id
2776 and temp.site_use_id is null
2777 group by sh1.score_object_id,sh1.score_object_code);
2778
2779 --End Bug 9597052 28-Apr-2010 barathsr
2780
2781 --Start of comment for Bug 9597052 28-Apr-2010 barathsr
2782 -- Begin - Andre Araujo - 10/20/06 - Added selection using date
2783 /*CURSOR c_iex_acc_uwq_dt_sum(p_from_date date,c_level varchar2,c_org_id number)--Added for Bug 8707923 27-Jul-2009 barathsr
2784 IS
2785 SELECT
2786 trx_summ.org_id,
2787 max(ac.collector_id),
2788 max(ac.resource_id),
2789 max(ac.resource_type),
2790 objb.object_function ieu_object_function,
2791 objb.object_parameters || ' DISPLAYCBO=IEXTRMAN' ieu_object_parameters,
2792 '' ieu_media_type_uuid,
2793 'CUST_ACCOUNT_ID' ieu_param_pk_col,
2794 to_char(trx_summ.cust_account_id) ieu_param_pk_value,
2795 1 resource_id,
2796 'RS_EMPLOYEE' resource_type,
2797 party.party_id party_id,
2798 party.party_name party_name,
2799 trx_summ.cust_account_id cust_account_id,
2800 acc.account_name account_name,
2801 acc.account_number account_number,
2802 to_number(null) site_use_id,
2803 null location,
2804 max(gl.CURRENCY_CODE) currency,
2805 SUM(trx_summ.op_invoices_count) op_invoices_count,
2806 SUM(trx_summ.op_debit_memos_count) op_debit_memos_count,
2807 SUM(trx_summ.op_deposits_count) op_deposits_count,
2808 SUM(trx_summ.op_bills_receivables_count) op_bills_receivables_count,
2809 SUM(trx_summ.op_chargeback_count) op_chargeback_count,
2810 SUM(trx_summ.op_credit_memos_count) op_credit_memos_count,
2811 SUM(trx_summ.unresolved_cash_count) unresolved_cash_count,
2812 SUM(trx_summ.disputed_inv_count) disputed_inv_count,
2813 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.best_current_receivables,
2814 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2815 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.best_current_receivables))) best_current_receivables,
2816 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_invoices_value,
2817 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2818 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_invoices_value))) op_invoices_value,
2819 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_debit_memos_value,
2820 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2821 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_debit_memos_value))) op_debit_memos_value,
2822 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_deposits_value,
2823 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2824 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_deposits_value))) op_deposits_value,
2825 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_bills_receivables_value,
2826 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2827 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_bills_receivables_value))) op_bills_receivables_value,
2828 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_chargeback_value,
2829 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2830 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_chargeback_value))) op_chargeback_value,
2831 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_credit_memos_value,
2832 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2833 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_credit_memos_value))) op_credit_memos_value,
2834 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.unresolved_cash_value,
2835 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2836 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.unresolved_cash_value))) unresolved_cash_value,
2837 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.receipts_at_risk_value,
2838 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2839 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.receipts_at_risk_value))) receipts_at_risk_value,
2840 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.inv_amt_in_dispute,
2841 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2842 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.inv_amt_in_dispute))) inv_amt_in_dispute,
2843 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.pending_adj_value,
2844 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
2845 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.pending_adj_value))) pending_adj_value,
2846 (SELECT SUM(b.acctd_amount_due_remaining)
2847 FROM iex_delinquencies_all a,
2848 ar_payment_schedules_all b
2849 WHERE a.cust_account_id = trx_summ.cust_account_id
2850 AND a.payment_schedule_id = b.payment_schedule_id
2851 AND b.status = 'OP'
2852 AND a.status IN('DELINQUENT', 'PREDELINQUENT')
2853 AND b.org_id = trx_summ.org_id) past_due_inv_value,
2854 SUM(trx_summ.past_due_inv_inst_count) past_due_inv_inst_count,
2855 MAX(trx_summ.last_payment_date) last_payment_date,
2856 MAX(iex_uwq_view_pkg.get_last_payment_amount(0, trx_summ.cust_account_id, 0)) last_payment_amount,
2857 max(gl.CURRENCY_CODE) last_payment_amount_curr,
2858 MAX(iex_uwq_view_pkg.get_last_payment_number(0, trx_summ.cust_account_id, 0)) last_payment_number,
2859 MAX(trx_summ.last_update_date) last_update_date,
2860 MAX(trx_summ.last_updated_by) last_updated_by,
2861 MAX(trx_summ.creation_date) creation_date,
2862 MAX(trx_summ.created_by) created_by,
2863 MAX(trx_summ.last_update_login) last_update_login,
2864 (SELECT COUNT(1)
2865 FROM iex_delinquencies_all
2866 WHERE cust_account_id = trx_summ.cust_account_id
2867 AND status IN('DELINQUENT', 'PREDELINQUENT')
2868 AND org_id = trx_summ.org_id)
2869 number_of_delinquencies,
2870 (SELECT 1
2871 FROM dual
2872 WHERE EXISTS
2873 (SELECT 1
2874 FROM iex_delinquencies_all
2875 WHERE cust_account_id = trx_summ.cust_account_id
2876 AND status IN('DELINQUENT', 'PREDELINQUENT')
2877 AND org_id = trx_summ.org_id
2878 AND(uwq_status IS NULL OR uwq_status = 'ACTIVE' OR(TRUNC(uwq_active_date) <= TRUNC(sysdate)
2879 AND uwq_status = 'PENDING')))
2880 )
2881 active_delinquencies,
2882 (SELECT 1
2883 FROM dual
2884 WHERE EXISTS
2885 (SELECT 1
2886 FROM iex_delinquencies_all
2887 WHERE cust_account_id = trx_summ.cust_account_id
2888 AND status IN('DELINQUENT', 'PREDELINQUENT')
2889 AND org_id = trx_summ.org_id
2890 AND(uwq_status = 'COMPLETE'
2891 AND(TRUNC(uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') > TRUNC(sysdate))))
2892 )
2893 complete_delinquencies,
2894 (SELECT 1
2895 FROM dual
2896 WHERE EXISTS
2897 (SELECT 1
2898 FROM iex_delinquencies_all WHERE cust_account_id = trx_summ.cust_account_id
2899 AND status IN('DELINQUENT', 'PREDELINQUENT')
2900 AND org_id = trx_summ.org_id
2901 AND(uwq_status = 'PENDING'
2902 AND(TRUNC(uwq_active_date) > TRUNC(sysdate))))
2903 )
2904 pending_delinquencies,
2905 -- Start for the bug#7562130 by PNAVEENK
2906 /* (SELECT a.score_value
2907 FROM iex_score_histories a
2908 WHERE a.creation_date =
2909 (SELECT MAX(creation_date)
2910 FROM iex_score_histories
2911 WHERE score_object_code = 'IEX_ACCOUNT'
2912 AND score_object_id = trx_summ.cust_account_id)
2913 AND rownum < 2
2914 AND a.score_object_code = 'IEX_ACCOUNT'
2915 AND a.score_object_id = trx_summ.cust_account_id)
2916 score,*/
2917 /* to_number(cal_score(trx_summ.cust_account_id,'IEX_ACCOUNT','SCORE_VALUE')) score,
2918 to_number(cal_score(trx_summ.cust_account_id,'IEX_ACCOUNT','SCORE_ID')) score_id,
2919 cal_score(trx_summ.cust_account_id,'IEX_ACCOUNT','SCORE_NAME') score_name,
2920 max(decode(ac.resource_type, 'RS_RESOURCE' ,
2921 (select rs.source_name from jtf_rs_resource_extns rs where rs.resource_id= ac.resource_id),
2922 (select rg.group_name from JTF_RS_GROUPS_VL rg where rg.group_id=ac.resource_id)
2923 ) ) collector_resource_name,
2924 -- end for the bug#7562130
2925 party.address1 address1,
2926 party.city city,
2927 party.state state,
2928 party.county county,
2929 fnd_terr.territory_short_name country,
2930 party.province province,
2931 party.postal_code postal_code,
2932 phone.phone_country_code phone_country_code,
2933 phone.phone_area_code phone_area_code,
2934 phone.phone_number phone_number,
2935 phone.phone_extension phone_extension,
2936 (SELECT COUNT(1) FROM iex_bankruptcies bkr WHERE bkr.party_id = party.party_id and NVL(BKR.DISPOSITION_CODE,'GRANTED') in ('GRANTED','NEGOTIATION')) number_of_bankruptcies, -- Changed for bug#7693986
2937
2938 (SELECT COUNT(1) FROM iex_promise_details PRO, IEX_DELINQUENCIES_all DEL
2939 WHERE PRO.CUST_ACCOUNT_ID = TRX_SUMM.CUST_ACCOUNT_ID AND
2940 PRO.STATUS IN ('COLLECTABLE', 'PENDING') AND PRO.STATE = 'BROKEN_PROMISE' AND PRO.AMOUNT_DUE_REMAINING > 0 AND
2941 PRO.DELINQUENCY_ID = DEL.DELINQUENCY_ID(+)
2942 AND (DEL.STATUS --(+) Commented for Bug 6446848 06-Jan-2009 barathsr
2943 NOT IN ('CURRENT', 'CLOSE')
2944 or (del.status='CURRENT' and del.source_program_name='IEX_CURR_INV'))--Added for Bug 6446848 06-Jan-2009 barathsr
2945 AND DEL.org_id = trx_summ.org_id) NUMBER_OF_PROMISES ,
2946
2947 (SELECT SUM(AMOUNT_DUE_REMAINING) FROM IEX_PROMISE_DETAILS PRO, IEX_DELINQUENCIES_all DEL
2948 WHERE PRO.CUST_ACCOUNT_ID = TRX_SUMM.CUST_ACCOUNT_ID AND
2949 PRO.STATUS IN ('COLLECTABLE', 'PENDING') AND PRO.STATE = 'BROKEN_PROMISE' AND PRO.AMOUNT_DUE_REMAINING > 0 AND
2950 PRO.DELINQUENCY_ID = DEL.DELINQUENCY_ID(+)
2951 AND (DEL.STATUS --(+) Commented for Bug 6446848 06-Jan-2009 barathsr
2952 NOT IN ('CURRENT', 'CLOSE')
2953 or (del.status='CURRENT' and del.source_program_name='IEX_CURR_INV'))--Added for Bug 6446848 06-Jan-2009 barathsr
2954 AND DEL.org_id = trx_summ.org_id) BROKEN_PROMISE_AMOUNT ,
2955
2956 (SELECT SUM(PROMISE_AMOUNT) FROM IEX_PROMISE_DETAILS PRO, IEX_DELINQUENCIES_all DEL
2957 WHERE PRO.CUST_ACCOUNT_ID = TRX_SUMM.CUST_ACCOUNT_ID AND
2958 PRO.STATUS IN ('COLLECTABLE', 'PENDING') AND PRO.STATE = 'BROKEN_PROMISE' AND PRO.AMOUNT_DUE_REMAINING > 0 AND
2959 PRO.DELINQUENCY_ID = DEL.DELINQUENCY_ID(+)
2960 AND (DEL.STATUS --(+) Commented for Bug 6446848 06-Jan-2009 barathsr
2961 NOT IN ('CURRENT', 'CLOSE')
2962 or (del.status='CURRENT' and del.source_program_name='IEX_CURR_INV'))--Added for Bug 6446848 06-Jan-2009 barathsr
2963 AND DEL.org_id = trx_summ.org_id) PROMISE_AMOUNT,
2964
2965 (SELECT 1 FROM dual WHERE EXISTS
2966 (SELECT 1 FROM dual WHERE EXISTS
2967 (SELECT 1
2968 FROM iex_promise_details
2969 WHERE cust_account_id = trx_summ.cust_account_id
2970 AND state = 'BROKEN_PROMISE'
2971 AND(uwq_status IS NULL OR uwq_status = 'ACTIVE' OR(TRUNC(uwq_active_date) <= TRUNC(sysdate)
2972 AND uwq_status = 'PENDING')))
2973 )
2974 ) active_promises,
2975
2976 (SELECT 1 FROM dual WHERE EXISTS
2977 (SELECT 1 FROM dual WHERE EXISTS
2978 (SELECT 1
2979 FROM iex_promise_details
2980 WHERE cust_account_id = trx_summ.cust_account_id
2981 AND state = 'BROKEN_PROMISE'
2982 AND(uwq_status = 'COMPLETE'
2983 AND(TRUNC(uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') > TRUNC(sysdate))))
2984 )
2985 ) complete_promises,
2986
2987 (SELECT 1 FROM dual WHERE EXISTS
2988 (SELECT 1 FROM dual WHERE EXISTS
2989 (SELECT 1
2990 FROM iex_promise_details
2991 WHERE cust_account_id = trx_summ.cust_account_id
2992 AND state = 'BROKEN_PROMISE'
2993 AND(uwq_status = 'PENDING'
2994 AND(TRUNC(uwq_active_date) > TRUNC(sysdate))))
2995 )
2996 ) pending_promises
2997
2998 FROM ar_trx_bal_summary trx_summ,
2999 hz_cust_accounts acc,
3000 hz_parties party,
3001 hz_party_preferences party_pref,--Added for Bug 8707923 27-Jul-2009 barathsr
3002 jtf_objects_b objb,
3003 hz_contact_points phone,
3004 fnd_territories_tl fnd_terr,
3005 hz_customer_profiles prf,
3006 ar_collectors ac,
3007 GL_SETS_OF_BOOKS gl,
3008 AR_SYSTEM_PARAMETERS_all sys
3009
3010 WHERE
3011 trx_summ.reference_1 = '1'
3012 AND trx_summ.cust_account_id = acc.cust_account_id
3013 AND acc.party_id = party.party_id
3014 AND objb.object_code = 'IEX_ACCOUNT'
3015 and objb.object_code <> 'IEX_DELINQUENCY'--Added for Bug 8707923 27-Jul-2009 barathsr
3016 AND party.country = fnd_terr.territory_code(+)
3017 AND fnd_terr.LANGUAGE(+) = userenv('LANG')
3018 AND phone.owner_table_id(+) = party.party_id
3019 AND phone.owner_table_name(+) = 'HZ_PARTIES'
3020 AND phone.contact_point_type(+) = 'PHONE'
3021 AND phone.primary_by_purpose(+) = 'Y'
3022 AND phone.contact_point_purpose(+) = 'COLLECTIONS'
3023 AND phone.phone_line_type(+) NOT IN('PAGER', 'FAX')
3024 AND phone.status(+) = 'A'
3025 AND nvl(phone.do_not_use_flag(+), 'N') = 'N'
3026 and prf.CUST_ACCOUNT_ID = trx_summ.CUST_ACCOUNT_ID
3027 and prf.SITE_USE_ID is null
3028 and ac.collector_id(+) = prf.collector_id
3029 and gl.SET_OF_BOOKS_ID = sys.SET_OF_BOOKS_ID
3030 and trx_summ.org_id = sys.org_id
3031 -- start bug 5762888 gnramasa 13-July-2007
3032 /* and (trx_summ.cust_account_id, trx_summ.site_use_id, trx_summ.org_id) in */
3033 /* changed for bug 5677415 by gnramasa on 27/11/2006 */
3034 /* (select cust_account_id, site_use_id, org_id from ar_trx_bal_summary where trunc(LAST_UPDATE_DATE) >= trunc(sysdate)) */
3035 /* (select cust_account_id, site_use_id, org_id from ar_trx_bal_summary where trunc(LAST_UPDATE_DATE) >= trunc(p_from_date)) */
3036 -- and trunc(trx_summ.last_update_date) >= trunc(p_from_date)
3037 -- end bug 5762888 gnramasa 13-July-2007
3038 --Begin Bug 8707923 27-Jul-2009 barathsr
3039 /* and party.party_id=party_pref.party_id(+)
3040 and party_pref.module(+)='COLLECTIONS'
3041 and party_pref.category(+)='COLLECTIONS LEVEL'
3042 and party_pref.preference_code(+)='PARTY_ID'
3043 and nvl(decode(G_PARTY_LVL_ENB,'Y',party_pref.VALUE_VARCHAR2,null),c_level)='ACCOUNT'
3044 and trx_summ.org_id=nvl(c_org_id,trx_summ.org_id)
3045 --End Bug 8707923 27-Jul-2009 barathsr
3046 GROUP BY trx_summ.org_id,
3047 objb.object_function,
3048 objb.object_parameters,
3049 party.party_id,
3050 party.party_name,
3051 trx_summ.cust_account_id,
3052 acc.account_name,
3053 acc.account_number,
3054 party.address1,
3055 party.city,
3056 party.state,
3057 party.county,
3058 fnd_terr.territory_short_name,
3059 party.province,
3060 party.postal_code,
3061 phone.phone_country_code,
3062 phone.phone_area_code,
3063 phone.phone_number,
3064 phone.phone_extension ;*/
3065
3066 -- End - Andre Araujo - 10/20/06 - Added selection using date
3067 --End of comment for Bug 9597052 28-Apr-2010 barathsr
3068
3069 --Begin Bug 9597052 28-Apr-2010 barathsr
3070 --This cursor fetches column values from ar_trx_bal_summary table and the values are inserted in iex_dln_uwq_summary at Account level for a specified date range
3071 --All the other column values are fetched with small cursors from the respective tables and updated in iex_dln_uwq_summary
3072
3073
3074 CURSOR c_iex_acc_uwq_dt_sum(p_from_date date,c_level varchar2,c_org_id number)
3075 IS
3076 SELECT
3077 trx_summ.org_id,
3078 objb.object_function ieu_object_function,
3079 objb.object_parameters || ' DISPLAYCBO=IEXTRMAN' ieu_object_parameters,
3080 '' ieu_media_type_uuid,
3081 'CUST_ACCOUNT_ID' ieu_param_pk_col,
3082 to_char(trx_summ.cust_account_id) ieu_param_pk_value,
3083 to_number(null) party_id,
3084 trx_summ.cust_account_id cust_account_id,
3085 to_number(null) site_use_id,
3086 max(gl.CURRENCY_CODE) currency,
3087 SUM(trx_summ.op_invoices_count) op_invoices_count,
3088 SUM(trx_summ.op_debit_memos_count) op_debit_memos_count,
3089 SUM(trx_summ.op_deposits_count) op_deposits_count,
3090 SUM(trx_summ.op_bills_receivables_count) op_bills_receivables_count,
3091 SUM(trx_summ.op_chargeback_count) op_chargeback_count,
3092 SUM(trx_summ.op_credit_memos_count) op_credit_memos_count,
3093 SUM(trx_summ.unresolved_cash_count) unresolved_cash_count,
3094 SUM(trx_summ.disputed_inv_count) disputed_inv_count,
3095 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.best_current_receivables,
3096 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3097 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.best_current_receivables))) best_current_receivables,
3098 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_invoices_value,
3099 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3100 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_invoices_value))) op_invoices_value,
3101 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_debit_memos_value,
3102 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3103 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_debit_memos_value))) op_debit_memos_value,
3104 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_deposits_value,
3105 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3106 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_deposits_value))) op_deposits_value,
3107 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_bills_receivables_value,
3108 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3109 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_bills_receivables_value))) op_bills_receivables_value,
3110 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_chargeback_value,
3111 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3112 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_chargeback_value))) op_chargeback_value,
3113 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_credit_memos_value,
3114 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3115 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_credit_memos_value))) op_credit_memos_value,
3116 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.unresolved_cash_value,
3117 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3118 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.unresolved_cash_value))) unresolved_cash_value,
3119 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.receipts_at_risk_value,
3120 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3121 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.receipts_at_risk_value))) receipts_at_risk_value,
3122 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.inv_amt_in_dispute,
3123 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3124 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.inv_amt_in_dispute))) inv_amt_in_dispute,
3125 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.pending_adj_value,
3126 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3127 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.pending_adj_value))) pending_adj_value,
3128 SUM(trx_summ.past_due_inv_inst_count) past_due_inv_inst_count,
3129 MAX(trx_summ.last_payment_date) last_payment_date,
3130 MAX(trx_summ.last_update_date) last_update_date,
3131 MAX(trx_summ.last_updated_by) last_updated_by,
3132 MAX(trx_summ.creation_date) creation_date,
3133 MAX(trx_summ.created_by) created_by,
3134 MAX(trx_summ.last_update_login) last_update_login
3135 FROM ar_trx_bal_summary trx_summ,
3136 hz_cust_accounts acc,
3137 hz_party_preferences party_pref,--Added for Bug 8707923 27-Jul-2009 barathsr
3138 jtf_objects_b objb,
3139 GL_SETS_OF_BOOKS gl,
3140 AR_SYSTEM_PARAMETERS_all sys
3141 WHERE
3142 P_MODE = 'CP'
3143 AND trx_summ.reference_1 = '1'
3144 AND trx_summ.cust_account_id = acc.cust_account_id
3145 -- and trx_summ.site_use_id is null
3146 AND objb.object_code = 'IEX_ACCOUNT'
3147 and objb.object_code <> 'IEX_DELINQUENCY'--Added for Bug 8707923 27-Jul-2009 barathsr
3148 and gl.SET_OF_BOOKS_ID = sys.SET_OF_BOOKS_ID
3149 and trx_summ.org_id = sys.org_id
3150 and trunc(trx_summ.last_update_date) >= trunc(p_from_date)
3151 --Begin Bug 8707923 27-Jul-2009 barathsr
3152 and acc.party_id=party_pref.party_id(+)
3153 and party_pref.module(+)='COLLECTIONS'
3154 and party_pref.category(+)='COLLECTIONS LEVEL'
3155 and party_pref.preference_code(+)='PARTY_ID'
3156 and nvl(decode(G_PARTY_LVL_ENB,'Y',party_pref.VALUE_VARCHAR2,null),c_level)='ACCOUNT'
3157 and trx_summ.org_id=nvl(c_org_id,trx_summ.org_id)
3158 --End Bug 8707923 27-Jul-2009 barathsr
3159 GROUP BY trx_summ.org_id,
3160 objb.object_function,
3161 objb.object_parameters,
3162 trx_summ.cust_account_id;
3163
3164 cursor c_acc_deln_cnt_dt is
3165 SELECT a.cust_account_id,dln.org_id,
3166 count(a.delinquency_id) number_of_delinquencies,
3167 SUM(b.acctd_amount_due_remaining) past_due_inv_value
3168 FROM iex_delinquencies_all a,
3169 ar_payment_schedules_all b,
3170 iex_dln_uwq_summary dln
3171 WHERE a.cust_account_id =dln.cust_account_id
3172 AND a.payment_schedule_id = b.payment_schedule_id
3173 AND b.status = 'OP'
3174 AND a.status IN('DELINQUENT', 'PREDELINQUENT')
3175 AND dln.org_id = a.org_id
3176 and dln.site_use_id is null
3177 GROUP BY a.cust_account_id,dln.org_id;
3178
3179 cursor c_acc_deln_dtls_dt
3180 is
3181 select del.cust_account_ID,dln.org_id,
3182 max(decode(uwq_status,'PENDING',(decode(sign(TRUNC(uwq_active_date) - TRUNC(sysdate)),1,1)))) pending_delinquencies,
3183 max(decode(uwq_status,'COMPLETE',(decode(sign(TRUNC(uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') - TRUNC(sysdate)),1,1)))) complete_delinquencies,
3184 max(decode(uwq_status,NULL,1,'ACTIVE',1,'PENDING',(decode(sign(TRUNC(uwq_active_date) - TRUNC(sysdate)),-1,1,0,1)))) active_delinquencies
3185 from iex_delinquencies_all del,
3186 iex_dln_uwq_summary dln
3187 WHERE del.cust_account_id = dln.cust_account_id
3188 AND del.org_id = dln.org_id
3189 and del.status IN('DELINQUENT', 'PREDELINQUENT')
3190 --AND trunc(dln.LAST_UPDATE_DATE) >= trunc(sysdate-1) -- changed for bug 13322580
3191 AND dln.request_id = FND_GLOBAL.CONC_REQUEST_ID -- Added for bug13452739
3192 group by del.CUst_account_id,dln.org_id;
3193
3194 cursor c_acc_pro_dtls_dt is
3195 SELECT del.cust_account_id,dln.org_id,
3196 COUNT(1) number_of_promises,
3197 -- Start Bug 14197188 bibeura 26-Jun-2012
3198 -- SUM(pd.amount_due_remaining) broken_promise_amount,
3199 -- SUM(pd.promise_amount) promise_amount
3200 SUM(gl_currency_api.convert_amount_sql(pd.currency_code, dln.currency, sysdate,
3201 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), pd.amount_due_remaining)) broken_promise_amount,
3202 SUM(gl_currency_api.convert_amount_sql(pd.currency_code, dln.currency, sysdate,
3203 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), pd.promise_amount)) promise_amount
3204 -- End Bug 14197188 bibeura 26-Jun-2012
3205 FROM iex_promise_details pd,
3206 iex_delinquencies_all del,
3207 iex_dln_uwq_summary dln
3208 WHERE dln.cust_account_id = del.cust_account_id
3209 AND pd.delinquency_id = del.delinquency_id
3210 AND pd.status IN('COLLECTABLE', 'PENDING')
3211 AND pd.state = 'BROKEN_PROMISE'
3212 AND pd.amount_due_remaining > 0
3213 AND (del.status NOT IN('CURRENT', 'CLOSE')
3214 or (del.status='CURRENT' and del.source_program_name='IEX_CURR_INV'))
3215 and dln.site_use_id is null
3216 and del.org_id = dln.org_id
3217 --AND trunc(dln.LAST_UPDATE_DATE) >= trunc(sysdate-1) --changed for bug 13322580
3218 AND dln.request_id = FND_GLOBAL.CONC_REQUEST_ID -- Added for bug13452739
3219 GROUP BY del.cust_account_id,dln.org_id;
3220
3221 cursor c_acc_pro_summ_dt is
3222 select del.CUST_Account_ID,dln.org_id,
3223 max(decode(pd.uwq_status,'PENDING',(decode(sign(TRUNC(pd.uwq_active_date) - TRUNC(sysdate)),1,1)))) pending_promises,
3224 max(decode(pd.uwq_status,'COMPLETE',(decode(sign(TRUNC(pd.uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') - TRUNC(sysdate)),1,1)))) complete_promises,
3225 max(decode(pd.uwq_status,NULL,1,'ACTIVE',1,'PENDING',(decode(sign(TRUNC(pd.uwq_active_date) - TRUNC(sysdate)),-1,1,0,1)))) active_promises
3226 from iex_promise_details pd,
3227 IEX_DELINQUENCIES_ALL DEL,
3228 iex_dln_uwq_summary dln
3229 WHERE dln.cust_account_id = del.cust_account_id
3230 and pd.delinquency_id = del.delinquency_id
3231 and dln.site_use_id is null
3232 and del.org_id = dln.org_id
3233 and pd.state = 'BROKEN_PROMISE'
3234 --AND trunc(dln.LAST_UPDATE_DATE) >= trunc(sysdate-1) --changed for bug 13322580
3235 AND dln.request_id = FND_GLOBAL.CONC_REQUEST_ID -- Added for bug13452739
3236 group by del.CUST_account_ID,dln.org_id;
3237
3238
3239 CURSOR c_acct_details_dt IS
3240 SELECT
3241 party.party_id party_id,summ.org_id,
3242 party.party_name party_name,
3243 summ.cust_account_id cust_account_id,
3244 acc.account_name account_name,
3245 acc.account_number account_number,
3246 null location,
3247 party.address1 address1,
3248 party.city city,
3249 party.state state,
3250 party.county county,
3251 fnd_terr.territory_short_name country,
3252 party.province province,
3253 party.postal_code postal_code
3254 FROM iex_dln_uwq_summary summ,
3255 hz_cust_accounts acc,
3256 hz_parties party,
3257 hz_party_preferences party_pref,
3258 fnd_territories_tl fnd_terr
3259 WHERE
3260 summ.cust_account_id = acc.cust_account_id
3261 AND acc.party_id = party.party_id
3262 AND party.country = fnd_terr.territory_code(+)
3263 AND fnd_terr.LANGUAGE(+) = userenv('LANG')
3264 and party.party_id=party_pref.party_id(+)
3265 and party_pref.module(+)='COLLECTIONS'
3266 and party_pref.category(+)='COLLECTIONS LEVEL'
3267 and party_pref.preference_code(+)='PARTY_ID'
3268 and summ.site_use_id is null
3269 --AND trunc(summ.LAST_UPDATE_DATE) >= trunc(sysdate-1) --changed for bug 13322580
3270 AND summ.request_id = FND_GLOBAL.CONC_REQUEST_ID -- Added for bug13452739
3271 GROUP BY party.party_id,
3272 party.party_name,
3273 summ.cust_account_id,
3274 acc.account_name,
3275 acc.account_number,
3276 party.address1,
3277 party.city,
3278 party.state,
3279 party.county,
3280 fnd_terr.territory_short_name,
3281 party.province,
3282 party.postal_code,
3283 summ.org_id;
3284
3285
3286 CURSOR C_acc_CONTACT_POINT_dt IS
3287 SELECT summ.party_id,summ.org_id,
3288 phone.phone_country_code phone_country_code,
3289 phone.phone_area_code phone_area_code,
3290 phone.phone_number phone_number,
3291 phone.phone_extension phone_extension
3292 FROM iex_dln_uwq_summary summ,
3293 hz_contact_points phone
3294 WHERE
3295 phone.owner_table_id(+) = summ.party_id
3296 AND phone.owner_table_name(+) = 'HZ_PARTIES'
3297 AND phone.contact_point_type(+) = 'PHONE'
3298 AND phone.primary_by_purpose(+) = 'Y'
3299 AND phone.contact_point_purpose(+) = 'COLLECTIONS'
3300 AND phone.phone_line_type(+) NOT IN('PAGER', 'FAX')
3301 AND phone.status(+) = 'A'
3302 AND nvl(phone.do_not_use_flag(+), 'N') = 'N'
3303 and summ.site_use_id is null
3304 --AND trunc(summ.LAST_UPDATE_DATE) >= trunc(sysdate-1) --changed for bug 13322580
3305 AND summ.request_id = FND_GLOBAL.CONC_REQUEST_ID -- Added for bug13452739
3306 group by summ.party_id,
3307 phone.phone_country_code,
3308 phone.phone_area_code,
3309 phone.phone_number,
3310 phone.phone_extension,
3311 summ.org_id;
3312
3313
3314 CURSOR C_acc_COLLECTOR_prof_dt IS
3315 SELECT
3316 hp.collector_id collector_id,temp.org_id,
3317 ac.resource_id collector_resource_id,
3318 ac.resource_type COLLECTOR_RES_TYPE,
3319 decode(ac.resource_type, 'RS_RESOURCE' , rs.source_name , rg.group_name) collector_resource_name,
3320 1 resource_id,
3321 'RS_EMPLOYEE' resource_type,
3322 hp.party_id,
3323 hp.cust_account_id
3324 FROM
3325 hz_customer_profiles hp,
3326 ar_collectors ac,
3327 iex_dln_uwq_summary temp,
3328 JTF_RS_GROUPS_VL rg,
3329 jtf_rs_resource_extns rs
3330 WHERE
3331 hp.CUST_ACCOUNT_ID = temp.CUST_ACCOUNT_ID
3332 and ac.collector_id(+) = hp.collector_id
3333 and rg.group_id(+) = ac.resource_id
3334 and rs.resource_id(+) = ac.resource_id
3335 and hp.site_use_id is null
3336 and temp.site_use_id is null
3337 --AND trunc(temp.LAST_UPDATE_DATE) >= trunc(sysdate-1); --changed for bug 13322580
3338 AND temp.request_id = FND_GLOBAL.CONC_REQUEST_ID; -- Added for bug13452739
3339
3340 CURSOR c_acc_ch_coll_dt_sum IS
3341 SELECT
3342 DISTINCT
3343 ac.resource_id collector_resource_id,ids.org_id,
3344 ac.resource_type COLLECTOR_RES_TYPE,
3345 ac.collector_id collector_id,
3346 hp.cust_account_id
3347 FROM
3348 ar_collectors ac,
3349 hz_customer_profiles hp,
3350 iex_dln_uwq_summary ids
3351 WHERE
3352 hp.cust_account_id=ids.cust_account_id
3353 and ac.collector_id(+) = hp.collector_id
3354 AND ac.resource_id is NOT NULL
3355 AND ac.resource_id <> ids.collector_resource_id
3356 and hp.site_use_id is null
3357 and ids.site_use_id is null
3358 --AND trunc(ids.last_update_date)>= TRUNC(SYSDATE-1); --changed for bug 13322580
3359 AND ids.request_id = FND_GLOBAL.CONC_REQUEST_ID; -- Added for bug13452739
3360
3361 cursor c_acc_last_payment_dtls_dt is
3362 select summ.cust_account_id,summ.org_id,
3363 summ.last_payment_amount last_payment_amount,
3364 summ.currency last_payment_currency,
3365 summ.last_payment_number last_payment_number
3366 from ar_trx_bal_summary summ,
3367 gl_sets_of_books gl,
3368 ar_system_parameters_all sys
3369 where gl.SET_OF_BOOKS_ID = sys.SET_OF_BOOKS_ID
3370 and summ.org_id = sys.org_id
3371 and summ.last_payment_date=(select max(dln.last_payment_date)
3372 from iex_dln_uwq_summary dln
3373 where dln.cust_account_id=summ.cust_account_id
3374 and dln.org_id=summ.org_id
3375 and dln.site_use_id is null
3376 --AND trunc(dln.LAST_UPDATE_DATE) >= trunc(sysdate-1)); --changed for bug 13322580
3377 AND dln.request_id = FND_GLOBAL.CONC_REQUEST_ID); -- Added for bug13452739
3378
3379
3380 cursor c_acc_bankruptcies_dt is
3381 select summ.party_id,summ.org_id,
3382 COUNT(1) number_of_bankruptcies
3383 FROM iex_bankruptcies bkr,
3384 iex_dln_uwq_summary summ
3385 where bkr.cust_account_id=summ.cust_account_id
3386 and NVL(BKR.DISPOSITION_CODE,'GRANTED') in ('GRANTED','NEGOTIATION')
3387 --AND trunc(summ.LAST_UPDATE_DATE) >= trunc(sysdate-1) --changed for bug 13322580
3388 AND summ.request_id = FND_GLOBAL.CONC_REQUEST_ID -- Added for bug13452739
3389 group by summ.party_id,summ.org_id;
3390
3391 cursor c_acc_score_dt is
3392 SELECT sh.score_object_id,
3393 sh.score_value score,
3394 sc.score_id,
3395 sc.score_name
3396 FROM iex_score_histories sh,iex_scores sc
3397 WHERE sc.score_id = sh.score_id
3398 and sh.score_object_code = 'IEX_ACCOUNT'
3399 and (sh.score_object_id,sh.score_object_code,sh.creation_date)
3400 in (SELECT sh1.score_object_id,sh1.score_object_code,MAX(sh1.creation_date)
3401 FROM iex_score_histories sh1,
3402 iex_dln_uwq_summary temp
3403 WHERE sh1.score_object_code = 'IEX_ACCOUNT'
3404 AND sh1.score_object_id = temp.cust_account_id
3405 and temp.site_use_id is null
3406 --AND trunc(temp.LAST_UPDATE_DATE) >= trunc(sysdate-1) --changed for bug 13322580
3407 AND temp.request_id = FND_GLOBAL.CONC_REQUEST_ID -- Added for bug13452739
3408 group by sh1.score_object_id,sh1.score_object_code);
3409 -------------------
3410 --Start of comment for Bug 9597052 28-Apr-2010 barathsr
3411 /* CURSOR c_iex_cu_uwq_summary(c_level varchar2,c_org_id number)--Added for Bug 8707923 27-Jul-2009 barathsr
3412 IS
3413 SELECT
3414 trx_summ.org_id,
3415 max(ac.collector_id),
3416 max(ac.resource_id),
3417 max(ac.resource_type),
3418 objb.object_function ieu_object_function,
3419 objb.object_parameters || ' DISPLAYCBO=IEXTRMAN' ieu_object_parameters,
3420 '' ieu_media_type_uuid,
3421 'PARTY_ID' ieu_param_pk_col,
3422 to_char(party.party_id) ieu_param_pk_value,
3423 1 resource_id,
3424 'RS_EMPLOYEE' resource_type,
3425 party.party_id party_id,
3426 party.party_name party_name,
3427 to_number(null) cust_account_id,
3428 null account_name,
3429 null account_number,
3430 to_number(null) site_use_id,
3431 null location,
3432 max(gl.CURRENCY_CODE) currency,
3433 SUM(trx_summ.op_invoices_count) op_invoices_count,
3434 SUM(trx_summ.op_debit_memos_count) op_debit_memos_count,
3435 SUM(trx_summ.op_deposits_count) op_deposits_count,
3436 SUM(trx_summ.op_bills_receivables_count) op_bills_receivables_count,
3437 SUM(trx_summ.op_chargeback_count) op_chargeback_count,
3438 SUM(trx_summ.op_credit_memos_count) op_credit_memos_count,
3439 SUM(trx_summ.unresolved_cash_count) unresolved_cash_count,
3440 SUM(trx_summ.disputed_inv_count) disputed_inv_count,
3441 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.best_current_receivables,
3442 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3443 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.best_current_receivables))) best_current_receivables,
3444 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_invoices_value,
3445 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3446 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_invoices_value))) op_invoices_value,
3447 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_debit_memos_value,
3448 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3449 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_debit_memos_value))) op_debit_memos_value,
3450 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_deposits_value,
3451 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3452 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_deposits_value))) op_deposits_value,
3453 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_bills_receivables_value,
3454 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3455 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_bills_receivables_value))) op_bills_receivables_value,
3456 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_chargeback_value,
3457 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3458 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_chargeback_value))) op_chargeback_value,
3459 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_credit_memos_value,
3460 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3461 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_credit_memos_value))) op_credit_memos_value,
3462 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.unresolved_cash_value,
3463 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3464 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.unresolved_cash_value))) unresolved_cash_value,
3465 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.receipts_at_risk_value,
3466 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3467 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.receipts_at_risk_value))) receipts_at_risk_value,
3468 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.inv_amt_in_dispute,
3469 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3470 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.inv_amt_in_dispute))) inv_amt_in_dispute,
3471 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.pending_adj_value,
3472 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3473 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.pending_adj_value))) pending_adj_value,
3474 (SELECT SUM(b.acctd_amount_due_remaining)
3475 FROM iex_delinquencies_all a,
3476 ar_payment_schedules_all b
3477 WHERE a.party_cust_id = party.party_id
3478 AND a.payment_schedule_id = b.payment_schedule_id
3479 AND b.status = 'OP'
3480 AND a.status IN('DELINQUENT', 'PREDELINQUENT')
3481 AND b.org_id = trx_summ.org_id) past_due_inv_value,
3482 SUM(trx_summ.past_due_inv_inst_count) past_due_inv_inst_count,
3483 MAX(trx_summ.last_payment_date) last_payment_date,
3484 MAX(iex_uwq_view_pkg.get_last_payment_amount(party.party_id, 0, 0)) last_payment_amount,
3485 max(gl.CURRENCY_CODE) last_payment_amount_curr,
3486 MAX(iex_uwq_view_pkg.get_last_payment_number(party.party_id, 0, 0)) last_payment_number,
3487 MAX(trx_summ.last_update_date) last_update_date,
3488 MAX(trx_summ.last_updated_by) last_updated_by,
3489 MAX(trx_summ.creation_date) creation_date,
3490 MAX(trx_summ.created_by) created_by,
3491 MAX(trx_summ.last_update_login) last_update_login,
3492 (SELECT COUNT(1)
3493 FROM iex_delinquencies_all
3494 WHERE party_cust_id = party.party_id
3495 AND status IN('DELINQUENT', 'PREDELINQUENT')
3496 AND org_id = trx_summ.org_id)
3497 number_of_delinquencies,
3498 (SELECT 1
3499 FROM dual
3500 WHERE EXISTS
3501 (SELECT 1
3502 FROM iex_delinquencies_all
3503 WHERE party_cust_id = party.party_id
3504 AND status IN('DELINQUENT', 'PREDELINQUENT')
3505 AND org_id = trx_summ.org_id
3506 AND(uwq_status IS NULL OR uwq_status = 'ACTIVE' OR(TRUNC(uwq_active_date) <= TRUNC(sysdate)
3507 AND uwq_status = 'PENDING')))
3508 )
3509 active_delinquencies,
3510 (SELECT 1
3511 FROM dual
3512 WHERE EXISTS
3513 (SELECT 1
3514 FROM iex_delinquencies_all
3515 WHERE party_cust_id = party.party_id
3516 AND status IN('DELINQUENT', 'PREDELINQUENT')
3517 AND org_id = trx_summ.org_id
3518 AND(uwq_status = 'COMPLETE'
3519 AND(TRUNC(uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') > TRUNC(sysdate))))
3520 )
3521 complete_delinquencies,
3522 (SELECT 1
3523 FROM dual
3524 WHERE EXISTS
3525 (SELECT 1
3526 FROM iex_delinquencies_all
3527 WHERE party_cust_id = party.party_id
3528 AND status IN('DELINQUENT', 'PREDELINQUENT')
3529 AND org_id = trx_summ.org_id
3530 AND(uwq_status = 'PENDING'
3531 AND(TRUNC(uwq_active_date) > TRUNC(sysdate))))
3532 )
3533 pending_delinquencies,
3534
3535 -- Start for the bug#7562130 by PNAVEENK
3536 /* (SELECT a.score_value
3537 FROM iex_score_histories a
3538 WHERE a.creation_date =
3539 (SELECT MAX(creation_date)
3540 FROM iex_score_histories
3541 WHERE score_object_code = 'PARTY'
3542 AND score_object_id = party.party_id)
3543 AND rownum < 2
3544 AND a.score_object_code = 'PARTY'
3545 AND a.score_object_id = party.party_id)
3546 score,*/
3547 /* to_number(cal_score(party.party_id,'PARTY','SCORE_VALUE')) score,
3548 to_number(cal_score(party.party_id,'PARTY','SCORE_ID')) score_id,
3549 cal_score(party.party_id,'PARTY','SCORE_NAME') score_name,
3550 max(decode(ac.resource_type, 'RS_RESOURCE' ,
3551 (select rs.source_name from jtf_rs_resource_extns rs where rs.resource_id= ac.resource_id),
3552 (select rg.group_name from JTF_RS_GROUPS_VL rg where rg.group_id=ac.resource_id)
3553 ) ) collector_resource_name,
3554 -- end for the bug#7562130
3555 party.address1 address1,
3556 party.city city,
3557 party.state state,
3558 party.county county,
3559 fnd_terr.territory_short_name country,
3560 party.province province,
3561 party.postal_code postal_code,
3562 phone.phone_country_code phone_country_code,
3563 phone.phone_area_code phone_area_code,
3564 phone.phone_number phone_number,
3565 phone.phone_extension phone_extension,
3566 (SELECT COUNT(1) FROM iex_bankruptcies bkr WHERE bkr.party_id = party.party_id and NVL(BKR.DISPOSITION_CODE,'GRANTED') in ('GRANTED','NEGOTIATION')) number_of_bankruptcies, -- Changed for bug#7693986
3567
3568 iex_uwq_view_pkg.get_pro_count(party.party_id, NULL, NULL, NULL, trx_summ.org_id) number_of_promises,
3569 iex_uwq_view_pkg.get_broken_prm_amt(party.party_id, NULL, NULL, trx_summ.org_id) broken_promise_amount,
3570 iex_uwq_view_pkg.get_prm_amt(party.party_id, NULL, NULL, trx_summ.org_id) promise_amount,
3571 (SELECT 1
3572 FROM dual
3573 WHERE EXISTS
3574 (SELECT 1
3575 FROM iex_promise_details pd,
3576 hz_cust_accounts b
3577 WHERE b.party_id = party.party_id
3578 AND pd.cust_account_id = b.cust_account_id
3579 AND pd.state = 'BROKEN_PROMISE'
3580 AND(pd.uwq_status IS NULL OR pd.uwq_status = 'ACTIVE' OR(TRUNC(pd.uwq_active_date) <= TRUNC(sysdate)
3581 AND pd.uwq_status = 'PENDING')))
3582 )
3583 active_promises,
3584 (SELECT 1
3585 FROM dual
3586 WHERE EXISTS
3587 (SELECT 1
3588 FROM iex_promise_details pd,
3589 hz_cust_accounts b
3590 WHERE b.party_id = party.party_id
3591 AND pd.cust_account_id = b.cust_account_id
3592 AND pd.state = 'BROKEN_PROMISE'
3593 AND(pd.uwq_status = 'COMPLETE'
3594 AND(TRUNC(pd.uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') > TRUNC(sysdate))))
3595 )
3596 complete_promises,
3597 (SELECT 1
3598 FROM dual
3599 WHERE EXISTS
3600 (SELECT 1
3601 FROM iex_promise_details pd,
3602 hz_cust_accounts b
3603 WHERE b.party_id = party.party_id
3604 AND pd.cust_account_id = b.cust_account_id
3605 and pd.state = 'BROKEN_PROMISE'
3606 AND(pd.uwq_status = 'PENDING'
3607 AND(TRUNC(pd.uwq_active_date) > TRUNC(sysdate))))
3608 )
3609 pending_promises
3610
3611 FROM ar_trx_bal_summary trx_summ,
3612 hz_cust_accounts acc,
3613 hz_parties party,
3614 hz_party_preferences party_pref,--Added for Bug 8707923 27-Jul-2009 barathsr
3615 jtf_objects_b objb,
3616 hz_contact_points phone,
3617 fnd_territories_tl fnd_terr,
3618 hz_customer_profiles prf,
3619 ar_collectors ac,
3620 GL_SETS_OF_BOOKS gl,
3621 AR_SYSTEM_PARAMETERS_all sys
3622
3623 WHERE
3624 P_MODE = 'CP'
3625 AND trx_summ.reference_1 = '1'
3626 AND trx_summ.cust_account_id = acc.cust_account_id
3627 AND acc.party_id = party.party_id
3628 AND objb.object_code = 'IEX_CUSTOMER'
3629 and objb.object_code <> 'IEX_DELINQUENCY'--Added for Bug 8707923 27-Jul-2009 barathsr
3630 AND party.country = fnd_terr.territory_code(+)
3631 AND fnd_terr.LANGUAGE(+) = userenv('LANG')
3632 AND phone.owner_table_id(+) = party.party_id
3633 AND phone.owner_table_name(+) = 'HZ_PARTIES'
3634 AND phone.contact_point_type(+) = 'PHONE'
3635 and phone.primary_by_purpose(+) = 'Y'
3636 AND phone.contact_point_purpose(+) = 'COLLECTIONS'
3637 AND phone.phone_line_type(+) NOT IN('PAGER', 'FAX')
3638 AND phone.status(+) = 'A'
3639 AND nvl(phone.do_not_use_flag(+), 'N') = 'N'
3640 AND acc.party_id = prf.party_id
3641 and prf.CUST_ACCOUNT_ID = -1
3642 -- and prf.CUST_ACCOUNT_ID = trx_summ.CUST_ACCOUNT_ID
3643 and prf.SITE_USE_ID is null
3644 and ac.collector_id(+) = prf.collector_id
3645 and gl.SET_OF_BOOKS_ID = sys.SET_OF_BOOKS_ID
3646 and trx_summ.org_id = sys.org_id
3647 --Begin Bug 8707923 27-Jul-2009 barathsr
3648 and party.party_id=party_pref.party_id(+)
3649 and party_pref.module(+)='COLLECTIONS'
3650 and party_pref.category(+)='COLLECTIONS LEVEL'
3651 and party_pref.preference_code(+)='PARTY_ID'
3652 and nvl(decode(G_PARTY_LVL_ENB,'Y',party_pref.VALUE_VARCHAR2,null),c_level)='CUSTOMER'
3653 and trx_summ.org_id=nvl(c_org_id,trx_summ.org_id)
3654 --End Bug 8707923 27-Jul-2009 barathsr
3655 GROUP BY trx_summ.org_id,
3656 objb.object_function,
3657 objb.object_parameters,
3658 party.party_id,
3659 party.party_name,
3660 party.address1,
3661 party.city,
3662 party.state,
3663 party.county,
3664 fnd_terr.territory_short_name,
3665 party.province,
3666 party.postal_code,
3667 phone.phone_country_code,
3668 phone.phone_area_code,
3669 phone.phone_number,
3670 phone.phone_extension;*/
3671 --End of comment for Bug 9597052 28-Apr-2010 barathsr
3672
3673
3674 --Begin Bug 9597052 28-Apr-2010 barathsr
3675 --This cursor fetches column values from ar_trx_bal_summary table and the values are inserted in iex_dln_uwq_summary at Party level
3676 --All the other column values are fetched with small cursors from the respective tables and updated in iex_dln_uwq_summary
3677
3678
3679 CURSOR c_iex_cu_uwq_summary(c_level varchar2,c_org_id number)--Added for Bug 8707923 27-Jul-2009 barathsr
3680 IS
3681 SELECT
3682 trx_summ.org_id,
3683 objb.object_function ieu_object_function,
3684 objb.object_parameters || ' DISPLAYCBO=IEXTRMAN' ieu_object_parameters,
3685 '' ieu_media_type_uuid,
3686 'PARTY_ID' ieu_param_pk_col,
3687 to_char(party.party_id) ieu_param_pk_value,
3688 party.party_id party_id,
3689 -- party.party_name party_name,
3690 to_number(null) cust_account_id,
3691 to_number(null) site_use_id,
3692 max(gl.CURRENCY_CODE) currency,
3693 SUM(trx_summ.op_invoices_count) op_invoices_count,
3694 SUM(trx_summ.op_debit_memos_count) op_debit_memos_count,
3695 SUM(trx_summ.op_deposits_count) op_deposits_count,
3696 SUM(trx_summ.op_bills_receivables_count) op_bills_receivables_count,
3697 SUM(trx_summ.op_chargeback_count) op_chargeback_count,
3698 SUM(trx_summ.op_credit_memos_count) op_credit_memos_count,
3699 SUM(trx_summ.unresolved_cash_count) unresolved_cash_count,
3700 SUM(trx_summ.disputed_inv_count) disputed_inv_count,
3701 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.best_current_receivables,
3702 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3703 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.best_current_receivables))) best_current_receivables,
3704 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_invoices_value,
3705 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3706 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_invoices_value))) op_invoices_value,
3707 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_debit_memos_value,
3708 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3709 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_debit_memos_value))) op_debit_memos_value,
3710 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_deposits_value,
3711 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3712 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_deposits_value))) op_deposits_value,
3713 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_bills_receivables_value,
3714 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3715 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_bills_receivables_value))) op_bills_receivables_value,
3716 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_chargeback_value,
3717 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3718 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_chargeback_value))) op_chargeback_value,
3719 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_credit_memos_value,
3720 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3721 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_credit_memos_value))) op_credit_memos_value,
3722 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.unresolved_cash_value,
3723 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3724 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.unresolved_cash_value))) unresolved_cash_value,
3725 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.receipts_at_risk_value,
3726 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3727 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.receipts_at_risk_value))) receipts_at_risk_value,
3728 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.inv_amt_in_dispute,
3729 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3730 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.inv_amt_in_dispute))) inv_amt_in_dispute,
3731 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.pending_adj_value,
3732 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
3733 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.pending_adj_value))) pending_adj_value,
3734 SUM(trx_summ.past_due_inv_inst_count) past_due_inv_inst_count,
3735 MAX(trx_summ.last_payment_date) last_payment_date,
3736 MAX(trx_summ.last_update_date) last_update_date,
3737 MAX(trx_summ.last_updated_by) last_updated_by,
3738 MAX(trx_summ.creation_date) creation_date,
3739 MAX(trx_summ.created_by) created_by,
3740 MAX(trx_summ.last_update_login) last_update_login
3741 FROM ar_trx_bal_summary trx_summ,
3742 hz_cust_accounts acc,
3743 hz_parties party,
3744 hz_party_preferences party_pref,--Added for Bug 8707923 27-Jul-2009 barathsr
3745 jtf_objects_b objb,
3746 GL_SETS_OF_BOOKS gl,
3747 AR_SYSTEM_PARAMETERS_all sys
3748
3749 WHERE
3750 P_MODE = 'CP'
3751 AND trx_summ.reference_1 = '1'
3752 AND trx_summ.cust_account_id = acc.cust_account_id
3753 AND acc.party_id = party.party_id
3754 AND objb.object_code = 'IEX_CUSTOMER'
3755 and objb.object_code <> 'IEX_DELINQUENCY'--Added for Bug 8707923 27-Jul-2009 barathsr
3756 and gl.SET_OF_BOOKS_ID = sys.SET_OF_BOOKS_ID
3757 and trx_summ.org_id = sys.org_id
3758 --Begin Bug 8707923 27-Jul-2009 barathsr
3759 and party.party_id=party_pref.party_id(+)
3760 and party_pref.module(+)='COLLECTIONS'
3761 and party_pref.category(+)='COLLECTIONS LEVEL'
3762 and party_pref.preference_code(+)='PARTY_ID'
3763 and nvl(decode(G_PARTY_LVL_ENB,'Y',party_pref.VALUE_VARCHAR2,null),c_level)='CUSTOMER'
3764 and trx_summ.org_id=nvl(c_org_id,trx_summ.org_id)
3765 --End Bug 8707923 27-Jul-2009 barathsr
3766 GROUP BY trx_summ.org_id,
3767 objb.object_function,
3768 objb.object_parameters,
3769 party.party_id;
3770
3771
3772 cursor c_cu_deln_cnt is
3773 SELECT a.party_cust_id,dln.org_id,
3774 count(a.delinquency_id) number_of_delinquencies,
3775 SUM(b.acctd_amount_due_remaining) past_due_inv_value
3776 FROM iex_delinquencies_all a,
3777 ar_payment_schedules_all b,
3778 iex_dln_uwq_summary dln
3779 WHERE a.party_cust_id =dln.party_id
3780 AND a.payment_schedule_id = b.payment_schedule_id
3781 AND b.status = 'OP'
3782 AND a.status IN('DELINQUENT', 'PREDELINQUENT')
3783 AND dln.org_id = a.org_id
3784 and dln.site_use_id is null
3785 and dln.cust_account_id is null
3786 GROUP BY a.party_cust_id,dln.org_id;
3787
3788 cursor c_cu_deln_dtls
3789 is
3790 select del.party_cust_ID,dln.org_id,
3791 max(decode(uwq_status,'PENDING',(decode(sign(TRUNC(uwq_active_date) - TRUNC(sysdate)),1,1)))) pending_delinquencies,
3792 max(decode(uwq_status,'COMPLETE',(decode(sign(TRUNC(uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') - TRUNC(sysdate)),1,1)))) complete_delinquencies,
3793 max(decode(uwq_status,NULL,1,'ACTIVE',1,'PENDING',(decode(sign(TRUNC(uwq_active_date) - TRUNC(sysdate)),-1,1,0,1)))) active_delinquencies
3794 from iex_delinquencies_all del,
3795 iex_dln_uwq_summary dln
3796 WHERE del.party_cust_id = dln.party_id AND
3797 del.org_id = dln.org_id and
3798 del.status IN('DELINQUENT', 'PREDELINQUENT')
3799 group by del.party_cust_id,dln.org_id;
3800
3801 cursor c_cu_pro_dtls is
3802 SELECT del.party_cust_id,dln.org_id,
3803 COUNT(1) number_of_promises,
3804 -- Start Bug 14197188 bibeura 26-Jun-2012
3805 -- SUM(pd.amount_due_remaining) broken_promise_amount,
3806 -- SUM(pd.promise_amount) promise_amount
3807 SUM(gl_currency_api.convert_amount_sql(pd.currency_code, dln.currency, sysdate,
3808 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), pd.amount_due_remaining)) broken_promise_amount,
3809 SUM(gl_currency_api.convert_amount_sql(pd.currency_code, dln.currency, sysdate,
3810 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), pd.promise_amount)) promise_amount
3811 -- End Bug 14197188 bibeura 26-Jun-2012
3812 FROM iex_promise_details pd,
3813 iex_delinquencies_all del,
3814 iex_dln_uwq_summary dln
3815 WHERE dln.party_id = del.party_cust_id
3816 AND pd.delinquency_id = del.delinquency_id
3817 AND pd.status IN('COLLECTABLE', 'PENDING')
3818 AND pd.state = 'BROKEN_PROMISE'
3819 AND pd.amount_due_remaining > 0
3820 AND (del.status NOT IN('CURRENT', 'CLOSE')
3821 or (del.status='CURRENT' and del.source_program_name='IEX_CURR_INV'))
3822 and dln.site_use_id is null
3823 and dln.cust_account_id is null
3824 and del.org_id = dln.org_id
3825 GROUP BY del.party_cust_id,dln.org_id;
3826
3827 cursor c_cu_pro_summ is
3828 select del.party_cust_ID,dln.org_id,
3829 max(decode(pd.uwq_status,'PENDING',(decode(sign(TRUNC(pd.uwq_active_date) - TRUNC(sysdate)),1,1)))) pending_promises,
3830 max(decode(pd.uwq_status,'COMPLETE',(decode(sign(TRUNC(pd.uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') - TRUNC(sysdate)),1,1)))) complete_promises,
3831 max(decode(pd.uwq_status,NULL,1,'ACTIVE',1,'PENDING',(decode(sign(TRUNC(pd.uwq_active_date) - TRUNC(sysdate)),-1,1,0,1)))) active_promises
3832 from iex_promise_details pd,
3833 IEX_DELINQUENCIES_ALL DEL,
3834 iex_dln_uwq_summary dln
3835 WHERE dln.party_id = del.party_cust_id
3836 and pd.delinquency_id = del.delinquency_id
3837 and dln.site_use_id is null
3838 and dln.cust_account_id is null
3839 and del.org_id = dln.org_id
3840 and pd.state = 'BROKEN_PROMISE'
3841 group by del.party_cust_ID,dln.org_id;
3842
3843
3844 CURSOR c_cust_details IS
3845 SELECT
3846 party.party_id party_id,summ.org_id,
3847 party.party_name party_name,
3848 -- summ.cust_account_id cust_account_id,
3849 null account_name,
3850 null account_number,
3851 null location,
3852 party.address1 address1,
3853 party.city city,
3854 party.state state,
3855 party.county county,
3856 fnd_terr.territory_short_name country,
3857 party.province province,
3858 party.postal_code postal_code
3859 FROM iex_dln_uwq_summary summ,
3860 -- hz_cust_accounts acc,
3861 hz_parties party,
3862 hz_party_preferences party_pref,
3863 fnd_territories_tl fnd_terr
3864 WHERE
3865 summ.party_id = party.party_id
3866 AND party.country = fnd_terr.territory_code(+)
3867 AND fnd_terr.LANGUAGE(+) = userenv('LANG')
3868 and party.party_id=party_pref.party_id(+)
3869 and party_pref.module(+)='COLLECTIONS'
3870 and party_pref.category(+)='COLLECTIONS LEVEL'
3871 and party_pref.preference_code(+)='PARTY_ID'
3872 and summ.site_use_id is null
3873 and summ.cust_account_id is null
3874 GROUP BY party.party_id,
3875 party.party_name,
3876 party.address1,
3877 party.city,
3878 party.state,
3879 party.county,
3880 fnd_terr.territory_short_name,
3881 party.province,
3882 party.postal_code,
3883 summ.org_id;
3884
3885
3886 CURSOR C_cu_CONTACT_POINT IS
3887 SELECT summ.party_id,summ.org_id,
3888 phone.phone_country_code phone_country_code,
3889 phone.phone_area_code phone_area_code,
3890 phone.phone_number phone_number,
3891 phone.phone_extension phone_extension
3892 FROM iex_dln_uwq_summary summ,
3893 hz_contact_points phone
3894 WHERE
3895 phone.owner_table_id(+) = summ.party_id
3896 AND phone.owner_table_name(+) = 'HZ_PARTIES'
3897 AND phone.contact_point_type(+) = 'PHONE'
3898 AND phone.primary_by_purpose(+) = 'Y'
3899 AND phone.contact_point_purpose(+) = 'COLLECTIONS'
3900 AND phone.phone_line_type(+) NOT IN('PAGER', 'FAX')
3901 AND phone.status(+) = 'A'
3902 AND nvl(phone.do_not_use_flag(+), 'N') = 'N'
3903 and summ.site_use_id is null
3904 and summ.cust_account_id is null
3905 group by summ.party_id,
3906 phone.phone_country_code,
3907 phone.phone_area_code,
3908 phone.phone_number,
3909 phone.phone_extension,
3910 summ.org_id;
3911
3912
3913 CURSOR C_cu_COLLECTOR_prof IS
3914 SELECT
3915 hp.collector_id collector_id,temp.org_id,
3916 ac.resource_id collector_resource_id,
3917 ac.resource_type COLLECTOR_RES_TYPE,
3918 decode(ac.resource_type, 'RS_RESOURCE' , rs.source_name , rg.group_name) collector_resource_name,
3919 1 resource_id,
3920 'RS_EMPLOYEE' resource_type,
3921 hp.party_id
3922 FROM
3923 hz_customer_profiles hp,
3924 ar_collectors ac,
3925 iex_dln_uwq_summary temp,
3926 JTF_RS_GROUPS_VL rg,
3927 jtf_rs_resource_extns rs
3928 WHERE
3929 hp.party_id = temp.party_ID
3930 and ac.collector_id(+) = hp.collector_id
3931 and rg.group_id(+) = ac.resource_id
3932 and rs.resource_id(+) = ac.resource_id
3933 and hp.site_use_id is null
3934 and hp.cust_account_id=-1 --Added for Bug 10152072 01-Oct-2010 barathsr
3935 and temp.site_use_id is null
3936 and temp.cust_account_id is null;
3937
3938 cursor c_cu_last_payment_dtls is
3939 select hca.party_id,summ.org_id,
3940 summ.last_payment_amount last_payment_amount,
3941 summ.currency last_payment_currency,
3942 summ.last_payment_number last_payment_number
3943 from ar_trx_bal_summary summ,
3944 hz_cust_accounts hca,
3945 gl_sets_of_books gl,
3946 ar_system_parameters_all sys
3947 where summ.cust_account_id=hca.cust_account_id
3948 and gl.SET_OF_BOOKS_ID = sys.SET_OF_BOOKS_ID
3949 and summ.org_id = sys.org_id
3950 and summ.last_payment_date=(select max(dln.last_payment_date)
3951 from iex_dln_uwq_summary dln
3952 where dln.party_id=hca.party_id
3953 and dln.org_id=summ.org_id
3954 and dln.cust_account_id is null
3955 and dln.site_use_id is null);
3956
3957
3958 cursor c_cu_bankruptcies is
3959 select summ.party_id,summ.org_id,
3960 COUNT(1) number_of_bankruptcies
3961 FROM iex_bankruptcies bkr,
3962 iex_dln_uwq_summary summ
3963 where bkr.party_id=summ.party_id
3964 and NVL(BKR.DISPOSITION_CODE,'GRANTED') in ('GRANTED','NEGOTIATION')
3965 and summ.site_use_id is null and summ.cust_account_id is null
3966 group by summ.party_id,summ.org_id;
3967
3968 cursor c_cu_score is
3969 SELECT sh.score_object_id,
3970 sh.score_value score,
3971 sc.score_id,
3972 sc.score_name
3973 FROM iex_score_histories sh,iex_scores sc
3974 WHERE sc.score_id = sh.score_id
3975 and sh.score_object_code = 'PARTY'
3976 and (sh.score_object_id,sh.score_object_code,sh.creation_date)
3977 in (SELECT sh1.score_object_id,sh1.score_object_code,MAX(sh1.creation_date)
3978 FROM iex_score_histories sh1,
3979 iex_dln_uwq_summary temp
3980 WHERE sh1.score_object_code = 'PARTY'
3981 AND sh1.score_object_id = temp.party_id
3982 and temp.site_use_id is null
3983 and temp.cust_account_id is null
3984 group by sh1.score_object_id,sh1.score_object_code);
3985
3986 --End Bug 9597052 28-Apr-2010 barathsr
3987
3988 -------------
3989 --Start of comment for Bug 9597052 28-Apr-2010 barathsr
3990 /* CURSOR c_iex_cu_uwq_dt_sum(p_from_date date,c_level varchar2,c_org_id number)--Added for Bug 8707923 27-Jul-2009 barathsr
3991 IS
3992 SELECT
3993 trx_summ.org_id,
3994 max(ac.collector_id),
3995 max(ac.resource_id),
3996 max(ac.resource_type),
3997 objb.object_function ieu_object_function,
3998 objb.object_parameters || ' DISPLAYCBO=IEXTRMAN' ieu_object_parameters,
3999 '' ieu_media_type_uuid,
4000 'PARTY_ID' ieu_param_pk_col,
4001 to_char(party.party_id) ieu_param_pk_value,
4002 1 resource_id,
4003 'RS_EMPLOYEE' resource_type,
4004 party.party_id party_id,
4005 party.party_name party_name,
4006 to_number(null) cust_account_id,
4007 null account_name,
4008 null account_number,
4009 to_number(null) site_use_id,
4010 null location,
4011 max(gl.CURRENCY_CODE) currency,
4012 SUM(trx_summ.op_invoices_count) op_invoices_count,
4013 SUM(trx_summ.op_debit_memos_count) op_debit_memos_count,
4014 SUM(trx_summ.op_deposits_count) op_deposits_count,
4015 SUM(trx_summ.op_bills_receivables_count) op_bills_receivables_count,
4016 SUM(trx_summ.op_chargeback_count) op_chargeback_count,
4017 SUM(trx_summ.op_credit_memos_count) op_credit_memos_count,
4018 SUM(trx_summ.unresolved_cash_count) unresolved_cash_count,
4019 SUM(trx_summ.disputed_inv_count) disputed_inv_count,
4020 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.best_current_receivables,
4021 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
4022 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.best_current_receivables))) best_current_receivables,
4023 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_invoices_value,
4024 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
4025 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_invoices_value))) op_invoices_value,
4026 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_debit_memos_value,
4027 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
4028 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_debit_memos_value))) op_debit_memos_value,
4029 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_deposits_value,
4030 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
4031 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_deposits_value))) op_deposits_value,
4032 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_bills_receivables_value,
4033 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
4034 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_bills_receivables_value))) op_bills_receivables_value,
4035 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_chargeback_value,
4036 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
4037 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_chargeback_value))) op_chargeback_value,
4038 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_credit_memos_value,
4039 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
4040 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_credit_memos_value))) op_credit_memos_value,
4041 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.unresolved_cash_value,
4042 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
4043 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.unresolved_cash_value))) unresolved_cash_value,
4044 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.receipts_at_risk_value,
4045 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
4046 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.receipts_at_risk_value))) receipts_at_risk_value,
4047 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.inv_amt_in_dispute,
4048 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
4049 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.inv_amt_in_dispute))) inv_amt_in_dispute,
4050 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.pending_adj_value,
4051 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
4052 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.pending_adj_value))) pending_adj_value,
4053 (SELECT SUM(b.acctd_amount_due_remaining)
4054 FROM iex_delinquencies_all a,
4055 ar_payment_schedules_all b
4056 WHERE a.party_cust_id = party.party_id
4057 AND a.payment_schedule_id = b.payment_schedule_id
4058 AND b.status = 'OP'
4059 AND a.status IN('DELINQUENT', 'PREDELINQUENT')
4060 AND b.org_id = trx_summ.org_id) past_due_inv_value,
4061 SUM(trx_summ.past_due_inv_inst_count) past_due_inv_inst_count,
4062 MAX(trx_summ.last_payment_date) last_payment_date,
4063 MAX(iex_uwq_view_pkg.get_last_payment_amount(party.party_id, 0, 0)) last_payment_amount,
4064 max(gl.CURRENCY_CODE) last_payment_amount_curr,
4065 MAX(iex_uwq_view_pkg.get_last_payment_number(party.party_id, 0, 0)) last_payment_number,
4066 MAX(trx_summ.last_update_date) last_update_date,
4067 MAX(trx_summ.last_updated_by) last_updated_by,
4068 MAX(trx_summ.creation_date) creation_date,
4069 MAX(trx_summ.created_by) created_by,
4070 MAX(trx_summ.last_update_login) last_update_login,
4071 (SELECT COUNT(1)
4072 FROM iex_delinquencies_all
4073 WHERE party_cust_id = party.party_id
4074 AND status IN('DELINQUENT', 'PREDELINQUENT')
4075 AND org_id = trx_summ.org_id)
4076 number_of_delinquencies,
4077 (SELECT 1
4078 FROM dual
4079 WHERE EXISTS
4080 (SELECT 1
4081 FROM iex_delinquencies_all
4082 WHERE party_cust_id = party.party_id
4083 AND status IN('DELINQUENT', 'PREDELINQUENT')
4084 AND org_id = trx_summ.org_id
4085 AND(uwq_status IS NULL OR uwq_status = 'ACTIVE' OR(TRUNC(uwq_active_date) <= TRUNC(sysdate)
4086 AND uwq_status = 'PENDING')))
4087 )
4088 active_delinquencies,
4089 (SELECT 1
4090 FROM dual
4091 WHERE EXISTS
4092 (SELECT 1
4093 FROM iex_delinquencies_all
4094 WHERE party_cust_id = party.party_id
4095 AND status IN('DELINQUENT', 'PREDELINQUENT')
4096 AND org_id = trx_summ.org_id
4097 AND(uwq_status = 'COMPLETE'
4098 AND(TRUNC(uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') > TRUNC(sysdate))))
4099 )
4100 complete_delinquencies,
4101 (SELECT 1
4102 FROM dual
4103 WHERE EXISTS
4104 (SELECT 1
4105 FROM iex_delinquencies_all
4106 WHERE party_cust_id = party.party_id
4107 AND status IN('DELINQUENT', 'PREDELINQUENT')
4108 AND org_id = trx_summ.org_id
4109 AND(uwq_status = 'PENDING'
4110 AND(TRUNC(uwq_active_date) > TRUNC(sysdate))))
4111 )
4112 pending_delinquencies,
4113 -- Start for the bug#7562130 by PNAVEENK
4114 /* (SELECT a.score_value
4115 FROM iex_score_histories a
4116 WHERE a.creation_date =
4117 (SELECT MAX(creation_date)
4118 FROM iex_score_histories
4119 WHERE score_object_code = 'PARTY'
4120 AND score_object_id = party.party_id)
4121 AND rownum < 2
4122 AND a.score_object_code = 'PARTY'
4123 AND a.score_object_id = party.party_id)
4124 score,*/
4125 /* to_number(cal_score(party.party_id,'PARTY','SCORE_VALUE')) score,
4126 to_number(cal_score(party.party_id,'PARTY','SCORE_ID')) score_id,
4127 cal_score(party.party_id,'PARTY','SCORE_NAME') score_name,
4128 max(decode(ac.resource_type, 'RS_RESOURCE' ,
4129 (select rs.source_name from jtf_rs_resource_extns rs where rs.resource_id= ac.resource_id),
4130 (select rg.group_name from JTF_RS_GROUPS_VL rg where rg.group_id=ac.resource_id)
4131 ) ) collector_resource_name,
4132 -- end for the bug#7562130
4133 party.address1 address1,
4134 party.city city,
4135 party.state state,
4136 party.county county,
4137 fnd_terr.territory_short_name country,
4138 party.province province,
4139 party.postal_code postal_code,
4140 phone.phone_country_code phone_country_code,
4141 phone.phone_area_code phone_area_code,
4142 phone.phone_number phone_number,
4143 phone.phone_extension phone_extension,
4144 (SELECT COUNT(1) FROM iex_bankruptcies bkr WHERE bkr.party_id = party.party_id and NVL(BKR.DISPOSITION_CODE,'GRANTED') in ('GRANTED','NEGOTIATION')) number_of_bankruptcies, -- Changed for bug#7693986
4145
4146 iex_uwq_view_pkg.get_pro_count(party.party_id, NULL, NULL, NULL, trx_summ.org_id) number_of_promises,
4147 iex_uwq_view_pkg.get_broken_prm_amt(party.party_id, NULL, NULL, trx_summ.org_id) broken_promise_amount,
4148 iex_uwq_view_pkg.get_prm_amt(party.party_id, NULL, NULL, trx_summ.org_id) promise_amount,
4149 (SELECT 1
4150 FROM dual
4151 WHERE EXISTS
4152 (SELECT 1
4153 FROM iex_promise_details pd,
4154 hz_cust_accounts b
4155 WHERE b.party_id = party.party_id
4156 AND pd.cust_account_id = b.cust_account_id
4157 AND pd.state = 'BROKEN_PROMISE'
4158 AND(pd.uwq_status IS NULL OR pd.uwq_status = 'ACTIVE' OR(TRUNC(pd.uwq_active_date) <= TRUNC(sysdate)
4159 AND pd.uwq_status = 'PENDING')))
4160 )
4161 active_promises,
4162 (SELECT 1
4163 FROM dual
4164 WHERE EXISTS
4165 (SELECT 1
4166 FROM iex_promise_details pd,
4167 hz_cust_accounts b
4168 WHERE b.party_id = party.party_id
4169 AND pd.cust_account_id = b.cust_account_id
4170 AND pd.state = 'BROKEN_PROMISE'
4171 AND(pd.uwq_status = 'COMPLETE'
4172 AND(TRUNC(pd.uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') > TRUNC(sysdate))))
4173 )
4174 complete_promises,
4175 (SELECT 1
4176 FROM dual
4177 WHERE EXISTS
4178 (SELECT 1
4179 FROM iex_promise_details pd,
4180 hz_cust_accounts b
4181 WHERE b.party_id = party.party_id
4182 AND pd.cust_account_id = b.cust_account_id
4183 and pd.state = 'BROKEN_PROMISE'
4184 AND(pd.uwq_status = 'PENDING'
4185 AND(TRUNC(pd.uwq_active_date) > TRUNC(sysdate))))
4186 )
4187 pending_promises
4188
4189 FROM ar_trx_bal_summary trx_summ,
4190 hz_cust_accounts acc,
4191 hz_parties party,
4192 hz_party_preferences party_pref,--Added for Bug 8707923 27-Jul-2009 barathsr
4193 jtf_objects_b objb,
4194 hz_contact_points phone,
4195 fnd_territories_tl fnd_terr,
4196 hz_customer_profiles prf,
4197 ar_collectors ac,
4198 GL_SETS_OF_BOOKS gl,
4199 AR_SYSTEM_PARAMETERS_all sys
4200 WHERE trx_summ.reference_1 = '1'
4201 AND trx_summ.cust_account_id = acc.cust_account_id
4202 AND acc.party_id = party.party_id
4203 AND objb.object_code = 'IEX_CUSTOMER'
4204 and objb.object_code <> 'IEX_DELINQUENCY'--Added for Bug 8707923 27-Jul-2009 barathsr
4205 AND party.country = fnd_terr.territory_code(+)
4206 AND fnd_terr.LANGUAGE(+) = userenv('LANG')
4207 AND phone.owner_table_id(+) = party.party_id
4208 AND phone.owner_table_name(+) = 'HZ_PARTIES'
4209 AND phone.contact_point_type(+) = 'PHONE'
4210 and phone.primary_by_purpose(+) = 'Y'
4211 AND phone.contact_point_purpose(+) = 'COLLECTIONS'
4212 AND phone.phone_line_type(+) NOT IN('PAGER', 'FAX')
4213 AND phone.status(+) = 'A'
4214 AND nvl(phone.do_not_use_flag(+), 'N') = 'N'
4215 AND acc.party_id = prf.party_id
4216 and prf.CUST_ACCOUNT_ID = -1
4217 -- and prf.CUST_ACCOUNT_ID = trx_summ.CUST_ACCOUNT_ID
4218 and prf.SITE_USE_ID is null
4219 and ac.collector_id(+) = prf.collector_id
4220 and gl.SET_OF_BOOKS_ID = sys.SET_OF_BOOKS_ID
4221 and trx_summ.org_id = sys.org_id
4222 -- start bug 5762888 gnramasa 13-July-2007
4223 /* and (trx_summ.cust_account_id, trx_summ.site_use_id, trx_summ.org_id) in */
4224 /* changed for bug 5677415 by gnramasa on 27/11/2006 */
4225 /* (select cust_account_id, site_use_id, org_id from ar_trx_bal_summary where trunc(LAST_UPDATE_DATE) >= trunc(sysdate)) */
4226 /* (select cust_account_id, site_use_id, org_id from ar_trx_bal_summary where trunc(LAST_UPDATE_DATE) >= trunc(p_from_date)) */
4227 -- and trunc(trx_summ.last_update_date) >= trunc(p_from_date)
4228 -- end bug 5762888 gnramasa 13-July-2007
4229 --Begin Bug 8707923 27-Jul-2009 barathsr
4230 /* and party.party_id=party_pref.party_id(+)
4231 and party_pref.module(+)='COLLECTIONS'
4232 and party_pref.category(+)='COLLECTIONS LEVEL'
4233 and party_pref.preference_code(+)='PARTY_ID'
4234 and nvl(decode(G_PARTY_LVL_ENB,'Y',party_pref.VALUE_VARCHAR2,null),c_level)='CUSTOMER'
4235 and trx_summ.org_id=nvl(c_org_id,trx_summ.org_id)
4236 --End Bug 8707923 27-Jul-2009 barathsr
4237 GROUP BY trx_summ.org_id,
4238 objb.object_function,
4239 objb.object_parameters,
4240 party.party_id,
4241 party.party_name,
4242 party.address1,
4243 party.city,
4244 party.state,
4245 party.county,
4246 fnd_terr.territory_short_name,
4247 party.province,
4248 party.postal_code,
4249 phone.phone_country_code,
4250 phone.phone_area_code,
4251 phone.phone_number,
4252 phone.phone_extension;*/
4253 --End bug 6634879 gnramasa 20th Nov 07
4254 --End of comment for Bug 9597052 28-Apr-2010 barathsr
4255
4256 --Begin Bug 9597052 28-Apr-2010 barathsr
4257 --This cursor fetches column values from ar_trx_bal_summary table and the values are inserted in iex_dln_uwq_summary at Party level for a specified date range
4258 --All the other column values are fetched with small cursors from the respective tables and updated in iex_dln_uwq_summary
4259
4260
4261 CURSOR c_iex_cu_uwq_dt_sum(p_from_date date,c_level varchar2,c_org_id number)
4262 IS
4263 SELECT
4264 trx_summ.org_id,
4265 objb.object_function ieu_object_function,
4266 objb.object_parameters || ' DISPLAYCBO=IEXTRMAN' ieu_object_parameters,
4267 '' ieu_media_type_uuid,
4268 'PARTY_ID' ieu_param_pk_col,
4269 to_char(party.party_id) ieu_param_pk_value,
4270 party.party_id party_id,
4271 -- party.party_name party_name,
4272 to_number(null) cust_account_id,
4273 to_number(null) site_use_id,
4274 max(gl.CURRENCY_CODE) currency,
4275 SUM(trx_summ.op_invoices_count) op_invoices_count,
4276 SUM(trx_summ.op_debit_memos_count) op_debit_memos_count,
4277 SUM(trx_summ.op_deposits_count) op_deposits_count,
4278 SUM(trx_summ.op_bills_receivables_count) op_bills_receivables_count,
4279 SUM(trx_summ.op_chargeback_count) op_chargeback_count,
4280 SUM(trx_summ.op_credit_memos_count) op_credit_memos_count,
4281 SUM(trx_summ.unresolved_cash_count) unresolved_cash_count,
4282 SUM(trx_summ.disputed_inv_count) disputed_inv_count,
4283 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.best_current_receivables,
4284 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
4285 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.best_current_receivables))) best_current_receivables,
4286 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_invoices_value,
4287 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
4288 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_invoices_value))) op_invoices_value,
4289 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_debit_memos_value,
4290 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
4291 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_debit_memos_value))) op_debit_memos_value,
4292 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_deposits_value,
4293 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
4294 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_deposits_value))) op_deposits_value,
4295 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_bills_receivables_value,
4296 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
4297 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_bills_receivables_value))) op_bills_receivables_value,
4298 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_chargeback_value,
4299 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
4300 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_chargeback_value))) op_chargeback_value,
4301 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_credit_memos_value,
4302 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
4303 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_credit_memos_value))) op_credit_memos_value,
4304 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.unresolved_cash_value,
4305 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
4306 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.unresolved_cash_value))) unresolved_cash_value,
4307 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.receipts_at_risk_value,
4308 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
4309 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.receipts_at_risk_value))) receipts_at_risk_value,
4310 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.inv_amt_in_dispute,
4311 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
4312 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.inv_amt_in_dispute))) inv_amt_in_dispute,
4313 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.pending_adj_value,
4314 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
4315 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.pending_adj_value))) pending_adj_value,
4316 SUM(trx_summ.past_due_inv_inst_count) past_due_inv_inst_count,
4317 MAX(trx_summ.last_payment_date) last_payment_date,
4318 MAX(trx_summ.last_update_date) last_update_date,
4319 MAX(trx_summ.last_updated_by) last_updated_by,
4320 MAX(trx_summ.creation_date) creation_date,
4321 MAX(trx_summ.created_by) created_by,
4322 MAX(trx_summ.last_update_login) last_update_login
4323 FROM ar_trx_bal_summary trx_summ,
4324 hz_cust_accounts acc,
4325 hz_parties party,
4326 hz_party_preferences party_pref,--Added for Bug 8707923 27-Jul-2009 barathsr
4327 jtf_objects_b objb,
4328 GL_SETS_OF_BOOKS gl,
4329 AR_SYSTEM_PARAMETERS_all sys
4330
4331 WHERE
4332 P_MODE = 'CP'
4333 AND trx_summ.reference_1 = '1'
4334 AND trx_summ.cust_account_id = acc.cust_account_id
4335 AND acc.party_id = party.party_id
4336 AND objb.object_code = 'IEX_CUSTOMER'
4337 and objb.object_code <> 'IEX_DELINQUENCY'--Added for Bug 8707923 27-Jul-2009 barathsr
4338 and gl.SET_OF_BOOKS_ID = sys.SET_OF_BOOKS_ID
4339 and trx_summ.org_id = sys.org_id
4340 and trunc(trx_summ.last_update_date) >= trunc(p_from_date)
4341 --Begin Bug 8707923 27-Jul-2009 barathsr
4342 and party.party_id=party_pref.party_id(+)
4343 and party_pref.module(+)='COLLECTIONS'
4344 and party_pref.category(+)='COLLECTIONS LEVEL'
4345 and party_pref.preference_code(+)='PARTY_ID'
4346 and nvl(decode(G_PARTY_LVL_ENB,'Y',party_pref.VALUE_VARCHAR2,null),c_level)='CUSTOMER'
4347 and trx_summ.org_id=nvl(c_org_id,trx_summ.org_id)
4348 --End Bug 8707923 27-Jul-2009 barathsr
4349 GROUP BY trx_summ.org_id,
4350 objb.object_function,
4351 objb.object_parameters,
4352 party.party_id;
4353
4354
4355 cursor c_cu_deln_cnt_dt is
4356 SELECT a.party_cust_id,dln.org_id,
4357 count(a.delinquency_id) number_of_delinquencies,
4358 SUM(b.acctd_amount_due_remaining) past_due_inv_value
4359 FROM iex_delinquencies_all a,
4360 ar_payment_schedules_all b,
4361 iex_dln_uwq_summary dln
4362 WHERE a.party_cust_id =dln.party_id
4363 AND a.payment_schedule_id = b.payment_schedule_id
4364 AND b.status = 'OP'
4365 AND a.status IN('DELINQUENT', 'PREDELINQUENT')
4366 AND dln.org_id = a.org_id
4367 --AND trunc(dln.LAST_UPDATE_DATE) >= trunc(sysdate-1) --changed for bug 13322580
4368 AND dln.request_id = FND_GLOBAL.CONC_REQUEST_ID -- Added for bug13452739
4369 and dln.site_use_id is null
4370 and dln.cust_account_id is null
4371 GROUP BY a.party_cust_id,dln.org_id;
4372
4373 cursor c_cu_deln_dtls_dt
4374 is
4375 select del.party_cust_ID,dln.org_id,
4376 max(decode(uwq_status,'PENDING',(decode(sign(TRUNC(uwq_active_date) - TRUNC(sysdate)),1,1)))) pending_delinquencies,
4377 max(decode(uwq_status,'COMPLETE',(decode(sign(TRUNC(uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') - TRUNC(sysdate)),1,1)))) complete_delinquencies,
4378 max(decode(uwq_status,NULL,1,'ACTIVE',1,'PENDING',(decode(sign(TRUNC(uwq_active_date) - TRUNC(sysdate)),-1,1,0,1)))) active_delinquencies
4379 from iex_delinquencies_all del,
4380 iex_dln_uwq_summary dln
4381 WHERE del.party_cust_id = dln.party_id AND
4382 del.org_id = dln.org_id and
4383 del.status IN('DELINQUENT', 'PREDELINQUENT')
4384 and dln.site_use_id is null
4385 and dln.cust_account_id is null
4386 --AND trunc(dln.LAST_UPDATE_DATE) >= trunc(sysdate-1) --changed for bug 13322580
4387 AND dln.request_id = FND_GLOBAL.CONC_REQUEST_ID -- Added for bug13452739
4388 group by del.party_cust_id,dln.org_id;
4389
4390 cursor c_cu_pro_dtls_dt is
4391 SELECT del.party_cust_id,dln.org_id,
4392 COUNT(1) number_of_promises,
4393 -- Start Bug 14197188 bibeura 26-Jun-2012
4394 -- SUM(pd.amount_due_remaining) broken_promise_amount,
4395 -- SUM(pd.promise_amount) promise_amount
4396 SUM(gl_currency_api.convert_amount_sql(pd.currency_code, dln.currency, sysdate,
4397 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), pd.amount_due_remaining)) broken_promise_amount,
4398 SUM(gl_currency_api.convert_amount_sql(pd.currency_code, dln.currency, sysdate,
4399 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), pd.promise_amount)) promise_amount
4400 -- End Bug 14197188 bibeura 26-Jun-2012
4401 FROM iex_promise_details pd,
4402 iex_delinquencies_all del,
4403 iex_dln_uwq_summary dln
4404 WHERE dln.party_id = del.party_cust_id
4405 AND pd.delinquency_id = del.delinquency_id
4406 AND pd.status IN('COLLECTABLE', 'PENDING')
4407 AND pd.state = 'BROKEN_PROMISE'
4408 AND pd.amount_due_remaining > 0
4409 AND (del.status NOT IN('CURRENT', 'CLOSE')
4410 or (del.status='CURRENT' and del.source_program_name='IEX_CURR_INV'))
4411 and dln.site_use_id is null
4412 and dln.cust_account_id is null
4413 --AND trunc(dln.LAST_UPDATE_DATE) >= trunc(sysdate-1) --changed for bug 13322580
4414 AND dln.request_id = FND_GLOBAL.CONC_REQUEST_ID -- Added for bug13452739
4415 and del.org_id = dln.org_id
4416 GROUP BY del.party_cust_id,dln.org_id;
4417
4418 cursor c_cu_pro_summ_dt is
4419 select del.party_cust_ID,dln.org_id,
4420 max(decode(pd.uwq_status,'PENDING',(decode(sign(TRUNC(pd.uwq_active_date) - TRUNC(sysdate)),1,1)))) pending_promises,
4421 max(decode(pd.uwq_status,'COMPLETE',(decode(sign(TRUNC(pd.uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') - TRUNC(sysdate)),1,1)))) complete_promises,
4422 max(decode(pd.uwq_status,NULL,1,'ACTIVE',1,'PENDING',(decode(sign(TRUNC(pd.uwq_active_date) - TRUNC(sysdate)),-1,1,0,1)))) active_promises
4423 from iex_promise_details pd,
4424 IEX_DELINQUENCIES_ALL DEL,
4425 iex_dln_uwq_summary dln
4426 WHERE dln.party_id = del.party_cust_id
4427 and pd.delinquency_id = del.delinquency_id
4428 and dln.site_use_id is null
4429 and dln.cust_account_id is null
4430 --AND trunc(dln.LAST_UPDATE_DATE) >= trunc(sysdate-1) --changed for bug 13322580
4431 AND dln.request_id = FND_GLOBAL.CONC_REQUEST_ID -- Added for bug13452739
4432 and del.org_id = dln.org_id
4433 and pd.state = 'BROKEN_PROMISE'
4434 group by del.party_cust_ID,dln.org_id;
4435
4436
4437 CURSOR c_cust_details_dt IS
4438 SELECT
4439 party.party_id party_id,summ.org_id,
4440 party.party_name party_name,
4441 -- summ.cust_account_id cust_account_id,
4442 null account_name,
4443 null account_number,
4444 null location,
4445 party.address1 address1,
4446 party.city city,
4447 party.state state,
4448 party.county county,
4449 fnd_terr.territory_short_name country,
4450 party.province province,
4451 party.postal_code postal_code
4452 FROM iex_dln_uwq_summary summ,
4453 -- hz_cust_accounts acc,
4454 hz_parties party,
4455 hz_party_preferences party_pref,
4456 fnd_territories_tl fnd_terr
4457 WHERE
4458 summ.party_id = party.party_id
4459 AND party.country = fnd_terr.territory_code(+)
4460 AND fnd_terr.LANGUAGE(+) = userenv('LANG')
4461 and party.party_id=party_pref.party_id(+)
4462 and party_pref.module(+)='COLLECTIONS'
4463 and party_pref.category(+)='COLLECTIONS LEVEL'
4464 and party_pref.preference_code(+)='PARTY_ID'
4465 --AND trunc(summ.LAST_UPDATE_DATE) >= trunc(sysdate-1) --changed for bug 13322580
4466 AND summ.request_id = FND_GLOBAL.CONC_REQUEST_ID -- Added for bug13452739
4467 and summ.site_use_id is null
4468 and summ.cust_account_id is null
4469 GROUP BY party.party_id,
4470 party.party_name,
4471 party.address1,
4472 party.city,
4473 party.state,
4474 party.county,
4475 fnd_terr.territory_short_name,
4476 party.province,
4477 party.postal_code,
4478 summ.org_id;
4479
4480
4481 CURSOR C_cu_CONTACT_POINT_dt IS
4482 SELECT summ.party_id,summ.org_id,
4483 phone.phone_country_code phone_country_code,
4484 phone.phone_area_code phone_area_code,
4485 phone.phone_number phone_number,
4486 phone.phone_extension phone_extension
4487 FROM iex_dln_uwq_summary summ,
4488 hz_contact_points phone
4489 WHERE
4490 phone.owner_table_id(+) = summ.party_id
4491 AND phone.owner_table_name(+) = 'HZ_PARTIES'
4492 AND phone.contact_point_type(+) = 'PHONE'
4493 AND phone.primary_by_purpose(+) = 'Y'
4494 AND phone.contact_point_purpose(+) = 'COLLECTIONS'
4495 AND phone.phone_line_type(+) NOT IN('PAGER', 'FAX')
4496 AND phone.status(+) = 'A'
4497 AND nvl(phone.do_not_use_flag(+), 'N') = 'N'
4498 --AND trunc(summ.LAST_UPDATE_DATE) >= trunc(sysdate-1) --changed for bug 13322580
4499 AND summ.request_id = FND_GLOBAL.CONC_REQUEST_ID -- Added for bug13452739
4500 and summ.site_use_id is null
4501 and summ.cust_account_id is null
4502 group by summ.party_id,
4503 phone.phone_country_code,
4504 phone.phone_area_code,
4505 phone.phone_number,
4506 phone.phone_extension,
4507 summ.org_id;
4508
4509
4510 CURSOR C_cu_COLLECTOR_prof_dt IS
4511 SELECT
4512 hp.collector_id collector_id,temp.org_id,
4513 ac.resource_id collector_resource_id,
4514 ac.resource_type COLLECTOR_RES_TYPE,
4515 decode(ac.resource_type, 'RS_RESOURCE' , rs.source_name , rg.group_name) collector_resource_name,
4516 1 resource_id,
4517 'RS_EMPLOYEE' resource_type,
4518 hp.party_id
4519 FROM
4520 hz_customer_profiles hp,
4521 ar_collectors ac,
4522 iex_dln_uwq_summary temp,
4523 JTF_RS_GROUPS_VL rg,
4524 jtf_rs_resource_extns rs
4525 WHERE
4526 hp.party_id = temp.party_ID
4527 and ac.collector_id(+) = hp.collector_id
4528 and rg.group_id(+) = ac.resource_id
4529 and rs.resource_id(+) = ac.resource_id
4530 --AND trunc(temp.LAST_UPDATE_DATE) >= trunc(sysdate-1) --changed for bug 13322580
4531 AND temp.request_id = FND_GLOBAL.CONC_REQUEST_ID -- Added for bug13452739
4532 and hp.cust_account_id=-1
4533 and hp.site_use_id is null
4534 and temp.site_use_id is null
4535 and temp.cust_account_id is null;
4536
4537 CURSOR c_cu_ch_coll_dt_sum IS
4538 SELECT
4539 DISTINCT
4540 ac.resource_id collector_resource_id,ids.org_id,
4541 ac.resource_type COLLECTOR_RES_TYPE,
4542 ac.collector_id collector_id,
4543 hp.party_id
4544 FROM
4545 ar_collectors ac,
4546 hz_customer_profiles hp,
4547 iex_dln_uwq_summary ids
4548 WHERE
4549 hp.party_id=ids.party_id
4550 and ac.collector_id(+) = hp.collector_id
4551 AND ac.resource_id is NOT NULL
4552 AND ac.resource_id <> ids.collector_resource_id
4553 and hp.cust_account_id=-1
4554 and hp.site_use_id is null
4555 and ids.cust_account_id is null
4556 and ids.site_use_id is null
4557 --AND trunc(ids.last_update_date)>= TRUNC(SYSDATE-1); --changed for bug 13322580
4558 and ids.request_id = FND_GLOBAL.CONC_REQUEST_ID; -- Added for bug13452739
4559
4560 cursor c_cu_last_payment_dtls_dt is
4561 select hca.party_id,summ.org_id,
4562 summ.last_payment_amount last_payment_amount,
4563 summ.currency last_payment_currency,
4564 summ.last_payment_number last_payment_number
4565 from ar_trx_bal_summary summ,
4566 hz_cust_accounts hca,
4567 gl_sets_of_books gl,
4568 ar_system_parameters_all sys
4569 where summ.cust_account_id=hca.cust_account_id
4570 and gl.SET_OF_BOOKS_ID = sys.SET_OF_BOOKS_ID
4571 and summ.org_id = sys.org_id
4572 and summ.last_payment_date=(select max(dln.last_payment_date)
4573 from iex_dln_uwq_summary dln
4574 where dln.party_id=hca.party_id
4575 and dln.org_id=summ.org_id
4576 --AND trunc(dln.LAST_UPDATE_DATE) >= trunc(sysdate-1) --changed for bug 13322580
4577 and dln.request_id = FND_GLOBAL.CONC_REQUEST_ID -- Added for bug13452739
4578 and dln.cust_account_id is null
4579 and dln.site_use_id is null);
4580
4581
4582 cursor c_cu_bankruptcies_dt is
4583 select summ.party_id,summ.org_id,
4584 COUNT(1) number_of_bankruptcies
4585 FROM iex_bankruptcies bkr,
4586 iex_dln_uwq_summary summ
4587 where bkr.party_id=summ.party_id
4588 and NVL(BKR.DISPOSITION_CODE,'GRANTED') in ('GRANTED','NEGOTIATION')
4589 and summ.site_use_id is null and summ.cust_account_id is null
4590 --AND trunc(summ.LAST_UPDATE_DATE) >= trunc(sysdate-1) --changed for bug 13322580
4591 AND summ.request_id = FND_GLOBAL.CONC_REQUEST_ID -- Added for bug13452739
4592 group by summ.party_id,summ.org_id;
4593
4594 cursor c_cu_score_dt is
4595 SELECT sh.score_object_id,
4596 sh.score_value score,
4597 sc.score_id,
4598 sc.score_name
4599 FROM iex_score_histories sh,iex_scores sc
4600 WHERE sc.score_id = sh.score_id
4601 and sh.score_object_code = 'PARTY'
4602 and (sh.score_object_id,sh.score_object_code,sh.creation_date)
4603 in (SELECT sh1.score_object_id,sh1.score_object_code,MAX(sh1.creation_date)
4604 FROM iex_score_histories sh1,
4605 iex_dln_uwq_summary temp
4606 WHERE sh1.score_object_code = 'PARTY'
4607 AND sh1.score_object_id = temp.party_id
4608 --AND trunc(temp.LAST_UPDATE_DATE) >= trunc(sysdate-1) --changed for bug 13322580
4609 AND temp.request_id = FND_GLOBAL.CONC_REQUEST_ID -- Added for bug13452739
4610 and temp.site_use_id is null
4611 and temp.cust_account_id is null
4612 group by sh1.score_object_id,sh1.score_object_code);
4613 --End Bug 9597052 28-Apr-2010 barathsr
4614 ------------------------------------
4615 --Begin Bug 9596144 25-May-2010 barathsr
4616 --Separated the strategy summary cursor for each level(Customer/Account/BillTo) for better performance
4617 CURSOR c_strategy_summary_cust(p_level varchar2,p_from_date date,p_org_id number) --Added for Bug 8707923 27-Jul-2009 barathsr
4618 IS
4619 select strat.jtf_object_id,
4620 wkitem.WORK_ITEM_ID,
4621 wkitem.schedule_start schedule_start,
4622 wkitem.schedule_end schedule_end,
4623 stry_temp_wkitem.category_type category,
4624 stry_temp_wkitem.WORK_TYPE,
4625 stry_temp_wkitem.PRIORITY_TYPE,
4626 wkitem.resource_id,
4627 wkitem.strategy_id,
4628 strat.strategy_template_id,
4629 wkitem.work_item_template_id,
4630 wkitem.status_code,
4631 strat.status_code, -- Added for bug#7416344 by PNAVEENK on 2-4-2009
4632 -- wkitem.creation_date start_time,
4633 wkitem.execute_start start_time, -- Added for bug#8306620 by PNAVEENK on 3-4-2009
4634 wkitem.execute_end end_time, -- snuthala 28/08/2008 bug #6745580
4635 wkitem.work_item_order wkitem_order,
4636 wkitem.escalated_yn --Added for bug#6981126 by schekuri on 27-Jul-2008
4637 from iex_strategies strat,
4638 iex_strategy_work_items wkitem,
4639 iex_stry_temp_work_items_b stry_temp_wkitem,
4640 IEX_DLN_UWQ_SUMMARY sum
4641 where strat.jtf_object_type = 'PARTY'
4642 AND strat.status_code IN('OPEN', 'ONHOLD')
4643 AND wkitem.strategy_id = strat.strategy_id
4644 AND wkitem.status_code IN('OPEN', 'ONHOLD')
4645 AND wkitem.work_item_template_id = stry_temp_wkitem.work_item_temp_id
4646 AND strat.jtf_object_id = sum.PARTY_ID
4647 --AND sum.LAST_UPDATE_DATE >= trunc(sysdate-1) --changed for bug 13322580
4648 AND sum.request_id = FND_GLOBAL.CONC_REQUEST_ID -- Added for bug13452739
4649 and sum.org_id=nvl(p_org_id,sum.org_id) --Added for Bug 8707923 27-Jul-2009 barathsr
4650 and sum.business_level=p_level;--Added for Bug 8707923 27-Jul-2009 barathsr
4651
4652 CURSOR c_strategy_summary_acct(p_level varchar2,p_from_date date,p_org_id number) --Added for Bug 8707923 27-Jul-2009 barathsr
4653 IS
4654 select strat.jtf_object_id,
4655 wkitem.WORK_ITEM_ID,
4656 wkitem.schedule_start schedule_start,
4657 wkitem.schedule_end schedule_end,
4658 stry_temp_wkitem.category_type category,
4659 stry_temp_wkitem.WORK_TYPE,
4660 stry_temp_wkitem.PRIORITY_TYPE,
4661 wkitem.resource_id,
4662 wkitem.strategy_id,
4663 strat.strategy_template_id,
4664 wkitem.work_item_template_id,
4665 wkitem.status_code,
4666 strat.status_code, -- Added for bug#7416344 by PNAVEENK on 2-4-2009
4667 -- wkitem.creation_date start_time,
4668 wkitem.execute_start start_time, -- Added for bug#8306620 by PNAVEENK on 3-4-2009
4669 wkitem.execute_end end_time, -- snuthala 28/08/2008 bug #6745580
4670 wkitem.work_item_order wkitem_order,
4671 wkitem.escalated_yn --Added for bug#6981126 by schekuri on 27-Jul-2008
4672 from iex_strategies strat,
4673 iex_strategy_work_items wkitem,
4674 iex_stry_temp_work_items_b stry_temp_wkitem,
4675 IEX_DLN_UWQ_SUMMARY sum
4676 where strat.jtf_object_type ='IEX_ACCOUNT'
4677 AND strat.status_code IN('OPEN', 'ONHOLD')
4678 AND wkitem.strategy_id = strat.strategy_id
4679 AND wkitem.status_code IN('OPEN', 'ONHOLD')
4680 AND wkitem.work_item_template_id = stry_temp_wkitem.work_item_temp_id
4681 AND strat.jtf_object_id = sum.CUST_ACCOUNT_ID
4682 --AND sum.LAST_UPDATE_DATE >= trunc(sysdate-1) --changed for bug 13322580
4683 AND sum.request_id = FND_GLOBAL.CONC_REQUEST_ID -- Added for bug13452739
4684 and sum.org_id=nvl(p_org_id,sum.org_id) --Added for Bug 8707923 27-Jul-2009 barathsr
4685 and sum.business_level=p_level;--Added for Bug 8707923 27-Jul-2009 barathsr
4686
4687 CURSOR c_strategy_summary_billto(p_level varchar2,p_from_date date,p_org_id number) --Added for Bug 8707923 27-Jul-2009 barathsr
4688 IS
4689 select strat.jtf_object_id,
4690 wkitem.WORK_ITEM_ID,
4691 wkitem.schedule_start schedule_start,
4692 wkitem.schedule_end schedule_end,
4693 stry_temp_wkitem.category_type category,
4694 stry_temp_wkitem.WORK_TYPE,
4695 stry_temp_wkitem.PRIORITY_TYPE,
4696 wkitem.resource_id,
4697 wkitem.strategy_id,
4698 strat.strategy_template_id,
4699 wkitem.work_item_template_id,
4700 wkitem.status_code,
4701 strat.status_code, -- Added for bug#7416344 by PNAVEENK on 2-4-2009
4702 -- wkitem.creation_date start_time,
4703 wkitem.execute_start start_time, -- Added for bug#8306620 by PNAVEENK on 3-4-2009
4704 wkitem.execute_end end_time, -- snuthala 28/08/2008 bug #6745580
4705 wkitem.work_item_order wkitem_order,
4706 wkitem.escalated_yn --Added for bug#6981126 by schekuri on 27-Jul-2008
4707 from iex_strategies strat,
4708 iex_strategy_work_items wkitem,
4709 iex_stry_temp_work_items_b stry_temp_wkitem,
4710 IEX_DLN_UWQ_SUMMARY sum
4711 where strat.jtf_object_type = 'IEX_BILLTO'
4712 AND strat.status_code IN('OPEN', 'ONHOLD')
4713 AND wkitem.strategy_id = strat.strategy_id
4714 AND wkitem.status_code IN('OPEN', 'ONHOLD')
4715 AND wkitem.work_item_template_id = stry_temp_wkitem.work_item_temp_id
4716 AND strat.jtf_object_id = sum.SITE_USE_ID
4717 --AND trunc(sum.LAST_UPDATE_DATE) >= trunc(sysdate-1) --changed for bug 13322580
4718 AND sum.request_id = FND_GLOBAL.CONC_REQUEST_ID -- Added for bug13452739
4719 and sum.org_id=nvl(p_org_id,sum.org_id) --Added for Bug 8707923 27-Jul-2009 barathsr
4720 and sum.business_level=p_level;--Added for Bug 8707923 27-Jul-2009 barathsr
4721
4722 --End Bug 9596144 25-May-2010 barathsr
4723
4724 --Bug5701973. Start.
4725 -- Start for the bug#7562130 by PNAVEENK
4726 CURSOR CHANGED_COLLECTOR(P_FROM_DATE DATE,p_level varchar2,p_org_id number) --Added for Bug 8707923 27-Jul-2009 barathsr
4727 IS
4728 SELECT
4729 DISTINCT
4730 ar.resource_id,
4731 ar.resource_type,
4732 decode(ar.resource_type, 'RS_RESOURCE' , rs.source_name , rg.group_name) collector_resource_name,
4733 ar.collector_id
4734 FROM
4735 ar_collectors ar,
4736 iex_dln_uwq_summary ids,
4737 jtf_rs_resource_extns rs,
4738 JTF_RS_GROUPS_VL rg
4739 WHERE
4740 ar.collector_id = ids.collector_id
4741 AND ar.resource_id is NOT NULL
4742 AND ar.resource_id <> ids.collector_resource_id
4743 AND trunc(ar.last_update_date) >= TRUNC(P_FROM_DATE)
4744 and rs.resource_id(+) = ar.resource_id
4745 and rg.group_id (+) = ar.resource_id
4746 and ids.org_id=nvl(p_org_id,ids.org_id)--Added for Bug 8707923 27-Jul-2009 barathsr
4747 and ids.business_level=p_level;--Added for Bug 8707923 27-Jul-2009 barathsr
4748
4749 -- end for the bug#7562130
4750
4751
4752 CURSOR CHANGED_PROFILES(P_FROM_DATE DATE,p_level varchar2,p_org_id number)--Added for Bug 8707923 27-Jul-2009 barathsr
4753 IS
4754 SELECT
4755 hp.collector_id,
4756 ids.party_id,
4757 ids.cust_account_id,
4758 ids.site_use_id,
4759 ar.resource_id,-- Added for 15906302
4760 decode(ar.resource_type, 'RS_RESOURCE' , rs.source_name , rg.group_name) collector_resource_name,-- Added for 15906302
4761 ar.resource_type -- Added for 15906302
4762 FROM
4763 hz_customer_profiles hp,
4764 iex_dln_uwq_summary ids,
4765 ar_collectors ar,
4766 jtf_rs_resource_extns rs,
4767 JTF_RS_GROUPS_VL rg
4768 WHERE
4769 hp.party_id = ids.party_id
4770 AND decode(hp.cust_account_id,-1,1,hp.cust_account_id)
4771 = decode(ids.cust_account_id,null,1,ids.cust_account_id)
4772 AND decode(hp.site_use_id,null,1,hp.site_use_id)
4773 = decode(ids.site_use_id,null,1,ids.site_use_id)
4774 AND hp.collector_id <> ids.collector_id
4775 and hp.collector_id = ar.collector_id
4776 and rs.resource_id(+) = ar.resource_id
4777 and rg.group_id (+) = ar.resource_id
4778 -- Modified the below AND condition for Bug 13713264 bibeura 15-Feb-2012
4779 -- AND trunc(hp.last_update_date) >= TRUNC(P_FROM_DATE)
4780 AND hp.last_update_date >= TRUNC(P_FROM_DATE)
4781 and ids.org_id=nvl(p_org_id,ids.org_id)--Added for Bug 8707923 27-Jul-2009 barathsr
4782 and ids.business_level=p_level;--Added for Bug 8707923 27-Jul-2009 barathsr
4783
4784 CURSOR CHANGED_PARTY(P_FROM_DATE DATE,p_level varchar2,p_org_id number)--Added for Bug 8707923 27-Jul-2009 barathsr
4785 IS
4786 SELECT
4787 party.party_id,
4788 party.address1 address1,
4789 party.city city,
4790 party.state state,
4791 party.county county,
4792 fnd_terr.territory_short_name country,
4793 party.province province,
4794 party.postal_code postal_code
4795 FROM
4796 hz_parties party,
4797 iex_dln_uwq_summary ids,
4798 fnd_territories_tl fnd_terr
4799 WHERE
4800 party.party_id = ids.party_id
4801 AND party.country = fnd_terr.territory_code(+)
4802 AND fnd_terr.LANGUAGE(+) = userenv('LANG')
4803 AND trunc(party.last_update_date) >= TRUNC(P_FROM_DATE)
4804 and ids.org_id=nvl(p_org_id,ids.org_id)--Added for Bug 8707923 27-Jul-2009 barathsr
4805 and ids.business_level=p_level;--Added for Bug 8707923 27-Jul-2009 barathsr
4806
4807 --Begin Bug 9487600 24-Mar-2010 barathsr
4808 CURSOR CHANGED_BILLTO_SITES(P_FROM_DATE DATE,p_level varchar2,p_org_id number)
4809 IS
4810 -- Added Hint for bug13713264 bibeura 15-Feb-2012
4811 SELECT /*+ no_expand use_nl(loc hps hcasa hcsua) */
4812 hcsua.site_use_id site_use_id,
4813 loc.address1||' '||loc.address2||' '||loc.address3 address,
4814 loc.city city,
4815 loc.state state,
4816 loc.county county,
4817 loc.country country,
4818 loc.province province,
4819 loc.postal_code postal_code
4820 FROM
4821 hz_cust_site_uses_all hcsua,
4822 hz_cust_acct_sites_all hcasa,
4823 hz_party_sites hps,
4824 hz_locations loc
4825 WHERE
4826 hcsua.cust_acct_site_id=hcasa.cust_acct_site_id
4827 and hcasa.party_site_id=hps.party_site_id
4828 and hps.location_id=loc.location_id
4829 and trunc(loc.last_update_date)>= TRUNC(P_FROM_DATE)
4830 and hcsua.org_id=nvl(p_org_id,hcsua.org_id);
4831 --End Bug 9487600 24-Mar-2010 barathsr
4832
4833 CURSOR CHANGED_CONTACT(P_FROM_DATE DATE,p_level varchar2,p_org_id number) --Added for Bug 8707923 27-Jul-2009 barathsr
4834 IS
4835 SELECT
4836 ids.party_id party_id,
4837 phone.phone_country_code phone_country_code,
4838 phone.phone_area_code phone_area_code,
4839 phone.phone_number phone_number,
4840 phone.phone_extension phone_extension
4841 FROM
4842 hz_contact_points phone,
4843 iex_dln_uwq_summary ids
4844 WHERE
4845 phone.owner_table_id = ids.party_id
4846 AND phone.owner_table_name = 'HZ_PARTIES'
4847 AND phone.contact_point_type = 'PHONE'
4848 and phone.primary_by_purpose = 'Y'
4849 AND phone.contact_point_purpose = 'COLLECTIONS'
4850 AND phone.phone_line_type NOT IN('PAGER', 'FAX')
4851 AND phone.status = 'A'
4852 AND nvl(phone.do_not_use_flag, 'N') = 'N'
4853 AND trunc(phone.last_update_date) >= TRUNC(P_FROM_DATE)
4854 and ids.org_id=nvl(p_org_id,ids.org_id)--Added for Bug 8707923 27-Jul-2009 barathsr
4855 and ids.business_level=p_level;--Added for Bug 8707923 27-Jul-2009 barathsr
4856 --Bug5701973. End.
4857
4858
4859 L_ORG_ID number_list;
4860 L_COLLECTOR_ID number_list;
4861 L_COLLECTOR_RESOURCE_ID number_list;
4862 L_COLLECTOR_RES_TYPE varchar_30_list;
4863 L_IEU_OBJECT_FUNCTION varchar_30_list;
4864 L_IEU_OBJECT_PARAMETERS varchar_2020_list;
4865 L_IEU_MEDIA_TYPE_UUID varchar_10_list;
4866 L_IEU_PARAM_PK_COL varchar_40_list;
4867 L_IEU_PARAM_PK_VALUE varchar_40_list;
4868 L_RESOURCE_ID number_list;
4869 L_RESOURCE_TYPE varchar_20_list;
4870 L_PARTY_ID number_list;
4871 L_PARTY_NAME varchar_360_list;
4872 L_CUST_ACCOUNT_ID number_list;
4873 L_ACCOUNT_NAME varchar_240_list;
4874 L_ACCOUNT_NUMBER varchar_30_list;
4875 L_SITE_USE_ID number_list;
4876 L_LOCATION varchar_60_list;
4877 L_CURRENCY varchar_20_list;
4878 L_OP_INVOICES_COUNT number_list;
4879 L_OP_DEBIT_MEMOS_COUNT number_list;
4880 L_OP_DEPOSITS_COUNT number_list;
4881 L_OP_BILLS_RECEIVABLES_COUNT number_list;
4882 L_OP_CHARGEBACK_COUNT number_list;
4883 L_OP_CREDIT_MEMOS_COUNT number_list;
4884 L_UNRESOLVED_CASH_COUNT number_list;
4885 L_DISPUTED_INV_COUNT number_list;
4886 L_BEST_CURRENT_RECEIVABLES number_list;
4887 L_OP_INVOICES_VALUE number_list;
4888 L_OP_DEBIT_MEMOS_VALUE number_list;
4889 L_OP_DEPOSITS_VALUE number_list;
4890 L_OP_BILLS_RECEIVABLES_VALUE number_list;
4891 L_OP_CHARGEBACK_VALUE number_list;
4892 L_OP_CREDIT_MEMOS_VALUE number_list;
4893 L_UNRESOLVED_CASH_VALUE number_list;
4894 L_RECEIPTS_AT_RISK_VALUE number_list;
4895 L_INV_AMT_IN_DISPUTE number_list;
4896 L_PENDING_ADJ_VALUE number_list;
4897 L_PAST_DUE_INV_VALUE number_list;
4898 L_PAST_DUE_INV_INST_COUNT number_list;
4899 L_LAST_PAYMENT_DATE date_list;
4900 L_LAST_PAYMENT_AMOUNT number_list;
4901 L_LAST_PAYMENT_AMOUNT_CURR varchar_20_list;
4902 L_LAST_PAYMENT_NUMBER varchar_30_list;
4903 L_LAST_UPDATE_DATE date_list;
4904 L_LAST_UPDATED_BY number_list;
4905 L_CREATION_DATE date_list;
4906 L_CREATED_BY number_list;
4907 L_LAST_UPDATE_LOGIN number_list;
4908 L_NUMBER_OF_DELINQUENCIES number_list;
4909 L_ACTIVE_DELINQUENCIES number_list;
4910 L_COMPLETE_DELINQUENCIES number_list;
4911 L_PENDING_DELINQUENCIES number_list;
4912 L_SCORE number_list;
4913 -- Start for the bug#7562130 by PNAVEENK
4914 L_SCORE_ID number_list;
4915 L_SCORE_NAME varchar_240_list;
4916 L_COLLECTOR_RESOURCE_NAME varchar_240_list;
4917 -- End for the bug#7562130
4918 L_ADDRESS1 varchar_240_list;
4919 L_CITY varchar_60_list;
4920 L_STATE varchar_60_list;
4921 L_COUNTY varchar_60_list;
4922 L_COUNTRY varchar_80_list;
4923 L_PROVINCE varchar_60_list;
4924 L_POSTAL_CODE varchar_60_list;
4925 L_PHONE_COUNTRY_CODE varchar_10_list;
4926 L_PHONE_AREA_CODE varchar_10_list;
4927 L_PHONE_NUMBER varchar_40_list;
4928 L_PHONE_EXTENSION varchar_20_list;
4929 L_NUMBER_OF_BANKRUPTCIES number_list;
4930 L_NUMBER_OF_PROMISES number_list;
4931 L_BROKEN_PROMISE_AMOUNT number_list;
4932 L_PROMISE_AMOUNT number_list;
4933 L_ACTIVE_PROMISES number_list;
4934 L_COMPLETE_PROMISES number_list;
4935 L_PENDING_PROMISES number_list;
4936 L_WORK_ITEM_ID number_list;
4937 L_SCHEDULE_START date_list;
4938 L_SCHEDULE_END date_list;
4939 L_WORK_TYPE varchar_30_list;
4940 L_CATEGORY_TYPE varchar_30_list;
4941 L_PRIORITY_TYPE varchar_30_list;
4942 L_JTF_OBJECT_ID number_list;
4943 l_wkitem_resource_id number_list;
4944 l_strategy_id number_list;
4945 l_strategy_template_id number_list;
4946 l_work_item_template_id number_list;
4947 l_status_code varchar_30_list;
4948 l_str_status varchar_30_list; -- Added for bug#7416344 by PNAVEENK on 2-4-2009
4949 l_start_time date_list;
4950 l_end_time date_list;
4951 l_work_item_order number_list;
4952 l_escalated_yn varchar_10_list; --Added for bug#6981126 by schekuri on 27-Jun-2008
4953
4954 l_max_fetches NUMBER;
4955 l_total NUMBER;
4956 l_count NUMBER;
4957 l_return boolean;
4958 l_from_date DATE;
4959 l_level VARCHAR2(80);
4960 l_cash VARCHAR2(240);
4961 l_enable_work_queue varchar2(10);
4962
4963
4964
4965 -------------------------------------------------------------------------------
4966
4967 BEGIN
4968
4969 -- fix for bug 5936061
4970 if (p_mode = 'DLN') then
4971 return;
4972 end if;
4973
4974 insert_conc_req;
4975
4976 l_from_date := to_date(substr(FROM_DATE, 1, 10), 'YYYY/MM/DD');
4977 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Input FROM_DATE = ' || l_from_date);
4978 FND_FILE.PUT_LINE(FND_FILE.LOG,'Input FROM_DATE = ' || l_from_date);
4979
4980 l_max_fetches := to_number(nvl(fnd_profile.value('IEX_BATCH_SIZE'), '100000'));
4981 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Batch size = ' || l_max_fetches);
4982 FND_FILE.PUT_LINE(FND_FILE.LOG,'Batch size = ' || l_max_fetches);
4983
4984 l_enable_work_queue := nvl(fnd_profile.value('IEX_ENABLE_UWQ_STATUS'), 'N');
4985 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'l_enable_work_queue = ' || l_enable_work_queue);
4986
4987 --Commented for Bug 8707923 27-JUl-2009 barathsr
4988 --the variable l_level ceases to exist and is replaced by p_level wherever used
4989 --since we added p_level as a parameter to the procedure.
4990 -- OPEN c_get_level;
4991 --FETCH c_get_level INTO l_level;
4992 --CLOSE c_get_level;
4993 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Level = ' || p_level);
4994
4995 IF (p_level = 'DELINQUENCY') THEN
4996 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Delinquency level is not implemented at this time. Exiting.');
4997 return;
4998 END IF;
4999 -- changed for bug 9498399 PNAVEENK
5000 -- l_cash := IEX_UTILITIES.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', 'SELECT DEFAULT_EXCHANGE_RATE_TYPE FROM AR_CMGT_SETUP_OPTIONS');
5001 -- l_cash := NVL(FND_PROFILE.VALUE('IEX_EXCHANGE_RATE_TYPE'), 'Corporate'); -- Changed for bug#8630157 by PNAVEENK
5002 l_cash := IEX_UTILITIES.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE','select NVL(FND_PROFILE.VALUE(''IEX_EXCHANGE_RATE_TYPE''),''Corporate'') from dual');
5003 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'DEFAULT_EXCHANGE_RATE_TYPE = ' || l_cash);
5004 --Start of comment for Bug 8942646 12-Oct-2009 barathsr
5005 --Moved the from_date not null delete part of the code to delete_from_uwq_summ procedure
5006 /* IF (l_from_date is not null and G_LEVEL_COUNT=0) then --Added for Bug 8707923 27-Jul-2009 barathsr
5007 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Partially repopulating IEX_DLN_UWQ_SUMMARY table...');
5008 /* Begin gnramasa Modified for bug 5677415 27/11/2006 */
5009 /* IF p_level = 'CUSTOMER' THEN
5010 delete from IEX_DLN_UWQ_SUMMARY where (party_id,org_id) in
5011 (select hza.party_id,trb.org_id from ar_trx_bal_summary trb, hz_cust_accounts hza
5012 where hza.cust_account_id = trb.cust_account_id and trunc(trb.LAST_UPDATE_DATE) >= trunc(l_from_date)
5013 and trb.org_id=nvl(p_org_id,trb.org_id));--Added for Bug 8707923 27-Jul-2009 barathsr
5014 ELSIF p_level = 'ACCOUNT' THEN
5015 delete from IEX_DLN_UWQ_SUMMARY where (cust_account_id, org_id) in
5016 (select cust_account_id, org_id from ar_trx_bal_summary trb where trunc(LAST_UPDATE_DATE) >= trunc(l_from_date)
5017 and trb.org_id=nvl(p_org_id,trb.org_id));--Added for Bug 8707923 27-Jul-2009 barathsr
5018 ELSIF p_level = 'BILL_TO' THEN
5019 delete from IEX_DLN_UWQ_SUMMARY where (cust_account_id, site_use_id, org_id) in
5020 (select cust_account_id, site_use_id, org_id from ar_trx_bal_summary trb where trunc(LAST_UPDATE_DATE) >= trunc(l_from_date)
5021 and trb.org_id=nvl(p_org_id,trb.org_id));--Added for Bug 8707923 27-Jul-2009 barathsr
5022 END IF;
5023 /* delete from IEX_DLN_UWQ_SUMMARY where (cust_account_id, site_use_id, org_id) in
5024 (select cust_account_id, site_use_id, org_id from ar_trx_bal_summary where trunc(LAST_UPDATE_DATE) >= trunc(l_from_date)); */
5025
5026 -- LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No of rows deleted: ' || SQL%ROWCOUNT);
5027 /* End gnramasa Modified for bug 5677415 27/11/2006 */
5028 -- LogMessage(FND_LOG.LEVEL_STATEMENT,'Deleted rows that will be repopulated');
5029 -- end if;
5030 --End of comment for Bug 8942646 12-Oct-2009 barathsr
5031
5032 -- 1. Fetching and inserting data into the table
5033 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' ');
5034 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'1. Fetching and inserting data into the table...');
5035
5036 l_total := 0;
5037 l_count := 0;
5038
5039 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Start open cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
5040
5041 -- Begin - Andre Araujo - 10/20/06 - Added dynamic sql - Assembling BILL_TO query
5042
5043
5044 IF p_level = 'CUSTOMER' THEN
5045 if (l_from_date is null) then
5046 FND_FILE.PUT_LINE(FND_FILE.LOG,'p_level = ' || p_level);
5047 FND_FILE.PUT_LINE(FND_FILE.LOG,'p_org_id = ' || p_org_id);
5048 OPEN c_iex_cu_uwq_summary(G_SYSTEM_LEVEL,p_org_id);--Added for Bug 8707923 27-Jul-2009 barathsr
5049 else
5050 FND_FILE.PUT_LINE(FND_FILE.LOG,'p_level = ' || p_level);
5051 FND_FILE.PUT_LINE(FND_FILE.LOG,'p_org_id = ' || p_org_id);
5052 FND_FILE.PUT_LINE(FND_FILE.LOG,'from_date = ' || l_from_date);
5053 OPEN c_iex_cu_uwq_dt_sum(l_from_date,G_SYSTEM_LEVEL,p_org_id);--Added for Bug 8707923 27-Jul-2009 barathsr
5054 end if;
5055 ELSIF p_level = 'ACCOUNT' THEN
5056 -- If the date is not null we will not read only the new/updated records
5057 if (l_from_date is null) then
5058 OPEN c_iex_acc_uwq_summary(G_SYSTEM_LEVEL,p_org_id);--Added for Bug 8707923 27-Jul-2009 barathsr
5059 else
5060 OPEN c_iex_acc_uwq_dt_sum(l_from_date,G_SYSTEM_LEVEL,p_org_id);--Added for Bug 8707923 27-Jul-2009 barathsr
5061 end if;
5062 ELSIF p_level = 'BILL_TO' THEN
5063 -- If the date is not null we will not read only the new/updated records
5064 if (l_from_date is null) then
5065 FND_FILE.PUT_LINE(FND_FILE.LOG,'p_level = ' || p_level);
5066 FND_FILE.PUT_LINE(FND_FILE.LOG,'p_org_id = ' || p_org_id);
5067 open c_iex_billto_uwq_summary(G_SYSTEM_LEVEL,p_org_id);--Added for Bug 8707923 27-Jul-2009 barathsr
5068 else
5069 FND_FILE.PUT_LINE(FND_FILE.LOG,'Inside BillTo');
5070 FND_FILE.PUT_LINE(FND_FILE.LOG,'p_level = ' || p_level);
5071 FND_FILE.PUT_LINE(FND_FILE.LOG,'p_org_id = ' || p_org_id);
5072 FND_FILE.PUT_LINE(FND_FILE.LOG,'from_date = ' || l_from_date);
5073 open c_iex_billto_uwq_dt_sum(l_from_date,G_SYSTEM_LEVEL,p_org_id);--Added for Bug 8707923 27-Jul-2009 barathsr
5074 end if;
5075 END IF;
5076
5077 -- End - Andre Araujo - 10/20/06 - Added dynamic sql - Assembling query
5078 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End open cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
5079
5080 LOOP
5081 l_count := l_count +1;
5082 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'----------');
5083 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Bulk ' || l_count);
5084
5085 L_ORG_ID.delete;
5086 L_COLLECTOR_ID.delete;
5087 L_COLLECTOR_RESOURCE_ID.delete;
5088 L_COLLECTOR_RES_TYPE.delete;
5089 L_IEU_OBJECT_FUNCTION.delete;
5090 L_IEU_OBJECT_PARAMETERS.delete;
5091 L_IEU_MEDIA_TYPE_UUID.delete;
5092 L_IEU_PARAM_PK_COL.delete;
5093 L_IEU_PARAM_PK_VALUE.delete;
5094 L_RESOURCE_ID.delete;
5095 L_RESOURCE_TYPE.delete;
5096 L_PARTY_ID.delete;
5097 L_PARTY_NAME.delete;
5098 L_CUST_ACCOUNT_ID.delete;
5099 L_ACCOUNT_NAME.delete;
5100 L_ACCOUNT_NUMBER.delete;
5101 L_SITE_USE_ID.delete;
5102 L_LOCATION.delete;
5103 L_CURRENCY.delete;
5104 L_OP_INVOICES_COUNT.delete;
5105 L_OP_DEBIT_MEMOS_COUNT.delete;
5106 L_OP_DEPOSITS_COUNT.delete;
5107 L_OP_BILLS_RECEIVABLES_COUNT.delete;
5108 L_OP_CHARGEBACK_COUNT.delete;
5109 L_OP_CREDIT_MEMOS_COUNT.delete;
5110 L_UNRESOLVED_CASH_COUNT.delete;
5111 L_DISPUTED_INV_COUNT.delete;
5112 L_BEST_CURRENT_RECEIVABLES.delete;
5113 L_OP_INVOICES_VALUE.delete;
5114 L_OP_DEBIT_MEMOS_VALUE.delete;
5115 L_OP_DEPOSITS_VALUE.delete;
5116 L_OP_BILLS_RECEIVABLES_VALUE.delete;
5117 L_OP_CHARGEBACK_VALUE.delete;
5118 L_OP_CREDIT_MEMOS_VALUE.delete;
5119 L_UNRESOLVED_CASH_VALUE.delete;
5120 L_RECEIPTS_AT_RISK_VALUE.delete;
5121 L_INV_AMT_IN_DISPUTE.delete;
5122 L_PENDING_ADJ_VALUE.delete;
5123 L_PAST_DUE_INV_VALUE.delete;
5124 L_PAST_DUE_INV_INST_COUNT.delete;
5125 L_LAST_PAYMENT_DATE.delete;
5126 L_LAST_PAYMENT_AMOUNT.delete;
5127 L_LAST_PAYMENT_AMOUNT_CURR.delete;
5128 L_LAST_PAYMENT_NUMBER.delete;
5129 L_LAST_UPDATE_DATE.delete;
5130 L_LAST_UPDATED_BY.delete;
5131 L_CREATION_DATE.delete;
5132 L_CREATED_BY.delete;
5133 L_LAST_UPDATE_LOGIN.delete;
5134 L_NUMBER_OF_DELINQUENCIES.delete;
5135 L_ACTIVE_DELINQUENCIES.delete;
5136 L_COMPLETE_DELINQUENCIES.delete;
5137 L_PENDING_DELINQUENCIES.delete;
5138 L_SCORE.delete;
5139 -- Start for the bug#7562130 by PNAVEENK
5140 L_SCORE_ID.delete;
5141 L_SCORE_NAME.delete;
5142 L_COLLECTOR_RESOURCE_NAME.delete;
5143 -- end for the bug#7562130
5144 L_ADDRESS1.delete;
5145 L_CITY.delete;
5146 L_STATE.delete;
5147 L_COUNTY.delete;
5148 L_COUNTRY.delete;
5149 L_PROVINCE.delete;
5150 L_POSTAL_CODE.delete;
5151 L_PHONE_COUNTRY_CODE.delete;
5152 L_PHONE_AREA_CODE.delete;
5153 L_PHONE_NUMBER.delete;
5154 L_PHONE_EXTENSION.delete;
5155 L_NUMBER_OF_BANKRUPTCIES.delete;
5156 L_NUMBER_OF_PROMISES.delete;
5157 L_BROKEN_PROMISE_AMOUNT.delete;
5158 L_PROMISE_AMOUNT.delete;
5159 L_ACTIVE_PROMISES.delete;
5160 L_COMPLETE_PROMISES.delete;
5161 L_PENDING_PROMISES.delete;
5162
5163 LogMessage(FND_LOG.LEVEL_STATEMENT,'Inited all arrays');
5164
5165 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Start fetching time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
5166 IF p_level = 'CUSTOMER' THEN
5167 if (l_from_date is null) then
5168 FETCH c_iex_cu_uwq_summary bulk collect
5169 INTO
5170 L_ORG_ID,
5171 L_IEU_OBJECT_FUNCTION,
5172 L_IEU_OBJECT_PARAMETERS,
5173 L_IEU_MEDIA_TYPE_UUID,
5174 L_IEU_PARAM_PK_COL,
5175 L_IEU_PARAM_PK_VALUE,
5176 L_PARTY_ID,
5177 L_CUST_ACCOUNT_ID,
5178 L_SITE_USE_ID,
5179 L_CURRENCY,
5180 L_OP_INVOICES_COUNT,
5181 L_OP_DEBIT_MEMOS_COUNT,
5182 L_OP_DEPOSITS_COUNT,
5183 L_OP_BILLS_RECEIVABLES_COUNT,
5184 L_OP_CHARGEBACK_COUNT,
5185 L_OP_CREDIT_MEMOS_COUNT,
5186 L_UNRESOLVED_CASH_COUNT,
5187 L_DISPUTED_INV_COUNT,
5188 L_BEST_CURRENT_RECEIVABLES,
5189 L_OP_INVOICES_VALUE,
5190 L_OP_DEBIT_MEMOS_VALUE,
5191 L_OP_DEPOSITS_VALUE,
5192 L_OP_BILLS_RECEIVABLES_VALUE,
5193 L_OP_CHARGEBACK_VALUE,
5194 L_OP_CREDIT_MEMOS_VALUE,
5195 L_UNRESOLVED_CASH_VALUE,
5196 L_RECEIPTS_AT_RISK_VALUE,
5197 L_INV_AMT_IN_DISPUTE,
5198 L_PENDING_ADJ_VALUE,
5199 L_PAST_DUE_INV_INST_COUNT,
5200 L_LAST_PAYMENT_DATE,
5201 L_LAST_UPDATE_DATE,
5202 L_LAST_UPDATED_BY,
5203 L_CREATION_DATE,
5204 L_CREATED_BY,
5205 L_LAST_UPDATE_LOGIN
5206 limit l_max_fetches;
5207 Else
5208 FETCH c_iex_cu_uwq_dt_sum bulk collect
5209 INTO
5210 L_ORG_ID,
5211 L_IEU_OBJECT_FUNCTION,
5212 L_IEU_OBJECT_PARAMETERS,
5213 L_IEU_MEDIA_TYPE_UUID,
5214 L_IEU_PARAM_PK_COL,
5215 L_IEU_PARAM_PK_VALUE,
5216 L_PARTY_ID,
5217 L_CUST_ACCOUNT_ID,
5218 L_SITE_USE_ID,
5219 L_CURRENCY,
5220 L_OP_INVOICES_COUNT,
5221 L_OP_DEBIT_MEMOS_COUNT,
5222 L_OP_DEPOSITS_COUNT,
5223 L_OP_BILLS_RECEIVABLES_COUNT,
5224 L_OP_CHARGEBACK_COUNT,
5225 L_OP_CREDIT_MEMOS_COUNT,
5226 L_UNRESOLVED_CASH_COUNT,
5227 L_DISPUTED_INV_COUNT,
5228 L_BEST_CURRENT_RECEIVABLES,
5229 L_OP_INVOICES_VALUE,
5230 L_OP_DEBIT_MEMOS_VALUE,
5231 L_OP_DEPOSITS_VALUE,
5232 L_OP_BILLS_RECEIVABLES_VALUE,
5233 L_OP_CHARGEBACK_VALUE,
5234 L_OP_CREDIT_MEMOS_VALUE,
5235 L_UNRESOLVED_CASH_VALUE,
5236 L_RECEIPTS_AT_RISK_VALUE,
5237 L_INV_AMT_IN_DISPUTE,
5238 L_PENDING_ADJ_VALUE,
5239 L_PAST_DUE_INV_INST_COUNT,
5240 L_LAST_PAYMENT_DATE,
5241 L_LAST_UPDATE_DATE,
5242 L_LAST_UPDATED_BY,
5243 L_CREATION_DATE,
5244 L_CREATED_BY,
5245 L_LAST_UPDATE_LOGIN
5246 limit l_max_fetches;
5247 End If;
5248
5249 ELSIF p_level = 'ACCOUNT' THEN
5250
5251 if (l_from_date is null) then
5252 FETCH c_iex_acc_uwq_summary bulk collect
5253 INTO
5254 L_ORG_ID,
5255 L_IEU_OBJECT_FUNCTION,
5256 L_IEU_OBJECT_PARAMETERS,
5257 L_IEU_MEDIA_TYPE_UUID,
5258 L_IEU_PARAM_PK_COL,
5259 L_IEU_PARAM_PK_VALUE,
5260 L_PARTY_ID,
5261 L_CUST_ACCOUNT_ID,
5262 L_SITE_USE_ID,
5263 L_CURRENCY,
5264 L_OP_INVOICES_COUNT,
5265 L_OP_DEBIT_MEMOS_COUNT,
5266 L_OP_DEPOSITS_COUNT,
5267 L_OP_BILLS_RECEIVABLES_COUNT,
5268 L_OP_CHARGEBACK_COUNT,
5269 L_OP_CREDIT_MEMOS_COUNT,
5270 L_UNRESOLVED_CASH_COUNT,
5271 L_DISPUTED_INV_COUNT,
5272 L_BEST_CURRENT_RECEIVABLES,
5273 L_OP_INVOICES_VALUE,
5274 L_OP_DEBIT_MEMOS_VALUE,
5275 L_OP_DEPOSITS_VALUE,
5276 L_OP_BILLS_RECEIVABLES_VALUE,
5277 L_OP_CHARGEBACK_VALUE,
5278 L_OP_CREDIT_MEMOS_VALUE,
5279 L_UNRESOLVED_CASH_VALUE,
5280 L_RECEIPTS_AT_RISK_VALUE,
5281 L_INV_AMT_IN_DISPUTE,
5282 L_PENDING_ADJ_VALUE,
5283 L_PAST_DUE_INV_INST_COUNT,
5284 L_LAST_PAYMENT_DATE,
5285 L_LAST_UPDATE_DATE,
5286 L_LAST_UPDATED_BY,
5287 L_CREATION_DATE,
5288 L_CREATED_BY,
5289 L_LAST_UPDATE_LOGIN
5290 limit l_max_fetches;
5291 Else
5292 FETCH c_iex_acc_uwq_dt_sum bulk collect
5293 INTO
5294 L_ORG_ID,
5295 L_IEU_OBJECT_FUNCTION,
5296 L_IEU_OBJECT_PARAMETERS,
5297 L_IEU_MEDIA_TYPE_UUID,
5298 L_IEU_PARAM_PK_COL,
5299 L_IEU_PARAM_PK_VALUE,
5300 L_PARTY_ID,
5301 L_CUST_ACCOUNT_ID,
5302 L_SITE_USE_ID,
5303 L_CURRENCY,
5304 L_OP_INVOICES_COUNT,
5305 L_OP_DEBIT_MEMOS_COUNT,
5306 L_OP_DEPOSITS_COUNT,
5307 L_OP_BILLS_RECEIVABLES_COUNT,
5308 L_OP_CHARGEBACK_COUNT,
5309 L_OP_CREDIT_MEMOS_COUNT,
5310 L_UNRESOLVED_CASH_COUNT,
5311 L_DISPUTED_INV_COUNT,
5312 L_BEST_CURRENT_RECEIVABLES,
5313 L_OP_INVOICES_VALUE,
5314 L_OP_DEBIT_MEMOS_VALUE,
5315 L_OP_DEPOSITS_VALUE,
5316 L_OP_BILLS_RECEIVABLES_VALUE,
5317 L_OP_CHARGEBACK_VALUE,
5318 L_OP_CREDIT_MEMOS_VALUE,
5319 L_UNRESOLVED_CASH_VALUE,
5320 L_RECEIPTS_AT_RISK_VALUE,
5321 L_INV_AMT_IN_DISPUTE,
5322 L_PENDING_ADJ_VALUE,
5323 L_PAST_DUE_INV_INST_COUNT,
5324 L_LAST_PAYMENT_DATE,
5325 L_LAST_UPDATE_DATE,
5326 L_LAST_UPDATED_BY,
5327 L_CREATION_DATE,
5328 L_CREATED_BY,
5329 L_LAST_UPDATE_LOGIN
5330 limit l_max_fetches;
5331 End If;
5332
5333 ELSIF p_level = 'BILL_TO' THEN
5334
5335 -- If the date is not null we will not read only the new/updated records
5336 if (l_from_date is null) then
5337 FETCH c_iex_billto_uwq_summary bulk collect
5338 INTO
5339 L_ORG_ID,
5340 L_IEU_OBJECT_FUNCTION,
5341 L_IEU_OBJECT_PARAMETERS,
5342 L_IEU_MEDIA_TYPE_UUID,
5343 L_IEU_PARAM_PK_COL,
5344 L_IEU_PARAM_PK_VALUE,
5345 L_PARTY_ID,
5346 L_CUST_ACCOUNT_ID,
5347 L_SITE_USE_ID,
5348 L_CURRENCY,
5349 L_OP_INVOICES_COUNT,
5350 L_OP_DEBIT_MEMOS_COUNT,
5351 L_OP_DEPOSITS_COUNT,
5352 L_OP_BILLS_RECEIVABLES_COUNT,
5353 L_OP_CHARGEBACK_COUNT,
5354 L_OP_CREDIT_MEMOS_COUNT,
5355 L_UNRESOLVED_CASH_COUNT,
5356 L_DISPUTED_INV_COUNT,
5357 L_BEST_CURRENT_RECEIVABLES,
5358 L_OP_INVOICES_VALUE,
5359 L_OP_DEBIT_MEMOS_VALUE,
5360 L_OP_DEPOSITS_VALUE,
5361 L_OP_BILLS_RECEIVABLES_VALUE,
5362 L_OP_CHARGEBACK_VALUE,
5363 L_OP_CREDIT_MEMOS_VALUE,
5364 L_UNRESOLVED_CASH_VALUE,
5365 L_RECEIPTS_AT_RISK_VALUE,
5366 L_INV_AMT_IN_DISPUTE,
5367 L_PENDING_ADJ_VALUE,
5368 L_PAST_DUE_INV_INST_COUNT,
5369 L_LAST_PAYMENT_DATE,
5370 L_LAST_UPDATE_DATE,
5371 L_LAST_UPDATED_BY,
5372 L_CREATION_DATE,
5373 L_CREATED_BY,
5374 L_LAST_UPDATE_LOGIN
5375 limit l_max_fetches;
5376 else
5377 FETCH c_iex_billto_uwq_dt_sum bulk collect
5378 INTO
5379 L_ORG_ID,
5380 L_IEU_OBJECT_FUNCTION,
5381 L_IEU_OBJECT_PARAMETERS,
5382 L_IEU_MEDIA_TYPE_UUID,
5383 L_IEU_PARAM_PK_COL,
5384 L_IEU_PARAM_PK_VALUE,
5385 L_PARTY_ID,
5386 L_CUST_ACCOUNT_ID,
5387 L_SITE_USE_ID,
5388 L_CURRENCY,
5389 L_OP_INVOICES_COUNT,
5390 L_OP_DEBIT_MEMOS_COUNT,
5391 L_OP_DEPOSITS_COUNT,
5392 L_OP_BILLS_RECEIVABLES_COUNT,
5393 L_OP_CHARGEBACK_COUNT,
5394 L_OP_CREDIT_MEMOS_COUNT,
5395 L_UNRESOLVED_CASH_COUNT,
5396 L_DISPUTED_INV_COUNT,
5397 L_BEST_CURRENT_RECEIVABLES,
5398 L_OP_INVOICES_VALUE,
5399 L_OP_DEBIT_MEMOS_VALUE,
5400 L_OP_DEPOSITS_VALUE,
5401 L_OP_BILLS_RECEIVABLES_VALUE,
5402 L_OP_CHARGEBACK_VALUE,
5403 L_OP_CREDIT_MEMOS_VALUE,
5404 L_UNRESOLVED_CASH_VALUE,
5405 L_RECEIPTS_AT_RISK_VALUE,
5406 L_INV_AMT_IN_DISPUTE,
5407 L_PENDING_ADJ_VALUE,
5408 L_PAST_DUE_INV_INST_COUNT,
5409 L_LAST_PAYMENT_DATE,
5410 L_LAST_UPDATE_DATE,
5411 L_LAST_UPDATED_BY,
5412 L_CREATION_DATE,
5413 L_CREATED_BY,
5414 L_LAST_UPDATE_LOGIN
5415 limit l_max_fetches;
5416 End If;
5417 END IF;
5418
5419 IF L_IEU_OBJECT_FUNCTION.COUNT = 0 THEN
5420
5421 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
5422 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
5423 EXIT;
5424
5425 ELSE
5426 FND_FILE.PUT_LINE(FND_FILE.LOG,'no.of records fetched ' || L_IEU_OBJECT_FUNCTION.COUNT);
5427 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
5428 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Fetched ' || L_IEU_OBJECT_FUNCTION.COUNT || ' rows.');
5429 LogMessage(FND_LOG.LEVEL_STATEMENT,'Inserting...');
5430 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Start inserting time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
5431
5432 forall i IN L_IEU_OBJECT_FUNCTION.FIRST .. L_IEU_OBJECT_FUNCTION.LAST
5433 INSERT INTO IEX_DLN_UWQ_SUMMARY
5434 (DLN_UWQ_SUMMARY_ID
5435 ,ORG_ID
5436 ,IEU_OBJECT_FUNCTION
5437 ,IEU_OBJECT_PARAMETERS
5438 ,IEU_MEDIA_TYPE_UUID
5439 ,IEU_PARAM_PK_COL
5440 ,IEU_PARAM_PK_VALUE
5441 ,PARTY_ID
5442 ,CUST_ACCOUNT_ID
5443 ,SITE_USE_ID
5444 ,CURRENCY
5445 ,OP_INVOICES_COUNT
5446 ,OP_DEBIT_MEMOS_COUNT
5447 ,OP_DEPOSITS_COUNT
5448 ,OP_BILLS_RECEIVABLES_COUNT
5449 ,OP_CHARGEBACK_COUNT
5450 ,OP_CREDIT_MEMOS_COUNT
5451 ,UNRESOLVED_CASH_COUNT
5452 ,DISPUTED_INV_COUNT
5453 ,BEST_CURRENT_RECEIVABLES
5454 ,OP_INVOICES_VALUE
5455 ,OP_DEBIT_MEMOS_VALUE
5456 ,OP_DEPOSITS_VALUE
5457 ,OP_BILLS_RECEIVABLES_VALUE
5458 ,OP_CHARGEBACK_VALUE
5459 ,OP_CREDIT_MEMOS_VALUE
5460 ,UNRESOLVED_CASH_VALUE
5461 ,RECEIPTS_AT_RISK_VALUE
5462 ,INV_AMT_IN_DISPUTE
5463 ,PENDING_ADJ_VALUE
5464 ,PAST_DUE_INV_INST_COUNT
5465 ,LAST_PAYMENT_DATE
5466 ,LAST_UPDATE_DATE
5467 ,LAST_UPDATED_BY
5468 ,CREATION_DATE
5469 ,CREATED_BY
5470 ,LAST_UPDATE_LOGIN
5471 ,NUMBER_OF_BANKRUPTCIES
5472 ,BUSINESS_LEVEL --Added for Bug 8707923 27-Jul-2009 barathsr
5473 ,REQUEST_ID
5474 ,PROGRAM_ID
5475 ,PROGRAM_APPLICATION_ID
5476 ,OBJECT_VERSION_NUMBER)
5477
5478 VALUES
5479 (IEX_DLN_UWQ_SUMMARY_S.nextval,
5480 L_ORG_ID(i),
5481 L_IEU_OBJECT_FUNCTION(i),
5482 L_IEU_OBJECT_PARAMETERS(i),
5483 L_IEU_MEDIA_TYPE_UUID(i),
5484 L_IEU_PARAM_PK_COL(i),
5485 L_IEU_PARAM_PK_VALUE(i),
5486 L_PARTY_ID(i),
5487 L_CUST_ACCOUNT_ID(i),
5488 L_SITE_USE_ID(i),
5489 L_CURRENCY(i),
5490 L_OP_INVOICES_COUNT(i),
5491 L_OP_DEBIT_MEMOS_COUNT(i),
5492 L_OP_DEPOSITS_COUNT(i),
5493 L_OP_BILLS_RECEIVABLES_COUNT(i),
5494 L_OP_CHARGEBACK_COUNT(i),
5495 L_OP_CREDIT_MEMOS_COUNT(i),
5496 L_UNRESOLVED_CASH_COUNT(i),
5497 L_DISPUTED_INV_COUNT(i),
5498 L_BEST_CURRENT_RECEIVABLES(i),
5499 L_OP_INVOICES_VALUE(i),
5500 L_OP_DEBIT_MEMOS_VALUE(i),
5501 L_OP_DEPOSITS_VALUE(i),
5502 L_OP_BILLS_RECEIVABLES_VALUE(i),
5503 L_OP_CHARGEBACK_VALUE(i),
5504 L_OP_CREDIT_MEMOS_VALUE(i),
5505 L_UNRESOLVED_CASH_VALUE(i),
5506 L_RECEIPTS_AT_RISK_VALUE(i),
5507 L_INV_AMT_IN_DISPUTE(i),
5508 L_PENDING_ADJ_VALUE(i),
5509 L_PAST_DUE_INV_INST_COUNT(i),
5510 L_LAST_PAYMENT_DATE(i),
5511 sysdate,
5512 FND_GLOBAL.USER_ID,
5513 sysdate,
5514 FND_GLOBAL.USER_ID,
5515 FND_GLOBAL.CONC_LOGIN_ID,
5516 0,
5517 p_level, --Added for Bug 8707923 27-Jul-2009 barathsr
5518 nvl(FND_GLOBAL.Conc_REQUEST_ID,0),
5519 FND_GLOBAL.CONC_PROGRAM_ID,
5520 FND_GLOBAL.PROG_APPL_ID,
5521 1);
5522
5523 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End inserting time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
5524 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Inserted ' || L_IEU_OBJECT_FUNCTION.COUNT || ' rows');
5525
5526 COMMIT;
5527 LogMessage(FND_LOG.LEVEL_STATEMENT,'Commited');
5528
5529 l_total := l_total + L_IEU_OBJECT_FUNCTION.COUNT;
5530 LogMessage(FND_LOG.LEVEL_STATEMENT,'So far processed ' || l_total || ' rows');
5531
5532 END IF;
5533
5534 END LOOP;
5535
5536 IF c_iex_acc_uwq_summary % ISOPEN or
5537 c_iex_acc_uwq_dt_sum % ISOPEN or
5538 c_iex_billto_uwq_summary % ISOPEN or
5539 c_iex_billto_uwq_dt_sum % ISOPEN or
5540 c_iex_cu_uwq_summary % ISOPEN or
5541 c_iex_cu_uwq_dt_sum % ISOPEN
5542 THEN
5543 -- Begin - Andre Araujo - 10/20/06 - Added dynamic sql
5544 -- If the date is not null we will not read only the new/updated records
5545
5546 IF p_level = 'CUSTOMER' THEN
5547 if (l_from_date is null) then
5548 CLOSE c_iex_cu_uwq_summary;
5549 --Begin Bug 9597052 28-Apr-2010 barathsr
5550 if p_mode='CP' then
5551 BEGIN--start 9597052
5552 OPEN C_cust_DETAILS;
5553 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open C_cust_DETAILS cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
5554 L_PARTY_ID.delete;
5555 L_ORG_ID.delete;
5556 L_PARTY_NAME.delete;
5557 L_ACCOUNT_NAME.delete;
5558 L_ACCOUNT_NUMBER.delete;
5559 L_LOCATION.delete;
5560 L_ADDRESS1.delete;
5561 L_CITY.delete;
5562 L_STATE.delete;
5563 L_COUNTY.delete;
5564 L_COUNTRY.delete;
5565 L_PROVINCE.delete;
5566 L_POSTAL_CODE.delete;
5567
5568 LOOP
5569 FETCH C_cust_DETAILS bulk collect
5570 INTO
5571 L_PARTY_ID,
5572 L_ORG_ID,
5573 L_PARTY_NAME,
5574 L_ACCOUNT_NAME,
5575 L_ACCOUNT_NUMBER,
5576 L_LOCATION,
5577 L_ADDRESS1,
5578 L_CITY,
5579 L_STATE,
5580 L_COUNTY,
5581 L_COUNTRY,
5582 L_PROVINCE,
5583 L_POSTAL_CODE
5584 limit l_max_fetches;
5585 IF L_party_ID.COUNT = 0 THEN
5586 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: C_cust_DETAILS ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
5587 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
5588 EXIT;
5589 ELSE
5590
5591 forall i IN L_party_ID.FIRST .. L_party_ID.LAST
5592 UPDATE IEX_DLN_UWQ_SUMMARY
5593 SET --PARTY_ID = L_PARTY_ID(i),
5594 PARTY_NAME = L_PARTY_NAME(i),
5595 ACCOUNT_NAME = L_ACCOUNT_NAME(i),
5596 ACCOUNT_NUMBER = L_ACCOUNT_NUMBER(i),
5597 LOCATION = L_LOCATION(i),
5598 ADDRESS1 = L_ADDRESS1(i),
5599 CITY = L_CITY(i),
5600 STATE = L_STATE(i),
5601 COUNTY = L_COUNTY(i),
5602 COUNTRY = L_COUNTRY(i),
5603 PROVINCE = L_PROVINCE(i),
5604 POSTAL_CODE = L_POSTAL_CODE(i),
5605 LAST_UPDATE_DATE=sysdate,
5606 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
5607 WHERE
5608 party_id = L_party_id(i)
5609 and org_id= L_ORG_ID(i);
5610 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' C_cust_DETAILS updated ' || L_cust_account_id.count || ' rows ');
5611 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
5612 END IF;
5613 END LOOP;
5614 IF C_cust_DETAILS % ISOPEN THEN
5615 CLOSE C_cust_DETAILS;
5616 END IF;
5617
5618 EXCEPTION WHEN OTHERS THEN
5619 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'a/c update received' || SQLERRM);
5620 END;
5621
5622 BEGIN
5623 OPEN c_cu_contact_point;
5624 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Opened Cursor c_cu_contact_point cursor at time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
5625 L_PARTY_ID.delete;
5626 L_ORG_ID.delete;
5627 L_PHONE_COUNTRY_CODE.delete;
5628 L_PHONE_AREA_CODE.delete;
5629 L_PHONE_NUMBER.delete;
5630 L_PHONE_EXTENSION.delete;
5631
5632
5633 LOOP
5634 FETCH c_cu_contact_point bulk collect
5635 INTO
5636 L_PARTY_ID, L_ORG_ID,
5637 L_PHONE_COUNTRY_CODE,
5638 L_PHONE_AREA_CODE,
5639 L_PHONE_NUMBER,
5640 L_PHONE_EXTENSION
5641
5642 limit l_max_fetches;
5643 IF L_PARTY_ID.COUNT = 0 THEN
5644
5645 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'c_cu_contact_point Cursor Fetching end time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
5646 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
5647 EXIT;
5648
5649 ELSE
5650
5651 forall i IN L_PARTY_ID.FIRST .. L_PARTY_ID.LAST
5652
5653 UPDATE IEX_DLN_UWQ_SUMMARY
5654 SET PHONE_COUNTRY_CODE = L_PHONE_COUNTRY_CODE(i),
5655 PHONE_AREA_CODE = L_PHONE_AREA_CODE(i),
5656 PHONE_NUMBER = L_PHONE_NUMBER(i),
5657 PHONE_EXTENSION = L_PHONE_EXTENSION(i),
5658 last_update_date = SYSDATE,
5659 last_updated_by = FND_GLOBAL.USER_ID
5660 WHERE PARTY_ID = L_PARTY_ID(i)
5661 and ORG_ID= L_ORG_ID(i);
5662 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_cu_contact_point Cursor updated ' ||L_PARTY_ID.count || ' rows ');
5663 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
5664
5665 END IF;
5666 END LOOP;
5667
5668 IF c_cu_contact_point % ISOPEN THEN
5669 CLOSE c_cu_contact_point;
5670 END IF;
5671
5672
5673 EXCEPTION WHEN OTHERS THEN
5674 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' Contact point raised error ' || SQLERRM);
5675 END;
5676
5677 BEGIN
5678 OPEN C_cu_COLLECTOR_PROF;
5679 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open C_cu_COLLECTOR_PROF cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
5680 L_RESOURCE_ID.delete;
5681 L_COLLECTOR_RES_TYPE.delete;
5682 L_COLLECTOR_RESOURCE_ID.delete ;
5683 L_COLLECTOR_RESOURCE_NAME.delete;
5684 L_COLLECTOR_ID.delete;
5685 L_RESOURCE_TYPE.delete;
5686 L_ORG_ID.delete;
5687 L_PARTY_ID.delete;
5688 -- L_CUST_ACCOUNT_ID.delete;
5689 -- L_SITE_USE_ID.delete;
5690
5691 LOOP
5692 FETCH C_cu_COLLECTOR_PROF bulk collect
5693 INTO
5694 L_COLLECTOR_ID,L_ORG_ID,
5695 L_COLLECTOR_RESOURCE_ID,
5696 L_COLLECTOR_RES_TYPE,
5697 L_COLLECTOR_RESOURCE_NAME,
5698 L_RESOURCE_ID,
5699 L_RESOURCE_TYPE,
5700 L_PARTY_ID
5701 -- L_CUST_ACCOUNT_ID
5702 -- L_SITE_USE_ID
5703 limit l_max_fetches;
5704 IF L_COLLECTOR_RESOURCE_ID.COUNT = 0 THEN
5705
5706 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: C_cu_COLLECTOR_PROF ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
5707 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
5708 EXIT;
5709
5710 ELSE
5711
5712 forall i IN L_party_ID.FIRST .. L_party_ID.LAST
5713 UPDATE IEX_DLN_UWQ_SUMMARY
5714 SET COLLECTOR_RESOURCE_ID = L_COLLECTOR_RESOURCE_ID(i),
5715 COLLECTOR_RES_TYPE = L_COLLECTOR_RES_TYPE(i),
5716 collector_resource_name = L_COLLECTOR_RESOURCE_NAME(i),
5717 collector_id = l_collector_id(i),
5718 resource_id=l_resource_id(i),
5719 resource_type=l_resource_type(i),
5720 last_update_date = SYSDATE,
5721 last_updated_by = FND_GLOBAL.USER_ID
5722 WHERE
5723 party_id = L_party_id(i)
5724 and org_id= L_ORG_ID(i);
5725 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' C_cu_COLLECTOR_PROF updated ' || L_COLLECTOR_ID.count || ' rows ');
5726 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
5727
5728 END IF;
5729 END LOOP;
5730 IF C_cu_COLLECTOR_PROF % ISOPEN THEN
5731 CLOSE C_cu_COLLECTOR_PROF;
5732 END IF;
5733
5734 EXCEPTION WHEN OTHERS THEN
5735 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'C_cu_COLLECTOR_PROF update received' || SQLERRM);
5736 END;
5737
5738 BEGIN
5739 OPEN C_cu_PRO_DTLS;
5740 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_cu_pro_dtls cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
5741 L_party_ID.delete; L_ORG_ID.delete;
5742 L_NUMBER_OF_PROMISES.delete;
5743 L_BROKEN_PROMISE_AMOUNT .delete;
5744 L_PROMISE_AMOUNT.delete;
5745
5746 LOOP
5747 FETCH C_cu_PRO_DTLS bulk collect
5748 INTO
5749 L_party_id, L_ORG_ID,
5750 L_NUMBER_OF_PROMISES,
5751 L_BROKEN_PROMISE_AMOUNT,
5752 L_PROMISE_AMOUNT
5753 limit l_max_fetches;
5754 IF L_party_ID.COUNT = 0 THEN
5755
5756 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_cu_pro_summ ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
5757 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
5758 EXIT;
5759
5760 ELSE
5761
5762 forall i IN L_party_ID.FIRST .. L_party_ID.LAST
5763 UPDATE IEX_DLN_UWQ_SUMMARY
5764 SET NUMBER_OF_PROMISES = L_NUMBER_OF_PROMISES(i),
5765 BROKEN_PROMISE_AMOUNT = L_BROKEN_PROMISE_AMOUNT(i),
5766 PROMISE_AMOUNT = L_PROMISE_AMOUNT(i),
5767 LAST_UPDATE_DATE=sysdate,
5768 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
5769 WHERE
5770 party_ID = L_party_ID(i)
5771 and org_id= L_ORG_ID(i);
5772 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_cu_pro_dtls updated ' || L_party_ID.count || ' rows ');
5773 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
5774
5775
5776 END IF;
5777 END LOOP;
5778 IF C_cu_PRO_DTLS % ISOPEN THEN
5779 CLOSE C_cu_PRO_DTLS;
5780 END IF;
5781
5782 EXCEPTION WHEN OTHERS THEN
5783 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Broken Promise update received' || SQLERRM);
5784 END;
5785
5786 BEGIN
5787 OPEN C_cu_DELN_CNT;
5788 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_cu_deln_cnt cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
5789 L_party_ID.delete; L_ORG_ID.delete;
5790 L_NUMBER_OF_DELINQUENCIES.delete;
5791 L_PAST_DUE_INV_VALUE.delete;
5792
5793 LOOP
5794 FETCH C_cu_DELN_CNT bulk collect
5795 INTO
5796 L_party_ID, L_ORG_ID,
5797 L_NUMBER_OF_DELINQUENCIES,
5798 L_PAST_DUE_INV_VALUE
5799 limit l_max_fetches;
5800 IF L_party_ID.COUNT = 0 THEN
5801 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_cu_deln_cnt ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
5802 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
5803 EXIT;
5804 ELSE
5805
5806 forall i IN L_party_ID.FIRST .. L_party_ID.LAST
5807 UPDATE IEX_DLN_UWQ_SUMMARY
5808 SET NUMBER_OF_DELINQUENCIES = L_NUMBER_OF_DELINQUENCIES(i),
5809 PAST_DUE_INV_VALUE = L_PAST_DUE_INV_VALUE(i),
5810 LAST_UPDATE_DATE=sysdate,
5811 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
5812 WHERE
5813 party_id = L_party_ID(i)
5814 and org_id= L_ORG_ID(i);
5815 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_cu_del_cnt updated ' || L_party_ID.count || ' rows ');
5816 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
5817 END IF;
5818 END LOOP;
5819 IF C_cu_DELN_CNT % ISOPEN THEN
5820 CLOSE C_cu_DELN_CNT;
5821 END IF;
5822
5823 EXCEPTION WHEN OTHERS THEN
5824 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Delinquency update received' || SQLERRM);
5825 END;
5826
5827 if l_enable_work_queue = 'Y' then --update active,pending and complete nodes of delinquency and promise only when the profile 'IEX: Enable Work Queue Statuses' is set to Yes.
5828 BEGIN
5829 OPEN C_cu_DELN_DTLS;
5830 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_cu_deln_dln cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
5831 L_party_ID.delete; L_ORG_ID.delete;
5832 L_PENDING_DELINQUENCIES.delete;
5833 L_COMPLETE_DELINQUENCIES.delete;
5834 L_ACTIVE_DELINQUENCIES.delete;
5835
5836 LOOP
5837 FETCH C_cu_DELN_DTLS bulk collect
5838 INTO
5839 L_party_ID, L_ORG_ID,
5840 L_PENDING_DELINQUENCIES,
5841 L_COMPLETE_DELINQUENCIES,
5842 L_ACTIVE_DELINQUENCIES
5843 limit l_max_fetches;
5844 IF L_party_ID.COUNT = 0 THEN
5845 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_cu_deln_dtls ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
5846 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
5847 EXIT;
5848 ELSE
5849
5850 forall i IN L_party_ID.FIRST .. L_party_ID.LAST
5851 UPDATE IEX_DLN_UWQ_SUMMARY
5852 SET PENDING_DELINQUENCIES = L_PENDING_DELINQUENCIES(i),
5853 COMPLETE_DELINQUENCIES = L_COMPLETE_DELINQUENCIES(i),
5854 ACTIVE_DELINQUENCIES = L_ACTIVE_DELINQUENCIES(i),
5855 LAST_UPDATE_DATE=sysdate,
5856 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
5857 WHERE
5858 party_ID = L_party_ID(i)
5859 and org_id= L_ORG_ID(i);
5860 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_cu_deln_dtls updated ' || L_party_ID.count || ' rows ');
5861 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
5862 END IF;
5863 END LOOP;
5864 IF C_cu_DELN_DTLS % ISOPEN THEN
5865 CLOSE C_cu_DELN_DTLS;
5866 END IF;
5867
5868 EXCEPTION WHEN OTHERS THEN
5869 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Delinquency update received' || SQLERRM);
5870 END;
5871
5872 BEGIN
5873 OPEN C_cu_PRO_SUMM;
5874 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_cu_pro_summ cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
5875 L_party_ID.delete; L_ORG_ID.delete;
5876 L_ACTIVE_PROMISES.delete;
5877 L_COMPLETE_PROMISES.delete;
5878 L_PENDING_PROMISES.delete;
5879
5880 LOOP
5881 FETCH C_cu_PRO_SUMM bulk collect
5882 INTO
5883 L_party_ID, L_ORG_ID,
5884 L_PENDING_PROMISES,
5885 L_COMPLETE_PROMISES,
5886 L_ACTIVE_PROMISES
5887 limit l_max_fetches;
5888 IF L_party_ID.COUNT = 0 THEN
5889
5890 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_cu_pro_summ ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
5891 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
5892 EXIT;
5893
5894 ELSE
5895
5896 forall i IN L_party_ID.FIRST .. L_party_ID.LAST
5897 UPDATE IEX_DLN_UWQ_SUMMARY
5898 SET ACTIVE_PROMISES = L_ACTIVE_PROMISES(i),
5899 COMPLETE_PROMISES = L_COMPLETE_PROMISES(i),
5900 PENDING_PROMISES = L_PENDING_PROMISES(i),
5901 LAST_UPDATE_DATE=sysdate,
5902 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
5903 WHERE
5904 party_ID = L_party_ID(i)
5905 and org_id= L_ORG_ID(i);
5906 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_cu_pro_summ updated ' || L_party_ID.count || ' rows ');
5907 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
5908
5909
5910 END IF;
5911 END LOOP;
5912
5913 IF C_cu_PRO_SUMM % ISOPEN THEN
5914 CLOSE C_cu_PRO_SUMM;
5915 END IF;
5916
5917 EXCEPTION WHEN OTHERS THEN
5918 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Promise update received' || SQLERRM);
5919 END;
5920 end if; --if l_enable_work_queue = 'Y' then
5921
5922 BEGIN
5923 OPEN C_cu_LAST_PAYMENT_DTLS;
5924 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open C_cu_LAST_PAYMENT_DTLS cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
5925 L_party_ID.delete; L_ORG_ID.delete;
5926 L_LAST_PAYMENT_AMOUNT.delete;
5927 L_LAST_PAYMENT_AMOUNT_CURR.delete;
5928 L_LAST_PAYMENT_NUMBER.delete;
5929
5930 LOOP
5931 FETCH C_cu_LAST_PAYMENT_DTLS bulk collect
5932 INTO
5933 L_party_ID, L_ORG_ID,
5934 L_LAST_PAYMENT_AMOUNT,
5935 L_LAST_PAYMENT_AMOUNT_CURR,
5936 L_LAST_PAYMENT_NUMBER
5937 limit l_max_fetches;
5938 IF L_party_ID.COUNT = 0 THEN
5939
5940 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_cu_last_payment_dtls_ ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
5941 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
5942 EXIT;
5943
5944 ELSE
5945
5946 forall i IN L_party_ID.FIRST .. L_party_ID.LAST
5947 UPDATE IEX_DLN_UWQ_SUMMARY
5948 SET LAST_PAYMENT_AMOUNT = L_LAST_PAYMENT_AMOUNT(i), -- Bug 14226230 bibeura
5949 -- LAST_PAYMENT_AMOUNT = gl_currency_api.convert_amount_sql(L_LAST_PAYMENT_AMOUNT_CURR(i), CURRENCY,
5950 -- sysdate,iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), L_LAST_PAYMENT_AMOUNT(i)),
5951 LAST_PAYMENT_AMOUNT_CURR = L_LAST_PAYMENT_AMOUNT_CURR(i),
5952 LAST_PAYMENT_NUMBER = L_LAST_PAYMENT_NUMBER(i),
5953 LAST_UPDATE_DATE=sysdate,
5954 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
5955 WHERE
5956 party_ID = L_party_ID(i)
5957 and org_id= L_ORG_ID(i);
5958 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' C_cu_LAST_PAYMENT_dtls updated ' || L_LAST_PAYMENT_AMOUNT.count || ' rows ');
5959 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
5960
5961
5962 END IF;
5963 END LOOP;
5964 IF C_cu_LAST_PAYMENT_DTLS % ISOPEN THEN
5965 CLOSE C_cu_LAST_PAYMENT_DTLS;
5966 END IF;
5967
5968 EXCEPTION WHEN OTHERS THEN
5969 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Last payment amount update received' || SQLERRM);
5970 END;
5971
5972 BEGIN
5973 OPEN C_cu_BANKRUPTCIES;
5974 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open C_cu_BANKRUPTCIES cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
5975 L_PARTY_ID.delete;L_ORG_ID.delete;
5976 L_NUMBER_OF_BANKRUPTCIES.delete;
5977
5978 LOOP
5979 FETCH C_cu_BANKRUPTCIES bulk collect
5980 INTO
5981 L_PARTY_ID, L_ORG_ID,
5982 L_NUMBER_OF_BANKRUPTCIES
5983 limit l_max_fetches;
5984 IF L_PARTY_ID.COUNT = 0 THEN
5985
5986 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: C_cu_BANKRUPTCIES ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
5987 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
5988 EXIT;
5989
5990 ELSE
5991
5992 forall i IN L_PARTY_ID.FIRST .. L_PARTY_ID.LAST
5993 UPDATE IEX_DLN_UWQ_SUMMARY
5994 SET NUMBER_OF_BANKRUPTCIES = L_NUMBER_OF_BANKRUPTCIES(i),
5995 LAST_UPDATE_DATE=sysdate,
5996 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
5997 WHERE
5998 PARTY_ID = L_PARTY_ID(i)
5999 and org_id= L_ORG_ID(i);
6000 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' C_cu_BANKRUPTCIES updated ' || L_PARTY_ID.count || ' rows ');
6001 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
6002
6003
6004 END IF;
6005 END LOOP;
6006 IF C_cu_BANKRUPTCIES % ISOPEN THEN
6007 CLOSE C_cu_BANKRUPTCIES;
6008 END IF;
6009
6010 EXCEPTION WHEN OTHERS THEN
6011 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Bankruptcy update received' || SQLERRM);
6012 END;
6013 COMMIT;
6014 LogMessage(FND_LOG.LEVEL_STATEMENT,'Commited');
6015
6016 BEGIN
6017 OPEN C_cu_SCORE;
6018 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_cu_score cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6019 L_party_ID.delete;
6020 L_SCORE.delete;
6021 L_SCORE_ID.delete;
6022 L_SCORE_NAME.delete;
6023
6024 LOOP
6025 FETCH C_cu_SCORE bulk collect
6026 INTO
6027 L_party_ID,
6028 L_SCORE,
6029 l_score_id,
6030 l_score_name
6031 limit l_max_fetches;
6032 IF L_party_ID.COUNT = 0 THEN
6033
6034 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_cu_score ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6035 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
6036 EXIT;
6037
6038 ELSE
6039
6040 forall i IN L_party_ID.FIRST .. L_party_ID.LAST
6041 UPDATE IEX_DLN_UWQ_SUMMARY
6042 SET SCORE = L_SCORE(i),
6043 score_id=l_score_id(i),
6044 score_name=l_score_name(i),
6045 LAST_UPDATE_DATE=sysdate,
6046 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
6047 WHERE
6048 party_ID = L_party_ID(i);
6049 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_cu_score updated ' || L_cust_account_ID.count || ' rows ');
6050 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
6051
6052 END IF;
6053 END LOOP;
6054 IF C_cu_SCORE % ISOPEN THEN
6055 CLOSE C_cu_SCORE;
6056 END IF;
6057
6058 EXCEPTION WHEN OTHERS THEN
6059 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Score update received' || SQLERRM);
6060 END;--end 9597052
6061 end if;
6062 --End Bug 9597052 28-Apr-2010 barathsr
6063 else
6064 CLOSE c_iex_cu_uwq_dt_sum;
6065 --Begin Bug 9597052 28-Apr-2010 barathsr
6066 if p_mode='CP' then
6067 BEGIN--start 9597052
6068 OPEN C_cust_DETAILS_dt;
6069 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open C_cust_DETAILS_dt cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6070 L_PARTY_ID.delete; L_ORG_ID.delete;
6071 L_PARTY_NAME.delete;
6072 L_ACCOUNT_NAME.delete;
6073 L_ACCOUNT_NUMBER.delete;
6074 L_LOCATION.delete;
6075 L_ADDRESS1.delete;
6076 L_CITY.delete;
6077 L_STATE.delete;
6078 L_COUNTY.delete;
6079 L_COUNTRY.delete;
6080 L_PROVINCE.delete;
6081 L_POSTAL_CODE.delete;
6082
6083 LOOP
6084 FETCH C_cust_DETAILS_dt bulk collect
6085 INTO
6086 L_PARTY_ID, L_ORG_ID,
6087 L_PARTY_NAME,
6088 L_ACCOUNT_NAME,
6089 L_ACCOUNT_NUMBER,
6090 L_LOCATION,
6091 L_ADDRESS1,
6092 L_CITY,
6093 L_STATE,
6094 L_COUNTY,
6095 L_COUNTRY,
6096 L_PROVINCE,
6097 L_POSTAL_CODE
6098 limit l_max_fetches;
6099 IF L_party_ID.COUNT = 0 THEN
6100 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: C_cust_DETAILS_dt ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6101 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
6102 EXIT;
6103 ELSE
6104
6105 forall i IN L_party_ID.FIRST .. L_party_ID.LAST
6106 UPDATE IEX_DLN_UWQ_SUMMARY
6107 SET --PARTY_ID = L_PARTY_ID(i),
6108 PARTY_NAME = L_PARTY_NAME(i),
6109 ACCOUNT_NAME = L_ACCOUNT_NAME(i),
6110 ACCOUNT_NUMBER = L_ACCOUNT_NUMBER(i),
6111 LOCATION = L_LOCATION(i),
6112 ADDRESS1 = L_ADDRESS1(i),
6113 CITY = L_CITY(i),
6114 STATE = L_STATE(i),
6115 COUNTY = L_COUNTY(i),
6116 COUNTRY = L_COUNTRY(i),
6117 PROVINCE = L_PROVINCE(i),
6118 POSTAL_CODE = L_POSTAL_CODE(i),
6119 LAST_UPDATE_DATE=sysdate,
6120 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
6121 WHERE
6122 party_id = L_party_id(i)
6123 and org_id= L_ORG_ID(i);
6124 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' C_cust_DETAILS_dt updated ' || L_party_id.count || ' rows ');
6125 FND_FILE.PUT_LINE(FND_FILE.LOG, ' C_cust_DETAILS_dt updated ' || L_party_id.count || ' rows ') ;
6126 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
6127 END IF;
6128 END LOOP;
6129 IF C_cust_DETAILS_dt % ISOPEN THEN
6130 CLOSE C_cust_DETAILS_dt;
6131 END IF;
6132
6133 EXCEPTION WHEN OTHERS THEN
6134 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'customer details update received' || SQLERRM);
6135 END;
6136
6137 BEGIN
6138 OPEN c_cu_contact_point_dt;
6139 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Opened Cursor c_cu_contact_point_dt cursor at time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6140 L_PARTY_ID.delete; L_ORG_ID.delete;
6141 L_PHONE_COUNTRY_CODE.delete;
6142 L_PHONE_AREA_CODE.delete;
6143 L_PHONE_NUMBER.delete;
6144 L_PHONE_EXTENSION.delete;
6145
6146
6147 LOOP
6148 FETCH c_cu_contact_point_dt bulk collect
6149 INTO
6150 L_PARTY_ID, L_ORG_ID,
6151 L_PHONE_COUNTRY_CODE,
6152 L_PHONE_AREA_CODE,
6153 L_PHONE_NUMBER,
6154 L_PHONE_EXTENSION
6155
6156 limit l_max_fetches;
6157 IF L_PARTY_ID.COUNT = 0 THEN
6158
6159 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'c_cu_contact_point_dt Cursor Fetching end time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6160 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
6161 EXIT;
6162
6163 ELSE
6164
6165 forall i IN L_PARTY_ID.FIRST .. L_PARTY_ID.LAST
6166
6167 UPDATE IEX_DLN_UWQ_SUMMARY
6168 SET PHONE_COUNTRY_CODE = L_PHONE_COUNTRY_CODE(i),
6169 PHONE_AREA_CODE = L_PHONE_AREA_CODE(i),
6170 PHONE_NUMBER = L_PHONE_NUMBER(i),
6171 PHONE_EXTENSION = L_PHONE_EXTENSION(i),
6172 last_update_date = SYSDATE,
6173 last_updated_by = FND_GLOBAL.USER_ID
6174 WHERE PARTY_ID = L_PARTY_ID(i)
6175 and org_id= L_ORG_ID(i);
6176 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_cu_contact_point_dt Cursor updated ' ||L_PARTY_ID.count || ' rows ');
6177 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
6178
6179 END IF;
6180 END LOOP;
6181
6182 IF c_cu_contact_point_dt % ISOPEN THEN
6183 CLOSE c_cu_contact_point_dt;
6184 END IF;
6185
6186
6187 EXCEPTION WHEN OTHERS THEN
6188 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' Contact point raised error ' || SQLERRM);
6189 END;
6190
6191 BEGIN
6192 OPEN C_cu_COLLECTOR_PROF_dt;
6193 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open C_cu_COLLECTOR_PROF_dt cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6194 L_RESOURCE_ID.delete;
6195 L_COLLECTOR_RES_TYPE.delete;
6196 L_COLLECTOR_RESOURCE_ID.delete ;
6197 L_COLLECTOR_RESOURCE_NAME.delete;
6198 L_COLLECTOR_ID.delete;
6199 L_RESOURCE_TYPE.delete;
6200 L_PARTY_ID.delete; L_ORG_ID.delete;
6201 -- L_CUST_ACCOUNT_ID.delete;
6202 -- L_SITE_USE_ID.delete;
6203
6204 LOOP
6205 FETCH C_cu_COLLECTOR_PROF_dt bulk collect
6206 INTO
6207 L_COLLECTOR_ID, L_ORG_ID,
6208 L_COLLECTOR_RESOURCE_ID,
6209 L_COLLECTOR_RES_TYPE,
6210 L_COLLECTOR_RESOURCE_NAME,
6211 L_RESOURCE_ID,
6212 L_RESOURCE_TYPE,
6213 L_PARTY_ID
6214 -- L_CUST_ACCOUNT_ID
6215 -- L_SITE_USE_ID
6216 limit l_max_fetches;
6217 IF L_COLLECTOR_RESOURCE_ID.COUNT = 0 THEN
6218
6219 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: C_cu_COLLECTOR_PROF_dt ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6220 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
6221 EXIT;
6222
6223 ELSE
6224
6225 forall i IN L_party_ID.FIRST .. L_party_ID.LAST
6226 UPDATE IEX_DLN_UWQ_SUMMARY
6227 SET COLLECTOR_RESOURCE_ID = L_COLLECTOR_RESOURCE_ID(i),
6228 COLLECTOR_RES_TYPE = L_COLLECTOR_RES_TYPE(i),
6229 collector_resource_name = L_COLLECTOR_RESOURCE_NAME(i),
6230 collector_id = l_collector_id(i),
6231 resource_id=l_resource_id(i),
6232 resource_type=l_resource_type(i),
6233 last_update_date = SYSDATE,
6234 last_updated_by = FND_GLOBAL.USER_ID
6235 WHERE
6236 party_id = L_party_id(i)
6237 and org_id= L_ORG_ID(i);
6238 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' C_cu_COLLECTOR_PROF_dt updated ' || L_COLLECTOR_ID.count || ' rows ');
6239 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
6240
6241 END IF;
6242 END LOOP;
6243 IF C_cu_COLLECTOR_PROF_dt % ISOPEN THEN
6244 CLOSE C_cu_COLLECTOR_PROF_dt;
6245 END IF;
6246
6247 EXCEPTION WHEN OTHERS THEN
6248 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'C_cu_COLLECTOR_PROF_dt update received' || SQLERRM);
6249 END;
6250
6251 BEGIN
6252 OPEN C_cu_ch_coll_dt_sum;
6253 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open C_cu_ch_coll_dt_sum cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6254 L_COLLECTOR_RES_TYPE.delete;
6255 L_COLLECTOR_RESOURCE_ID.delete ;
6256 L_COLLECTOR_ID.delete;
6257 L_party_ID.delete; L_ORG_ID.delete;
6258
6259 LOOP
6260 FETCH C_cu_ch_coll_dt_sum bulk collect
6261 INTO
6262 L_COLLECTOR_RESOURCE_ID,L_ORG_ID,
6263 L_COLLECTOR_RES_TYPE,
6264 L_COLLECTOR_ID,
6265 L_party_ID
6266 limit l_max_fetches;
6267 IF L_COLLECTOR_RESOURCE_ID.COUNT = 0 THEN
6268
6269 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: C_cu_ch_coll_dt_sum ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6270 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
6271 EXIT;
6272
6273 ELSE
6274
6275 forall i IN L_party_ID.FIRST .. L_party_ID.LAST
6276 UPDATE IEX_DLN_UWQ_SUMMARY
6277 SET COLLECTOR_RESOURCE_ID = L_COLLECTOR_RESOURCE_ID(i),
6278 COLLECTOR_RES_TYPE = L_COLLECTOR_RES_TYPE(i),
6279 collector_id = l_collector_id(i),
6280 last_update_date = SYSDATE,
6281 last_updated_by = FND_GLOBAL.USER_ID
6282 WHERE
6283 party_id = L_party_ID(i)
6284 and org_id=L_ORG_ID(i);
6285 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' C_cu_ch_coll_dt_sum updated ' || L_COLLECTOR_ID.count || ' rows ');
6286 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
6287
6288 END IF;
6289 END LOOP;
6290 IF C_cu_ch_coll_dt_sum % ISOPEN THEN
6291 CLOSE C_cu_ch_coll_dt_sum;
6292 END IF;
6293
6294 EXCEPTION WHEN OTHERS THEN
6295 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'C_cu_ch_coll_dt_sum update received' || SQLERRM);
6296 END;
6297
6298
6299 BEGIN
6300 OPEN C_cu_PRO_DTLS_dt;
6301 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_cu_pro_dtls_dt cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6302 L_party_ID.delete;
6303 L_NUMBER_OF_PROMISES.delete;
6304 L_BROKEN_PROMISE_AMOUNT .delete;
6305 L_PROMISE_AMOUNT.delete;L_ORG_ID.delete;
6306
6307 LOOP
6308 FETCH C_cu_PRO_DTLS_dt bulk collect
6309 INTO
6310 L_party_id,L_ORG_ID,
6311 L_NUMBER_OF_PROMISES,
6312 L_BROKEN_PROMISE_AMOUNT,
6313 L_PROMISE_AMOUNT
6314 limit l_max_fetches;
6315 IF L_party_ID.COUNT = 0 THEN
6316
6317 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_cu_pro_dtls_dt ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6318 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
6319 EXIT;
6320
6321 ELSE
6322
6323 forall i IN L_party_ID.FIRST .. L_party_ID.LAST
6324 UPDATE IEX_DLN_UWQ_SUMMARY
6325 SET NUMBER_OF_PROMISES = L_NUMBER_OF_PROMISES(i),
6326 BROKEN_PROMISE_AMOUNT = L_BROKEN_PROMISE_AMOUNT(i),
6327 PROMISE_AMOUNT = L_PROMISE_AMOUNT(i),
6328 LAST_UPDATE_DATE=sysdate,
6329 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
6330 WHERE
6331 party_ID = L_party_ID(i)
6332 and org_id=L_ORG_ID(i);
6333 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_cu_pro_dtls_dt updated ' || L_party_ID.count || ' rows ');
6334 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
6335
6336
6337 END IF;
6338 END LOOP;
6339 IF C_cu_PRO_DTLS_dt % ISOPEN THEN
6340 CLOSE C_cu_PRO_DTLS_dt;
6341 END IF;
6342
6343 EXCEPTION WHEN OTHERS THEN
6344 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Broken Promise update received' || SQLERRM);
6345 END;
6346
6347 BEGIN
6348 OPEN C_cu_DELN_CNT_dt;
6349 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_cu_deln_cnt_dt cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6350 L_party_ID.delete;L_ORG_ID.delete;
6351 L_NUMBER_OF_DELINQUENCIES.delete;
6352 L_PAST_DUE_INV_VALUE.delete;
6353
6354 LOOP
6355 FETCH C_cu_DELN_CNT_dt bulk collect
6356 INTO
6357 L_party_ID,L_ORG_ID,
6358 L_NUMBER_OF_DELINQUENCIES,
6359 L_PAST_DUE_INV_VALUE
6360 limit l_max_fetches;
6361 IF L_party_ID.COUNT = 0 THEN
6362 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_cu_deln_cnt_dt ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6363 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
6364 EXIT;
6365 ELSE
6366
6367 forall i IN L_party_ID.FIRST .. L_party_ID.LAST
6368 UPDATE IEX_DLN_UWQ_SUMMARY
6369 SET NUMBER_OF_DELINQUENCIES = L_NUMBER_OF_DELINQUENCIES(i),
6370 PAST_DUE_INV_VALUE = L_PAST_DUE_INV_VALUE(i),
6371 LAST_UPDATE_DATE=sysdate,
6372 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
6373 WHERE
6374 party_id = L_party_ID(i)
6375 and org_id=L_ORG_ID(i);
6376 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_cu_del_cnt_dt updated ' || L_party_ID.count || ' rows ');
6377 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
6378 END IF;
6379 END LOOP;
6380 IF C_cu_DELN_CNT_dt % ISOPEN THEN
6381 CLOSE C_cu_DELN_CNT_dt;
6382 END IF;
6383
6384 EXCEPTION WHEN OTHERS THEN
6385 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Delinquency update received' || SQLERRM);
6386 END;
6387
6388 if l_enable_work_queue = 'Y' then --update active,pending and complete nodes of delinquency and promise only when the profile 'IEX: Enable Work Queue Statuses' is set to Yes.
6389 BEGIN
6390 OPEN C_cu_DELN_DTLS_dt;
6391 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_cu_deln_dtls_dt cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6392 L_party_ID.delete;L_ORG_ID.delete;
6393 L_PENDING_DELINQUENCIES.delete;
6394 L_COMPLETE_DELINQUENCIES.delete;
6395 L_ACTIVE_DELINQUENCIES.delete;
6396
6397 LOOP
6398 FETCH C_cu_DELN_DTLS_dt bulk collect
6399 INTO
6400 L_party_ID,L_ORG_ID,
6401 L_PENDING_DELINQUENCIES,
6402 L_COMPLETE_DELINQUENCIES,
6403 L_ACTIVE_DELINQUENCIES
6404 limit l_max_fetches;
6405 IF L_party_ID.COUNT = 0 THEN
6406 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_cu_deln_dtls_dt ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6407 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
6408 EXIT;
6409 ELSE
6410
6411 forall i IN L_party_ID.FIRST .. L_party_ID.LAST
6412 UPDATE IEX_DLN_UWQ_SUMMARY
6413 SET PENDING_DELINQUENCIES = L_PENDING_DELINQUENCIES(i),
6414 COMPLETE_DELINQUENCIES = L_COMPLETE_DELINQUENCIES(i),
6415 ACTIVE_DELINQUENCIES = L_ACTIVE_DELINQUENCIES(i) ,
6416 LAST_UPDATE_DATE=sysdate,
6417 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
6418 WHERE
6419 party_ID = L_party_ID(i)
6420 and org_id=L_ORG_ID(i);
6421 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_cu_deln_dtls_dt updated ' || L_party_ID.count || ' rows ');
6422 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
6423 END IF;
6424 END LOOP;
6425 IF C_cu_DELN_DTLS_dt % ISOPEN THEN
6426 CLOSE C_cu_DELN_DTLS_dt;
6427 END IF;
6428
6429 EXCEPTION WHEN OTHERS THEN
6430 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Delinquency update received' || SQLERRM);
6431 END;
6432
6433 BEGIN
6434 OPEN C_cu_PRO_SUMM_dt;
6435 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_cu_pro_summ_dt cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6436 L_party_ID.delete;L_ORG_ID.delete;
6437 L_ACTIVE_PROMISES.delete;
6438 L_COMPLETE_PROMISES.delete;
6439 L_PENDING_PROMISES.delete;
6440
6441 LOOP
6442 FETCH C_cu_PRO_SUMM_dt bulk collect
6443 INTO
6444 L_party_ID,L_ORG_ID,
6445 L_PENDING_PROMISES,
6446 L_COMPLETE_PROMISES,
6447 L_ACTIVE_PROMISES
6448 limit l_max_fetches;
6449 IF L_party_ID.COUNT = 0 THEN
6450
6451 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_cu_pro_summ_dt ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6452 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
6453 EXIT;
6454
6455 ELSE
6456
6457 forall i IN L_party_ID.FIRST .. L_party_ID.LAST
6458 UPDATE IEX_DLN_UWQ_SUMMARY
6459 SET ACTIVE_PROMISES = L_ACTIVE_PROMISES(i),
6460 COMPLETE_PROMISES = L_COMPLETE_PROMISES(i),
6461 PENDING_PROMISES = L_PENDING_PROMISES(i),
6462 LAST_UPDATE_DATE=sysdate,
6463 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
6464 WHERE
6465 party_ID = L_party_ID(i)
6466 and org_id=L_ORG_ID(i);
6467 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_cu_pro_summ_dt updated ' || L_party_ID.count || ' rows ');
6468 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
6469
6470
6471 END IF;
6472 END LOOP;
6473
6474 IF C_cu_PRO_SUMM_dt % ISOPEN THEN
6475 CLOSE C_cu_PRO_SUMM_dt;
6476 END IF;
6477
6478 EXCEPTION WHEN OTHERS THEN
6479 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Promise update received' || SQLERRM);
6480 END;
6481 end if; --if l_enable_work_queue = 'Y' then
6482
6483 BEGIN
6484 OPEN C_cu_LAST_PAYMENT_DTLS_dt;
6485 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open C_cu_LAST_PAYMENT_DTLS_dt cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6486 L_party_ID.delete;L_ORG_ID.delete;
6487 L_LAST_PAYMENT_AMOUNT.delete;
6488 L_LAST_PAYMENT_AMOUNT_CURR.delete;
6489 L_LAST_PAYMENT_NUMBER.delete;
6490
6491 LOOP
6492 FETCH C_cu_LAST_PAYMENT_DTLS_dt bulk collect
6493 INTO
6494 L_party_ID,L_ORG_ID,
6495 L_LAST_PAYMENT_AMOUNT,
6496 L_LAST_PAYMENT_AMOUNT_CURR,
6497 L_LAST_PAYMENT_NUMBER
6498 limit l_max_fetches;
6499 IF L_party_ID.COUNT = 0 THEN
6500
6501 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_cu_last_payment_dtls_dt ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6502 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
6503 EXIT;
6504
6505 ELSE
6506
6507 forall i IN L_party_ID.FIRST .. L_party_ID.LAST
6508 UPDATE IEX_DLN_UWQ_SUMMARY
6509 SET LAST_PAYMENT_AMOUNT = L_LAST_PAYMENT_AMOUNT(i), -- Bug 14226230 bibeura
6510 -- LAST_PAYMENT_AMOUNT = gl_currency_api.convert_amount_sql(L_LAST_PAYMENT_AMOUNT_CURR(i), CURRENCY,
6511 -- sysdate,iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), L_LAST_PAYMENT_AMOUNT(i)),
6512 LAST_PAYMENT_AMOUNT_CURR = L_LAST_PAYMENT_AMOUNT_CURR(i),
6513 LAST_PAYMENT_NUMBER = L_LAST_PAYMENT_NUMBER(i),
6514 LAST_UPDATE_DATE=sysdate,
6515 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
6516 WHERE
6517 party_ID = L_party_ID(i)
6518 and org_id=L_ORG_ID(i);
6519 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' C_cu_LAST_PAYMENT_dtls_dt updated ' || L_LAST_PAYMENT_AMOUNT.count || ' rows ');
6520 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
6521
6522
6523 END IF;
6524 END LOOP;
6525 IF C_cu_LAST_PAYMENT_DTLS_dt % ISOPEN THEN
6526 CLOSE C_cu_LAST_PAYMENT_DTLS_dt;
6527 END IF;
6528
6529 EXCEPTION WHEN OTHERS THEN
6530 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Last payment amount update received' || SQLERRM);
6531 END;
6532
6533 BEGIN
6534 OPEN C_cu_BANKRUPTCIES_dt;
6535 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open C_cu_BANKRUPTCIES_dt cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6536 L_PARTY_ID.delete;L_ORG_ID.delete;
6537 L_NUMBER_OF_BANKRUPTCIES.delete;
6538
6539 LOOP
6540 FETCH C_cu_BANKRUPTCIES_dt bulk collect
6541 INTO
6542 L_PARTY_ID,L_ORG_ID,
6543 L_NUMBER_OF_BANKRUPTCIES
6544 limit l_max_fetches;
6545 IF L_PARTY_ID.COUNT = 0 THEN
6546
6547 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: C_cu_BANKRUPTCIES_dt ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6548 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
6549 EXIT;
6550
6551 ELSE
6552
6553 forall i IN L_PARTY_ID.FIRST .. L_PARTY_ID.LAST
6554 UPDATE IEX_DLN_UWQ_SUMMARY
6555 SET NUMBER_OF_BANKRUPTCIES = L_NUMBER_OF_BANKRUPTCIES(i),
6556 LAST_UPDATE_DATE=sysdate,
6557 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
6558 WHERE
6559 PARTY_ID = L_PARTY_ID(i)
6560 and org_id=L_ORG_ID(i);
6561 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' C_cu_BANKRUPTCIES_dt updated ' || L_PARTY_ID.count || ' rows ');
6562 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
6563
6564
6565 END IF;
6566 END LOOP;
6567 IF C_cu_BANKRUPTCIES_dt % ISOPEN THEN
6568 CLOSE C_cu_BANKRUPTCIES_dt;
6569 END IF;
6570
6571 EXCEPTION WHEN OTHERS THEN
6572 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Bankruptcy update received' || SQLERRM);
6573 END;
6574 COMMIT;
6575 LogMessage(FND_LOG.LEVEL_STATEMENT,'Commited');
6576
6577 BEGIN
6578 OPEN C_cu_SCORE_dt;
6579 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_cu_score_dt cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6580 L_party_ID.delete;
6581 L_SCORE.delete;
6582 L_SCORE_ID.delete;
6583 L_SCORE_NAME.delete;
6584
6585 LOOP
6586 FETCH C_cu_SCORE_dt bulk collect
6587 INTO
6588 L_party_ID,
6589 L_SCORE,
6590 l_score_id,
6591 l_score_name
6592 limit l_max_fetches;
6593 IF L_party_ID.COUNT = 0 THEN
6594
6595 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_cu_score_dt ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6596 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
6597 EXIT;
6598
6599 ELSE
6600
6601 forall i IN L_party_ID.FIRST .. L_party_ID.LAST
6602 UPDATE IEX_DLN_UWQ_SUMMARY
6603 SET SCORE = L_SCORE(i),
6604 score_id=l_score_id(i),
6605 score_name=l_score_name(i),
6606 LAST_UPDATE_DATE=sysdate,
6607 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
6608 WHERE
6609 party_ID = L_party_ID(i);
6610 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_cu_score_dt updated ' || L_cust_account_ID.count || ' rows ');
6611 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
6612
6613 END IF;
6614 END LOOP;
6615 IF C_cu_SCORE_dt % ISOPEN THEN
6616 CLOSE C_cu_SCORE_dt;
6617 END IF;
6618
6619 EXCEPTION WHEN OTHERS THEN
6620 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Score update received' || SQLERRM);
6621 END;--end 9597052
6622 end if;
6623 --End Bug 9597052 28-Apr-2010 barathsr
6624 end if;
6625 ELSIF p_level = 'ACCOUNT' THEN
6626 if (l_from_date is null) then
6627 CLOSE c_iex_acc_uwq_summary;
6628 --Begin Bug 9597052 28-Apr-2010 barathsr
6629 if p_mode='CP' then
6630 BEGIN--start 9597052
6631 OPEN C_acct_DETAILS;
6632 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open C_acct_DETAILS cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6633 L_PARTY_ID.delete;L_ORG_ID.delete;
6634 L_PARTY_NAME.delete;
6635 L_CUST_ACCOUNT_ID.delete;
6636 L_ACCOUNT_NAME.delete;
6637 L_ACCOUNT_NUMBER.delete;
6638 --L_SITE_USE_ID.delete;
6639 L_LOCATION.delete;
6640 L_ADDRESS1.delete;
6641 L_CITY.delete;
6642 L_STATE.delete;
6643 L_COUNTY.delete;
6644 L_COUNTRY.delete;
6645 L_PROVINCE.delete;
6646 L_POSTAL_CODE.delete;
6647
6648 LOOP
6649 FETCH C_acct_DETAILS bulk collect
6650 INTO
6651 L_PARTY_ID,L_ORG_ID,
6652 L_PARTY_NAME,
6653 L_CUST_ACCOUNT_ID,
6654 L_ACCOUNT_NAME,
6655 L_ACCOUNT_NUMBER,
6656 -- L_SITE_USE_ID,
6657 L_LOCATION,
6658 L_ADDRESS1,
6659 L_CITY,
6660 L_STATE,
6661 L_COUNTY,
6662 L_COUNTRY,
6663 L_PROVINCE,
6664 L_POSTAL_CODE
6665 limit l_max_fetches;
6666 IF L_cust_account_ID.COUNT = 0 THEN
6667 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: C_acct_DETAILS ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6668 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
6669 EXIT;
6670 ELSE
6671
6672 forall i IN L_cust_account_ID.FIRST .. L_cust_account_ID.LAST
6673 UPDATE IEX_DLN_UWQ_SUMMARY
6674 SET PARTY_ID = L_PARTY_ID(i),
6675 PARTY_NAME = L_PARTY_NAME(i),
6676 -- CUST_ACCOUNT_ID = L_CUST_ACCOUNT_ID(i),
6677 ACCOUNT_NAME = L_ACCOUNT_NAME(i),
6678 ACCOUNT_NUMBER = L_ACCOUNT_NUMBER(i),
6679 LOCATION = L_LOCATION(i),
6680 ADDRESS1 = L_ADDRESS1(i),
6681 CITY = L_CITY(i),
6682 STATE = L_STATE(i),
6683 COUNTY = L_COUNTY(i),
6684 COUNTRY = L_COUNTRY(i),
6685 PROVINCE = L_PROVINCE(i),
6686 POSTAL_CODE = L_POSTAL_CODE(i),
6687 LAST_UPDATE_DATE=sysdate,
6688 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
6689 WHERE
6690 cust_account_id = L_cust_account_id(i)
6691 and org_id=L_ORG_ID(i);
6692 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' C_acct_DETAILS updated ' || L_cust_account_id.count || ' rows ');
6693 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
6694 END IF;
6695 END LOOP;
6696 IF C_acct_DETAILS % ISOPEN THEN
6697 CLOSE C_acct_DETAILS;
6698 END IF;
6699
6700 EXCEPTION WHEN OTHERS THEN
6701 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'a/c update received' || SQLERRM);
6702 END;
6703
6704 BEGIN
6705 OPEN c_acc_contact_point;
6706 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Opened Cursor c_acc_contact_point cursor at time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6707 L_PARTY_ID.delete;L_ORG_ID.delete;
6708 L_PHONE_COUNTRY_CODE.delete;
6709 L_PHONE_AREA_CODE.delete;
6710 L_PHONE_NUMBER.delete;
6711 L_PHONE_EXTENSION.delete;
6712
6713
6714 LOOP
6715 FETCH c_acc_contact_point bulk collect
6716 INTO
6717 L_PARTY_ID,L_ORG_ID,
6718 L_PHONE_COUNTRY_CODE,
6719 L_PHONE_AREA_CODE,
6720 L_PHONE_NUMBER,
6721 L_PHONE_EXTENSION
6722
6723 limit l_max_fetches;
6724 IF L_PARTY_ID.COUNT = 0 THEN
6725
6726 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'c_acc_contact_point Cursor Fetching end time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6727 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
6728 EXIT;
6729
6730 ELSE
6731
6732 forall i IN L_PARTY_ID.FIRST .. L_PARTY_ID.LAST
6733
6734 UPDATE IEX_DLN_UWQ_SUMMARY
6735 SET PHONE_COUNTRY_CODE = L_PHONE_COUNTRY_CODE(i),
6736 PHONE_AREA_CODE = L_PHONE_AREA_CODE(i),
6737 PHONE_NUMBER = L_PHONE_NUMBER(i),
6738 PHONE_EXTENSION = L_PHONE_EXTENSION(i),
6739 last_update_date = SYSDATE,
6740 last_updated_by = FND_GLOBAL.USER_ID
6741 WHERE PARTY_ID = L_PARTY_ID(i)
6742 and org_id=L_ORG_ID(i);
6743 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_acc_contact_point Cursor updated ' ||L_PARTY_ID.count || ' rows ');
6744 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
6745
6746 END IF;
6747 END LOOP;
6748
6749 IF c_acc_contact_point % ISOPEN THEN
6750 CLOSE c_acc_contact_point;
6751 END IF;
6752
6753
6754 EXCEPTION WHEN OTHERS THEN
6755 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' Contact point raised error ' || SQLERRM);
6756 END;
6757
6758 BEGIN
6759 OPEN C_acc_COLLECTOR_PROF;
6760 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open C_acc_COLLECTOR_PROF cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6761 L_RESOURCE_ID.delete;
6762 L_COLLECTOR_RES_TYPE.delete;
6763 L_COLLECTOR_RESOURCE_ID.delete ;
6764 L_COLLECTOR_RESOURCE_NAME.delete;
6765 L_COLLECTOR_ID.delete;
6766 L_RESOURCE_TYPE.delete;
6767 L_PARTY_ID.delete;L_ORG_ID.delete;
6768 L_CUST_ACCOUNT_ID.delete;
6769 -- L_SITE_USE_ID.delete;
6770
6771 LOOP
6772 FETCH C_acc_COLLECTOR_PROF bulk collect
6773 INTO
6774 L_COLLECTOR_ID,L_ORG_ID,
6775 L_COLLECTOR_RESOURCE_ID,
6776 L_COLLECTOR_RES_TYPE,
6777 L_COLLECTOR_RESOURCE_NAME,
6778 L_RESOURCE_ID,
6779 L_RESOURCE_TYPE,
6780 L_PARTY_ID,
6781 L_CUST_ACCOUNT_ID
6782 -- L_SITE_USE_ID
6783 limit l_max_fetches;
6784 IF L_COLLECTOR_RESOURCE_ID.COUNT = 0 THEN
6785
6786 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: C_acc_COLLECTOR_PROF ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6787 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
6788 EXIT;
6789
6790 ELSE
6791
6792 forall i IN L_cust_account_ID.FIRST .. L_cust_account_ID.LAST
6793 UPDATE IEX_DLN_UWQ_SUMMARY
6794 SET COLLECTOR_RESOURCE_ID = L_COLLECTOR_RESOURCE_ID(i),
6795 COLLECTOR_RES_TYPE = L_COLLECTOR_RES_TYPE(i),
6796 collector_resource_name = L_COLLECTOR_RESOURCE_NAME(i),
6797 collector_id = l_collector_id(i),
6798 resource_id=l_resource_id(i),
6799 resource_type=l_resource_type(i),
6800 last_update_date = SYSDATE,
6801 last_updated_by = FND_GLOBAL.USER_ID
6802 WHERE
6803 cust_account_id = L_cust_account_id(i)
6804 and org_id=L_ORG_ID(i);
6805 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' C_acc_COLLECTOR_PROF updated ' || L_COLLECTOR_ID.count || ' rows ');
6806 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
6807
6808 END IF;
6809 END LOOP;
6810 IF C_acc_COLLECTOR_PROF % ISOPEN THEN
6811 CLOSE C_acc_COLLECTOR_PROF;
6812 END IF;
6813
6814 EXCEPTION WHEN OTHERS THEN
6815 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'C_acc_COLLECTOR_PROF update received' || SQLERRM);
6816 END;
6817
6818 BEGIN
6819 OPEN C_acc_PRO_DTLS;
6820 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_acc_pro_dtls cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6821 L_cust_account_ID.delete;L_ORG_ID.delete;
6822 L_NUMBER_OF_PROMISES.delete;
6823 L_BROKEN_PROMISE_AMOUNT .delete;
6824 L_PROMISE_AMOUNT.delete;
6825
6826 LOOP
6827 FETCH C_acc_PRO_DTLS bulk collect
6828 INTO
6829 L_cust_account_id,L_ORG_ID,
6830 L_NUMBER_OF_PROMISES,
6831 L_BROKEN_PROMISE_AMOUNT,
6832 L_PROMISE_AMOUNT
6833 limit l_max_fetches;
6834 IF L_cust_account_ID.COUNT = 0 THEN
6835
6836 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_acc_pro_summ ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6837 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
6838 EXIT;
6839
6840 ELSE
6841
6842 forall i IN L_cust_account_ID.FIRST .. L_cust_account_ID.LAST
6843 UPDATE IEX_DLN_UWQ_SUMMARY
6844 SET NUMBER_OF_PROMISES = L_NUMBER_OF_PROMISES(i),
6845 BROKEN_PROMISE_AMOUNT = L_BROKEN_PROMISE_AMOUNT(i),
6846 PROMISE_AMOUNT = L_PROMISE_AMOUNT(i),
6847 LAST_UPDATE_DATE=sysdate,
6848 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
6849 WHERE
6850 cust_account_ID = L_cust_account_ID(i)
6851 and org_id=L_ORG_ID(i);
6852 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_acc_pro_dtls updated ' || L_cust_account_ID.count || ' rows ');
6853 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
6854
6855
6856 END IF;
6857 END LOOP;
6858 IF C_acc_PRO_DTLS % ISOPEN THEN
6859 CLOSE C_acc_PRO_DTLS;
6860 END IF;
6861
6862 EXCEPTION WHEN OTHERS THEN
6863 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Broken Promise update received' || SQLERRM);
6864 END;
6865
6866 BEGIN
6867 OPEN C_acc_DELN_CNT;
6868 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_acc_deln_cnt cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6869 L_cust_account_ID.delete;L_ORG_ID.delete;
6870 L_NUMBER_OF_DELINQUENCIES.delete;
6871 L_PAST_DUE_INV_VALUE.delete;
6872
6873 LOOP
6874 FETCH C_acc_DELN_CNT bulk collect
6875 INTO
6876 L_cust_account_ID,L_ORG_ID,
6877 L_NUMBER_OF_DELINQUENCIES,
6878 L_PAST_DUE_INV_VALUE
6879 limit l_max_fetches;
6880 IF L_cust_account_ID.COUNT = 0 THEN
6881 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_acc_deln_cnt ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6882 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
6883 EXIT;
6884 ELSE
6885
6886 forall i IN L_cust_account_ID.FIRST .. L_cust_account_ID.LAST
6887 UPDATE IEX_DLN_UWQ_SUMMARY
6888 SET NUMBER_OF_DELINQUENCIES = L_NUMBER_OF_DELINQUENCIES(i),
6889 PAST_DUE_INV_VALUE = L_PAST_DUE_INV_VALUE(i),
6890 LAST_UPDATE_DATE=sysdate,
6891 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
6892 WHERE
6893 cust_account_id = L_cust_account_ID(i)
6894 and org_id=L_ORG_ID(i);
6895 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_acc_del_cnt updated ' || L_cust_account_ID.count || ' rows ');
6896 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
6897 END IF;
6898 END LOOP;
6899 IF C_acc_DELN_CNT % ISOPEN THEN
6900 CLOSE C_acc_DELN_CNT;
6901 END IF;
6902
6903 EXCEPTION WHEN OTHERS THEN
6904 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Delinquency update received' || SQLERRM);
6905 END;
6906
6907 if l_enable_work_queue = 'Y' then --update active,pending and complete nodes of delinquency and promise only when the profile 'IEX: Enable Work Queue Statuses' is set to Yes.
6908 BEGIN
6909 OPEN C_acc_DELN_DTLS;
6910 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_acc_deln_dln cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6911 L_cust_account_ID.delete;L_ORG_ID.delete;
6912 L_PENDING_DELINQUENCIES.delete;
6913 L_COMPLETE_DELINQUENCIES.delete;
6914 L_ACTIVE_DELINQUENCIES.delete;
6915
6916 LOOP
6917 FETCH C_acc_DELN_DTLS bulk collect
6918 INTO
6919 L_cust_account_ID,L_ORG_ID,
6920 L_PENDING_DELINQUENCIES,
6921 L_COMPLETE_DELINQUENCIES,
6922 L_ACTIVE_DELINQUENCIES
6923 limit l_max_fetches;
6924 IF L_cust_account_ID.COUNT = 0 THEN
6925 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_acc_deln_dtls ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6926 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
6927 EXIT;
6928 ELSE
6929
6930 forall i IN L_cust_account_ID.FIRST .. L_cust_account_ID.LAST
6931 UPDATE IEX_DLN_UWQ_SUMMARY
6932 SET PENDING_DELINQUENCIES = L_PENDING_DELINQUENCIES(i),
6933 COMPLETE_DELINQUENCIES = L_COMPLETE_DELINQUENCIES(i),
6934 ACTIVE_DELINQUENCIES = L_ACTIVE_DELINQUENCIES(i),
6935 LAST_UPDATE_DATE=sysdate,
6936 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
6937 WHERE
6938 cust_account_ID = L_cust_account_ID(i)
6939 and org_id=L_ORG_ID(i);
6940 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_acc_deln_dtls updated ' || L_cust_account_ID.count || ' rows ');
6941 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
6942 END IF;
6943 END LOOP;
6944 IF C_acc_DELN_DTLS % ISOPEN THEN
6945 CLOSE C_acc_DELN_DTLS;
6946 END IF;
6947
6948 EXCEPTION WHEN OTHERS THEN
6949 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Delinquency update received' || SQLERRM);
6950 END;
6951
6952 BEGIN
6953 OPEN C_acc_PRO_SUMM;
6954 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_acc_pro_summ cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6955 L_cust_account_ID.delete;L_ORG_ID.delete;
6956 L_ACTIVE_PROMISES.delete;
6957 L_COMPLETE_PROMISES.delete;
6958 L_PENDING_PROMISES.delete;
6959
6960 LOOP
6961 FETCH C_acc_PRO_SUMM bulk collect
6962 INTO
6963 L_cust_account_ID,L_ORG_ID,
6964 L_PENDING_PROMISES,
6965 L_COMPLETE_PROMISES,
6966 L_ACTIVE_PROMISES
6967 limit l_max_fetches;
6968 IF L_cust_account_ID.COUNT = 0 THEN
6969
6970 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_acc_pro_summ ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
6971 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
6972 EXIT;
6973
6974 ELSE
6975
6976 forall i IN L_cust_account_ID.FIRST .. L_cust_account_ID.LAST
6977 UPDATE IEX_DLN_UWQ_SUMMARY
6978 SET ACTIVE_PROMISES = L_ACTIVE_PROMISES(i),
6979 COMPLETE_PROMISES = L_COMPLETE_PROMISES(i),
6980 PENDING_PROMISES = L_PENDING_PROMISES(i),
6981 LAST_UPDATE_DATE=sysdate,
6982 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
6983 WHERE
6984 cust_account_ID = L_cust_account_ID(i)
6985 and org_id=L_ORG_ID(i);
6986 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_acc_pro_summ updated ' || L_cust_account_ID.count || ' rows ');
6987 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
6988
6989
6990 END IF;
6991 END LOOP;
6992
6993 IF C_acc_PRO_SUMM % ISOPEN THEN
6994 CLOSE C_acc_PRO_SUMM;
6995 END IF;
6996
6997 EXCEPTION WHEN OTHERS THEN
6998 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Promise update received' || SQLERRM);
6999 END;
7000 end if; --if l_enable_work_queue = 'Y' then
7001
7002 BEGIN
7003 OPEN C_acc_LAST_PAYMENT_DTLS;
7004 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open C_acc_LAST_PAYMENT_DTLS cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7005 L_cust_account_ID.delete;L_ORG_ID.delete;
7006 L_LAST_PAYMENT_AMOUNT.delete;
7007 L_LAST_PAYMENT_AMOUNT_CURR.delete;
7008 L_LAST_PAYMENT_NUMBER.delete;
7009
7010 LOOP
7011 FETCH C_acc_LAST_PAYMENT_DTLS bulk collect
7012 INTO
7013 L_cust_account_ID,L_ORG_ID,
7014 L_LAST_PAYMENT_AMOUNT,
7015 L_LAST_PAYMENT_AMOUNT_CURR,
7016 L_LAST_PAYMENT_NUMBER
7017 limit l_max_fetches;
7018 IF L_cust_account_ID.COUNT = 0 THEN
7019
7020 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_acc_last_payment_dtls_ ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7021 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
7022 EXIT;
7023
7024 ELSE
7025
7026 forall i IN L_cust_account_ID.FIRST .. L_cust_account_ID.LAST
7027 UPDATE IEX_DLN_UWQ_SUMMARY
7028 SET LAST_PAYMENT_AMOUNT = L_LAST_PAYMENT_AMOUNT(i), -- Bug 14226230 bibeura
7029 -- LAST_PAYMENT_AMOUNT = gl_currency_api.convert_amount_sql(L_LAST_PAYMENT_AMOUNT_CURR(i), CURRENCY,
7030 -- sysdate,iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), L_LAST_PAYMENT_AMOUNT(i)),
7031 LAST_PAYMENT_AMOUNT_CURR = L_LAST_PAYMENT_AMOUNT_CURR(i),
7032 LAST_PAYMENT_NUMBER = L_LAST_PAYMENT_NUMBER(i),
7033 LAST_UPDATE_DATE=sysdate,
7034 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
7035 WHERE
7036 cust_account_ID = L_cust_account_ID(i)
7037 and org_id=L_ORG_ID(i);
7038 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' C_acc_LAST_PAYMENT_dtls updated ' || L_LAST_PAYMENT_AMOUNT.count || ' rows ');
7039 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
7040
7041
7042 END IF;
7043 END LOOP;
7044 IF C_acc_LAST_PAYMENT_DTLS % ISOPEN THEN
7045 CLOSE C_acc_LAST_PAYMENT_DTLS;
7046 END IF;
7047
7048 EXCEPTION WHEN OTHERS THEN
7049 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Last payment amount update received' || SQLERRM);
7050 END;
7051
7052 BEGIN
7053 OPEN C_acc_BANKRUPTCIES;
7054 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open C_acc_BANKRUPTCIES cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7055 L_PARTY_ID.delete;L_ORG_ID.delete;
7056 L_NUMBER_OF_BANKRUPTCIES.delete;
7057
7058 LOOP
7059 FETCH C_acc_BANKRUPTCIES bulk collect
7060 INTO
7061 L_PARTY_ID,L_ORG_ID,
7062 L_NUMBER_OF_BANKRUPTCIES
7063 limit l_max_fetches;
7064 IF L_PARTY_ID.COUNT = 0 THEN
7065
7066 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: C_acc_BANKRUPTCIES ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7067 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
7068 EXIT;
7069
7070 ELSE
7071
7072 forall i IN L_PARTY_ID.FIRST .. L_PARTY_ID.LAST
7073 UPDATE IEX_DLN_UWQ_SUMMARY
7074 SET NUMBER_OF_BANKRUPTCIES = L_NUMBER_OF_BANKRUPTCIES(i),
7075 LAST_UPDATE_DATE=sysdate,
7076 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
7077 WHERE
7078 PARTY_ID = L_PARTY_ID(i)
7079 and org_id=L_ORG_ID(i);
7080 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' C_acc_BANKRUPTCIES updated ' || L_PARTY_ID.count || ' rows ');
7081 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
7082
7083
7084 END IF;
7085 END LOOP;
7086 IF C_acc_BANKRUPTCIES % ISOPEN THEN
7087 CLOSE C_acc_BANKRUPTCIES;
7088 END IF;
7089
7090 EXCEPTION WHEN OTHERS THEN
7091 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Bankruptcy update received' || SQLERRM);
7092 END;
7093 COMMIT;
7094 LogMessage(FND_LOG.LEVEL_STATEMENT,'Commited');
7095
7096 BEGIN
7097 OPEN C_acc_SCORE;
7098 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_acc_score cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7099 L_cust_account_ID.delete;
7100 L_SCORE.delete;
7101 L_SCORE_ID.delete;
7102 L_SCORE_NAME.delete;
7103
7104 LOOP
7105 FETCH C_acc_SCORE bulk collect
7106 INTO
7107 L_cust_account_ID,
7108 L_SCORE,
7109 l_score_id,
7110 l_score_name
7111 limit l_max_fetches;
7112 IF L_cust_account_ID.COUNT = 0 THEN
7113
7114 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_acc_score ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7115 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
7116 EXIT;
7117
7118 ELSE
7119
7120 forall i IN L_cust_account_ID.FIRST .. L_cust_account_ID.LAST
7121 UPDATE IEX_DLN_UWQ_SUMMARY
7122 SET SCORE = L_SCORE(i),
7123 score_id=l_score_id(i),
7124 score_name=l_score_name(i),
7125 LAST_UPDATE_DATE=sysdate,
7126 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
7127 WHERE
7128 cust_account_ID = L_cust_account_ID(i);
7129 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_acc_score updated ' || L_cust_account_ID.count || ' rows ');
7130 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
7131
7132 END IF;
7133 END LOOP;
7134 IF C_acc_SCORE % ISOPEN THEN
7135 CLOSE C_acc_SCORE;
7136 END IF;
7137
7138 EXCEPTION WHEN OTHERS THEN
7139 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Score update received' || SQLERRM);
7140 END;--end 9597052
7141 end if;
7142 --End Bug 9597052 28-Apr-2010 barathsr
7143 else
7144 CLOSE c_iex_acc_uwq_dt_sum;
7145 --Begin Bug 9597052 28-Apr-2010 barathsr
7146 if p_mode='CP' then
7147 BEGIN--start 9597052
7148 OPEN C_acct_DETAILS_dt;
7149 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open C_acct_DETAILS_dt cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7150 L_PARTY_ID.delete;L_ORG_ID.delete;
7151 L_PARTY_NAME.delete;
7152 L_CUST_ACCOUNT_ID.delete;
7153 L_ACCOUNT_NAME.delete;
7154 L_ACCOUNT_NUMBER.delete;
7155 --L_SITE_USE_ID.delete;
7156 L_LOCATION.delete;
7157 L_ADDRESS1.delete;
7158 L_CITY.delete;
7159 L_STATE.delete;
7160 L_COUNTY.delete;
7161 L_COUNTRY.delete;
7162 L_PROVINCE.delete;
7163 L_POSTAL_CODE.delete;
7164
7165 LOOP
7166 FETCH C_acct_DETAILS_dt bulk collect
7167 INTO
7168 L_PARTY_ID,L_ORG_ID,
7169 L_PARTY_NAME,
7170 L_CUST_ACCOUNT_ID,
7171 L_ACCOUNT_NAME,
7172 L_ACCOUNT_NUMBER,
7173 -- L_SITE_USE_ID,
7174 L_LOCATION,
7175 L_ADDRESS1,
7176 L_CITY,
7177 L_STATE,
7178 L_COUNTY,
7179 L_COUNTRY,
7180 L_PROVINCE,
7181 L_POSTAL_CODE
7182 limit l_max_fetches;
7183 IF L_cust_account_ID.COUNT = 0 THEN
7184 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: C_acct_DETAILS_dt ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7185 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
7186 EXIT;
7187 ELSE
7188
7189 forall i IN L_cust_account_ID.FIRST .. L_cust_account_ID.LAST
7190 UPDATE IEX_DLN_UWQ_SUMMARY
7191 SET PARTY_ID = L_PARTY_ID(i),
7192 PARTY_NAME = L_PARTY_NAME(i),
7193 -- CUST_ACCOUNT_ID = L_CUST_ACCOUNT_ID(i),
7194 ACCOUNT_NAME = L_ACCOUNT_NAME(i),
7195 ACCOUNT_NUMBER = L_ACCOUNT_NUMBER(i),
7196 LOCATION = L_LOCATION(i),
7197 ADDRESS1 = L_ADDRESS1(i),
7198 CITY = L_CITY(i),
7199 STATE = L_STATE(i),
7200 COUNTY = L_COUNTY(i),
7201 COUNTRY = L_COUNTRY(i),
7202 PROVINCE = L_PROVINCE(i),
7203 POSTAL_CODE = L_POSTAL_CODE(i),
7204 LAST_UPDATE_DATE=sysdate,
7205 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
7206 WHERE
7207 cust_account_id = L_cust_account_id(i)
7208 and org_id=L_ORG_ID(i);
7209 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' C_acct_DETAILS_dt updated ' || L_cust_account_id.count || ' rows ');
7210 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
7211 END IF;
7212 END LOOP;
7213 IF C_acct_DETAILS_dt % ISOPEN THEN
7214 CLOSE C_acct_DETAILS_dt;
7215 END IF;
7216
7217 EXCEPTION WHEN OTHERS THEN
7218 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'a/c update received' || SQLERRM);
7219 END;
7220
7221 BEGIN
7222 OPEN c_acc_contact_point_dt;
7223 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Opened Cursor c_acc_contact_point_dt cursor at time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7224 L_PARTY_ID.delete;L_ORG_ID.delete;
7225 L_PHONE_COUNTRY_CODE.delete;
7226 L_PHONE_AREA_CODE.delete;
7227 L_PHONE_NUMBER.delete;
7228 L_PHONE_EXTENSION.delete;
7229
7230
7231 LOOP
7232 FETCH c_acc_contact_point_dt bulk collect
7233 INTO
7234 L_PARTY_ID,L_ORG_ID,
7235 L_PHONE_COUNTRY_CODE,
7236 L_PHONE_AREA_CODE,
7237 L_PHONE_NUMBER,
7238 L_PHONE_EXTENSION
7239
7240 limit l_max_fetches;
7241 IF L_PARTY_ID.COUNT = 0 THEN
7242
7243 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'c_acc_contact_point_dt Cursor Fetching end time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7244 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
7245 EXIT;
7246
7247 ELSE
7248
7249 forall i IN L_PARTY_ID.FIRST .. L_PARTY_ID.LAST
7250
7251 UPDATE IEX_DLN_UWQ_SUMMARY
7252 SET PHONE_COUNTRY_CODE = L_PHONE_COUNTRY_CODE(i),
7253 PHONE_AREA_CODE = L_PHONE_AREA_CODE(i),
7254 PHONE_NUMBER = L_PHONE_NUMBER(i),
7255 PHONE_EXTENSION = L_PHONE_EXTENSION(i),
7256 last_update_date = SYSDATE,
7257 last_updated_by = FND_GLOBAL.USER_ID
7258 WHERE PARTY_ID = L_PARTY_ID(i)
7259 and org_id=L_ORG_ID(i);
7260 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_acc_contact_point_dt Cursor updated ' ||L_PARTY_ID.count || ' rows ');
7261 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
7262
7263 END IF;
7264 END LOOP;
7265
7266 IF c_acc_contact_point_dt % ISOPEN THEN
7267 CLOSE c_acc_contact_point_dt;
7268 END IF;
7269
7270 EXCEPTION WHEN OTHERS THEN
7271 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' Contact point raised error ' || SQLERRM);
7272 END;
7273
7274 BEGIN
7275 OPEN C_acc_COLLECTOR_PROF_dt;
7276 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open C_acc_COLLECTOR_PROF_dt cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7277 L_RESOURCE_ID.delete;
7278 L_COLLECTOR_RES_TYPE.delete;
7279 L_COLLECTOR_RESOURCE_ID.delete ;
7280 L_COLLECTOR_RESOURCE_NAME.delete;
7281 L_COLLECTOR_ID.delete;
7282 L_RESOURCE_TYPE.delete;
7283 L_PARTY_ID.delete;L_ORG_ID.delete;
7284 L_CUST_ACCOUNT_ID.delete;
7285 -- L_SITE_USE_ID.delete;
7286
7287 LOOP
7288 FETCH C_acc_COLLECTOR_PROF_dt bulk collect
7289 INTO
7290 L_COLLECTOR_ID,L_ORG_ID,
7291 L_COLLECTOR_RESOURCE_ID,
7292 L_COLLECTOR_RES_TYPE,
7293 L_COLLECTOR_RESOURCE_NAME,
7294 L_RESOURCE_ID,
7295 L_RESOURCE_TYPE,
7296 L_PARTY_ID,
7297 L_CUST_ACCOUNT_ID
7298 -- L_SITE_USE_ID
7299 limit l_max_fetches;
7300 IF L_COLLECTOR_RESOURCE_ID.COUNT = 0 THEN
7301
7302 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: C_acc_COLLECTOR_PROF_dt ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7303 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
7304 EXIT;
7305
7306 ELSE
7307
7308 forall i IN L_cust_account_ID.FIRST .. L_cust_account_ID.LAST
7309 UPDATE IEX_DLN_UWQ_SUMMARY
7310 SET COLLECTOR_RESOURCE_ID = L_COLLECTOR_RESOURCE_ID(i),
7311 COLLECTOR_RES_TYPE = L_COLLECTOR_RES_TYPE(i),
7312 collector_resource_name = L_COLLECTOR_RESOURCE_NAME(i),
7313 collector_id = l_collector_id(i),
7314 resource_id=l_resource_id(i),
7315 resource_type=l_resource_type(i),
7316 last_update_date = SYSDATE,
7317 last_updated_by = FND_GLOBAL.USER_ID
7318 WHERE
7319 cust_account_id = L_cust_account_id(i)
7320 and org_id=L_ORG_ID(i);
7321 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' C_acc_COLLECTOR_PROF_dt updated ' || L_COLLECTOR_ID.count || ' rows ');
7322 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
7323
7324 END IF;
7325 END LOOP;
7326 IF C_acc_COLLECTOR_PROF_dt % ISOPEN THEN
7327 CLOSE C_acc_COLLECTOR_PROF_dt;
7328 END IF;
7329
7330 EXCEPTION WHEN OTHERS THEN
7331 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'C_acc_COLLECTOR_PROF_dt update received' || SQLERRM);
7332 END;
7333
7334
7335 BEGIN
7336 OPEN C_acc_ch_coll_dt_sum;
7337 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open C_acc_ch_coll_dt_sum cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7338 L_COLLECTOR_RES_TYPE.delete;
7339 L_COLLECTOR_RESOURCE_ID.delete ;
7340 L_COLLECTOR_ID.delete;
7341 L_cust_account_ID.delete;L_ORG_ID.delete;
7342
7343 LOOP
7344 FETCH C_acc_ch_coll_dt_sum bulk collect
7345 INTO
7346 L_COLLECTOR_RESOURCE_ID,L_ORG_ID,
7347 L_COLLECTOR_RES_TYPE,
7348 L_COLLECTOR_ID,
7349 L_cust_account_ID
7350 limit l_max_fetches;
7351 IF L_COLLECTOR_RESOURCE_ID.COUNT = 0 THEN
7352
7353 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: C_acc_ch_coll_dt_sum ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7354 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
7355 EXIT;
7356
7357 ELSE
7358
7359 forall i IN L_cust_account_ID.FIRST .. L_cust_account_ID.LAST
7360 UPDATE IEX_DLN_UWQ_SUMMARY
7361 SET COLLECTOR_RESOURCE_ID = L_COLLECTOR_RESOURCE_ID(i),
7362 COLLECTOR_RES_TYPE = L_COLLECTOR_RES_TYPE(i),
7363 collector_id = l_collector_id(i),
7364 last_update_date = SYSDATE,
7365 last_updated_by = FND_GLOBAL.USER_ID
7366 WHERE
7367 cust_account_ID = L_cust_account_ID(i)
7368 and org_id=L_ORG_ID(i);
7369 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' C_acc_ch_coll_dt_sum updated ' || L_COLLECTOR_ID.count || ' rows ');
7370 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
7371
7372 END IF;
7373 END LOOP;
7374 IF C_acc_ch_coll_dt_sum % ISOPEN THEN
7375 CLOSE C_acc_ch_coll_dt_sum;
7376 END IF;
7377
7378 EXCEPTION WHEN OTHERS THEN
7379 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'C_acc_ch_coll_dt_sum update received' || SQLERRM);
7380 END;
7381
7382
7383 BEGIN
7384 OPEN C_acc_PRO_DTLS_dt;
7385 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_acc_pro_dtls_dt cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7386 L_cust_account_ID.delete;L_ORG_ID.delete;
7387 L_NUMBER_OF_PROMISES.delete;
7388 L_BROKEN_PROMISE_AMOUNT .delete;
7389 L_PROMISE_AMOUNT.delete;
7390
7391 LOOP
7392 FETCH C_acc_PRO_DTLS_dt bulk collect
7393 INTO
7394 L_cust_account_id,L_ORG_ID,
7395 L_NUMBER_OF_PROMISES,
7396 L_BROKEN_PROMISE_AMOUNT,
7397 L_PROMISE_AMOUNT
7398 limit l_max_fetches;
7399 IF L_cust_account_ID.COUNT = 0 THEN
7400
7401 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_acc_pro_dtls_dt ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7402 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
7403 EXIT;
7404
7405 ELSE
7406
7407 forall i IN L_cust_account_ID.FIRST .. L_cust_account_ID.LAST
7408 UPDATE IEX_DLN_UWQ_SUMMARY
7409 SET NUMBER_OF_PROMISES = L_NUMBER_OF_PROMISES(i),
7410 BROKEN_PROMISE_AMOUNT = L_BROKEN_PROMISE_AMOUNT(i),
7411 PROMISE_AMOUNT = L_PROMISE_AMOUNT(i),
7412 LAST_UPDATE_DATE=sysdate,
7413 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
7414 WHERE
7415 cust_account_ID = L_cust_account_ID(i)
7416 and org_id=L_ORG_ID(i);
7417 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_acc_pro_dtls_dt updated ' || L_cust_account_ID.count || ' rows ');
7418 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
7419
7420
7421 END IF;
7422 END LOOP;
7423 IF C_acc_PRO_DTLS_dt % ISOPEN THEN
7424 CLOSE C_acc_PRO_DTLS_dt;
7425 END IF;
7426
7427 EXCEPTION WHEN OTHERS THEN
7428 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Broken Promise update received' || SQLERRM);
7429 END;
7430
7431 BEGIN
7432 OPEN C_acc_DELN_CNT_dt;
7433 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_acc_deln_cnt_dt cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7434 L_cust_account_ID.delete;L_ORG_ID.delete;
7435 L_NUMBER_OF_DELINQUENCIES.delete;
7436 L_PAST_DUE_INV_VALUE.delete;
7437
7438 LOOP
7439 FETCH C_acc_DELN_CNT_dt bulk collect
7440 INTO
7441 L_cust_account_ID,L_ORG_ID,
7442 L_NUMBER_OF_DELINQUENCIES,
7443 L_PAST_DUE_INV_VALUE
7444 limit l_max_fetches;
7445 IF L_cust_account_ID.COUNT = 0 THEN
7446 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_acc_deln_cnt_dt ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7447 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
7448 EXIT;
7449 ELSE
7450
7451 forall i IN L_cust_account_ID.FIRST .. L_cust_account_ID.LAST
7452 UPDATE IEX_DLN_UWQ_SUMMARY
7453 SET NUMBER_OF_DELINQUENCIES = L_NUMBER_OF_DELINQUENCIES(i),
7454 PAST_DUE_INV_VALUE = L_PAST_DUE_INV_VALUE(i),
7455 LAST_UPDATE_DATE=sysdate,
7456 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
7457 WHERE
7458 cust_account_id = L_cust_account_ID(i)
7459 and org_id=L_ORG_ID(i);
7460 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_acc_del_cnt_dt updated ' || L_cust_account_ID.count || ' rows ');
7461 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
7462 END IF;
7463 END LOOP;
7464 IF C_acc_DELN_CNT_dt % ISOPEN THEN
7465 CLOSE C_acc_DELN_CNT_dt;
7466 END IF;
7467
7468 EXCEPTION WHEN OTHERS THEN
7469 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Delinquency update received' || SQLERRM);
7470 END;
7471
7472 if l_enable_work_queue = 'Y' then --update active,pending and complete nodes of delinquency and promise only when the profile 'IEX: Enable Work Queue Statuses' is set to Yes.
7473 BEGIN
7474 OPEN C_acc_DELN_DTLS_dt;
7475 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_acc_deln_dtls_dt cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7476 L_cust_account_ID.delete;L_ORG_ID.delete;
7477 L_PENDING_DELINQUENCIES.delete;
7478 L_COMPLETE_DELINQUENCIES.delete;
7479 L_ACTIVE_DELINQUENCIES.delete;
7480
7481 LOOP
7482 FETCH C_acc_DELN_DTLS_dt bulk collect
7483 INTO
7484 L_cust_account_ID,L_ORG_ID,
7485 L_PENDING_DELINQUENCIES,
7486 L_COMPLETE_DELINQUENCIES,
7487 L_ACTIVE_DELINQUENCIES
7488 limit l_max_fetches;
7489 IF L_cust_account_ID.COUNT = 0 THEN
7490 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_acc_deln_dtls_dt ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7491 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
7492 EXIT;
7493 ELSE
7494
7495 forall i IN L_cust_account_ID.FIRST .. L_cust_account_ID.LAST
7496 UPDATE IEX_DLN_UWQ_SUMMARY
7497 SET PENDING_DELINQUENCIES = L_PENDING_DELINQUENCIES(i),
7498 COMPLETE_DELINQUENCIES = L_COMPLETE_DELINQUENCIES(i),
7499 ACTIVE_DELINQUENCIES = L_ACTIVE_DELINQUENCIES(i),
7500 LAST_UPDATE_DATE=sysdate,
7501 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
7502 WHERE
7503 cust_account_ID = L_cust_account_ID(i)
7504 and org_id=L_ORG_ID(i);
7505 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_acc_deln_dtls_dt updated ' || L_cust_account_ID.count || ' rows ');
7506 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
7507 END IF;
7508 END LOOP;
7509 IF C_acc_DELN_DTLS_dt % ISOPEN THEN
7510 CLOSE C_acc_DELN_DTLS_dt;
7511 END IF;
7512
7513 EXCEPTION WHEN OTHERS THEN
7514 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Delinquency update received' || SQLERRM);
7515 END;
7516
7517 BEGIN
7518 OPEN C_acc_PRO_SUMM_dt;
7519 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_acc_pro_summ_dt cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7520 L_cust_account_ID.delete;L_ORG_ID.delete;
7521 L_ACTIVE_PROMISES.delete;
7522 L_COMPLETE_PROMISES.delete;
7523 L_PENDING_PROMISES.delete;
7524
7525 LOOP
7526 FETCH C_acc_PRO_SUMM_dt bulk collect
7527 INTO
7528 L_cust_account_ID,L_ORG_ID,
7529 L_PENDING_PROMISES,
7530 L_COMPLETE_PROMISES,
7531 L_ACTIVE_PROMISES
7532 limit l_max_fetches;
7533 IF L_cust_account_ID.COUNT = 0 THEN
7534
7535 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_acc_pro_summ_dt ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7536 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
7537 EXIT;
7538
7539 ELSE
7540
7541 forall i IN L_cust_account_ID.FIRST .. L_cust_account_ID.LAST
7542 UPDATE IEX_DLN_UWQ_SUMMARY
7543 SET ACTIVE_PROMISES = L_ACTIVE_PROMISES(i),
7544 COMPLETE_PROMISES = L_COMPLETE_PROMISES(i),
7545 PENDING_PROMISES = L_PENDING_PROMISES(i),
7546 LAST_UPDATE_DATE=sysdate,
7547 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
7548 WHERE
7549 cust_account_ID = L_cust_account_ID(i)
7550 and org_id=L_ORG_ID(i);
7551 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_acc_pro_summ_dt updated ' || L_cust_account_ID.count || ' rows ');
7552 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
7553
7554
7555 END IF;
7556 END LOOP;
7557
7558 IF C_acc_PRO_SUMM_dt % ISOPEN THEN
7559 CLOSE C_acc_PRO_SUMM_dt;
7560 END IF;
7561
7562 EXCEPTION WHEN OTHERS THEN
7563 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Promise update received' || SQLERRM);
7564 END;
7565 end if; --if l_enable_work_queue = 'Y' then
7566
7567 BEGIN
7568 OPEN C_acc_LAST_PAYMENT_DTLS_dt;
7569 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open C_acc_LAST_PAYMENT_DTLS_dt cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7570 L_cust_account_ID.delete;L_ORG_ID.delete;
7571 L_LAST_PAYMENT_AMOUNT.delete;
7572 L_LAST_PAYMENT_AMOUNT_CURR.delete;
7573 L_LAST_PAYMENT_NUMBER.delete;
7574
7575 LOOP
7576 FETCH C_acc_LAST_PAYMENT_DTLS_dt bulk collect
7577 INTO
7578 L_cust_account_ID,L_ORG_ID,
7579 L_LAST_PAYMENT_AMOUNT,
7580 L_LAST_PAYMENT_AMOUNT_CURR,
7581 L_LAST_PAYMENT_NUMBER
7582 limit l_max_fetches;
7583 IF L_cust_account_ID.COUNT = 0 THEN
7584
7585 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_acc_last_payment_dtls_dt ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7586 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
7587 EXIT;
7588
7589 ELSE
7590
7591 forall i IN L_cust_account_ID.FIRST .. L_cust_account_ID.LAST
7592 UPDATE IEX_DLN_UWQ_SUMMARY
7593 SET LAST_PAYMENT_AMOUNT = L_LAST_PAYMENT_AMOUNT(i), -- Bug 14226230 bibeura
7594 --LAST_PAYMENT_AMOUNT = gl_currency_api.convert_amount_sql(L_LAST_PAYMENT_AMOUNT_CURR(i), CURRENCY,
7595 -- sysdate,iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), L_LAST_PAYMENT_AMOUNT(i)),
7596 LAST_PAYMENT_AMOUNT_CURR = L_LAST_PAYMENT_AMOUNT_CURR(i),
7597 LAST_PAYMENT_NUMBER = L_LAST_PAYMENT_NUMBER(i),
7598 LAST_UPDATE_DATE=sysdate,
7599 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
7600 WHERE
7601 cust_account_ID = L_cust_account_ID(i)
7602 and org_id=L_ORG_ID(i);
7603 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' C_acc_LAST_PAYMENT_dtls_dt updated ' || L_LAST_PAYMENT_AMOUNT.count || ' rows ');
7604 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
7605
7606
7607 END IF;
7608 END LOOP;
7609 IF C_acc_LAST_PAYMENT_DTLS_dt % ISOPEN THEN
7610 CLOSE C_acc_LAST_PAYMENT_DTLS_dt;
7611 END IF;
7612
7613 EXCEPTION WHEN OTHERS THEN
7614 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Last payment amount update received' || SQLERRM);
7615 END;
7616
7617 BEGIN
7618 OPEN C_acc_BANKRUPTCIES_dt;
7619 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open C_acc_BANKRUPTCIES_dt cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7620 L_PARTY_ID.delete;L_ORG_ID.delete;
7621 L_NUMBER_OF_BANKRUPTCIES.delete;
7622
7623 LOOP
7624 FETCH C_acc_BANKRUPTCIES_dt bulk collect
7625 INTO
7626 L_PARTY_ID,L_ORG_ID,
7627 L_NUMBER_OF_BANKRUPTCIES
7628 limit l_max_fetches;
7629 IF L_PARTY_ID.COUNT = 0 THEN
7630
7631 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: C_acc_BANKRUPTCIES_dt ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7632 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
7633 EXIT;
7634
7635 ELSE
7636
7637 forall i IN L_PARTY_ID.FIRST .. L_PARTY_ID.LAST
7638 UPDATE IEX_DLN_UWQ_SUMMARY
7639 SET NUMBER_OF_BANKRUPTCIES = L_NUMBER_OF_BANKRUPTCIES(i),
7640 LAST_UPDATE_DATE=sysdate,
7641 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
7642 WHERE
7643 PARTY_ID = L_PARTY_ID(i)
7644 and org_id=L_ORG_ID(i);
7645 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' C_acc_BANKRUPTCIES_dt updated ' || L_PARTY_ID.count || ' rows ');
7646 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
7647
7648
7649 END IF;
7650 END LOOP;
7651 IF C_acc_BANKRUPTCIES_dt % ISOPEN THEN
7652 CLOSE C_acc_BANKRUPTCIES_dt;
7653 END IF;
7654
7655 EXCEPTION WHEN OTHERS THEN
7656 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Bankruptcy update received' || SQLERRM);
7657 END;
7658 COMMIT;
7659 LogMessage(FND_LOG.LEVEL_STATEMENT,'Commited');
7660
7661 BEGIN
7662 OPEN C_acc_SCORE_dt;
7663 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_acc_score_dt cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7664 L_cust_account_ID.delete;
7665 L_SCORE.delete;
7666 L_SCORE_ID.delete;
7667 L_SCORE_NAME.delete;
7668
7669 LOOP
7670 FETCH C_acc_SCORE_dt bulk collect
7671 INTO
7672 L_cust_account_ID,
7673 L_SCORE,
7674 l_score_id,
7675 l_score_name
7676 limit l_max_fetches;
7677 IF L_cust_account_ID.COUNT = 0 THEN
7678
7679 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_acc_score_dt ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7680 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
7681 EXIT;
7682
7683 ELSE
7684
7685 forall i IN L_cust_account_ID.FIRST .. L_cust_account_ID.LAST
7686 UPDATE IEX_DLN_UWQ_SUMMARY
7687 SET SCORE = L_SCORE(i),
7688 score_id=l_score_id(i),
7689 score_name=l_score_name(i),
7690 LAST_UPDATE_DATE=sysdate,
7691 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
7692 WHERE
7693 cust_account_ID = L_cust_account_ID(i);
7694 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_acc_score_dt updated ' || L_cust_account_ID.count || ' rows ');
7695 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
7696
7697 END IF;
7698 END LOOP;
7699 IF C_acc_SCORE_dt % ISOPEN THEN
7700 CLOSE C_acc_SCORE_dt;
7701 END IF;
7702
7703 EXCEPTION WHEN OTHERS THEN
7704 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Score update received' || SQLERRM);
7705 END;--end 9597052
7706 end if;
7707 --End Bug 9597052 28-Apr-2010 barathsr
7708 end if;
7709 ELSIF p_level = 'BILL_TO' THEN
7710 if (l_from_date is null) then
7711 CLOSE c_iex_billto_uwq_summary;
7712 --Begin Bug 9597052 28-Apr-2010 barathsr
7713 if p_mode='CP' then
7714 BEGIN--start 9597052
7715 OPEN C_BILLTO_SITE_DETAILS;
7716 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_site_details cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7717 L_PARTY_ID.delete;
7718 L_PARTY_NAME.delete;
7719 L_CUST_ACCOUNT_ID.delete;
7720 L_ACCOUNT_NAME.delete;
7721 L_ACCOUNT_NUMBER.delete;
7722 L_SITE_USE_ID.delete;
7723 L_LOCATION.delete;
7724 L_ADDRESS1.delete;
7725 L_CITY.delete;
7726 L_STATE.delete;
7727 L_COUNTY.delete;
7728 L_COUNTRY.delete;
7729 L_PROVINCE.delete;
7730 L_POSTAL_CODE.delete;
7731
7732 LOOP
7733 FETCH C_BILLTO_SITE_DETAILS bulk collect
7734 INTO
7735 L_PARTY_ID,
7736 L_PARTY_NAME,
7737 L_CUST_ACCOUNT_ID,
7738 L_ACCOUNT_NAME,
7739 L_ACCOUNT_NUMBER,
7740 L_SITE_USE_ID,
7741 L_LOCATION,
7742 L_ADDRESS1,
7743 L_CITY,
7744 L_STATE,
7745 L_COUNTY,
7746 L_COUNTRY,
7747 L_PROVINCE,
7748 L_POSTAL_CODE
7749 limit l_max_fetches;
7750 IF L_SITE_USE_ID.COUNT = 0 THEN
7751 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: C_BILLTO_SITE_DETAILS ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7752 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
7753 EXIT;
7754 ELSE
7755
7756 forall i IN L_SITE_USE_ID.FIRST .. L_SITE_USE_ID.LAST
7757 UPDATE IEX_DLN_UWQ_SUMMARY
7758 SET PARTY_ID = L_PARTY_ID(i),
7759 PARTY_NAME = L_PARTY_NAME(i),
7760 CUST_ACCOUNT_ID = L_CUST_ACCOUNT_ID(i),
7761 ACCOUNT_NAME = L_ACCOUNT_NAME(i),
7762 ACCOUNT_NUMBER = L_ACCOUNT_NUMBER(i),
7763 LOCATION = L_LOCATION(i),
7764 ADDRESS1 = L_ADDRESS1(i),
7765 CITY = L_CITY(i),
7766 STATE = L_STATE(i),
7767 COUNTY = L_COUNTY(i),
7768 COUNTRY = L_COUNTRY(i),
7769 PROVINCE = L_PROVINCE(i),
7770 POSTAL_CODE = L_POSTAL_CODE(i),
7771 LAST_UPDATE_DATE=sysdate,
7772 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
7773 WHERE
7774 SITE_USE_ID = L_SITE_USE_ID(i);
7775 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' C_BILLTO_SITE_DETAILS updated ' || L_SITE_USE_ID.count || ' rows ');
7776 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
7777 END IF;
7778 END LOOP;
7779 IF C_BILLTO_SITE_DETAILS % ISOPEN THEN
7780 CLOSE C_BILLTO_SITE_DETAILS;
7781 END IF;
7782
7783 EXCEPTION WHEN OTHERS THEN
7784 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Site update received' || SQLERRM);
7785 END;
7786
7787 BEGIN
7788 OPEN c_billto_contact_point;
7789 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Opened Cursor c_billto_contact_point cursor at time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7790 L_PARTY_ID.delete;
7791 L_PHONE_COUNTRY_CODE.delete;
7792 L_PHONE_AREA_CODE.delete;
7793 L_PHONE_NUMBER.delete;
7794 L_PHONE_EXTENSION.delete;
7795
7796
7797 LOOP
7798 FETCH c_billto_contact_point bulk collect
7799 INTO
7800 L_PARTY_ID,
7801 L_PHONE_COUNTRY_CODE,
7802 L_PHONE_AREA_CODE,
7803 L_PHONE_NUMBER,
7804 L_PHONE_EXTENSION
7805
7806 limit l_max_fetches;
7807 IF L_PARTY_ID.COUNT = 0 THEN
7808
7809 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'c_billto_contact_point Cursor Fetching end time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7810 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
7811 EXIT;
7812
7813 ELSE
7814
7815 forall i IN L_PARTY_ID.FIRST .. L_PARTY_ID.LAST
7816
7817 UPDATE IEX_DLN_UWQ_SUMMARY
7818 SET PHONE_COUNTRY_CODE = L_PHONE_COUNTRY_CODE(i),
7819 PHONE_AREA_CODE = L_PHONE_AREA_CODE(i),
7820 PHONE_NUMBER = L_PHONE_NUMBER(i),
7821 PHONE_EXTENSION = L_PHONE_EXTENSION(i),
7822 last_update_date = SYSDATE,
7823 last_updated_by = FND_GLOBAL.USER_ID
7824 WHERE PARTY_ID = L_PARTY_ID(i);
7825 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_contact_point Cursor updated ' ||L_PARTY_ID.count || ' rows ');
7826 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
7827
7828 END IF;
7829 END LOOP;
7830
7831 IF c_billto_contact_point % ISOPEN THEN
7832 CLOSE c_billto_contact_point;
7833 END IF;
7834
7835
7836 EXCEPTION WHEN OTHERS THEN
7837 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' Contact point raised error ' || SQLERRM);
7838 END;
7839
7840 BEGIN
7841 OPEN C_BILLTO_COLLECTOR_PROF;
7842 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open C_BILLTO_COLLECTOR_PROF cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7843 L_RESOURCE_ID.delete;
7844 L_COLLECTOR_RES_TYPE.delete;
7845 L_COLLECTOR_RESOURCE_ID.delete ;
7846 L_COLLECTOR_RESOURCE_NAME.delete;
7847 L_COLLECTOR_ID.delete;
7848 L_RESOURCE_TYPE.delete;
7849 L_PARTY_ID.delete;
7850 L_CUST_ACCOUNT_ID.delete;
7851 L_SITE_USE_ID.delete;
7852
7853 LOOP
7854 FETCH C_BILLTO_COLLECTOR_PROF bulk collect
7855 INTO
7856 L_COLLECTOR_ID,
7857 L_COLLECTOR_RESOURCE_ID,
7858 L_COLLECTOR_RES_TYPE,
7859 L_COLLECTOR_RESOURCE_NAME,
7860 L_RESOURCE_ID,
7861 L_RESOURCE_TYPE,
7862 L_PARTY_ID,
7863 L_CUST_ACCOUNT_ID,
7864 L_SITE_USE_ID
7865 limit l_max_fetches;
7866 IF L_COLLECTOR_RESOURCE_ID.COUNT = 0 THEN
7867
7868 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: C_BILLTO_COLLECTOR_PROF ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7869 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
7870 EXIT;
7871
7872 ELSE
7873
7874 forall i IN L_SITE_USE_ID.FIRST .. L_SITE_USE_ID.LAST
7875 UPDATE IEX_DLN_UWQ_SUMMARY
7876 SET COLLECTOR_RESOURCE_ID = L_COLLECTOR_RESOURCE_ID(i),
7877 COLLECTOR_RES_TYPE = L_COLLECTOR_RES_TYPE(i),
7878 collector_resource_name = L_COLLECTOR_RESOURCE_NAME(i),
7879 collector_id = l_collector_id(i),
7880 resource_id=l_resource_id(i),
7881 resource_type=l_resource_type(i),
7882 last_update_date = SYSDATE,
7883 last_updated_by = FND_GLOBAL.USER_ID
7884 WHERE
7885 SITE_USE_ID = L_SITE_USE_ID(i);
7886 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' C_BILLTO_COLLECTOR_PROF updated ' || L_COLLECTOR_ID.count || ' rows ');
7887 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
7888
7889 END IF;
7890 END LOOP;
7891 IF C_BILLTO_COLLECTOR_PROF % ISOPEN THEN
7892 CLOSE C_BILLTO_COLLECTOR_PROF;
7893 END IF;
7894
7895 EXCEPTION WHEN OTHERS THEN
7896 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'C_COLLECTOR_PROF update received' || SQLERRM);
7897 END;
7898
7899 BEGIN
7900 OPEN C_BILLTO_PRO_DTLS;
7901 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_billto_pro_dtls cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7902 L_SITE_USE_ID.delete;
7903 L_NUMBER_OF_PROMISES.delete;
7904 L_BROKEN_PROMISE_AMOUNT .delete;
7905 L_PROMISE_AMOUNT.delete;
7906
7907 LOOP
7908 FETCH C_BILLTO_PRO_DTLS bulk collect
7909 INTO
7910 L_SITE_USE_ID,
7911 L_NUMBER_OF_PROMISES,
7912 L_BROKEN_PROMISE_AMOUNT,
7913 L_PROMISE_AMOUNT
7914 limit l_max_fetches;
7915 IF L_SITE_USE_ID.COUNT = 0 THEN
7916
7917 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_billto_pro_summ ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7918 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
7919 EXIT;
7920
7921 ELSE
7922
7923 forall i IN L_SITE_USE_ID.FIRST .. L_SITE_USE_ID.LAST
7924 UPDATE IEX_DLN_UWQ_SUMMARY
7925 SET NUMBER_OF_PROMISES = L_NUMBER_OF_PROMISES(i),
7926 BROKEN_PROMISE_AMOUNT = L_BROKEN_PROMISE_AMOUNT(i),
7927 PROMISE_AMOUNT = L_PROMISE_AMOUNT(i),
7928 LAST_UPDATE_DATE=sysdate,
7929 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
7930 WHERE
7931 SITE_USE_ID = L_SITE_USE_ID(i);
7932 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_billto_pro_dtls updated ' || L_SITE_USE_ID.count || ' rows ');
7933 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
7934
7935
7936 END IF;
7937 END LOOP;
7938 IF C_BILLTO_PRO_DTLS % ISOPEN THEN
7939 CLOSE C_BILLTO_PRO_DTLS;
7940 END IF;
7941
7942 EXCEPTION WHEN OTHERS THEN
7943 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Broken Promise update received' || SQLERRM);
7944 END;
7945
7946 BEGIN
7947 OPEN C_BILLTO_DELN_CNT;
7948 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_billto_deln_cnt cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7949 L_SITE_USE_ID.delete;
7950 L_NUMBER_OF_DELINQUENCIES.delete;
7951 L_PAST_DUE_INV_VALUE.delete;
7952
7953 LOOP
7954 FETCH C_BILLTO_DELN_CNT bulk collect
7955 INTO
7956 L_SITE_USE_ID,
7957 L_NUMBER_OF_DELINQUENCIES,
7958 L_PAST_DUE_INV_VALUE
7959 limit l_max_fetches;
7960 IF L_SITE_USE_ID.COUNT = 0 THEN
7961 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_billto_deln_cnt ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7962 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
7963 EXIT;
7964 ELSE
7965
7966 forall i IN L_SITE_USE_ID.FIRST .. L_SITE_USE_ID.LAST
7967 UPDATE IEX_DLN_UWQ_SUMMARY
7968 SET NUMBER_OF_DELINQUENCIES = L_NUMBER_OF_DELINQUENCIES(i),
7969 PAST_DUE_INV_VALUE = L_PAST_DUE_INV_VALUE(i),
7970 LAST_UPDATE_DATE=sysdate,
7971 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
7972 WHERE
7973 SITE_USE_ID = L_SITE_USE_ID(i);
7974 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_billto_del_cnt updated ' || L_SITE_USE_ID.count || ' rows ');
7975 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
7976 END IF;
7977 END LOOP;
7978 IF C_BILLTO_DELN_CNT % ISOPEN THEN
7979 CLOSE C_BILLTO_DELN_CNT;
7980 END IF;
7981
7982 EXCEPTION WHEN OTHERS THEN
7983 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Delinquency update received' || SQLERRM);
7984 END;
7985
7986 if l_enable_work_queue = 'Y' then --update active,pending and complete nodes of delinquency and promise only when the profile 'IEX: Enable Work Queue Statuses' is set to Yes.
7987 BEGIN
7988 OPEN C_BILLTO_DELN_DTLS;
7989 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_billto_deln_dln cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
7990 L_SITE_USE_ID.delete;
7991 L_PENDING_DELINQUENCIES.delete;
7992 L_COMPLETE_DELINQUENCIES.delete;
7993 L_ACTIVE_DELINQUENCIES.delete;
7994
7995 LOOP
7996 FETCH C_BILLTO_DELN_DTLS bulk collect
7997 INTO
7998 L_SITE_USE_ID,
7999 L_PENDING_DELINQUENCIES,
8000 L_COMPLETE_DELINQUENCIES,
8001 L_ACTIVE_DELINQUENCIES
8002 limit l_max_fetches;
8003 IF L_SITE_USE_ID.COUNT = 0 THEN
8004 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_billto_del_dln ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8005 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
8006 EXIT;
8007 ELSE
8008
8009 forall i IN L_SITE_USE_ID.FIRST .. L_SITE_USE_ID.LAST
8010 UPDATE IEX_DLN_UWQ_SUMMARY
8011 SET PENDING_DELINQUENCIES = L_PENDING_DELINQUENCIES(i),
8012 COMPLETE_DELINQUENCIES = L_COMPLETE_DELINQUENCIES(i),
8013 ACTIVE_DELINQUENCIES = L_ACTIVE_DELINQUENCIES(i),
8014 LAST_UPDATE_DATE=sysdate,
8015 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
8016 WHERE
8017 SITE_USE_ID = L_SITE_USE_ID(i);
8018 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_billto_del_dln updated ' || L_SITE_USE_ID.count || ' rows ');
8019 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
8020 END IF;
8021 END LOOP;
8022 IF C_BILLTO_DELN_DTLS % ISOPEN THEN
8023 CLOSE C_BILLTO_DELN_DTLS;
8024 END IF;
8025
8026 EXCEPTION WHEN OTHERS THEN
8027 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Delinquency update received' || SQLERRM);
8028 END;
8029
8030 BEGIN
8031 OPEN C_BILLTO_PRO_SUMM;
8032 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_billto_pro_summ cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8033 L_SITE_USE_ID.delete;
8034 L_ACTIVE_PROMISES.delete;
8035 L_COMPLETE_PROMISES.delete;
8036 L_PENDING_PROMISES.delete;
8037
8038 LOOP
8039 FETCH C_BILLTO_PRO_SUMM bulk collect
8040 INTO
8041 L_SITE_USE_ID,
8042 L_PENDING_PROMISES,
8043 L_COMPLETE_PROMISES,
8044 L_ACTIVE_PROMISES
8045 limit l_max_fetches;
8046 IF L_SITE_USE_ID.COUNT = 0 THEN
8047
8048 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_billto_pro_summ ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8049 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
8050 EXIT;
8051
8052 ELSE
8053
8054 forall i IN L_SITE_USE_ID.FIRST .. L_SITE_USE_ID.LAST
8055 UPDATE IEX_DLN_UWQ_SUMMARY
8056 SET ACTIVE_PROMISES = L_ACTIVE_PROMISES(i),
8057 COMPLETE_PROMISES = L_COMPLETE_PROMISES(i),
8058 PENDING_PROMISES = L_PENDING_PROMISES(i),
8059 LAST_UPDATE_DATE=sysdate,
8060 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
8061 WHERE
8062 SITE_USE_ID = L_SITE_USE_ID(i);
8063 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_billto_pro_summ updated ' || L_SITE_USE_ID.count || ' rows ');
8064 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
8065
8066
8067 END IF;
8068 END LOOP;
8069
8070 IF C_BILLTO_PRO_SUMM % ISOPEN THEN
8071 CLOSE C_BILLTO_PRO_SUMM;
8072 END IF;
8073
8074 EXCEPTION WHEN OTHERS THEN
8075 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Promise update received' || SQLERRM);
8076 END;
8077 end if; --if l_enable_work_queue = 'Y' then
8078
8079 BEGIN
8080 OPEN C_BILLTO_LAST_PAYMENT_DTLS;
8081 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open C_BILLTO_LAST_PAYMENT_DTLS cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8082 L_SITE_USE_ID.delete;
8083 L_LAST_PAYMENT_AMOUNT.delete;
8084 L_LAST_PAYMENT_AMOUNT_CURR.delete;
8085 L_LAST_PAYMENT_NUMBER.delete;
8086
8087 LOOP
8088 FETCH C_BILLTO_LAST_PAYMENT_DTLS bulk collect
8089 INTO
8090 L_SITE_USE_ID,
8091 L_LAST_PAYMENT_AMOUNT,
8092 L_LAST_PAYMENT_AMOUNT_CURR,
8093 L_LAST_PAYMENT_NUMBER
8094 limit l_max_fetches;
8095 IF L_SITE_USE_ID.COUNT = 0 THEN
8096
8097 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_last_payment_amount ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8098 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
8099 EXIT;
8100
8101 ELSE
8102
8103 forall i IN L_SITE_USE_ID.FIRST .. L_SITE_USE_ID.LAST
8104 UPDATE IEX_DLN_UWQ_SUMMARY
8105 SET LAST_PAYMENT_AMOUNT = L_LAST_PAYMENT_AMOUNT(i), -- Bug 14226230 bibeura
8106 --LAST_PAYMENT_AMOUNT = gl_currency_api.convert_amount_sql(L_LAST_PAYMENT_AMOUNT_CURR(i), CURRENCY,
8107 -- sysdate,iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), L_LAST_PAYMENT_AMOUNT(i)),
8108 LAST_PAYMENT_AMOUNT_CURR = L_LAST_PAYMENT_AMOUNT_CURR(i),
8109 LAST_PAYMENT_NUMBER = L_LAST_PAYMENT_NUMBER(i),
8110 LAST_UPDATE_DATE=sysdate,
8111 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
8112 WHERE
8113 SITE_USE_ID = L_SITE_USE_ID(i);
8114 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' C_LAST_PAYMENT_AMOUNT updated ' || L_LAST_PAYMENT_AMOUNT.count || ' rows ');
8115 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
8116
8117
8118 END IF;
8119 END LOOP;
8120 IF C_BILLTO_LAST_PAYMENT_DTLS % ISOPEN THEN
8121 CLOSE C_BILLTO_LAST_PAYMENT_DTLS;
8122 END IF;
8123
8124 EXCEPTION WHEN OTHERS THEN
8125 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Last payment amount update received' || SQLERRM);
8126 END;
8127
8128 BEGIN
8129 OPEN C_BILLTO_BANKRUPTCIES;
8130 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open C_BILLTO_BANKRUPTCIES cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8131 L_PARTY_ID.delete;
8132 L_NUMBER_OF_BANKRUPTCIES.delete;
8133
8134 LOOP
8135 FETCH C_BILLTO_BANKRUPTCIES bulk collect
8136 INTO
8137 L_PARTY_ID,
8138 L_NUMBER_OF_BANKRUPTCIES
8139 limit l_max_fetches;
8140 IF L_PARTY_ID.COUNT = 0 THEN
8141
8142 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: C_BILLTO_BANKRUPTCIES ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8143 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
8144 EXIT;
8145
8146 ELSE
8147
8148 forall i IN L_PARTY_ID.FIRST .. L_PARTY_ID.LAST
8149 UPDATE IEX_DLN_UWQ_SUMMARY
8150 SET NUMBER_OF_BANKRUPTCIES = L_NUMBER_OF_BANKRUPTCIES(i),
8151 LAST_UPDATE_DATE=sysdate,
8152 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
8153 WHERE
8154 PARTY_ID = L_PARTY_ID(i);
8155 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' C_BILLTO_BANKRUPTCIES updated ' || L_PARTY_ID.count || ' rows ');
8156 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
8157
8158
8159 END IF;
8160 END LOOP;
8161 IF C_BILLTO_BANKRUPTCIES % ISOPEN THEN
8162 CLOSE C_BILLTO_BANKRUPTCIES;
8163 END IF;
8164
8165 EXCEPTION WHEN OTHERS THEN
8166 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Bankruptcy update received' || SQLERRM);
8167 END;
8168 COMMIT;
8169 LogMessage(FND_LOG.LEVEL_STATEMENT,'Commited');
8170
8171 BEGIN
8172 OPEN C_BILLTO_SCORE;
8173 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_billto_score cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8174 L_SITE_USE_ID.delete;
8175 L_SCORE.delete;
8176 L_SCORE_ID.delete;
8177 L_SCORE_NAME.delete;
8178
8179 LOOP
8180 FETCH C_BILLTO_SCORE bulk collect
8181 INTO
8182 L_SITE_USE_ID,
8183 L_SCORE,
8184 l_score_id,
8185 l_score_name
8186 limit l_max_fetches;
8187 IF L_SITE_USE_ID.COUNT = 0 THEN
8188
8189 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_billto_score ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8190 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
8191 EXIT;
8192
8193 ELSE
8194
8195 forall i IN L_SITE_USE_ID.FIRST .. L_SITE_USE_ID.LAST
8196 UPDATE IEX_DLN_UWQ_SUMMARY
8197 SET SCORE = L_SCORE(i),
8198 score_id=l_score_id(i),
8199 score_name=l_score_name(i),
8200 LAST_UPDATE_DATE=sysdate,
8201 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
8202 WHERE
8203 SITE_USE_ID = L_SITE_USE_ID(i);
8204 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_billto_score updated ' || L_SITE_USE_ID.count || ' rows ');
8205 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
8206
8207 END IF;
8208 END LOOP;
8209 IF C_BILLTO_SCORE % ISOPEN THEN
8210 CLOSE C_BILLTO_SCORE;
8211 END IF;
8212
8213 EXCEPTION WHEN OTHERS THEN
8214 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Score update received' || SQLERRM);
8215 END;--end 9597052
8216 end if;
8217 --End Bug 9597052 28-Apr-2010 barathsr
8218 else
8219 CLOSE c_iex_billto_uwq_dt_sum;
8220 --Begin Bug 9597052 28-Apr-2010 barathsr
8221 if p_mode='CP' then
8222 BEGIN--start 9597052
8223 OPEN C_BILLTO_SITE_DETAILS_dt;
8224 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_site_details cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8225 L_PARTY_ID.delete;
8226 L_PARTY_NAME.delete;
8227 L_CUST_ACCOUNT_ID.delete;
8228 L_ACCOUNT_NAME.delete;
8229 L_ACCOUNT_NUMBER.delete;
8230 L_SITE_USE_ID.delete;
8231 L_LOCATION.delete;
8232 L_ADDRESS1.delete;
8233 L_CITY.delete;
8234 L_STATE.delete;
8235 L_COUNTY.delete;
8236 L_COUNTRY.delete;
8237 L_PROVINCE.delete;
8238 L_POSTAL_CODE.delete;
8239
8240 LOOP
8241 FETCH C_BILLTO_SITE_DETAILS_dt bulk collect
8242 INTO
8243 L_PARTY_ID,
8244 L_PARTY_NAME,
8245 L_CUST_ACCOUNT_ID,
8246 L_ACCOUNT_NAME,
8247 L_ACCOUNT_NUMBER,
8248 L_SITE_USE_ID,
8249 L_LOCATION,
8250 L_ADDRESS1,
8251 L_CITY,
8252 L_STATE,
8253 L_COUNTY,
8254 L_COUNTRY,
8255 L_PROVINCE,
8256 L_POSTAL_CODE
8257 limit l_max_fetches;
8258 IF L_SITE_USE_ID.COUNT = 0 THEN
8259 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: C_BILLTO_SITE_DETAILS_dt ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8260 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
8261 EXIT;
8262 ELSE
8263
8264 forall i IN L_SITE_USE_ID.FIRST .. L_SITE_USE_ID.LAST
8265 UPDATE IEX_DLN_UWQ_SUMMARY
8266 SET PARTY_ID = L_PARTY_ID(i),
8267 PARTY_NAME = L_PARTY_NAME(i),
8268 CUST_ACCOUNT_ID = L_CUST_ACCOUNT_ID(i),
8269 ACCOUNT_NAME = L_ACCOUNT_NAME(i),
8270 ACCOUNT_NUMBER = L_ACCOUNT_NUMBER(i),
8271 LOCATION = L_LOCATION(i),
8272 ADDRESS1 = L_ADDRESS1(i),
8273 CITY = L_CITY(i),
8274 STATE = L_STATE(i),
8275 COUNTY = L_COUNTY(i),
8276 COUNTRY = L_COUNTRY(i),
8277 PROVINCE = L_PROVINCE(i),
8278 POSTAL_CODE = L_POSTAL_CODE(i),
8279 LAST_UPDATE_DATE=sysdate,
8280 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
8281 WHERE
8282 SITE_USE_ID = L_SITE_USE_ID(i);
8283 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' C_BILLTO_SITE_DETAILS_dt updated ' || L_SITE_USE_ID.count || ' rows ');
8284 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
8285 END IF;
8286 END LOOP;
8287 IF C_BILLTO_SITE_DETAILS_dt % ISOPEN THEN
8288 CLOSE C_BILLTO_SITE_DETAILS_dt;
8289 END IF;
8290
8291 EXCEPTION WHEN OTHERS THEN
8292 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Site update received' || SQLERRM);
8293 END;
8294
8295 BEGIN
8296 OPEN c_billto_contact_point_dt;
8297 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Opened Cursor c_billto_contact_point_dt cursor at time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8298 L_PARTY_ID.delete;
8299 L_PHONE_COUNTRY_CODE.delete;
8300 L_PHONE_AREA_CODE.delete;
8301 L_PHONE_NUMBER.delete;
8302 L_PHONE_EXTENSION.delete;
8303
8304
8305 LOOP
8306 FETCH c_billto_contact_point_dt bulk collect
8307 INTO
8308 L_PARTY_ID,
8309 L_PHONE_COUNTRY_CODE,
8310 L_PHONE_AREA_CODE,
8311 L_PHONE_NUMBER,
8312 L_PHONE_EXTENSION
8313
8314 limit l_max_fetches;
8315 IF L_PARTY_ID.COUNT = 0 THEN
8316
8317 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'c_billto_contact_point_dt Cursor Fetching end time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8318 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
8319 EXIT;
8320
8321 ELSE
8322
8323 forall i IN L_PARTY_ID.FIRST .. L_PARTY_ID.LAST
8324
8325 UPDATE IEX_DLN_UWQ_SUMMARY
8326 SET PHONE_COUNTRY_CODE = L_PHONE_COUNTRY_CODE(i),
8327 PHONE_AREA_CODE = L_PHONE_AREA_CODE(i),
8328 PHONE_NUMBER = L_PHONE_NUMBER(i),
8329 PHONE_EXTENSION = L_PHONE_EXTENSION(i),
8330 last_update_date = SYSDATE,
8331 last_updated_by = FND_GLOBAL.USER_ID
8332 WHERE PARTY_ID = L_PARTY_ID(i);
8333 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_billto_contact_point_dt Cursor updated ' ||L_PARTY_ID.count || ' rows ');
8334 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
8335
8336 END IF;
8337 END LOOP;
8338
8339 IF c_billto_contact_point_dt % ISOPEN THEN
8340 CLOSE c_billto_contact_point_dt;
8341 END IF;
8342
8343 EXCEPTION WHEN OTHERS THEN
8344 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' Contact point raised error ' || SQLERRM);
8345 END;
8346
8347 BEGIN
8348 OPEN C_BILLTO_COLLECTOR_PROF_dt;
8349 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open C_BILLTO_COLLECTOR_PROF_dt cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8350 L_RESOURCE_ID.delete;
8351 L_COLLECTOR_RES_TYPE.delete;
8352 L_COLLECTOR_RESOURCE_ID.delete ;
8353 L_COLLECTOR_RESOURCE_NAME.delete ;
8354 L_COLLECTOR_ID.delete;
8355 L_RESOURCE_TYPE.delete;
8356 L_PARTY_ID.delete;
8357 L_CUST_ACCOUNT_ID.delete;
8358 L_SITE_USE_ID.delete;
8359
8360 LOOP
8361 FETCH C_BILLTO_COLLECTOR_PROF_dt bulk collect
8362 INTO
8363 L_COLLECTOR_ID,
8364 L_COLLECTOR_RESOURCE_ID,
8365 L_COLLECTOR_RES_TYPE,
8366 L_COLLECTOR_RESOURCE_NAME,
8367 L_RESOURCE_ID,
8368 L_RESOURCE_TYPE,
8369 L_PARTY_ID,
8370 L_CUST_ACCOUNT_ID,
8371 L_SITE_USE_ID
8372 limit l_max_fetches;
8373 IF L_COLLECTOR_RESOURCE_ID.COUNT = 0 THEN
8374
8375 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: C_BILLTO_COLLECTOR_PROF_dt ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8376 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
8377 EXIT;
8378
8379 ELSE
8380
8381 forall i IN L_SITE_USE_ID.FIRST .. L_SITE_USE_ID.LAST
8382 UPDATE IEX_DLN_UWQ_SUMMARY
8383 SET COLLECTOR_RESOURCE_ID = L_COLLECTOR_RESOURCE_ID(i),
8384 COLLECTOR_RES_TYPE = L_COLLECTOR_RES_TYPE(i),
8385 COLLECTOR_RESOURCE_NAME = L_COLLECTOR_RESOURCE_NAME(I),
8386 collector_id = l_collector_id(i),
8387 resource_id=l_resource_id(i),
8388 resource_type=l_resource_type(i),
8389 last_update_date = SYSDATE,
8390 last_updated_by = FND_GLOBAL.USER_ID
8391 WHERE
8392 SITE_USE_ID = L_SITE_USE_ID(i);
8393 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' C_BILLTO_COLLECTOR_PROF_dt updated ' || L_COLLECTOR_ID.count || ' rows ');
8394 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
8395
8396 END IF;
8397 END LOOP;
8398 IF C_BILLTO_COLLECTOR_PROF_dt % ISOPEN THEN
8399 CLOSE C_BILLTO_COLLECTOR_PROF_dt;
8400 END IF;
8401
8402 EXCEPTION WHEN OTHERS THEN
8403 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'C_COLLECTOR_PROF update received' || SQLERRM);
8404 END;
8405
8406 BEGIN
8407 OPEN C_BILLTO_ch_coll_dt_sum;
8408 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open C_BILLTO_ch_coll_dt_sum cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8409 L_COLLECTOR_RES_TYPE.delete;
8410 L_COLLECTOR_RESOURCE_ID.delete ;
8411 L_COLLECTOR_ID.delete;
8412 L_SITE_USE_ID.delete;
8413
8414 LOOP
8415 FETCH C_BILLTO_ch_coll_dt_sum bulk collect
8416 INTO
8417 L_COLLECTOR_RESOURCE_ID,
8418 L_COLLECTOR_RES_TYPE,
8419 L_COLLECTOR_ID,
8420 L_SITE_USE_ID
8421 limit l_max_fetches;
8422 IF L_COLLECTOR_RESOURCE_ID.COUNT = 0 THEN
8423
8424 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: C_BILLTO_ch_coll_dt_sum ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8425 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
8426 EXIT;
8427
8428 ELSE
8429
8430 forall i IN L_SITE_USE_ID.FIRST .. L_SITE_USE_ID.LAST
8431 UPDATE IEX_DLN_UWQ_SUMMARY
8432 SET COLLECTOR_RESOURCE_ID = L_COLLECTOR_RESOURCE_ID(i),
8433 COLLECTOR_RES_TYPE = L_COLLECTOR_RES_TYPE(i),
8434 collector_id = l_collector_id(i),
8435 last_update_date = SYSDATE,
8436 last_updated_by = FND_GLOBAL.USER_ID
8437 WHERE
8438 SITE_USE_ID = L_SITE_USE_ID(i);
8439 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' C_BILLTO_ch_coll_dt_sum updated ' || L_COLLECTOR_ID.count || ' rows ');
8440 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
8441
8442 END IF;
8443 END LOOP;
8444 IF C_BILLTO_ch_coll_dt_sum % ISOPEN THEN
8445 CLOSE C_BILLTO_ch_coll_dt_sum;
8446 END IF;
8447
8448 EXCEPTION WHEN OTHERS THEN
8449 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'C_BILLTO_ch_coll_dt_sum update received' || SQLERRM);
8450 END;
8451
8452 BEGIN
8453 OPEN C_BILLTO_PRO_DTLS_dt;
8454 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_billto_pro_dtls_dt cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8455 L_SITE_USE_ID.delete;
8456 L_NUMBER_OF_PROMISES.delete;
8457 L_BROKEN_PROMISE_AMOUNT .delete;
8458 L_PROMISE_AMOUNT.delete;
8459
8460 LOOP
8461 FETCH C_BILLTO_PRO_DTLS_dt bulk collect
8462 INTO
8463 L_SITE_USE_ID,
8464 L_NUMBER_OF_PROMISES,
8465 L_BROKEN_PROMISE_AMOUNT,
8466 L_PROMISE_AMOUNT
8467 limit l_max_fetches;
8468 IF L_SITE_USE_ID.COUNT = 0 THEN
8469
8470 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: C_BILLTO_PRO_DTLS_dt ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8471 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
8472 EXIT;
8473
8474 ELSE
8475
8476 forall i IN L_SITE_USE_ID.FIRST .. L_SITE_USE_ID.LAST
8477 UPDATE IEX_DLN_UWQ_SUMMARY
8478 SET NUMBER_OF_PROMISES = L_NUMBER_OF_PROMISES(i),
8479 BROKEN_PROMISE_AMOUNT = L_BROKEN_PROMISE_AMOUNT(i),
8480 PROMISE_AMOUNT = L_PROMISE_AMOUNT(i),
8481 LAST_UPDATE_DATE=sysdate,
8482 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
8483 WHERE
8484 SITE_USE_ID = L_SITE_USE_ID(i);
8485 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_billto_pro_dtls_dt updated ' || L_SITE_USE_ID.count || ' rows ');
8486 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
8487
8488
8489 END IF;
8490 END LOOP;
8491 IF C_BILLTO_PRO_DTLS_dt % ISOPEN THEN
8492 CLOSE C_BILLTO_PRO_DTLS_dt;
8493 END IF;
8494
8495 EXCEPTION WHEN OTHERS THEN
8496 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Broken Promise update received' || SQLERRM);
8497 END;
8498
8499 BEGIN
8500 OPEN C_BILLTO_DELN_CNT_dt;
8501 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_billto_deln_cnt_dt cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8502 L_SITE_USE_ID.delete;
8503 L_NUMBER_OF_DELINQUENCIES.delete;
8504 L_PAST_DUE_INV_VALUE.delete;
8505
8506 LOOP
8507 FETCH C_BILLTO_DELN_CNT_dt bulk collect
8508 INTO
8509 L_SITE_USE_ID,
8510 L_NUMBER_OF_DELINQUENCIES,
8511 L_PAST_DUE_INV_VALUE
8512 limit l_max_fetches;
8513 IF L_SITE_USE_ID.COUNT = 0 THEN
8514 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_billto_del_cnt_dt ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8515 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
8516 EXIT;
8517 ELSE
8518
8519 forall i IN L_SITE_USE_ID.FIRST .. L_SITE_USE_ID.LAST
8520 UPDATE IEX_DLN_UWQ_SUMMARY
8521 SET NUMBER_OF_DELINQUENCIES = L_NUMBER_OF_DELINQUENCIES(i),
8522 PAST_DUE_INV_VALUE = L_PAST_DUE_INV_VALUE(i),
8523 LAST_UPDATE_DATE=sysdate,
8524 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
8525 WHERE
8526 SITE_USE_ID = L_SITE_USE_ID(i);
8527 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_billto_deln_cnt_dt updated ' || L_SITE_USE_ID.count || ' rows ');
8528 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
8529 END IF;
8530 END LOOP;
8531 IF C_BILLTO_DELN_CNT_dt % ISOPEN THEN
8532 CLOSE C_BILLTO_DELN_CNT_dt;
8533 END IF;
8534
8535 EXCEPTION WHEN OTHERS THEN
8536 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Delinquency update received' || SQLERRM);
8537 END;
8538
8539 if l_enable_work_queue = 'Y' then --update active,pending and complete nodes of delinquency and promise only when the profile 'IEX: Enable Work Queue Statuses' is set to Yes.
8540 BEGIN
8541 OPEN C_BILLTO_DELN_DTLS_dt;
8542 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open C_BILLTO_DELN_DTLS_dt cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8543 L_SITE_USE_ID.delete;
8544 L_PENDING_DELINQUENCIES.delete;
8545 L_COMPLETE_DELINQUENCIES.delete;
8546 L_ACTIVE_DELINQUENCIES.delete;
8547
8548 LOOP
8549 FETCH C_BILLTO_DELN_DTLS_dt bulk collect
8550 INTO
8551 L_SITE_USE_ID,
8552 L_PENDING_DELINQUENCIES,
8553 L_COMPLETE_DELINQUENCIES,
8554 L_ACTIVE_DELINQUENCIES
8555 limit l_max_fetches;
8556 IF L_SITE_USE_ID.COUNT = 0 THEN
8557 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: C_BILLTO_DELN_DTLS_dt ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8558 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
8559 EXIT;
8560 ELSE
8561
8562 forall i IN L_SITE_USE_ID.FIRST .. L_SITE_USE_ID.LAST
8563 UPDATE IEX_DLN_UWQ_SUMMARY
8564 SET PENDING_DELINQUENCIES = L_PENDING_DELINQUENCIES(i),
8565 COMPLETE_DELINQUENCIES = L_COMPLETE_DELINQUENCIES(i),
8566 ACTIVE_DELINQUENCIES = L_ACTIVE_DELINQUENCIES(i),
8567 LAST_UPDATE_DATE=sysdate,
8568 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
8569 WHERE
8570 SITE_USE_ID = L_SITE_USE_ID(i);
8571 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' C_BILLTO_DELN_DTLS_dt ' || L_SITE_USE_ID.count || ' rows ');
8572 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
8573 END IF;
8574 END LOOP;
8575 IF C_BILLTO_DELN_DTLS_dt % ISOPEN THEN
8576 CLOSE C_BILLTO_DELN_DTLS_dt;
8577 END IF;
8578
8579 EXCEPTION WHEN OTHERS THEN
8580 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Delinquency update received' || SQLERRM);
8581 END;
8582
8583 BEGIN
8584 OPEN C_BILLTO_PRO_SUMM_dt;
8585 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open C_BILLTO_PRO_SUMM_dt cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8586 L_SITE_USE_ID.delete;
8587 L_ACTIVE_PROMISES.delete;
8588 L_COMPLETE_PROMISES.delete;
8589 L_PENDING_PROMISES.delete;
8590
8591 LOOP
8592 FETCH C_BILLTO_PRO_SUMM_dt bulk collect
8593 INTO
8594 L_SITE_USE_ID,
8595 L_PENDING_PROMISES,
8596 L_COMPLETE_PROMISES,
8597 L_ACTIVE_PROMISES
8598 limit l_max_fetches;
8599 IF L_SITE_USE_ID.COUNT = 0 THEN
8600
8601 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: C_BILLTO_PRO_SUMM_dt ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8602 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
8603 EXIT;
8604
8605 ELSE
8606
8607 forall i IN L_SITE_USE_ID.FIRST .. L_SITE_USE_ID.LAST
8608 UPDATE IEX_DLN_UWQ_SUMMARY
8609 SET ACTIVE_PROMISES = L_ACTIVE_PROMISES(i),
8610 COMPLETE_PROMISES = L_COMPLETE_PROMISES(i),
8611 PENDING_PROMISES = L_PENDING_PROMISES(i),
8612 LAST_UPDATE_DATE=sysdate,
8613 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
8614 WHERE
8615 SITE_USE_ID = L_SITE_USE_ID(i);
8616 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' C_BILLTO_PRO_SUMM_dt updated ' || L_SITE_USE_ID.count || ' rows ');
8617 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
8618
8619
8620 END IF;
8621 END LOOP;
8622
8623 IF C_BILLTO_PRO_SUMM_dt % ISOPEN THEN
8624 CLOSE C_BILLTO_PRO_SUMM_dt;
8625 END IF;
8626
8627 EXCEPTION WHEN OTHERS THEN
8628 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Promise update received' || SQLERRM);
8629 END;
8630 end if; --if l_enable_work_queue = 'Y' then
8631
8632 BEGIN
8633 OPEN C_BILLTO_LAST_PAYMENT_DTLS_dt;
8634 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open C_BILLTO_LAST_PAYMENT_DTLS_dt cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8635 L_SITE_USE_ID.delete;
8636 L_LAST_PAYMENT_AMOUNT.delete;
8637 L_LAST_PAYMENT_AMOUNT_CURR.delete;
8638 L_LAST_PAYMENT_NUMBER.delete;
8639
8640 LOOP
8641 FETCH C_BILLTO_LAST_PAYMENT_DTLS_dt bulk collect
8642 INTO
8643 L_SITE_USE_ID,
8644 L_LAST_PAYMENT_AMOUNT,
8645 L_LAST_PAYMENT_AMOUNT_CURR,
8646 L_LAST_PAYMENT_NUMBER
8647 limit l_max_fetches;
8648 IF L_SITE_USE_ID.COUNT = 0 THEN
8649
8650 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_last_payment_amount_dtls_dt ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8651 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
8652 EXIT;
8653
8654 ELSE
8655
8656 forall i IN L_SITE_USE_ID.FIRST .. L_SITE_USE_ID.LAST
8657 UPDATE IEX_DLN_UWQ_SUMMARY
8658 SET LAST_PAYMENT_AMOUNT = L_LAST_PAYMENT_AMOUNT(i), -- Bug 14226230 bibeura
8659 --LAST_PAYMENT_AMOUNT = gl_currency_api.convert_amount_sql(L_LAST_PAYMENT_AMOUNT_CURR(i), CURRENCY,
8660 -- sysdate,iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), L_LAST_PAYMENT_AMOUNT(i)),
8661 LAST_PAYMENT_AMOUNT_CURR = L_LAST_PAYMENT_AMOUNT_CURR(i),
8662 LAST_PAYMENT_NUMBER = L_LAST_PAYMENT_NUMBER(i),
8663 LAST_UPDATE_DATE=sysdate,
8664 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
8665 WHERE
8666 SITE_USE_ID = L_SITE_USE_ID(i);
8667 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' C_LAST_PAYMENT_dtls_dt updated ' || L_LAST_PAYMENT_AMOUNT.count || ' rows ');
8668 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
8669
8670
8671 END IF;
8672 END LOOP;
8673 IF C_BILLTO_LAST_PAYMENT_DTLS_dt % ISOPEN THEN
8674 CLOSE C_BILLTO_LAST_PAYMENT_DTLS_dt;
8675 END IF;
8676
8677 EXCEPTION WHEN OTHERS THEN
8678 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Last payment amount update received' || SQLERRM);
8679 END;
8680
8681 BEGIN
8682 OPEN C_BILLTO_BANKRUPTCIES_dt;
8683 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open C_BILLTO_BANKRUPTCIES_dt cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8684 L_PARTY_ID.delete;
8685 L_NUMBER_OF_BANKRUPTCIES.delete;
8686
8687 LOOP
8688 FETCH C_BILLTO_BANKRUPTCIES_dt bulk collect
8689 INTO
8690 L_PARTY_ID,
8691 L_NUMBER_OF_BANKRUPTCIES
8692 limit l_max_fetches;
8693 IF L_PARTY_ID.COUNT = 0 THEN
8694
8695 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: C_BILLTO_BANKRUPTCIES_dt ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8696 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
8697 EXIT;
8698
8699 ELSE
8700
8701 forall i IN L_PARTY_ID.FIRST .. L_PARTY_ID.LAST
8702 UPDATE IEX_DLN_UWQ_SUMMARY
8703 SET NUMBER_OF_BANKRUPTCIES = L_NUMBER_OF_BANKRUPTCIES(i),
8704 LAST_UPDATE_DATE=sysdate,
8705 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
8706 WHERE
8707 PARTY_ID = L_PARTY_ID(i);
8708 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' C_BILLTO_BANKRUPTCIES_dt updated ' || L_PARTY_ID.count || ' rows ');
8709 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
8710
8711
8712 END IF;
8713 END LOOP;
8714 IF C_BILLTO_BANKRUPTCIES_dt % ISOPEN THEN
8715 CLOSE C_BILLTO_BANKRUPTCIES_dt;
8716 END IF;
8717
8718 EXCEPTION WHEN OTHERS THEN
8719 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Bankruptcy update received' || SQLERRM);
8720 END;
8721 COMMIT;
8722 LogMessage(FND_LOG.LEVEL_STATEMENT,'Commited');
8723
8724 BEGIN
8725 OPEN C_BILLTO_SCORE_dt;
8726 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_billto_score_dt cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8727 L_SITE_USE_ID.delete;
8728 L_SCORE.delete;
8729 L_SCORE_ID.delete;
8730 L_SCORE_NAME.delete;
8731
8732 LOOP
8733 FETCH C_BILLTO_SCORE_dt bulk collect
8734 INTO
8735 L_SITE_USE_ID,
8736 L_SCORE,
8737 l_score_id,
8738 l_score_name
8739 limit l_max_fetches;
8740 IF L_SITE_USE_ID.COUNT = 0 THEN
8741
8742 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_billto_score_dt ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8743 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
8744 EXIT;
8745
8746 ELSE
8747
8748 forall i IN L_SITE_USE_ID.FIRST .. L_SITE_USE_ID.LAST
8749 UPDATE IEX_DLN_UWQ_SUMMARY
8750 SET SCORE = L_SCORE(i),
8751 score_id=l_score_id(i),
8752 score_name=l_score_name(i),
8753 LAST_UPDATE_DATE=sysdate,
8754 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
8755 WHERE
8756 SITE_USE_ID = L_SITE_USE_ID(i);
8757 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_billto_score_dt updated ' || L_SITE_USE_ID.count || ' rows ');
8758 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
8759
8760 END IF;
8761 END LOOP;
8762 IF C_BILLTO_SCORE_dt % ISOPEN THEN
8763 CLOSE C_BILLTO_SCORE_dt;
8764 END IF;
8765
8766 EXCEPTION WHEN OTHERS THEN
8767 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Score update received' || SQLERRM);
8768 END;--end 9597052
8769 end if;
8770 --End Bug 9597052 28-Apr-2010 barathsr
8771 end if;
8772 END IF;
8773
8774 -- End - Andre Araujo - 10/20/06 - Added dynamic sql
8775 END IF;
8776
8777 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
8778 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Total inserted ' || l_total || ' rows');
8779 -- return;
8780 -- exit;
8781 If (P_mode = 'CP') THEN --Bug5691098
8782 -- 2. Fetching and updating table with stategy info
8783 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' ');
8784 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' Fetching and updating table with strategy info...');
8785 l_total := 0;
8786 l_count := 0;
8787 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Start open cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8788 if p_level='CUSTOMER' then
8789 OPEN c_strategy_summary_cust(p_level, l_from_date,p_org_id);
8790 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End open cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8791 LOOP
8792 l_count := l_count +1;
8793 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'----------');
8794 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Bulk ' || l_count);
8795
8796 L_JTF_OBJECT_ID.delete;
8797 L_WORK_ITEM_ID.delete;
8798 L_SCHEDULE_START.delete;
8799 L_SCHEDULE_END.delete;
8800 L_WORK_TYPE.delete;
8801 L_CATEGORY_TYPE.delete;
8802 L_PRIORITY_TYPE.delete;
8803 L_wkitem_RESOURCE_ID.delete; --schekuri
8804 L_STRATEGY_ID.delete;
8805 L_STRATEGY_TEMPLATE_ID.delete;
8806 L_WORK_ITEM_TEMPLATE_ID.delete;
8807 L_STATUS_CODE.delete;
8808 L_STR_STATUS.delete; -- Added for bug#7416344 by PNAVEENK on 2-4-2009
8809 L_START_TIME.delete;
8810 L_END_TIME.delete;
8811 L_WORK_ITEM_ORDER.delete;
8812 L_ESCALATED_YN.delete; --Added for bug#6981126 by schekuri on 27-Jun-2008
8813
8814 LogMessage(FND_LOG.LEVEL_STATEMENT,'Inited all arrays');
8815
8816 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Start fetching time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8817 FETCH c_strategy_summary_cust bulk collect
8818 INTO
8819 L_JTF_OBJECT_ID,
8820 L_WORK_ITEM_ID,
8821 L_SCHEDULE_START,
8822 L_SCHEDULE_END,
8823 L_CATEGORY_TYPE,
8824 L_WORK_TYPE,
8825 L_PRIORITY_TYPE,
8826 L_WKITEM_RESOURCE_ID, --schekuri
8827 L_STRATEGY_ID,
8828 L_STRATEGY_TEMPLATE_ID,
8829 L_WORK_ITEM_TEMPLATE_ID,
8830 L_STATUS_CODE,
8831 L_STR_STATUS, -- Added for bug#7416344 by PNAVEENK on 2-4-2009
8832 L_START_TIME,
8833 L_END_TIME,
8834 L_WORK_ITEM_ORDER,
8835 L_ESCALATED_YN
8836 limit l_max_fetches;
8837
8838 IF L_JTF_OBJECT_ID.COUNT = 0 THEN
8839
8840 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8841 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
8842 CLOSE c_strategy_summary_cust;
8843 EXIT;
8844
8845 ELSE
8846
8847 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8848 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Fetched ' || L_JTF_OBJECT_ID.COUNT || ' rows.');
8849 LogMessage(FND_LOG.LEVEL_STATEMENT,' Updating table...');
8850 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Start updating time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8851
8852 -- IF p_level = 'CUSTOMER' THEN
8853
8854 forall i IN L_JTF_OBJECT_ID.FIRST .. L_JTF_OBJECT_ID.LAST
8855 UPDATE IEX_DLN_UWQ_SUMMARY
8856 SET WORK_ITEM_ID = L_WORK_ITEM_ID(i),
8857 SCHEDULE_START = L_SCHEDULE_START(i),
8858 SCHEDULE_END = L_SCHEDULE_END(i),
8859 WORK_TYPE = L_WORK_TYPE(i),
8860 CATEGORY_TYPE = L_CATEGORY_TYPE(i),
8861 PRIORITY_TYPE = L_PRIORITY_TYPE(i),
8862 WKITEM_RESOURCE_ID = L_WKITEM_RESOURCE_ID(i), --schekuri
8863 STRATEGY_ID = L_STRATEGY_ID(i),
8864 STRATEGY_TEMPLATE_ID = L_STRATEGY_TEMPLATE_ID(i),
8865 WORK_ITEM_TEMPLATE_ID = L_WORK_ITEM_TEMPLATE_ID(i),
8866 STATUS_CODE = L_STATUS_CODE(i),
8867 STR_STATUS = L_STR_STATUS(i), -- Added for bug#7416344 by PNAVEENK on 2-4-2009
8868 START_TIME = L_START_TIME(i),
8869 END_TIME = L_END_TIME(i),
8870 WORK_ITEM_ORDER = L_WORK_ITEM_ORDER(i),
8871 WKITEM_ESCALATED_YN = L_ESCALATED_YN(i),
8872 LAST_UPDATE_DATE=sysdate,
8873 LAST_UPDATED_BY=FND_GLOBAL.USER_ID--Added for bug#6981126 by schekuri on 27-Jun-2008
8874 WHERE PARTY_ID = L_JTF_OBJECT_ID(i);
8875 end if;
8876 end loop;
8877
8878 ELSIF p_level = 'ACCOUNT' THEN
8879 OPEN c_strategy_summary_acct(p_level, l_from_date,p_org_id);
8880 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End open cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8881 LOOP
8882 l_count := l_count +1;
8883 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'----------');
8884 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Bulk ' || l_count);
8885
8886 L_JTF_OBJECT_ID.delete;
8887 L_WORK_ITEM_ID.delete;
8888 L_SCHEDULE_START.delete;
8889 L_SCHEDULE_END.delete;
8890 L_WORK_TYPE.delete;
8891 L_CATEGORY_TYPE.delete;
8892 L_PRIORITY_TYPE.delete;
8893 L_wkitem_RESOURCE_ID.delete; --schekuri
8894 L_STRATEGY_ID.delete;
8895 L_STRATEGY_TEMPLATE_ID.delete;
8896 L_WORK_ITEM_TEMPLATE_ID.delete;
8897 L_STATUS_CODE.delete;
8898 L_STR_STATUS.delete; -- Added for bug#7416344 by PNAVEENK on 2-4-2009
8899 L_START_TIME.delete;
8900 L_END_TIME.delete;
8901 L_WORK_ITEM_ORDER.delete;
8902 L_ESCALATED_YN.delete; --Added for bug#6981126 by schekuri on 27-Jun-2008
8903
8904 LogMessage(FND_LOG.LEVEL_STATEMENT,'Inited all arrays');
8905
8906 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Start fetching time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8907 FETCH c_strategy_summary_acct bulk collect
8908 INTO
8909 L_JTF_OBJECT_ID,
8910 L_WORK_ITEM_ID,
8911 L_SCHEDULE_START,
8912 L_SCHEDULE_END,
8913 L_CATEGORY_TYPE,
8914 L_WORK_TYPE,
8915 L_PRIORITY_TYPE,
8916 L_WKITEM_RESOURCE_ID, --schekuri
8917 L_STRATEGY_ID,
8918 L_STRATEGY_TEMPLATE_ID,
8919 L_WORK_ITEM_TEMPLATE_ID,
8920 L_STATUS_CODE,
8921 L_STR_STATUS, -- Added for bug#7416344 by PNAVEENK on 2-4-2009
8922 L_START_TIME,
8923 L_END_TIME,
8924 L_WORK_ITEM_ORDER,
8925 L_ESCALATED_YN
8926 limit l_max_fetches;
8927
8928 IF L_JTF_OBJECT_ID.COUNT = 0 THEN
8929
8930 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8931 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
8932 CLOSE c_strategy_summary_acct;
8933 EXIT;
8934
8935 ELSE
8936
8937 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8938 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Fetched ' || L_JTF_OBJECT_ID.COUNT || ' rows.');
8939 LogMessage(FND_LOG.LEVEL_STATEMENT,' Updating table...');
8940 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Start updating time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8941
8942 forall i IN L_JTF_OBJECT_ID.FIRST .. L_JTF_OBJECT_ID.LAST
8943 UPDATE IEX_DLN_UWQ_SUMMARY
8944 SET WORK_ITEM_ID = L_WORK_ITEM_ID(i),
8945 SCHEDULE_START = L_SCHEDULE_START(i),
8946 SCHEDULE_END = L_SCHEDULE_END(i),
8947 WORK_TYPE = L_WORK_TYPE(i),
8948 CATEGORY_TYPE = L_CATEGORY_TYPE(i),
8949 PRIORITY_TYPE = L_PRIORITY_TYPE(i),
8950 WKITEM_RESOURCE_ID = L_WKITEM_RESOURCE_ID(i), --schekuri
8951 STRATEGY_ID = L_STRATEGY_ID(i),
8952 STRATEGY_TEMPLATE_ID = L_STRATEGY_TEMPLATE_ID(i),
8953 WORK_ITEM_TEMPLATE_ID = L_WORK_ITEM_TEMPLATE_ID(i),
8954 STATUS_CODE = L_STATUS_CODE(i),
8955 STR_STATUS = L_STR_STATUS(i), -- Added for bug#7416344 by PNAVEENK on 2-4-2009
8956 START_TIME = L_START_TIME(i),
8957 END_TIME = L_END_TIME(i),
8958 WORK_ITEM_ORDER = L_WORK_ITEM_ORDER(i),
8959 WKITEM_ESCALATED_YN = L_ESCALATED_YN(i),--Added for bug#6981126 by schekuri on 27-Jun-2008
8960 LAST_UPDATE_DATE=sysdate,
8961 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
8962 WHERE CUST_ACCOUNT_ID = L_JTF_OBJECT_ID(i);
8963 end if;
8964 end loop;
8965
8966 ELSIF p_level = 'BILL_TO' THEN
8967 OPEN c_strategy_summary_billto(p_level, l_from_date,p_org_id);
8968 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End open cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8969 LOOP
8970 l_count := l_count +1;
8971 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'----------');
8972 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Bulk ' || l_count);
8973
8974 L_JTF_OBJECT_ID.delete;
8975 L_WORK_ITEM_ID.delete;
8976 L_SCHEDULE_START.delete;
8977 L_SCHEDULE_END.delete;
8978 L_WORK_TYPE.delete;
8979 L_CATEGORY_TYPE.delete;
8980 L_PRIORITY_TYPE.delete;
8981 L_wkitem_RESOURCE_ID.delete; --schekuri
8982 L_STRATEGY_ID.delete;
8983 L_STRATEGY_TEMPLATE_ID.delete;
8984 L_WORK_ITEM_TEMPLATE_ID.delete;
8985 L_STATUS_CODE.delete;
8986 L_STR_STATUS.delete; -- Added for bug#7416344 by PNAVEENK on 2-4-2009
8987 L_START_TIME.delete;
8988 L_END_TIME.delete;
8989 L_WORK_ITEM_ORDER.delete;
8990 L_ESCALATED_YN.delete; --Added for bug#6981126 by schekuri on 27-Jun-2008
8991
8992 LogMessage(FND_LOG.LEVEL_STATEMENT,'Inited all arrays');
8993
8994 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Start fetching time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
8995 FETCH c_strategy_summary_billto bulk collect
8996 INTO
8997 L_JTF_OBJECT_ID,
8998 L_WORK_ITEM_ID,
8999 L_SCHEDULE_START,
9000 L_SCHEDULE_END,
9001 L_CATEGORY_TYPE,
9002 L_WORK_TYPE,
9003 L_PRIORITY_TYPE,
9004 L_WKITEM_RESOURCE_ID, --schekuri
9005 L_STRATEGY_ID,
9006 L_STRATEGY_TEMPLATE_ID,
9007 L_WORK_ITEM_TEMPLATE_ID,
9008 L_STATUS_CODE,
9009 L_STR_STATUS, -- Added for bug#7416344 by PNAVEENK on 2-4-2009
9010 L_START_TIME,
9011 L_END_TIME,
9012 L_WORK_ITEM_ORDER,
9013 L_ESCALATED_YN
9014 limit l_max_fetches;
9015
9016 IF L_JTF_OBJECT_ID.COUNT = 0 THEN
9017
9018 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
9019 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
9020 CLOSE c_strategy_summary_billto;
9021 EXIT;
9022
9023 ELSE
9024
9025 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
9026 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Fetched ' || L_JTF_OBJECT_ID.COUNT || ' rows.');
9027 LogMessage(FND_LOG.LEVEL_STATEMENT,' Updating table...');
9028 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Start updating time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
9029
9030 forall i IN L_JTF_OBJECT_ID.FIRST .. L_JTF_OBJECT_ID.LAST
9031 UPDATE IEX_DLN_UWQ_SUMMARY
9032 SET WORK_ITEM_ID = L_WORK_ITEM_ID(i),
9033 SCHEDULE_START = L_SCHEDULE_START(i),
9034 SCHEDULE_END = L_SCHEDULE_END(i),
9035 WORK_TYPE = L_WORK_TYPE(i),
9036 CATEGORY_TYPE = L_CATEGORY_TYPE(i),
9037 PRIORITY_TYPE = L_PRIORITY_TYPE(i),
9038 WKITEM_RESOURCE_ID = L_WKITEM_RESOURCE_ID(i), --schekuri
9039 STRATEGY_ID = L_STRATEGY_ID(i),
9040 STRATEGY_TEMPLATE_ID = L_STRATEGY_TEMPLATE_ID(i),
9041 WORK_ITEM_TEMPLATE_ID = L_WORK_ITEM_TEMPLATE_ID(i),
9042 STATUS_CODE = L_STATUS_CODE(i),
9043 STR_STATUS = L_STR_STATUS(i), -- Added for bug#7416344 by PNAVEENK on 2-4-2009
9044 START_TIME = L_START_TIME(i),
9045 END_TIME = L_END_TIME(i),
9046 WORK_ITEM_ORDER = L_WORK_ITEM_ORDER(i),
9047 WKITEM_ESCALATED_YN = L_ESCALATED_YN(i),--Added for bug#6981126 by schekuri on 27-Jun-2008
9048 LAST_UPDATE_DATE=sysdate,
9049 LAST_UPDATED_BY=FND_GLOBAL.USER_ID
9050 WHERE SITE_USE_ID = L_JTF_OBJECT_ID(i);
9051
9052 END IF;
9053 end loop;
9054
9055 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Updated ' || L_JTF_OBJECT_ID.COUNT || ' rows');
9056 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End updating time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
9057 COMMIT;
9058 LogMessage(FND_LOG.LEVEL_STATEMENT,'Commited');
9059
9060 l_total := l_total + L_JTF_OBJECT_ID.COUNT;
9061 LogMessage(FND_LOG.LEVEL_STATEMENT,'So far processed ' || l_total || ' rows');
9062
9063 END IF;
9064
9065 -- END LOOP;
9066
9067 IF c_strategy_summary_cust % ISOPEN THEN
9068 CLOSE c_strategy_summary_cust;
9069 END IF;
9070 IF c_strategy_summary_acct % ISOPEN THEN
9071 CLOSE c_strategy_summary_acct;
9072 END IF;
9073 IF c_strategy_summary_billto % ISOPEN THEN
9074 CLOSE c_strategy_summary_billto;
9075 END IF;
9076
9077 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
9078 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Total updated ' || l_total || ' rows with strategy info');
9079
9080
9081
9082 End If; --Bug5691098
9083
9084 --Bug5701973. Start.
9085 IF (l_from_date IS NOT NULL and p_mode = 'CP' ) THEN --Bug5691098
9086 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
9087 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'TCA Update Started at : ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
9088 if p_level<>'BILL_TO' then --Added for Bug 9487600 24-Mar-2010 barathsr
9089 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' Opened Cursor changed_party at : ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
9090 BEGIN
9091 --Party changes update
9092 OPEN changed_party(l_from_date,p_level,p_org_id);
9093 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' Opened Cursor changed_party at : ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
9094 L_PARTY_ID.delete;
9095 L_ADDRESS1.delete;
9096 L_CITY.delete;
9097 L_STATE.delete;
9098 L_COUNTY.delete;
9099 L_COUNTRY.delete;
9100 L_PROVINCE.delete;
9101 L_POSTAL_CODE.delete;
9102
9103 LOOP
9104 FETCH changed_party bulk collect
9105 INTO
9106 L_PARTY_ID,
9107 L_ADDRESS1,
9108 L_CITY,
9109 L_STATE,
9110 L_COUNTY,
9111 L_COUNTRY,
9112 L_PROVINCE,
9113 L_POSTAL_CODE
9114 limit l_max_fetches;
9115 IF L_PARTY_ID.COUNT = 0 THEN
9116
9117 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Changed_Party Cursor Fetching end time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
9118 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
9119 EXIT;
9120
9121 ELSE
9122
9123 forall i IN L_PARTY_ID.FIRST .. L_PARTY_ID.LAST
9124
9125 UPDATE IEX_DLN_UWQ_SUMMARY
9126 SET address1 = L_ADDRESS1(i),
9127 city = L_CITY(i),
9128 state = L_STATE(i),
9129 county = L_COUNTY(i),
9130 country = L_COUNTRY(i),
9131 province = L_PROVINCE(i),
9132 postal_code = L_POSTAL_CODE(i),
9133 last_update_date = SYSDATE,
9134 last_updated_by = FND_GLOBAL.USER_ID
9135 WHERE PARTY_ID = L_PARTY_ID(i);
9136 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' Changed_Party Cursor updated ' ||L_PARTY_ID.count || ' rows ');
9137 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
9138 COMMIT;
9139 END IF;
9140 END LOOP;
9141 CLOSE changed_party;
9142
9143
9144 EXCEPTION WHEN OTHERS THEN
9145 LogMessage(FND_LOG.LEVEL_UNEXPECTED,SQLERRM);
9146 END;
9147 end if;--Added for Bug 9487600 24-Mar-2010 barathsr
9148
9149 --Begin Bug 9487600 24-Mar-2010 barathsr
9150 --Bill To Site changes update
9151 IF p_level='BILL_TO' THEN
9152 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
9153 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'TCA Update Started at : ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
9154 BEGIN
9155 IF (p_update_contact = 'Y') THEN -- Added for bug13713264 bibeura 15-Feb-2012
9156 open changed_billto_sites(l_from_date,p_level,p_org_id);
9157 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' Opened Cursor changed_billto_sites at : ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
9158 L_SITE_USE_ID.delete;
9159 L_ADDRESS1.delete;
9160 L_CITY.delete;
9161 L_STATE.delete;
9162 L_COUNTY.delete;
9163 L_COUNTRY.delete;
9164 L_PROVINCE.delete;
9165 L_POSTAL_CODE.delete;
9166 loop
9167 fetch changed_billto_sites bulk collect
9168 into
9169 L_SITE_USE_ID,
9170 L_ADDRESS1,
9171 L_CITY,
9172 L_STATE,
9173 L_COUNTY,
9174 L_COUNTRY,
9175 L_PROVINCE,
9176 L_POSTAL_CODE
9177 limit l_max_fetches;
9178 IF l_site_use_id.count=0 then
9179 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: Changed_billto_sites ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
9180 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
9181 EXIT;
9182
9183 ELSE
9184 forall i in l_site_use_id.first..l_site_use_id.last
9185 update iex_dln_uwq_summary
9186 set address1=l_address1(i),
9187 city = L_CITY(i),
9188 state = L_STATE(i),
9189 county = L_COUNTY(i),
9190 country = L_COUNTRY(i),
9191 province = L_PROVINCE(i),
9192 postal_code = L_POSTAL_CODE(i),
9193 last_update_date = SYSDATE,
9194 last_updated_by = FND_GLOBAL.USER_ID
9195 WHERE site_use_id= L_site_use_ID(i);
9196
9197 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' Changed_billto_sites Cursor updated ' ||L_SITE_USE_ID.count || ' rows ');
9198 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
9199 COMMIT;
9200 END IF;
9201 END LOOP;
9202 CLOSE changed_billto_sites;
9203 END IF; -- IF (p_update_contact = 'Y') Added for bug13713264 bibeura 15-Feb-2012
9204 EXCEPTION WHEN OTHERS THEN
9205 LogMessage(FND_LOG.LEVEL_UNEXPECTED,SQLERRM);
9206 END;
9207 end if;
9208
9209 --End Bug 9487600 24-Mar-2010 barathsr
9210
9211
9212
9213
9214 --Profile Changes Update
9215 BEGIN
9216 OPEN changed_profiles(l_from_date,p_level,p_org_id);
9217 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Opened changed_profiles cursor at time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
9218
9219 L_PARTY_ID.delete;
9220 L_CUST_ACCOUNT_ID.delete;
9221 L_SITE_USE_ID.delete;
9222 L_COLLECTOR_RESOURCE_ID.delete ;
9223 L_COLLECTOR_RESOURCE_NAME.delete;
9224 L_COLLECTOR_ID.delete;
9225 L_RESOURCE_TYPE.delete;
9226
9227 LOOP
9228 FETCH changed_profiles bulk collect
9229 INTO
9230 L_COLLECTOR_ID,
9231 L_PARTY_ID,
9232 L_CUST_ACCOUNT_ID,
9233 L_SITE_USE_ID,
9234 L_COLLECTOR_RESOURCE_ID,-- Added for 15906302
9235 L_COLLECTOR_RESOURCE_NAME,-- Added for 15906302
9236 L_RESOURCE_TYPE-- Added for 15906302
9237 limit l_max_fetches;
9238 IF L_PARTY_ID.COUNT = 0 THEN
9239
9240 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: Changed_Profiles ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
9241 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
9242 EXIT;
9243
9244 ELSE
9245
9246 forall i IN L_PARTY_ID.FIRST .. L_PARTY_ID.LAST
9247 UPDATE IEX_DLN_UWQ_SUMMARY
9248 SET COLLECTOR_ID = L_COLLECTOR_ID(i),
9249 COLLECTOR_RESOURCE_ID = L_COLLECTOR_RESOURCE_ID(i), -- Added for 15906302
9250 COLLECTOR_RESOURCE_NAME = L_COLLECTOR_RESOURCE_NAME(i), -- Added for 15906302
9251 COLLECTOR_RES_TYPE = L_RESOURCE_TYPE(i),-- Added for 15906302
9252 last_update_date = SYSDATE,
9253 last_updated_by = FND_GLOBAL.USER_ID
9254 WHERE
9255 PARTY_ID = L_PARTY_ID(i)
9256 AND nvl(CUST_ACCOUNT_ID,1) = nvl(L_CUST_ACCOUNT_ID(i),1)
9257 AND nvl(SITE_USE_ID,1) = nvl(L_SITE_USE_ID(i),1);
9258 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' Changed_profiles updated ' || L_PARTY_ID.count || ' rows ' );
9259 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
9260
9261 COMMIT;
9262 END IF;
9263 END LOOP;
9264 IF changed_profiles % ISOPEN THEN
9265 CLOSE changed_profiles;
9266 END IF;
9267 EXCEPTION WHEN OTHERS THEN
9268 LogMessage(FND_LOG.LEVEL_UNEXPECTED,SQLERRM);
9269 END;
9270
9271 --Collector Changes Update
9272 BEGIN
9273 OPEN changed_collector(l_from_date,p_level,p_org_id);
9274 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open changed_collector cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
9275 L_COLLECTOR_RESOURCE_ID.delete ;
9276 L_COLLECTOR_RESOURCE_NAME.delete; -- Added for the bug#7562130
9277 L_COLLECTOR_ID.delete;
9278 L_RESOURCE_TYPE.delete;
9279
9280 LOOP
9281 FETCH changed_collector bulk collect
9282 INTO
9283 L_COLLECTOR_RESOURCE_ID,
9284 L_COLLECTOR_RESOURCE_NAME, -- Added for the bug#7562130
9285 L_RESOURCE_TYPE,
9286 L_COLLECTOR_ID
9287 limit l_max_fetches;
9288 IF L_COLLECTOR_RESOURCE_ID.COUNT = 0 THEN
9289
9290 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: Changed_Collector ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
9291 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
9292 EXIT;
9293
9294 ELSE
9295
9296 forall i IN L_COLLECTOR_ID.FIRST .. L_COLLECTOR_ID.LAST
9297 UPDATE IEX_DLN_UWQ_SUMMARY
9298 SET COLLECTOR_RESOURCE_ID = L_COLLECTOR_RESOURCE_ID(i),
9299 COLLECTOR_RESOURCE_NAME = L_COLLECTOR_RESOURCE_NAME(i), -- Added for the bug#7562130
9300 COLLECTOR_RES_TYPE = L_RESOURCE_TYPE(i),
9301 last_update_date = SYSDATE,
9302 last_updated_by = FND_GLOBAL.USER_ID
9303 WHERE
9304 COLLECTOR_ID = L_COLLECTOR_ID(i);
9305 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' Changed_collector updated ' || L_COLLECTOR_ID.count || ' rows ');
9306 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
9307
9308 COMMIT;
9309 END IF;
9310 END LOOP;
9311 IF changed_collector % ISOPEN THEN
9312 CLOSE changed_collector;
9313 END IF;
9314
9315 EXCEPTION WHEN OTHERS THEN
9316 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Changed Collector update received' || SQLERRM);
9317 END;
9318 --Contact Point Changes Update
9319 BEGIN
9320 IF (p_update_contact = 'Y') THEN -- Added for bug13713264 bibeura 15-Feb-2012
9321 OPEN changed_contact(l_from_date,p_level,p_org_id);
9322 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Opened Cursor changed_contact cursor at time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
9323 L_PARTY_ID.delete;
9324 L_PHONE_COUNTRY_CODE.delete;
9325 L_PHONE_AREA_CODE.delete;
9326 L_PHONE_NUMBER.delete;
9327 L_PHONE_EXTENSION.delete;
9328
9329
9330 LOOP
9331 FETCH changed_contact bulk collect
9332 INTO
9333 L_PARTY_ID,
9334 L_PHONE_COUNTRY_CODE,
9335 L_PHONE_AREA_CODE,
9336 L_PHONE_NUMBER,
9337 L_PHONE_EXTENSION
9338
9339 limit l_max_fetches;
9340 IF L_PARTY_ID.COUNT = 0 THEN
9341
9342 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Changed_contact Cursor Fetching end time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
9343 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
9344 EXIT;
9345
9346 ELSE
9347
9348 forall i IN L_PARTY_ID.FIRST .. L_PARTY_ID.LAST
9349
9350 UPDATE IEX_DLN_UWQ_SUMMARY
9351 SET PHONE_COUNTRY_CODE = L_PHONE_COUNTRY_CODE(i),
9352 PHONE_AREA_CODE = L_PHONE_AREA_CODE(i),
9353 PHONE_NUMBER = L_PHONE_NUMBER(i),
9354 PHONE_EXTENSION = L_PHONE_EXTENSION(i),
9355 last_update_date = SYSDATE,
9356 last_updated_by = FND_GLOBAL.USER_ID
9357 WHERE PARTY_ID = L_PARTY_ID(i);
9358 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' Changed_contact Cursor updated ' ||L_PARTY_ID.count || ' rows ');
9359 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
9360
9361 COMMIT;
9362 END IF;
9363 END LOOP;
9364 CLOSE changed_contact;
9365 END IF; -- IF (p_update_contact = 'Y') For bug13713264 bibeura 15-Feb-2012
9366
9367
9368 EXCEPTION WHEN OTHERS THEN
9369 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' Contact point raised error ' || SQLERRM);
9370 END;
9371
9372 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'TCA Update Finished at : ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
9373 END IF;
9374
9375 --Bug5701973. End.
9376
9377 -- Start PNAVEENK for bug#7662453 on 22-12-2008
9378 IF nvl(fnd_profile.value('IEX_SHOW_AGING_IN_UWQ'), 'N') = 'Y' then
9379 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Opened Cursor c_aging_summary cursor at time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
9380
9381 IF p_level = 'CUSTOMER' THEN
9382 populate_aging_info('PARTY',l_from_date,p_org_id);--Added for Bug 8707923 27-Jul-2009 barathsr
9383 ELSIF p_level = 'ACCOUNT' THEN
9384 populate_aging_info('CUST',l_from_date,p_org_id);--Added for Bug 8707923 27-Jul-2009 barathsr
9385 ELSIF p_level = 'BILL_TO' THEN
9386 populate_aging_info('BILLTO',l_from_date,p_org_id);--Added for Bug 8707923 27-Jul-2009 barathsr
9387 end if;
9388
9389 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Updated aging info in Table IEX_DLN_UWQ_SUMMARY at time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
9390
9391 end if;
9392 -- End for bug#7662453
9393
9394 --Begin Bug 8823567 22-Oct-2009 barathsr
9395 IF nvl(fnd_profile.value('IEX_SHOW_NET_BAL_IN_UWQ'), 'N') = 'Y' then
9396 if p_level='CUSTOMER' then
9397 calculate_net_balance('CUSTOMER',l_from_date,p_org_id);
9398 elsif p_level='ACCOUNT' then
9399 calculate_net_balance('ACCOUNT',l_from_date,p_org_id);
9400 elsif p_level='BILL_TO' then
9401 calculate_net_balance('BILL_TO',l_from_date,p_org_id);
9402 end if;
9403 end if;
9404 --End Bug 8823567 22-Oct-2009 barathsr
9405
9406
9407 -- Start for bug#8261043 on 3-3-2009
9408 IF nvl(fnd_profile.value('IEX_SHOW_CONT_IN_UWQ'), 'N') = 'Y' then
9409 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Opened Cursor c_contract_summary cursor at time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
9410
9411 IF l_level in ('CUSTOMER','ACCOUNT','BILL_TO') then
9412 populate_contracts_info;
9413 end if;
9414
9415 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Updated contracts info in Table IEX_DLN_UWQ_SUMMARY at time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
9416 end if;
9417 -- End for bug#8261043
9418 DELETE from AR_CONC_PROCESS_REQUESTS
9419 WHERE REQUEST_ID = FND_GLOBAL.conc_request_id;
9420 COMMIT;
9421
9422
9423 EXCEPTION
9424 WHEN deadlock_detected THEN
9425 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Exception in populate_uwq_sum: deadlock detected');
9426 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'SQLCODE: ' || to_char(SQLCODE) || ' SQLERRM: ' || sqlerrm);
9427 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
9428 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Total processed ' || l_total || ' rows');
9429 x_errbuf := sqlerrm;
9430 x_retcode := SQLCODE;
9431
9432
9433 -- Begin - Andre Araujo - 10/20/06 - Added dynamic sql
9434 -- If the date is not null we will not read only the new/updated records
9435 IF c_iex_acc_uwq_summary % ISOPEN or
9436 c_iex_acc_uwq_dt_sum % ISOPEN or
9437 c_iex_billto_uwq_summary % ISOPEN or
9438 c_iex_billto_uwq_dt_sum % ISOPEN or
9439 c_iex_cu_uwq_summary % ISOPEN or
9440 c_iex_cu_uwq_summary % ISOPEN
9441 THEN
9442 IF p_level = 'CUSTOMER' THEN
9443 if (l_from_date is null) then
9444 CLOSE c_iex_cu_uwq_summary;
9445 else
9446 CLOSE c_iex_cu_uwq_dt_sum;
9447 end if;
9448 ELSIF p_level = 'ACCOUNT' THEN
9449 if (l_from_date is null) then
9450 CLOSE c_iex_acc_uwq_summary;
9451 else
9452 CLOSE c_iex_acc_uwq_dt_sum;
9453 end if;
9454 ELSIF p_level = 'BILL_TO' THEN
9455 if (l_from_date is null) then
9456 CLOSE c_iex_billto_uwq_summary;
9457 else
9458 CLOSE c_iex_billto_uwq_dt_sum;
9459 end if;
9460 END IF;
9461 END IF;
9462
9463 -- End - Andre Araujo - 10/20/06 - Added dynamic sql
9464 Rollback;
9465 DELETE from AR_CONC_PROCESS_REQUESTS
9466 where REQUEST_ID = FND_GLOBAL.conc_request_id;
9467 commit;
9468
9469 if FND_GLOBAL.Conc_Request_Id is not null then
9470 l_return := FND_CONCURRENT.SET_COMPLETION_STATUS(
9471 status => 'ERROR',
9472 message => 'The process has failed. Please review log file.');
9473 end if;
9474
9475 WHEN others THEN
9476 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Exception in populate_uwq_sum: other');
9477 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'SQLCODE: ' || to_char(SQLCODE) || ' SQLERRM: ' || sqlerrm);
9478 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
9479 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Total processed ' || l_total || ' rows');
9480 x_errbuf := sqlerrm;
9481 x_retcode := SQLCODE;
9482
9483 -- Begin - Andre Araujo - 10/20/06 - Added dynamic sql
9484 -- If the date is not null we will not read only the new/updated records
9485
9486 IF c_iex_acc_uwq_summary % ISOPEN or
9487 c_iex_acc_uwq_dt_sum % ISOPEN or
9488 c_iex_billto_uwq_summary % ISOPEN or
9489 c_iex_billto_uwq_dt_sum % ISOPEN or
9490 c_iex_cu_uwq_summary % ISOPEN or
9491 c_iex_cu_uwq_summary % ISOPEN
9492 THEN
9493 IF p_level = 'CUSTOMER' THEN
9494 if (l_from_date is null) then
9495 CLOSE c_iex_cu_uwq_summary;
9496 else
9497 CLOSE c_iex_cu_uwq_dt_sum;
9498 end if;
9499 ELSIF p_level = 'ACCOUNT' THEN
9500 if (l_from_date is null) then
9501 CLOSE c_iex_acc_uwq_summary;
9502 else
9503 CLOSE c_iex_acc_uwq_dt_sum;
9504 end if;
9505 ELSIF p_level = 'BILL_TO' THEN
9506 if (l_from_date is null) then
9507 CLOSE c_iex_billto_uwq_summary;
9508 else
9509 CLOSE c_iex_billto_uwq_dt_sum;
9510 end if;
9511 END IF;
9512 END IF;
9513
9514 -- End - Andre Araujo - 10/20/06 - Added dynamic sql
9515 Rollback;
9516 DELETE from AR_CONC_PROCESS_REQUESTS
9517 where REQUEST_ID = FND_GLOBAL.conc_request_id;
9518 commit;
9519
9520 if FND_GLOBAL.Conc_Request_Id is not null then
9521 l_return := FND_CONCURRENT.SET_COMPLETION_STATUS(
9522 status => 'ERROR',
9523 message => 'The process has failed. Please review log file.');
9524 end if;
9525
9526 END;
9527
9528 PROCEDURE billto_refresh_summary_incr(
9529 x_errbuf OUT nocopy VARCHAR2,
9530 x_retcode OUT nocopy VARCHAR2,
9531 FROM_DATE IN VARCHAR2,
9532 P_MODE IN VARCHAR2 DEFAULT 'CP',
9533 p_level in varchar2)--Added for Bug 8707923 27-Jul-2009 barathsr
9534 is
9535 l_count number;
9536
9537 CURSOR c_iex_billto_uwq_summary IS
9538 SELECT
9539 trx_summ.org_id,
9540 objb.object_function ieu_object_function,
9541 objb.object_parameters || ' DISPLAYCBO=IEXTRMAN' ieu_object_parameters,
9542 '' ieu_media_type_uuid,
9543 'CUSTOMER_SITE_USE_ID' ieu_param_pk_col,
9544 to_char(trx_summ.site_use_id) ieu_param_pk_value,
9545 1 resource_id,
9546 'RS_EMPLOYEE' resource_type,
9547 party.party_id party_id,
9548 party.party_name party_name,
9549 trx_summ.cust_account_id cust_account_id,
9550 acc.account_name account_name,
9551 acc.account_number account_number,
9552 trx_summ.site_use_id site_use_id,
9553 site_uses.location location,
9554 max(gl.CURRENCY_CODE) currency,
9555 SUM(trx_summ.op_invoices_count) op_invoices_count,
9556 SUM(trx_summ.op_debit_memos_count) op_debit_memos_count,
9557 SUM(trx_summ.op_deposits_count) op_deposits_count,
9558 SUM(trx_summ.op_bills_receivables_count) op_bills_receivables_count,
9559 SUM(trx_summ.op_chargeback_count) op_chargeback_count,
9560 SUM(trx_summ.op_credit_memos_count) op_credit_memos_count,
9561 SUM(trx_summ.unresolved_cash_count) unresolved_cash_count,
9562 SUM(trx_summ.disputed_inv_count) disputed_inv_count,
9563 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.best_current_receivables,
9564 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
9565 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.best_current_receivables))) best_current_receivables,
9566 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_invoices_value,
9567 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
9568 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_invoices_value))) op_invoices_value,
9569 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_debit_memos_value,
9570 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
9571 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_debit_memos_value))) op_debit_memos_value,
9572 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_deposits_value,
9573 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
9574 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_deposits_value))) op_deposits_value,
9575 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_bills_receivables_value,
9576 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
9577 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_bills_receivables_value))) op_bills_receivables_value,
9578 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_chargeback_value,
9579 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
9580 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_chargeback_value))) op_chargeback_value,
9581 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_credit_memos_value,
9582 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
9583 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_credit_memos_value))) op_credit_memos_value,
9584 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.unresolved_cash_value,
9585 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
9586 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.unresolved_cash_value))) unresolved_cash_value,
9587 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.receipts_at_risk_value,
9588 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
9589 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.receipts_at_risk_value))) receipts_at_risk_value,
9590 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.inv_amt_in_dispute,
9591 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
9592 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.inv_amt_in_dispute))) inv_amt_in_dispute,
9593 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.pending_adj_value,
9594 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
9595 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.pending_adj_value))) pending_adj_value,
9596 SUM(trx_summ.past_due_inv_inst_count) past_due_inv_inst_count,
9597 MAX(trx_summ.last_payment_date) last_payment_date,
9598 --MAX(iex_uwq_view_pkg.get_last_payment_amount(0, 0, trx_summ.site_use_id)) last_payment_amount,
9599 max(gl.CURRENCY_CODE) last_payment_amount_curr,
9600 -- MAX(iex_uwq_view_pkg.get_last_payment_number(0, 0, trx_summ.site_use_id)) last_payment_number,
9601 MAX(trx_summ.last_update_date) last_update_date,
9602 MAX(trx_summ.last_updated_by) last_updated_by,
9603 MAX(trx_summ.creation_date) creation_date,
9604 MAX(trx_summ.created_by) created_by,
9605 MAX(trx_summ.last_update_login) last_update_login,
9606 -- Start for the bug#8538945 by PNAVEENK
9607 /* party.address1 address1,
9608 party.city city,
9609 party.state state,
9610 party.county county,
9611 fnd_terr.territory_short_name country,
9612 party.province province,
9613 party.postal_code postal_code */
9614 loc.address1 address1,
9615 loc.city city,
9616 loc.state state,
9617 loc.county county,
9618 fnd_terr.territory_short_name country,
9619 loc.province province,
9620 loc.postal_code postal_code
9621 -- end for the bug#8538945
9622 FROM ar_trx_bal_summary trx_summ,
9623 hz_cust_accounts acc,
9624 hz_parties party,
9625 jtf_objects_b objb,
9626 fnd_territories_tl fnd_terr,
9627 hz_cust_site_uses_all site_uses,
9628 GL_SETS_OF_BOOKS gl,
9629 AR_SYSTEM_PARAMETERS_all sys,
9630 -- Added for the bug#8538945 by PNAVEENK
9631 HZ_CUST_ACCT_SITES_all ACCT_SITE,--Modified for Bug 9487600 23-Mar-2010 barathsr
9632 HZ_PARTY_SITES PARTY_SITE,
9633 HZ_LOCATIONS LOC
9634 -- end for the bug#8538945
9635 WHERE trx_summ.reference_1 = '1'
9636 -- Added for the bug#8538945 by PNAVEENK
9637 and PARTY_SITE.LOCATION_ID = LOC.LOCATION_ID
9638 and ACCT_SITE.PARTY_SITE_ID = PARTY_SITE.PARTY_SITE_ID
9639 and site_uses.CUST_ACCT_SITE_ID = ACCT_SITE.CUST_ACCT_SITE_ID
9640 -- end for the bug#8538945
9641 AND trx_summ.site_use_id = site_uses.site_use_id
9642 AND trx_summ.cust_account_id = acc.cust_account_id
9643 AND acc.party_id = party.party_id
9644 AND objb.object_code = 'IEX_BILLTO'
9645 AND objb.object_code <> 'IEX_DELINQUENCY' --Added for Bug 8707923 27-Jul-2009 barathsr
9646 AND loc.country = fnd_terr.territory_code(+) -- Changed for the bug#8538945
9647 AND fnd_terr.LANGUAGE(+) = userenv('LANG')
9648 and gl.SET_OF_BOOKS_ID = sys.SET_OF_BOOKS_ID
9649 and trx_summ.org_id = sys.org_id
9650 and trx_summ.site_use_id in (select temp.object_id from iex_pop_uwq_summ_gt temp where
9651 temp.org_id=trx_summ.org_id)
9652 GROUP BY trx_summ.org_id,
9653 objb.object_function,
9654 objb.object_parameters,
9655 party.party_id,
9656 party.party_name,
9657 trx_summ.cust_account_id,
9658 acc.account_name,
9659 acc.account_number,
9660 trx_summ.site_use_id,
9661 site_uses.location,
9662 -- Start for the bug#8538945 by PNAVEENK
9663 /* party.address1,
9664 party.city,
9665 party.state,
9666 party.county,
9667 fnd_terr.territory_short_name,
9668 party.province,
9669 party.postal_code; */
9670 loc.address1,
9671 loc.city,
9672 loc.state,
9673 loc.county,
9674 fnd_terr.territory_short_name,
9675 loc.province,
9676 loc.postal_code;
9677 -- end for the bug#8538945
9678
9679 CURSOR c_strategy_summary IS
9680 select strat.jtf_object_id,
9681 wkitem.WORK_ITEM_ID,
9682 wkitem.schedule_start schedule_start,
9683 wkitem.schedule_end schedule_end,
9684 stry_temp_wkitem.category_type category,
9685 stry_temp_wkitem.WORK_TYPE,
9686 stry_temp_wkitem.PRIORITY_TYPE,
9687 wkitem.resource_id,
9688 wkitem.strategy_id,
9689 strat.strategy_template_id,
9690 wkitem.work_item_template_id,
9691 wkitem.status_code,
9692 strat.status_code, -- Added for bug#7416344 by PNAVEENK on 2-4-2009
9693 -- wkitem.creation_date start_time,
9694 wkitem.execute_start start_time, -- Added for bug#8306620 by PNAVEENK on 3-4-2009
9695 wkitem.execute_end end_time, -- snuthala 28/08/2008 bug #6745580
9696 wkitem.work_item_order wkitem_order,
9697 wkitem.escalated_yn --Added for bug#6981126 by schekuri on 27-Jul-2008
9698 from iex_strategies strat,
9699 iex_strategy_work_items wkitem,
9700 iex_stry_temp_work_items_b stry_temp_wkitem,
9701 iex_pop_uwq_summ_gt temp
9702 where strat.jtf_object_type = temp.object_type
9703 AND strat.status_code IN('OPEN', 'ONHOLD')
9704 AND wkitem.strategy_id = strat.strategy_id
9705 AND wkitem.status_code IN('OPEN', 'ONHOLD')
9706 AND wkitem.work_item_template_id = stry_temp_wkitem.work_item_temp_id
9707 AND strat.jtf_object_id = temp.object_id;
9708
9709 -- Start for the bug#7562130 by PNAVEENK
9710 CURSOR C_COLLECTOR_PROF IS
9711 SELECT
9712 hp.collector_id,
9713 ac.resource_id,
9714 decode(ac.resource_type, 'RS_RESOURCE' , rs.source_name , rg.group_name) collector_resource_name,
9715 ac.resource_type,
9716 hp.party_id,
9717 hp.cust_account_id,
9718 hp.site_use_id
9719 FROM
9720 hz_customer_profiles hp,
9721 ar_collectors ac,
9722 iex_pop_uwq_summ_gt temp,
9723 jtf_rs_resource_extns rs,
9724 JTF_RS_GROUPS_VL rg
9725 WHERE
9726 hp.site_use_id=temp.object_id
9727 and hp.collector_id=ac.collector_id
9728 and rs.resource_id(+) = ac.resource_id
9729 and rg.group_id (+) = ac.resource_id;
9730 -- end for the bug#7562130
9731 CURSOR C_CONTACT_POINT IS
9732 SELECT
9733 ids.party_id party_id,
9734 phone.phone_country_code phone_country_code,
9735 phone.phone_area_code phone_area_code,
9736 phone.phone_number phone_number,
9737 phone.phone_extension phone_extension
9738 FROM
9739 hz_contact_points phone,
9740 iex_dln_uwq_summary ids,
9741 iex_pop_uwq_summ_gt temp
9742 WHERE
9743 phone.owner_table_id = ids.party_id
9744 AND phone.owner_table_name = 'HZ_PARTIES'
9745 AND phone.contact_point_type = 'PHONE'
9746 and phone.primary_by_purpose = 'Y'
9747 AND phone.contact_point_purpose = 'COLLECTIONS'
9748 AND phone.phone_line_type NOT IN('PAGER', 'FAX')
9749 AND phone.status = 'A'
9750 AND nvl(phone.do_not_use_flag, 'N') = 'N'
9751 AND ids.site_use_id = temp.object_id;
9752
9753 L_ORG_ID number_list;
9754 L_COLLECTOR_ID number_list;
9755 L_COLLECTOR_RESOURCE_ID number_list;
9756 L_COLLECTOR_RES_TYPE varchar_30_list;
9757 L_IEU_OBJECT_FUNCTION varchar_30_list;
9758 L_IEU_OBJECT_PARAMETERS varchar_2020_list;
9759 L_IEU_MEDIA_TYPE_UUID varchar_10_list;
9760 L_IEU_PARAM_PK_COL varchar_40_list;
9761 L_IEU_PARAM_PK_VALUE varchar_40_list;
9762 L_RESOURCE_ID number_list;
9763 L_RESOURCE_TYPE varchar_20_list;
9764 L_PARTY_ID number_list;
9765 L_PARTY_NAME varchar_360_list;
9766 L_CUST_ACCOUNT_ID number_list;
9767 L_ACCOUNT_NAME varchar_240_list;
9768 L_ACCOUNT_NUMBER varchar_30_list;
9769 L_SITE_USE_ID number_list;
9770 L_LOCATION varchar_60_list;
9771 L_CURRENCY varchar_20_list;
9772 L_OP_INVOICES_COUNT number_list;
9773 L_OP_DEBIT_MEMOS_COUNT number_list;
9774 L_OP_DEPOSITS_COUNT number_list;
9775 L_OP_BILLS_RECEIVABLES_COUNT number_list;
9776 L_OP_CHARGEBACK_COUNT number_list;
9777 L_OP_CREDIT_MEMOS_COUNT number_list;
9778 L_UNRESOLVED_CASH_COUNT number_list;
9779 L_DISPUTED_INV_COUNT number_list;
9780 L_BEST_CURRENT_RECEIVABLES number_list;
9781 L_OP_INVOICES_VALUE number_list;
9782 L_OP_DEBIT_MEMOS_VALUE number_list;
9783 L_OP_DEPOSITS_VALUE number_list;
9784 L_OP_BILLS_RECEIVABLES_VALUE number_list;
9785 L_OP_CHARGEBACK_VALUE number_list;
9786 L_OP_CREDIT_MEMOS_VALUE number_list;
9787 L_UNRESOLVED_CASH_VALUE number_list;
9788 L_RECEIPTS_AT_RISK_VALUE number_list;
9789 L_INV_AMT_IN_DISPUTE number_list;
9790 L_PENDING_ADJ_VALUE number_list;
9791 L_PAST_DUE_INV_VALUE number_list;
9792 L_PAST_DUE_INV_INST_COUNT number_list;
9793 L_LAST_PAYMENT_DATE date_list;
9794 L_LAST_PAYMENT_AMOUNT number_list;
9795 L_LAST_PAYMENT_AMOUNT_CURR varchar_20_list;
9796 L_LAST_PAYMENT_NUMBER varchar_30_list;
9797 L_LAST_UPDATE_DATE date_list;
9798 L_LAST_UPDATED_BY number_list;
9799 L_CREATION_DATE date_list;
9800 L_CREATED_BY number_list;
9801 L_LAST_UPDATE_LOGIN number_list;
9802 L_NUMBER_OF_DELINQUENCIES number_list;
9803 L_ACTIVE_DELINQUENCIES number_list;
9804 L_COMPLETE_DELINQUENCIES number_list;
9805 L_PENDING_DELINQUENCIES number_list;
9806 L_SCORE number_list;
9807 -- Start for the bug#7562130 by PNAVEENK
9808 L_SCORE_ID number_list;
9809 L_SCORE_NAME varchar_240_list;
9810 L_COLLECTOR_RESOURCE_NAME varchar_240_list;
9811 -- End for the bug#7562130
9812 L_ADDRESS1 varchar_240_list;
9813 L_CITY varchar_60_list;
9814 L_STATE varchar_60_list;
9815 L_COUNTY varchar_60_list;
9816 L_COUNTRY varchar_80_list;
9817 L_PROVINCE varchar_60_list;
9818 L_POSTAL_CODE varchar_60_list;
9819 L_PHONE_COUNTRY_CODE varchar_10_list;
9820 L_PHONE_AREA_CODE varchar_10_list;
9821 L_PHONE_NUMBER varchar_40_list;
9822 L_PHONE_EXTENSION varchar_20_list;
9823 L_NUMBER_OF_BANKRUPTCIES number_list;
9824 L_NUMBER_OF_PROMISES number_list;
9825 L_BROKEN_PROMISE_AMOUNT number_list;
9826 L_PROMISE_AMOUNT number_list;
9827 L_ACTIVE_PROMISES number_list;
9828 L_COMPLETE_PROMISES number_list;
9829 L_PENDING_PROMISES number_list;
9830 L_WORK_ITEM_ID number_list;
9831 L_SCHEDULE_START date_list;
9832 L_SCHEDULE_END date_list;
9833 L_WORK_TYPE varchar_30_list;
9834 L_CATEGORY_TYPE varchar_30_list;
9835 L_PRIORITY_TYPE varchar_30_list;
9836 L_JTF_OBJECT_ID number_list;
9837 l_wkitem_resource_id number_list;
9838 l_strategy_id number_list;
9839 l_strategy_template_id number_list;
9840 l_work_item_template_id number_list;
9841 l_status_code varchar_30_list;
9842 l_str_status varchar_30_list; -- Added for bug#7416344 by PNAVEENK on 2-4-2009
9843 l_start_time date_list;
9844 l_end_time date_list;
9845 l_work_item_order number_list;
9846 l_escalated_yn varchar_10_list; --Added for bug#6981126 by schekuri on 27-Jun-2008
9847
9848 l_max_fetches NUMBER;
9849 l_total NUMBER;
9850 l_cash VARCHAR2(240); -- Bug 14197188 bibeura 26-Jun-2012
9851
9852 cursor c_billto_del is
9853 select del.CUSTOMER_SITE_USE_ID,
9854 count(1) number_of_delinquencies,
9855 max(decode(uwq_status,'PENDING',(decode(sign(TRUNC(uwq_active_date) - TRUNC(sysdate)),1,1)))) pending_delinquencies,
9856 max(decode(uwq_status,'COMPLETE',(decode(sign(TRUNC(uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') - TRUNC(sysdate)),1,1)))) complete_delinquencies,
9857 max(decode(uwq_status,NULL,1,'ACTIVE',1,'PENDING',(decode(sign(TRUNC(uwq_active_date) - TRUNC(sysdate)),-1,1,0,1)))) active_delinquencies
9858 from iex_delinquencies_all del,
9859 iex_pop_uwq_summ_gt temp
9860 WHERE del.customer_site_use_id = temp.object_id AND
9861 del.org_id = temp.org_id and
9862 del.status IN('DELINQUENT', 'PREDELINQUENT')
9863 group by del.CUSTOMER_SITE_USE_ID;
9864
9865 cursor c_billto_pro is
9866 select del.CUSTOMER_SITE_USE_ID,
9867 max(decode(pd.uwq_status,'PENDING',(decode(sign(TRUNC(pd.uwq_active_date) - TRUNC(sysdate)),1,1)))) pending_promises,
9868 max(decode(pd.uwq_status,'COMPLETE',(decode(sign(TRUNC(pd.uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') - TRUNC(sysdate)),1,1)))) complete_promises,
9869 max(decode(pd.uwq_status,NULL,1,'ACTIVE',1,'PENDING',(decode(sign(TRUNC(pd.uwq_active_date) - TRUNC(sysdate)),-1,1,0,1)))) active_promises
9870 from iex_promise_details pd,
9871 IEX_DELINQUENCIES_ALL DEL,
9872 iex_pop_uwq_summ_gt temp
9873 WHERE pd.cust_account_id = del.cust_account_id
9874 and pd.delinquency_id = del.delinquency_id
9875 and del.customer_site_use_id = temp.object_id
9876 and del.org_id = temp.org_id
9877 and pd.state = 'BROKEN_PROMISE'
9878 group by del.CUSTOMER_SITE_USE_ID;
9879
9880 cursor c_billto_pro_summ is
9881 SELECT del.customer_site_use_id,
9882 COUNT(1) number_of_promises,
9883 -- Start Bug 14197188 bibeura 26-Jun-2012
9884 -- SUM(amount_due_remaining) broken_promise_amount,
9885 -- SUM(promise_amount) promise_amount
9886 SUM(gl_currency_api.convert_amount_sql(pd.currency_code, gl.currency_code, sysdate,
9887 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE','select NVL(FND_PROFILE.VALUE(''IEX_EXCHANGE_RATE_TYPE''),''Corporate'') from dual'), pd.amount_due_remaining)) broken_promise_amount,
9888 SUM(gl_currency_api.convert_amount_sql(pd.currency_code, gl.currency_code, sysdate,
9889 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE','select NVL(FND_PROFILE.VALUE(''IEX_EXCHANGE_RATE_TYPE''),''Corporate'') from dual'), pd.promise_amount)) promise_amount
9890 -- End Bug 14197188 bibeura 26-Jun-2012
9891 FROM iex_promise_details pd,
9892 iex_delinquencies_all del,
9893 iex_pop_uwq_summ_gt temp,
9894 ar_system_parameters_all sys ,
9895 gl_sets_of_books gl
9896 WHERE pd.cust_account_id = del.cust_account_id
9897 AND pd.delinquency_id = del.delinquency_id
9898 AND pd.status IN('COLLECTABLE', 'PENDING')
9899 AND pd.state = 'BROKEN_PROMISE'
9900 AND pd.amount_due_remaining > 0
9901 AND (del.status NOT IN('CURRENT', 'CLOSE')
9902 or (del.status='CURRENT' and del.source_program_name='IEX_CURR_INV'))--Added for Bug 6446848 06-Jan-2009 barathsr
9903 and del.customer_site_use_id = temp.object_id
9904 and del.org_id = temp.org_id
9905 and sys.org_id = del.org_id
9906 and gl.set_of_books_id = sys.set_of_books_id
9907 GROUP BY del.customer_site_use_id;
9908 -- Start for the bug#7562130 by PNAVEENK
9909 cursor c_billto_score is
9910 SELECT sh.score_object_id, sh.score_value score , sh.score_id, sc.score_name
9911 FROM iex_score_histories sh,
9912 iex_pop_uwq_summ_gt temp,
9913 iex_scores sc
9914 WHERE sh.creation_date = (SELECT MAX(creation_date)
9915 FROM iex_score_histories sh1
9916 WHERE sh1.score_object_code = 'IEX_BILLTO'
9917 AND sh1.score_object_id = sh.score_object_id)
9918 -- AND rownum < 2
9919 AND sh.score_object_code = 'IEX_BILLTO'
9920 AND sh.score_object_id = temp.object_id
9921 and sc.score_id = sh.score_id;
9922 -- end for the bug#7562130
9923
9924 cursor c_billto_past_due is
9925 SELECT a.customer_site_use_id,
9926 SUM(b.acctd_amount_due_remaining) past_due_inv_value
9927 FROM iex_delinquencies_all a,
9928 ar_payment_schedules_all b,
9929 iex_pop_uwq_summ_gt temp
9930 WHERE a.customer_site_use_id = temp.object_id
9931 AND a.payment_schedule_id = b.payment_schedule_id
9932 AND b.status = 'OP'
9933 AND a.status IN('DELINQUENT', 'PREDELINQUENT')
9934 AND temp.org_id = a.org_id
9935 GROUP BY a.customer_site_use_id;
9936
9937 cursor c_last_payment_no_amount is
9938 SELECT o_summ.site_use_id,
9939 o_summ.last_payment_number last_payment_number,
9940 o_summ.last_payment_amount -- Bug 14226230 bibeura
9941 -- iex_uwq_view_pkg.convert_amount(o_summ.last_payment_amount,o_summ.currency) last_payment_amount
9942 FROM ar_trx_bal_summary o_summ
9943 WHERE o_summ.site_use_id in (select object_id from iex_pop_uwq_summ_gt)
9944 AND o_summ.last_payment_date = (SELECT MAX(last_payment_date)
9945 FROM ar_trx_bal_summary
9946 WHERE site_use_id = o_summ.site_use_id);
9947
9948 cursor c_bankruptcies is
9949 select sua.site_use_id,
9950 COUNT(1) number_of_bankruptcies
9951 FROM iex_bankruptcies bkr,hz_cust_accounts ca,
9952 hz_cust_acct_sites_all cas,--Modified for Bug 9487600 23-Mar-2010 barathsr
9953 hz_cust_site_uses_all sua
9954 where sua.site_use_id in (select object_id from iex_pop_uwq_summ_gt)
9955 and bkr.party_id=ca.party_id
9956 and ca.cust_account_id=cas.cust_account_id
9957 and cas.cust_acct_site_id=sua.cust_acct_site_id
9958 and NVL(BKR.DISPOSITION_CODE,'GRANTED') in ('GRANTED','NEGOTIATION') -- Changed for bug#7693986
9959 group by sua.site_use_id;
9960
9961 -- Bug #6251657 bibeura 25-OCT-2007
9962 cursor c_billto_del_dln is
9963 select del.customer_site_use_id,
9964 sum(decode(del.status,'DELINQUENT',1,'PREDELINQUENT',1,0)) number_of_delinquencies,
9965 sum(decode(del.status,'DELINQUENT',ps.acctd_amount_due_remaining,'PREDELINQUENT',ps.acctd_amount_due_remaining,0)) past_due_inv_value,
9966 max(decode(uwq_status,'PENDING',(decode(sign(TRUNC(uwq_active_date) - TRUNC(sysdate)),1,1)))) pending_delinquencies,
9967 max(decode(uwq_status,'COMPLETE',(decode(sign(TRUNC(uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') - TRUNC(sysdate)),1,1)))) complete_delinquencies,
9968 max(decode(uwq_status,NULL,1,'ACTIVE',1,'PENDING',(decode(sign(TRUNC(uwq_active_date) - TRUNC(sysdate)),-1,1,0,1)))) active_delinquencies,
9969 del.org_id org_id
9970 from iex_delinquencies del,
9971 ar_payment_schedules ps
9972 WHERE del.payment_schedule_id = ps.payment_schedule_id AND
9973 del.org_id = ps.org_id and
9974 exists(select 1 from iex_delinquencies del1
9975 where del1.last_update_date>=trunc(sysdate-1) --changed for bug 13322580
9976 and del.customer_site_use_id=del1.customer_site_use_id
9977 and del.org_id=del1.org_id)
9978 group by del.customer_site_use_id, del.org_id;
9979
9980 BEGIN
9981
9982 l_max_fetches := to_number(nvl(fnd_profile.value('IEX_BATCH_SIZE'), '100000'));
9983 -- Bug 14197188 bibeura 26-Jun-2012
9984 l_cash := IEX_UTILITIES.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE','select NVL(FND_PROFILE.VALUE(''IEX_EXCHANGE_RATE_TYPE''),''Corporate'') from dual');
9985 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'DEFAULT_EXCHANGE_RATE_TYPE = ' || l_cash);
9986 FND_FILE.PUT_LINE(FND_FILE.LOG,'l_cash = ' || l_cash);
9987
9988 if p_mode='DLN' then
9989 LogMessage(FND_LOG.LEVEL_STATEMENT,'Starting..');
9990 -- Start Bug #6251657 bibeura 25-OCT-2007
9991 BEGIN
9992 OPEN C_BILLTO_DEL_DLN;
9993 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_billto_del_dln cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
9994 L_SITE_USE_ID.delete;
9995 L_NUMBER_OF_DELINQUENCIES.delete;
9996 L_PENDING_DELINQUENCIES.delete;
9997 L_COMPLETE_DELINQUENCIES.delete;
9998 L_ACTIVE_DELINQUENCIES.delete;
9999 L_PAST_DUE_INV_VALUE.delete;
10000 L_ORG_ID.delete;
10001
10002 LOOP
10003 FETCH C_BILLTO_DEL_DLN bulk collect
10004 INTO
10005 L_SITE_USE_ID,
10006 L_NUMBER_OF_DELINQUENCIES,
10007 L_PAST_DUE_INV_VALUE,
10008 L_PENDING_DELINQUENCIES,
10009 L_COMPLETE_DELINQUENCIES,
10010 L_ACTIVE_DELINQUENCIES,
10011 L_ORG_ID
10012 limit l_max_fetches;
10013 FND_FILE.PUT_LINE(FND_FILE.LOG, 'fetched records '||L_SITE_USE_ID.COUNT) ;
10014 IF L_SITE_USE_ID.COUNT = 0 THEN
10015 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_billto_del_dln ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
10016 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
10017 EXIT;
10018 ELSE
10019
10020 forall i IN L_SITE_USE_ID.FIRST .. L_SITE_USE_ID.LAST
10021 UPDATE IEX_DLN_UWQ_SUMMARY
10022 SET NUMBER_OF_DELINQUENCIES = L_NUMBER_OF_DELINQUENCIES(i),
10023 PAST_DUE_INV_VALUE = L_PAST_DUE_INV_VALUE(i),
10024 ACTIVE_DELINQUENCIES = L_ACTIVE_DELINQUENCIES(i),
10025 COMPLETE_DELINQUENCIES = L_COMPLETE_DELINQUENCIES(i),
10026 PENDING_DELINQUENCIES = L_PENDING_DELINQUENCIES(i)
10027 WHERE
10028 SITE_USE_ID = L_SITE_USE_ID(i)
10029 AND ORG_ID=L_ORG_ID(i);
10030 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_billto_del_dln updated ' || L_COLLECTOR_ID.count || ' rows ');
10031 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
10032 END IF;
10033 END LOOP;
10034 IF C_BILLTO_DEL_DLN % ISOPEN THEN
10035 CLOSE C_BILLTO_DEL_DLN;
10036 END IF;
10037
10038 EXCEPTION WHEN OTHERS THEN
10039 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Delinquency update received' || SQLERRM);
10040 END;
10041 -- End Bug #6251657 bibeura 25-OCT-2007
10042
10043 --Begin Bug 8707923 27-Jul-2009 barathsr
10044
10045 FND_FILE.PUT_LINE(FND_FILE.LOG, 'delete frm GT table at billto level');
10046
10047 delete from iex_pop_uwq_summ_gt;
10048
10049 FND_FILE.PUT_LINE(FND_FILE.LOG,'Insert into bill_to gt');
10050 insert into iex_pop_uwq_summ_gt(object_id,object_type,org_id)
10051 select del.customer_site_use_id,'IEX_BILLTO',del.org_id from iex_delinquencies del,hz_party_preferences party_pref
10052 where del.status in ('DELINQUENT','PRE-DELINQUENT')
10053 and del.party_cust_id=party_pref.party_id(+)
10054 and party_pref.module(+)='COLLECTIONS'
10055 and party_pref.category(+)='COLLECTIONS LEVEL'
10056 and party_pref.preference_code(+)='PARTY_ID'
10057 and nvl(decode(G_PARTY_LVL_ENB,'Y',party_pref.VALUE_VARCHAR2,null),G_SYSTEM_LEVEL)='BILL_TO'
10058 and not exists(select 1 from IEX_DLN_UWQ_SUMMARY dus where
10059 dus.site_use_id=del.customer_site_use_id
10060 and dus.org_id=del.org_id)
10061 group by customer_site_use_id,del.org_id;
10062 if sql%rowcount<=0 then
10063 return;
10064 else
10065 FND_FILE.PUT_LINE(FND_FILE.LOG,'Inserted into bill_to gt-->'||sql%rowcount);
10066 end if;
10067 else
10068 NULL;
10069 end if;
10070
10071 delete from iex_dln_uwq_summary summ
10072 where exists(select 1
10073 from iex_pop_uwq_summ_gt gt,hz_cust_site_uses_all hcsua,hz_cust_acct_sites_all hcasa,hz_cust_accounts hca
10074 where gt.object_id=hcsua.site_use_id
10075 and hcsua.cust_acct_site_id=hcasa.cust_acct_site_id
10076 and hcasa.cust_account_id=hca.cust_account_id
10077 and hca.party_id=summ.party_id
10078 and gt.org_id=summ.org_id)
10079 and summ.business_level<>'BILL_TO';
10080
10081 LogMessage(FND_LOG.LEVEL_STATEMENT,'No. of records deleted at BILL_TO level->' || sql%rowcount);
10082 commit;
10083
10084 --End Bug 8707923 27-Jul-2009 barathsr
10085 open c_iex_billto_uwq_summary;
10086 loop
10087 l_count := l_count +1;
10088 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'----------');
10089 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Bulk ' || l_count);
10090
10091 L_ORG_ID.delete;
10092 L_COLLECTOR_ID.delete;
10093 L_COLLECTOR_RESOURCE_ID.delete;
10094 L_COLLECTOR_RES_TYPE.delete;
10095 L_IEU_OBJECT_FUNCTION.delete;
10096 L_IEU_OBJECT_PARAMETERS.delete;
10097 L_IEU_MEDIA_TYPE_UUID.delete;
10098 L_IEU_PARAM_PK_COL.delete;
10099 L_IEU_PARAM_PK_VALUE.delete;
10100 L_RESOURCE_ID.delete;
10101 L_RESOURCE_TYPE.delete;
10102 L_PARTY_ID.delete;
10103 L_PARTY_NAME.delete;
10104 L_CUST_ACCOUNT_ID.delete;
10105 L_ACCOUNT_NAME.delete;
10106 L_ACCOUNT_NUMBER.delete;
10107 L_SITE_USE_ID.delete;
10108 L_LOCATION.delete;
10109 L_CURRENCY.delete;
10110 L_OP_INVOICES_COUNT.delete;
10111 L_OP_DEBIT_MEMOS_COUNT.delete;
10112 L_OP_DEPOSITS_COUNT.delete;
10113 L_OP_BILLS_RECEIVABLES_COUNT.delete;
10114 L_OP_CHARGEBACK_COUNT.delete;
10115 L_OP_CREDIT_MEMOS_COUNT.delete;
10116 L_UNRESOLVED_CASH_COUNT.delete;
10117 L_DISPUTED_INV_COUNT.delete;
10118 L_BEST_CURRENT_RECEIVABLES.delete;
10119 L_OP_INVOICES_VALUE.delete;
10120 L_OP_DEBIT_MEMOS_VALUE.delete;
10121 L_OP_DEPOSITS_VALUE.delete;
10122 L_OP_BILLS_RECEIVABLES_VALUE.delete;
10123 L_OP_CHARGEBACK_VALUE.delete;
10124 L_OP_CREDIT_MEMOS_VALUE.delete;
10125 L_UNRESOLVED_CASH_VALUE.delete;
10126 L_RECEIPTS_AT_RISK_VALUE.delete;
10127 L_INV_AMT_IN_DISPUTE.delete;
10128 L_PENDING_ADJ_VALUE.delete;
10129 L_PAST_DUE_INV_VALUE.delete;
10130 L_PAST_DUE_INV_INST_COUNT.delete;
10131 L_LAST_PAYMENT_DATE.delete;
10132 L_LAST_PAYMENT_AMOUNT.delete;
10133 L_LAST_PAYMENT_AMOUNT_CURR.delete;
10134 L_LAST_PAYMENT_NUMBER.delete;
10135 L_LAST_UPDATE_DATE.delete;
10136 L_LAST_UPDATED_BY.delete;
10137 L_CREATION_DATE.delete;
10138 L_CREATED_BY.delete;
10139 L_LAST_UPDATE_LOGIN.delete;
10140 L_NUMBER_OF_DELINQUENCIES.delete;
10141 L_ACTIVE_DELINQUENCIES.delete;
10142 L_COMPLETE_DELINQUENCIES.delete;
10143 L_PENDING_DELINQUENCIES.delete;
10144 L_SCORE.delete;
10145 -- Start for the bug#7562130 by PNAVEENK
10146 L_SCORE_ID.delete;
10147 L_SCORE_NAME.delete;
10148 L_COLLECTOR_RESOURCE_NAME.delete;
10149 -- end for the bug#7562130
10150 L_ADDRESS1.delete;
10151 L_CITY.delete;
10152 L_STATE.delete;
10153 L_COUNTY.delete;
10154 L_COUNTRY.delete;
10155 L_PROVINCE.delete;
10156 L_POSTAL_CODE.delete;
10157 L_PHONE_COUNTRY_CODE.delete;
10158 L_PHONE_AREA_CODE.delete;
10159 L_PHONE_NUMBER.delete;
10160 L_PHONE_EXTENSION.delete;
10161 L_NUMBER_OF_BANKRUPTCIES.delete;
10162 L_NUMBER_OF_PROMISES.delete;
10163 L_BROKEN_PROMISE_AMOUNT.delete;
10164 L_PROMISE_AMOUNT.delete;
10165 L_ACTIVE_PROMISES.delete;
10166 L_COMPLETE_PROMISES.delete;
10167 L_PENDING_PROMISES.delete;
10168 LogMessage(FND_LOG.LEVEL_STATEMENT,'Start fetching records...');
10169 FETCH c_iex_billto_uwq_summary bulk collect
10170 INTO
10171 L_ORG_ID,
10172 L_IEU_OBJECT_FUNCTION,
10173 L_IEU_OBJECT_PARAMETERS,
10174 L_IEU_MEDIA_TYPE_UUID,
10175 L_IEU_PARAM_PK_COL,
10176 L_IEU_PARAM_PK_VALUE,
10177 L_RESOURCE_ID,
10178 L_RESOURCE_TYPE,
10179 L_PARTY_ID,
10180 L_PARTY_NAME,
10181 L_CUST_ACCOUNT_ID,
10182 L_ACCOUNT_NAME,
10183 L_ACCOUNT_NUMBER,
10184 L_SITE_USE_ID,
10185 L_LOCATION,
10186 L_CURRENCY,
10187 L_OP_INVOICES_COUNT,
10188 L_OP_DEBIT_MEMOS_COUNT,
10189 L_OP_DEPOSITS_COUNT,
10190 L_OP_BILLS_RECEIVABLES_COUNT,
10191 L_OP_CHARGEBACK_COUNT,
10192 L_OP_CREDIT_MEMOS_COUNT,
10193 L_UNRESOLVED_CASH_COUNT,
10194 L_DISPUTED_INV_COUNT,
10195 L_BEST_CURRENT_RECEIVABLES,
10196 L_OP_INVOICES_VALUE,
10197 L_OP_DEBIT_MEMOS_VALUE,
10198 L_OP_DEPOSITS_VALUE,
10199 L_OP_BILLS_RECEIVABLES_VALUE,
10200 L_OP_CHARGEBACK_VALUE,
10201 L_OP_CREDIT_MEMOS_VALUE,
10202 L_UNRESOLVED_CASH_VALUE,
10203 L_RECEIPTS_AT_RISK_VALUE,
10204 L_INV_AMT_IN_DISPUTE,
10205 L_PENDING_ADJ_VALUE,
10206 L_PAST_DUE_INV_INST_COUNT,
10207 L_LAST_PAYMENT_DATE,
10208 L_LAST_PAYMENT_AMOUNT_CURR,
10209 L_LAST_UPDATE_DATE,
10210 L_LAST_UPDATED_BY,
10211 L_CREATION_DATE,
10212 L_CREATED_BY,
10213 L_LAST_UPDATE_LOGIN,
10214 L_ADDRESS1,
10215 L_CITY,
10216 L_STATE,
10217 L_COUNTY,
10218 L_COUNTRY,
10219 L_PROVINCE,
10220 L_POSTAL_CODE
10221 limit l_max_fetches;
10222
10223 IF L_IEU_OBJECT_FUNCTION.COUNT = 0 THEN
10224
10225 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
10226 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
10227 EXIT;
10228
10229 ELSE
10230
10231 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
10232 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Fetched ' || L_IEU_OBJECT_FUNCTION.COUNT || ' rows.');
10233 LogMessage(FND_LOG.LEVEL_STATEMENT,'Inserting...');
10234 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Start inserting time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
10235 LogMessage(FND_LOG.LEVEL_STATEMENT,'inserting records..');
10236 forall i IN L_IEU_OBJECT_FUNCTION.FIRST .. L_IEU_OBJECT_FUNCTION.LAST
10237 INSERT INTO IEX_DLN_UWQ_SUMMARY
10238 (DLN_UWQ_SUMMARY_ID
10239 ,ORG_ID
10240 ,IEU_OBJECT_FUNCTION
10241 ,IEU_OBJECT_PARAMETERS
10242 ,IEU_MEDIA_TYPE_UUID
10243 ,IEU_PARAM_PK_COL
10244 ,IEU_PARAM_PK_VALUE
10245 ,RESOURCE_ID
10246 ,RESOURCE_TYPE
10247 ,PARTY_ID
10248 ,PARTY_NAME
10249 ,CUST_ACCOUNT_ID
10250 ,ACCOUNT_NAME
10251 ,ACCOUNT_NUMBER
10252 ,SITE_USE_ID
10253 ,LOCATION
10254 ,CURRENCY
10255 ,OP_INVOICES_COUNT
10256 ,OP_DEBIT_MEMOS_COUNT
10257 ,OP_DEPOSITS_COUNT
10258 ,OP_BILLS_RECEIVABLES_COUNT
10259 ,OP_CHARGEBACK_COUNT
10260 ,OP_CREDIT_MEMOS_COUNT
10261 ,UNRESOLVED_CASH_COUNT
10262 ,DISPUTED_INV_COUNT
10263 ,BEST_CURRENT_RECEIVABLES
10264 ,OP_INVOICES_VALUE
10265 ,OP_DEBIT_MEMOS_VALUE
10266 ,OP_DEPOSITS_VALUE
10267 ,OP_BILLS_RECEIVABLES_VALUE
10268 ,OP_CHARGEBACK_VALUE
10269 ,OP_CREDIT_MEMOS_VALUE
10270 ,UNRESOLVED_CASH_VALUE
10271 ,RECEIPTS_AT_RISK_VALUE
10272 ,INV_AMT_IN_DISPUTE
10273 ,PENDING_ADJ_VALUE
10274 ,PAST_DUE_INV_INST_COUNT
10275 ,LAST_PAYMENT_DATE
10276 ,LAST_PAYMENT_AMOUNT_CURR
10277 ,LAST_UPDATE_DATE
10278 ,LAST_UPDATED_BY
10279 ,CREATION_DATE
10280 ,CREATED_BY
10281 ,LAST_UPDATE_LOGIN
10282 ,ADDRESS1
10283 ,CITY
10284 ,STATE
10285 ,COUNTY
10286 ,COUNTRY
10287 ,PROVINCE
10288 ,POSTAL_CODE
10289 ,NUMBER_OF_DELINQUENCIES
10290 ,NUMBER_OF_PROMISES
10291 ,NUMBER_OF_BANKRUPTCIES
10292 ,BUSINESS_LEVEL --Added for Bug 8707923 27-Jul-2009 barathsr
10293 ,REQUEST_ID
10294 ,PROGRAM_ID
10295 ,PROGRAM_APPLICATION_ID
10296 ,OBJECT_VERSION_NUMBER)
10297 VALUES
10298 (IEX_DLN_UWQ_SUMMARY_S.nextval,
10299 L_ORG_ID(i),
10300 L_IEU_OBJECT_FUNCTION(i),
10301 L_IEU_OBJECT_PARAMETERS(i),
10302 L_IEU_MEDIA_TYPE_UUID(i),
10303 L_IEU_PARAM_PK_COL(i),
10304 L_IEU_PARAM_PK_VALUE(i),
10305 L_RESOURCE_ID(i),
10306 L_RESOURCE_TYPE(i),
10307 L_PARTY_ID(i),
10308 L_PARTY_NAME(i),
10309 L_CUST_ACCOUNT_ID(i),
10310 L_ACCOUNT_NAME(i),
10311 L_ACCOUNT_NUMBER(i),
10312 L_SITE_USE_ID(i),
10313 L_LOCATION(i),
10314 L_CURRENCY(i),
10315 L_OP_INVOICES_COUNT(i),
10316 L_OP_DEBIT_MEMOS_COUNT(i),
10317 L_OP_DEPOSITS_COUNT(i),
10318 L_OP_BILLS_RECEIVABLES_COUNT(i),
10319 L_OP_CHARGEBACK_COUNT(i),
10320 L_OP_CREDIT_MEMOS_COUNT(i),
10321 L_UNRESOLVED_CASH_COUNT(i),
10322 L_DISPUTED_INV_COUNT(i),
10323 L_BEST_CURRENT_RECEIVABLES(i),
10324 L_OP_INVOICES_VALUE(i),
10325 L_OP_DEBIT_MEMOS_VALUE(i),
10326 L_OP_DEPOSITS_VALUE(i),
10327 L_OP_BILLS_RECEIVABLES_VALUE(i),
10328 L_OP_CHARGEBACK_VALUE(i),
10329 L_OP_CREDIT_MEMOS_VALUE(i),
10330 L_UNRESOLVED_CASH_VALUE(i),
10331 L_RECEIPTS_AT_RISK_VALUE(i),
10332 L_INV_AMT_IN_DISPUTE(i),
10333 L_PENDING_ADJ_VALUE(i),
10334 L_PAST_DUE_INV_INST_COUNT(i),
10335 L_LAST_PAYMENT_DATE(i),
10336 L_LAST_PAYMENT_AMOUNT_CURR(i),
10337 sysdate,
10338 FND_GLOBAL.USER_ID,
10339 sysdate,
10340 FND_GLOBAL.USER_ID,
10341 FND_GLOBAL.CONC_LOGIN_ID,
10342 L_ADDRESS1(i),
10343 L_CITY(i),
10344 L_STATE(i),
10345 L_COUNTY(i),
10346 L_COUNTRY(i),
10347 L_PROVINCE(i),
10348 L_POSTAL_CODE(i),
10349 0,
10350 0,
10351 0,
10352 'BILL_TO', --Added for Bug 8707923 27-Jul-2009 barathsr
10353 nvl(FND_GLOBAL.Conc_REQUEST_ID,0),
10354 FND_GLOBAL.CONC_PROGRAM_ID,
10355 FND_GLOBAL.PROG_APPL_ID,
10356 1);
10357
10358 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End inserting time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
10359 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Inserted ' || L_IEU_OBJECT_FUNCTION.COUNT || ' rows for business lvl-->'||p_level);
10360
10361 l_total := l_total + L_IEU_OBJECT_FUNCTION.COUNT;
10362 LogMessage(FND_LOG.LEVEL_STATEMENT,'So far processed ' || l_total || ' rows');
10363
10364
10365 END IF;
10366
10367 END LOOP;
10368 close c_iex_billto_uwq_summary;
10369
10370 OPEN c_strategy_summary;
10371 LOOP
10372 l_count := l_count +1;
10373 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'----------');
10374 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Bulk ' || l_count);
10375
10376 L_JTF_OBJECT_ID.delete;
10377 L_WORK_ITEM_ID.delete;
10378 L_SCHEDULE_START.delete;
10379 L_SCHEDULE_END.delete;
10380 L_WORK_TYPE.delete;
10381 L_CATEGORY_TYPE.delete;
10382 L_PRIORITY_TYPE.delete;
10383 L_wkitem_RESOURCE_ID.delete;
10384 L_STRATEGY_ID.delete;
10385 L_STRATEGY_TEMPLATE_ID.delete;
10386 L_WORK_ITEM_TEMPLATE_ID.delete;
10387 L_STATUS_CODE.delete;
10388 L_STR_STATUS.delete; -- Added for bug#7416344 by PNAVEENK on 2-4-2009
10389 L_START_TIME.delete;
10390 L_END_TIME.delete;
10391 L_WORK_ITEM_ORDER.delete;
10392 L_ESCALATED_YN.delete; --Added for bug#6981126 by schekuri on 27-Jun-2008
10393
10394 LogMessage(FND_LOG.LEVEL_STATEMENT,'Inited all arrays');
10395
10396 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Start fetching time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
10397 FETCH c_strategy_summary bulk collect
10398 INTO
10399 L_JTF_OBJECT_ID,
10400 L_WORK_ITEM_ID,
10401 L_SCHEDULE_START,
10402 L_SCHEDULE_END,
10403 L_CATEGORY_TYPE,
10404 L_WORK_TYPE,
10405 L_PRIORITY_TYPE,
10406 L_WKITEM_RESOURCE_ID,
10407 L_STRATEGY_ID,
10408 L_STRATEGY_TEMPLATE_ID,
10409 L_WORK_ITEM_TEMPLATE_ID,
10410 L_STATUS_CODE,
10411 L_STR_STATUS, -- Added for bug#7416344 by PNAVEENK on 2-4-2009
10412 L_START_TIME,
10413 L_END_TIME,
10414 L_WORK_ITEM_ORDER,
10415 L_ESCALATED_YN --Added for bug#6981126 by schekuri on 27-Jun-2008
10416 limit l_max_fetches;
10417
10418 LogMessage(FND_LOG.LEVEL_STATEMENT,L_JTF_OBJECT_ID.COUNT);
10419
10420 IF L_JTF_OBJECT_ID.COUNT = 0 THEN
10421
10422 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
10423 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
10424 CLOSE c_strategy_summary;
10425 EXIT;
10426
10427 ELSE
10428
10429 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
10430 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Fetched ' || L_JTF_OBJECT_ID.COUNT || ' rows.');
10431 LogMessage(FND_LOG.LEVEL_STATEMENT,' Updating table...');
10432 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Start updating time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
10433
10434 forall i IN L_JTF_OBJECT_ID.FIRST .. L_JTF_OBJECT_ID.LAST
10435 UPDATE IEX_DLN_UWQ_SUMMARY
10436 SET WORK_ITEM_ID = L_WORK_ITEM_ID(i),
10437 SCHEDULE_START = L_SCHEDULE_START(i),
10438 SCHEDULE_END = L_SCHEDULE_END(i),
10439 WORK_TYPE = L_WORK_TYPE(i),
10440 CATEGORY_TYPE = L_CATEGORY_TYPE(i),
10441 PRIORITY_TYPE = L_PRIORITY_TYPE(i),
10442 WKITEM_RESOURCE_ID = L_WKITEM_RESOURCE_ID(i),
10443 STRATEGY_ID = L_STRATEGY_ID(i),
10444 STRATEGY_TEMPLATE_ID = L_STRATEGY_TEMPLATE_ID(i),
10445 WORK_ITEM_TEMPLATE_ID = L_WORK_ITEM_TEMPLATE_ID(i),
10446 STATUS_CODE = L_STATUS_CODE(i),
10447 STR_STATUS = L_STR_STATUS(i), -- Added for bug#7416344 by PNAVEENK on 2-4-2009
10448 START_TIME = L_START_TIME(i),
10449 END_TIME = L_END_TIME(i),
10450 WORK_ITEM_ORDER = L_WORK_ITEM_ORDER(i),
10451 WKITEM_ESCALATED_YN = L_ESCALATED_YN(i)--Added for bug#6981126 by schekuri on 27-Jun-2008
10452 WHERE SITE_USE_ID = L_JTF_OBJECT_ID(i);
10453
10454
10455 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Updated ' || L_JTF_OBJECT_ID.COUNT || ' rows');
10456 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End updating time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
10457
10458 l_total := l_total + L_JTF_OBJECT_ID.COUNT;
10459 LogMessage(FND_LOG.LEVEL_STATEMENT,'So far processed ' || l_total || ' rows');
10460
10461 END IF;
10462
10463 END LOOP;
10464
10465 IF c_strategy_summary % ISOPEN THEN
10466 CLOSE c_strategy_summary;
10467 END IF;
10468
10469 BEGIN
10470 OPEN C_COLLECTOR_PROF;
10471 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open C_COLLECTOR_PROF cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
10472 L_COLLECTOR_RESOURCE_ID.delete ;
10473 L_COLLECTOR_RESOURCE_NAME.delete; -- Added for the bug#7562130
10474 L_COLLECTOR_ID.delete;
10475 L_RESOURCE_TYPE.delete;
10476 L_PARTY_ID.delete;
10477 L_CUST_ACCOUNT_ID.delete;
10478 L_SITE_USE_ID.delete;
10479
10480 LOOP
10481 FETCH C_COLLECTOR_PROF bulk collect
10482 INTO
10483 L_COLLECTOR_ID,
10484 L_COLLECTOR_RESOURCE_ID,
10485 L_COLLECTOR_RESOURCE_NAME, -- Added for the bug#7562130
10486 L_RESOURCE_TYPE,
10487 L_PARTY_ID,
10488 L_CUST_ACCOUNT_ID,
10489 L_SITE_USE_ID
10490 limit l_max_fetches;
10491 IF L_COLLECTOR_RESOURCE_ID.COUNT = 0 THEN
10492
10493 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: C_COLLECTOR_PROF ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
10494 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
10495 EXIT;
10496
10497 ELSE
10498
10499 forall i IN L_SITE_USE_ID.FIRST .. L_SITE_USE_ID.LAST
10500 UPDATE IEX_DLN_UWQ_SUMMARY
10501 SET COLLECTOR_RESOURCE_ID = L_COLLECTOR_RESOURCE_ID(i),
10502 COLLECTOR_RESOURCE_NAME = L_COLLECTOR_RESOURCE_NAME(i), -- Added for the bug#7562130
10503 COLLECTOR_RES_TYPE = L_RESOURCE_TYPE(i),
10504 collector_id = l_collector_id(i),
10505 last_update_date = SYSDATE,
10506 last_updated_by = FND_GLOBAL.USER_ID
10507 WHERE
10508 SITE_USE_ID = L_SITE_USE_ID(i);
10509 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' C_COLLECTOR_PROF updated ' || L_COLLECTOR_ID.count || ' rows ');
10510 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
10511
10512
10513 END IF;
10514 END LOOP;
10515 IF C_COLLECTOR_PROF % ISOPEN THEN
10516 CLOSE C_COLLECTOR_PROF;
10517 END IF;
10518
10519 EXCEPTION WHEN OTHERS THEN
10520 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'C_COLLECTOR_PROF update received' || SQLERRM);
10521 END;
10522
10523 BEGIN
10524 OPEN c_contact_point;
10525 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Opened Cursor c_contact_point cursor at time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
10526 L_PARTY_ID.delete;
10527 L_PHONE_COUNTRY_CODE.delete;
10528 L_PHONE_AREA_CODE.delete;
10529 L_PHONE_NUMBER.delete;
10530 L_PHONE_EXTENSION.delete;
10531
10532
10533 LOOP
10534 FETCH c_contact_point bulk collect
10535 INTO
10536 L_PARTY_ID,
10537 L_PHONE_COUNTRY_CODE,
10538 L_PHONE_AREA_CODE,
10539 L_PHONE_NUMBER,
10540 L_PHONE_EXTENSION
10541
10542 limit l_max_fetches;
10543 IF L_PARTY_ID.COUNT = 0 THEN
10544
10545 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'c_contact_point Cursor Fetching end time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
10546 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
10547 EXIT;
10548
10549 ELSE
10550
10551 forall i IN L_PARTY_ID.FIRST .. L_PARTY_ID.LAST
10552
10553 UPDATE IEX_DLN_UWQ_SUMMARY
10554 SET PHONE_COUNTRY_CODE = L_PHONE_COUNTRY_CODE(i),
10555 PHONE_AREA_CODE = L_PHONE_AREA_CODE(i),
10556 PHONE_NUMBER = L_PHONE_NUMBER(i),
10557 PHONE_EXTENSION = L_PHONE_EXTENSION(i),
10558 last_update_date = SYSDATE,
10559 last_updated_by = FND_GLOBAL.USER_ID
10560 WHERE PARTY_ID = L_PARTY_ID(i);
10561 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_contact_point Cursor updated ' ||L_PARTY_ID.count || ' rows ');
10562 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
10563
10564
10565 END IF;
10566 END LOOP;
10567 CLOSE c_contact_point;
10568
10569
10570 EXCEPTION WHEN OTHERS THEN
10571 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' Contact point raised error ' || SQLERRM);
10572 END;
10573 -- gnramasa
10574 BEGIN
10575 OPEN C_BILLTO_DEL;
10576 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_billto_del cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
10577 L_SITE_USE_ID.delete;
10578 L_NUMBER_OF_DELINQUENCIES.delete;
10579 L_PENDING_DELINQUENCIES.delete;
10580 L_COMPLETE_DELINQUENCIES.delete;
10581 L_ACTIVE_DELINQUENCIES.delete;
10582
10583 LOOP
10584 FETCH C_BILLTO_DEL bulk collect
10585 INTO
10586 L_SITE_USE_ID,
10587 L_NUMBER_OF_DELINQUENCIES,
10588 L_PENDING_DELINQUENCIES,
10589 L_COMPLETE_DELINQUENCIES,
10590 L_ACTIVE_DELINQUENCIES
10591 limit l_max_fetches;
10592 IF L_SITE_USE_ID.COUNT = 0 THEN
10593
10594 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_billto_del ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
10595 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
10596 EXIT;
10597
10598 ELSE
10599
10600 forall i IN L_SITE_USE_ID.FIRST .. L_SITE_USE_ID.LAST
10601 UPDATE IEX_DLN_UWQ_SUMMARY
10602 SET NUMBER_OF_DELINQUENCIES = L_NUMBER_OF_DELINQUENCIES(i),
10603 ACTIVE_DELINQUENCIES = L_ACTIVE_DELINQUENCIES(i),
10604 COMPLETE_DELINQUENCIES = L_COMPLETE_DELINQUENCIES(i),
10605 PENDING_DELINQUENCIES = L_PENDING_DELINQUENCIES(i)
10606 WHERE
10607 SITE_USE_ID = L_SITE_USE_ID(i);
10608 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_billto_del updated ' || L_COLLECTOR_ID.count || ' rows ');
10609 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
10610
10611
10612 END IF;
10613 END LOOP;
10614 IF C_BILLTO_DEL % ISOPEN THEN
10615 CLOSE C_BILLTO_DEL;
10616 END IF;
10617
10618 EXCEPTION WHEN OTHERS THEN
10619 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Delinquency update received' || SQLERRM);
10620 END;
10621
10622 BEGIN
10623 OPEN C_BILLTO_PRO;
10624 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_billto_pro cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
10625 L_SITE_USE_ID.delete;
10626 L_ACTIVE_PROMISES.delete;
10627 L_COMPLETE_PROMISES.delete;
10628 L_PENDING_PROMISES.delete;
10629
10630 LOOP
10631 FETCH C_BILLTO_PRO bulk collect
10632 INTO
10633 L_SITE_USE_ID,
10634 L_PENDING_PROMISES,
10635 L_COMPLETE_PROMISES,
10636 L_ACTIVE_PROMISES
10637 limit l_max_fetches;
10638 IF L_SITE_USE_ID.COUNT = 0 THEN
10639
10640 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_billto_pro ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
10641 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
10642 EXIT;
10643
10644 ELSE
10645
10646 forall i IN L_SITE_USE_ID.FIRST .. L_SITE_USE_ID.LAST
10647 UPDATE IEX_DLN_UWQ_SUMMARY
10648 SET ACTIVE_PROMISES = L_ACTIVE_PROMISES(i),
10649 COMPLETE_PROMISES = L_COMPLETE_PROMISES(i),
10650 PENDING_PROMISES = L_PENDING_PROMISES(i)
10651 WHERE
10652 SITE_USE_ID = L_SITE_USE_ID(i);
10653 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_billto_pro updated ' || L_COLLECTOR_ID.count || ' rows ');
10654 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
10655
10656
10657 END IF;
10658 END LOOP;
10659 IF C_BILLTO_PRO % ISOPEN THEN
10660 CLOSE C_BILLTO_PRO;
10661 END IF;
10662
10663 EXCEPTION WHEN OTHERS THEN
10664 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Promise update received' || SQLERRM);
10665 END;
10666
10667 BEGIN
10668 OPEN C_BILLTO_PRO_SUMM;
10669 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_billto_pro_summ cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
10670 L_SITE_USE_ID.delete;
10671 L_NUMBER_OF_PROMISES.delete;
10672 L_BROKEN_PROMISE_AMOUNT .delete;
10673 L_PROMISE_AMOUNT.delete;
10674
10675 LOOP
10676 FETCH C_BILLTO_PRO_SUMM bulk collect
10677 INTO
10678 L_SITE_USE_ID,
10679 L_NUMBER_OF_PROMISES,
10680 L_BROKEN_PROMISE_AMOUNT,
10681 L_PROMISE_AMOUNT
10682 limit l_max_fetches;
10683 IF L_SITE_USE_ID.COUNT = 0 THEN
10684
10685 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_billto_pro_summ ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
10686 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
10687 EXIT;
10688
10689 ELSE
10690
10691 forall i IN L_SITE_USE_ID.FIRST .. L_SITE_USE_ID.LAST
10692 UPDATE IEX_DLN_UWQ_SUMMARY
10693 SET NUMBER_OF_PROMISES = L_NUMBER_OF_PROMISES(i),
10694 BROKEN_PROMISE_AMOUNT = L_BROKEN_PROMISE_AMOUNT(i),
10695 PROMISE_AMOUNT = L_PROMISE_AMOUNT(i)
10696 WHERE
10697 SITE_USE_ID = L_SITE_USE_ID(i);
10698 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_billto_pro_summ updated ' || L_COLLECTOR_ID.count || ' rows ');
10699 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
10700
10701
10702 END IF;
10703 END LOOP;
10704 IF C_BILLTO_PRO_SUMM % ISOPEN THEN
10705 CLOSE C_BILLTO_PRO_SUMM;
10706 END IF;
10707
10708 EXCEPTION WHEN OTHERS THEN
10709 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Broken Promise update received' || SQLERRM);
10710 END;
10711
10712 BEGIN
10713 OPEN C_BILLTO_SCORE;
10714 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_billto_score cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
10715 L_SITE_USE_ID.delete;
10716 L_SCORE.delete;
10717 L_SCORE_ID.delete; -- Added for the bug#7562130
10718 L_SCORE_NAME.delete; -- Added for the bug#7562130
10719
10720 LOOP
10721 FETCH C_BILLTO_SCORE bulk collect
10722 INTO
10723 L_SITE_USE_ID,
10724 L_SCORE,
10725 L_SCORE_ID, -- Added for the bug#7562130
10726 L_SCORE_NAME -- Added for the bug#7562130
10727 limit l_max_fetches;
10728 IF L_SITE_USE_ID.COUNT = 0 THEN
10729
10730 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_billto_score ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
10731 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
10732 EXIT;
10733
10734 ELSE
10735
10736 forall i IN L_SITE_USE_ID.FIRST .. L_SITE_USE_ID.LAST
10737 UPDATE IEX_DLN_UWQ_SUMMARY
10738 SET SCORE = L_SCORE(i),
10739 SCORE_ID = L_SCORE_ID(i), -- Added for the bug#7562130
10740 SCORE_NAME = L_SCORE_NAME(i) -- Added for the bug#7562130
10741
10742 WHERE
10743 SITE_USE_ID = L_SITE_USE_ID(i);
10744 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_billto_score updated ' || L_COLLECTOR_ID.count || ' rows ');
10745 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
10746
10747
10748 END IF;
10749 END LOOP;
10750 IF C_BILLTO_SCORE % ISOPEN THEN
10751 CLOSE C_BILLTO_SCORE;
10752 END IF;
10753
10754 EXCEPTION WHEN OTHERS THEN
10755 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Score update received' || SQLERRM);
10756 END;
10757
10758 BEGIN
10759 OPEN C_BILLTO_PAST_DUE;
10760 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_billto_past_due cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
10761 L_SITE_USE_ID.delete;
10762 L_PAST_DUE_INV_VALUE.delete;
10763
10764 LOOP
10765 FETCH C_BILLTO_PAST_DUE bulk collect
10766 INTO
10767 L_SITE_USE_ID,
10768 L_PAST_DUE_INV_VALUE
10769 limit l_max_fetches;
10770 IF L_SITE_USE_ID.COUNT = 0 THEN
10771
10772 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_billto_past_due ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
10773 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
10774 EXIT;
10775
10776 ELSE
10777
10778 forall i IN L_SITE_USE_ID.FIRST .. L_SITE_USE_ID.LAST
10779 UPDATE IEX_DLN_UWQ_SUMMARY
10780 SET PAST_DUE_INV_VALUE = L_PAST_DUE_INV_VALUE(i)
10781 WHERE
10782 SITE_USE_ID = L_SITE_USE_ID(i);
10783 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_billto_past_due updated ' || L_COLLECTOR_ID.count || ' rows ');
10784 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
10785
10786
10787 END IF;
10788 END LOOP;
10789 IF C_BILLTO_PAST_DUE % ISOPEN THEN
10790 CLOSE C_BILLTO_PAST_DUE;
10791 END IF;
10792
10793 EXCEPTION WHEN OTHERS THEN
10794 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Past due invoice update received' || SQLERRM);
10795 END;
10796
10797 BEGIN
10798 OPEN C_LAST_PAYMENT_NO_AMOUNT;
10799 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_last_payment_no_amount cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
10800 L_SITE_USE_ID.delete;
10801 L_LAST_PAYMENT_NUMBER.delete;
10802 L_LAST_PAYMENT_AMOUNT.delete;
10803
10804 LOOP
10805 FETCH C_LAST_PAYMENT_NO_AMOUNT bulk collect
10806 INTO
10807 L_SITE_USE_ID,
10808 L_LAST_PAYMENT_NUMBER,
10809 L_LAST_PAYMENT_AMOUNT
10810 limit l_max_fetches;
10811 IF L_SITE_USE_ID.COUNT = 0 THEN
10812
10813 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_last_payment_no_amount ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
10814 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
10815 EXIT;
10816
10817 ELSE
10818
10819 forall i IN L_SITE_USE_ID.FIRST .. L_SITE_USE_ID.LAST
10820 UPDATE IEX_DLN_UWQ_SUMMARY
10821 SET LAST_PAYMENT_NUMBER = L_LAST_PAYMENT_NUMBER(i),
10822 LAST_PAYMENT_AMOUNT = L_LAST_PAYMENT_AMOUNT(i)
10823 WHERE
10824 SITE_USE_ID = L_SITE_USE_ID(i);
10825 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_last_payment_no_amount updated ' || L_COLLECTOR_ID.count || ' rows ');
10826 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
10827
10828
10829 END IF;
10830 END LOOP;
10831 IF C_LAST_PAYMENT_NO_AMOUNT % ISOPEN THEN
10832 CLOSE C_LAST_PAYMENT_NO_AMOUNT;
10833 END IF;
10834
10835 EXCEPTION WHEN OTHERS THEN
10836 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Last payment no and amount update received' || SQLERRM);
10837 END;
10838
10839 BEGIN
10840 OPEN C_BANKRUPTCIES;
10841 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_bankruptcies cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
10842 L_SITE_USE_ID.delete;
10843 L_NUMBER_OF_BANKRUPTCIES.delete;
10844
10845 LOOP
10846 FETCH C_BANKRUPTCIES bulk collect
10847 INTO
10848 L_SITE_USE_ID,
10849 L_NUMBER_OF_BANKRUPTCIES
10850 limit l_max_fetches;
10851 IF L_SITE_USE_ID.COUNT = 0 THEN
10852
10853 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_bankruptcies ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
10854 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
10855 EXIT;
10856
10857 ELSE
10858
10859 forall i IN L_SITE_USE_ID.FIRST .. L_SITE_USE_ID.LAST
10860 UPDATE IEX_DLN_UWQ_SUMMARY
10861 SET NUMBER_OF_BANKRUPTCIES = L_NUMBER_OF_BANKRUPTCIES(i)
10862 WHERE
10863 SITE_USE_ID = L_SITE_USE_ID(i);
10864 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_bankruptcies updated ' || L_COLLECTOR_ID.count || ' rows ');
10865 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
10866
10867
10868 END IF;
10869 END LOOP;
10870 IF C_BANKRUPTCIES % ISOPEN THEN
10871 CLOSE C_BANKRUPTCIES;
10872 END IF;
10873
10874 EXCEPTION WHEN OTHERS THEN
10875 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Last payment no and amount update received' || SQLERRM);
10876 END;
10877
10878
10879 COMMIT;
10880 LogMessage(FND_LOG.LEVEL_STATEMENT,'Commited');
10881
10882 EXCEPTION
10883 WHEN OTHERS THEN
10884 LogMessage(FND_LOG.LEVEL_STATEMENT,sqlerrm);
10885 END BILLTO_REFRESH_SUMMARY_INCR;
10886
10887 PROCEDURE account_refresh_summary_incr(
10888 x_errbuf OUT nocopy VARCHAR2,
10889 x_retcode OUT nocopy VARCHAR2,
10890 FROM_DATE IN VARCHAR2,
10891 P_MODE IN VARCHAR2 DEFAULT 'CP',
10892 p_level in varchar2)--Added for Bug 8707923 27-Jul-2009 barathsr
10893 is
10894 l_count number;
10895
10896 CURSOR c_iex_account_uwq_summary IS
10897 SELECT
10898 trx_summ.org_id,
10899 objb.object_function ieu_object_function,
10900 objb.object_parameters || ' DISPLAYCBO=IEXTRMAN' ieu_object_parameters,
10901 '' ieu_media_type_uuid,
10902 'CUST_ACCOUNT_ID' ieu_param_pk_col,
10903 to_char(trx_summ.cust_account_id) ieu_param_pk_value,
10904 1 resource_id,
10905 'RS_EMPLOYEE' resource_type,
10906 party.party_id party_id,
10907 party.party_name party_name,
10908 trx_summ.cust_account_id cust_account_id,
10909 acc.account_name account_name,
10910 acc.account_number account_number,
10911 to_number(null) site_use_id,
10912 null location,
10913 max(gl.CURRENCY_CODE) currency,
10914 SUM(trx_summ.op_invoices_count) op_invoices_count,
10915 SUM(trx_summ.op_debit_memos_count) op_debit_memos_count,
10916 SUM(trx_summ.op_deposits_count) op_deposits_count,
10917 SUM(trx_summ.op_bills_receivables_count) op_bills_receivables_count,
10918 SUM(trx_summ.op_chargeback_count) op_chargeback_count,
10919 SUM(trx_summ.op_credit_memos_count) op_credit_memos_count,
10920 SUM(trx_summ.unresolved_cash_count) unresolved_cash_count,
10921 SUM(trx_summ.disputed_inv_count) disputed_inv_count,
10922 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.best_current_receivables,
10923 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
10924 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.best_current_receivables))) best_current_receivables,
10925 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_invoices_value,
10926 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
10927 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_invoices_value))) op_invoices_value,
10928 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_debit_memos_value,
10929 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
10930 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_debit_memos_value))) op_debit_memos_value,
10931 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_deposits_value,
10932 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
10933 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_deposits_value))) op_deposits_value,
10934 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_bills_receivables_value,
10935 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
10936 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_bills_receivables_value))) op_bills_receivables_value,
10937 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_chargeback_value,
10938 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
10939 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_chargeback_value))) op_chargeback_value,
10940 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_credit_memos_value,
10941 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
10942 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_credit_memos_value))) op_credit_memos_value,
10943 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.unresolved_cash_value,
10944 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
10945 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.unresolved_cash_value))) unresolved_cash_value,
10946 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.receipts_at_risk_value,
10947 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
10948 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.receipts_at_risk_value))) receipts_at_risk_value,
10949 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.inv_amt_in_dispute,
10950 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
10951 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.inv_amt_in_dispute))) inv_amt_in_dispute,
10952 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.pending_adj_value,
10953 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
10954 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.pending_adj_value))) pending_adj_value,
10955 SUM(trx_summ.past_due_inv_inst_count) past_due_inv_inst_count,
10956 MAX(trx_summ.last_payment_date) last_payment_date,
10957 max(gl.CURRENCY_CODE) last_payment_amount_curr,
10958 MAX(trx_summ.last_update_date) last_update_date,
10959 MAX(trx_summ.last_updated_by) last_updated_by,
10960 MAX(trx_summ.creation_date) creation_date,
10961 MAX(trx_summ.created_by) created_by,
10962 MAX(trx_summ.last_update_login) last_update_login,
10963 party.address1 address1,
10964 party.city city,
10965 party.state state,
10966 party.county county,
10967 fnd_terr.territory_short_name country,
10968 party.province province,
10969 party.postal_code postal_code
10970 FROM ar_trx_bal_summary trx_summ,
10971 hz_cust_accounts acc,
10972 hz_parties party,
10973 jtf_objects_b objb,
10974 fnd_territories_tl fnd_terr,
10975 GL_SETS_OF_BOOKS gl,
10976 AR_SYSTEM_PARAMETERS_all sys
10977 WHERE
10978 trx_summ.reference_1 = '1'
10979 AND trx_summ.cust_account_id = acc.cust_account_id
10980 AND acc.party_id = party.party_id
10981 AND objb.object_code = 'IEX_ACCOUNT'
10982 AND objb.object_code <> 'IEX_DELINQUENCY' --Added for Bug 8707923 27-Jul-2009 barathsr
10983 AND party.country = fnd_terr.territory_code(+)
10984 AND fnd_terr.LANGUAGE(+) = userenv('LANG')
10985 and gl.SET_OF_BOOKS_ID = sys.SET_OF_BOOKS_ID
10986 and trx_summ.org_id = sys.org_id
10987 and trx_summ.cust_account_id in (select temp.object_id from iex_pop_uwq_summ_gt temp where
10988 temp.org_id=trx_summ.org_id)
10989 GROUP BY trx_summ.org_id,
10990 objb.object_function,
10991 objb.object_parameters,
10992 party.party_id,
10993 party.party_name,
10994 trx_summ.cust_account_id,
10995 acc.account_name,
10996 acc.account_number,
10997 party.address1,
10998 party.city,
10999 party.state,
11000 party.county,
11001 fnd_terr.territory_short_name,
11002 party.province,
11003 party.postal_code;
11004
11005 CURSOR c_strategy_summary IS
11006 select strat.jtf_object_id,
11007 wkitem.WORK_ITEM_ID,
11008 wkitem.schedule_start schedule_start,
11009 wkitem.schedule_end schedule_end,
11010 stry_temp_wkitem.category_type category,
11011 stry_temp_wkitem.WORK_TYPE,
11012 stry_temp_wkitem.PRIORITY_TYPE,
11013 wkitem.resource_id,
11014 wkitem.strategy_id,
11015 strat.strategy_template_id,
11016 wkitem.work_item_template_id,
11017 wkitem.status_code,
11018 strat.status_code, -- added for bug#7416344 by PNAVEENK on 2-4-2009
11019 -- wkitem.creation_date start_time,
11020 wkitem.execute_start start_time, -- Added for bug#8306620 by PNAVEENk on 3-4-2009
11021 wkitem.execute_end end_time,-- snuthala 28/08/2008 bug #6745580
11022 wkitem.work_item_order wkitem_order,
11023 wkitem.escalated_yn --Added for bug#6981126 by schekuri on 27-Jul-2008
11024 from iex_strategies strat,
11025 iex_strategy_work_items wkitem,
11026 iex_stry_temp_work_items_b stry_temp_wkitem,
11027 iex_pop_uwq_summ_gt temp
11028 where strat.jtf_object_type = temp.object_type
11029 AND strat.status_code IN('OPEN', 'ONHOLD')
11030 AND wkitem.strategy_id = strat.strategy_id
11031 AND wkitem.status_code IN('OPEN', 'ONHOLD')
11032 AND wkitem.work_item_template_id = stry_temp_wkitem.work_item_temp_id
11033 AND strat.jtf_object_id = temp.object_id;
11034
11035 -- Start for the bug#7562130 by PNAVEENK
11036 CURSOR C_COLLECTOR_PROF IS
11037 SELECT
11038 hp.collector_id,
11039 ac.resource_id,
11040 decode(ac.resource_type, 'RS_RESOURCE' , rs.source_name , rg.group_name) collector_resource_name,
11041 ac.resource_type,
11042 hp.party_id,
11043 hp.cust_account_id
11044 FROM
11045 hz_customer_profiles hp,
11046 ar_collectors ac,
11047 iex_pop_uwq_summ_gt temp,
11048 jtf_rs_resource_extns rs,
11049 JTF_RS_GROUPS_VL rg
11050 WHERE
11051 hp.site_use_id is null
11052 and hp.cust_account_id=temp.object_id
11053 and hp.collector_id=ac.collector_id
11054 and rs.resource_id(+) = ac.resource_id
11055 and rg.group_id (+) = ac.resource_id;
11056 -- end for the bug#7562130
11057
11058 CURSOR C_CONTACT_POINT IS
11059 SELECT
11060 ids.party_id party_id,
11061 phone.phone_country_code phone_country_code,
11062 phone.phone_area_code phone_area_code,
11063 phone.phone_number phone_number,
11064 phone.phone_extension phone_extension
11065 FROM
11066 hz_contact_points phone,
11067 iex_dln_uwq_summary ids,
11068 iex_pop_uwq_summ_gt temp
11069 WHERE
11070 phone.owner_table_id = ids.party_id
11071 AND phone.owner_table_name = 'HZ_PARTIES'
11072 AND phone.contact_point_type = 'PHONE'
11073 and phone.primary_by_purpose = 'Y'
11074 AND phone.contact_point_purpose = 'COLLECTIONS'
11075 AND phone.phone_line_type NOT IN('PAGER', 'FAX')
11076 AND phone.status = 'A'
11077 AND nvl(phone.do_not_use_flag, 'N') = 'N'
11078 AND ids.cust_account_id = temp.object_id;
11079
11080 L_ORG_ID number_list;
11081 L_COLLECTOR_ID number_list;
11082 L_COLLECTOR_RESOURCE_ID number_list;
11083 L_COLLECTOR_RES_TYPE varchar_30_list;
11084 L_IEU_OBJECT_FUNCTION varchar_30_list;
11085 L_IEU_OBJECT_PARAMETERS varchar_2020_list;
11086 L_IEU_MEDIA_TYPE_UUID varchar_10_list;
11087 L_IEU_PARAM_PK_COL varchar_40_list;
11088 L_IEU_PARAM_PK_VALUE varchar_40_list;
11089 L_RESOURCE_ID number_list;
11090 L_RESOURCE_TYPE varchar_20_list;
11091 L_PARTY_ID number_list;
11092 L_PARTY_NAME varchar_360_list;
11093 L_CUST_ACCOUNT_ID number_list;
11094 L_ACCOUNT_NAME varchar_240_list;
11095 L_ACCOUNT_NUMBER varchar_30_list;
11096 L_SITE_USE_ID number_list;
11097 L_LOCATION varchar_60_list;
11098 L_CURRENCY varchar_20_list;
11099 L_OP_INVOICES_COUNT number_list;
11100 L_OP_DEBIT_MEMOS_COUNT number_list;
11101 L_OP_DEPOSITS_COUNT number_list;
11102 L_OP_BILLS_RECEIVABLES_COUNT number_list;
11103 L_OP_CHARGEBACK_COUNT number_list;
11104 L_OP_CREDIT_MEMOS_COUNT number_list;
11105 L_UNRESOLVED_CASH_COUNT number_list;
11106 L_DISPUTED_INV_COUNT number_list;
11107 L_BEST_CURRENT_RECEIVABLES number_list;
11108 L_OP_INVOICES_VALUE number_list;
11109 L_OP_DEBIT_MEMOS_VALUE number_list;
11110 L_OP_DEPOSITS_VALUE number_list;
11111 L_OP_BILLS_RECEIVABLES_VALUE number_list;
11112 L_OP_CHARGEBACK_VALUE number_list;
11113 L_OP_CREDIT_MEMOS_VALUE number_list;
11114 L_UNRESOLVED_CASH_VALUE number_list;
11115 L_RECEIPTS_AT_RISK_VALUE number_list;
11116 L_INV_AMT_IN_DISPUTE number_list;
11117 L_PENDING_ADJ_VALUE number_list;
11118 L_PAST_DUE_INV_VALUE number_list;
11119 L_PAST_DUE_INV_INST_COUNT number_list;
11120 L_LAST_PAYMENT_DATE date_list;
11121 L_LAST_PAYMENT_AMOUNT number_list;
11122 L_LAST_PAYMENT_AMOUNT_CURR varchar_20_list;
11123 L_LAST_PAYMENT_NUMBER varchar_30_list;
11124 L_LAST_UPDATE_DATE date_list;
11125 L_LAST_UPDATED_BY number_list;
11126 L_CREATION_DATE date_list;
11127 L_CREATED_BY number_list;
11128 L_LAST_UPDATE_LOGIN number_list;
11129 L_NUMBER_OF_DELINQUENCIES number_list;
11130 L_ACTIVE_DELINQUENCIES number_list;
11131 L_COMPLETE_DELINQUENCIES number_list;
11132 L_PENDING_DELINQUENCIES number_list;
11133 L_SCORE number_list;
11134 -- Start for the bug#7562130 by PNAVEENK
11135 L_SCORE_ID number_list;
11136 L_SCORE_NAME varchar_240_list;
11137 L_COLLECTOR_RESOURCE_NAME varchar_240_list;
11138 -- End for the bug#7562130
11139 L_ADDRESS1 varchar_240_list;
11140 L_CITY varchar_60_list;
11141 L_STATE varchar_60_list;
11142 L_COUNTY varchar_60_list;
11143 L_COUNTRY varchar_80_list;
11144 L_PROVINCE varchar_60_list;
11145 L_POSTAL_CODE varchar_60_list;
11146 L_PHONE_COUNTRY_CODE varchar_10_list;
11147 L_PHONE_AREA_CODE varchar_10_list;
11148 L_PHONE_NUMBER varchar_40_list;
11149 L_PHONE_EXTENSION varchar_20_list;
11150 L_NUMBER_OF_BANKRUPTCIES number_list;
11151 L_NUMBER_OF_PROMISES number_list;
11152 L_BROKEN_PROMISE_AMOUNT number_list;
11153 L_PROMISE_AMOUNT number_list;
11154 L_ACTIVE_PROMISES number_list;
11155 L_COMPLETE_PROMISES number_list;
11156 L_PENDING_PROMISES number_list;
11157 L_WORK_ITEM_ID number_list;
11158 L_SCHEDULE_START date_list;
11159 L_SCHEDULE_END date_list;
11160 L_WORK_TYPE varchar_30_list;
11161 L_CATEGORY_TYPE varchar_30_list;
11162 L_PRIORITY_TYPE varchar_30_list;
11163 L_JTF_OBJECT_ID number_list;
11164 l_wkitem_resource_id number_list;
11165 l_strategy_id number_list;
11166 l_strategy_template_id number_list;
11167 l_work_item_template_id number_list;
11168 l_status_code varchar_30_list;
11169 l_str_status varchar_30_list; -- Added for bug#7416344 by PNAVEENK on 2-4-2009
11170 l_start_time date_list;
11171 l_end_time date_list;
11172 l_work_item_order number_list;
11173 l_escalated_yn varchar_10_list; --Added for bug#6981126 by schekuri on 27-Jun-2008
11174
11175 l_max_fetches NUMBER;
11176 l_total NUMBER;
11177 l_cash VARCHAR2(240); -- Bug 14197188 bibeura 26-Jun-2012
11178
11179 cursor c_account_del is
11180 select del.cust_account_id,
11181 count(1) number_of_delinquencies,
11182 max(decode(uwq_status,'PENDING',(decode(sign(TRUNC(uwq_active_date) - TRUNC(sysdate)),1,1)))) pending_delinquencies,
11183 max(decode(uwq_status,'COMPLETE',(decode(sign(TRUNC(uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') - TRUNC(sysdate)),1,1)))) complete_delinquencies,
11184 max(decode(uwq_status,NULL,1,'ACTIVE',1,'PENDING',(decode(sign(TRUNC(uwq_active_date) - TRUNC(sysdate)),-1,1,0,1)))) active_delinquencies
11185 from iex_delinquencies_all del,
11186 iex_pop_uwq_summ_gt temp
11187 WHERE del.cust_account_id = temp.object_id AND
11188 del.org_id = temp.org_id and
11189 del.status IN('DELINQUENT', 'PREDELINQUENT')
11190 group by del.cust_account_id;
11191
11192 cursor c_account_pro is
11193 select del.cust_account_id,
11194 max(decode(pd.uwq_status,'PENDING',(decode(sign(TRUNC(pd.uwq_active_date) - TRUNC(sysdate)),1,1)))) pending_promises,
11195 max(decode(pd.uwq_status,'COMPLETE',(decode(sign(TRUNC(pd.uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') - TRUNC(sysdate)),1,1)))) complete_promises,
11196 max(decode(pd.uwq_status,NULL,1,'ACTIVE',1,'PENDING',(decode(sign(TRUNC(pd.uwq_active_date) - TRUNC(sysdate)),-1,1,0,1)))) active_promises
11197 from iex_promise_details pd,
11198 IEX_DELINQUENCIES_ALL DEL,
11199 iex_pop_uwq_summ_gt temp
11200 WHERE pd.cust_account_id = del.cust_account_id
11201 and pd.delinquency_id = del.delinquency_id
11202 and del.cust_account_id = temp.object_id
11203 and del.org_id = temp.org_id
11204 and pd.state = 'BROKEN_PROMISE'
11205 group by del.cust_account_id;
11206
11207 cursor c_account_pro_summ is
11208 SELECT del.cust_account_id,
11209 COUNT(1) number_of_promises,
11210 -- Start Bug 14197188 bibeura 26-Jun-2012
11211 -- SUM(amount_due_remaining) broken_promise_amount,
11212 -- SUM(promise_amount) promise_amount
11213 SUM(gl_currency_api.convert_amount_sql(pd.currency_code, gl.currency_code, sysdate,
11214 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE','select NVL(FND_PROFILE.VALUE(''IEX_EXCHANGE_RATE_TYPE''),''Corporate'') from dual'), pd.amount_due_remaining)) broken_promise_amount,
11215 SUM(gl_currency_api.convert_amount_sql(pd.currency_code, gl.currency_code, sysdate,
11216 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE','select NVL(FND_PROFILE.VALUE(''IEX_EXCHANGE_RATE_TYPE''),''Corporate'') from dual'), pd.promise_amount)) promise_amount
11217 -- End Bug 14197188 bibeura 26-Jun-2012
11218 FROM iex_promise_details pd,
11219 iex_delinquencies_all del,
11220 iex_pop_uwq_summ_gt temp,
11221 ar_system_parameters_all sys ,
11222 gl_sets_of_books gl
11223 WHERE pd.cust_account_id = del.cust_account_id
11224 AND pd.delinquency_id = del.delinquency_id
11225 AND pd.status IN('COLLECTABLE', 'PENDING')
11226 AND pd.state = 'BROKEN_PROMISE'
11227 AND pd.amount_due_remaining > 0
11228 AND (del.status NOT IN('CURRENT', 'CLOSE')
11229 or (del.status='CURRENT' and del.source_program_name='IEX_CURR_INV'))--Added for Bug 6446848 06-Jan-2009 barathsr
11230 and del.cust_account_id = temp.object_id
11231 and del.org_id = temp.org_id
11232 and sys.org_id = del.org_id
11233 and gl.set_of_books_id = sys.set_of_books_id
11234 GROUP BY del.cust_account_id;
11235 -- Start for the bug#7562130 by PNAVEENK
11236 cursor c_account_score is
11237 SELECT sh.score_object_id, sh.score_value score,sh.score_id, sc.score_name
11238 FROM iex_score_histories sh,
11239 iex_pop_uwq_summ_gt temp,
11240 iex_scores sc
11241 WHERE sh.creation_date = (SELECT MAX(creation_date)
11242 FROM iex_score_histories sh1
11243 WHERE sh1.score_object_code = 'IEX_ACCOUNT'
11244 AND sh1.score_object_id = sh.score_object_id)
11245 -- AND rownum < 2
11246 AND sh.score_object_code = 'IEX_ACCOUNT'
11247 AND sh.score_object_id = temp.object_id
11248 and sc.score_id = sh.score_id;
11249 -- end for the bug#7562130
11250 cursor c_account_past_due is
11251 SELECT a.cust_account_id,
11252 SUM(b.acctd_amount_due_remaining) past_due_inv_value
11253 FROM iex_delinquencies_all a,
11254 ar_payment_schedules_all b,
11255 iex_pop_uwq_summ_gt temp
11256 WHERE a.cust_account_id = temp.object_id
11257 AND a.payment_schedule_id = b.payment_schedule_id
11258 AND b.status = 'OP'
11259 AND a.status IN('DELINQUENT', 'PREDELINQUENT')
11260 AND temp.org_id = a.org_id
11261 GROUP BY a.cust_account_id;
11262
11263 cursor c_last_payment_no_amount is
11264 SELECT o_summ.cust_account_id,
11265 o_summ.last_payment_number last_payment_number,
11266 o_summ.last_payment_amount -- Bug 14226230 bibeura
11267 --iex_uwq_view_pkg.convert_amount(o_summ.last_payment_amount,o_summ.currency) last_payment_amount
11268 FROM ar_trx_bal_summary o_summ
11269 WHERE o_summ.cust_account_id in (select object_id from iex_pop_uwq_summ_gt)
11270 AND o_summ.last_payment_date = (SELECT MAX(last_payment_date)
11271 FROM ar_trx_bal_summary
11272 WHERE cust_account_id = o_summ.cust_account_id);
11273
11274 cursor c_bankruptcies is
11275 select ca.cust_account_id,
11276 COUNT(1) number_of_bankruptcies
11277 FROM iex_bankruptcies bkr,hz_cust_accounts ca
11278 where ca.cust_account_id in (select object_id from iex_pop_uwq_summ_gt)
11279 and bkr.party_id=ca.party_id
11280 and NVL(BKR.DISPOSITION_CODE,'GRANTED') in ('GRANTED','NEGOTIATION') -- Changed for bug#7693986
11281 group by ca.cust_account_id;
11282
11283 -- Bug #6251657 bibeura 25-OCT-2007
11284 cursor c_account_del_dln is
11285 select del.cust_account_id,
11286 sum(decode(del.status,'DELINQUENT',1,'PREDELINQUENT',1,0)) number_of_delinquencies,
11287 sum(decode(del.status,'DELINQUENT',ps.acctd_amount_due_remaining,'PREDELINQUENT',ps.acctd_amount_due_remaining,0)) past_due_inv_value,
11288 max(decode(uwq_status,'PENDING',(decode(sign(TRUNC(uwq_active_date) - TRUNC(sysdate)),1,1)))) pending_delinquencies,
11289 max(decode(uwq_status,'COMPLETE',(decode(sign(TRUNC(uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') - TRUNC(sysdate)),1,1)))) complete_delinquencies,
11290 max(decode(uwq_status,NULL,1,'ACTIVE',1,'PENDING',(decode(sign(TRUNC(uwq_active_date) - TRUNC(sysdate)),-1,1,0,1)))) active_delinquencies,
11291 del.org_id org_id
11292 from iex_delinquencies del,
11293 ar_payment_schedules ps
11294 WHERE del.payment_schedule_id = ps.payment_schedule_id AND
11295 del.org_id = ps.org_id and
11296 exists(select 1 from iex_delinquencies del1
11297 where del1.last_update_date>=trunc(sysdate-1) --changed for bug 13322580
11298 and del.cust_account_id=del1.cust_account_id
11299 and del.org_id=del1.org_id)
11300 group by del.cust_account_id, del.org_id;
11301
11302
11303 BEGIN
11304 l_max_fetches := to_number(nvl(fnd_profile.value('IEX_BATCH_SIZE'), '100000'));
11305
11306 -- Bug 14197188 bibeura 26-Jun-2012
11307 l_cash := IEX_UTILITIES.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE','select NVL(FND_PROFILE.VALUE(''IEX_EXCHANGE_RATE_TYPE''),''Corporate'') from dual');
11308 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'DEFAULT_EXCHANGE_RATE_TYPE = ' || l_cash);
11309 FND_FILE.PUT_LINE(FND_FILE.LOG,'l_cash = ' || l_cash);
11310
11311
11312 if p_mode='DLN' then
11313 LogMessage(FND_LOG.LEVEL_STATEMENT,'Starting..');
11314 -- Start Bug #6251657 bibeura 25-OCT-2007
11315 BEGIN
11316 OPEN c_account_del_dln;
11317 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_account_del_dln cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
11318 L_CUST_ACCOUNT_ID.delete;
11319 L_NUMBER_OF_DELINQUENCIES.delete;
11320 L_PENDING_DELINQUENCIES.delete;
11321 L_COMPLETE_DELINQUENCIES.delete;
11322 L_ACTIVE_DELINQUENCIES.delete;
11323 L_PAST_DUE_INV_VALUE.delete;
11324 L_ORG_ID.delete;
11325
11326 LOOP
11327 FETCH c_account_del_dln bulk collect
11328 INTO
11329 L_CUST_ACCOUNT_ID,
11330 L_NUMBER_OF_DELINQUENCIES,
11331 L_PAST_DUE_INV_VALUE,
11332 L_PENDING_DELINQUENCIES,
11333 L_COMPLETE_DELINQUENCIES,
11334 L_ACTIVE_DELINQUENCIES,
11335 L_ORG_ID
11336 limit l_max_fetches;
11337 IF L_CUST_ACCOUNT_ID.COUNT = 0 THEN
11338 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_account_del_dln ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
11339 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
11340 EXIT;
11341 ELSE
11342
11343 forall i IN L_CUST_ACCOUNT_ID.FIRST .. L_CUST_ACCOUNT_ID.LAST
11344 UPDATE IEX_DLN_UWQ_SUMMARY
11345 SET NUMBER_OF_DELINQUENCIES = L_NUMBER_OF_DELINQUENCIES(i),
11346 PAST_DUE_INV_VALUE = L_PAST_DUE_INV_VALUE(i),
11347 ACTIVE_DELINQUENCIES = L_ACTIVE_DELINQUENCIES(i),
11348 COMPLETE_DELINQUENCIES = L_COMPLETE_DELINQUENCIES(i),
11349 PENDING_DELINQUENCIES = L_PENDING_DELINQUENCIES(i)
11350 WHERE
11351 CUST_ACCOUNT_ID = L_CUST_ACCOUNT_ID(i)
11352 AND ORG_ID=L_ORG_ID(i);
11353 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_account_del_dln updated ' || L_COLLECTOR_ID.count || ' rows ');
11354 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
11355 END IF;
11356 END LOOP;
11357 IF c_account_del_dln % ISOPEN THEN
11358 CLOSE c_account_del_dln;
11359 END IF;
11360
11361 EXCEPTION
11362 WHEN OTHERS THEN
11363 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Delinquency update received' || SQLERRM);
11364 END;
11365
11366 --Begin Bug 8707923 27-Jul-2009 barathsr
11367 FND_FILE.PUT_LINE(FND_FILE.LOG,'deleting rows from A/C gt table');
11368
11369 delete from iex_pop_uwq_summ_gt;
11370 -- End Bug #6251657 bibeura 25-OCT-2007
11371 FND_FILE.PUT_LINE(FND_FILE.LOG,'Insert into account gt');
11372 insert into iex_pop_uwq_summ_gt(object_id,object_type,org_id)
11373 select del.cust_account_id,'IEX_ACCOUNT',del.org_id from iex_delinquencies del,hz_party_preferences party_pref
11374 where del.status in ('DELINQUENT','PRE-DELINQUENT')
11375 and del.party_cust_id=party_pref.party_id(+)
11376 and party_pref.module(+)='COLLECTIONS'
11377 and party_pref.category(+)='COLLECTIONS LEVEL'
11378 and party_pref.preference_code(+)='PARTY_ID'
11379 and nvl(decode(G_PARTY_LVL_ENB,'Y',party_pref.VALUE_VARCHAR2,null),G_SYSTEM_LEVEL)='ACCOUNT'
11380 and not exists(select 1 from IEX_DLN_UWQ_SUMMARY dus where dus.cust_account_id=del.cust_account_id
11381 and dus.site_use_id is null
11382 and dus.org_id=del.org_id)
11383 group by del.cust_account_id,del.org_id;
11384 if sql%rowcount<=0 then
11385 return;
11386 else
11387 FND_FILE.PUT_LINE(FND_FILE.LOG,'Inserted into account gt-->'||sql%rowcount);
11388 end if;
11389 else
11390 null;
11391 end if;
11392
11393 delete from iex_dln_uwq_summary summ
11394 where exists(select 1
11395 from iex_pop_uwq_summ_gt gt,hz_cust_accounts hca
11396 where gt.object_id=hca.cust_account_id
11397 and hca.party_id=summ.party_id
11398 and summ.site_use_id is null
11399 and gt.org_id=summ.org_id)
11400 and summ.business_level<>'ACCOUNT';
11401 LogMessage(FND_LOG.LEVEL_STATEMENT,'No. of records deleted at ACCOUNT level->' || sql%rowcount);
11402
11403 commit;
11404
11405 --End Bug 8707923 27-Jul-2009 barathsr
11406
11407 open c_iex_account_uwq_summary;
11408 loop
11409 l_count := l_count +1;
11410 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'----------');
11411 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Bulk ' || l_count);
11412
11413 L_ORG_ID.delete;
11414 L_COLLECTOR_ID.delete;
11415 L_COLLECTOR_RESOURCE_ID.delete;
11416 L_COLLECTOR_RES_TYPE.delete;
11417 L_IEU_OBJECT_FUNCTION.delete;
11418 L_IEU_OBJECT_PARAMETERS.delete;
11419 L_IEU_MEDIA_TYPE_UUID.delete;
11420 L_IEU_PARAM_PK_COL.delete;
11421 L_IEU_PARAM_PK_VALUE.delete;
11422 L_RESOURCE_ID.delete;
11423 L_RESOURCE_TYPE.delete;
11424 L_PARTY_ID.delete;
11425 L_PARTY_NAME.delete;
11426 L_CUST_ACCOUNT_ID.delete;
11427 L_ACCOUNT_NAME.delete;
11428 L_ACCOUNT_NUMBER.delete;
11429 L_SITE_USE_ID.delete;
11430 L_LOCATION.delete;
11431 L_CURRENCY.delete;
11432 L_OP_INVOICES_COUNT.delete;
11433 L_OP_DEBIT_MEMOS_COUNT.delete;
11434 L_OP_DEPOSITS_COUNT.delete;
11435 L_OP_BILLS_RECEIVABLES_COUNT.delete;
11436 L_OP_CHARGEBACK_COUNT.delete;
11437 L_OP_CREDIT_MEMOS_COUNT.delete;
11438 L_UNRESOLVED_CASH_COUNT.delete;
11439 L_DISPUTED_INV_COUNT.delete;
11440 L_BEST_CURRENT_RECEIVABLES.delete;
11441 L_OP_INVOICES_VALUE.delete;
11442 L_OP_DEBIT_MEMOS_VALUE.delete;
11443 L_OP_DEPOSITS_VALUE.delete;
11444 L_OP_BILLS_RECEIVABLES_VALUE.delete;
11445 L_OP_CHARGEBACK_VALUE.delete;
11446 L_OP_CREDIT_MEMOS_VALUE.delete;
11447 L_UNRESOLVED_CASH_VALUE.delete;
11448 L_RECEIPTS_AT_RISK_VALUE.delete;
11449 L_INV_AMT_IN_DISPUTE.delete;
11450 L_PENDING_ADJ_VALUE.delete;
11451 L_PAST_DUE_INV_VALUE.delete;
11452 L_PAST_DUE_INV_INST_COUNT.delete;
11453 L_LAST_PAYMENT_DATE.delete;
11454 L_LAST_PAYMENT_AMOUNT.delete;
11455 L_LAST_PAYMENT_AMOUNT_CURR.delete;
11456 L_LAST_PAYMENT_NUMBER.delete;
11457 L_LAST_UPDATE_DATE.delete;
11458 L_LAST_UPDATED_BY.delete;
11459 L_CREATION_DATE.delete;
11460 L_CREATED_BY.delete;
11461 L_LAST_UPDATE_LOGIN.delete;
11462 L_NUMBER_OF_DELINQUENCIES.delete;
11463 L_ACTIVE_DELINQUENCIES.delete;
11464 L_COMPLETE_DELINQUENCIES.delete;
11465 L_PENDING_DELINQUENCIES.delete;
11466 L_SCORE.delete;
11467 L_ADDRESS1.delete;
11468 L_CITY.delete;
11469 L_STATE.delete;
11470 L_COUNTY.delete;
11471 L_COUNTRY.delete;
11472 L_PROVINCE.delete;
11473 L_POSTAL_CODE.delete;
11474 L_PHONE_COUNTRY_CODE.delete;
11475 L_PHONE_AREA_CODE.delete;
11476 L_PHONE_NUMBER.delete;
11477 L_PHONE_EXTENSION.delete;
11478 L_NUMBER_OF_BANKRUPTCIES.delete;
11479 L_NUMBER_OF_PROMISES.delete;
11480 L_BROKEN_PROMISE_AMOUNT.delete;
11481 L_PROMISE_AMOUNT.delete;
11482 L_ACTIVE_PROMISES.delete;
11483 L_COMPLETE_PROMISES.delete;
11484 L_PENDING_PROMISES.delete;
11485 LogMessage(FND_LOG.LEVEL_STATEMENT,'Start fetching records...');
11486 FETCH c_iex_account_uwq_summary bulk collect
11487 INTO
11488 L_ORG_ID,
11489 L_IEU_OBJECT_FUNCTION,
11490 L_IEU_OBJECT_PARAMETERS,
11491 L_IEU_MEDIA_TYPE_UUID,
11492 L_IEU_PARAM_PK_COL,
11493 L_IEU_PARAM_PK_VALUE,
11494 L_RESOURCE_ID,
11495 L_RESOURCE_TYPE,
11496 L_PARTY_ID,
11497 L_PARTY_NAME,
11498 L_CUST_ACCOUNT_ID,
11499 L_ACCOUNT_NAME,
11500 L_ACCOUNT_NUMBER,
11501 L_SITE_USE_ID,
11502 L_LOCATION,
11503 L_CURRENCY,
11504 L_OP_INVOICES_COUNT,
11505 L_OP_DEBIT_MEMOS_COUNT,
11506 L_OP_DEPOSITS_COUNT,
11507 L_OP_BILLS_RECEIVABLES_COUNT,
11508 L_OP_CHARGEBACK_COUNT,
11509 L_OP_CREDIT_MEMOS_COUNT,
11510 L_UNRESOLVED_CASH_COUNT,
11511 L_DISPUTED_INV_COUNT,
11512 L_BEST_CURRENT_RECEIVABLES,
11513 L_OP_INVOICES_VALUE,
11514 L_OP_DEBIT_MEMOS_VALUE,
11515 L_OP_DEPOSITS_VALUE,
11516 L_OP_BILLS_RECEIVABLES_VALUE,
11517 L_OP_CHARGEBACK_VALUE,
11518 L_OP_CREDIT_MEMOS_VALUE,
11519 L_UNRESOLVED_CASH_VALUE,
11520 L_RECEIPTS_AT_RISK_VALUE,
11521 L_INV_AMT_IN_DISPUTE,
11522 L_PENDING_ADJ_VALUE,
11523 L_PAST_DUE_INV_INST_COUNT,
11524 L_LAST_PAYMENT_DATE,
11525 L_LAST_PAYMENT_AMOUNT_CURR,
11526 L_LAST_UPDATE_DATE,
11527 L_LAST_UPDATED_BY,
11528 L_CREATION_DATE,
11529 L_CREATED_BY,
11530 L_LAST_UPDATE_LOGIN,
11531 L_ADDRESS1,
11532 L_CITY,
11533 L_STATE,
11534 L_COUNTY,
11535 L_COUNTRY,
11536 L_PROVINCE,
11537 L_POSTAL_CODE
11538 limit l_max_fetches;
11539
11540 IF L_IEU_OBJECT_FUNCTION.COUNT = 0 THEN
11541
11542 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
11543 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
11544 EXIT;
11545
11546 ELSE
11547
11548 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
11549 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Fetched ' || L_IEU_OBJECT_FUNCTION.COUNT || ' rows.');
11550 LogMessage(FND_LOG.LEVEL_STATEMENT,'Inserting...');
11551 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Start inserting time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
11552 LogMessage(FND_LOG.LEVEL_STATEMENT,'inserting records..');
11553 forall i IN L_IEU_OBJECT_FUNCTION.FIRST .. L_IEU_OBJECT_FUNCTION.LAST
11554 INSERT INTO IEX_DLN_UWQ_SUMMARY
11555 (DLN_UWQ_SUMMARY_ID
11556 ,ORG_ID
11557 ,IEU_OBJECT_FUNCTION
11558 ,IEU_OBJECT_PARAMETERS
11559 ,IEU_MEDIA_TYPE_UUID
11560 ,IEU_PARAM_PK_COL
11561 ,IEU_PARAM_PK_VALUE
11562 ,RESOURCE_ID
11563 ,RESOURCE_TYPE
11564 ,PARTY_ID
11565 ,PARTY_NAME
11566 ,CUST_ACCOUNT_ID
11567 ,ACCOUNT_NAME
11568 ,ACCOUNT_NUMBER
11569 ,SITE_USE_ID
11570 ,LOCATION
11571 ,CURRENCY
11572 ,OP_INVOICES_COUNT
11573 ,OP_DEBIT_MEMOS_COUNT
11574 ,OP_DEPOSITS_COUNT
11575 ,OP_BILLS_RECEIVABLES_COUNT
11576 ,OP_CHARGEBACK_COUNT
11577 ,OP_CREDIT_MEMOS_COUNT
11578 ,UNRESOLVED_CASH_COUNT
11579 ,DISPUTED_INV_COUNT
11580 ,BEST_CURRENT_RECEIVABLES
11581 ,OP_INVOICES_VALUE
11582 ,OP_DEBIT_MEMOS_VALUE
11583 ,OP_DEPOSITS_VALUE
11584 ,OP_BILLS_RECEIVABLES_VALUE
11585 ,OP_CHARGEBACK_VALUE
11586 ,OP_CREDIT_MEMOS_VALUE
11587 ,UNRESOLVED_CASH_VALUE
11588 ,RECEIPTS_AT_RISK_VALUE
11589 ,INV_AMT_IN_DISPUTE
11590 ,PENDING_ADJ_VALUE
11591 ,PAST_DUE_INV_INST_COUNT
11592 ,LAST_PAYMENT_DATE
11593 ,LAST_PAYMENT_AMOUNT_CURR
11594 ,LAST_UPDATE_DATE
11595 ,LAST_UPDATED_BY
11596 ,CREATION_DATE
11597 ,CREATED_BY
11598 ,LAST_UPDATE_LOGIN
11599 ,ADDRESS1
11600 ,CITY
11601 ,STATE
11602 ,COUNTY
11603 ,COUNTRY
11604 ,PROVINCE
11605 ,POSTAL_CODE
11606 ,NUMBER_OF_DELINQUENCIES
11607 ,NUMBER_OF_PROMISES
11608 ,NUMBER_OF_BANKRUPTCIES
11609 ,BUSINESS_LEVEL --Added for Bug 8707923 27-Jul-2009 barathsr
11610 ,REQUEST_ID
11611 ,PROGRAM_ID
11612 ,PROGRAM_APPLICATION_ID
11613 ,OBJECT_VERSION_NUMBER)
11614 VALUES
11615 (IEX_DLN_UWQ_SUMMARY_S.nextval,
11616 L_ORG_ID(i),
11617 L_IEU_OBJECT_FUNCTION(i),
11618 L_IEU_OBJECT_PARAMETERS(i),
11619 L_IEU_MEDIA_TYPE_UUID(i),
11620 L_IEU_PARAM_PK_COL(i),
11621 L_IEU_PARAM_PK_VALUE(i),
11622 L_RESOURCE_ID(i),
11623 L_RESOURCE_TYPE(i),
11624 L_PARTY_ID(i),
11625 L_PARTY_NAME(i),
11626 L_CUST_ACCOUNT_ID(i),
11627 L_ACCOUNT_NAME(i),
11628 L_ACCOUNT_NUMBER(i),
11629 L_SITE_USE_ID(i),
11630 L_LOCATION(i),
11631 L_CURRENCY(i),
11632 L_OP_INVOICES_COUNT(i),
11633 L_OP_DEBIT_MEMOS_COUNT(i),
11634 L_OP_DEPOSITS_COUNT(i),
11635 L_OP_BILLS_RECEIVABLES_COUNT(i),
11636 L_OP_CHARGEBACK_COUNT(i),
11637 L_OP_CREDIT_MEMOS_COUNT(i),
11638 L_UNRESOLVED_CASH_COUNT(i),
11639 L_DISPUTED_INV_COUNT(i),
11640 L_BEST_CURRENT_RECEIVABLES(i),
11641 L_OP_INVOICES_VALUE(i),
11642 L_OP_DEBIT_MEMOS_VALUE(i),
11643 L_OP_DEPOSITS_VALUE(i),
11644 L_OP_BILLS_RECEIVABLES_VALUE(i),
11645 L_OP_CHARGEBACK_VALUE(i),
11646 L_OP_CREDIT_MEMOS_VALUE(i),
11647 L_UNRESOLVED_CASH_VALUE(i),
11648 L_RECEIPTS_AT_RISK_VALUE(i),
11649 L_INV_AMT_IN_DISPUTE(i),
11650 L_PENDING_ADJ_VALUE(i),
11651 L_PAST_DUE_INV_INST_COUNT(i),
11652 L_LAST_PAYMENT_DATE(i),
11653 L_LAST_PAYMENT_AMOUNT_CURR(i),
11654 sysdate,
11655 FND_GLOBAL.USER_ID,
11656 sysdate,
11657 FND_GLOBAL.USER_ID,
11658 FND_GLOBAL.CONC_LOGIN_ID,
11659 L_ADDRESS1(i),
11660 L_CITY(i),
11661 L_STATE(i),
11662 L_COUNTY(i),
11663 L_COUNTRY(i),
11664 L_PROVINCE(i),
11665 L_POSTAL_CODE(i),
11666 0,
11667 0,
11668 0,
11669 'ACCOUNT', --Added for Bug 8707923 27-Jul-2009 barathsr
11670 nvl(FND_GLOBAL.Conc_REQUEST_ID,0),
11671 FND_GLOBAL.CONC_PROGRAM_ID,
11672 FND_GLOBAL.PROG_APPL_ID,
11673 1);
11674
11675 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End inserting time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
11676 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Inserted ' || L_IEU_OBJECT_FUNCTION.COUNT || ' rows at biz lvl-->'||p_level);
11677
11678
11679 l_total := l_total + L_IEU_OBJECT_FUNCTION.COUNT;
11680 LogMessage(FND_LOG.LEVEL_STATEMENT,'So far processed ' || l_total || ' rows');
11681
11682
11683 END IF;
11684
11685 END LOOP;
11686 close c_iex_account_uwq_summary;
11687
11688 OPEN c_strategy_summary;
11689 LOOP
11690 l_count := l_count +1;
11691 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'----------');
11692 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Bulk ' || l_count);
11693
11694 L_JTF_OBJECT_ID.delete;
11695 L_WORK_ITEM_ID.delete;
11696 L_SCHEDULE_START.delete;
11697 L_SCHEDULE_END.delete;
11698 L_WORK_TYPE.delete;
11699 L_CATEGORY_TYPE.delete;
11700 L_PRIORITY_TYPE.delete;
11701 L_wkitem_RESOURCE_ID.delete;
11702 L_STRATEGY_ID.delete;
11703 L_STRATEGY_TEMPLATE_ID.delete;
11704 L_WORK_ITEM_TEMPLATE_ID.delete;
11705 L_STATUS_CODE.delete;
11706 L_STR_STATUS.delete; -- Added for bug#7416344 by PNAVEENK on 2-4-2009
11707 L_START_TIME.delete;
11708 L_END_TIME.delete;
11709 L_WORK_ITEM_ORDER.delete;
11710 L_ESCALATED_YN.delete; --Added for bug#6981126 by schekuri on 27-Jun-2008
11711
11712 LogMessage(FND_LOG.LEVEL_STATEMENT,'Inited all arrays');
11713
11714 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Start fetching time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
11715 FETCH c_strategy_summary bulk collect
11716 INTO
11717 L_JTF_OBJECT_ID,
11718 L_WORK_ITEM_ID,
11719 L_SCHEDULE_START,
11720 L_SCHEDULE_END,
11721 L_CATEGORY_TYPE,
11722 L_WORK_TYPE,
11723 L_PRIORITY_TYPE,
11724 L_WKITEM_RESOURCE_ID,
11725 L_STRATEGY_ID,
11726 L_STRATEGY_TEMPLATE_ID,
11727 L_WORK_ITEM_TEMPLATE_ID,
11728 L_STATUS_CODE,
11729 L_STR_STATUS, -- Added for bug#7416344 by PNAVEENK on 2-4-2009
11730 L_START_TIME,
11731 L_END_TIME,
11732 L_WORK_ITEM_ORDER,
11733 L_ESCALATED_YN --Added for bug#6981126 by schekuri on 27-Jun-2008
11734 limit l_max_fetches;
11735
11736 LogMessage(FND_LOG.LEVEL_STATEMENT,L_JTF_OBJECT_ID.COUNT);
11737
11738 IF L_JTF_OBJECT_ID.COUNT = 0 THEN
11739
11740 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
11741 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
11742 CLOSE c_strategy_summary;
11743 EXIT;
11744
11745 ELSE
11746
11747 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
11748 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Fetched ' || L_JTF_OBJECT_ID.COUNT || ' rows.');
11749 LogMessage(FND_LOG.LEVEL_STATEMENT,' Updating table...');
11750 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Start updating time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
11751
11752 forall i IN L_JTF_OBJECT_ID.FIRST .. L_JTF_OBJECT_ID.LAST
11753 UPDATE IEX_DLN_UWQ_SUMMARY
11754 SET WORK_ITEM_ID = L_WORK_ITEM_ID(i),
11755 SCHEDULE_START = L_SCHEDULE_START(i),
11756 SCHEDULE_END = L_SCHEDULE_END(i),
11757 WORK_TYPE = L_WORK_TYPE(i),
11758 CATEGORY_TYPE = L_CATEGORY_TYPE(i),
11759 PRIORITY_TYPE = L_PRIORITY_TYPE(i),
11760 WKITEM_RESOURCE_ID = L_WKITEM_RESOURCE_ID(i),
11761 STRATEGY_ID = L_STRATEGY_ID(i),
11762 STRATEGY_TEMPLATE_ID = L_STRATEGY_TEMPLATE_ID(i),
11763 WORK_ITEM_TEMPLATE_ID = L_WORK_ITEM_TEMPLATE_ID(i),
11764 STATUS_CODE = L_STATUS_CODE(i),
11765 STR_STATUS = L_STR_STATUS(i), -- Added for bug#7416344 by PNAVEENK on 2-4-2009
11766 START_TIME = L_START_TIME(i),
11767 END_TIME = L_END_TIME(i),
11768 WORK_ITEM_ORDER = L_WORK_ITEM_ORDER(i),
11769 WKITEM_ESCALATED_YN = L_ESCALATED_YN(i) --Added for bug#6981126 by schekuri on 27-Jun-2008
11770 WHERE cust_account_id = L_JTF_OBJECT_ID(i);
11771
11772
11773 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Updated ' || L_JTF_OBJECT_ID.COUNT || ' rows');
11774 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End updating time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
11775
11776
11777
11778 l_total := l_total + L_JTF_OBJECT_ID.COUNT;
11779 LogMessage(FND_LOG.LEVEL_STATEMENT,'So far processed ' || l_total || ' rows');
11780
11781 END IF;
11782
11783 END LOOP;
11784
11785 IF c_strategy_summary % ISOPEN THEN
11786 CLOSE c_strategy_summary;
11787 END IF;
11788
11789 BEGIN
11790 OPEN C_COLLECTOR_PROF;
11791 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_collector_prof cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
11792 L_COLLECTOR_RESOURCE_ID.delete ;
11793 L_COLLECTOR_RESOURCE_NAME.delete; -- Added for the bug#7562130
11794 L_COLLECTOR_ID.delete;
11795 L_RESOURCE_TYPE.delete;
11796 L_PARTY_ID.delete;
11797 L_CUST_ACCOUNT_ID.delete;
11798
11799 LOOP
11800 FETCH C_COLLECTOR_PROF bulk collect
11801 INTO
11802 L_COLLECTOR_ID,
11803 L_COLLECTOR_RESOURCE_ID,
11804 L_COLLECTOR_RESOURCE_NAME, -- Added for the bug#7562130
11805 L_RESOURCE_TYPE,
11806 L_PARTY_ID,
11807 L_CUST_ACCOUNT_ID
11808 limit l_max_fetches;
11809 IF L_COLLECTOR_RESOURCE_ID.COUNT = 0 THEN
11810
11811 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_collector_prof ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
11812 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
11813 EXIT;
11814
11815 ELSE
11816
11817 forall i IN L_CUST_ACCOUNT_ID.FIRST .. L_CUST_ACCOUNT_ID.LAST
11818 UPDATE IEX_DLN_UWQ_SUMMARY
11819 SET COLLECTOR_RESOURCE_ID = L_COLLECTOR_RESOURCE_ID(i),
11820 COLLECTOR_RESOURCE_NAME = L_COLLECTOR_RESOURCE_NAME(i), -- Added for the bug#7562130
11821 COLLECTOR_RES_TYPE = L_RESOURCE_TYPE(i),
11822 collector_id = l_collector_id(i),
11823 last_update_date = SYSDATE,
11824 last_updated_by = FND_GLOBAL.USER_ID
11825 WHERE
11826 CUST_ACCOUNT_ID = L_CUST_ACCOUNT_ID(i);
11827 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_collector_prof updated ' || L_COLLECTOR_ID.count || ' rows ');
11828 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
11829
11830
11831 END IF;
11832 END LOOP;
11833 IF C_COLLECTOR_PROF % ISOPEN THEN
11834 CLOSE C_COLLECTOR_PROF;
11835 END IF;
11836
11837 EXCEPTION WHEN OTHERS THEN
11838 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Collector profile update received' || SQLERRM);
11839 END;
11840
11841 BEGIN
11842 OPEN c_contact_point;
11843 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Opened Cursor c_contact_point cursor at time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
11844 L_PARTY_ID.delete;
11845 L_PHONE_COUNTRY_CODE.delete;
11846 L_PHONE_AREA_CODE.delete;
11847 L_PHONE_NUMBER.delete;
11848 L_PHONE_EXTENSION.delete;
11849
11850
11851 LOOP
11852 FETCH c_contact_point bulk collect
11853 INTO
11854 L_PARTY_ID,
11855 L_PHONE_COUNTRY_CODE,
11856 L_PHONE_AREA_CODE,
11857 L_PHONE_NUMBER,
11858 L_PHONE_EXTENSION
11859
11860 limit l_max_fetches;
11861 IF L_PARTY_ID.COUNT = 0 THEN
11862
11863 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'c_contact_point Cursor Fetching end time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
11864 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
11865 EXIT;
11866
11867 ELSE
11868
11869 forall i IN L_PARTY_ID.FIRST .. L_PARTY_ID.LAST
11870
11871 UPDATE IEX_DLN_UWQ_SUMMARY
11872 SET PHONE_COUNTRY_CODE = L_PHONE_COUNTRY_CODE(i),
11873 PHONE_AREA_CODE = L_PHONE_AREA_CODE(i),
11874 PHONE_NUMBER = L_PHONE_NUMBER(i),
11875 PHONE_EXTENSION = L_PHONE_EXTENSION(i),
11876 last_update_date = SYSDATE,
11877 last_updated_by = FND_GLOBAL.USER_ID
11878 WHERE PARTY_ID = L_PARTY_ID(i);
11879 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' Contact point Cursor updated ' ||L_PARTY_ID.count || ' rows ');
11880 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
11881
11882
11883 END IF;
11884 END LOOP;
11885 CLOSE c_contact_point;
11886
11887
11888 EXCEPTION WHEN OTHERS THEN
11889 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' Contact point raised error ' || SQLERRM);
11890 END;
11891 -- gnramasa
11892 BEGIN
11893 OPEN C_ACCOUNT_DEL;
11894 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_account_del cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
11895 L_CUST_ACCOUNT_ID.delete;
11896 L_NUMBER_OF_DELINQUENCIES.delete;
11897 L_PENDING_DELINQUENCIES.delete;
11898 L_COMPLETE_DELINQUENCIES.delete;
11899 L_ACTIVE_DELINQUENCIES.delete;
11900
11901 LOOP
11902 FETCH C_ACCOUNT_DEL bulk collect
11903 INTO
11904 L_CUST_ACCOUNT_ID,
11905 L_NUMBER_OF_DELINQUENCIES,
11906 L_PENDING_DELINQUENCIES,
11907 L_COMPLETE_DELINQUENCIES,
11908 L_ACTIVE_DELINQUENCIES
11909 limit l_max_fetches;
11910 IF L_CUST_ACCOUNT_ID.COUNT = 0 THEN
11911
11912 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_account_del ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
11913 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
11914 EXIT;
11915
11916 ELSE
11917
11918 forall i IN L_CUST_ACCOUNT_ID.FIRST .. L_CUST_ACCOUNT_ID.LAST
11919 UPDATE IEX_DLN_UWQ_SUMMARY
11920 SET NUMBER_OF_DELINQUENCIES = L_NUMBER_OF_DELINQUENCIES(i),
11921 ACTIVE_DELINQUENCIES = L_ACTIVE_DELINQUENCIES(i),
11922 COMPLETE_DELINQUENCIES = L_COMPLETE_DELINQUENCIES(i),
11923 PENDING_DELINQUENCIES = L_PENDING_DELINQUENCIES(i)
11924 WHERE
11925 CUST_ACCOUNT_ID = L_CUST_ACCOUNT_ID(i);
11926 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_account_del updated ' || L_COLLECTOR_ID.count || ' rows ');
11927 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
11928
11929
11930 END IF;
11931 END LOOP;
11932 IF C_ACCOUNT_DEL % ISOPEN THEN
11933 CLOSE C_ACCOUNT_DEL;
11934 END IF;
11935
11936 EXCEPTION WHEN OTHERS THEN
11937 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Delinquency update received' || SQLERRM);
11938 END;
11939
11940 BEGIN
11941 OPEN C_ACCOUNT_PRO;
11942 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_account_pro cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
11943 L_CUST_ACCOUNT_ID.delete;
11944 L_ACTIVE_PROMISES.delete;
11945 L_COMPLETE_PROMISES.delete;
11946 L_PENDING_PROMISES.delete;
11947
11948 LOOP
11949 FETCH C_ACCOUNT_PRO bulk collect
11950 INTO
11951 L_CUST_ACCOUNT_ID,
11952 L_PENDING_PROMISES,
11953 L_COMPLETE_PROMISES,
11954 L_ACTIVE_PROMISES
11955 limit l_max_fetches;
11956 IF L_CUST_ACCOUNT_ID.COUNT = 0 THEN
11957
11958 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_account_pro ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
11959 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
11960 EXIT;
11961
11962 ELSE
11963
11964 forall i IN L_CUST_ACCOUNT_ID.FIRST .. L_CUST_ACCOUNT_ID.LAST
11965 UPDATE IEX_DLN_UWQ_SUMMARY
11966 SET ACTIVE_PROMISES = L_ACTIVE_PROMISES(i),
11967 COMPLETE_PROMISES = L_COMPLETE_PROMISES(i),
11968 PENDING_PROMISES = L_PENDING_PROMISES(i)
11969 WHERE
11970 CUST_ACCOUNT_ID = L_CUST_ACCOUNT_ID(i);
11971 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_account_pro updated ' || L_COLLECTOR_ID.count || ' rows ');
11972 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
11973
11974
11975 END IF;
11976 END LOOP;
11977 IF C_ACCOUNT_PRO % ISOPEN THEN
11978 CLOSE C_ACCOUNT_PRO;
11979 END IF;
11980
11981 EXCEPTION WHEN OTHERS THEN
11982 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Promise update received' || SQLERRM);
11983 END;
11984
11985 BEGIN
11986 OPEN C_ACCOUNT_PRO_SUMM;
11987 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_account_pro_summ cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
11988 L_CUST_ACCOUNT_ID.delete;
11989 L_NUMBER_OF_PROMISES.delete;
11990 L_BROKEN_PROMISE_AMOUNT .delete;
11991 L_PROMISE_AMOUNT.delete;
11992
11993 LOOP
11994 FETCH C_ACCOUNT_PRO_SUMM bulk collect
11995 INTO
11996 L_CUST_ACCOUNT_ID,
11997 L_NUMBER_OF_PROMISES,
11998 L_BROKEN_PROMISE_AMOUNT,
11999 L_PROMISE_AMOUNT
12000 limit l_max_fetches;
12001 IF L_CUST_ACCOUNT_ID.COUNT = 0 THEN
12002
12003 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_account_pro_summ ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
12004 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
12005 EXIT;
12006
12007 ELSE
12008
12009 forall i IN L_CUST_ACCOUNT_ID.FIRST .. L_CUST_ACCOUNT_ID.LAST
12010 UPDATE IEX_DLN_UWQ_SUMMARY
12011 SET NUMBER_OF_PROMISES = L_NUMBER_OF_PROMISES(i),
12012 BROKEN_PROMISE_AMOUNT = L_BROKEN_PROMISE_AMOUNT(i),
12013 PROMISE_AMOUNT = L_PROMISE_AMOUNT(i)
12014 WHERE
12015 CUST_ACCOUNT_ID = L_CUST_ACCOUNT_ID(i);
12016 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_account_pro_summ updated ' || L_COLLECTOR_ID.count || ' rows ');
12017 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
12018
12019
12020 END IF;
12021 END LOOP;
12022 IF C_ACCOUNT_PRO_SUMM % ISOPEN THEN
12023 CLOSE C_ACCOUNT_PRO_SUMM;
12024 END IF;
12025
12026 EXCEPTION WHEN OTHERS THEN
12027 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Broken Promise update received' || SQLERRM);
12028 END;
12029
12030 BEGIN
12031 OPEN C_ACCOUNT_SCORE;
12032 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_account_score cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
12033 L_CUST_ACCOUNT_ID.delete;
12034 L_SCORE.delete;
12035 L_SCORE_ID.delete; -- Added for the bug#7562130
12036 L_SCORE_NAME.delete; -- Added for the bug#7562130
12037
12038 LOOP
12039 FETCH C_ACCOUNT_SCORE bulk collect
12040 INTO
12041 L_CUST_ACCOUNT_ID,
12042 L_SCORE,
12043 L_SCORE_ID, -- Added for the bug#7562130
12044 L_SCORE_NAME -- dded for the bug#7562130
12045 limit l_max_fetches;
12046 IF L_CUST_ACCOUNT_ID.COUNT = 0 THEN
12047
12048 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_account_score ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
12049 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
12050 EXIT;
12051
12052 ELSE
12053
12054 forall i IN L_CUST_ACCOUNT_ID.FIRST .. L_CUST_ACCOUNT_ID.LAST
12055 UPDATE IEX_DLN_UWQ_SUMMARY
12056 SET SCORE = L_SCORE(i),
12057 SCORE_ID = L_SCORE_ID(i), -- Added for the bug#7562130
12058 SCORE_NAME = L_SCORE_NAME(i) -- Added for the bug#7562130
12059 WHERE
12060 CUST_ACCOUNT_ID = L_CUST_ACCOUNT_ID(i);
12061 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_account_score updated ' || L_COLLECTOR_ID.count || ' rows ');
12062 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
12063
12064
12065 END IF;
12066 END LOOP;
12067 IF C_ACCOUNT_SCORE % ISOPEN THEN
12068 CLOSE C_ACCOUNT_SCORE;
12069 END IF;
12070
12071 EXCEPTION WHEN OTHERS THEN
12072 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Score update received' || SQLERRM);
12073 END;
12074
12075 BEGIN
12076 OPEN C_ACCOUNT_PAST_DUE;
12077 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_account_past_due cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
12078 L_CUST_ACCOUNT_ID.delete;
12079 L_PAST_DUE_INV_VALUE.delete;
12080
12081 LOOP
12082 FETCH C_ACCOUNT_PAST_DUE bulk collect
12083 INTO
12084 L_CUST_ACCOUNT_ID,
12085 L_PAST_DUE_INV_VALUE
12086 limit l_max_fetches;
12087 IF L_CUST_ACCOUNT_ID.COUNT = 0 THEN
12088
12089 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_account_past_due ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
12090 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
12091 EXIT;
12092
12093 ELSE
12094
12095 forall i IN L_CUST_ACCOUNT_ID.FIRST .. L_CUST_ACCOUNT_ID.LAST
12096 UPDATE IEX_DLN_UWQ_SUMMARY
12097 SET PAST_DUE_INV_VALUE = L_PAST_DUE_INV_VALUE(i)
12098 WHERE
12099 CUST_ACCOUNT_ID = L_CUST_ACCOUNT_ID(i);
12100 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_account_past_due updated ' || L_COLLECTOR_ID.count || ' rows ');
12101 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
12102
12103
12104 END IF;
12105 END LOOP;
12106 IF C_ACCOUNT_PAST_DUE % ISOPEN THEN
12107 CLOSE C_ACCOUNT_PAST_DUE;
12108 END IF;
12109
12110 EXCEPTION WHEN OTHERS THEN
12111 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Past due invoice update received' || SQLERRM);
12112 END;
12113
12114 BEGIN
12115 OPEN C_LAST_PAYMENT_NO_AMOUNT;
12116 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_last_payment_no_amount cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
12117 L_CUST_ACCOUNT_ID.delete;
12118 L_LAST_PAYMENT_NUMBER.delete;
12119 L_LAST_PAYMENT_AMOUNT.delete;
12120
12121 LOOP
12122 FETCH C_LAST_PAYMENT_NO_AMOUNT bulk collect
12123 INTO
12124 L_CUST_ACCOUNT_ID,
12125 L_LAST_PAYMENT_NUMBER,
12126 L_LAST_PAYMENT_AMOUNT
12127 limit l_max_fetches;
12128 IF L_CUST_ACCOUNT_ID.COUNT = 0 THEN
12129
12130 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_last_payment_no_amount ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
12131 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
12132 EXIT;
12133
12134 ELSE
12135
12136 forall i IN L_CUST_ACCOUNT_ID.FIRST .. L_CUST_ACCOUNT_ID.LAST
12137 UPDATE IEX_DLN_UWQ_SUMMARY
12138 SET LAST_PAYMENT_NUMBER = L_LAST_PAYMENT_NUMBER(i),
12139 LAST_PAYMENT_AMOUNT = L_LAST_PAYMENT_AMOUNT(i)
12140 WHERE
12141 CUST_ACCOUNT_ID = L_CUST_ACCOUNT_ID(i);
12142 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_last_payment_no_amount updated ' || L_COLLECTOR_ID.count || ' rows ');
12143 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
12144
12145
12146 END IF;
12147 END LOOP;
12148 IF C_LAST_PAYMENT_NO_AMOUNT % ISOPEN THEN
12149 CLOSE C_LAST_PAYMENT_NO_AMOUNT;
12150 END IF;
12151
12152 EXCEPTION WHEN OTHERS THEN
12153 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Last payment no and amount update received' || SQLERRM);
12154 END;
12155
12156 BEGIN
12157 OPEN C_BANKRUPTCIES;
12158 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_bankruptcies cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
12159 L_CUST_ACCOUNT_ID.delete;
12160 L_NUMBER_OF_BANKRUPTCIES.delete;
12161
12162 LOOP
12163 FETCH C_BANKRUPTCIES bulk collect
12164 INTO
12165 L_CUST_ACCOUNT_ID,
12166 L_NUMBER_OF_BANKRUPTCIES
12167 limit l_max_fetches;
12168 IF L_CUST_ACCOUNT_ID.COUNT = 0 THEN
12169
12170 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_bankruptcies ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
12171 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
12172 EXIT;
12173
12174 ELSE
12175
12176 forall i IN L_CUST_ACCOUNT_ID.FIRST .. L_CUST_ACCOUNT_ID.LAST
12177 UPDATE IEX_DLN_UWQ_SUMMARY
12178 SET NUMBER_OF_BANKRUPTCIES = L_NUMBER_OF_BANKRUPTCIES(i)
12179 WHERE
12180 CUST_ACCOUNT_ID = L_CUST_ACCOUNT_ID(i);
12181 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_bankruptcies updated ' || L_COLLECTOR_ID.count || ' rows ');
12182 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
12183
12184
12185 END IF;
12186 END LOOP;
12187 IF C_BANKRUPTCIES % ISOPEN THEN
12188 CLOSE C_BANKRUPTCIES;
12189 END IF;
12190
12191 EXCEPTION WHEN OTHERS THEN
12192 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Last payment no and amount update received' || SQLERRM);
12193 END;
12194
12195
12196 --gnramasa
12197 COMMIT;
12198 LogMessage(FND_LOG.LEVEL_STATEMENT,'Commited');
12199
12200 EXCEPTION
12201 WHEN OTHERS THEN
12202 LogMessage(FND_LOG.LEVEL_STATEMENT,sqlerrm);
12203 END ACCOUNT_REFRESH_SUMMARY_INCR;
12204
12205 PROCEDURE customer_refresh_summary_incr(
12206 x_errbuf OUT nocopy VARCHAR2,
12207 x_retcode OUT nocopy VARCHAR2,
12208 FROM_DATE IN VARCHAR2,
12209 P_MODE IN VARCHAR2 DEFAULT 'CP',
12210 p_level in varchar2)--Added for Bug 8707923 27-Jul-2009 barathsr
12211 is
12212 l_count number;
12213
12214 CURSOR c_iex_customer_uwq_summary IS
12215 SELECT trx_summ.org_id,
12216 objb.object_function ieu_object_function,
12217 objb.object_parameters || ' DISPLAYCBO=IEXTRMAN' ieu_object_parameters,
12218 '' ieu_media_type_uuid,
12219 'PARTY_ID' ieu_param_pk_col,
12220 to_char(party.party_id) ieu_param_pk_value,
12221 1 resource_id,
12222 'RS_EMPLOYEE' resource_type,
12223 party.party_id party_id,
12224 party.party_name party_name,
12225 to_number(null) cust_account_id,
12226 null account_name,
12227 null account_number,
12228 to_number(null) site_use_id,
12229 null location,
12230 max(gl.CURRENCY_CODE) currency,
12231 SUM(trx_summ.op_invoices_count) op_invoices_count,
12232 SUM(trx_summ.op_debit_memos_count) op_debit_memos_count,
12233 SUM(trx_summ.op_deposits_count) op_deposits_count,
12234 SUM(trx_summ.op_bills_receivables_count) op_bills_receivables_count,
12235 SUM(trx_summ.op_chargeback_count) op_chargeback_count,
12236 SUM(trx_summ.op_credit_memos_count) op_credit_memos_count,
12237 SUM(trx_summ.unresolved_cash_count) unresolved_cash_count,
12238 SUM(trx_summ.disputed_inv_count) disputed_inv_count,
12239 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.best_current_receivables,
12240 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
12241 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.best_current_receivables))) best_current_receivables,
12242 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_invoices_value,
12243 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
12244 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_invoices_value))) op_invoices_value,
12245 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_debit_memos_value,
12246 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
12247 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_debit_memos_value))) op_debit_memos_value,
12248 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_deposits_value,
12249 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
12250 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_deposits_value))) op_deposits_value,
12251 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_bills_receivables_value,
12252 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
12253 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_bills_receivables_value))) op_bills_receivables_value,
12254 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_chargeback_value,
12255 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
12256 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_chargeback_value))) op_chargeback_value,
12257 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.op_credit_memos_value,
12258 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
12259 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.op_credit_memos_value))) op_credit_memos_value,
12260 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.unresolved_cash_value,
12261 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
12262 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.unresolved_cash_value))) unresolved_cash_value,
12263 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.receipts_at_risk_value,
12264 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
12265 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.receipts_at_risk_value))) receipts_at_risk_value,
12266 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.inv_amt_in_dispute,
12267 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
12268 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.inv_amt_in_dispute))) inv_amt_in_dispute,
12269 SUM(decode(trx_summ.currency, gl.CURRENCY_CODE, trx_summ.pending_adj_value,
12270 gl_currency_api.convert_amount_sql(trx_summ.currency, gl.CURRENCY_CODE, sysdate,
12271 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE', ''), trx_summ.pending_adj_value))) pending_adj_value,
12272 SUM(trx_summ.past_due_inv_inst_count) past_due_inv_inst_count,
12273 MAX(trx_summ.last_payment_date) last_payment_date,
12274 max(gl.CURRENCY_CODE) last_payment_amount_curr,
12275 MAX(trx_summ.last_update_date) last_update_date,
12276 MAX(trx_summ.last_updated_by) last_updated_by,
12277 MAX(trx_summ.creation_date) creation_date,
12278 MAX(trx_summ.created_by) created_by,
12279 MAX(trx_summ.last_update_login) last_update_login,
12280 party.address1 address1,
12281 party.city city,
12282 party.state state,
12283 party.county county,
12284 fnd_terr.territory_short_name country,
12285 party.province province,
12286 party.postal_code postal_code
12287 FROM ar_trx_bal_summary trx_summ,
12288 hz_cust_accounts acc,
12289 hz_parties party,
12290 jtf_objects_b objb,
12291 fnd_territories_tl fnd_terr,
12292 GL_SETS_OF_BOOKS gl,
12293 AR_SYSTEM_PARAMETERS_all sys
12294 WHERE trx_summ.reference_1 = '1'
12295 AND trx_summ.cust_account_id = acc.cust_account_id
12296 AND acc.party_id = party.party_id
12297 AND objb.object_code = 'IEX_CUSTOMER'
12298 AND objb.object_code <> 'IEX_DELINQUENCY' --Added for Bug 8707923 27-Jul-2009 barathsr
12299 AND party.country = fnd_terr.territory_code(+)
12300 AND fnd_terr.LANGUAGE(+) = userenv('LANG')
12301 and gl.SET_OF_BOOKS_ID = sys.SET_OF_BOOKS_ID
12302 and trx_summ.org_id = sys.org_id
12303 and acc.party_id in
12304 (select temp.object_id from iex_pop_uwq_summ_gt temp where temp.org_id=trx_summ.org_id)
12305 GROUP BY trx_summ.org_id,
12306 objb.object_function,
12307 objb.object_parameters,
12308 party.party_id,
12309 party.party_name,
12310 party.address1,
12311 party.city,
12312 party.state,
12313 party.county,
12314 fnd_terr.territory_short_name,
12315 party.province,
12316 party.postal_code;
12317
12318 CURSOR c_strategy_summary IS
12319 select strat.jtf_object_id,
12320 wkitem.WORK_ITEM_ID,
12321 wkitem.schedule_start schedule_start,
12322 wkitem.schedule_end schedule_end,
12323 stry_temp_wkitem.category_type category,
12324 stry_temp_wkitem.WORK_TYPE,
12325 stry_temp_wkitem.PRIORITY_TYPE,
12326 wkitem.resource_id,
12327 wkitem.strategy_id,
12328 strat.strategy_template_id,
12329 wkitem.work_item_template_id,
12330 wkitem.status_code,
12331 strat.status_code, -- Added for bug#7416344 by PNAVEENK on 2-4-2009
12332 -- wkitem.creation_date start_time,
12333 wkitem.execute_start start_time, -- Added for bug#8306620 by PNAVEENK on 3-4-2009
12334 wkitem.execute_end end_time,-- snuthala 28/08/2008 bug #6745580
12335 wkitem.work_item_order wkitem_order,
12336 wkitem.escalated_yn --Added for bug#6981126 by schekuri on 27-Jul-2008
12337 from iex_strategies strat,
12338 iex_strategy_work_items wkitem,
12339 iex_stry_temp_work_items_b stry_temp_wkitem,
12340 iex_pop_uwq_summ_gt temp
12341 where strat.status_code IN('OPEN', 'ONHOLD')
12342 AND wkitem.strategy_id = strat.strategy_id
12343 AND wkitem.status_code IN('OPEN', 'ONHOLD')
12344 AND wkitem.work_item_template_id = stry_temp_wkitem.work_item_temp_id
12345 AND strat.jtf_object_id = temp.object_id;
12346
12347 -- Start for the bug#7562130 by PNAVEENK
12348 CURSOR C_COLLECTOR_PROF IS
12349 SELECT
12350 hp.collector_id,
12351 ac.resource_id,
12352 decode(ac.resource_type, 'RS_RESOURCE' , rs.source_name , rg.group_name) collector_resource_name,
12353 ac.resource_type,
12354 hp.party_id
12355 FROM
12356 hz_customer_profiles hp,
12357 ar_collectors ac,
12358 iex_pop_uwq_summ_gt temp,
12359 jtf_rs_resource_extns rs,
12360 JTF_RS_GROUPS_VL rg
12361 WHERE
12362 hp.cust_account_id = -1
12363 and hp.site_use_id is null
12364 and hp.party_id=temp.object_id
12365 and hp.collector_id=ac.collector_id
12366 and rs.resource_id(+) = ac.resource_id
12367 and rg.group_id (+) = ac.resource_id;
12368 -- end for the bug#7562130
12369
12370 CURSOR C_CONTACT_POINT IS
12371 SELECT
12372 phone.owner_table_id party_id,
12373 phone.phone_country_code phone_country_code,
12374 phone.phone_area_code phone_area_code,
12375 phone.phone_number phone_number,
12376 phone.phone_extension phone_extension
12377 FROM
12378 hz_contact_points phone,
12379 iex_pop_uwq_summ_gt temp
12380 WHERE
12381 phone.owner_table_id = temp.object_id
12382 AND phone.owner_table_name = 'HZ_PARTIES'
12383 AND phone.contact_point_type = 'PHONE'
12384 and phone.primary_by_purpose = 'Y'
12385 AND phone.contact_point_purpose = 'COLLECTIONS'
12386 AND phone.phone_line_type NOT IN('PAGER', 'FAX')
12387 AND phone.status = 'A'
12388 AND nvl(phone.do_not_use_flag, 'N') = 'N';
12389
12390 L_ORG_ID number_list;
12391 L_COLLECTOR_ID number_list;
12392 L_COLLECTOR_RESOURCE_ID number_list;
12393 L_COLLECTOR_RES_TYPE varchar_30_list;
12394 L_IEU_OBJECT_FUNCTION varchar_30_list;
12395 L_IEU_OBJECT_PARAMETERS varchar_2020_list;
12396 L_IEU_MEDIA_TYPE_UUID varchar_10_list;
12397 L_IEU_PARAM_PK_COL varchar_40_list;
12398 L_IEU_PARAM_PK_VALUE varchar_40_list;
12399 L_RESOURCE_ID number_list;
12400 L_RESOURCE_TYPE varchar_20_list;
12401 L_PARTY_ID number_list;
12402 L_PARTY_NAME varchar_360_list;
12403 L_CUST_ACCOUNT_ID number_list;
12404 L_ACCOUNT_NAME varchar_240_list;
12405 L_ACCOUNT_NUMBER varchar_30_list;
12406 L_SITE_USE_ID number_list;
12407 L_LOCATION varchar_60_list;
12408 L_CURRENCY varchar_20_list;
12409 L_OP_INVOICES_COUNT number_list;
12410 L_OP_DEBIT_MEMOS_COUNT number_list;
12411 L_OP_DEPOSITS_COUNT number_list;
12412 L_OP_BILLS_RECEIVABLES_COUNT number_list;
12413 L_OP_CHARGEBACK_COUNT number_list;
12414 L_OP_CREDIT_MEMOS_COUNT number_list;
12415 L_UNRESOLVED_CASH_COUNT number_list;
12416 L_DISPUTED_INV_COUNT number_list;
12417 L_BEST_CURRENT_RECEIVABLES number_list;
12418 L_OP_INVOICES_VALUE number_list;
12419 L_OP_DEBIT_MEMOS_VALUE number_list;
12420 L_OP_DEPOSITS_VALUE number_list;
12421 L_OP_BILLS_RECEIVABLES_VALUE number_list;
12422 L_OP_CHARGEBACK_VALUE number_list;
12423 L_OP_CREDIT_MEMOS_VALUE number_list;
12424 L_UNRESOLVED_CASH_VALUE number_list;
12425 L_RECEIPTS_AT_RISK_VALUE number_list;
12426 L_INV_AMT_IN_DISPUTE number_list;
12427 L_PENDING_ADJ_VALUE number_list;
12428 L_PAST_DUE_INV_VALUE number_list;
12429 L_PAST_DUE_INV_INST_COUNT number_list;
12430 L_LAST_PAYMENT_DATE date_list;
12431 L_LAST_PAYMENT_AMOUNT number_list;
12432 L_LAST_PAYMENT_AMOUNT_CURR varchar_20_list;
12433 L_LAST_PAYMENT_NUMBER varchar_30_list;
12434 L_LAST_UPDATE_DATE date_list;
12435 L_LAST_UPDATED_BY number_list;
12436 L_CREATION_DATE date_list;
12437 L_CREATED_BY number_list;
12438 L_LAST_UPDATE_LOGIN number_list;
12439 L_NUMBER_OF_DELINQUENCIES number_list;
12440 L_ACTIVE_DELINQUENCIES number_list;
12441 L_COMPLETE_DELINQUENCIES number_list;
12442 L_PENDING_DELINQUENCIES number_list;
12443 L_SCORE number_list;
12444 -- Start for the bug#7562130 by PNAVEENK
12445 L_SCORE_ID number_list;
12446 L_SCORE_NAME varchar_240_list;
12447 L_COLLECTOR_RESOURCE_NAME varchar_240_list;
12448 -- End for the bug#7562130
12449 L_ADDRESS1 varchar_240_list;
12450 L_CITY varchar_60_list;
12451 L_STATE varchar_60_list;
12452 L_COUNTY varchar_60_list;
12453 L_COUNTRY varchar_80_list;
12454 L_PROVINCE varchar_60_list;
12455 L_POSTAL_CODE varchar_60_list;
12456 L_PHONE_COUNTRY_CODE varchar_10_list;
12457 L_PHONE_AREA_CODE varchar_10_list;
12458 L_PHONE_NUMBER varchar_40_list;
12459 L_PHONE_EXTENSION varchar_20_list;
12460 L_NUMBER_OF_BANKRUPTCIES number_list;
12461 L_NUMBER_OF_PROMISES number_list;
12462 L_BROKEN_PROMISE_AMOUNT number_list;
12463 L_PROMISE_AMOUNT number_list;
12464 L_ACTIVE_PROMISES number_list;
12465 L_COMPLETE_PROMISES number_list;
12466 L_PENDING_PROMISES number_list;
12467 L_WORK_ITEM_ID number_list;
12468 L_SCHEDULE_START date_list;
12469 L_SCHEDULE_END date_list;
12470 L_WORK_TYPE varchar_30_list;
12471 L_CATEGORY_TYPE varchar_30_list;
12472 L_PRIORITY_TYPE varchar_30_list;
12473 L_JTF_OBJECT_ID number_list;
12474 l_wkitem_resource_id number_list;
12475 l_strategy_id number_list;
12476 l_strategy_template_id number_list;
12477 l_work_item_template_id number_list;
12478 l_status_code varchar_30_list;
12479 l_str_status varchar_30_list; -- Added for bug#7416344 by PNAVEENK on 2-4-2009
12480 l_start_time date_list;
12481 l_end_time date_list;
12482 l_work_item_order number_list;
12483 l_escalated_yn varchar_10_list; --Added for bug#6981126 by schekuri on 27-Jun-2008
12484
12485 l_max_fetches NUMBER;
12486 l_total NUMBER;
12487 l_cash VARCHAR2(240); -- Bug 14197188 bibeura 26-Jun-2012
12488
12489 cursor c_customer_del is
12490 select del.party_cust_id,
12491 count(1) number_of_delinquencies,
12492 max(decode(uwq_status,'PENDING',(decode(sign(TRUNC(uwq_active_date) - TRUNC(sysdate)),1,1)))) pending_delinquencies,
12493 max(decode(uwq_status,'COMPLETE',(decode(sign(TRUNC(uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') - TRUNC(sysdate)),1,1)))) complete_delinquencies,
12494 max(decode(uwq_status,NULL,1,'ACTIVE',1,'PENDING',(decode(sign(TRUNC(uwq_active_date) - TRUNC(sysdate)),-1,1,0,1)))) active_delinquencies
12495 from iex_delinquencies_all del,
12496 iex_pop_uwq_summ_gt temp
12497 WHERE del.party_cust_id = temp.object_id AND
12498 del.org_id = temp.org_id and
12499 del.status IN('DELINQUENT', 'PREDELINQUENT')
12500 group by del.party_cust_id;
12501
12502 cursor c_customer_pro is
12503 select del.party_cust_id,
12504 max(decode(pd.uwq_status,'PENDING',(decode(sign(TRUNC(pd.uwq_active_date) - TRUNC(sysdate)),1,1)))) pending_promises,
12505 max(decode(pd.uwq_status,'COMPLETE',(decode(sign(TRUNC(pd.uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') - TRUNC(sysdate)),1,1)))) complete_promises,
12506 max(decode(pd.uwq_status,NULL,1,'ACTIVE',1,'PENDING',(decode(sign(TRUNC(pd.uwq_active_date) - TRUNC(sysdate)),-1,1,0,1)))) active_promises
12507 from iex_promise_details pd,
12508 IEX_DELINQUENCIES_ALL DEL,
12509 iex_pop_uwq_summ_gt temp
12510 WHERE pd.cust_account_id = del.cust_account_id
12511 AND pd.delinquency_id = del.delinquency_id
12512 and del.party_cust_id = temp.object_id
12513 and del.org_id = temp.org_id
12514 and pd.state = 'BROKEN_PROMISE'
12515 group by del.party_cust_id;
12516
12517 cursor c_customer_pro_summ is
12518 SELECT del.party_cust_id,
12519 COUNT(1) number_of_promises,
12520 -- Start Bug 14197188 bibeura 26-Jun-2012
12521 -- SUM(amount_due_remaining) broken_promise_amount,
12522 -- SUM(promise_amount) promise_amount
12523 SUM(gl_currency_api.convert_amount_sql(pd.currency_code, gl.currency_code, sysdate,
12524 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE','select NVL(FND_PROFILE.VALUE(''IEX_EXCHANGE_RATE_TYPE''),''Corporate'') from dual'), pd.amount_due_remaining)) broken_promise_amount,
12525 SUM(gl_currency_api.convert_amount_sql(pd.currency_code, gl.currency_code, sysdate,
12526 iex_utilities.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE','select NVL(FND_PROFILE.VALUE(''IEX_EXCHANGE_RATE_TYPE''),''Corporate'') from dual'), pd.promise_amount)) promise_amount
12527 -- End Bug 14197188 bibeura 26-Jun-2012
12528 FROM iex_promise_details pd,
12529 iex_delinquencies_all del,
12530 iex_pop_uwq_summ_gt temp,
12531 ar_system_parameters_all sys ,
12532 gl_sets_of_books gl
12533 WHERE pd.cust_account_id = del.cust_account_id
12534 AND pd.delinquency_id = del.delinquency_id
12535 AND pd.status IN('COLLECTABLE','PENDING')
12536 AND pd.state = 'BROKEN_PROMISE'
12537 AND pd.amount_due_remaining > 0
12538 AND (del.status NOT IN('CURRENT','CLOSE')
12539 or (del.status='CURRENT' and del.source_program_name='IEX_CURR_INV'))--Added for Bug 6446848 06-Jan-2009 barathsr
12540 and del.party_cust_id = temp.object_id
12541 and del.org_id = temp.org_id
12542 and sys.org_id = del.org_id
12543 and gl.set_of_books_id = sys.set_of_books_id
12544 GROUP BY del.party_cust_id;
12545 -- Start for the bug#7562130 by PNAVEENK
12546 cursor c_customer_score is
12547 SELECT sh.score_object_id, sh.score_value score, sh.score_id, sc.score_name
12548 FROM iex_score_histories sh,
12549 iex_pop_uwq_summ_gt temp,
12550 iex_scores sc
12551 WHERE sh.creation_date = (SELECT MAX(creation_date)
12552 FROM iex_score_histories sh1
12553 WHERE sh1.score_object_code = 'PARTY'
12554 AND sh1.score_object_id = sh.score_object_id)
12555 AND sh.score_object_code = 'PARTY'
12556 AND sh.score_object_id = temp.object_id
12557 and sc.score_id = sh.score_id;
12558 -- end for the bug#7562130
12559 cursor c_customer_past_due is
12560 SELECT a.party_cust_id,
12561 SUM(b.acctd_amount_due_remaining) past_due_inv_value
12562 FROM iex_delinquencies_all a,
12563 ar_payment_schedules_all b,
12564 iex_pop_uwq_summ_gt temp
12565 WHERE a.party_cust_id = temp.object_id
12566 AND a.payment_schedule_id = b.payment_schedule_id
12567 AND b.status = 'OP'
12568 AND a.status IN('DELINQUENT', 'PREDELINQUENT')
12569 AND temp.org_id = a.org_id
12570 GROUP BY a.party_cust_id;
12571
12572 cursor c_last_payment_no_amount is
12573 SELECT o_acc.party_id,
12574 o_summ.last_payment_number last_payment_number,
12575 o_summ.last_payment_amount -- Bug 14226230 bibeura
12576 -- iex_uwq_view_pkg.convert_amount(o_summ.last_payment_amount,o_summ.currency) last_payment_amount
12577 FROM ar_trx_bal_summary o_summ,
12578 hz_cust_accounts o_acc
12579 WHERE o_summ.cust_account_id = o_acc.cust_account_id
12580 and o_acc.party_id in (select object_id from iex_pop_uwq_summ_gt)
12581 AND o_summ.last_payment_date = (SELECT MAX(summ.last_payment_date)
12582 FROM ar_trx_bal_summary summ,
12583 hz_cust_accounts acc
12584 WHERE acc.cust_account_id = summ.cust_account_id
12585 and acc.party_id=o_acc.party_id);
12586
12587 cursor c_bankruptcies is
12588 select bkr.party_id,
12589 COUNT(1) number_of_bankruptcies
12590 FROM iex_bankruptcies bkr
12591 where bkr.party_id in (select object_id from iex_pop_uwq_summ_gt)
12592 and NVL(BKR.DISPOSITION_CODE,'GRANTED') in ('GRANTED','NEGOTIATION') -- Changed for bug#7693986
12593 group by bkr.party_id;
12594
12595 -- Bug #6251657 bibeura 25-OCT-2007
12596 cursor c_customer_del_dln is
12597 select del.party_cust_id,
12598 sum(decode(del.status,'DELINQUENT',1,'PREDELINQUENT',1,0)) number_of_delinquencies,
12599 sum(decode(del.status,'DELINQUENT',ps.acctd_amount_due_remaining,'PREDELINQUENT',ps.acctd_amount_due_remaining,0)) past_due_inv_value,
12600 max(decode(uwq_status,'PENDING',(decode(sign(TRUNC(uwq_active_date) - TRUNC(sysdate)),1,1)))) pending_delinquencies,
12601 max(decode(uwq_status,'COMPLETE',(decode(sign(TRUNC(uwq_complete_date) + fnd_profile.VALUE('IEX_UWQ_COMPLETION_DAYS') - TRUNC(sysdate)),1,1)))) complete_delinquencies,
12602 max(decode(uwq_status,NULL,1,'ACTIVE',1,'PENDING',(decode(sign(TRUNC(uwq_active_date) - TRUNC(sysdate)),-1,1,0,1)))) active_delinquencies,
12603 del.org_id org_id
12604 from iex_delinquencies del,
12605 ar_payment_schedules ps
12606 WHERE del.payment_schedule_id = ps.payment_schedule_id AND
12607 del.org_id = ps.org_id and
12608 exists(select 1 from iex_delinquencies del1
12609 where del1.last_update_date>=trunc(sysdate-1) --changed for bug 13322580
12610 and del.party_cust_id = del1.party_cust_id
12611 and del1.org_id=del.org_id)
12612 group by del.party_cust_id, del.org_id;
12613
12614 BEGIN
12615 l_max_fetches := to_number(nvl(fnd_profile.value('IEX_BATCH_SIZE'), '100000'));
12616
12617 -- Bug 14197188 bibeura 26-Jun-2012
12618 l_cash := IEX_UTILITIES.get_cache_value('DEFAULT_EXCHANGE_RATE_TYPE','select NVL(FND_PROFILE.VALUE(''IEX_EXCHANGE_RATE_TYPE''),''Corporate'') from dual');
12619 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'DEFAULT_EXCHANGE_RATE_TYPE = ' || l_cash);
12620 FND_FILE.PUT_LINE(FND_FILE.LOG,'l_cash = ' || l_cash);
12621 if p_mode='DLN' then
12622 LogMessage(FND_LOG.LEVEL_STATEMENT,'Starting..');
12623 -- Start Bug #6251657 bibeura 25-OCT-2007
12624 BEGIN
12625 OPEN c_customer_del_dln;
12626 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_customer_del_dln cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
12627 L_PARTY_ID.delete;
12628 L_NUMBER_OF_DELINQUENCIES.delete;
12629 L_PENDING_DELINQUENCIES.delete;
12630 L_COMPLETE_DELINQUENCIES.delete;
12631 L_ACTIVE_DELINQUENCIES.delete;
12632 L_PAST_DUE_INV_VALUE.delete;
12633 L_ORG_ID.delete;
12634
12635 LOOP
12636 FETCH c_customer_del_dln bulk collect
12637 INTO
12638 L_PARTY_ID,
12639 L_NUMBER_OF_DELINQUENCIES,
12640 L_PAST_DUE_INV_VALUE,
12641 L_PENDING_DELINQUENCIES,
12642 L_COMPLETE_DELINQUENCIES,
12643 L_ACTIVE_DELINQUENCIES,
12644 L_ORG_ID
12645 limit l_max_fetches;
12646 IF L_PARTY_ID.COUNT = 0 THEN
12647 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_customer_del_dln ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
12648 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
12649 EXIT;
12650 ELSE
12651
12652 forall i IN L_PARTY_ID.FIRST .. L_PARTY_ID.LAST
12653 UPDATE IEX_DLN_UWQ_SUMMARY
12654 SET NUMBER_OF_DELINQUENCIES = L_NUMBER_OF_DELINQUENCIES(i),
12655 PAST_DUE_INV_VALUE = L_PAST_DUE_INV_VALUE(i),
12656 ACTIVE_DELINQUENCIES = L_ACTIVE_DELINQUENCIES(i),
12657 COMPLETE_DELINQUENCIES = L_COMPLETE_DELINQUENCIES(i),
12658 PENDING_DELINQUENCIES = L_PENDING_DELINQUENCIES(i)
12659 WHERE
12660 PARTY_ID = L_PARTY_ID(i)
12661 AND ORG_ID=L_ORG_ID(i);
12662 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_customer_del_dln updated ' || L_COLLECTOR_ID.count || ' rows ');
12663 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
12664 END IF;
12665 END LOOP;
12666 IF c_customer_del_dln%ISOPEN THEN
12667 CLOSE c_customer_del_dln;
12668 END IF;
12669
12670 EXCEPTION WHEN OTHERS THEN
12671 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Delinquency update received' || SQLERRM);
12672 END;
12673 --End Bug #6251657 bibeura 25-OCT-2007
12674
12675 --Begin Bug 8707923 27-Jul-2009 barathsr
12676
12677 FND_FILE.PUT_LINE(FND_FILE.LOG,'delete rows from customer gt');
12678 delete from iex_pop_uwq_summ_gt;
12679 FND_FILE.PUT_LINE(FND_FILE.LOG,'Insert into customer gt');
12680
12681 insert into iex_pop_uwq_summ_gt(object_id,object_type,org_id)
12682 select del.party_cust_id,'PARTY',del.org_id from iex_delinquencies del,hz_party_preferences party_pref
12683 where del.status in ('DELINQUENT','PRE-DELINQUENT')
12684 and del.party_cust_id=party_pref.party_id(+)
12685 and party_pref.module(+)='COLLECTIONS'
12686 and party_pref.category(+)='COLLECTIONS LEVEL'
12687 and party_pref.preference_code(+)='PARTY_ID'
12688 and nvl(decode(G_PARTY_LVL_ENB,'Y',party_pref.VALUE_VARCHAR2,null),G_SYSTEM_LEVEL)='CUSTOMER'
12689 and not exists(select 1 from IEX_DLN_UWQ_SUMMARY dus where dus.party_id=del.party_cust_id
12690 and dus.cust_account_id is null and
12691 dus.org_id=del.org_id)
12692 group by del.party_cust_id,del.org_id;
12693 if sql%rowcount<=0 then
12694 return;
12695 else
12696 FND_FILE.PUT_LINE(FND_FILE.LOG,'Inserted into customer gt-->'||sql%rowcount);
12697 end if;
12698 else
12699 null;
12700 end if;
12701
12702 delete from iex_dln_uwq_summary summ
12703 where exists(select 1
12704 from iex_pop_uwq_summ_gt gt
12705 where gt.object_id=summ.party_id
12706 and summ.cust_account_id is null
12707 and summ.site_use_id is null
12708 and gt.org_id=summ.org_id)
12709 and summ.business_level<>'CUSTOMER';
12710 LogMessage(FND_LOG.LEVEL_STATEMENT,'No. of records deleted at CUSTOMER level->' || sql%rowcount);
12711
12712 commit;
12713 --End Bug 8707923 27-Jul-2009 barathsr
12714 open c_iex_customer_uwq_summary;
12715 loop
12716 l_count := l_count +1;
12717 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'----------');
12718 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Bulk ' || l_count);
12719
12720 L_ORG_ID.delete;
12721 L_COLLECTOR_ID.delete;
12722 L_COLLECTOR_RESOURCE_ID.delete;
12723 L_COLLECTOR_RES_TYPE.delete;
12724 L_IEU_OBJECT_FUNCTION.delete;
12725 L_IEU_OBJECT_PARAMETERS.delete;
12726 L_IEU_MEDIA_TYPE_UUID.delete;
12727 L_IEU_PARAM_PK_COL.delete;
12728 L_IEU_PARAM_PK_VALUE.delete;
12729 L_RESOURCE_ID.delete;
12730 L_RESOURCE_TYPE.delete;
12731 L_PARTY_ID.delete;
12732 L_PARTY_NAME.delete;
12733 L_CUST_ACCOUNT_ID.delete;
12734 L_ACCOUNT_NAME.delete;
12735 L_ACCOUNT_NUMBER.delete;
12736 L_SITE_USE_ID.delete;
12737 L_LOCATION.delete;
12738 L_CURRENCY.delete;
12739 L_OP_INVOICES_COUNT.delete;
12740 L_OP_DEBIT_MEMOS_COUNT.delete;
12741 L_OP_DEPOSITS_COUNT.delete;
12742 L_OP_BILLS_RECEIVABLES_COUNT.delete;
12743 L_OP_CHARGEBACK_COUNT.delete;
12744 L_OP_CREDIT_MEMOS_COUNT.delete;
12745 L_UNRESOLVED_CASH_COUNT.delete;
12746 L_DISPUTED_INV_COUNT.delete;
12747 L_BEST_CURRENT_RECEIVABLES.delete;
12748 L_OP_INVOICES_VALUE.delete;
12749 L_OP_DEBIT_MEMOS_VALUE.delete;
12750 L_OP_DEPOSITS_VALUE.delete;
12751 L_OP_BILLS_RECEIVABLES_VALUE.delete;
12752 L_OP_CHARGEBACK_VALUE.delete;
12753 L_OP_CREDIT_MEMOS_VALUE.delete;
12754 L_UNRESOLVED_CASH_VALUE.delete;
12755 L_RECEIPTS_AT_RISK_VALUE.delete;
12756 L_INV_AMT_IN_DISPUTE.delete;
12757 L_PENDING_ADJ_VALUE.delete;
12758 L_PAST_DUE_INV_VALUE.delete;
12759 L_PAST_DUE_INV_INST_COUNT.delete;
12760 L_LAST_PAYMENT_DATE.delete;
12761 L_LAST_PAYMENT_AMOUNT.delete;
12762 L_LAST_PAYMENT_AMOUNT_CURR.delete;
12763 L_LAST_PAYMENT_NUMBER.delete;
12764 L_LAST_UPDATE_DATE.delete;
12765 L_LAST_UPDATED_BY.delete;
12766 L_CREATION_DATE.delete;
12767 L_CREATED_BY.delete;
12768 L_LAST_UPDATE_LOGIN.delete;
12769 L_NUMBER_OF_DELINQUENCIES.delete;
12770 L_ACTIVE_DELINQUENCIES.delete;
12771 L_COMPLETE_DELINQUENCIES.delete;
12772 L_PENDING_DELINQUENCIES.delete;
12773 L_SCORE.delete;
12774 L_ADDRESS1.delete;
12775 L_CITY.delete;
12776 L_STATE.delete;
12777 L_COUNTY.delete;
12778 L_COUNTRY.delete;
12779 L_PROVINCE.delete;
12780 L_POSTAL_CODE.delete;
12781 L_PHONE_COUNTRY_CODE.delete;
12782 L_PHONE_AREA_CODE.delete;
12783 L_PHONE_NUMBER.delete;
12784 L_PHONE_EXTENSION.delete;
12785 L_NUMBER_OF_BANKRUPTCIES.delete;
12786 L_NUMBER_OF_PROMISES.delete;
12787 L_BROKEN_PROMISE_AMOUNT.delete;
12788 L_PROMISE_AMOUNT.delete;
12789 L_ACTIVE_PROMISES.delete;
12790 L_COMPLETE_PROMISES.delete;
12791 L_PENDING_PROMISES.delete;
12792 LogMessage(FND_LOG.LEVEL_STATEMENT,'Start fetching records...');
12793 FETCH c_iex_customer_uwq_summary bulk collect
12794 INTO
12795 L_ORG_ID,
12796 L_IEU_OBJECT_FUNCTION,
12797 L_IEU_OBJECT_PARAMETERS,
12798 L_IEU_MEDIA_TYPE_UUID,
12799 L_IEU_PARAM_PK_COL,
12800 L_IEU_PARAM_PK_VALUE,
12801 L_RESOURCE_ID,
12802 L_RESOURCE_TYPE,
12803 L_PARTY_ID,
12804 L_PARTY_NAME,
12805 L_CUST_ACCOUNT_ID,
12806 L_ACCOUNT_NAME,
12807 L_ACCOUNT_NUMBER,
12808 L_SITE_USE_ID,
12809 L_LOCATION,
12810 L_CURRENCY,
12811 L_OP_INVOICES_COUNT,
12812 L_OP_DEBIT_MEMOS_COUNT,
12813 L_OP_DEPOSITS_COUNT,
12814 L_OP_BILLS_RECEIVABLES_COUNT,
12815 L_OP_CHARGEBACK_COUNT,
12816 L_OP_CREDIT_MEMOS_COUNT,
12817 L_UNRESOLVED_CASH_COUNT,
12818 L_DISPUTED_INV_COUNT,
12819 L_BEST_CURRENT_RECEIVABLES,
12820 L_OP_INVOICES_VALUE,
12821 L_OP_DEBIT_MEMOS_VALUE,
12822 L_OP_DEPOSITS_VALUE,
12823 L_OP_BILLS_RECEIVABLES_VALUE,
12824 L_OP_CHARGEBACK_VALUE,
12825 L_OP_CREDIT_MEMOS_VALUE,
12826 L_UNRESOLVED_CASH_VALUE,
12827 L_RECEIPTS_AT_RISK_VALUE,
12828 L_INV_AMT_IN_DISPUTE,
12829 L_PENDING_ADJ_VALUE,
12830 L_PAST_DUE_INV_INST_COUNT,
12831 L_LAST_PAYMENT_DATE,
12832 L_LAST_PAYMENT_AMOUNT_CURR,
12833 L_LAST_UPDATE_DATE,
12834 L_LAST_UPDATED_BY,
12835 L_CREATION_DATE,
12836 L_CREATED_BY,
12837 L_LAST_UPDATE_LOGIN,
12838 L_ADDRESS1,
12839 L_CITY,
12840 L_STATE,
12841 L_COUNTY,
12842 L_COUNTRY,
12843 L_PROVINCE,
12844 L_POSTAL_CODE
12845 limit l_max_fetches;
12846
12847 IF L_IEU_OBJECT_FUNCTION.COUNT = 0 THEN
12848
12849 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
12850 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
12851 EXIT;
12852
12853 ELSE
12854
12855 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
12856 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Fetched ' || L_IEU_OBJECT_FUNCTION.COUNT || ' rows.');
12857 LogMessage(FND_LOG.LEVEL_STATEMENT,'Inserting...');
12858 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Start inserting time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
12859 LogMessage(FND_LOG.LEVEL_STATEMENT,'inserting records..');
12860 forall i IN L_IEU_OBJECT_FUNCTION.FIRST .. L_IEU_OBJECT_FUNCTION.LAST
12861 INSERT INTO IEX_DLN_UWQ_SUMMARY
12862 (DLN_UWQ_SUMMARY_ID
12863 ,ORG_ID
12864 ,IEU_OBJECT_FUNCTION
12865 ,IEU_OBJECT_PARAMETERS
12866 ,IEU_MEDIA_TYPE_UUID
12867 ,IEU_PARAM_PK_COL
12868 ,IEU_PARAM_PK_VALUE
12869 ,RESOURCE_ID
12870 ,RESOURCE_TYPE
12871 ,PARTY_ID
12872 ,PARTY_NAME
12873 ,CUST_ACCOUNT_ID
12874 ,ACCOUNT_NAME
12875 ,ACCOUNT_NUMBER
12876 ,SITE_USE_ID
12877 ,LOCATION
12878 ,CURRENCY
12879 ,OP_INVOICES_COUNT
12880 ,OP_DEBIT_MEMOS_COUNT
12881 ,OP_DEPOSITS_COUNT
12882 ,OP_BILLS_RECEIVABLES_COUNT
12883 ,OP_CHARGEBACK_COUNT
12884 ,OP_CREDIT_MEMOS_COUNT
12885 ,UNRESOLVED_CASH_COUNT
12886 ,DISPUTED_INV_COUNT
12887 ,BEST_CURRENT_RECEIVABLES
12888 ,OP_INVOICES_VALUE
12889 ,OP_DEBIT_MEMOS_VALUE
12890 ,OP_DEPOSITS_VALUE
12891 ,OP_BILLS_RECEIVABLES_VALUE
12892 ,OP_CHARGEBACK_VALUE
12893 ,OP_CREDIT_MEMOS_VALUE
12894 ,UNRESOLVED_CASH_VALUE
12895 ,RECEIPTS_AT_RISK_VALUE
12896 ,INV_AMT_IN_DISPUTE
12897 ,PENDING_ADJ_VALUE
12898 ,PAST_DUE_INV_INST_COUNT
12899 ,LAST_PAYMENT_DATE
12900 ,LAST_PAYMENT_AMOUNT_CURR
12901 ,LAST_UPDATE_DATE
12902 ,LAST_UPDATED_BY
12903 ,CREATION_DATE
12904 ,CREATED_BY
12905 ,LAST_UPDATE_LOGIN
12906 ,ADDRESS1
12907 ,CITY
12908 ,STATE
12909 ,COUNTY
12910 ,COUNTRY
12911 ,PROVINCE
12912 ,POSTAL_CODE
12913 ,NUMBER_OF_DELINQUENCIES
12914 ,NUMBER_OF_PROMISES
12915 ,NUMBER_OF_BANKRUPTCIES
12916 ,BUSINESS_LEVEL --Added for Bug 8707923 27-Jul-2009 barathsr
12917 ,REQUEST_ID
12918 ,PROGRAM_ID
12919 ,PROGRAM_APPLICATION_ID
12920 ,OBJECT_VERSION_NUMBER)
12921 VALUES
12922 (IEX_DLN_UWQ_SUMMARY_S.nextval,
12923 L_ORG_ID(i),
12924 L_IEU_OBJECT_FUNCTION(i),
12925 L_IEU_OBJECT_PARAMETERS(i),
12926 L_IEU_MEDIA_TYPE_UUID(i),
12927 L_IEU_PARAM_PK_COL(i),
12928 L_IEU_PARAM_PK_VALUE(i),
12929 L_RESOURCE_ID(i),
12930 L_RESOURCE_TYPE(i),
12931 L_PARTY_ID(i),
12932 L_PARTY_NAME(i),
12933 L_CUST_ACCOUNT_ID(i),
12934 L_ACCOUNT_NAME(i),
12935 L_ACCOUNT_NUMBER(i),
12936 L_SITE_USE_ID(i),
12937 L_LOCATION(i),
12938 L_CURRENCY(i),
12939 L_OP_INVOICES_COUNT(i),
12940 L_OP_DEBIT_MEMOS_COUNT(i),
12941 L_OP_DEPOSITS_COUNT(i),
12942 L_OP_BILLS_RECEIVABLES_COUNT(i),
12943 L_OP_CHARGEBACK_COUNT(i),
12944 L_OP_CREDIT_MEMOS_COUNT(i),
12945 L_UNRESOLVED_CASH_COUNT(i),
12946 L_DISPUTED_INV_COUNT(i),
12947 L_BEST_CURRENT_RECEIVABLES(i),
12948 L_OP_INVOICES_VALUE(i),
12949 L_OP_DEBIT_MEMOS_VALUE(i),
12950 L_OP_DEPOSITS_VALUE(i),
12951 L_OP_BILLS_RECEIVABLES_VALUE(i),
12952 L_OP_CHARGEBACK_VALUE(i),
12953 L_OP_CREDIT_MEMOS_VALUE(i),
12954 L_UNRESOLVED_CASH_VALUE(i),
12955 L_RECEIPTS_AT_RISK_VALUE(i),
12956 L_INV_AMT_IN_DISPUTE(i),
12957 L_PENDING_ADJ_VALUE(i),
12958 L_PAST_DUE_INV_INST_COUNT(i),
12959 L_LAST_PAYMENT_DATE(i),
12960 L_LAST_PAYMENT_AMOUNT_CURR(i),
12961 sysdate,
12962 FND_GLOBAL.USER_ID,
12963 sysdate,
12964 FND_GLOBAL.USER_ID,
12965 FND_GLOBAL.CONC_LOGIN_ID,
12966 L_ADDRESS1(i),
12967 L_CITY(i),
12968 L_STATE(i),
12969 L_COUNTY(i),
12970 L_COUNTRY(i),
12971 L_PROVINCE(i),
12972 L_POSTAL_CODE(i),
12973 0,
12974 0,
12975 0,
12976 'CUSTOMER', --Added for Bug 8707923 27-Jul-2009 barathsr
12977 nvl(FND_GLOBAL.Conc_REQUEST_ID,0),
12978 FND_GLOBAL.CONC_PROGRAM_ID,
12979 FND_GLOBAL.PROG_APPL_ID,
12980 1);
12981
12982 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End inserting time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
12983 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Inserted ' || L_IEU_OBJECT_FUNCTION.COUNT || ' rows for biz lvl-->'||p_level);
12984
12985
12986 l_total := l_total + L_IEU_OBJECT_FUNCTION.COUNT;
12987 LogMessage(FND_LOG.LEVEL_STATEMENT,'So far processed ' || l_total || ' rows');
12988
12989
12990
12991 END IF;
12992
12993 END LOOP;
12994 close c_iex_customer_uwq_summary;
12995
12996 OPEN c_strategy_summary;
12997 LOOP
12998 l_count := l_count +1;
12999 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'----------');
13000 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Bulk ' || l_count);
13001
13002 L_JTF_OBJECT_ID.delete;
13003 L_WORK_ITEM_ID.delete;
13004 L_SCHEDULE_START.delete;
13005 L_SCHEDULE_END.delete;
13006 L_WORK_TYPE.delete;
13007 L_CATEGORY_TYPE.delete;
13008 L_PRIORITY_TYPE.delete;
13009 L_wkitem_RESOURCE_ID.delete;
13010 L_STRATEGY_ID.delete;
13011 L_STRATEGY_TEMPLATE_ID.delete;
13012 L_WORK_ITEM_TEMPLATE_ID.delete;
13013 L_STATUS_CODE.delete;
13014 L_STR_STATUS.delete; -- Added for bug#7416344 by PNAVEENK on 2-4-2009
13015 L_START_TIME.delete;
13016 L_END_TIME.delete;
13017 L_WORK_ITEM_ORDER.delete;
13018 L_ESCALATED_YN.delete; --Added for bug#6981126 by schekuri on 27-Jun-2008
13019
13020 LogMessage(FND_LOG.LEVEL_STATEMENT,'Inited all arrays');
13021
13022 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Start fetching time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
13023 FETCH c_strategy_summary bulk collect
13024 INTO
13025 L_JTF_OBJECT_ID,
13026 L_WORK_ITEM_ID,
13027 L_SCHEDULE_START,
13028 L_SCHEDULE_END,
13029 L_CATEGORY_TYPE,
13030 L_WORK_TYPE,
13031 L_PRIORITY_TYPE,
13032 L_WKITEM_RESOURCE_ID,
13033 L_STRATEGY_ID,
13034 L_STRATEGY_TEMPLATE_ID,
13035 L_WORK_ITEM_TEMPLATE_ID,
13036 L_STATUS_CODE,
13037 L_STR_STATUS, -- Added for bug#7416344 by PNAVEENK on 2-4-2009
13038 L_START_TIME,
13039 L_END_TIME,
13040 L_WORK_ITEM_ORDER,
13041 L_ESCALATED_YN --Added for bug#6981126 by schekuri on 27-Jun-2008
13042 limit l_max_fetches;
13043
13044 LogMessage(FND_LOG.LEVEL_STATEMENT,L_JTF_OBJECT_ID.COUNT);
13045
13046 IF L_JTF_OBJECT_ID.COUNT = 0 THEN
13047
13048 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
13049 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
13050 CLOSE c_strategy_summary;
13051 EXIT;
13052
13053 ELSE
13054
13055 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
13056 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Fetched ' || L_JTF_OBJECT_ID.COUNT || ' rows.');
13057 LogMessage(FND_LOG.LEVEL_STATEMENT,' Updating table...');
13058 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Start updating time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
13059
13060 forall i IN L_JTF_OBJECT_ID.FIRST .. L_JTF_OBJECT_ID.LAST
13061 UPDATE IEX_DLN_UWQ_SUMMARY
13062 SET WORK_ITEM_ID = L_WORK_ITEM_ID(i),
13063 SCHEDULE_START = L_SCHEDULE_START(i),
13064 SCHEDULE_END = L_SCHEDULE_END(i),
13065 WORK_TYPE = L_WORK_TYPE(i),
13066 CATEGORY_TYPE = L_CATEGORY_TYPE(i),
13067 PRIORITY_TYPE = L_PRIORITY_TYPE(i),
13068 WKITEM_RESOURCE_ID = L_WKITEM_RESOURCE_ID(i),
13069 STRATEGY_ID = L_STRATEGY_ID(i),
13070 STRATEGY_TEMPLATE_ID = L_STRATEGY_TEMPLATE_ID(i),
13071 WORK_ITEM_TEMPLATE_ID = L_WORK_ITEM_TEMPLATE_ID(i),
13072 STATUS_CODE = L_STATUS_CODE(i),
13073 STR_STATUS = L_STR_STATUS(i), -- Added fro bug#7416344 by PNAVEENK on 2-4-2009
13074 START_TIME = L_START_TIME(i),
13075 END_TIME = L_END_TIME(i),
13076 WORK_ITEM_ORDER = L_WORK_ITEM_ORDER(i),
13077 WKITEM_ESCALATED_YN = L_ESCALATED_YN(i) --Added for bug#6981126 by schekuri on 27-Jun-2008
13078 WHERE party_id = L_JTF_OBJECT_ID(i);
13079
13080
13081 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Updated ' || L_JTF_OBJECT_ID.COUNT || ' rows');
13082 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End updating time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
13083
13084 l_total := l_total + L_JTF_OBJECT_ID.COUNT;
13085 LogMessage(FND_LOG.LEVEL_STATEMENT,'So far processed ' || l_total || ' rows');
13086
13087 END IF;
13088
13089 END LOOP;
13090
13091 IF c_strategy_summary % ISOPEN THEN
13092 CLOSE c_strategy_summary;
13093 END IF;
13094
13095 BEGIN
13096 OPEN C_COLLECTOR_PROF;
13097 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_collector_prof cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
13098 L_COLLECTOR_RESOURCE_ID.delete ;
13099 L_COLLECTOR_RESOURCE_NAME.delete; -- Added for the bug#7562130
13100 L_COLLECTOR_ID.delete;
13101 L_RESOURCE_TYPE.delete;
13102 L_PARTY_ID.delete;
13103
13104 LOOP
13105 FETCH C_COLLECTOR_PROF bulk collect
13106 INTO
13107 L_COLLECTOR_ID,
13108 L_COLLECTOR_RESOURCE_ID,
13109 L_COLLECTOR_RESOURCE_NAME, -- Added for the bug#7562130
13110 L_RESOURCE_TYPE,
13111 L_PARTY_ID
13112 limit l_max_fetches;
13113 IF L_COLLECTOR_RESOURCE_ID.COUNT = 0 THEN
13114
13115 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_collector_prof ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
13116 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
13117 EXIT;
13118
13119 ELSE
13120
13121 forall i IN L_PARTY_ID.FIRST .. L_PARTY_ID.LAST
13122 UPDATE IEX_DLN_UWQ_SUMMARY
13123 SET COLLECTOR_RESOURCE_ID = L_COLLECTOR_RESOURCE_ID(i),
13124 COLLECTOR_RESOURCE_NAME = L_COLLECTOR_RESOURCE_NAME(i) , -- Added for the bug#7562130
13125 COLLECTOR_RES_TYPE = L_RESOURCE_TYPE(i),
13126 collector_id = l_collector_id(i),
13127 last_update_date = SYSDATE,
13128 last_updated_by = FND_GLOBAL.USER_ID
13129 WHERE
13130 party_id = L_PARTY_ID(i);
13131 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_collector_prof updated ' || L_COLLECTOR_ID.count || ' rows ');
13132 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
13133
13134 END IF;
13135 END LOOP;
13136 IF C_COLLECTOR_PROF % ISOPEN THEN
13137 CLOSE C_COLLECTOR_PROF;
13138 END IF;
13139
13140 EXCEPTION WHEN OTHERS THEN
13141 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Collector profile update received' || SQLERRM);
13142 END;
13143
13144 BEGIN
13145 OPEN c_contact_point;
13146 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Opened Cursor c_contact_point cursor at time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
13147 L_PARTY_ID.delete;
13148 L_PHONE_COUNTRY_CODE.delete;
13149 L_PHONE_AREA_CODE.delete;
13150 L_PHONE_NUMBER.delete;
13151 L_PHONE_EXTENSION.delete;
13152
13153
13154 LOOP
13155 FETCH c_contact_point bulk collect
13156 INTO
13157 L_PARTY_ID,
13158 L_PHONE_COUNTRY_CODE,
13159 L_PHONE_AREA_CODE,
13160 L_PHONE_NUMBER,
13161 L_PHONE_EXTENSION
13162 limit l_max_fetches;
13163 IF L_PARTY_ID.COUNT = 0 THEN
13164
13165 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'c_contact_point Cursor Fetching end time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
13166 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
13167 EXIT;
13168
13169 ELSE
13170
13171 forall i IN L_PARTY_ID.FIRST .. L_PARTY_ID.LAST
13172
13173 UPDATE IEX_DLN_UWQ_SUMMARY
13174 SET PHONE_COUNTRY_CODE = L_PHONE_COUNTRY_CODE(i),
13175 PHONE_AREA_CODE = L_PHONE_AREA_CODE(i),
13176 PHONE_NUMBER = L_PHONE_NUMBER(i),
13177 PHONE_EXTENSION = L_PHONE_EXTENSION(i),
13178 last_update_date = SYSDATE,
13179 last_updated_by = FND_GLOBAL.USER_ID
13180 WHERE PARTY_ID = L_PARTY_ID(i);
13181 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_contact_point Cursor updated ' ||L_PARTY_ID.count || ' rows ');
13182 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
13183
13184 END IF;
13185 END LOOP;
13186 CLOSE c_contact_point;
13187
13188
13189 EXCEPTION WHEN OTHERS THEN
13190 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' Contact point raised error ' || SQLERRM);
13191 END;
13192 BEGIN
13193 OPEN C_CUSTOMER_DEL;
13194 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_customer_del cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
13195 L_PARTY_ID.delete;
13196 L_NUMBER_OF_DELINQUENCIES.delete;
13197 L_PENDING_DELINQUENCIES.delete;
13198 L_COMPLETE_DELINQUENCIES.delete;
13199 L_ACTIVE_DELINQUENCIES.delete;
13200
13201 LOOP
13202 FETCH C_CUSTOMER_DEL bulk collect
13203 INTO
13204 L_PARTY_ID,
13205 L_NUMBER_OF_DELINQUENCIES,
13206 L_PENDING_DELINQUENCIES,
13207 L_COMPLETE_DELINQUENCIES,
13208 L_ACTIVE_DELINQUENCIES
13209 limit l_max_fetches;
13210 IF L_PARTY_ID.COUNT = 0 THEN
13211
13212 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_customer_del ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
13213 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
13214 EXIT;
13215
13216 ELSE
13217
13218 forall i IN L_PARTY_ID.FIRST .. L_PARTY_ID.LAST
13219 UPDATE IEX_DLN_UWQ_SUMMARY
13220 SET NUMBER_OF_DELINQUENCIES = L_NUMBER_OF_DELINQUENCIES(i),
13221 ACTIVE_DELINQUENCIES = L_ACTIVE_DELINQUENCIES(i),
13222 COMPLETE_DELINQUENCIES = L_COMPLETE_DELINQUENCIES(i),
13223 PENDING_DELINQUENCIES = L_PENDING_DELINQUENCIES(i)
13224 WHERE
13225 PARTY_ID = L_PARTY_ID(i);
13226 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_customer_del updated ' || L_COLLECTOR_ID.count || ' rows ');
13227 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
13228
13229 END IF;
13230 END LOOP;
13231 IF C_CUSTOMER_DEL % ISOPEN THEN
13232 CLOSE C_CUSTOMER_DEL;
13233 END IF;
13234
13235 EXCEPTION WHEN OTHERS THEN
13236 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Delinquency update received' || SQLERRM);
13237 END;
13238
13239 BEGIN
13240 OPEN C_CUSTOMER_PRO;
13241 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_customer_pro cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
13242 L_PARTY_ID.delete;
13243 L_ACTIVE_PROMISES.delete;
13244 L_COMPLETE_PROMISES.delete;
13245 L_PENDING_PROMISES.delete;
13246
13247 LOOP
13248 FETCH C_CUSTOMER_PRO bulk collect
13249 INTO
13250 L_PARTY_ID,
13251 L_PENDING_PROMISES,
13252 L_COMPLETE_PROMISES,
13253 L_ACTIVE_PROMISES
13254 limit l_max_fetches;
13255 IF L_PARTY_ID.COUNT = 0 THEN
13256
13257 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_customer_pro ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
13258 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
13259 EXIT;
13260
13261 ELSE
13262
13263 forall i IN L_PARTY_ID.FIRST .. L_PARTY_ID.LAST
13264 UPDATE IEX_DLN_UWQ_SUMMARY
13265 SET ACTIVE_PROMISES = L_ACTIVE_PROMISES(i),
13266 COMPLETE_PROMISES = L_COMPLETE_PROMISES(i),
13267 PENDING_PROMISES = L_PENDING_PROMISES(i)
13268 WHERE
13269 PARTY_ID = L_PARTY_ID(i);
13270 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_customer_pro updated ' || L_COLLECTOR_ID.count || ' rows ');
13271 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
13272
13273 END IF;
13274 END LOOP;
13275 IF C_CUSTOMER_PRO % ISOPEN THEN
13276 CLOSE C_CUSTOMER_PRO;
13277 END IF;
13278
13279 EXCEPTION WHEN OTHERS THEN
13280 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Promise update received' || SQLERRM);
13281 END;
13282
13283 BEGIN
13284 OPEN C_CUSTOMER_PRO_SUMM;
13285 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_customer_pro_summ cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
13286 L_PARTY_ID.delete;
13287 L_NUMBER_OF_PROMISES.delete;
13288 L_BROKEN_PROMISE_AMOUNT .delete;
13289 L_PROMISE_AMOUNT.delete;
13290
13291 LOOP
13292 FETCH C_CUSTOMER_PRO_SUMM bulk collect
13293 INTO
13294 L_PARTY_ID,
13295 L_NUMBER_OF_PROMISES,
13296 L_BROKEN_PROMISE_AMOUNT,
13297 L_PROMISE_AMOUNT
13298 limit l_max_fetches;
13299 IF L_PARTY_ID.COUNT = 0 THEN
13300
13301 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_customer_pro_summ ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
13302 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
13303 EXIT;
13304
13305 ELSE
13306
13307 forall i IN L_PARTY_ID.FIRST .. L_PARTY_ID.LAST
13308 UPDATE IEX_DLN_UWQ_SUMMARY
13309 SET NUMBER_OF_PROMISES = L_NUMBER_OF_PROMISES(i),
13310 BROKEN_PROMISE_AMOUNT = L_BROKEN_PROMISE_AMOUNT(i),
13311 PROMISE_AMOUNT = L_PROMISE_AMOUNT(i)
13312 WHERE
13313 PARTY_ID = L_PARTY_ID(i);
13314 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_customer_pro_summ updated ' || L_COLLECTOR_ID.count || ' rows ');
13315 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
13316
13317 END IF;
13318 END LOOP;
13319 IF C_CUSTOMER_PRO_SUMM % ISOPEN THEN
13320 CLOSE C_CUSTOMER_PRO_SUMM;
13321 END IF;
13322
13323 EXCEPTION WHEN OTHERS THEN
13324 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Broken Promise update received' || SQLERRM);
13325 END;
13326
13327 BEGIN
13328 OPEN C_CUSTOMER_SCORE;
13329 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_customer_score cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
13330 L_PARTY_ID.delete;
13331 L_SCORE.delete;
13332 L_SCORE_ID.delete; -- Added for the bug#7562130
13333 L_SCORE_NAME.delete; -- Added for the bug#7562130
13334
13335 LOOP
13336 FETCH C_CUSTOMER_SCORE bulk collect
13337 INTO
13338 L_PARTY_ID,
13339 L_SCORE,
13340 L_SCORE_ID, -- Added for the bug#7562130
13341 L_SCORE_NAME -- Added for the bug#7562130
13342 limit l_max_fetches;
13343 IF L_PARTY_ID.COUNT = 0 THEN
13344
13345 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_customer_score ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
13346 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
13347 EXIT;
13348
13349 ELSE
13350
13351 forall i IN L_PARTY_ID.FIRST .. L_PARTY_ID.LAST
13352 UPDATE IEX_DLN_UWQ_SUMMARY
13353 SET SCORE = L_SCORE(i),
13354 SCORE_ID = L_SCORE_ID(i), -- Added for the bug#7562130
13355 SCORE_NAME = L_SCORE_NAME(i) -- Added for the bug#7562130
13356 WHERE
13357 PARTY_ID = L_PARTY_ID(i);
13358 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_customer_score updated ' || L_COLLECTOR_ID.count || ' rows ');
13359 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
13360
13361 END IF;
13362 END LOOP;
13363 IF C_CUSTOMER_SCORE % ISOPEN THEN
13364 CLOSE C_CUSTOMER_SCORE;
13365 END IF;
13366
13367 EXCEPTION WHEN OTHERS THEN
13368 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Score update received' || SQLERRM);
13369 END;
13370
13371 BEGIN
13372 OPEN C_CUSTOMER_PAST_DUE;
13373 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_customer_past_due cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
13374 L_PARTY_ID.delete;
13375 L_PAST_DUE_INV_VALUE.delete;
13376
13377 LOOP
13378 FETCH C_CUSTOMER_PAST_DUE bulk collect
13379 INTO
13380 L_PARTY_ID,
13381 L_PAST_DUE_INV_VALUE
13382 limit l_max_fetches;
13383 IF L_PARTY_ID.COUNT = 0 THEN
13384
13385 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_customer_past_due ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
13386 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
13387 EXIT;
13388
13389 ELSE
13390
13391 forall i IN L_PARTY_ID.FIRST .. L_PARTY_ID.LAST
13392 UPDATE IEX_DLN_UWQ_SUMMARY
13393 SET PAST_DUE_INV_VALUE = L_PAST_DUE_INV_VALUE(i)
13394 WHERE
13395 PARTY_ID = L_PARTY_ID(i);
13396 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_customer_past_due updated ' || L_COLLECTOR_ID.count || ' rows ');
13397 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
13398
13399 END IF;
13400 END LOOP;
13401 IF C_CUSTOMER_PAST_DUE % ISOPEN THEN
13402 CLOSE C_CUSTOMER_PAST_DUE;
13403 END IF;
13404
13405 EXCEPTION WHEN OTHERS THEN
13406 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Past due invoice update received' || SQLERRM);
13407 END;
13408
13409 BEGIN
13410 OPEN C_LAST_PAYMENT_NO_AMOUNT;
13411 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_last_payment_no_amount cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
13412 L_PARTY_ID.delete;
13413 L_LAST_PAYMENT_NUMBER.delete;
13414 L_LAST_PAYMENT_AMOUNT.delete;
13415
13416 LOOP
13417 FETCH C_LAST_PAYMENT_NO_AMOUNT bulk collect
13418 INTO
13419 L_PARTY_ID,
13420 L_LAST_PAYMENT_NUMBER,
13421 L_LAST_PAYMENT_AMOUNT
13422 limit l_max_fetches;
13423 IF L_PARTY_ID.COUNT = 0 THEN
13424
13425 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_last_payment_no_amount ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
13426 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
13427 EXIT;
13428
13429 ELSE
13430
13431 forall i IN L_PARTY_ID.FIRST .. L_PARTY_ID.LAST
13432 UPDATE IEX_DLN_UWQ_SUMMARY
13433 SET LAST_PAYMENT_NUMBER = L_LAST_PAYMENT_NUMBER(i),
13434 LAST_PAYMENT_AMOUNT = L_LAST_PAYMENT_AMOUNT(i)
13435 WHERE
13436 PARTY_ID = L_PARTY_ID(i);
13437 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_last_payment_no_amount updated ' || L_COLLECTOR_ID.count || ' rows ');
13438 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
13439
13440 END IF;
13441 END LOOP;
13442 IF C_LAST_PAYMENT_NO_AMOUNT % ISOPEN THEN
13443 CLOSE C_LAST_PAYMENT_NO_AMOUNT;
13444 END IF;
13445
13446 EXCEPTION WHEN OTHERS THEN
13447 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Last payment no and amount update received' || SQLERRM);
13448 END;
13449
13450 BEGIN
13451 OPEN C_BANKRUPTCIES;
13452 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Open c_bankruptcies cursor time: ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
13453 L_PARTY_ID.delete;
13454 L_NUMBER_OF_BANKRUPTCIES.delete;
13455
13456 LOOP
13457 FETCH C_BANKRUPTCIES bulk collect
13458 INTO
13459 L_PARTY_ID,
13460 L_NUMBER_OF_BANKRUPTCIES
13461 limit l_max_fetches;
13462 IF L_PARTY_ID.COUNT = 0 THEN
13463
13464 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'End fetching time: c_bankruptcies ' || to_char(sysdate, 'MM/DD/YYYY HH:MI:SS'));
13465 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'No records found - processing complete. Exiting the loop');
13466 EXIT;
13467
13468 ELSE
13469
13470 forall i IN L_PARTY_ID.FIRST .. L_PARTY_ID.LAST
13471 UPDATE IEX_DLN_UWQ_SUMMARY
13472 SET NUMBER_OF_BANKRUPTCIES = L_NUMBER_OF_BANKRUPTCIES(i)
13473 WHERE
13474 PARTY_ID = L_PARTY_ID(i);
13475 LogMessage(FND_LOG.LEVEL_UNEXPECTED,' c_bankruptcies updated ' || L_COLLECTOR_ID.count || ' rows ');
13476 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'------------------------');
13477
13478 END IF;
13479 END LOOP;
13480 IF C_BANKRUPTCIES % ISOPEN THEN
13481 CLOSE C_BANKRUPTCIES;
13482 END IF;
13483
13484 EXCEPTION WHEN OTHERS THEN
13485 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Last payment no and amount update received' || SQLERRM);
13486 END;
13487 --gnramasa
13488 COMMIT;
13489 LogMessage(FND_LOG.LEVEL_STATEMENT,'Commited');
13490
13491 EXCEPTION
13492 WHEN OTHERS THEN
13493 LogMessage(FND_LOG.LEVEL_STATEMENT,sqlerrm);
13494 END CUSTOMER_REFRESH_SUMMARY_INCR;
13495
13496 PROCEDURE refresh_summary_incr(
13497 x_errbuf OUT nocopy VARCHAR2,
13498 x_retcode OUT nocopy VARCHAR2,
13499 FROM_DATE IN VARCHAR2,
13500 P_MODE IN VARCHAR2 DEFAULT 'CP') is
13501
13502 --Begin Bug 8707923 27-Jul-2009 barathsr
13503 l_level varchar2(20);
13504 l_org_id number;
13505 l_curr_org_id number;
13506 l_allowed_level varchar2(20);
13507
13508 CURSOR c_get_level(c_org_id number) IS
13509 SELECT PREFERENCE_VALUE
13510 FROM IEX_APP_PREFERENCES_B
13511 WHERE PREFERENCE_NAME = 'COLLECTIONS STRATEGY LEVEL'
13512 and (org_id=c_org_id or org_id is null)
13513 and enabled_flag='Y'
13514 order by nvl(org_id,0) desc ;
13515
13516 CURSOR c_allowed_levels IS
13517 SELECT LOOKUP_CODE
13518 FROM IEX_LOOKUPS_V
13519 WHERE LOOKUP_TYPE='IEX_RUNNING_LEVEL'
13520 AND iex_utilities.validate_running_level(LOOKUP_CODE)='Y';
13521
13522 CURSOR c_org(c_org_id number) IS
13523 SELECT organization_id from hr_operating_units where
13524 mo_global.check_access(organization_id) = 'Y'
13525 AND organization_id = nvl(c_org_id,organization_id);
13526
13527 BEGIN
13528
13529 IEX_CHECKLIST_UTILITY.UPDATE_MLSETUP;
13530
13531
13532 select DEFINE_PARTY_RUNNING_LEVEL,DEFINE_OU_RUNNING_LEVEL
13533 into G_PARTY_LVL_ENB,G_OU_LVL_ENB
13534 from IEX_QUESTIONNAIRE_ITEMS;
13535
13536 FND_FILE.PUT_LINE(FND_FILE.LOG,'g_ou_lvl_enb-->'||g_ou_lvl_enb);
13537 FND_FILE.PUT_LINE(FND_FILE.LOG,'g_party_lvl_enb-->'||g_party_lvl_enb);
13538
13539
13540
13541 if (G_OU_LVL_ENB='Y' or G_PARTY_LVL_ENB='Y') then
13542 if G_OU_LVL_ENB='Y' then
13543 MO_GLOBAL.INIT('IEX');
13544 --l_org_id:=mo_global.get_current_org_id;
13545 select org_id
13546 into l_org_id
13547 from fnd_concurrent_requests
13548 where request_id=FND_GLOBAL.CONC_REQUEST_ID;
13549
13550 if l_org_id is null then
13551 MO_GLOBAL.SET_POLICY_CONTEXT('M',NULL); -- Multi Org.
13552 FND_FILE.PUT_LINE(FND_FILE.LOG, 'MO: Operating Unit=' || 'All');
13553 --open c_org(l_org_id);
13554 else
13555 MO_GLOBAL.SET_POLICY_CONTEXT('S',l_ORG_ID);
13556 end if;
13557 for i in c_org(l_org_id) loop
13558 l_curr_org_id:=i.organization_id;
13559 MO_GLOBAL.SET_POLICY_CONTEXT('S',l_curr_org_id );
13560 FND_FILE.PUT_LINE(FND_FILE.LOG,'into OU level');
13561 FND_FILE.PUT_LINE(FND_FILE.LOG,'into OU level-->'||l_curr_org_id);
13562 open c_get_level(l_curr_org_id);
13563 fetch c_get_level into G_SYSTEM_LEVEL;
13564 close c_get_level;
13565 FND_FILE.PUT_LINE(FND_FILE.LOG, 'OU lvl is-->'||G_SYSTEM_LEVEL);
13566
13567 for r_allowed_levels in c_allowed_levels loop
13568 l_allowed_level:=r_allowed_LEVELS.lookup_code;
13569 FND_FILE.PUT_LINE(FND_FILE.LOG,'looping for other levels in ou-->'||r_allowed_LEVELS.lookup_code);
13570 if (g_party_lvl_enb='N' and l_allowed_level=g_system_level) or g_party_lvl_enb='Y' then
13571 IF l_allowed_level = 'CUSTOMER' THEN
13572
13573 FND_FILE.PUT_LINE(FND_FILE.LOG, 'call customer cursor for lvl enb at OU-->'||l_allowed_level);
13574
13575 customer_refresh_summary_incr(x_errbuf,
13576 x_retcode,
13577 from_date,
13578 p_mode,
13579 l_allowed_level);
13580 --Begin Bug 8823567 22-Oct-2009 barathsr
13581 IF nvl(fnd_profile.value('IEX_SHOW_NET_BAL_IN_UWQ'), 'N') = 'Y' then
13582 calculate_net_balance(l_allowed_level,from_date,l_curr_org_id);
13583 end if;
13584 --End Bug 8823567 22-Oct-2009 barathsr
13585
13586 ELSIF l_allowed_level = 'ACCOUNT' THEN
13587 FND_FILE.PUT_LINE(FND_FILE.LOG, 'call account cursor for lvl enb at OU-->'||l_allowed_level);
13588 account_refresh_summary_incr(x_errbuf,
13589 x_retcode,
13590 from_date,
13591 p_mode,
13592 l_allowed_level);
13593 --Begin Bug 8823567 22-Oct-2009 barathsr
13594 IF nvl(fnd_profile.value('IEX_SHOW_NET_BAL_IN_UWQ'), 'N') = 'Y' then
13595 calculate_net_balance(l_allowed_level,from_date,l_curr_org_id);
13596 end if;
13597 --End Bug 8823567 22-Oct-2009 barathsr
13598 ELSIF l_allowed_level = 'BILL_TO' THEN
13599 FND_FILE.PUT_LINE(FND_FILE.LOG, 'call billto cursor for lvl enb at OU-->'||l_allowed_level);
13600 billto_refresh_summary_incr(x_errbuf,
13601 x_retcode,
13602 from_date,
13603 p_mode,
13604 l_allowed_level);
13605 --Begin Bug 8823567 22-Oct-2009 barathsr
13606 IF nvl(fnd_profile.value('IEX_SHOW_NET_BAL_IN_UWQ'), 'N') = 'Y' then
13607 calculate_net_balance(l_allowed_level,from_date,l_curr_org_id);
13608 end if;
13609 --End Bug 8823567 22-Oct-2009 barathsr
13610 ELSE
13611 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Delinquency level is not implemented at this time. Exiting.');
13612 return;
13613 end if;
13614 end if;
13615 FND_FILE.PUT_LINE(FND_FILE.LOG, 'end of allowed level loop');
13616 end loop;
13617 FND_FILE.PUT_LINE(FND_FILE.LOG, 'end of org_id loop');
13618 end loop;
13619
13620 elsif G_PARTY_LVL_ENB='Y' then
13621 FND_FILE.PUT_LINE(FND_FILE.LOG,'inside party level');
13622 open c_get_level(null);
13623 fetch c_get_level into G_SYSTEM_LEVEL;
13624 close c_get_level;
13625 FND_FILE.PUT_LINE(FND_FILE.LOG, 'party lvl is-->'||G_SYSTEM_LEVEL);
13626 for r_allowed_levels in c_allowed_levels loop
13627 l_allowed_level:=r_allowed_LEVELS.lookup_code;
13628 FND_FILE.PUT_LINE(FND_FILE.LOG,'looping for other levels in party-->'||r_allowed_LEVELS.lookup_code);
13629 IF l_allowed_level = 'CUSTOMER' THEN
13630 FND_FILE.PUT_LINE(FND_FILE.LOG, 'call customer cursor for lvl enb at party-->'||l_allowed_level);
13631 customer_refresh_summary_incr(x_errbuf,
13632 x_retcode,
13633 from_date,
13634 p_mode,
13635 l_allowed_level);
13636 --Begin Bug 8823567 22-Oct-2009 barathsr
13637 IF nvl(fnd_profile.value('IEX_SHOW_NET_BAL_IN_UWQ'), 'N') = 'Y' then
13638 calculate_net_balance(l_allowed_level,from_date,null);
13639 end if;
13640 --End Bug 8823567 22-Oct-2009 barathsr
13641
13642 ELSIF l_allowed_level = 'ACCOUNT' THEN
13643 FND_FILE.PUT_LINE(FND_FILE.LOG, 'call account cursor for lvl enb at party-->'||l_allowed_level);
13644 account_refresh_summary_incr(x_errbuf,
13645 x_retcode,
13646 from_date,
13647 p_mode,
13648 l_allowed_level);
13649 --Begin Bug 8823567 22-Oct-2009 barathsr
13650 IF nvl(fnd_profile.value('IEX_SHOW_NET_BAL_IN_UWQ'), 'N') = 'Y' then
13651 calculate_net_balance(l_allowed_level,from_date,null);
13652 end if;
13653 --End Bug 8823567 22-Oct-2009 barathsr
13654 ELSIF l_allowed_level = 'BILL_TO' THEN
13655 FND_FILE.PUT_LINE(FND_FILE.LOG, 'call billto cursor for lvl enb at party-->'||l_allowed_level);
13656 billto_refresh_summary_incr(x_errbuf,
13657 x_retcode,
13658 from_date,
13659 p_mode,
13660 l_allowed_level);
13661 --Begin Bug 8823567 22-Oct-2009 barathsr
13662 IF nvl(fnd_profile.value('IEX_SHOW_NET_BAL_IN_UWQ'), 'N') = 'Y' then
13663 calculate_net_balance(l_allowed_level,from_date,null);
13664 end if;
13665 --End Bug 8823567 22-Oct-2009 barathsr
13666 ELSE
13667 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Delinquency level is not implemented at this time. Exiting.');
13668 return;
13669 end if;
13670 FND_FILE.PUT_LINE(FND_FILE.LOG, 'end of allowed level loop');
13671 end loop;
13672
13673 end if;
13674
13675 else
13676 open c_get_level(null);
13677 fetch c_get_level into G_SYSTEM_LEVEL;
13678 FND_FILE.PUT_LINE(FND_FILE.LOG,'inside system level-->'||G_SYSTEM_LEVEL);
13679 -- l_allowed_level:=G_SYSTEM_LEVEL;
13680 IF G_SYSTEM_LEVEL= 'CUSTOMER' THEN
13681 FND_FILE.PUT_LINE(FND_FILE.LOG, 'call customer cursor for lvl enb at system-->'||G_SYSTEM_LEVEL);
13682 customer_refresh_summary_incr(x_errbuf,
13683 x_retcode,
13684 from_date,
13685 p_mode,
13686 G_SYSTEM_LEVEL);
13687 --Begin Bug 8823567 22-Oct-2009 barathsr
13688 IF nvl(fnd_profile.value('IEX_SHOW_NET_BAL_IN_UWQ'), 'N') = 'Y' then
13689 calculate_net_balance(G_SYSTEM_LEVEL,from_date,null);
13690 end if;
13691 --End Bug 8823567 22-Oct-2009 barathsr
13692
13693 ELSIF G_SYSTEM_LEVEL = 'ACCOUNT' THEN
13694 FND_FILE.PUT_LINE(FND_FILE.LOG, 'call account cursor for lvl enb at system-->'||G_SYSTEM_LEVEL);
13695 account_refresh_summary_incr(x_errbuf,
13696 x_retcode,
13697 from_date,
13698 p_mode,
13699 G_SYSTEM_LEVEL);
13700 --Begin Bug 8823567 22-Oct-2009 barathsr
13701 IF nvl(fnd_profile.value('IEX_SHOW_NET_BAL_IN_UWQ'), 'N') = 'Y' then
13702 calculate_net_balance(G_SYSTEM_LEVEL,from_date,null);
13703 end if;
13704 --End Bug 8823567 22-Oct-2009 barathsr
13705
13706 ELSIF G_SYSTEM_LEVEL = 'BILL_TO' THEN
13707 FND_FILE.PUT_LINE(FND_FILE.LOG, 'call billto cursor for lvl enb at system-->'||G_SYSTEM_LEVEL);
13708 billto_refresh_summary_incr(x_errbuf,
13709 x_retcode,
13710 from_date,
13711 p_mode,
13712 G_SYSTEM_LEVEL);
13713
13714 --Begin Bug 8823567 22-Oct-2009 barathsr
13715 IF nvl(fnd_profile.value('IEX_SHOW_NET_BAL_IN_UWQ'), 'N') = 'Y' then
13716 calculate_net_balance(G_SYSTEM_LEVEL,from_date,null);
13717 end if;
13718 --End Bug 8823567 22-Oct-2009 barathsr
13719 ELSE
13720 LogMessage(FND_LOG.LEVEL_UNEXPECTED,'Delinquency level is not implemented at this time. Exiting.');
13721 return;
13722 end if;
13723 close c_get_level;
13724 end if;
13725
13726 FND_FILE.PUT_LINE(FND_FILE.LOG, 'end of a level');
13727
13728 EXCEPTION
13729 WHEN OTHERS THEN
13730 LogMessage(FND_LOG.LEVEL_STATEMENT,sqlerrm);
13731 END;
13732 --End Bug 8707923 27-Jul-2009 barathsr
13733 -- Start PNAVEENK for bug#7662453 on 22-12-2008
13734 -- This procedure will be called whenever "IEX: Populate UWQ Summary Table" cp runs.
13735 -- This Procedure updates the IEX_DLN_UWQ_SUMMARY table aging columns with values calculated using IEX_AGING_BUCKETS_PKG package.
13736 -- The package IEX_AGING_BUCKETS_PKG calculates aging summary on current values respective to PARTY/ACCOUNT/BILLTO.
13737 -- Start PNAVEENK for bug#7662453 on 22-12-2008
13738 PROCEDURE populate_aging_info(p_fmode varchar2, p_from_date date,p_org_id number)--Added for Bug 8707923 27-Jul-2009 barathsr
13739 IS
13740
13741 l_default_bucket varchar2(100);
13742 l_default_bucket_id number;
13743 l_max_fetches NUMBER;
13744 l_bucket_lines_tbl IEX_AGING_BUCKETS_PKG.bucket_Lines_Tbl;
13745
13746 type l_aging_tbl_type is table of number Index By Binary_Integer;
13747 l_amount1 l_aging_tbl_type;
13748 l_count1 l_aging_tbl_type;
13749 l_amount2 l_aging_tbl_type;
13750 l_count2 l_aging_tbl_type;
13751 l_amount3 l_aging_tbl_type;
13752 l_count3 l_aging_tbl_type;
13753 l_amount4 l_aging_tbl_type;
13754 l_count4 l_aging_tbl_type;
13755 l_amount5 l_aging_tbl_type;
13756 l_count5 l_aging_tbl_type;
13757 l_amount6 l_aging_tbl_type;
13758 l_count6 l_aging_tbl_type;
13759 l_amount7 l_aging_tbl_type;
13760 l_count7 l_aging_tbl_type;
13761 l_IEU_PARAM_PK_VALUE l_aging_tbl_type;
13762 l_org_id l_aging_tbl_type;
13763 -- start for bug 8924594 PNAVEENK
13764 l_party_id l_aging_tbl_type;
13765 l_cust_account_id l_aging_tbl_type;
13766 l_site_use_id l_aging_tbl_type;
13767 -- end for bug 8924594
13768 var1 varchar2(30);
13769 var2 number;
13770 var3 varchar2(30);
13771 k number;
13772 j number;
13773
13774 --Begin Bug 8707923 27-Jul-2009 barathsr
13775 CURSOR C_ORGS IS
13776 select distinct org_id
13777 from iex_dln_uwq_summary
13778 where org_id=nvl(p_org_id,org_id);
13779 --End Bug 8707923 27-Jul-2009 barathsr
13780
13781 CURSOR c_aging_summary(p_org_id number) IS
13782 select ieu_param_pk_value , party_id, cust_account_id , site_use_id
13783 FROM iex_dln_uwq_summary
13784 where org_id=p_org_id
13785 -- AND last_update_date >= nvl( p_from_date, last_update_date);
13786 --AND last_update_date >= trunc(sysdate-1); -- changed for bug 13322580 pnaveenk if program runs on next day
13787 AND request_id = FND_GLOBAL.CONC_REQUEST_ID; -- Added for bug13452739
13788
13789
13790
13791 Begin
13792
13793 l_max_fetches := to_number(nvl(fnd_profile.value('IEX_BATCH_SIZE'), '100000'));
13794 l_default_bucket := fnd_profile.value('IEX_COLLECTIONS_BUCKET_NAME') ;
13795 select aging_bucket_id into l_default_bucket_id from ar_aging_buckets where bucket_name = l_default_bucket;
13796
13797 -- Loop runs for each operating unit once and each time loops for all IEU_PARAM_PK_VALUE values
13798 for r_org in c_orgs loop
13799
13800 mo_global.set_policy_context('S',r_org.org_id);
13801 j := 1;
13802 for r_aging in c_aging_summary(r_org.org_id) loop
13803
13804 IEX_AGING_BUCKETS_PKG.QUERY_AGING_LINES(p_api_version => 1.0,
13805 p_init_msg_list => 'T',
13806 p_commit => 'F',
13807 p_validation_level => 100,
13808 x_return_status => var1,
13809 x_msg_count => var2,
13810 x_msg_data => var3,
13811 p_filter_mode => p_fmode,
13812 p_filter_id => r_aging.IEU_PARAM_PK_VALUE,
13813 p_customer_site_use_id=> NULL,
13814 p_bucket_id => l_default_bucket_id,
13815 p_credit_option => 'AGE',
13816 p_using_paying_rel => 'N',
13817 x_bucket_lines_tbl => l_bucket_lines_tbl);
13818
13819 k := l_bucket_lines_tbl.count;
13820
13821 while k < 8
13822 loop
13823 l_bucket_lines_tbl(k).amount := null;
13824 l_bucket_lines_tbl(k).invoice_count :=null;
13825 l_bucket_lines_tbl(k).dm_count :=null;
13826 l_bucket_lines_tbl(k).cb_count := null;
13827 l_bucket_lines_tbl(k).consolidated_invoices :=null;
13828 k := k + 1;
13829 end loop;
13830 l_amount1(j) := l_bucket_lines_tbl(1).amount;
13831 l_count1(j) := l_bucket_lines_tbl(1).invoice_count+l_bucket_lines_tbl(1).dm_count+l_bucket_lines_tbl(1).cb_count+l_bucket_lines_tbl(1).consolidated_invoices;
13832 l_amount2(j) := l_bucket_lines_tbl(2).amount;
13833 l_count2(j) := l_bucket_lines_tbl(2).invoice_count+l_bucket_lines_tbl(2).dm_count+l_bucket_lines_tbl(2).cb_count+l_bucket_lines_tbl(2).consolidated_invoices;
13834 l_amount3(j) := l_bucket_lines_tbl(3).amount;
13835 l_count3(j) := l_bucket_lines_tbl(3).invoice_count+l_bucket_lines_tbl(3).dm_count+l_bucket_lines_tbl(3).cb_count+l_bucket_lines_tbl(3).consolidated_invoices;
13836 l_amount4(j) := l_bucket_lines_tbl(4).amount;
13837 l_count4(j) := l_bucket_lines_tbl(4).invoice_count+l_bucket_lines_tbl(4).dm_count+l_bucket_lines_tbl(4).cb_count+l_bucket_lines_tbl(4).consolidated_invoices;
13838 l_amount5(j) := l_bucket_lines_tbl(5).amount;
13839 l_count5(j) := l_bucket_lines_tbl(5).invoice_count+l_bucket_lines_tbl(5).dm_count+l_bucket_lines_tbl(5).cb_count+l_bucket_lines_tbl(5).consolidated_invoices;
13840 l_amount6(j) := l_bucket_lines_tbl(6).amount;
13841 l_count6(j) := l_bucket_lines_tbl(6).invoice_count+l_bucket_lines_tbl(6).dm_count+l_bucket_lines_tbl(6).cb_count+l_bucket_lines_tbl(6).consolidated_invoices;
13842 l_amount7(j) := l_bucket_lines_tbl(7).amount;
13843 l_count7(j) := l_bucket_lines_tbl(7).invoice_count+l_bucket_lines_tbl(7).dm_count+l_bucket_lines_tbl(7).cb_count+l_bucket_lines_tbl(7).consolidated_invoices;
13844 l_IEU_PARAM_PK_VALUE(j) := r_aging.IEU_PARAM_PK_VALUE;
13845 l_org_id(j) := r_org.org_id;
13846
13847 -- start for bug 8924594 PNAVEENK
13848 l_party_id(j) := r_aging.party_id;
13849 l_cust_account_id(j) := r_aging.cust_account_id;
13850 l_site_use_id(j) := r_aging.site_use_id;
13851 -- end for bug 8924594
13852
13853 if j = l_max_fetches then
13854
13855 if p_fmode = 'PARTY' then
13856
13857 forall n in l_amount1.FIRST .. l_amount1.LAST
13858 update IEX_DLN_UWQ_SUMMARY set
13859 AGING_amount1 = nvl(l_amount1(n),0),
13860 AGING_COUNT1 = nvl(l_count1(n),0),
13861 AGING_amount2 = nvl(l_amount2(n),0),
13862 AGING_COUNT2 = nvl(l_count2(n),0),
13863 AGING_amount3 = nvl(l_amount3(n),0),
13864 AGING_COUNT3 = nvl(l_count3(n),0),
13865 AGING_amount4 = nvl(l_amount4(n),0),
13866 AGING_COUNT4 = nvl(l_count4(n),0),
13867 AGING_amount5 = nvl(l_amount5(n),0),
13868 AGING_COUNT5 = nvl(l_count5(n),0),
13869 AGING_amount6 = nvl(l_amount6(n),0),
13870 AGING_COUNT6 = nvl(l_count6(n),0),
13871 AGING_amount7 = nvl(l_amount7(n),0),
13872 AGING_COUNT7 = nvl(l_count7(n),0)
13873 where party_id = l_party_id(n)
13874 and cust_account_id is null
13875 and site_use_id is null
13876 AND org_id = l_org_id(n);
13877 elsif p_fmode = 'CUST' then
13878 forall n in l_amount1.FIRST .. l_amount1.LAST
13879 update IEX_DLN_UWQ_SUMMARY set
13880 AGING_amount1 = nvl(l_amount1(n),0),
13881 AGING_COUNT1 = nvl(l_count1(n),0),
13882 AGING_amount2 = nvl(l_amount2(n),0),
13883 AGING_COUNT2 = nvl(l_count2(n),0),
13884 AGING_amount3 = nvl(l_amount3(n),0),
13885 AGING_COUNT3 = nvl(l_count3(n),0),
13886 AGING_amount4 = nvl(l_amount4(n),0),
13887 AGING_COUNT4 = nvl(l_count4(n),0),
13888 AGING_amount5 = nvl(l_amount5(n),0),
13889 AGING_COUNT5 = nvl(l_count5(n),0),
13890 AGING_amount6 = nvl(l_amount6(n),0),
13891 AGING_COUNT6 = nvl(l_count6(n),0),
13892 AGING_amount7 = nvl(l_amount7(n),0),
13893 AGING_COUNT7 = nvl(l_count7(n),0)
13894 where party_id = l_party_id(n)
13895 and cust_account_id = l_cust_account_id(n)
13896 and site_use_id is null
13897 AND org_id = l_org_id(n);
13898 else
13899 forall n in l_amount1.FIRST .. l_amount1.LAST
13900 update IEX_DLN_UWQ_SUMMARY set
13901 AGING_amount1 = nvl(l_amount1(n),0),
13902 AGING_COUNT1 = nvl(l_count1(n),0),
13903 AGING_amount2 = nvl(l_amount2(n),0),
13904 AGING_COUNT2 = nvl(l_count2(n),0),
13905 AGING_amount3 = nvl(l_amount3(n),0),
13906 AGING_COUNT3 = nvl(l_count3(n),0),
13907 AGING_amount4 = nvl(l_amount4(n),0),
13908 AGING_COUNT4 = nvl(l_count4(n),0),
13909 AGING_amount5 = nvl(l_amount5(n),0),
13910 AGING_COUNT5 = nvl(l_count5(n),0),
13911 AGING_amount6 = nvl(l_amount6(n),0),
13912 AGING_COUNT6 = nvl(l_count6(n),0),
13913 AGING_amount7 = nvl(l_amount7(n),0),
13914 AGING_COUNT7 = nvl(l_count7(n),0)
13915 where party_id = l_party_id(n)
13916 and cust_account_id = l_cust_account_id(n)
13917 and site_use_id = l_site_use_id(n)
13918 AND org_id = l_org_id(n);
13919 end if;
13920
13921 j := 0;
13922 l_amount1.DELETE;
13923 l_count1.DELETE;
13924 l_amount2.DELETE;
13925 l_count2.DELETE;
13926 l_amount3.DELETE;
13927 l_count3.DELETE;
13928 l_amount4.DELETE;
13929 l_count4.DELETE;
13930 l_amount5.DELETE;
13931 l_count5.DELETE;
13932 l_amount6.DELETE;
13933 l_count6.DELETE;
13934 l_amount7.DELETE;
13935 l_count7.DELETE;
13936 l_IEU_PARAM_PK_VALUE.DELETE;
13937 l_org_id.DELETE;
13938
13939 -- start for bug 8924594 PNAVEENK
13940 l_party_id.DELETE;
13941 l_cust_account_id.DELETE;
13942 l_site_use_id.DELETE;
13943 -- end for bug 8924594
13944
13945 end if;
13946
13947
13948 j := j + 1;
13949 l_bucket_lines_tbl.DELETE;
13950 end loop; --r_aging
13951 if l_amount1.count> 0 then
13952 j :=1;
13953 if p_fmode = 'PARTY' then
13954 forall n in l_amount1.FIRST .. l_amount1.LAST
13955 update IEX_DLN_UWQ_SUMMARY set
13956 AGING_amount1 = nvl(l_amount1(n),0),
13957 AGING_COUNT1 = nvl(l_count1(n),0),
13958 AGING_amount2 = nvl(l_amount2(n),0),
13959 AGING_COUNT2 = nvl(l_count2(n),0),
13960 AGING_amount3 = nvl(l_amount3(n),0),
13961 AGING_COUNT3 = nvl(l_count3(n),0),
13962 AGING_amount4 = nvl(l_amount4(n),0),
13963 AGING_COUNT4 = nvl(l_count4(n),0),
13964 AGING_amount5 = nvl(l_amount5(n),0),
13965 AGING_COUNT5 = nvl(l_count5(n),0),
13966 AGING_amount6 = nvl(l_amount6(n),0),
13967 AGING_COUNT6 = nvl(l_count6(n),0),
13968 AGING_amount7 = nvl(l_amount7(n),0),
13969 AGING_COUNT7 = nvl(l_count7(n),0)
13970 where party_id = l_party_id(n)
13971 and cust_account_id is null
13972 and site_use_id is null
13973 AND org_id = l_org_id(n);
13974
13975 elsif p_fmode = 'CUST' then
13976 forall n in l_amount1.FIRST .. l_amount1.LAST
13977 update IEX_DLN_UWQ_SUMMARY set
13978 AGING_amount1 = nvl(l_amount1(n),0),
13979 AGING_COUNT1 = nvl(l_count1(n),0),
13980 AGING_amount2 = nvl(l_amount2(n),0),
13981 AGING_COUNT2 = nvl(l_count2(n),0),
13982 AGING_amount3 = nvl(l_amount3(n),0),
13983 AGING_COUNT3 = nvl(l_count3(n),0),
13984 AGING_amount4 = nvl(l_amount4(n),0),
13985 AGING_COUNT4 = nvl(l_count4(n),0),
13986 AGING_amount5 = nvl(l_amount5(n),0),
13987 AGING_COUNT5 = nvl(l_count5(n),0),
13988 AGING_amount6 = nvl(l_amount6(n),0),
13989 AGING_COUNT6 = nvl(l_count6(n),0),
13990 AGING_amount7 = nvl(l_amount7(n),0),
13991 AGING_COUNT7 = nvl(l_count7(n),0)
13992 where party_id = l_party_id(n)
13993 and cust_account_id = l_cust_account_id(n)
13994 and site_use_id is null
13995 AND org_id = l_org_id(n);
13996 else
13997 forall n in l_amount1.FIRST .. l_amount1.LAST
13998 update IEX_DLN_UWQ_SUMMARY set
13999 AGING_amount1 = nvl(l_amount1(n),0),
14000 AGING_COUNT1 = nvl(l_count1(n),0),
14001 AGING_amount2 = nvl(l_amount2(n),0),
14002 AGING_COUNT2 = nvl(l_count2(n),0),
14003 AGING_amount3 = nvl(l_amount3(n),0),
14004 AGING_COUNT3 = nvl(l_count3(n),0),
14005 AGING_amount4 = nvl(l_amount4(n),0),
14006 AGING_COUNT4 = nvl(l_count4(n),0),
14007 AGING_amount5 = nvl(l_amount5(n),0),
14008 AGING_COUNT5 = nvl(l_count5(n),0),
14009 AGING_amount6 = nvl(l_amount6(n),0),
14010 AGING_COUNT6 = nvl(l_count6(n),0),
14011 AGING_amount7 = nvl(l_amount7(n),0),
14012 AGING_COUNT7 = nvl(l_count7(n),0)
14013 where party_id = l_party_id(n)
14014 and cust_account_id = l_cust_account_id(n)
14015 and site_use_id = l_site_use_id(n)
14016 AND org_id = l_org_id(n);
14017 end if;
14018
14019
14020 end if;
14021 end loop; --r_org
14022
14023
14024
14025
14026 EXCEPTION
14027 WHEN OTHERS THEN
14028 LogMessage(FND_LOG.LEVEL_STATEMENT,sqlerrm);
14029
14030 END populate_aging_info;
14031 -- End for bug#7662453 by PNAVEENK
14032 -- Start for the bug#7562130 by PNAVEENK
14033 function cal_score(p_object_id number, p_object_type varchar2, p_select_column varchar2) return varchar2 is
14034 cursor c_score (p_object_id number , p_object_type varchar2) is
14035 SELECT a.score_value, a.score_id, b.score_name
14036 FROM iex_score_histories a, iex_scores b
14037 WHERE a.creation_date =
14038 (SELECT MAX(creation_date)
14039 FROM iex_score_histories
14040 WHERE score_object_code = p_object_type
14041 AND score_object_id = p_object_id)
14042 AND rownum < 2
14043 AND a.score_object_code = p_object_type
14044 AND a.score_object_id = p_object_id
14045 and a.score_id = b.score_id;
14046
14047 Begin
14048 If p_object_id = g_object_id and p_object_type = g_object_type then
14049 null;
14050 else
14051 g_object_id := p_object_id;
14052 g_object_type := p_object_type;
14053 open c_score (g_object_id, g_object_type);
14054 fetch c_score into g_score_value,g_score_id,g_score_name;
14055 close c_score;
14056 end if;
14057 if p_select_column = 'SCORE_VALUE' then
14058 return to_char(g_score_value);
14059 elsif p_select_column = 'SCORE_ID' then
14060 return to_char(g_score_id);
14061 else
14062 return g_score_name;
14063 end if;
14064
14065 End cal_score;
14066 -- end for the bug#7562130
14067 -- Start for bug#8261043 by PNAVEENK
14068 -- Procedure updates contracts and case columns in IEX_DLN_UWQ_SUMMARY table
14069
14070 Procedure populate_contracts_info IS
14071 CURSOR C_ORGS IS
14072 select distinct org_id
14073 from iex_dln_uwq_summary;
14074
14075 CURSOR c_contract_summary(p_org_id number) IS
14076 select party_id
14077 FROM iex_dln_uwq_summary
14078 where request_id = FND_GLOBAL.CONC_REQUEST_ID -- Added for bug13452739
14079 --last_update_date >= trunc(sysdate-1) --changed for bug 13322580
14080 and org_id= p_org_id;
14081 type l_count is table of number index by binary_integer;
14082 l_cases_count l_count;
14083 l_del_cases_count l_count;
14084 l_contracts_count l_count;
14085 l_del_contracts_count l_count;
14086 l_party_id l_count;
14087 l_org_id l_count;
14088 l_max_fetches number;
14089 temp number;
14090 Begin
14091 l_max_fetches := to_number(nvl(fnd_profile.value('IEX_BATCH_SIZE'), '100000'));
14092 for r_org in c_orgs loop
14093 temp := 1;
14094 for r_contract in c_contract_summary(r_org.org_id) loop
14095 select count(*) into l_cases_count(temp) from iex_cases_all_b where party_id=r_contract.party_id and org_id=r_org.org_id;
14096 select count(*) into l_del_cases_count(temp) from iex_cases_all_b where party_id=r_contract.party_id and org_id=r_org.org_id and status_code='DELINQUENT';
14097 select count(*) into l_contracts_count(temp) from iex_case_objects where cas_id in (select cas_id from iex_cases_all_b where party_id=r_contract.party_id and org_id = r_org.org_id);
14098 select count(*) into l_del_contracts_count(temp) from iex_case_objects where delinquency_status='DELINQUENT' and cas_id in (select cas_id from iex_cases_all_b where party_id=r_contract.party_id and org_id=r_org.org_id );
14099 l_party_id(temp) := r_contract.party_id;
14100 l_org_id(temp) := r_org.org_id;
14101 temp := temp+1;
14102
14103 if temp = l_max_fetches then
14104 forall i in l_cases_count.FIRST .. l_cases_count.LAST
14105 update iex_dln_uwq_summary set
14106 cases_count = nvl(l_cases_count(i),0),
14107 del_cases_count = nvl(l_del_cases_count(i),0),
14108 contracts_count = nvl(l_contracts_count(i),0),
14109 del_contracts_count = nvl(l_del_contracts_count(i),0)
14110 where party_id = l_party_id(i)
14111 and org_id = l_org_id(i);
14112 l_cases_count.delete;
14113 l_del_cases_count.delete;
14114 l_contracts_count.delete;
14115 l_del_contracts_count.delete;
14116 l_party_id.delete;
14117 l_org_id.delete;
14118
14119 temp :=1;
14120 end if;
14121
14122 end loop; -- end loop r_contract
14123 forall i in l_cases_count.FIRST .. l_cases_count.LAST
14124 update iex_dln_uwq_summary set
14125 cases_count = nvl(l_cases_count(i),0),
14126 del_cases_count = nvl(l_del_cases_count(i),0),
14127 contracts_count = nvl(l_contracts_count(i),0),
14128 del_contracts_count = nvl(l_del_contracts_count(i),0)
14129 where party_id = l_party_id(i)
14130 and org_id = l_org_id(i);
14131
14132 l_cases_count.delete;
14133 l_del_cases_count.delete;
14134 l_contracts_count.delete;
14135 l_del_contracts_count.delete;
14136 l_party_id.delete;
14137 l_org_id.delete;
14138 end loop; -- end loop r_org
14139
14140 EXCEPTION
14141 WHEN OTHERS THEN
14142 LogMessage(FND_LOG.LEVEL_STATEMENT,sqlerrm);
14143
14144 End populate_contracts_info;
14145
14146 -- End for bug#8261043
14147
14148 --Begin Bug 8823567 22-Oct-2009 barathsr
14149
14150 procedure calculate_net_balance(p_fmode varchar2, p_from_date date,p_org_id number) is
14151
14152 CURSOR C_ORGS IS
14153 select distinct org_id
14154 from iex_dln_uwq_summary
14155 where org_id=nvl(p_org_id,org_id);
14156
14157 CURSOR c_get_details(p_org_id number) IS
14158 select party_id, cust_account_id , site_use_id,org_id
14159 FROM iex_dln_uwq_summary
14160 where org_id= p_org_id
14161 -- AND last_update_date >= nvl( p_from_date, last_update_date);
14162 --AND last_update_date >= trunc(sysdate-1); -- chnaged for bug 13322580
14163 AND request_id = FND_GLOBAL.CONC_REQUEST_ID; -- Added for bug13452739
14164 l_party_id number_list;
14165 l_cust_acct_id number_list;
14166 l_site_use_id number_list;
14167 l_org_id number_list;
14168 l_batch_size number:=1000;
14169 begin
14170 for i in c_orgs loop
14171 FND_FILE.PUT_LINE(FND_FILE.LOG,'net bal calc--inside org loop--'||i.org_id);
14172 open c_get_details(i.org_id);
14173 l_party_id.delete;
14174 l_cust_acct_id.delete;
14175 l_site_use_id.delete;
14176 l_org_id.delete;
14177 loop
14178 FETCH c_get_details BULK COLLECT INTO
14179 l_party_id,l_cust_acct_id,l_site_use_id,l_org_id LIMIT G_BATCH_SIZE;
14180 IF l_party_id.count = 0 and l_cust_acct_id.count=0 and l_site_use_id.count=0 THEN
14181
14182 IEX_DEBUG_PUB.LOGMESSAGE('Exit after Updating iex_dln_uwq_summ...');
14183
14184 CLOSE c_get_details;
14185 EXIT;
14186 ELSE
14187 if p_fmode='CUSTOMER' then
14188 FORALL cnt IN l_party_id.first..l_party_id.last
14189 update iex_dln_uwq_summary dln_summ
14190 set net_balance=(select SUM(NVL(aps.acctd_amount_due_remaining,0))
14191 from ar_payment_schedules_all aps,hz_cust_accounts hca -- bug 12771316 PNAVEENK
14192 where aps.customer_id=hca.cust_account_id
14193 and aps.org_id=l_org_id(cnt)
14194 and aps.status='OP'
14195 and hca.party_id=l_party_id(cnt))
14196 -- and nvl(aps.customer_id,1)=nvl(l_cust_acct_id(cnt),1)
14197 -- and nvl(aps.customer_site_use_id,1)=nvl(l_site_use_id(cnt),1))
14198 where party_id=l_party_id(cnt)
14199 and dln_summ.ieu_param_pk_col='PARTY_ID'
14200 and cust_account_id is null
14201 and site_use_id is null
14202 and dln_summ.org_id=l_org_id(cnt);
14203 -- and business_level=p_fmode;
14204 FND_FILE.PUT_LINE(FND_FILE.LOG,'rows updated-'||sql%rowcount);
14205 FND_FILE.PUT_LINE(FND_FILE.LOG,'inside customer');
14206 elsif p_fmode='ACCOUNT' then
14207 FORALL cnt IN l_cust_acct_id.first..l_cust_acct_id.last
14208 update iex_dln_uwq_summary dln_summ
14209 set net_balance=(select SUM(NVL(aps.acctd_amount_due_remaining,0))
14210 from ar_payment_schedules_all aps,hz_cust_accounts hca--,ar_system_parameters asp
14211 where aps.customer_id=hca.cust_account_id
14212 and aps.org_id=l_org_id(cnt)
14213 and aps.status='OP'
14214 and hca.party_id=l_party_id(cnt)
14215 and aps.customer_id=l_cust_acct_id(cnt))
14216 -- and nvl(aps.customer_site_use_id,1)=nvl(l_site_use_id(cnt),1))
14217 where party_id=l_party_id(cnt)
14218 and cust_account_id=l_cust_acct_id(cnt)
14219 and site_use_id is null
14220 and dln_summ.ieu_param_pk_col='CUST_ACCOUNT_ID'
14221 --and nvl(site_use_id,1)=nvl(l_site_use_id(cnt),1)
14222 and dln_summ.org_id=l_org_id(cnt);
14223 -- and business_level=p_fmode;
14224 FND_FILE.PUT_LINE(FND_FILE.LOG,'rows_updated-'||sql%rowcount);
14225 FND_FILE.PUT_LINE(FND_FILE.LOG,'inside account');
14226 elsif p_fmode='BILL_TO' then
14227 FORALL cnt IN l_party_id.first..l_party_id.last
14228 update iex_dln_uwq_summary dln_summ
14229 set net_balance=(select SUM(NVL(aps.acctd_amount_due_remaining,0))
14230 from ar_payment_schedules_all aps,hz_cust_accounts hca--,ar_system_parameters asp
14231 where aps.customer_id=hca.cust_account_id
14232 and aps.org_id=l_org_id(cnt)
14233 and aps.status='OP'
14234 and hca.party_id=l_party_id(cnt)
14235 and aps.customer_id=l_cust_acct_id(cnt)
14236 and aps.customer_site_use_id=l_site_use_id(cnt))
14237 where party_id=l_party_id(cnt)
14238 and cust_account_id=l_cust_acct_id(cnt)
14239 and site_use_id=l_site_use_id(cnt)
14240 and dln_summ.ieu_param_pk_col='CUSTOMER_SITE_USE_ID'
14241 and org_id=l_org_id(cnt);
14242 --and business_level=p_fmode;
14243 FND_FILE.PUT_LINE(FND_FILE.LOG,'rows_updated-'||sql%rowcount);
14244 FND_FILE.PUT_LINE(FND_FILE.LOG,'inside billto');
14245 else
14246 FND_FILE.PUT_LINE(FND_FILE.LOG,'Net Balance calculation--Delinquency level is not implemented at this time');
14247 end if;
14248 end if;
14249 end loop;
14250 end loop;
14251 IF c_get_details % ISOPEN THEN
14252 CLOSE C_get_details;
14253 END IF;
14254
14255
14256 exception
14257 when others then
14258 FND_FILE.PUT_LINE(FND_FILE.LOG,'Error in net balance calculation--'||sqlerrm);
14259 LogMessage(FND_LOG.LEVEL_STATEMENT,sqlerrm);
14260 end ;
14261
14262 --End Bug 8823567 22-Oct-2009 barathsr
14263
14264 BEGIN
14265 G_LOG_ENABLED := 'N';
14266 G_MSG_LEVEL := FND_LOG.LEVEL_UNEXPECTED;
14267
14268 /* getting msg logging info */
14269 G_LOG_ENABLED := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'), 'N');
14270 if (G_LOG_ENABLED = 'N') then
14271 G_MSG_LEVEL := FND_LOG.LEVEL_UNEXPECTED;
14272 else
14273 G_MSG_LEVEL := NVL(to_number(FND_PROFILE.VALUE('AFLOG_LEVEL')), FND_LOG.LEVEL_UNEXPECTED);
14274 end if;
14275
14276 LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_LOG_ENABLED: ' || G_LOG_ENABLED);
14277 LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_MSG_LEVEL: ' || G_MSG_LEVEL);
14278 END;
14279