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.PO_NEGOTIATIONS4_PVT dependencies on FND_LOG

Line 92: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

88: FROM po_req_split_lines_gt prs
89: ORDER BY prs.requisition_header_id,prs.requisition_line_id;
90:
91: FOR l_dbg_index in 1.. requisition_line_id_dbg_tbl.COUNT loop
92: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
93: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, p_module,
94: 'auction_header_id:'||to_char(auction_header_id_dbg_tbl(l_dbg_index))||','
95: ||'bid_number:'||to_char(bid_number_dbg_tbl(l_dbg_index))||','
96: ||'bid_line_number:'||to_char(bid_line_number_dbg_tbl(l_dbg_index))||','

Line 93: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, p_module,

89: ORDER BY prs.requisition_header_id,prs.requisition_line_id;
90:
91: FOR l_dbg_index in 1.. requisition_line_id_dbg_tbl.COUNT loop
92: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
93: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, p_module,
94: 'auction_header_id:'||to_char(auction_header_id_dbg_tbl(l_dbg_index))||','
95: ||'bid_number:'||to_char(bid_number_dbg_tbl(l_dbg_index))||','
96: ||'bid_line_number:'||to_char(bid_line_number_dbg_tbl(l_dbg_index))||','
97: ||'requisition_header_id:'||to_char(requisition_header_id_dbg_tbl(l_dbg_index))||','

Line 255: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN

251: BEGIN
252:
253: l_progress :='000';
254: l_module := G_MODULE_PREFIX||l_api_name||'.'||'000'||'.';
255: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
256: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Entering');
257: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
258: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
259: END IF;

Line 257: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,

253: l_progress :='000';
254: l_module := G_MODULE_PREFIX||l_api_name||'.'||'000'||'.';
255: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
256: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Entering');
257: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
258: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
259: END IF;
260:
261: SAVEPOINT Split_RequisitionLines_PVT;

Line 265: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

261: SAVEPOINT Split_RequisitionLines_PVT;
262:
263: l_progress :='010';
264: l_module := G_MODULE_PREFIX||l_api_name||'.'||'010'||'.';
265: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
266: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
267: 'Compatible_API_Call ');
268: END IF;
269:

Line 266: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

262:
263: l_progress :='010';
264: l_module := G_MODULE_PREFIX||l_api_name||'.'||'010'||'.';
265: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
266: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
267: 'Compatible_API_Call ');
268: END IF;
269:
270: IF NOT FND_API.Compatible_API_Call

Line 284: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

280:
281:
282: l_progress :='020';
283: l_module := G_MODULE_PREFIX||l_api_name||'.'||'020'||'.';
284: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
285: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
286: 'OPEN LockReqLines_Cursor ');
287: END IF;
288: -- Lock the requisition lines the api is going to process

Line 285: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

281:
282: l_progress :='020';
283: l_module := G_MODULE_PREFIX||l_api_name||'.'||'020'||'.';
284: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
285: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
286: 'OPEN LockReqLines_Cursor ');
287: END IF;
288: -- Lock the requisition lines the api is going to process
289: OPEN LockReqLines_Cursor;

Line 303: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

299: BEGIN
300:
301: l_progress :='030';
302: l_module := G_MODULE_PREFIX||l_api_name||'.'||'030'||'.';
303: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
304: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
305: 'before update po_req_split_lines_gt for quantity and
306: status ');
307: END IF;

Line 304: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

300:
301: l_progress :='030';
302: l_module := G_MODULE_PREFIX||l_api_name||'.'||'030'||'.';
303: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
304: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
305: 'before update po_req_split_lines_gt for quantity and
306: status ');
307: END IF;
308:

Line 326: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

322: );
323:
324: l_progress :='031';
325: l_module := G_MODULE_PREFIX||l_api_name||'.'||'031'||'.';
326: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
327: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
328: 'after update po_req_split_lines_gt for quantity and
329: status; updated '||sql%rowcount||' rows');
330: END IF;

Line 327: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

323:
324: l_progress :='031';
325: l_module := G_MODULE_PREFIX||l_api_name||'.'||'031'||'.';
326: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
327: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
328: 'after update po_req_split_lines_gt for quantity and
329: status; updated '||sql%rowcount||' rows');
330: END IF;
331:

Line 339: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

335: WHEN OTHERS THEN
336: po_message_s.sql_error('Exception of Split_requisitionLines()',
337: l_progress , sqlcode);
338: FND_MSG_PUB.Add;
339: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
340: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
341: 'Exception: update po_req_split_lines_gt for
342: quantity and status ');
343: END IF;

Line 340: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,

336: po_message_s.sql_error('Exception of Split_requisitionLines()',
337: l_progress , sqlcode);
338: FND_MSG_PUB.Add;
339: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
340: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
341: 'Exception: update po_req_split_lines_gt for
342: quantity and status ');
343: END IF;
344: RAISE;

Line 351: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL=FND_LOG.LEVEL_STATEMENT THEN

347:
348: --do the dump of input values if the log level is statement.
349: l_progress :='032';
350: l_module := G_MODULE_PREFIX||l_api_name||'.'||'032'||'.';
351: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL=FND_LOG.LEVEL_STATEMENT THEN
352: Print_Global_Table(l_module);
353: END IF;
354:
355: -- withdrawn lines also with a status 'C'

Line 362: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

358: BEGIN
359:
360: l_progress :='035';
361: l_module := G_MODULE_PREFIX||l_api_name||'.'||'035'||'.';
362: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
363: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
364: 'before update po_req_split_lines_gt for withdrawn lines');
365: END IF;
366:

Line 363: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

359:
360: l_progress :='035';
361: l_module := G_MODULE_PREFIX||l_api_name||'.'||'035'||'.';
362: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
363: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
364: 'before update po_req_split_lines_gt for withdrawn lines');
365: END IF;
366:
367: -- SQL What:update the withdrawn lines in the temp table as 'C'

Line 379: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

375: );
376:
377: l_progress :='036';
378: l_module := G_MODULE_PREFIX||l_api_name||'.'||'036'||'.';
379: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
380: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
381: 'after update po_req_split_lines_gt for withdrawn lines;
382: updated '||sql%rowcount||' rows');
383: END IF;

Line 380: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

376:
377: l_progress :='036';
378: l_module := G_MODULE_PREFIX||l_api_name||'.'||'036'||'.';
379: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
380: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
381: 'after update po_req_split_lines_gt for withdrawn lines;
382: updated '||sql%rowcount||' rows');
383: END IF;
384:

Line 391: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

387: WHEN OTHERS THEN
388: po_message_s.sql_error('Exception of Split_requisitionLines()',
389: l_progress , sqlcode);
390: FND_MSG_PUB.Add;
391: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
392: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
393: 'Exception: update po_req_split_lines_gt for
394: withdrawn lines ');
395: END IF;

Line 392: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,

388: po_message_s.sql_error('Exception of Split_requisitionLines()',
389: l_progress , sqlcode);
390: FND_MSG_PUB.Add;
391: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
392: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
393: 'Exception: update po_req_split_lines_gt for
394: withdrawn lines ');
395: END IF;
396: RAISE;

Line 410: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

406: BEGIN
407:
408: l_progress :='037';
409: l_module := G_MODULE_PREFIX||l_api_name||'.'||'037'||'.';
410: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
411: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
412: 'before update po_req_split_lines_gt for Services lines');
413: END IF;
414:

Line 411: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

407:
408: l_progress :='037';
409: l_module := G_MODULE_PREFIX||l_api_name||'.'||'037'||'.';
410: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
411: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
412: 'before update po_req_split_lines_gt for Services lines');
413: END IF;
414:
415: -- SQL What: Update Services Lines in the Global Temp Table as 'T'.

Line 434: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

430: WHERE nvl(PRS.record_status, 'NOVAL') <> 'C';
431:
432: l_progress :='038';
433: l_module := G_MODULE_PREFIX||l_api_name||'.'||'038'||'.';
434: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
435: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
436: 'after update po_req_split_lines_gt for Services lines;
437: updated '||sql%rowcount||' rows');
438: END IF;

Line 435: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

431:
432: l_progress :='038';
433: l_module := G_MODULE_PREFIX||l_api_name||'.'||'038'||'.';
434: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
435: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
436: 'after update po_req_split_lines_gt for Services lines;
437: updated '||sql%rowcount||' rows');
438: END IF;
439:

Line 445: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

441:
442: WHEN OTHERS THEN
443: po_message_s.sql_error('Exception of Split_requisitionLines()', l_progress , sqlcode);
444: FND_MSG_PUB.Add;
445: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
446: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module, 'Exception: update po_req_split_lines_gt for Services lines');
447: END IF;
448: RAISE;
449:

Line 446: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module, 'Exception: update po_req_split_lines_gt for Services lines');

442: WHEN OTHERS THEN
443: po_message_s.sql_error('Exception of Split_requisitionLines()', l_progress , sqlcode);
444: FND_MSG_PUB.Add;
445: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
446: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module, 'Exception: update po_req_split_lines_gt for Services lines');
447: END IF;
448: RAISE;
449:
450: END;

