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

APPS.IEX_PROMISES_BATCH_PUB dependencies on FND_LOG

Line 4: PG_DEBUG NUMBER; -- := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

1: PACKAGE BODY IEX_PROMISES_BATCH_PUB as
2: /* $Header: iexpyrbb.pls 120.13.12010000.6 2009/01/21 06:18:45 barathsr ship $ */
3:
4: PG_DEBUG NUMBER; -- := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5:
6: G_APP_ID CONSTANT NUMBER := 695;
7: G_PKG_NAME CONSTANT VARCHAR2(30):= 'IEX_PROMISES_BATCH_PUB';
8: G_FILE_NAME CONSTANT VARCHAR2(12) := 'iexpyrbb.pls';

Line 28: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

24: if G_REQUEST_ID <> -1 then
25: fnd_file.put_line(FND_FILE.LOG, p_msg);
26: end if;
27: */
28: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
29: iex_debug_pub.LogMessage(p_msg);
30: END IF;
31: END;
32:

Line 43: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

39: l_result1 DATE;
40: l_callback_days NUMBER;
41: vSQL varchar2(500);
42: BEGIN
43: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
44: LogMessage(G_PKG_NAME || '.Get_Calback_Date: start');
45: END IF;
46:
47: l_callback_days := to_number(nvl(fnd_profile.value('IEX_PTP_CALLBACK_DAYS'), '0'));

Line 48: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

44: LogMessage(G_PKG_NAME || '.Get_Calback_Date: start');
45: END IF;
46:
47: l_callback_days := to_number(nvl(fnd_profile.value('IEX_PTP_CALLBACK_DAYS'), '0'));
48: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
49: LogMessage(G_PKG_NAME || '.Get_Calback_Date: callback days from profile = ' || l_callback_days);
50: END IF;
51: if l_callback_days < 0 then
52: l_callback_days := 0;

Line 55: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

51: if l_callback_days < 0 then
52: l_callback_days := 0;
53: end if;
54:
55: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
56: LogMessage(G_PKG_NAME || '.Get_Calback_Date: before cursor execute');
57: END IF;
58: vSQL := 'SELECT TO_NUMBER(TO_CHAR(:b + :a, ''D'')) FROM DUAL';
59:

Line 65: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

61: vSQL
62: INTO l_result
63: using p_promise_date, l_callback_days;
64:
65: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
66: LogMessage(G_PKG_NAME || '.Get_Calback_Date: after cursor execute');
67: END IF;
68:
69: -- If Weekend => Monday

Line 73: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

69: -- If Weekend => Monday
70: -- 6 => Firday
71: -- 1 => Sunday
72:
73: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
74: LogMessage(G_PKG_NAME || '.Get_Calback_Date: l_result = ' || l_result);
75: END IF;
76: if (l_result = 7) then
77: l_callback_days := l_callback_days + 2;

Line 81: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

77: l_callback_days := l_callback_days + 2;
78: elsif (l_result = 1) then
79: l_callback_days := l_callback_days + 1;
80: end if;
81: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
82: LogMessage(G_PKG_NAME || '.Get_Calback_Date: l_callback_days = ' || l_callback_days);
83: END IF;
84:
85: vSQL := 'SELECT :b + :a FROM DUAL';

Line 96: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

92: if trunc(sysdate) > trunc(x_callback_date) then
93: x_callback_date := sysdate;
94: end if;
95:
96: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
97: LogMessage(G_PKG_NAME || '.Get_CALLback_Date: x_callback_date = ' || x_callback_date);
98: END IF;
99:
100: EXCEPTION

Line 102: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

98: END IF;
99:
100: EXCEPTION
101: WHEN OTHERS THEN
102: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
103: LogMessage(G_PKG_NAME || '.Get_CALLback_Date: in other execption');
104: END IF;
105: x_callback_date := sysdate;
106: -- Begin - Andre Araujo - 09/30/2004- Remove obsolete logging

Line 156: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

152: PRD.STATUS = 'OPEN'
153: ORDER BY PRD.PROMISE_DETAIL_ID;
154:
155: BEGIN
156: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
157: iex_debug_pub.LogMessage(G_PKG_NAME || '.CLOSE_PROMISES: this procedure has been obsoleted - no actions have beed done.');
158: END IF;
159: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
160:

Line 168: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

164: We do not need to close or reopen promises if delinquency is closed or reopened - all this will be done by PROB.
165: We are obsoleting status CLOSED.
166:
167:
168: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
169: LogMessage('*************************');
170: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Start');
171: END IF;
172:

Line 176: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

172:
173: -- Standard start of API savepoint
174: SAVEPOINT CLOSE_PROMISES_PVT;
175:
176: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
177: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Savepoint is established');
178: END IF;
179: -- Standard call to check for call compatibility
180: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN

Line 193: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

189: -- Initialize API return status to success
190: l_return_status := FND_API.G_RET_STS_SUCCESS;
191:
192: -- START OF BODY OF API
193: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
194: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Start of body');
195: END IF;
196:
197: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

Line 197: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

193: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
194: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Start of body');
195: END IF;
196:
197: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
198: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Processing closed invoices');
199: END IF;
200: -- run thru table of payments and close promises
201: FOR i IN 1..p_payments_tbl.COUNT LOOP

Line 202: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

198: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Processing closed invoices');
199: END IF;
200: -- run thru table of payments and close promises
201: FOR i IN 1..p_payments_tbl.COUNT LOOP
202: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
203: LogMessage(G_PKG_NAME || '.' || l_api_name || ':record #' || i);
204: LogMessage(G_PKG_NAME || '.' || l_api_name || ':payment_schedule_id = ' || p_payments_tbl(i));
205: END IF;
206:

Line 209: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

205: END IF;
206:
207: -- get open promises for the invoice
208: OPEN get_cl_pro_crs(P_PAYMENT_SCHEDULE_ID => p_payments_tbl(i));
209: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
210: LogMessage(G_PKG_NAME || '.' || l_api_name || ':get_cl_pro_crs cursor is opened');
211: END IF;
212:
213: LOOP

Line 217: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

213: LOOP
214: FETCH get_cl_pro_crs INTO l_promise_detail_id;
215: EXIT WHEN get_cl_pro_crs%NOTFOUND;
216:
217: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
218: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Promise found!');
219: LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_promise_detail_id = ' || l_promise_detail_id);
220: END IF;
221:

Line 222: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

218: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Promise found!');
219: LogMessage(G_PKG_NAME || '.' || l_api_name || ':l_promise_detail_id = ' || l_promise_detail_id);
220: END IF;
221:
222: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
223: LogMessage(G_PKG_NAME || '.' || l_api_name || ':going to update promise ' || l_promise_detail_id || ' with status CLOSED');
224: END IF;
225: UPDATE iex_promise_details
226: SET STATUS = 'CLOSED',

Line 232: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

228: last_updated_by = G_USER_ID
229: WHERE promise_detail_id = l_promise_detail_id;
230:
231: if (sql%notfound) then
232: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
233: LogMessage(G_PKG_NAME || '.' || l_api_name || ':update failed');
234: END IF;
235: -- Begin - Andre Araujo - 09/30/2004- Remove obsolete logging
236: /*

Line 244: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

240: -- P_MESSAGE => 'Failed to update iex_promise_details with STATUS = CLOSED for promise_detail_id = ' || l_promise_detail_id);
241:
242: -- End - Andre Araujo - 09/30/2004- Remove obsolete logging
243: else
244: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
245: LogMessage(G_PKG_NAME || '.' || l_api_name || ':update successfull');
246: END IF;
247: end if;
248: END LOOP;

Line 250: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

246: END IF;
247: end if;
248: END LOOP;
249: CLOSE get_cl_pro_crs;
250: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
251: LogMessage(G_PKG_NAME || '.' || l_api_name || ':get_cl_pro_crs cursor is closed');
252: END IF;
253: END LOOP;
254:

Line 255: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

251: LogMessage(G_PKG_NAME || '.' || l_api_name || ':get_cl_pro_crs cursor is closed');
252: END IF;
253: END LOOP;
254:
255: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
256: LogMessage(G_PKG_NAME || '.' || l_api_name || ':End of body');
257: END IF;
258: -- END OF BODY OF API
259:

Line 284: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

280: -- P_Procedure_name => G_PKG_NAME || '.' || l_api_name,
281: -- P_MESSAGE => 'Failed to close promises.' );
282: -- End - Andre Araujo - 09/30/2004- Remove obsolete logging
283:
284: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
285: LogMessage(G_PKG_NAME || '.' || l_api_name || ': In G_EXC_ERROR exception. Failed to close promises');
286: END IF;
287: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
288: ROLLBACK TO CLOSE_PROMISES_PVT;

Line 297: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

293: -- P_Concurrent_Request_ID => FND_GLOBAL.CONC_REQUEST_ID,
294: -- P_Procedure_name => G_PKG_NAME || '.' || l_api_name,
295: -- P_MESSAGE => 'Failed to close promises.' );
296: -- End - Andre Araujo - 09/30/2004- Remove obsolete logging
297: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
298: LogMessage(G_PKG_NAME || '.' || l_api_name || ': In G_EXC_UNEXPECTED_ERROR exception. Failed to close promises');
299: END IF;
300: WHEN OTHERS THEN
301: ROLLBACK TO CLOSE_PROMISES_PVT;

Line 313: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

309: -- P_Concurrent_Request_ID => FND_GLOBAL.CONC_REQUEST_ID,
310: -- P_Procedure_name => G_PKG_NAME || '.' || l_api_name,
311: -- P_MESSAGE => 'Failed to close promises.' );
312: -- End - Andre Araujo - 09/30/2004- Remove obsolete logging
313: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
314: LogMessage(G_PKG_NAME || '.' || l_api_name || ': In OTHERS exception. Failed to close promises');
315: END IF;
316: */
317:

Line 358: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