Line 458: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

454: BEGIN
455:
456: l_progress :='040';
457: l_module := G_MODULE_PREFIX||l_api_name||'.'||'040'||'.';
458: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
459: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
460: 'before select sum of allocated_qty and min of bid_number
461: ');
462: END IF;

Line 459: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

455:
456: l_progress :='040';
457: l_module := G_MODULE_PREFIX||l_api_name||'.'||'040'||'.';
458: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
459: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
460: 'before select sum of allocated_qty and min of bid_number
461: ');
462: END IF;
463:

Line 481: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

477: GROUP BY requisition_line_id;
478:
479: l_progress :='041';
480: l_module := G_MODULE_PREFIX||l_api_name||'.'||'041'||'.';
481: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
482: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
483: 'after select sum of allocated_qty and min of bid_number;
484: selected '||requisition_line_id_tbl.COUNT||' rows');
485: END IF;

Line 482: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

478:
479: l_progress :='041';
480: l_module := G_MODULE_PREFIX||l_api_name||'.'||'041'||'.';
481: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
482: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
483: 'after select sum of allocated_qty and min of bid_number;
484: selected '||requisition_line_id_tbl.COUNT||' rows');
485: END IF;
486:

Line 493: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

489: WHEN OTHERS THEN
490: po_message_s.sql_error('Exception of Split_requisitionLines()',
491: l_progress , sqlcode);
492: FND_MSG_PUB.Add;
493: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
494: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
495: 'Exception: select sum of allocated_qty and min of
496: bid_number ');
497: END IF;

Line 494: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,

490: po_message_s.sql_error('Exception of Split_requisitionLines()',
491: l_progress , sqlcode);
492: FND_MSG_PUB.Add;
493: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
494: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
495: 'Exception: select sum of allocated_qty and min of
496: bid_number ');
497: END IF;
498:

Line 508: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

504: BEGIN
505:
506: l_progress :='050';
507: l_module := G_MODULE_PREFIX||l_api_name||'.'||'050'||'.';
508: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
509: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
510: 'before updating po_req_split_lines_gt with sum of
511: allocated_qty and min of bid_number etc..
512: ');

Line 509: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

505:
506: l_progress :='050';
507: l_module := G_MODULE_PREFIX||l_api_name||'.'||'050'||'.';
508: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
509: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
510: 'before updating po_req_split_lines_gt with sum of
511: allocated_qty and min of bid_number etc..
512: ');
513: END IF;

Line 536: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

532: WHERE requisition_line_id = requisition_line_id_tbl(qty_rollup_index);
533:
534: l_progress :='051';
535: l_module := G_MODULE_PREFIX||l_api_name||'.'||'050'||'.';
536: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
537: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
538: 'after updating po_req_split_lines_gt with sum of
539: allocated_qty and min of bid_number etc..; updated '
540: || sql%rowcount ||' rows');

Line 537: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

533:
534: l_progress :='051';
535: l_module := G_MODULE_PREFIX||l_api_name||'.'||'050'||'.';
536: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
537: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
538: 'after updating po_req_split_lines_gt with sum of
539: allocated_qty and min of bid_number etc..; updated '
540: || sql%rowcount ||' rows');
541: END IF;

Line 550: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

546: WHEN OTHERS THEN
547: po_message_s.sql_error('Exception of Split_requisitionLines()',
548: l_progress , sqlcode);
549: FND_MSG_PUB.Add;
550: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
551: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
552: 'Exception: updating po_req_split_lines_gt with sum of
553: allocated_qty and min of bid_number etc.. ');
554: END IF;

Line 551: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,

547: po_message_s.sql_error('Exception of Split_requisitionLines()',
548: l_progress , sqlcode);
549: FND_MSG_PUB.Add;
550: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
551: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
552: 'Exception: updating po_req_split_lines_gt with sum of
553: allocated_qty and min of bid_number etc.. ');
554: END IF;
555: RAISE;

Line 564: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

560: BEGIN
561:
562: l_progress :='060';
563: l_module := G_MODULE_PREFIX||l_api_name||'.'||'060'||'.';
564: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
565: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
566: 'before inserting remainder req lines into
567: po_req_split_lines_gt ');
568: END IF;

Line 565: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

561:
562: l_progress :='060';
563: l_module := G_MODULE_PREFIX||l_api_name||'.'||'060'||'.';
564: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
565: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
566: 'before inserting remainder req lines into
567: po_req_split_lines_gt ');
568: END IF;
569:

Line 605: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

601: AND bid_number=min_bid_number;
602:
603: l_progress :='061';
604: l_module := G_MODULE_PREFIX||l_api_name||'.'||'060'||'.';
605: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
606: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
607: 'after inserting remainder req lines into
608: po_req_split_lines_gt inserted '||sql%rowcount||' rows');
609: END IF;

Line 606: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

602:
603: l_progress :='061';
604: l_module := G_MODULE_PREFIX||l_api_name||'.'||'060'||'.';
605: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
606: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
607: 'after inserting remainder req lines into
608: po_req_split_lines_gt inserted '||sql%rowcount||' rows');
609: END IF;
610:

Line 617: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

613: WHEN OTHERS THEN
614: po_message_s.sql_error('Exception of Split_requisitionLines()',
615: l_progress , sqlcode);
616: FND_MSG_PUB.Add;
617: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
618: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
619: 'Exception: inserting remainder req lines into
620: po_req_split_lines_gt ');
621: END IF;

Line 618: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,

614: po_message_s.sql_error('Exception of Split_requisitionLines()',
615: l_progress , sqlcode);
616: FND_MSG_PUB.Add;
617: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
618: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
619: 'Exception: inserting remainder req lines into
620: po_req_split_lines_gt ');
621: END IF;
622: RAISE;

Line 630: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

626: BEGIN
627:
628: l_progress :='070';
629: l_module := G_MODULE_PREFIX||l_api_name||'.'||'070'||'.';
630: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
631: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
632: 'before stamping bid info for equal allocation ');
633: END IF;
634:

Line 631: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

627:
628: l_progress :='070';
629: l_module := G_MODULE_PREFIX||l_api_name||'.'||'070'||'.';
630: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
631: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
632: 'before stamping bid info for equal allocation ');
633: END IF;
634:
635: -- SQL What:update the po_requisition_lines_all table to stamp bid info for

Line 655: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

651: WHERE prs1.record_status IN ('E','T') ); --
652:
653: l_progress :='071';
654: l_module := G_MODULE_PREFIX||l_api_name||'.'||'071'||'.';
655: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
656: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
657: 'before stamping bid info for equal allocation updated'
658: || sql%rowcount||' requisition lines ');
659: END IF;

Line 656: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

652:
653: l_progress :='071';
654: l_module := G_MODULE_PREFIX||l_api_name||'.'||'071'||'.';
655: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
656: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
657: 'before stamping bid info for equal allocation updated'
658: || sql%rowcount||' requisition lines ');
659: END IF;
660:

Line 667: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

663: WHEN OTHERS THEN
664: po_message_s.sql_error('Exception of Split_requisitionLines()',
665: l_progress , sqlcode);
666: FND_MSG_PUB.Add;
667: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
668: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
669: 'Exception: stamping bid info for equal allocation
670: ');
671: END IF;

Line 668: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,

664: po_message_s.sql_error('Exception of Split_requisitionLines()',
665: l_progress , sqlcode);
666: FND_MSG_PUB.Add;
667: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
668: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
669: 'Exception: stamping bid info for equal allocation
670: ');
671: END IF;
672: RAISE;

Line 681: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

677: BEGIN
678:
679: l_progress :='080';
680: l_module := G_MODULE_PREFIX||l_api_name||'.'||'080'||'.';
681: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
682: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
683: 'before updating po_req_split_lines_gt with max linenum');
684: END IF;
685:

Line 682: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

678:
679: l_progress :='080';
680: l_module := G_MODULE_PREFIX||l_api_name||'.'||'080'||'.';
681: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
682: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
683: 'before updating po_req_split_lines_gt with max linenum');
684: END IF;
685:
686: --SQL What:update the temp table with the max line number for each

Line 699: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

695: WHERE prs.record_status in ('S','N');
696:
697: l_progress :='081';
698: l_module := G_MODULE_PREFIX||l_api_name||'.'||'081'||'.';
699: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
700: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
701: 'after updating po_req_split_lines_gt with max linenum;
702: Updated '|| sql%rowcount||' rows ');
703: END IF;

Line 700: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

696:
697: l_progress :='081';
698: l_module := G_MODULE_PREFIX||l_api_name||'.'||'081'||'.';
699: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
700: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
701: 'after updating po_req_split_lines_gt with max linenum;
702: Updated '|| sql%rowcount||' rows ');
703: END IF;
704:

Line 711: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

707: WHEN OTHERS THEN
708: po_message_s.sql_error('Exception of Split_requisitionLines()',
709: l_progress , sqlcode);
710: FND_MSG_PUB.Add;
711: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
712: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
713: 'Exception: updating po_req_split_lines_gt with max
714: line num');
715: END IF;

Line 712: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,

708: po_message_s.sql_error('Exception of Split_requisitionLines()',
709: l_progress , sqlcode);
710: FND_MSG_PUB.Add;
711: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
712: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
713: 'Exception: updating po_req_split_lines_gt with max
714: line num');
715: END IF;
716: RAISE;

Line 725: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

721: BEGIN
722:
723: l_progress :='090';
724: l_module := G_MODULE_PREFIX||l_api_name||'.'||'090'||'.';
725: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
726: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
727: 'before selecting rowid and new_line_num to memory ');
728: END IF;
729:

Line 726: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

722:
723: l_progress :='090';
724: l_module := G_MODULE_PREFIX||l_api_name||'.'||'090'||'.';
725: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
726: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
727: 'before selecting rowid and new_line_num to memory ');
728: END IF;
729:
730: -- SQL What:Add incremental numbers to the new_line_num resetting at

Line 758: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

754: ORDER BY prs.requisition_header_id,prs.requisition_line_id;
755:
756: l_progress :='091';
757: l_module := G_MODULE_PREFIX||l_api_name||'.'||'091'||'.';
758: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
759: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
760: 'after selecting rowid and new_line_num to memory;
761: selected '||row_id_lnm_tbl.COUNT||' rows');
762: END IF;

Line 759: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

755:
756: l_progress :='091';
757: l_module := G_MODULE_PREFIX||l_api_name||'.'||'091'||'.';
758: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
759: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
760: 'after selecting rowid and new_line_num to memory;
761: selected '||row_id_lnm_tbl.COUNT||' rows');
762: END IF;
763:

Line 770: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

766:
767: po_message_s.sql_error('Exception of Split_requisitionLines()',
768: l_progress , sqlcode);
769: FND_MSG_PUB.Add;
770: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
771: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
772: 'Exception: selecting rowid and new_line_num to memory '
773: );
774: END IF;

Line 771: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,

767: po_message_s.sql_error('Exception of Split_requisitionLines()',
768: l_progress , sqlcode);
769: FND_MSG_PUB.Add;
770: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
771: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
772: 'Exception: selecting rowid and new_line_num to memory '
773: );
774: END IF;
775: RAISE;

Line 784: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

780: BEGIN
781:
782: l_progress :='100';
783: l_module := G_MODULE_PREFIX||l_api_name||'.'||'100'||'.';
784: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
785: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
786: 'before loop: Assign incremental numbers to line num ');
787: END IF;
788:

Line 785: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

781:
782: l_progress :='100';
783: l_module := G_MODULE_PREFIX||l_api_name||'.'||'100'||'.';
784: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
785: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
786: 'before loop: Assign incremental numbers to line num ');
787: END IF;
788:
789: FOR l_line_num_index in 1.. requisition_line_id_lnm_tbl.COUNT

Line 805: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

801: :=new_line_num_lnm_tbl(l_line_num_index)+l_serial_num;
802:
803: l_progress :='105';
804: l_module := G_MODULE_PREFIX||l_api_name||'.'||'105'||'.';
805: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
806: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
807: 'Inside loop: Requisition_header_id = '
808: ||requisition_header_id_lnm_tbl(l_line_num_index)
809: ||'Requisition_line_id = '

Line 806: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

802:
803: l_progress :='105';
804: l_module := G_MODULE_PREFIX||l_api_name||'.'||'105'||'.';
805: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
806: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
807: 'Inside loop: Requisition_header_id = '
808: ||requisition_header_id_lnm_tbl(l_line_num_index)
809: ||'Requisition_line_id = '
810: ||requisition_line_id_lnm_tbl(l_line_num_index)

Line 822: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

818: END LOOP;
819:
820: l_progress :='109';
821: l_module := G_MODULE_PREFIX||l_api_name||'.'||'109'||'.';
822: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
823: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
824: 'After loop: Assign incremental numbers to line num ');
825: END IF;
826:

Line 823: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

819:
820: l_progress :='109';
821: l_module := G_MODULE_PREFIX||l_api_name||'.'||'109'||'.';
822: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
823: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
824: 'After loop: Assign incremental numbers to line num ');
825: END IF;
826:
827: EXCEPTION

Line 833: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

829:
830: po_message_s.sql_error('Exception of Split_requisitionLines()',
831: l_progress , sqlcode);
832: FND_MSG_PUB.Add;
833: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
834: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
835: 'Exception: Assign incremental numbers to line num ');
836: END IF;
837: RAISE;

Line 834: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,

830: po_message_s.sql_error('Exception of Split_requisitionLines()',
831: l_progress , sqlcode);
832: FND_MSG_PUB.Add;
833: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
834: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
835: 'Exception: Assign incremental numbers to line num ');
836: END IF;
837: RAISE;
838: END;

Line 845: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

841: BEGIN
842:
843: l_progress :='110';
844: l_module := G_MODULE_PREFIX||l_api_name||'.'||'110'||'.';
845: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
846: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
847: 'Before: update po_req_split_lines_gt toset new_line_num');
848: END IF;
849:

Line 846: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

842:
843: l_progress :='110';
844: l_module := G_MODULE_PREFIX||l_api_name||'.'||'110'||'.';
845: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
846: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
847: 'Before: update po_req_split_lines_gt toset new_line_num');
848: END IF;
849:
850: FORALL l_line_num_upd_index in 1.. requisition_line_id_lnm_tbl.COUNT

Line 856: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

852: SET new_line_num=new_line_num_lnm_tbl(l_line_num_upd_index)
853: WHERE rowid=row_id_lnm_tbl(l_line_num_upd_index);
854: l_progress :='111';
855: l_module := G_MODULE_PREFIX||l_api_name||'.'||'110'||'.';
856: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
857: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
858: 'After: update po_req_split_lines_gt toset new_line_num;
859: Updated '||sql%rowcount||' rows');
860: END IF;

Line 857: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

853: WHERE rowid=row_id_lnm_tbl(l_line_num_upd_index);
854: l_progress :='111';
855: l_module := G_MODULE_PREFIX||l_api_name||'.'||'110'||'.';
856: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
857: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
858: 'After: update po_req_split_lines_gt toset new_line_num;
859: Updated '||sql%rowcount||' rows');
860: END IF;
861:

Line 868: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

864:
865: po_message_s.sql_error('Exception of Split_requisitionLines()',
866: l_progress , sqlcode);
867: FND_MSG_PUB.Add;
868: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
869: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
870: 'Exception: update po_req_split_lines_gt to set
871: new_line_num');
872: END IF;

Line 869: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,

865: po_message_s.sql_error('Exception of Split_requisitionLines()',
866: l_progress , sqlcode);
867: FND_MSG_PUB.Add;
868: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
869: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
870: 'Exception: update po_req_split_lines_gt to set
871: new_line_num');
872: END IF;
873: RAISE;

Line 886: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

882: BEGIN
883:
884: l_progress :='120';
885: l_module := G_MODULE_PREFIX||l_api_name||'.'||'120'||'.';
886: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
887: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
888: 'Before: Collect all the req lines which are eligible to split ');
889: Print_Global_Table(l_module);
890: END IF;

Line 887: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

883:
884: l_progress :='120';
885: l_module := G_MODULE_PREFIX||l_api_name||'.'||'120'||'.';
886: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
887: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
888: 'Before: Collect all the req lines which are eligible to split ');
889: Print_Global_Table(l_module);
890: END IF;
891:

Line 932: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

928: AND nvl(prl.org_id, -99) = nvl(fsp.org_id, -99); -- Bug 4723367
929:
930: l_progress :='121';
931: l_module := G_MODULE_PREFIX||l_api_name||'.'||'121'||'.';
932: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
933: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
934: 'After: Collect all the req lines which are eligible to ' ||
935: 'split; Selected '||requisition_line_id_rslt_tbl.COUNT
936: ||' rows');

Line 933: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

929:
930: l_progress :='121';
931: l_module := G_MODULE_PREFIX||l_api_name||'.'||'121'||'.';
932: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
933: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
934: 'After: Collect all the req lines which are eligible to ' ||
935: 'split; Selected '||requisition_line_id_rslt_tbl.COUNT
936: ||' rows');
937: END IF;

Line 945: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

941:
942: po_message_s.sql_error('Exception of Split_requisitionLines()',
943: l_progress , sqlcode);
944: FND_MSG_PUB.Add;
945: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
946: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
947: 'Exception: Collect all the req lines which are eligible to split ');
948: END IF;
949: RAISE;

Line 946: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,

942: po_message_s.sql_error('Exception of Split_requisitionLines()',
943: l_progress , sqlcode);
944: FND_MSG_PUB.Add;
945: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
946: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
947: 'Exception: Collect all the req lines which are eligible to split ');
948: END IF;
949: RAISE;
950:

Line 962: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

958: BEGIN
959:
960: l_progress :='130';
961: l_module := G_MODULE_PREFIX||l_api_name||'.'||'130'||'.';
962: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
963: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
964: 'Before: Create all the new requisition lines ');
965: END IF;
966:

Line 963: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

959:
960: l_progress :='130';
961: l_module := G_MODULE_PREFIX||l_api_name||'.'||'130'||'.';
962: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
963: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
964: 'Before: Create all the new requisition lines ');
965: END IF;
966:
967: FORALL l_insert_line_index IN

Line 1215: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1211: requisition_line_id_rslt_tbl(l_insert_line_index);
1212:
1213: l_progress :='131';
1214: l_module := G_MODULE_PREFIX||l_api_name||'.'||'131'||'.';
1215: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1216: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1217: 'Before: Create all the new requisition lines; Inserted '
1218: ||sql%rowcount||' requisition lines');
1219: END IF;

Line 1216: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

1212:
1213: l_progress :='131';
1214: l_module := G_MODULE_PREFIX||l_api_name||'.'||'131'||'.';
1215: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1216: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1217: 'Before: Create all the new requisition lines; Inserted '
1218: ||sql%rowcount||' requisition lines');
1219: END IF;
1220:

Line 1228: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

1224: po_message_s.sql_error
1225: ('Exception of Split_requisitionLines()', l_progress ,
1226: sqlcode);
1227: FND_MSG_PUB.Add;
1228: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1229: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
1230: 'Exception: Create all the new requisition lines ');
1231: END IF;
1232: RAISE;

Line 1229: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,

1225: ('Exception of Split_requisitionLines()', l_progress ,
1226: sqlcode);
1227: FND_MSG_PUB.Add;
1228: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1229: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
1230: 'Exception: Create all the new requisition lines ');
1231: END IF;
1232: RAISE;
1233:

Line 1247: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1243: BEGIN
1244:
1245: l_progress :='140';
1246: l_module := G_MODULE_PREFIX||l_api_name||'.'||'140'||'.';
1247: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1248: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1249: 'Before: Mark parent req lines as modified by agent');
1250: END IF;
1251:

Line 1248: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

1244:
1245: l_progress :='140';
1246: l_module := G_MODULE_PREFIX||l_api_name||'.'||'140'||'.';
1247: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1248: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1249: 'Before: Mark parent req lines as modified by agent');
1250: END IF;
1251:
1252: -- : added update of reqs_in_pool_flag and of

Line 1267: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1263: AND record_status_rslt_tbl(l_mod_buyer_index)='S';
1264:
1265: l_progress :='141';
1266: l_module := G_MODULE_PREFIX||l_api_name||'.'||'141'||'.';
1267: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1268: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1269: 'After: Mark parent req lines as modified by agent;Updated'
1270: ||sql%rowcount||' requisition lines ');
1271: END IF;

Line 1268: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

1264:
1265: l_progress :='141';
1266: l_module := G_MODULE_PREFIX||l_api_name||'.'||'141'||'.';
1267: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1268: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1269: 'After: Mark parent req lines as modified by agent;Updated'
1270: ||sql%rowcount||' requisition lines ');
1271: END IF;
1272:

Line 1280: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1276: po_message_s.sql_error
1277: ('Exception of Split_requisitionLines()', l_progress ,
1278: sqlcode);
1279: FND_MSG_PUB.Add;
1280: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1281: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1282: 'Exception: Mark parent req lines as modified by agent');
1283: END IF;
1284: RAISE;

Line 1281: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

1277: ('Exception of Split_requisitionLines()', l_progress ,
1278: sqlcode);
1279: FND_MSG_PUB.Add;
1280: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1281: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1282: 'Exception: Mark parent req lines as modified by agent');
1283: END IF;
1284: RAISE;
1285:

Line 1299: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1295: BEGIN
1296:
1297: l_progress :='145';
1298: l_module := G_MODULE_PREFIX||l_api_name||'.'||'145'||'.';
1299: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1300: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1301: 'Before: Update MTL_SUPPLY');
1302: END IF;
1303:

Line 1300: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

1296:
1297: l_progress :='145';
1298: l_module := G_MODULE_PREFIX||l_api_name||'.'||'145'||'.';
1299: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1300: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1301: 'Before: Update MTL_SUPPLY');
1302: END IF;
1303:
1304: FORALL l_update_mtl_supply_index in 1.. new_req_line_id_rslt_tbl.COUNT

Line 1383: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1379: requisition_line_id_rslt_tbl(l_delete_mtl_supply_index);
1380:
1381: l_progress :='146';
1382: l_module := G_MODULE_PREFIX||l_api_name||'.'||'146'||'.';
1383: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1384: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1385: 'After: Update MTL_SUPPLY;Updated'
1386: ||sql%rowcount||' requisition lines ');
1387: END IF;

Line 1384: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

1380:
1381: l_progress :='146';
1382: l_module := G_MODULE_PREFIX||l_api_name||'.'||'146'||'.';
1383: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1384: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1385: 'After: Update MTL_SUPPLY;Updated'
1386: ||sql%rowcount||' requisition lines ');
1387: END IF;
1388:

Line 1396: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1392: po_message_s.sql_error
1393: ('Exception of Split_requisitionLines()', l_progress ,
1394: sqlcode);
1395: FND_MSG_PUB.Add;
1396: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1397: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1398: 'Exception: Update MTL_SUPPLY');
1399: END IF;
1400: RAISE;

Line 1397: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

1393: ('Exception of Split_requisitionLines()', l_progress ,
1394: sqlcode);
1395: FND_MSG_PUB.Add;
1396: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1397: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1398: 'Exception: Update MTL_SUPPLY');
1399: END IF;
1400: RAISE;
1401:

Line 1408: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1404:
1405:
1406: l_progress :='150';
1407: l_module := G_MODULE_PREFIX||l_api_name||'.'||'150'||'.';
1408: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1409: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1410: 'Before: Copy all the attachments');
1411: END IF;
1412:

Line 1409: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

1405:
1406: l_progress :='150';
1407: l_module := G_MODULE_PREFIX||l_api_name||'.'||'150'||'.';
1408: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1409: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1410: 'Before: Copy all the attachments');
1411: END IF;
1412:
1413:

Line 1416: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1412:
1413:
1414: FOR l_copy_attach_index in 1.. requisition_line_id_rslt_tbl.COUNT
1415: LOOP
1416: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1417: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1418: 'requisition_line_id_rslt_tbl='
1419: ||to_char(requisition_line_id_rslt_tbl(l_copy_attach_index))
1420: ||' to- new_req_line_id_rslt_tbl='

Line 1417: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

1413:
1414: FOR l_copy_attach_index in 1.. requisition_line_id_rslt_tbl.COUNT
1415: LOOP
1416: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1417: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1418: 'requisition_line_id_rslt_tbl='
1419: ||to_char(requisition_line_id_rslt_tbl(l_copy_attach_index))
1420: ||' to- new_req_line_id_rslt_tbl='
1421: ||to_char(new_req_line_id_rslt_tbl(l_copy_attach_index)));

Line 1450: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1446: END LOOP;
1447:
1448: l_progress :='159';
1449: l_module := G_MODULE_PREFIX||l_api_name||'.'||'159'||'.';
1450: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1451: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1452: 'After: Copy all the attachments');
1453: END IF;
1454:

Line 1451: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

1447:
1448: l_progress :='159';
1449: l_module := G_MODULE_PREFIX||l_api_name||'.'||'159'||'.';
1450: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1451: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1452: 'After: Copy all the attachments');
1453: END IF;
1454:
1455: -- Retrieve the current operating unit from the environment

Line 1473: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1469: BEGIN
1470:
1471: l_progress :='160';
1472: l_module := G_MODULE_PREFIX||l_api_name||'.'||'160'||'.';
1473: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1474: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1475: 'Before: Create distributions lines For all the ' ||
1476: 'newly created requisition lines');
1477: END IF;

Line 1474: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

1470:
1471: l_progress :='160';
1472: l_module := G_MODULE_PREFIX||l_api_name||'.'||'160'||'.';
1473: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1474: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1475: 'Before: Create distributions lines For all the ' ||
1476: 'newly created requisition lines');
1477: END IF;
1478: --

Line 1641: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1637: FROM po_req_distributions_all --
1638: WHERE requisition_line_id=
1639: requisition_line_id_rslt_tbl(l_create_dist_index);
1640:
1641: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1642: PO_DEBUG.debug_stmt(l_log_head,l_progress,
1643: 'Created '||sql%rowcount||' distributions lines, requisition_line_id= '|| new_req_line_id_rslt_tbl(l_create_dist_index) );
1644: END IF;
1645: -- bug 5249299 start: Need to call GMS api to maintain the adls data since these are