354: L_BROKEN_PROMISE_IDS_TBL ids_table;
355:
356: BEGIN
357:
358: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
359: iex_debug_pub.LogMessage(G_PKG_NAME || '.CLOSE_PROMISES: this procedure has been obsoleted - no actions have beed done.');
360: END IF;
361: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
362:

Line 369: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

365: reverse payments from promises automatically.
366: We do not need to close or reopen promises if delinquency is closed or reopened - all this will be done by PROB.
367: We are obsoleting status CLOSED.
368:
369: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
370: iex_debug_pub.LogMessage(G_PKG_NAME || '.CLOSE_PROMISES: start');
371: END IF;
372: -- Standard start of API savepoint
373: SAVEPOINT CLOSE_PROMISES_PVT;

Line 375: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

371: END IF;
372: -- Standard start of API savepoint
373: SAVEPOINT CLOSE_PROMISES_PVT;
374:
375: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
376: iex_debug_pub.LogMessage(G_PKG_NAME || '.CLOSE_PROMISES: Savepoint is established');
377: END IF;
378: -- Standard call to check for call compatibility
379: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN

Line 392: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

388: -- Initialize API return status to success
389: l_return_status := FND_API.G_RET_STS_SUCCESS;
390:
391: -- START OF BODY OF API
392: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
393: iex_debug_pub.LogMessage(G_PKG_NAME || '.CLOSE_PROMISES: Start of body');
394: END IF;
395:
396: -- run thru table of payments and close promises

Line 398: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

394: END IF;
395:
396: -- run thru table of payments and close promises
397: l_del_count := P_DELINQ_TBL.count;
398: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
399: iex_debug_pub.LogMessage(G_PKG_NAME || '.CLOSE_PROMISES: count of passed table of delinquencies = ' || l_del_count);
400: END IF;
401:
402: vSQL := 'SELECT ' ||

Line 427: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

423: 'PRD.CNSLD_INVOICE_ID IS NULL and ' ||
424: 'PRD.STATUS IN (''OPEN'', ''PENDING'', ''BROKEN'') ' ||
425: 'ORDER BY PROMISE_DETAIL_ID';
426:
427: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
428: iex_debug_pub.LogMessage(G_PKG_NAME || '.CLOSE_PROMISES: processing promises...');
429: END IF;
430: FOR i in 1..l_del_count LOOP
431: open del_cur for vSQL

Line 433: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

429: END IF;
430: FOR i in 1..l_del_count LOOP
431: open del_cur for vSQL
432: using p_delinq_tbl(i), p_delinq_tbl(i);
433: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
434: iex_debug_pub.LogMessage(G_PKG_NAME || '.CLOSE_PROMISES: record #' || i);
435: iex_debug_pub.LogMessage(G_PKG_NAME || '.CLOSE_PROMISES: delinquency: ' || p_delinq_tbl(i));
436: END IF;
437:

Line 442: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

438: LOOP
439: fetch del_cur into l_promise_id, l_status, l_type;
440: exit when del_cur%NOTFOUND;
441:
442: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
443: iex_debug_pub.LogMessage(G_PKG_NAME || '.CLOSE_PROMISES: found promise with id: ' || l_promise_id);
444: iex_debug_pub.LogMessage(G_PKG_NAME || '.CLOSE_PROMISES: promise status: ' || l_status);
445: iex_debug_pub.LogMessage(G_PKG_NAME || '.CLOSE_PROMISES: promise type: ' || l_type);
446: END IF;

Line 451: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

447:
448: if l_status = 'BROKEN' then
449: k := k + 1;
450: l_broken_promise_ids_tbl(k) := l_promise_id;
451: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
452: iex_debug_pub.LogMessage(G_PKG_NAME || '.CLOSE_PROMISES: added to broken promise table');
453: END IF;
454: else
455: j := j + 1;

Line 457: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

453: END IF;
454: else
455: j := j + 1;
456: l_promise_ids_tbl(j) := l_promise_id;
457: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
458: iex_debug_pub.LogMessage(G_PKG_NAME || '.CLOSE_PROMISES: added to open/pending promise table');
459: END IF;
460: end if;
461: END LOOP;

Line 466: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

462: END LOOP;
463:
464: l_cl_prd_count := l_promise_ids_tbl.count;
465: if l_cl_prd_count > 0 then
466: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
467: iex_debug_pub.LogMessage(G_PKG_NAME || '.CLOSE_PROMISES: updating open/pending promises...');
468: END IF;
469: FORALL n in 1..l_cl_prd_count
470: UPDATE iex_promise_details

Line 479: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

475: end if;
476:
477: l_cl_prd_count := l_broken_promise_ids_tbl.count;
478: if l_cl_prd_count > 0 then
479: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
480: iex_debug_pub.LogMessage(G_PKG_NAME || '.CLOSE_PROMISES: updating broken promises...');
481: END IF;
482: FORALL n in 1..l_cl_prd_count
483: UPDATE iex_promise_details

Line 491: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

487: last_updated_by = G_USER_ID
488: WHERE promise_detail_id = l_broken_promise_ids_tbl(n);
489: end if;
490:
491: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
492: iex_debug_pub.LogMessage(G_PKG_NAME || '.CLOSE_PROMISES: End of body');
493: END IF;
494: -- END OF BODY OF API
495:

Line 510: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

506: p_data => x_msg_data);
507:
508: EXCEPTION
509: WHEN FND_API.G_EXC_ERROR THEN
510: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
511: iex_debug_pub.LogMessage(G_PKG_NAME || '.CLOSE_PROMISES: in FND_API.G_EXC_ERROR execption');
512: END IF;
513: ROLLBACK TO CLOSE_PROMISES_PVT;
514: x_return_status := FND_API.G_RET_STS_ERROR;

Line 523: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

519: -- P_Procedure_name => 'IEX_PROMISES_BATCH_PUB.CLOSE_PROMISES',
520: -- P_MESSAGE => 'Failed to close promises.' );
521: -- End - Andre Araujo - 09/30/2004- Remove obsolete logging
522: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
523: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
524: iex_debug_pub.LogMessage(G_PKG_NAME || '.CLOSE_PROMISES: in FND_API.G_EXC_UNEXPECTED_ERROR execption');
525: END IF;
526: ROLLBACK TO CLOSE_PROMISES_PVT;
527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 536: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

532: -- P_Procedure_name => 'IEX_PROMISES_BATCH_PUB.CLOSE_PROMISES',
533: -- P_MESSAGE => 'Failed to close promises.' );
534: -- End - Andre Araujo - 09/30/2004- Remove obsolete logging
535: WHEN OTHERS THEN
536: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
537: iex_debug_pub.LogMessage(G_PKG_NAME || '.CLOSE_PROMISES: in OTHERS execption');
538: END IF;
539: ROLLBACK TO CLOSE_PROMISES_PVT;
540: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 731: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

727: -- End bug#5874874 gnramasa 25-Apr-07
728: */
729: --End bug 6053792 gnramasa 17-May-2007
730: BEGIN
731: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
732: LogMessage('$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$');
733: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Start');
734: END IF;
735:

Line 740: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

736:
737: -- Standard start of API savepoint
738: SAVEPOINT PROCESS_ALL_PROMISES_PVT;
739:
740: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
741: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Savepoint is established');
742: END IF;
743: -- Standard call to check for call compatibility
744: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN

Line 757: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

753: -- Initialize API return status to success
754: l_return_status := FND_API.G_RET_STS_SUCCESS;
755:
756: -- START OF BODY OF API
757: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
758: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Start of body');
759: END IF;
760:
761: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

Line 761: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

757: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
758: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Start of body');
759: END IF;
760:
761: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
762: LogMessage('********************************************');
763: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Calling PROCESS_REVERSALS for AR ');
764: END IF;
765: PROCESS_REVERSALS(

Line 775: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

771: X_MSG_COUNT => l_msg_count,
772: X_MSG_DATA => l_msg_data,
773: P_TYPE => 'AR');
774:
775: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
776: LogMessage('********************************************');
777: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Calling PROCESS_REVERSALS for OKL ');
778: END IF;
779: PROCESS_REVERSALS(

Line 789: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

785: X_MSG_COUNT => l_msg_count,
786: X_MSG_DATA => l_msg_data,
787: P_TYPE => 'OKL');
788:
789: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
790: LogMessage('********************************************');
791: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Processing promises on AR invoices...');
792: END IF;
793: PROCESS_PROMISES(

Line 803: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

799: X_MSG_COUNT => l_msg_count,
800: X_MSG_DATA => l_msg_data,
801: P_TYPE => 'INV');
802:
803: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
804: LogMessage('********************************************');
805: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Processing promises on AR account...');
806: END IF;
807: PROCESS_PROMISES(

Line 817: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

813: X_MSG_COUNT => l_msg_count,
814: X_MSG_DATA => l_msg_data,
815: P_TYPE => 'ACC');
816:
817: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
818: LogMessage('********************************************');
819: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Processing promises on OKL contracts...');
820: END IF;
821: PROCESS_PROMISES(

Line 831: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

827: X_MSG_COUNT => l_msg_count,
828: X_MSG_DATA => l_msg_data,
829: P_TYPE => 'CNTR');
830:
831: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
832: LogMessage(G_PKG_NAME || '.' || l_api_name || ':End of body');
833: END IF;
834: -- END OF BODY OF API
835:

Line 839: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

835:
836: -- Standard check of p_commit.
837: IF FND_API.To_Boolean( p_commit ) THEN
838: COMMIT WORK;
839: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
840: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Commited work');
841: END IF;
842: END IF;
843:

Line 853: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

849: p_data => x_msg_data);
850:
851: -- Start bug#5874874 gnramasa 25-Apr-07
852: BEGIN
853: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
854: LogMessage(G_PKG_NAME || '.' || l_api_name || 'Started Updating IEX_DLN_UWQ_SUMMARY');
855: END IF;
856: -- Bug #6251572 bibeura 24-OCT-2007 modified the following Update statement
857: FOR I IN UPDATE_IEX_SUMMARY