Line 1660: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1656: l_expenditure_item_date := l_req_dist_proj_rec.expenditure_item_date;
1657:
1658: l_progress :='159';
1659: l_module := G_MODULE_PREFIX||l_api_name||'.'||'159'||'.';
1660: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1661: PO_DEBUG.debug_stmt(l_log_head,l_progress,
1662: 'calling GMS_POR_API.when_insert_line :'||
1663: 'l_distribution_id '||l_distribution_id||
1664: 'l_project_id '||l_project_id||

Line 1679: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1675: X_award_set_id => l_award_id,
1676: X_award_number => NULL,
1677: X_req_distribution_id => NULL);
1678:
1679: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1680: PO_DEBUG.debug_stmt(l_log_head,l_progress,
1681: 'After calling GMS_POR_API.get_award_id :'||
1682: 'l_award_id'||l_award_id);
1683: END IF;

Line 1697: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1693: X_status => l_status) ;
1694:
1695:
1696: l_progress :='160';
1697: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1698: PO_DEBUG.debug_stmt(l_log_head,l_progress,
1699: 'After when insert line : Out values '||
1700: 'l_award_set_id '||l_award_set_id ||
1701: 'l_status '||l_status );

Line 1714: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1710: END LOOP; --
1711:
1712: l_progress :='161';
1713: l_module := G_MODULE_PREFIX||l_api_name||'.'||'161'||'.';
1714: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1715: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1716: 'After: Create distributions lines for all the
1717: newly created requisition lines; Created '
1718: ||sql%rowcount||' distributions lines ' );

Line 1715: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

1711:
1712: l_progress :='161';
1713: l_module := G_MODULE_PREFIX||l_api_name||'.'||'161'||'.';
1714: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1715: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1716: 'After: Create distributions lines for all the
1717: newly created requisition lines; Created '
1718: ||sql%rowcount||' distributions lines ' );
1719: END IF;

Line 1727: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1723: po_message_s.sql_error
1724: ('Exception of Split_requisitionLines()', l_progress ,
1725: sqlcode);
1726: FND_MSG_PUB.Add;
1727: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1728: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1729: 'Excption: Create distributions lines for all the
1730: newly created requisition lines');
1731: END IF;

Line 1728: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

1724: ('Exception of Split_requisitionLines()', l_progress ,
1725: sqlcode);
1726: FND_MSG_PUB.Add;
1727: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1728: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1729: 'Excption: Create distributions lines for all the
1730: newly created requisition lines');
1731: END IF;
1732:

Line 1775: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1771: BEGIN
1772:
1773: l_progress :='170';
1774: l_module := G_MODULE_PREFIX||l_api_name||'.'||'170'||'.';
1775: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1776: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1777: 'Before: Collect the info to take care of rounding ');
1778: END IF;
1779:

Line 1776: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

1772:
1773: l_progress :='170';
1774: l_module := G_MODULE_PREFIX||l_api_name||'.'||'170'||'.';
1775: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1776: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1777: 'Before: Collect the info to take care of rounding ');
1778: END IF;
1779:
1780: --sql what: Select min distribution id, sum of req line quantity

Line 1801: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1797: GROUP BY prd.requisition_line_id;
1798:
1799: l_progress :='171';
1800: l_module := G_MODULE_PREFIX||l_api_name||'.'||'171'||'.';
1801: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1802: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1803: 'After: Collect the info to take care of rounding ');
1804: END IF;
1805:

Line 1802: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

1798:
1799: l_progress :='171';
1800: l_module := G_MODULE_PREFIX||l_api_name||'.'||'171'||'.';
1801: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1802: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1803: 'After: Collect the info to take care of rounding ');
1804: END IF;
1805:
1806: EXCEPTION

Line 1813: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1809: po_message_s.sql_error
1810: ('Exception of Split_requisitionLines()', l_progress ,
1811: sqlcode);
1812: FND_MSG_PUB.Add;
1813: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1814: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1815: 'Exception: Collect the info to take care of rounding ');
1816: END IF;
1817: RAISE;

Line 1814: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

1810: ('Exception of Split_requisitionLines()', l_progress ,
1811: sqlcode);
1812: FND_MSG_PUB.Add;
1813: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1814: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1815: 'Exception: Collect the info to take care of rounding ');
1816: END IF;
1817: RAISE;
1818:

Line 1825: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1821: BEGIN
1822:
1823: l_progress :='180';
1824: l_module := G_MODULE_PREFIX||l_api_name||'.'||'180'||'.';
1825: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1826: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1827: 'Before: update to take care of rounding ');
1828: END IF;
1829:

Line 1826: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

1822:
1823: l_progress :='180';
1824: l_module := G_MODULE_PREFIX||l_api_name||'.'||'180'||'.';
1825: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1826: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1827: 'Before: update to take care of rounding ');
1828: END IF;
1829:
1830: --sql what: Update one of the distributions(which has min dist_id)

Line 1844: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1840: min_dist_id_round_tbl(l_qty_rounding_index);
1841:
1842: l_progress :='181';
1843: l_module := G_MODULE_PREFIX||l_api_name||'.'||'181'||'.';
1844: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1845: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1846: 'After: update to take care of rounding; Updated '
1847: ||sql%rowcount||' rows');
1848: END IF;

Line 1845: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

1841:
1842: l_progress :='181';
1843: l_module := G_MODULE_PREFIX||l_api_name||'.'||'181'||'.';
1844: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1845: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1846: 'After: update to take care of rounding; Updated '
1847: ||sql%rowcount||' rows');
1848: END IF;
1849:

Line 1856: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1852: po_message_s.sql_error
1853: ('Exception of Split_requisitionLines()', l_progress ,
1854: sqlcode);
1855: FND_MSG_PUB.Add;
1856: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1857: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1858: 'Exception: update to take care of rounding ');
1859: END IF;
1860: RAISE;

Line 1857: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

1853: ('Exception of Split_requisitionLines()', l_progress ,
1854: sqlcode);
1855: FND_MSG_PUB.Add;
1856: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1857: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1858: 'Exception: update to take care of rounding ');
1859: END IF;
1860: RAISE;
1861: END;

Line 1866: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1862:
1863: -- JFMIP, support for Req Modify when encumbrance is enabled START
1864: l_progress :='195';
1865: l_module := G_MODULE_PREFIX||l_api_name||'.'||'195'||'.';
1866: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1867: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1868: 'Before: Calling HANDLE_TAX_ADJUSTMENTS; Status is '||
1869: l_return_status);
1870: END IF;

Line 1867: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

1863: -- JFMIP, support for Req Modify when encumbrance is enabled START
1864: l_progress :='195';
1865: l_module := G_MODULE_PREFIX||l_api_name||'.'||'195'||'.';
1866: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1867: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1868: 'Before: Calling HANDLE_TAX_ADJUSTMENTS; Status is '||
1869: l_return_status);
1870: END IF;
1871:

Line 1882: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1878: );
1879:
1880: l_progress :='196';
1881: l_module := G_MODULE_PREFIX||l_api_name||'.'||'196'||'.';
1882: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1883: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1884: 'After: Calling HANDLE_TAX_ADJUSTMENTS; Status is
1885: '||l_return_status);
1886: END IF;

Line 1883: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

1879:
1880: l_progress :='196';
1881: l_module := G_MODULE_PREFIX||l_api_name||'.'||'196'||'.';
1882: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1883: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1884: 'After: Calling HANDLE_TAX_ADJUSTMENTS; Status is
1885: '||l_return_status);
1886: END IF;
1887:

Line 1904: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT)

1900:
1901: --Determine whether encumbrance is enabled
1902: l_progress :='190';
1903: l_module := G_MODULE_PREFIX||l_api_name||'.'||'190'||'.';
1904: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT)
1905: THEN
1906: FND_LOG.string(
1907: FND_LOG.LEVEL_STATEMENT,
1908: l_module,

Line 1906: FND_LOG.string(

1902: l_progress :='190';
1903: l_module := G_MODULE_PREFIX||l_api_name||'.'||'190'||'.';
1904: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT)
1905: THEN
1906: FND_LOG.string(
1907: FND_LOG.LEVEL_STATEMENT,
1908: l_module,
1909: 'Before: select req_encumbrance_flag '
1910: );

Line 1907: FND_LOG.LEVEL_STATEMENT,

1903: l_module := G_MODULE_PREFIX||l_api_name||'.'||'190'||'.';
1904: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT)
1905: THEN
1906: FND_LOG.string(
1907: FND_LOG.LEVEL_STATEMENT,
1908: l_module,
1909: 'Before: select req_encumbrance_flag '
1910: );
1911: END IF;

Line 1929: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT)

1925: END LOOP;
1926:
1927: l_progress :='191';
1928: l_module := G_MODULE_PREFIX||l_api_name||'.'||'191'||'.';
1929: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT)
1930: THEN
1931: FND_LOG.string(
1932: FND_LOG.LEVEL_STATEMENT,
1933: l_module,

Line 1931: FND_LOG.string(

1927: l_progress :='191';
1928: l_module := G_MODULE_PREFIX||l_api_name||'.'||'191'||'.';
1929: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT)
1930: THEN
1931: FND_LOG.string(
1932: FND_LOG.LEVEL_STATEMENT,
1933: l_module,
1934: 'After: select req_encumbrance_flag '
1935: );

Line 1932: FND_LOG.LEVEL_STATEMENT,

1928: l_module := G_MODULE_PREFIX||l_api_name||'.'||'191'||'.';
1929: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT)
1930: THEN
1931: FND_LOG.string(
1932: FND_LOG.LEVEL_STATEMENT,
1933: l_module,
1934: 'After: select req_encumbrance_flag '
1935: );
1936: END IF;

Line 1942: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1938:
1939: --Select all the distribution lines which are to be reserved and
1940: --unreserved into a plsql table
1941: IF l_req_encumbrance_flag = 'Y' THEN
1942: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1943: --
1944: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1945: 'Before: Calling handle_funds_reversal');
1946: END IF;

Line 1944: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

1940: --unreserved into a plsql table
1941: IF l_req_encumbrance_flag = 'Y' THEN
1942: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1943: --
1944: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1945: 'Before: Calling handle_funds_reversal');
1946: END IF;
1947:
1948: handle_funds_reversal

Line 1959: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1955: );
1956:
1957: l_progress :='211';
1958: l_module := G_MODULE_PREFIX||l_api_name||'.'||'211'||'.';
1959: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1960: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1961: 'After: Calling encumbrance api; Status is '||l_return_status);
1962: END IF;
1963: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

Line 1960: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

1956:
1957: l_progress :='211';
1958: l_module := G_MODULE_PREFIX||l_api_name||'.'||'211'||'.';
1959: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1960: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1961: 'After: Calling encumbrance api; Status is '||l_return_status);
1962: END IF;
1963: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1964: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

Line 1963: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1959: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1960: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1961: 'After: Calling encumbrance api; Status is '||l_return_status);
1962: END IF;
1963: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1964: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1965: 'After: Calling handle_funds_reversal; Status is
1966: '||l_return_status);
1967: END IF;

Line 1964: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

1960: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1961: 'After: Calling encumbrance api; Status is '||l_return_status);
1962: END IF;
1963: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1964: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1965: 'After: Calling handle_funds_reversal; Status is
1966: '||l_return_status);
1967: END IF;
1968:

Line 1994: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1990: );
1991:
1992: l_progress :='230';
1993: l_module := G_MODULE_PREFIX||l_api_name||'.'||'230'||'.';
1994: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1995: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1996: 'Before: Setting success status to x_return_status');
1997: END IF;
1998: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 1995: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

1991:
1992: l_progress :='230';
1993: l_module := G_MODULE_PREFIX||l_api_name||'.'||'230'||'.';
1994: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1995: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1996: 'Before: Setting success status to x_return_status');
1997: END IF;
1998: x_return_status := FND_API.G_RET_STS_SUCCESS;
1999:

Line 2005: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN

2001: WHEN FND_API.g_exc_unexpected_error THEN
2002: ROLLBACK TO Split_RequisitionLines_PVT;
2003: x_msg_data := FND_MSG_PUB.GET();
2004: x_return_status := FND_API.g_ret_sts_unexp_error;
2005: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2006: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
2007: 'Exception: UnexpectedError '||x_msg_data||sqlerrm);
2008: END IF;
2009:

Line 2006: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,

2002: ROLLBACK TO Split_RequisitionLines_PVT;
2003: x_msg_data := FND_MSG_PUB.GET();
2004: x_return_status := FND_API.g_ret_sts_unexp_error;
2005: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2006: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
2007: 'Exception: UnexpectedError '||x_msg_data||sqlerrm);
2008: END IF;
2009:
2010: WHEN FND_API.g_exc_error THEN

Line 2017: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN

2013: FND_MSG_PUB.Count_And_Get
2014: ( p_count => x_msg_count ,
2015: p_data => x_msg_data
2016: );
2017: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2018: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
2019: 'Exception: ExpectedError '||x_msg_data||sqlerrm);
2020: END IF;
2021:

Line 2018: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,

2014: ( p_count => x_msg_count ,
2015: p_data => x_msg_data
2016: );
2017: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2018: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
2019: 'Exception: ExpectedError '||x_msg_data||sqlerrm);
2020: END IF;
2021:
2022: WHEN OTHERS THEN

Line 2523: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN

2519: l_progress :='000';
2520: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2521: l_orig_org_id := PO_MOAC_UTILS_PVT.GET_CURRENT_ORG_ID;
2522: IF G_FND_DEBUG = 'Y' THEN
2523: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2524: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2525: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
2526: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2527: ' current org = ' ||l_orig_org_id);

Line 2524: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,

2520: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2521: l_orig_org_id := PO_MOAC_UTILS_PVT.GET_CURRENT_ORG_ID;
2522: IF G_FND_DEBUG = 'Y' THEN
2523: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2524: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2525: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
2526: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2527: ' current org = ' ||l_orig_org_id);
2528: END IF;

Line 2526: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,

2522: IF G_FND_DEBUG = 'Y' THEN
2523: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2524: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2525: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
2526: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2527: ' current org = ' ||l_orig_org_id);
2528: END IF;
2529: END IF;
2530:

Line 2536: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2532:
2533: l_progress :='010';
2534: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2535: IF G_FND_DEBUG = 'Y' THEN
2536: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2537: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2538: 'Compatible_API_Call ');
2539: END IF;
2540: END IF;

Line 2537: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

2533: l_progress :='010';
2534: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2535: IF G_FND_DEBUG = 'Y' THEN
2536: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2537: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2538: 'Compatible_API_Call ');
2539: END IF;
2540: END IF;
2541:

Line 2556: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL=FND_LOG.LEVEL_STATEMENT THEN

2552:
2553: --do the dump of input values if the log level is statement.
2554: l_progress :='015';
2555: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2556: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL=FND_LOG.LEVEL_STATEMENT THEN
2557: Print_Global_Table(l_module);
2558: END IF;
2559:
2560: l_progress :='020';

Line 2579: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN

2575: (SELECT DISTINCT requisition_header_id
2576: FROM po_req_split_lines_gt);
2577:
2578: IF G_FND_DEBUG = 'Y' THEN
2579: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2580: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2581: 'Number of distinct orgs to be considered = '||l_req_org_id.count);
2582: END IF;
2583: END IF;

Line 2580: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,

2576: FROM po_req_split_lines_gt);
2577:
2578: IF G_FND_DEBUG = 'Y' THEN
2579: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2580: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2581: 'Number of distinct orgs to be considered = '||l_req_org_id.count);
2582: END IF;
2583: END IF;
2584: for l_index IN 1..l_req_org_id.count

Line 2592: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN

2588: PO_MOAC_UTILS_PVT.set_org_context(l_req_org_id(l_index)) ;
2589: l_org_context_changed := 'Y';
2590: END IF;
2591: IF G_FND_DEBUG = 'Y' THEN
2592: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2593: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2594: 'Current org id = '||l_req_org_id(l_index));
2595: END IF;
2596: END IF;

Line 2593: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,

2589: l_org_context_changed := 'Y';
2590: END IF;
2591: IF G_FND_DEBUG = 'Y' THEN
2592: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2593: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2594: 'Current org id = '||l_req_org_id(l_index));
2595: END IF;
2596: END IF;
2597: BEGIN

Line 2604: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2600:
2601: l_progress :='030';
2602: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2603: IF G_FND_DEBUG = 'Y' THEN
2604: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2605: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2606: 'Before: select BEFORE req distributions for encumb. adjustmnets');
2607: END IF;
2608: END IF;

Line 2605: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

2601: l_progress :='030';
2602: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2603: IF G_FND_DEBUG = 'Y' THEN
2604: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2605: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2606: 'Before: select BEFORE req distributions for encumb. adjustmnets');
2607: END IF;
2608: END IF;
2609:

Line 2630: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2626: l_progress :='040';
2627: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2628:
2629: IF G_FND_DEBUG = 'Y' THEN
2630: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2631: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2632: 'l_before_dist_ids_tbl, count= '||l_before_dist_ids_tbl.count);
2633: END IF;
2634: FOR l_log_index IN 1.. l_before_dist_ids_tbl.COUNT

Line 2631: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

2627: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2628:
2629: IF G_FND_DEBUG = 'Y' THEN
2630: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2631: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2632: 'l_before_dist_ids_tbl, count= '||l_before_dist_ids_tbl.count);
2633: END IF;
2634: FOR l_log_index IN 1.. l_before_dist_ids_tbl.COUNT
2635: LOOP

Line 2637: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2633: END IF;
2634: FOR l_log_index IN 1.. l_before_dist_ids_tbl.COUNT
2635: LOOP
2636: -- Bug 4618614: Workaround GSCC error for checking logging statement.
2637: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2638: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2639: 'l_before_dist_ids_tbl('||to_char(l_log_index)||')='
2640: ||l_before_dist_ids_tbl(l_log_index));
2641: END IF;