Line 871: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

867: END LOOP;
868:
869: COMMIT;
870:
871: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
872: LogMessage(G_PKG_NAME || '.' || l_api_name || 'Finished Updating IEX_DLN_UWQ_SUMMARY');
873: END IF;
874: EXCEPTION WHEN OTHERS THEN
875: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

Line 875: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

871: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
872: LogMessage(G_PKG_NAME || '.' || l_api_name || 'Finished Updating IEX_DLN_UWQ_SUMMARY');
873: END IF;
874: EXCEPTION WHEN OTHERS THEN
875: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
876: LogMessage(G_PKG_NAME || '.' || l_api_name || 'Error Occurred while updating IEX_DLN_UWQ_SUMMARY ' || SQLERRM );
877: END IF;
878: END;
879:

Line 881: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

877: END IF;
878: END;
879:
880: BEGIN
881: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
882: LogMessage(G_PKG_NAME || '.' || l_api_name || 'Started Updating IEX_DLN_UWQ_SUMMARY ACTIVE COLUMN');
883: END IF;
884: -- Bug #6251572 bibeura 24-OCT-2007 modified the following Update statement
885: FOR I IN UPDATE_IEX_ACTIVE_PRO

Line 897: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

893: END LOOP;
894:
895: COMMIT;
896:
897: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
898: LogMessage(G_PKG_NAME || '.' || l_api_name || 'Finished Updating IEX_DLN_UWQ_SUMMARY ACTIVE COLUMN');
899: END IF;
900: EXCEPTION WHEN OTHERS THEN
901: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

Line 901: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

897: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
898: LogMessage(G_PKG_NAME || '.' || l_api_name || 'Finished Updating IEX_DLN_UWQ_SUMMARY ACTIVE COLUMN');
899: END IF;
900: EXCEPTION WHEN OTHERS THEN
901: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
902: LogMessage(G_PKG_NAME || '.' || l_api_name || 'Error Occurred while updating IEX_DLN_UWQ_SUMMARY ACTIVE' || SQLERRM );
903: END IF;
904: END;
905:

Line 907: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

903: END IF;
904: END;
905:
906: BEGIN
907: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
908: LogMessage(G_PKG_NAME || '.' || l_api_name || 'Started Updating IEX_DLN_UWQ_SUMMARY COMPLETED COLUMN');
909: END IF;
910: -- Bug #6251572 bibeura 24-OCT-2007 modified the following Update statement
911: FOR I IN UPDATE_IEX_COMP_PRO

Line 923: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

919: END LOOP;
920:
921: COMMIT;
922:
923: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
924: LogMessage(G_PKG_NAME || '.' || l_api_name || 'Finished Updating IEX_DLN_UWQ_SUMMARY COMPLETED COLUMN');
925: END IF;
926: EXCEPTION WHEN OTHERS THEN
927: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

Line 927: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

923: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
924: LogMessage(G_PKG_NAME || '.' || l_api_name || 'Finished Updating IEX_DLN_UWQ_SUMMARY COMPLETED COLUMN');
925: END IF;
926: EXCEPTION WHEN OTHERS THEN
927: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
928: LogMessage(G_PKG_NAME || '.' || l_api_name ||
929: 'Error Occurred while updating IEX_DLN_UWQ_SUMMARY COMPLETED COLUMN' || SQLERRM );
930: END IF;
931: END;

Line 934: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

930: END IF;
931: END;
932:
933: BEGIN
934: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
935: LogMessage(G_PKG_NAME || '.' || l_api_name || 'Started Updating IEX_DLN_UWQ_SUMMARY PENDING COLUMN');
936: END IF;
937: -- Bug #6251572 bibeura 24-OCT-2007 modified the following Update statement
938: FOR I IN UPDATE_IEX_PEND_PRO

Line 950: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

946: END LOOP;
947:
948: COMMIT;
949:
950: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
951: LogMessage(G_PKG_NAME || '.' || l_api_name || ' Finished Updating IEX_DLN_UWQ_SUMMARY PENDING COLUMN');
952: END IF;
953: EXCEPTION WHEN OTHERS THEN
954: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

Line 954: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

950: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
951: LogMessage(G_PKG_NAME || '.' || l_api_name || ' Finished Updating IEX_DLN_UWQ_SUMMARY PENDING COLUMN');
952: END IF;
953: EXCEPTION WHEN OTHERS THEN
954: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
955: LogMessage(G_PKG_NAME || '.' || l_api_name ||
956: 'Error Occurred while updating IEX_DLN_UWQ_SUMMARY PENDING COLUMN ' || SQLERRM );
957: END IF;
958: END;

Line 974: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

970: P_Procedure_name => G_PKG_NAME || '.' || l_api_name,
971: P_MESSAGE => 'Failed to process all promises');
972: */
973: -- End - Andre Araujo - 09/30/2004- Remove obsolete logging
974: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
975: LogMessage(G_PKG_NAME || '.' || l_api_name || ': In G_EXC_ERROR exception. Failed to process all promises');
976: END IF;
977: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
978: ROLLBACK TO PROCESS_ALL_PROMISES_PVT;

Line 989: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

985: P_Procedure_name => G_PKG_NAME || '.' || l_api_name,
986: P_MESSAGE => 'Failed to process all promises');
987: */
988: -- End - Andre Araujo - 09/30/2004- Remove obsolete logging
989: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
990: LogMessage(G_PKG_NAME || '.' || l_api_name || ': In G_EXC_UNEXPECTED_ERROR exception. Failed to process all promises');
991: END IF;
992: WHEN OTHERS THEN
993: ROLLBACK TO PROCESS_ALL_PROMISES_PVT;

Line 1007: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1003: P_Procedure_name => G_PKG_NAME || '.' || l_api_name,
1004: P_MESSAGE => 'Failed to process all promises');
1005: */
1006: -- End - Andre Araujo - 09/30/2004- Remove obsolete logging
1007: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1008: LogMessage(G_PKG_NAME || '.' || l_api_name || ': In OTHERS exception. Failed to process all promises');
1009: END IF;
1010: END;
1011:

Line 1048: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1044: l_callback_date DATE;
1045: l_new_remaining_amount NUMBER;
1046:
1047: BEGIN
1048: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1049: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Start');
1050: END IF;
1051:
1052:

Line 1057: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1053:
1054: -- Standard start of API savepoint
1055: SAVEPOINT PROCESS_REVERSALS_PVT;
1056:
1057: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1058: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Savepoint is established');
1059: END IF;
1060: -- Standard call to check for call compatibility
1061: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN

Line 1074: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1070: -- Initialize API return status to success
1071: l_return_status := FND_API.G_RET_STS_SUCCESS;
1072:
1073: -- START OF BODY OF API
1074: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1075: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Start of body');
1076: END IF;
1077:
1078: if P_TYPE = 'AR' then

Line 1079: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1075: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Start of body');
1076: END IF;
1077:
1078: if P_TYPE = 'AR' then
1079: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1080: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Searching for applications that still applied to promises but reversed in AR ');
1081: END IF;
1082: -- search for all applications that still applied to promises but reversed in AR
1083: vSQL := 'SELECT ' ||

Line 1109: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1105: 'prd.org_id = raa.org_id ' || --Added for bug 7237026 barathsr 31-Dec-2008
1106: 'ORDER BY raa.receivable_application_id';
1107:
1108: else
1109: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1110: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Searching for applications that still applied to promises but reversed in OKL ');
1111: END IF;
1112: -- search for all applications that still applied to promises but reversed in OKL
1113: /* replaced the statement just below to fix a perf bug 4930383

Line 1185: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1181: l_appl_tbl(i).receivable_application_id := l_receivable_application_id;
1182:
1183:
1184:
1185: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1186: LogMessage(G_PKG_NAME || '.' || l_api_name || '------------------------');
1187: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Reversed record ' || i);
1188: LogMessage(G_PKG_NAME || '.' || l_api_name || ':promise_detail_id = ' || l_appl_tbl(i).promise_detail_id);
1189: LogMessage(G_PKG_NAME || '.' || l_api_name || ':promise_date = ' || l_appl_tbl(i).promise_date);

Line 1199: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1195: END IF;
1196: END LOOP;
1197:
1198: nCount := l_appl_tbl.count;
1199: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1200: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Total count of found reversed applications = ' || nCount);
1201: END IF;
1202: if nCount > 0 then
1203:

Line 1205: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1201: END IF;
1202: if nCount > 0 then
1203:
1204: FOR i in 1..nCount LOOP
1205: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1206: LogMessage(G_PKG_NAME || '.' || l_api_name || '------------------------');
1207: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Reversing record ' || i);
1208: END IF;
1209:

Line 1210: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1206: LogMessage(G_PKG_NAME || '.' || l_api_name || '------------------------');
1207: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Reversing record ' || i);
1208: END IF;
1209:
1210: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1211: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Analizing what status to set for the promise...');
1212: LogMessage(G_PKG_NAME || '.' || l_api_name || ':current promise status ' || l_appl_tbl(i).status);
1213: END IF;
1214: if l_appl_tbl(i).status = 'FULFILLED' then -- it can effect only to FULFILLED records

Line 1216: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1212: LogMessage(G_PKG_NAME || '.' || l_api_name || ':current promise status ' || l_appl_tbl(i).status);
1213: END IF;
1214: if l_appl_tbl(i).status = 'FULFILLED' then -- it can effect only to FULFILLED records
1215: l_new_status := 'COLLECTABLE';
1216: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1217: LogMessage(G_PKG_NAME || '.' || l_api_name || ':the promise status after reversing will be ' || l_new_status);
1218: END IF;
1219: else
1220: l_new_status := null;

Line 1221: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1217: LogMessage(G_PKG_NAME || '.' || l_api_name || ':the promise status after reversing will be ' || l_new_status);
1218: END IF;
1219: else
1220: l_new_status := null;
1221: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1222: LogMessage(G_PKG_NAME || '.' || l_api_name || ':will leave this status');
1223: END IF;
1224: end if;
1225:

Line 1226: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1222: LogMessage(G_PKG_NAME || '.' || l_api_name || ':will leave this status');
1223: END IF;
1224: end if;
1225:
1226: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1227: LogMessage(G_PKG_NAME || '.' || l_api_name || ':updating records in IEX_prd_appl_xref with reversed_flag = Y...');
1228: END IF;
1229:
1230: update IEX_prd_appl_xref

Line 1241: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1237: receivable_application_id = l_appl_tbl(i).receivable_application_id and
1238: promise_detail_id = l_appl_tbl(i).promise_detail_id;
1239:
1240: if (sql%notfound) then
1241: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1242: LogMessage(G_PKG_NAME || '.' || l_api_name || ':update failed');
1243: END IF;
1244: -- Begin - Andre Araujo - 09/30/2004- Remove obsolete logging
1245: /*

Line 1253: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1249: P_MESSAGE => 'Failed to update record in IEX_prd_appl_xref for promise_detail_id = ' || l_appl_tbl(i).promise_detail_id);
1250: */
1251: -- End - Andre Araujo - 09/30/2004- Remove obsolete logging
1252: else
1253: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1254: LogMessage(G_PKG_NAME || '.' || l_api_name || ':update successfull');
1255: END IF;
1256: end if;
1257:

Line 1259: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1255: END IF;
1256: end if;
1257:
1258: l_new_remaining_amount := l_appl_tbl(i).amount_due_remaining + l_appl_tbl(i).amount_applied;
1259: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1260: LogMessage(G_PKG_NAME || '.' || l_api_name || ':updating record in IEX_PROMISE_DETAILS with:');
1261: LogMessage(G_PKG_NAME || '.' || l_api_name || ':amount_due_remaining = ' || l_new_remaining_amount);
1262: END IF;
1263:

Line 1265: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1261: LogMessage(G_PKG_NAME || '.' || l_api_name || ':amount_due_remaining = ' || l_new_remaining_amount);
1262: END IF;
1263:
1264: if l_new_status is not null then
1265: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1266: LogMessage(G_PKG_NAME || '.' || l_api_name || ':status = ' || l_new_status);
1267: END IF;
1268: update IEX_PROMISE_DETAILS
1269: set status = l_new_status,

Line 1283: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1279: where promise_detail_id = l_appl_tbl(i).promise_detail_id;
1280: end if;
1281:
1282: if (sql%notfound) then
1283: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1284: LogMessage(G_PKG_NAME || '.' || l_api_name || ':update failed');
1285: END IF;
1286: -- Begin - Andre Araujo - 09/30/2004- Remove obsolete logging
1287: /*

Line 1295: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1291: P_MESSAGE => 'Failed to update record in IEX_PROMISE_DETAILS for promise_detail_id = ' || l_appl_tbl(i).promise_detail_id);
1292: */
1293: -- End - Andre Araujo - 09/30/2004- Remove obsolete logging
1294: else
1295: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1296: LogMessage(G_PKG_NAME || '.' || l_api_name || ':update successfull');
1297: END IF;
1298: end if;
1299:

Line 1302: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1298: end if;
1299:
1300: END LOOP;
1301: else
1302: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1303: LogMessage(G_PKG_NAME || '.' || l_api_name || ':no reversed applications found');
1304: END IF;
1305: end if;
1306:

Line 1307: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1303: LogMessage(G_PKG_NAME || '.' || l_api_name || ':no reversed applications found');
1304: END IF;
1305: end if;
1306:
1307: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1308: LogMessage(G_PKG_NAME || '.' || l_api_name || ':End of body');
1309: END IF;
1310: -- END OF BODY OF API
1311:

Line 1315: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1311:
1312: -- Standard check of p_commit.
1313: IF FND_API.To_Boolean( p_commit ) THEN
1314: COMMIT WORK;
1315: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1316: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Commited work');
1317: END IF;
1318: END IF;
1319:

Line 1341: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1337: P_Procedure_name => G_PKG_NAME || '.' || l_api_name,
1338: P_MESSAGE => 'Failed to reverse promise applications');
1339: */
1340: -- End - Andre Araujo - 09/30/2004- Remove obsolete logging
1341: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1342: LogMessage(G_PKG_NAME || '.' || l_api_name || ': In G_EXC_ERROR exception. Failed to reverse promise applications');
1343: END IF;
1344: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1345: ROLLBACK TO PROCESS_REVERSALS_PVT;

Line 1356: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1352: P_Procedure_name => G_PKG_NAME || '.' || l_api_name,
1353: P_MESSAGE => 'Failed to reverse promise applications');
1354: */
1355: -- End - Andre Araujo - 09/30/2004- Remove obsolete logging
1356: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1357: LogMessage(G_PKG_NAME || '.' || l_api_name || ': In G_EXC_UNEXPECTED_ERROR exception. Failed to reverse promise applications');
1358: END IF;
1359: WHEN OTHERS THEN
1360: ROLLBACK TO PROCESS_REVERSALS_PVT;

Line 1373: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1369: P_Procedure_name => G_PKG_NAME || '.' || l_api_name,
1370: P_MESSAGE => 'Failed to reverse promise applications');
1371: */
1372: -- End - Andre Araujo - 09/30/2004- Remove obsolete logging
1373: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1374: LogMessage(G_PKG_NAME || '.' || l_api_name || ': In OTHERS exception. Failed to reverse promise applications');
1375: END IF;
1376: END;
1377:

Line 1416: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1412: l_CUST_ACCOUNT_ID NUMBER;
1413: l_CONTRACT_ID NUMBER;
1414:
1415: BEGIN
1416: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1417: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Start');
1418: END IF;
1419:
1420:

Line 1424: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1420:
1421: -- Standard start of API savepoint
1422: SAVEPOINT PROCESS_PROMISES_PVT;
1423:
1424: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1425: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Savepoint is established');
1426: END IF;
1427: -- Standard call to check for call compatibility
1428: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN

Line 1441: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1437: -- Initialize API return status to success
1438: l_return_status := FND_API.G_RET_STS_SUCCESS;
1439:
1440: -- START OF BODY OF API
1441: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1442: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Start of body');
1443: END IF;
1444:
1445: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

Line 1445: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1441: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1442: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Start of body');
1443: END IF;
1444:
1445: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1446: LogMessage(G_PKG_NAME || '.' || l_api_name || ':searching for all available valid promises...');
1447: END IF;
1448:
1449: if P_TYPE = 'INV' then -- processing all promises on invoices

Line 1497: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1493: l_pro_tbl(y).AMOUNT_DUE_REMAINING := l_AMOUNT_DUE_REMAINING;
1494: l_pro_tbl(y).DELINQUENCY_ID := l_DELINQUENCY_ID;
1495: l_pro_tbl(y).PAYMENT_SCHEDULE_ID := l_PAYMENT_SCHEDULE_ID;
1496:
1497: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1498: LogMessage(G_PKG_NAME || '.' || l_api_name || '------------------------');
1499: LogMessage(G_PKG_NAME || '.' || l_api_name || ':found promise ' || y);
1500: LogMessage(G_PKG_NAME || '.' || l_api_name || ':PROMISE_DETAIL_ID = ' || l_pro_tbl(y).PROMISE_DETAIL_ID);
1501: END IF;

Line 1506: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1502:
1503: END LOOP;
1504:
1505: nCount := l_pro_tbl.count;
1506: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1507: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Total count of found promises = ' || nCount);
1508: END IF;
1509:
1510: if nCount > 0 then

Line 1511: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1507: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Total count of found promises = ' || nCount);
1508: END IF;
1509:
1510: if nCount > 0 then
1511: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1512: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Doing FIFO promise applications...');
1513: END IF;
1514: APPLY_PROMISES_FIFO(
1515: P_API_VERSION => 1.0,

Line 1525: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1521: X_MSG_DATA => l_msg_data,
1522: P_PROMISES_TBL => l_pro_tbl,
1523: P_TYPE => 'INV');
1524: else
1525: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1526: LogMessage(G_PKG_NAME || '.' || l_api_name || ':no promises found - do not call FIFO');
1527: END IF;
1528: end if;
1529:

Line 1530: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1526: LogMessage(G_PKG_NAME || '.' || l_api_name || ':no promises found - do not call FIFO');
1527: END IF;
1528: end if;
1529:
1530: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1531: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Updating all COLLECTABLE and PENDING promises for delinquencies that have status CURRENT to status FULFILLED ...');
1532: END IF;
1533:
1534: UPDATE iex_promise_details

Line 1551: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1547: del.status = 'CURRENT' and
1548: aps.amount_due_remaining = 0);--added for Bug 6446848 08-Dec-2008 barathsr
1549:
1550:
1551: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1552: LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || sql%rowcount || ' rows is updated');
1553: END IF;
1554:
1555: elsif P_TYPE = 'ACC' then -- processing all promises on account

Line 1601: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1597: l_pro_tbl(y).PROMISE_AMOUNT := l_PROMISE_AMOUNT;
1598: l_pro_tbl(y).AMOUNT_DUE_REMAINING := l_AMOUNT_DUE_REMAINING;
1599: l_pro_tbl(y).CUST_ACCOUNT_ID := l_CUST_ACCOUNT_ID;
1600:
1601: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1602: LogMessage(G_PKG_NAME || '.' || l_api_name || '------------------------');
1603: LogMessage(G_PKG_NAME || '.' || l_api_name || ':found promise ' || y);
1604: LogMessage(G_PKG_NAME || '.' || l_api_name || ':PROMISE_DETAIL_ID = ' || l_pro_tbl(y).PROMISE_DETAIL_ID);
1605: END IF;

Line 1610: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1606:
1607: END LOOP;
1608:
1609: nCount := l_pro_tbl.count;
1610: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1611: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Total count of found promises = ' || nCount);
1612: END IF;
1613:
1614: if nCount > 0 then

Line 1615: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1611: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Total count of found promises = ' || nCount);
1612: END IF;
1613:
1614: if nCount > 0 then
1615: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1616: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Doing FIFO promise applications...');
1617: END IF;
1618: APPLY_PROMISES_FIFO(
1619: P_API_VERSION => 1.0,

Line 1629: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1625: X_MSG_DATA => l_msg_data,
1626: P_PROMISES_TBL => l_pro_tbl,
1627: P_TYPE => 'ACC');
1628: else
1629: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1630: LogMessage(G_PKG_NAME || '.' || l_api_name || ':no promises found - do not call FIFO');
1631: END IF;
1632: end if;
1633:

Line 1679: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1675: l_pro_tbl(y).AMOUNT_DUE_REMAINING := l_AMOUNT_DUE_REMAINING;
1676: l_pro_tbl(y).CONTRACT_ID := l_CONTRACT_ID;
1677:
1678:
1679: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1680: LogMessage(G_PKG_NAME || '.' || l_api_name || '------------------------');
1681: LogMessage(G_PKG_NAME || '.' || l_api_name || ':found promise ' || y);
1682: LogMessage(G_PKG_NAME || '.' || l_api_name || ':PROMISE_DETAIL_ID = ' || l_pro_tbl(y).PROMISE_DETAIL_ID);
1683: END IF;

Line 1688: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1684:
1685: END LOOP;
1686:
1687: nCount := l_pro_tbl.count;
1688: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1689: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Total count of found promises = ' || nCount);
1690: END IF;
1691:
1692: if nCount > 0 then

Line 1693: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1689: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Total count of found promises = ' || nCount);
1690: END IF;
1691:
1692: if nCount > 0 then
1693: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1694: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Doing FIFO promise applications...');
1695: END IF;
1696: APPLY_PROMISES_FIFO(
1697: P_API_VERSION => 1.0,

Line 1707: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1703: X_MSG_DATA => l_msg_data,
1704: P_PROMISES_TBL => l_pro_tbl,
1705: P_TYPE => 'CNTR');
1706: else
1707: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1708: LogMessage(G_PKG_NAME || '.' || l_api_name || ':no promises found - do not call FIFO');
1709: END IF;
1710: end if;
1711:

Line 1714: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1710: end if;
1711:
1712: end if;
1713:
1714: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1715: LogMessage(G_PKG_NAME || '.' || l_api_name || ':End of body');
1716: END IF;
1717: -- END OF BODY OF API
1718:

Line 1722: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1718:
1719: -- Standard check of p_commit.
1720: IF FND_API.To_Boolean( p_commit ) THEN
1721: COMMIT WORK;
1722: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1723: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Commited work');
1724: END IF;
1725: END IF;
1726:

Line 1747: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1743: P_Procedure_name => G_PKG_NAME || '.' || l_api_name,
1744: P_MESSAGE => 'Failed to process promises');
1745: */
1746: -- End - Andre Araujo - 09/30/2004- Remove obsolete logging
1747: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1748: LogMessage(G_PKG_NAME || '.' || l_api_name || ': In G_EXC_ERROR exception. Failed to process promises');
1749: END IF;
1750: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1751: ROLLBACK TO PROCESS_PROMISES_PVT;

Line 1762: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1758: P_Procedure_name => G_PKG_NAME || '.' || l_api_name,
1759: P_MESSAGE => 'Failed to process promises');
1760: */
1761: -- End - Andre Araujo - 09/30/2004- Remove obsolete logging
1762: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1763: LogMessage(G_PKG_NAME || '.' || l_api_name || ': In G_EXC_UNEXPECTED_ERROR exception. Failed to process promises');
1764: END IF;
1765: WHEN OTHERS THEN
1766: ROLLBACK TO PROCESS_PROMISES_PVT;

Line 1780: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1776: P_Procedure_name => G_PKG_NAME || '.' || l_api_name,
1777: P_MESSAGE => 'Failed to process promises');
1778: */
1779: -- End - Andre Araujo - 09/30/2004- Remove obsolete logging
1780: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1781: LogMessage(G_PKG_NAME || '.' || l_api_name || ': In OTHERS exception. Failed to process promises');
1782: END IF;
1783: END;
1784:

Line 1833: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1829: l_applied_appl_count NUMBER;
1830:
1831:
1832: BEGIN
1833: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1834: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Start');
1835: END IF;
1836:
1837: -- Standard start of API savepoint

Line 1840: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1836:
1837: -- Standard start of API savepoint
1838: SAVEPOINT APPLY_PROMISES_FIFO_PVT;
1839:
1840: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1841: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Savepoint is established');
1842: END IF;
1843: -- Standard call to check for call compatibility
1844: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN

Line 1857: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1853: -- Initialize API return status to success
1854: l_return_status := FND_API.G_RET_STS_SUCCESS;
1855:
1856: -- START OF BODY OF API
1857: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1858: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Start of body');
1859: END IF;
1860:
1861: nCount := P_PROMISES_TBL.count;

Line 1862: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1858: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Start of body');
1859: END IF;
1860:
1861: nCount := P_PROMISES_TBL.count;
1862: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1863: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Total count of passed promises = ' || nCount);
1864: END IF;
1865:
1866: FOR i in 1..nCount LOOP

Line 1867: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1863: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Total count of passed promises = ' || nCount);
1864: END IF;
1865:
1866: FOR i in 1..nCount LOOP
1867: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1868: LogMessage(G_PKG_NAME || '.' || l_api_name || ':---------------------------');
1869: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Promise ' || i || ' details:');
1870: LogMessage(G_PKG_NAME || '.' || l_api_name || ':PROMISE_DETAIL_ID = ' || P_PROMISES_TBL(i).PROMISE_DETAIL_ID);
1871: LogMessage(G_PKG_NAME || '.' || l_api_name || ':CREATION_DATE = ' || P_PROMISES_TBL(i).CREATION_DATE);

Line 1880: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1876: LogMessage(G_PKG_NAME || '.' || l_api_name || ':STATE = ' || P_PROMISES_TBL(i).STATE);
1877: END IF;
1878:
1879: if P_TYPE = 'INV' then
1880: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1881: LogMessage(G_PKG_NAME || '.' || l_api_name || ':DELINQUENCY_ID = ' || P_PROMISES_TBL(i).DELINQUENCY_ID);
1882: LogMessage(G_PKG_NAME || '.' || l_api_name || ':PAYMENT_SCHEDULE_ID = ' || P_PROMISES_TBL(i).PAYMENT_SCHEDULE_ID);
1883: END IF;
1884: -- start bug 3635087 gnramasa 10/07/07

Line 1970: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1966: WHERE PAYMENT_SCHEDULE_ID = P_PROMISES_TBL(i).PAYMENT_SCHEDULE_ID;
1967:
1968: IF l_adjustment_count = 0 THEN
1969: vSQL := vSQL_pay_only;
1970: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1971: LogMessage(G_PKG_NAME || '.' || l_api_name || 'No adjustment exist for this invoice, vSQL := vSQL_pay_only' );
1972: END IF;
1973: ELSE
1974: vSQL := vSQL_pay_adj;

Line 1975: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1971: LogMessage(G_PKG_NAME || '.' || l_api_name || 'No adjustment exist for this invoice, vSQL := vSQL_pay_only' );
1972: END IF;
1973: ELSE
1974: vSQL := vSQL_pay_adj;
1975: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1976: LogMessage(G_PKG_NAME || '.' || l_api_name || 'Adjustments exist for this invoice, vSQL := vSQL_pay_adj' );
1977: END IF;
1978: END IF;
1979:

Line 1981: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1977: END IF;
1978: END IF;
1979:
1980: elsif P_TYPE = 'ACC' then
1981: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1982: LogMessage(G_PKG_NAME || '.' || l_api_name || ':CUST_ACCOUNT_ID = ' || P_PROMISES_TBL(i).CUST_ACCOUNT_ID);
1983: END IF;
1984: vSQL := 'select ' ||
1985: 'raa.receivable_application_id, ' ||

Line 2013: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2009: 'group by raa.receivable_application_id, raa.amount_applied, raa.apply_date ' ||
2010: 'order by raa.receivable_application_id';
2011:
2012: elsif P_TYPE = 'CNTR' then
2013: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2014: LogMessage(G_PKG_NAME || '.' || l_api_name || ':CONTRACT_ID = ' || P_PROMISES_TBL(i).CONTRACT_ID);
2015: END IF;
2016: /* replaced the statement just below to fix a perf bug 4930383
2017: vSQL := 'select ' ||

Line 2070: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2066: ' order by ARAPP.receivable_application_id ';
2067:
2068: end if;
2069:
2070: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2071: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Searching for applications to apply to the promise ' || P_PROMISES_TBL(i).PROMISE_DETAIL_ID);
2072: END IF;
2073:
2074: if P_TYPE = 'INV' then

Line 2128: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2124: l_appl_tbl(y).ar_adjusted_amount := l_adjusted_amount;
2125: l_appl_tbl(y).ar_adj_remaining_amount := l_adj_remaining_amount;
2126: l_appl_tbl(y).ar_adjusted_date := l_adjusted_date;
2127:
2128: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2129: IF l_appl_tbl(y).receivable_application_id IS NOT NULL THEN
2130: LogMessage(G_PKG_NAME || '.' || l_api_name || ':found receivable_application_id = ' || l_appl_tbl(y).receivable_application_id);
2131: LogMessage(G_PKG_NAME || '.' || l_api_name || ':ar_applied_amount = ' || l_appl_tbl(y).ar_applied_amount);
2132: LogMessage(G_PKG_NAME || '.' || l_api_name || ':ar_remaining_amount = ' || l_appl_tbl(y).ar_remaining_amount);

Line 2146: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2142:
2143: END LOOP;
2144:
2145: nCount1 := l_appl_tbl.count;
2146: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2147: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Total found ' || nCount1 || ' available applications');
2148: END IF;
2149:
2150: if nCount1 > 0 then -- do applications

Line 2151: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2147: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Total found ' || nCount1 || ' available applications');
2148: END IF;
2149:
2150: if nCount1 > 0 then -- do applications
2151: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2152: LogMessage(G_PKG_NAME || '.' || l_api_name || ':applying...');
2153: END IF;
2154:
2155: FOR y in 1..nCount1 LOOP

Line 2157: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2153: END IF;
2154:
2155: FOR y in 1..nCount1 LOOP
2156:
2157: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2158: LogMessage(G_PKG_NAME || '.' || l_api_name || ':processing application ' || y || ' Details:');
2159: LogMessage(G_PKG_NAME || '.' || l_api_name || ':receivable_application_id = ' || l_appl_tbl(y).receivable_application_id);
2160: LogMessage(G_PKG_NAME || '.' || l_api_name || ':ar_applied_amount = ' || l_appl_tbl(y).ar_applied_amount);
2161: LogMessage(G_PKG_NAME || '.' || l_api_name || ':ar_remaining_amount = ' || l_appl_tbl(y).ar_remaining_amount);

Line 2170: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2166: LogMessage(G_PKG_NAME || '.' || l_api_name || ':ar_adjusted_date = ' || l_appl_tbl(y).ar_adjusted_date);
2167: LogMessage(G_PKG_NAME || '.' || l_api_name || ':pro_applied_amount = ' || l_appl_tbl(y).pro_applied_amount);
2168: END IF;
2169:
2170: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2171: LogMessage(G_PKG_NAME || '.' || l_api_name || ':comparing application remaining amount = ' || l_appl_tbl(y).ar_remaining_amount);
2172: LogMessage(G_PKG_NAME || '.' || l_api_name || ':comparing adjustment remaining amount = ' || l_appl_tbl(y).ar_adj_remaining_amount);
2173: LogMessage(G_PKG_NAME || '.' || l_api_name || ':and promise remaining amount = ' || P_PROMISES_TBL(i).AMOUNT_DUE_REMAINING);
2174: END IF;

Line 2190: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2186: end if;
2187: end if;
2188:
2189: P_PROMISES_TBL(i).AMOUNT_DUE_REMAINING := P_PROMISES_TBL(i).AMOUNT_DUE_REMAINING - l_appl_tbl(y).pro_applied_amount;
2190: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2191: LogMessage(G_PKG_NAME || '.' || l_api_name || ':we will apply amount = ' || l_appl_tbl(y).pro_applied_amount);
2192: LogMessage(G_PKG_NAME || '.' || l_api_name || ':promise remaining amount after this application = ' || P_PROMISES_TBL(i).AMOUNT_DUE_REMAINING);
2193: END IF;
2194:

Line 2197: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2193: END IF;
2194:
2195: l_applied_appl_count := y;
2196: if P_PROMISES_TBL(i).AMOUNT_DUE_REMAINING = 0 then -- we are done appliyng to the promise
2197: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2198: LogMessage(G_PKG_NAME || '.' || l_api_name || ':promise fulfilled by amount - exiting loop');
2199: END IF;
2200: exit;
2201: else -- we are not done yet. process next application

Line 2202: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2198: LogMessage(G_PKG_NAME || '.' || l_api_name || ':promise fulfilled by amount - exiting loop');
2199: END IF;
2200: exit;
2201: else -- we are not done yet. process next application
2202: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2203: LogMessage(G_PKG_NAME || '.' || l_api_name || ':promise still not fulfilled by amount - process next application');
2204: END IF;
2205: end if;
2206:

Line 2210: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2206:
2207: END LOOP;
2208:
2209: if P_PROMISES_TBL(i).AMOUNT_DUE_REMAINING > 0 then
2210: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2211: LogMessage(G_PKG_NAME || '.' || l_api_name || ':no more available applications');
2212: END IF;
2213: end if;
2214:

Line 2216: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2212: END IF;
2213: end if;
2214:
2215: l_callback_date := null;
2216: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2217: LogMessage(G_PKG_NAME || '.' || l_api_name || ':figuring out promise status and state ...');
2218: END IF;
2219:
2220: if trunc(sysdate) > trunc(P_PROMISES_TBL(i).PROMISE_DATE) then /* the promise is in the past */

Line 2221: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2217: LogMessage(G_PKG_NAME || '.' || l_api_name || ':figuring out promise status and state ...');
2218: END IF;
2219:
2220: if trunc(sysdate) > trunc(P_PROMISES_TBL(i).PROMISE_DATE) then /* the promise is in the past */
2221: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2222: LogMessage(G_PKG_NAME || '.' || l_api_name || ':the promise is in the past');
2223: END IF;
2224:
2225: if P_PROMISES_TBL(i).AMOUNT_DUE_REMAINING = 0 then -- promise is fulfilled by amount

Line 2226: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2222: LogMessage(G_PKG_NAME || '.' || l_api_name || ':the promise is in the past');
2223: END IF;
2224:
2225: if P_PROMISES_TBL(i).AMOUNT_DUE_REMAINING = 0 then -- promise is fulfilled by amount
2226: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2227: LogMessage(G_PKG_NAME || '.' || l_api_name || ':the promise is fulfilled by amount - setting status FILFILLED');
2228: END IF;
2229: l_status := 'FULFILLED';
2230:

Line 2234: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2230:
2231: if (trunc(l_appl_tbl(l_applied_appl_count).ar_apply_date) > trunc(P_PROMISES_TBL(i).PROMISE_DATE))
2232: or (trunc(l_appl_tbl(l_applied_appl_count).ar_adjusted_date) > trunc(P_PROMISES_TBL(i).PROMISE_DATE))
2233: then -- payments are late
2234: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2235: LogMessage(G_PKG_NAME || '.' || l_api_name || ':payments are late - setting state to BROKEN_PROMISE');
2236: END IF;
2237: l_state := 'BROKEN_PROMISE';
2238: else -- payment on time

Line 2239: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2235: LogMessage(G_PKG_NAME || '.' || l_api_name || ':payments are late - setting state to BROKEN_PROMISE');
2236: END IF;
2237: l_state := 'BROKEN_PROMISE';
2238: else -- payment on time
2239: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2240: LogMessage(G_PKG_NAME || '.' || l_api_name || ':payments are on time - setting state PROMISE');
2241: END IF;
2242: l_state := 'PROMISE';
2243: end if;

Line 2246: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2242: l_state := 'PROMISE';
2243: end if;
2244:
2245: else -- promise is not fulfilled by amount
2246: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2247: LogMessage(G_PKG_NAME || '.' || l_api_name || ':the promise is not fulfilled by amount - leaving status COLLECTABLE');
2248: END IF;
2249: l_status := 'COLLECTABLE';
2250:

Line 2252: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2248: END IF;
2249: l_status := 'COLLECTABLE';
2250:
2251: if P_PROMISES_TBL(i).STATE = 'PROMISE' then
2252: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2253: LogMessage(G_PKG_NAME || '.' || l_api_name || ':the promise state is PROMISE - setting state to BROKEN_PROMISE');
2254: END IF;
2255: l_state := 'BROKEN_PROMISE';
2256: Get_Callback_Date(p_promise_date => P_PROMISES_TBL(i).PROMISE_DATE, x_callback_date => l_callback_date);

Line 2258: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2254: END IF;
2255: l_state := 'BROKEN_PROMISE';
2256: Get_Callback_Date(p_promise_date => P_PROMISES_TBL(i).PROMISE_DATE, x_callback_date => l_callback_date);
2257: elsif P_PROMISES_TBL(i).STATE = 'BROKEN_PROMISE' then
2258: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2259: LogMessage(G_PKG_NAME || '.' || l_api_name || ':the promise state is already BROKEN_PROMISE - leave it BROKEN_PROMISE');
2260: END IF;
2261: l_state := 'BROKEN_PROMISE';
2262: end if;

Line 2267: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2263: end if;
2264:
2265: else /* promise is in the future */
2266:
2267: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2268: LogMessage(G_PKG_NAME || '.' || l_api_name || ':the promise is in the future - leaving state PROMISE');
2269: END IF;
2270: l_state := 'PROMISE';
2271: if P_PROMISES_TBL(i).AMOUNT_DUE_REMAINING = 0 then -- promise is fulfilled by amount

Line 2272: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2268: LogMessage(G_PKG_NAME || '.' || l_api_name || ':the promise is in the future - leaving state PROMISE');
2269: END IF;
2270: l_state := 'PROMISE';
2271: if P_PROMISES_TBL(i).AMOUNT_DUE_REMAINING = 0 then -- promise is fulfilled by amount
2272: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2273: LogMessage(G_PKG_NAME || '.' || l_api_name || ':the promise is fulfilled by amount - setting status to FULFILLED');
2274: END IF;
2275: l_status := 'FULFILLED';
2276: else

Line 2277: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2273: LogMessage(G_PKG_NAME || '.' || l_api_name || ':the promise is fulfilled by amount - setting status to FULFILLED');
2274: END IF;
2275: l_status := 'FULFILLED';
2276: else
2277: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2278: LogMessage(G_PKG_NAME || '.' || l_api_name || ':the promise not fulfilled by amount - leaving status COLLECTABLE');
2279: END IF;
2280: l_status := 'COLLECTABLE';
2281: end if;

Line 2284: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2280: l_status := 'COLLECTABLE';
2281: end if;
2282:
2283: end if;
2284: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2285: LogMessage(G_PKG_NAME || '.' || l_api_name || '......................');
2286: LogMessage(G_PKG_NAME || '.' || l_api_name || ':will set promise status to ' || l_status);
2287: LogMessage(G_PKG_NAME || '.' || l_api_name || ':will set promise state to ' || l_state);
2288: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Updating iex_promise_details with promise_detail_id = ' || P_PROMISES_TBL(i).PROMISE_DETAIL_ID || ' set:');

Line 2313: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2309: WHERE promise_detail_id = P_PROMISES_TBL(i).PROMISE_DETAIL_ID;
2310: end if;
2311:
2312: if (sql%notfound) then
2313: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2314: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Failed to update iex_promise_details');
2315: END IF;
2316: -- Begin - Andre Araujo - 09/30/2004- Remove obsolete logging
2317: /*

Line 2325: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2321: P_MESSAGE => 'Failed to update iex_promise_details');
2322: */
2323: -- End - Andre Araujo - 09/30/2004- Remove obsolete logging
2324: else
2325: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2326: LogMessage(G_PKG_NAME || '.' || l_api_name || ':update successfull');
2327: END IF;
2328: end if;
2329:

Line 2330: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2326: LogMessage(G_PKG_NAME || '.' || l_api_name || ':update successfull');
2327: END IF;
2328: end if;
2329:
2330: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2331: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Inserting into iex_prd_appl_xref values:');
2332: END IF;
2333:
2334: FOR x in 1..l_applied_appl_count LOOP

Line 2335: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2331: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Inserting into iex_prd_appl_xref values:');
2332: END IF;
2333:
2334: FOR x in 1..l_applied_appl_count LOOP
2335: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2336: LogMessage(G_PKG_NAME || '.' || l_api_name || ':record ' || x);
2337: LogMessage(G_PKG_NAME || '.' || l_api_name || ':PROMISE_DETAIL_ID = ' || P_PROMISES_TBL(i).PROMISE_DETAIL_ID);
2338: LogMessage(G_PKG_NAME || '.' || l_api_name || ':RECEIVABLE_APPLICATION_ID ' || l_appl_tbl(x).receivable_application_id);
2339: LogMessage(G_PKG_NAME || '.' || l_api_name || ':AMOUNT_APPLIED ' || l_appl_tbl(x).pro_applied_amount);

Line 2385: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2381: END LOOP;
2382: -- End bug 3635087 gnramasa 10/07/07
2383: -- reopen strategy for just got broken promise
2384: if l_callback_date is not null then
2385: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2386: LogMessage(G_PKG_NAME || '.' || l_api_name || ': reopen strategy for promise ' || P_PROMISES_TBL(i).PROMISE_DETAIL_ID);
2387: END IF;
2388: IEX_PROMISES_PUB.SET_STRATEGY(P_PROMISE_ID => P_PROMISES_TBL(i).PROMISE_DETAIL_ID,
2389: P_STATUS => 'OPEN');

Line 2393: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2389: P_STATUS => 'OPEN');
2390: end if;
2391:
2392: else -- nothing to apply
2393: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2394: LogMessage(G_PKG_NAME || '.' || l_api_name || ':nothing to apply');
2395: LogMessage(G_PKG_NAME || '.' || l_api_name || ':leaving promise status as it is - COLLECTABLE');
2396: LogMessage(G_PKG_NAME || '.' || l_api_name || ':figuring out promise state ...');
2397: END IF;

Line 2400: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2396: LogMessage(G_PKG_NAME || '.' || l_api_name || ':figuring out promise state ...');
2397: END IF;
2398:
2399: if P_PROMISES_TBL(i).STATE = 'PROMISE' then
2400: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2401: LogMessage(G_PKG_NAME || '.' || l_api_name || ':the promise state is still PROMISE');
2402: END IF;
2403:
2404: if trunc(sysdate) > trunc(P_PROMISES_TBL(i).PROMISE_DATE) then /* the promise is in the past */

Line 2405: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2401: LogMessage(G_PKG_NAME || '.' || l_api_name || ':the promise state is still PROMISE');
2402: END IF;
2403:
2404: if trunc(sysdate) > trunc(P_PROMISES_TBL(i).PROMISE_DATE) then /* the promise is in the past */
2405: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2406: LogMessage(G_PKG_NAME || '.' || l_api_name || ':the promise is in the past - setting state to BROKEN_PROMISE');
2407: END IF;
2408: l_state := 'BROKEN_PROMISE';
2409: Get_Callback_Date(p_promise_date => P_PROMISES_TBL(i).PROMISE_DATE, x_callback_date => l_callback_date);

Line 2428: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2424: WHERE promise_detail_id = P_PROMISES_TBL(i).PROMISE_DETAIL_ID;
2425: end if;
2426:
2427: if (sql%notfound) then
2428: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2429: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Failed to update iex_promise_details with STATUS = BROKEN for promise_detail_id = ' || P_PROMISES_TBL(i).PROMISE_DETAIL_ID);
2430: END IF;
2431: -- Begin - Andre Araujo - 09/30/2004- Remove obsolete logging
2432: /*

Line 2440: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2436: P_MESSAGE => 'Failed to update iex_promise_details with STATUS = BROKEN for promise_detail_id = ' || P_PROMISES_TBL(i).PROMISE_DETAIL_ID);
2437: */
2438: -- End - Andre Araujo - 09/30/2004- Remove obsolete logging
2439: else
2440: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2441: LogMessage(G_PKG_NAME || '.' || l_api_name || ':update successfull');
2442: END IF;
2443:
2444: -- reopen strategy for just got broken promise

Line 2446: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2442: END IF;
2443:
2444: -- reopen strategy for just got broken promise
2445: if l_callback_date is not null then
2446: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2447: LogMessage(G_PKG_NAME || '.' || l_api_name || ': reopen strategy for promise ' || P_PROMISES_TBL(i).PROMISE_DETAIL_ID);
2448: END IF;
2449: IEX_PROMISES_PUB.SET_STRATEGY(P_PROMISE_ID => P_PROMISES_TBL(i).PROMISE_DETAIL_ID,
2450: P_STATUS => 'OPEN');

Line 2454: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2450: P_STATUS => 'OPEN');
2451: end if;
2452: end if;
2453: else /* promise is in the future */
2454: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2455: LogMessage(G_PKG_NAME || '.' || l_api_name || ':the promise is in the future - leaving the promise state PROMISE');
2456: END IF;
2457: end if;
2458: elsif P_PROMISES_TBL(i).STATE = 'BROKEN_PROMISE' then

Line 2459: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2455: LogMessage(G_PKG_NAME || '.' || l_api_name || ':the promise is in the future - leaving the promise state PROMISE');
2456: END IF;
2457: end if;
2458: elsif P_PROMISES_TBL(i).STATE = 'BROKEN_PROMISE' then
2459: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2460: LogMessage(G_PKG_NAME || '.' || l_api_name || ':the promise state is already BROKEN_PROMISE - nothing to change.');
2461: END IF;
2462: end if;
2463: end if;

Line 2466: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2462: end if;
2463: end if;
2464: END LOOP;
2465:
2466: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2467: LogMessage(G_PKG_NAME || '.' || l_api_name || ':End of body');
2468: END IF;
2469: -- END OF BODY OF API
2470:

Line 2474: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2470:
2471: -- Standard check of p_commit.
2472: IF FND_API.To_Boolean( p_commit ) THEN
2473: COMMIT WORK;
2474: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2475: LogMessage(G_PKG_NAME || '.' || l_api_name || ':Commited work');
2476: END IF;
2477: END IF;
2478:

Line 2500: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2496: P_Procedure_name => G_PKG_NAME || '.' || l_api_name,
2497: P_MESSAGE => 'Failed to do FIFO promise applications');
2498: */
2499: -- End - Andre Araujo - 09/30/2004- Remove obsolete logging
2500: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2501: LogMessage(G_PKG_NAME || '.' || l_api_name || ': In G_EXC_ERROR exception. Failed to do FIFO promise applications');
2502: END IF;
2503: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2504: ROLLBACK TO APPLY_PROMISES_FIFO_PVT;

Line 2515: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2511: P_Procedure_name => G_PKG_NAME || '.' || l_api_name,
2512: P_MESSAGE => 'Failed to do FIFO promise applications');
2513: */
2514: -- End - Andre Araujo - 09/30/2004- Remove obsolete logging
2515: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2516: LogMessage(G_PKG_NAME || '.' || l_api_name || ': In G_EXC_UNEXPECTED_ERROR exception. Failed to do FIFO promise applications');
2517: END IF;
2518: WHEN OTHERS THEN
2519: ROLLBACK TO APPLY_PROMISES_FIFO_PVT;

Line 2533: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2529: P_Procedure_name => G_PKG_NAME || '.' || l_api_name,
2530: P_MESSAGE => 'Failed to do FIFO promise applications');
2531: */
2532: -- End - Andre Araujo - 09/30/2004- Remove obsolete logging
2533: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2534: LogMessage(G_PKG_NAME || '.' || l_api_name || ': In OTHERS exception. Failed to do FIFO promise applications');
2535: END IF;
2536: END;
2537:

Line 2733: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2729: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2730: FND_MSG_PUB.initialize;
2731: END IF;
2732:
2733: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2734: LogMessage( 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
2735: END IF;
2736:
2737: -- Initialize API return status to SUCCESS

Line 2741: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2737: -- Initialize API return status to SUCCESS
2738: x_return_status := FND_API.G_RET_STS_SUCCESS;
2739:
2740: -- START OF BODY OF API
2741: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2742: LogMessage( 'Start of ' || l_api_name || ' body');
2743: END IF;
2744:
2745: Open C_GET_PROS;

Line 2746: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2742: LogMessage( 'Start of ' || l_api_name || ' body');
2743: END IF;
2744:
2745: Open C_GET_PROS;
2746: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2747: LogMessage( 'OPEN C_GET_PROS');
2748: END IF;
2749: LOOP
2750:

Line 2761: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2757: l_delinquency_id;
2758:
2759: EXIT WHEN C_GET_PROS%NOTFOUND;
2760:
2761: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2762: LogMessage( 'Found promise');
2763: LogMessage( 'promise_detail_id =' || l_promise_detail_id );
2764: LogMessage( 'party_id =' || l_party_id );
2765: LogMessage( 'resource_id =' || l_resource_id );

Line 2770: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2766: LogMessage( 'l_cust_account_id =' || l_cust_account_id );
2767: END IF;
2768:
2769: If ( l_resource_id is null ) Then
2770: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2771: LogMessage( 'No Resource_ID');
2772: END IF;
2773: -- Begin - Andre Araujo - 09/30/2004- Remove obsolete logging
2774: /*

Line 2809: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2805: end if;
2806:
2807: /* end kasreeni 01/20/2006 Create task reference for Party_id, ACCOUNT and bill to */
2808:
2809: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2810: LogMessage( 'Calling JTF_TASKS_PUB.CREATE_TASK...');
2811: END IF;
2812:
2813: JTF_TASKS_PUB.CREATE_TASK(

Line 2843: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2839: x_task_id => l_task_id );
2840:
2841: -- check for errors
2842: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2843: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2844: LogMessage( 'Call JTF_TASKS_PUB.CREATE_TASK failed');
2845: END IF;
2846: -- Begin - Andre Araujo - 09/30/2004- Remove obsolete logging
2847: /*

Line 2856: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2852: */
2853: -- End - Andre Araujo - 09/30/2004- Remove obsolete logging
2854: exit;
2855: ELSE
2856: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2857: LogMessage( 'Call JTF_TASKS_PUB.CREATE_TASK succeeded. Task_ID=' || l_task_id);
2858: END IF;
2859:
2860: END IF;

Line 2870: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2866: last_updated_by = G_USER_ID
2867: WHERE promise_detail_id = l_promise_detail_id;
2868:
2869: if (sql%notfound) then
2870: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2871: LogMessage( 'update failed');
2872: END IF;
2873: -- Begin - Andre Araujo - 09/30/2004- Remove obsolete logging
2874: /*

Line 2882: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2878: P_MESSAGE => 'Failed to update iex_promise_details for promise_detail_id = ' || l_promise_detail_id);
2879: */
2880: -- End - Andre Araujo - 09/30/2004- Remove obsolete logging
2881: else
2882: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2883: LogMessage( 'update successfull');
2884: END IF;
2885: end if;
2886:

Line 2891: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2887: end if;
2888:
2889: end loop; -- end of CURSOR loop
2890:
2891: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2892: LogMessage( 'Close C_GET_PROS');
2893: END IF;
2894: Close C_GET_PROS;
2895:

Line 2896: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2892: LogMessage( 'Close C_GET_PROS');
2893: END IF;
2894: Close C_GET_PROS;
2895:
2896: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2897: LogMessage( 'End of ' || l_api_name || ' body');
2898: END IF;
2899: -- END OF BODY OF API
2900:

Line 2901: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2897: LogMessage( 'End of ' || l_api_name || ' body');
2898: END IF;
2899: -- END OF BODY OF API
2900:
2901: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2902: LogMessage( 'End time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
2903: END IF;
2904:
2905: -- Standard check of p_commit.

Line 2911: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2907: COMMIT WORK;
2908: END IF;
2909:
2910: --Begin bug 7317666 21-Nov-2008 barathsr
2911: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2912: LogMessage( 'Cancelling the callback tasks correpsonding to fulfilled promises...');
2913: END IF;
2914: FOR rec1 IN c_invalid_tasks LOOP
2915: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

Line 2915: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2911: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2912: LogMessage( 'Cancelling the callback tasks correpsonding to fulfilled promises...');
2913: END IF;
2914: FOR rec1 IN c_invalid_tasks LOOP
2915: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2916: LogMessage( 'Cancelling the callback task: '||rec1.task_id);
2917: END IF;
2918: l_obj_version_number:=rec1.object_version_number;
2919: JTF_TASKS_PUB.UPDATE_TASK(

Line 2932: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2928: x_msg_data => l_msg_data);
2929:
2930: END LOOP;
2931:
2932: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2933: LogMessage( 'Completed Cancelling the callback tasks correpsonding to fulfilled promises...');
2934: END IF;
2935:
2936: IF FND_API.To_Boolean( p_commit ) THEN

Line 3032: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

3028:
3029: -- Standard start of API savepoint
3030: SAVEPOINT REOPEN_PROMISES_PVT;
3031:
3032: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3033: LogMessage(G_PKG_NAME || '.REOPEN_PROMISES: Savepoint is established');
3034: END IF;
3035: -- Standard call to check for call compatibility
3036: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN

Line 3049: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

3045: -- Initialize API return status to success
3046: l_return_status := FND_API.G_RET_STS_SUCCESS;
3047:
3048: -- START OF BODY OF API
3049: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3050: LogMessage(G_PKG_NAME || '.REOPEN_PROMISES: Start of ' || l_api_name || ' body');
3051: END IF;
3052:
3053: l_del_count := p_dels_tbl.count;

Line 3054: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

3050: LogMessage(G_PKG_NAME || '.REOPEN_PROMISES: Start of ' || l_api_name || ' body');
3051: END IF;
3052:
3053: l_del_count := p_dels_tbl.count;
3054: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3055: LogMessage(G_PKG_NAME || '.REOPEN_PROMISES: delinquencies count: ' || l_del_count);
3056: END IF;
3057: if l_del_count > 0 then
3058:

Line 3070: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

3066: 'STATUS = ''CLOSED'' ' ||
3067: 'ORDER BY PROMISE_DETAIL_ID';
3068:
3069: FOR i in 1..l_del_count LOOP
3070: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3071: LogMessage(G_PKG_NAME || '.REOPEN_PROMISES: pulling closed promises for delinquency: ' || p_dels_tbl(i));
3072: END IF;
3073: open promises_cur for vSQL
3074: using p_dels_tbl(i);

Line 3080: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

3076: LOOP
3077: fetch promises_cur into l_promise_id, l_promise_date;
3078: exit when promises_cur%NOTFOUND;
3079:
3080: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3081: LogMessage(G_PKG_NAME || '.REOPEN_PROMISES: found promise with id: ' || l_promise_id);
3082: LogMessage(G_PKG_NAME || '.REOPEN_PROMISES: promise date: ' || l_promise_date);
3083: END IF;
3084:

Line 3088: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

3084:
3085: if trunc(sysdate) > trunc(l_promise_date) then
3086: Get_Callback_Date(p_promise_date => l_promise_date, x_callback_date => l_callback_date);
3087:
3088: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3089: LogMessage(G_PKG_NAME || '.REOPEN_PROMISES: updating promise ' || l_promise_id || ' with status BROKEN');
3090: LogMessage(G_PKG_NAME || '.REOPEN_PROMISES: callback date ' || l_callback_date);
3091: END IF;
3092: UPDATE iex_promise_details

Line 3100: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

3096: last_update_date = sysdate,
3097: last_updated_by = G_USER_ID
3098: WHERE promise_detail_id = l_promise_id;
3099: else
3100: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3101: LogMessage(G_PKG_NAME || '.REOPEN_PROMISES: updating promise ' || l_promise_id || ' with status OPEN');
3102: END IF;
3103: UPDATE iex_promise_details
3104: SET STATUS = 'OPEN',

Line 3111: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

3107: WHERE promise_detail_id = l_promise_id;
3108: end if;
3109:
3110: if (sql%notfound) then
3111: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3112: LogMessage(G_PKG_NAME || '.REOPEN_PROMISES: update of promise ' || l_promise_id || ' failed');
3113: END IF;
3114: -- Begin - Andre Araujo - 09/30/2004- Remove obsolete logging
3115: --IEX_CONC_REQUEST_MSG_PKG.Log_Error(

Line 3121: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

3117: -- P_Procedure_name => G_PKG_NAME || '.' || l_api_name,
3118: -- P_MESSAGE => 'Failed to update iex_promise_details for promise_detail_id = ' || l_promise_id);
3119: -- End - Andre Araujo - 09/30/2004- Remove obsolete logging
3120: else
3121: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3122: LogMessage(G_PKG_NAME || '.REOPEN_PROMISES: update of promise ' || l_promise_id || ' succeeded');
3123: END IF;
3124: end if;
3125: END LOOP;

Line 3127: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

3123: END IF;
3124: end if;
3125: END LOOP;
3126: END LOOP;
3127: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3128: LogMessage(G_PKG_NAME || '.REOPEN_PROMISES: done processing all delinquencies');
3129: END IF;
3130: end if;
3131:

Line 3132: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

3128: LogMessage(G_PKG_NAME || '.REOPEN_PROMISES: done processing all delinquencies');
3129: END IF;
3130: end if;
3131:
3132: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3133: LogMessage(G_PKG_NAME || '.REOPEN_PROMISES: End of ' || l_api_name || ' body');
3134: END IF;
3135: -- END OF BODY OF API
3136:

Line 3140: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

3136:
3137: -- Standard check of p_commit.
3138: IF FND_API.To_Boolean( p_commit ) THEN
3139: COMMIT WORK;
3140: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3141: LogMessage(G_PKG_NAME || '.REOPEN_PROMISES: Commited');
3142: END IF;
3143: END IF;
3144:

Line 3189: PG_DEBUG := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

3185: -- End - Andre Araujo - 09/30/2004- Remove obsolete logging
3186: */
3187: END;
3188: begin
3189: PG_DEBUG := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3190: G_LOGIN_ID := FND_GLOBAL.Conc_Login_Id;
3191: G_PROGRAM_ID := FND_GLOBAL.Conc_Program_Id;
3192: G_USER_ID := FND_GLOBAL.User_Id;
3193: G_REQUEST_ID := FND_GLOBAL.Conc_Request_Id;