Line 2638: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

2634: FOR l_log_index IN 1.. l_before_dist_ids_tbl.COUNT
2635: LOOP
2636: -- Bug 4618614: Workaround GSCC error for checking logging statement.
2637: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2638: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2639: 'l_before_dist_ids_tbl('||to_char(l_log_index)||')='
2640: ||l_before_dist_ids_tbl(l_log_index));
2641: END IF;
2642: END LOOP;

Line 2648: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2644:
2645: l_progress :='050';
2646: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2647: IF G_FND_DEBUG = 'Y' THEN
2648: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2649: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2650: 'Before: select AFTER req distributions for encumb. adjustmnets');
2651: END IF;
2652: END IF;

Line 2649: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

2645: l_progress :='050';
2646: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2647: IF G_FND_DEBUG = 'Y' THEN
2648: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2649: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2650: 'Before: select AFTER req distributions for encumb. adjustmnets');
2651: END IF;
2652: END IF;
2653:

Line 2667: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2663:
2664: l_progress :='060';
2665: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2666: IF G_FND_DEBUG = 'Y' THEN
2667: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2668: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2669: 'l_after_dist_ids_tbl, count= '||l_after_dist_ids_tbl.count);
2670: END IF;
2671: FOR l_log_index IN 1.. l_after_dist_ids_tbl.COUNT

Line 2668: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

2664: l_progress :='060';
2665: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2666: IF G_FND_DEBUG = 'Y' THEN
2667: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2668: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2669: 'l_after_dist_ids_tbl, count= '||l_after_dist_ids_tbl.count);
2670: END IF;
2671: FOR l_log_index IN 1.. l_after_dist_ids_tbl.COUNT
2672: LOOP

Line 2674: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2670: END IF;
2671: FOR l_log_index IN 1.. l_after_dist_ids_tbl.COUNT
2672: LOOP
2673: -- Bug 4618614: Workaround GSCC error for checking logging statement.
2674: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2675: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2676: 'l_after_dist_ids_tbl('||to_char(l_log_index)||')='
2677: ||l_after_dist_ids_tbl(l_log_index));
2678: END IF;

Line 2675: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

2671: FOR l_log_index IN 1.. l_after_dist_ids_tbl.COUNT
2672: LOOP
2673: -- Bug 4618614: Workaround GSCC error for checking logging statement.
2674: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2675: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2676: 'l_after_dist_ids_tbl('||to_char(l_log_index)||')='
2677: ||l_after_dist_ids_tbl(l_log_index));
2678: END IF;
2679: END LOOP;

Line 2689: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN

2685: ('Exception of HANDLE_FUNDS_REVERSAL()', l_progress ,
2686: sqlcode);
2687: FND_MSG_PUB.Add;
2688: IF G_FND_DEBUG = 'Y' THEN
2689: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2690: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
2691: 'Exception: select req distributions for encumb. adjustmnets');
2692: END IF;
2693: END IF;

Line 2690: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,

2686: sqlcode);
2687: FND_MSG_PUB.Add;
2688: IF G_FND_DEBUG = 'Y' THEN
2689: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2690: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
2691: 'Exception: select req distributions for encumb. adjustmnets');
2692: END IF;
2693: END IF;
2694: RAISE;

Line 2701: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2697: --call the encumbrance api
2698: l_progress :='070';
2699: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2700: IF G_FND_DEBUG = 'Y' THEN
2701: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2702: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2703: 'Before: Calling encumbrance api');
2704: END IF;
2705: END IF;

Line 2702: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

2698: l_progress :='070';
2699: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2700: IF G_FND_DEBUG = 'Y' THEN
2701: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2702: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2703: 'Before: Calling encumbrance api');
2704: END IF;
2705: END IF;
2706:

Line 2722: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2718: l_progress :='080';
2719: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2720:
2721: IF G_FND_DEBUG = 'Y' THEN
2722: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2723: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2724: 'After: Calling encumbrance api; Status is '||x_return_status);
2725: END IF;
2726: END IF;

Line 2723: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

2719: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2720:
2721: IF G_FND_DEBUG = 'Y' THEN
2722: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2723: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2724: 'After: Calling encumbrance api; Status is '||x_return_status);
2725: END IF;
2726: END IF;
2727:

Line 2732: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN

2728: IF (x_return_status = FND_API.g_ret_sts_error) OR
2729: (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2730:
2731: IF G_FND_DEBUG = 'Y' THEN
2732: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2733: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
2734: 'online_report_id = '||to_char(x_online_report_id)
2735: ||', po_return_code = '||l_po_return_code);
2736: END IF;

Line 2733: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,

2729: (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2730:
2731: IF G_FND_DEBUG = 'Y' THEN
2732: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2733: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
2734: 'online_report_id = '||to_char(x_online_report_id)
2735: ||', po_return_code = '||l_po_return_code);
2736: END IF;
2737: END IF;

Line 2774: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2770:
2771: l_progress :='200';
2772: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2773: IF G_FND_DEBUG = 'Y' THEN
2774: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2775: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2776: 'Before: Setting success status to x_return_status');
2777: END IF;
2778: END IF;

Line 2775: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

2771: l_progress :='200';
2772: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2773: IF G_FND_DEBUG = 'Y' THEN
2774: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2775: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2776: 'Before: Setting success status to x_return_status');
2777: END IF;
2778: END IF;
2779: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 2787: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN

2783: ROLLBACK TO HANDLE_FUNDS_REVERSAL_PVT;
2784: x_msg_data := FND_MSG_PUB.GET();
2785: x_return_status := FND_API.g_ret_sts_unexp_error;
2786: IF G_FND_DEBUG = 'Y' THEN
2787: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2788: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
2789: 'Exception: UnexpectedError '||x_msg_data||sqlerrm);
2790: END IF;
2791: END IF;

Line 2788: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,

2784: x_msg_data := FND_MSG_PUB.GET();
2785: x_return_status := FND_API.g_ret_sts_unexp_error;
2786: IF G_FND_DEBUG = 'Y' THEN
2787: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2788: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
2789: 'Exception: UnexpectedError '||x_msg_data||sqlerrm);
2790: END IF;
2791: END IF;
2792: WHEN FND_API.g_exc_error THEN

Line 2800: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN

2796: ( p_count => x_msg_count ,
2797: p_data => x_msg_data
2798: );
2799: IF G_FND_DEBUG = 'Y' THEN
2800: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2801: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
2802: 'Exception: ExpectedError '||x_msg_data||sqlerrm);
2803: END IF;
2804: END IF;

Line 2801: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,

2797: p_data => x_msg_data
2798: );
2799: IF G_FND_DEBUG = 'Y' THEN
2800: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2801: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
2802: 'Exception: ExpectedError '||x_msg_data||sqlerrm);
2803: END IF;
2804: END IF;
2805:

Line 2816: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN

2812: ( p_count => x_msg_count ,
2813: p_data => x_msg_data
2814: );
2815: IF G_FND_DEBUG = 'Y' THEN
2816: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2817: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
2818: 'Exception: UnExpectedError '||x_msg_data||sqlerrm);
2819: END IF;
2820: END IF;

Line 2817: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,

2813: p_data => x_msg_data
2814: );
2815: IF G_FND_DEBUG = 'Y' THEN
2816: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2817: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
2818: 'Exception: UnExpectedError '||x_msg_data||sqlerrm);
2819: END IF;
2820: END IF;
2821:

Line 2869: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN

2865:
2866: l_progress :='000';
2867: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2868: IF G_FND_DEBUG = 'Y' THEN
2869: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2870: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2871: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
2872: END IF;
2873: END IF;

Line 2870: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,

2866: l_progress :='000';
2867: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2868: IF G_FND_DEBUG = 'Y' THEN
2869: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2870: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2871: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
2872: END IF;
2873: END IF;
2874:

Line 2880: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2876:
2877: l_progress :='010';
2878: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2879: IF G_FND_DEBUG = 'Y' THEN
2880: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2881: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2882: 'Compatible_API_Call ');
2883: END IF;
2884: END IF;

Line 2881: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

2877: l_progress :='010';
2878: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2879: IF G_FND_DEBUG = 'Y' THEN
2880: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2881: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2882: 'Compatible_API_Call ');
2883: END IF;
2884: END IF;
2885:

Line 2900: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL=FND_LOG.LEVEL_STATEMENT THEN

2896:
2897: --do the dump of input values if the log level is statement.
2898: l_progress :='015';
2899: l_module := G_MODULE_PREFIX||l_api_name||'.'||'015'||'.';
2900: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL=FND_LOG.LEVEL_STATEMENT THEN
2901: Print_Global_Table(l_module);
2902: END IF;
2903:
2904: l_progress :='020';

Line 2911: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2907:
2908: l_progress :='030';
2909: l_module := G_MODULE_PREFIX||l_api_name||'.'||'030'||'.';
2910: IF G_FND_DEBUG = 'Y' THEN
2911: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2912: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2913: 'Before: Collect the info to take care of TAX rounding ');
2914: END IF;
2915: END IF;

Line 2912: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

2908: l_progress :='030';
2909: l_module := G_MODULE_PREFIX||l_api_name||'.'||'030'||'.';
2910: IF G_FND_DEBUG = 'Y' THEN
2911: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2912: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2913: 'Before: Collect the info to take care of TAX rounding ');
2914: END IF;
2915: END IF;
2916:

Line 2935: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2931:
2932: IF G_FND_DEBUG = 'Y' THEN
2933: FOR i in 1..sum_new_line_r_tax_tbl.COUNT LOOP
2934: -- Bug 4618614: Workaround GSCC error for checking logging statement.
2935: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2936:
2937: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2938: 'sum_new_line_r_tax_tbl('||i||'): '||sum_new_line_r_tax_tbl(i)||','||
2939: 'sum_new_line_nr_tax_tbl('||i||'): '||sum_new_line_nr_tax_tbl(i)||','||

Line 2937: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

2933: FOR i in 1..sum_new_line_r_tax_tbl.COUNT LOOP
2934: -- Bug 4618614: Workaround GSCC error for checking logging statement.
2935: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2936:
2937: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2938: 'sum_new_line_r_tax_tbl('||i||'): '||sum_new_line_r_tax_tbl(i)||','||
2939: 'sum_new_line_nr_tax_tbl('||i||'): '||sum_new_line_nr_tax_tbl(i)||','||
2940: 'min_dist_id_tax_tbl('||i||'): '||min_dist_id_tax_tbl(i));
2941: END IF;

Line 2970: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2966:
2967: IF G_FND_DEBUG = 'Y' THEN
2968: FOR i in 1..req_line_id_tax_tbl.COUNT LOOP
2969: -- Bug 4618614: Workaround GSCC error for checking logging statement.
2970: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2971:
2972: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2973: 'req_line_id_tax_tbl('||i||'): '||req_line_id_tax_tbl(i)||','||
2974: 'sum_orig_line_r_tax_tbl('||i||'): '||sum_orig_line_r_tax_tbl(i)||','||

Line 2972: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

2968: FOR i in 1..req_line_id_tax_tbl.COUNT LOOP
2969: -- Bug 4618614: Workaround GSCC error for checking logging statement.
2970: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2971:
2972: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2973: 'req_line_id_tax_tbl('||i||'): '||req_line_id_tax_tbl(i)||','||
2974: 'sum_orig_line_r_tax_tbl('||i||'): '||sum_orig_line_r_tax_tbl(i)||','||
2975: 'sum_orig_line_nr_tax_tbl('||i||'): '||sum_orig_line_nr_tax_tbl(i));
2976: END IF;

Line 2981: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2977: END LOOP;
2978: END IF;
2979:
2980: IF G_FND_DEBUG = 'Y' THEN
2981: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2982: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2983: 'After: Collect the info to take care of TAX rounding ');
2984: END IF;
2985: END IF;

Line 2982: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

2978: END IF;
2979:
2980: IF G_FND_DEBUG = 'Y' THEN
2981: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2982: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2983: 'After: Collect the info to take care of TAX rounding ');
2984: END IF;
2985: END IF;
2986:

Line 2994: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2990: ('Exception of HANDLE_TAX_ADJUSTMENTS()', l_progress ,
2991: sqlcode);
2992: FND_MSG_PUB.Add;
2993: IF G_FND_DEBUG = 'Y' THEN
2994: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2995: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2996: 'Exception: Collect the info to take care of TAX rounding ');
2997: END IF;
2998: END IF;

Line 2995: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

2991: sqlcode);
2992: FND_MSG_PUB.Add;
2993: IF G_FND_DEBUG = 'Y' THEN
2994: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2995: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2996: 'Exception: Collect the info to take care of TAX rounding ');
2997: END IF;
2998: END IF;
2999: RAISE;

Line 3008: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3004:
3005: l_progress :='100';
3006: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3007: IF G_FND_DEBUG = 'Y' THEN
3008: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3009: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3010: 'Before: update to take care of TAX rounding ');
3011: END IF;
3012: END IF;

Line 3009: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

3005: l_progress :='100';
3006: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3007: IF G_FND_DEBUG = 'Y' THEN
3008: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3009: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3010: 'Before: update to take care of TAX rounding ');
3011: END IF;
3012: END IF;
3013:

Line 3033: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3029:
3030: l_progress :='110';
3031: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3032: IF G_FND_DEBUG = 'Y' THEN
3033: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3034: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3035: 'After: update to take care of TAX rounding; Updated '
3036: ||sql%rowcount||' rows');
3037: END IF;

Line 3034: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

3030: l_progress :='110';
3031: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3032: IF G_FND_DEBUG = 'Y' THEN
3033: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3034: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3035: 'After: update to take care of TAX rounding; Updated '
3036: ||sql%rowcount||' rows');
3037: END IF;
3038: END IF;

Line 3047: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN

3043: ('Exception of HANDLE_TAX_ADJUSTMENTS()', l_progress ,
3044: sqlcode);
3045: FND_MSG_PUB.Add;
3046: IF G_FND_DEBUG = 'Y' THEN
3047: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
3048: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
3049: 'Exception: update to take care of TAX rounding ');
3050: END IF;
3051: END IF;

Line 3048: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,

3044: sqlcode);
3045: FND_MSG_PUB.Add;
3046: IF G_FND_DEBUG = 'Y' THEN
3047: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
3048: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
3049: 'Exception: update to take care of TAX rounding ');
3050: END IF;
3051: END IF;
3052: RAISE;

Line 3056: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3052: RAISE;
3053: END;
3054:
3055: IF G_FND_DEBUG = 'Y' THEN
3056: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3057: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3058: 'Before Commit');
3059: END IF;
3060: END IF;

Line 3057: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

3053: END;
3054:
3055: IF G_FND_DEBUG = 'Y' THEN
3056: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3057: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3058: 'Before Commit');
3059: END IF;
3060: END IF;
3061:

Line 3067: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3063: COMMIT WORK;
3064: END IF;
3065:
3066: IF G_FND_DEBUG = 'Y' THEN
3067: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3068: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3069: 'After Commit');
3070: END IF;
3071: END IF;

Line 3068: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

3064: END IF;
3065:
3066: IF G_FND_DEBUG = 'Y' THEN
3067: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3068: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3069: 'After Commit');
3070: END IF;
3071: END IF;
3072:

Line 3083: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3079:
3080: l_progress :='200';
3081: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3082: IF G_FND_DEBUG = 'Y' THEN
3083: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3084: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3085: 'Before: Setting success status to x_return_status');
3086: END IF;
3087: END IF;

Line 3084: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

3080: l_progress :='200';
3081: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3082: IF G_FND_DEBUG = 'Y' THEN
3083: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3084: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3085: 'Before: Setting success status to x_return_status');
3086: END IF;
3087: END IF;
3088: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 3097: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN

3093: ROLLBACK TO HANDLE_TAX_ADJUSTMENTS_PVT;
3094: x_msg_data := FND_MSG_PUB.GET();
3095: x_return_status := FND_API.g_ret_sts_unexp_error;
3096: IF G_FND_DEBUG = 'Y' THEN
3097: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
3098: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
3099: 'Exception: UnexpectedError '||x_msg_data||sqlerrm);
3100: END IF;
3101: END IF;

Line 3098: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,

3094: x_msg_data := FND_MSG_PUB.GET();
3095: x_return_status := FND_API.g_ret_sts_unexp_error;
3096: IF G_FND_DEBUG = 'Y' THEN
3097: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
3098: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
3099: 'Exception: UnexpectedError '||x_msg_data||sqlerrm);
3100: END IF;
3101: END IF;
3102:

Line 3111: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN

3107: ( p_count => x_msg_count ,
3108: p_data => x_msg_data
3109: );
3110: IF G_FND_DEBUG = 'Y' THEN
3111: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
3112: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
3113: 'Exception: ExpectedError '||x_msg_data||sqlerrm);
3114: END IF;
3115: END IF;

Line 3112: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,

3108: p_data => x_msg_data
3109: );
3110: IF G_FND_DEBUG = 'Y' THEN
3111: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
3112: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
3113: 'Exception: ExpectedError '||x_msg_data||sqlerrm);
3114: END IF;
3115: END IF;
3116:

Line 3127: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN

3123: ( p_count => x_msg_count ,
3124: p_data => x_msg_data
3125: );
3126: IF G_FND_DEBUG = 'Y' THEN
3127: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
3128: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
3129: 'Exception: UnExpectedError '||x_msg_data||sqlerrm);
3130: END IF;
3131: END IF;

Line 3128: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,

3124: p_data => x_msg_data
3125: );
3126: IF G_FND_DEBUG = 'Y' THEN
3127: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
3128: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
3129: 'Exception: UnExpectedError '||x_msg_data||sqlerrm);
3130: END IF;
3131: END IF;
3132: