[Home] [Help]
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))||','
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))||','
253: BEGIN
254:
255: l_progress :='000';
256: l_module := G_MODULE_PREFIX||l_api_name||'.'||'000'||'.';
257: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
258: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Entering');
259: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
260: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
261: END IF;
255: l_progress :='000';
256: l_module := G_MODULE_PREFIX||l_api_name||'.'||'000'||'.';
257: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
258: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Entering');
259: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
260: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
261: END IF;
262:
263: SAVEPOINT Split_RequisitionLines_PVT;
263: SAVEPOINT Split_RequisitionLines_PVT;
264:
265: l_progress :='010';
266: l_module := G_MODULE_PREFIX||l_api_name||'.'||'010'||'.';
267: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
268: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
269: 'Compatible_API_Call ');
270: END IF;
271:
264:
265: l_progress :='010';
266: l_module := G_MODULE_PREFIX||l_api_name||'.'||'010'||'.';
267: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
268: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
269: 'Compatible_API_Call ');
270: END IF;
271:
272: IF NOT FND_API.Compatible_API_Call
282:
283:
284: l_progress :='020';
285: l_module := G_MODULE_PREFIX||l_api_name||'.'||'020'||'.';
286: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
287: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
288: 'OPEN LockReqLines_Cursor ');
289: END IF;
290: -- Lock the requisition lines the api is going to process
283:
284: l_progress :='020';
285: l_module := G_MODULE_PREFIX||l_api_name||'.'||'020'||'.';
286: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
287: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
288: 'OPEN LockReqLines_Cursor ');
289: END IF;
290: -- Lock the requisition lines the api is going to process
291: OPEN LockReqLines_Cursor;
301: BEGIN
302:
303: l_progress :='030';
304: l_module := G_MODULE_PREFIX||l_api_name||'.'||'030'||'.';
305: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
306: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
307: 'before update po_req_split_lines_gt for quantity and
308: status ');
309: END IF;
302:
303: l_progress :='030';
304: l_module := G_MODULE_PREFIX||l_api_name||'.'||'030'||'.';
305: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
306: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
307: 'before update po_req_split_lines_gt for quantity and
308: status ');
309: END IF;
310:
324: );
325:
326: l_progress :='031';
327: l_module := G_MODULE_PREFIX||l_api_name||'.'||'031'||'.';
328: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
329: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
330: 'after update po_req_split_lines_gt for quantity and
331: status; updated '||sql%rowcount||' rows');
332: END IF;
325:
326: l_progress :='031';
327: l_module := G_MODULE_PREFIX||l_api_name||'.'||'031'||'.';
328: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
329: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
330: 'after update po_req_split_lines_gt for quantity and
331: status; updated '||sql%rowcount||' rows');
332: END IF;
333:
337: WHEN OTHERS THEN
338: po_message_s.sql_error('Exception of Split_requisitionLines()',
339: l_progress , sqlcode);
340: FND_MSG_PUB.Add;
341: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
342: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
343: 'Exception: update po_req_split_lines_gt for
344: quantity and status ');
345: END IF;
338: po_message_s.sql_error('Exception of Split_requisitionLines()',
339: l_progress , sqlcode);
340: FND_MSG_PUB.Add;
341: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
342: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
343: 'Exception: update po_req_split_lines_gt for
344: quantity and status ');
345: END IF;
346: RAISE;
349:
350: --do the dump of input values if the log level is statement.
351: l_progress :='032';
352: l_module := G_MODULE_PREFIX||l_api_name||'.'||'032'||'.';
353: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL=FND_LOG.LEVEL_STATEMENT THEN
354: Print_Global_Table(l_module);
355: END IF;
356:
357: --
360: BEGIN
361:
362: l_progress :='035';
363: l_module := G_MODULE_PREFIX||l_api_name||'.'||'035'||'.';
364: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
365: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
366: 'before update po_req_split_lines_gt for withdrawn lines');
367: END IF;
368:
361:
362: l_progress :='035';
363: l_module := G_MODULE_PREFIX||l_api_name||'.'||'035'||'.';
364: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
365: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
366: 'before update po_req_split_lines_gt for withdrawn lines');
367: END IF;
368:
369: -- SQL What:update the withdrawn lines in the temp table as 'C'
377: );
378:
379: l_progress :='036';
380: l_module := G_MODULE_PREFIX||l_api_name||'.'||'036'||'.';
381: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
382: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
383: 'after update po_req_split_lines_gt for withdrawn lines;
384: updated '||sql%rowcount||' rows');
385: END IF;
378:
379: l_progress :='036';
380: l_module := G_MODULE_PREFIX||l_api_name||'.'||'036'||'.';
381: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
382: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
383: 'after update po_req_split_lines_gt for withdrawn lines;
384: updated '||sql%rowcount||' rows');
385: END IF;
386:
389: WHEN OTHERS THEN
390: po_message_s.sql_error('Exception of Split_requisitionLines()',
391: l_progress , sqlcode);
392: FND_MSG_PUB.Add;
393: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
394: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
395: 'Exception: update po_req_split_lines_gt for
396: withdrawn lines ');
397: END IF;
390: po_message_s.sql_error('Exception of Split_requisitionLines()',
391: l_progress , sqlcode);
392: FND_MSG_PUB.Add;
393: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
394: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
395: 'Exception: update po_req_split_lines_gt for
396: withdrawn lines ');
397: END IF;
398: RAISE;
408: BEGIN
409:
410: l_progress :='037';
411: l_module := G_MODULE_PREFIX||l_api_name||'.'||'037'||'.';
412: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
413: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
414: 'before update po_req_split_lines_gt for Services lines');
415: END IF;
416:
409:
410: l_progress :='037';
411: l_module := G_MODULE_PREFIX||l_api_name||'.'||'037'||'.';
412: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
413: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
414: 'before update po_req_split_lines_gt for Services lines');
415: END IF;
416:
417: -- SQL What: Update Services Lines in the Global Temp Table as 'T'.
432: WHERE nvl(PRS.record_status, 'NOVAL') <> 'C';
433:
434: l_progress :='038';
435: l_module := G_MODULE_PREFIX||l_api_name||'.'||'038'||'.';
436: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
437: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
438: 'after update po_req_split_lines_gt for Services lines;
439: updated '||sql%rowcount||' rows');
440: END IF;
433:
434: l_progress :='038';
435: l_module := G_MODULE_PREFIX||l_api_name||'.'||'038'||'.';
436: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
437: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
438: 'after update po_req_split_lines_gt for Services lines;
439: updated '||sql%rowcount||' rows');
440: END IF;
441:
443:
444: WHEN OTHERS THEN
445: po_message_s.sql_error('Exception of Split_requisitionLines()', l_progress , sqlcode);
446: FND_MSG_PUB.Add;
447: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
448: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module, 'Exception: update po_req_split_lines_gt for Services lines');
449: END IF;
450: RAISE;
451:
444: WHEN OTHERS THEN
445: po_message_s.sql_error('Exception of Split_requisitionLines()', l_progress , sqlcode);
446: FND_MSG_PUB.Add;
447: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
448: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module, 'Exception: update po_req_split_lines_gt for Services lines');
449: END IF;
450: RAISE;
451:
452: END;
460: BEGIN
461:
462: l_progress :='039';
463: l_module := G_MODULE_PREFIX||l_api_name||'.'||'039'||'.';
464: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
465: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
466: 'before update po_req_split_lines_gt for CLM lines');
467: END IF;
468:
461:
462: l_progress :='039';
463: l_module := G_MODULE_PREFIX||l_api_name||'.'||'039'||'.';
464: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
465: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
466: 'before update po_req_split_lines_gt for CLM lines');
467: END IF;
468:
469: -- SQL What: Update Services Lines in the Global Temp Table as 'T'.
486: AND Nvl(PRH1.FEDERAL_FLAG,'N') = 'Y');
487:
488: l_progress :='039';
489: l_module := G_MODULE_PREFIX||l_api_name||'.'||'039'||'.';
490: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
491: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
492: 'after update po_req_split_lines_gt for CLM lines;
493: updated '||sql%rowcount||' rows');
494: END IF;
487:
488: l_progress :='039';
489: l_module := G_MODULE_PREFIX||l_api_name||'.'||'039'||'.';
490: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
491: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
492: 'after update po_req_split_lines_gt for CLM lines;
493: updated '||sql%rowcount||' rows');
494: END IF;
495:
497:
498: WHEN OTHERS THEN
499: po_message_s.sql_error('Exception of Split_requisitionLines()', l_progress , sqlcode);
500: FND_MSG_PUB.Add;
501: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
502: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module, 'Exception: update po_req_split_lines_gt for CLM lines');
503: END IF;
504: RAISE;
505:
498: WHEN OTHERS THEN
499: po_message_s.sql_error('Exception of Split_requisitionLines()', l_progress , sqlcode);
500: FND_MSG_PUB.Add;
501: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
502: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module, 'Exception: update po_req_split_lines_gt for CLM lines');
503: END IF;
504: RAISE;
505:
506: END;
510: BEGIN
511:
512: l_progress :='040';
513: l_module := G_MODULE_PREFIX||l_api_name||'.'||'040'||'.';
514: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
515: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
516: 'before select sum of allocated_qty and min of bid_number
517: ');
518: END IF;
511:
512: l_progress :='040';
513: l_module := G_MODULE_PREFIX||l_api_name||'.'||'040'||'.';
514: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
515: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
516: 'before select sum of allocated_qty and min of bid_number
517: ');
518: END IF;
519:
533: GROUP BY requisition_line_id;
534:
535: l_progress :='041';
536: l_module := G_MODULE_PREFIX||l_api_name||'.'||'041'||'.';
537: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
538: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
539: 'after select sum of allocated_qty and min of bid_number;
540: selected '||requisition_line_id_tbl.COUNT||' rows');
541: END IF;
534:
535: l_progress :='041';
536: l_module := G_MODULE_PREFIX||l_api_name||'.'||'041'||'.';
537: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
538: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
539: 'after select sum of allocated_qty and min of bid_number;
540: selected '||requisition_line_id_tbl.COUNT||' rows');
541: END IF;
542:
545: WHEN OTHERS THEN
546: po_message_s.sql_error('Exception of Split_requisitionLines()',
547: l_progress , sqlcode);
548: FND_MSG_PUB.Add;
549: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
550: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
551: 'Exception: select sum of allocated_qty and min of
552: bid_number ');
553: END IF;
546: po_message_s.sql_error('Exception of Split_requisitionLines()',
547: l_progress , sqlcode);
548: FND_MSG_PUB.Add;
549: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
550: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
551: 'Exception: select sum of allocated_qty and min of
552: bid_number ');
553: END IF;
554:
560: BEGIN
561:
562: l_progress :='050';
563: l_module := G_MODULE_PREFIX||l_api_name||'.'||'050'||'.';
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 updating po_req_split_lines_gt with sum of
567: allocated_qty and min of bid_number etc..
568: ');
561:
562: l_progress :='050';
563: l_module := G_MODULE_PREFIX||l_api_name||'.'||'050'||'.';
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 updating po_req_split_lines_gt with sum of
567: allocated_qty and min of bid_number etc..
568: ');
569: END IF;
588: WHERE requisition_line_id = requisition_line_id_tbl(qty_rollup_index);
589:
590: l_progress :='051';
591: l_module := G_MODULE_PREFIX||l_api_name||'.'||'050'||'.';
592: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
593: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
594: 'after updating po_req_split_lines_gt with sum of
595: allocated_qty and min of bid_number etc..; updated '
596: || sql%rowcount ||' rows');
589:
590: l_progress :='051';
591: l_module := G_MODULE_PREFIX||l_api_name||'.'||'050'||'.';
592: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
593: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
594: 'after updating po_req_split_lines_gt with sum of
595: allocated_qty and min of bid_number etc..; updated '
596: || sql%rowcount ||' rows');
597: END IF;
602: WHEN OTHERS THEN
603: po_message_s.sql_error('Exception of Split_requisitionLines()',
604: l_progress , sqlcode);
605: FND_MSG_PUB.Add;
606: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
607: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
608: 'Exception: updating po_req_split_lines_gt with sum of
609: allocated_qty and min of bid_number etc.. ');
610: END IF;
603: po_message_s.sql_error('Exception of Split_requisitionLines()',
604: l_progress , sqlcode);
605: FND_MSG_PUB.Add;
606: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
607: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
608: 'Exception: updating po_req_split_lines_gt with sum of
609: allocated_qty and min of bid_number etc.. ');
610: END IF;
611: RAISE;
616: BEGIN
617:
618: l_progress :='060';
619: l_module := G_MODULE_PREFIX||l_api_name||'.'||'060'||'.';
620: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
621: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
622: 'before inserting remainder req lines into
623: po_req_split_lines_gt ');
624: END IF;
617:
618: l_progress :='060';
619: l_module := G_MODULE_PREFIX||l_api_name||'.'||'060'||'.';
620: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
621: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
622: 'before inserting remainder req lines into
623: po_req_split_lines_gt ');
624: END IF;
625:
674: 'Y') = 'Y';
675:
676: l_progress :='061';
677: l_module := G_MODULE_PREFIX||l_api_name||'.'||'060'||'.';
678: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
679: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
680: 'after inserting remainder req lines into
681: po_req_split_lines_gt inserted '||sql%rowcount||' rows');
682: END IF;
675:
676: l_progress :='061';
677: l_module := G_MODULE_PREFIX||l_api_name||'.'||'060'||'.';
678: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
679: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
680: 'after inserting remainder req lines into
681: po_req_split_lines_gt inserted '||sql%rowcount||' rows');
682: END IF;
683:
686: WHEN OTHERS THEN
687: po_message_s.sql_error('Exception of Split_requisitionLines()',
688: l_progress , sqlcode);
689: FND_MSG_PUB.Add;
690: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
691: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
692: 'Exception: inserting remainder req lines into
693: po_req_split_lines_gt ');
694: END IF;
687: po_message_s.sql_error('Exception of Split_requisitionLines()',
688: l_progress , sqlcode);
689: FND_MSG_PUB.Add;
690: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
691: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
692: 'Exception: inserting remainder req lines into
693: po_req_split_lines_gt ');
694: END IF;
695: RAISE;
699: BEGIN
700:
701: l_progress :='070';
702: l_module := G_MODULE_PREFIX||l_api_name||'.'||'070'||'.';
703: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
704: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
705: 'before stamping bid info for equal allocation ');
706: END IF;
707:
700:
701: l_progress :='070';
702: l_module := G_MODULE_PREFIX||l_api_name||'.'||'070'||'.';
703: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
704: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
705: 'before stamping bid info for equal allocation ');
706: END IF;
707:
708: -- SQL What:update the po_requisition_lines_all table to stamp bid info for
724: WHERE prs1.record_status IN ('E','T') ); --
725:
726: l_progress :='071';
727: l_module := G_MODULE_PREFIX||l_api_name||'.'||'071'||'.';
728: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
729: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
730: 'before stamping bid info for equal allocation updated'
731: || sql%rowcount||' requisition lines ');
732: END IF;
725:
726: l_progress :='071';
727: l_module := G_MODULE_PREFIX||l_api_name||'.'||'071'||'.';
728: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
729: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
730: 'before stamping bid info for equal allocation updated'
731: || sql%rowcount||' requisition lines ');
732: END IF;
733:
736: WHEN OTHERS THEN
737: po_message_s.sql_error('Exception of Split_requisitionLines()',
738: l_progress , sqlcode);
739: FND_MSG_PUB.Add;
740: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
741: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
742: 'Exception: stamping bid info for equal allocation
743: ');
744: END IF;
737: po_message_s.sql_error('Exception of Split_requisitionLines()',
738: l_progress , sqlcode);
739: FND_MSG_PUB.Add;
740: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
741: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
742: 'Exception: stamping bid info for equal allocation
743: ');
744: END IF;
745: RAISE;
750: BEGIN
751:
752: l_progress :='080';
753: l_module := G_MODULE_PREFIX||l_api_name||'.'||'080'||'.';
754: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
755: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
756: 'before updating po_req_split_lines_gt with max linenum');
757: END IF;
758:
751:
752: l_progress :='080';
753: l_module := G_MODULE_PREFIX||l_api_name||'.'||'080'||'.';
754: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
755: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
756: 'before updating po_req_split_lines_gt with max linenum');
757: END IF;
758:
759: --SQL What:update the temp table with the max line number for each
768: WHERE prs.record_status in ('S','N');
769:
770: l_progress :='081';
771: l_module := G_MODULE_PREFIX||l_api_name||'.'||'081'||'.';
772: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
773: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
774: 'after updating po_req_split_lines_gt with max linenum;
775: Updated '|| sql%rowcount||' rows ');
776: END IF;
769:
770: l_progress :='081';
771: l_module := G_MODULE_PREFIX||l_api_name||'.'||'081'||'.';
772: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
773: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
774: 'after updating po_req_split_lines_gt with max linenum;
775: Updated '|| sql%rowcount||' rows ');
776: END IF;
777:
780: WHEN OTHERS THEN
781: po_message_s.sql_error('Exception of Split_requisitionLines()',
782: l_progress , sqlcode);
783: FND_MSG_PUB.Add;
784: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
785: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
786: 'Exception: updating po_req_split_lines_gt with max
787: line num');
788: END IF;
781: po_message_s.sql_error('Exception of Split_requisitionLines()',
782: l_progress , sqlcode);
783: FND_MSG_PUB.Add;
784: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
785: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
786: 'Exception: updating po_req_split_lines_gt with max
787: line num');
788: END IF;
789: RAISE;
794: BEGIN
795:
796: l_progress :='090';
797: l_module := G_MODULE_PREFIX||l_api_name||'.'||'090'||'.';
798: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
799: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
800: 'before selecting rowid and new_line_num to memory ');
801: END IF;
802:
795:
796: l_progress :='090';
797: l_module := G_MODULE_PREFIX||l_api_name||'.'||'090'||'.';
798: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
799: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
800: 'before selecting rowid and new_line_num to memory ');
801: END IF;
802:
803: -- SQL What:Add incremental numbers to the new_line_num resetting at
827: ORDER BY prs.requisition_header_id,prs.requisition_line_id;
828:
829: l_progress :='091';
830: l_module := G_MODULE_PREFIX||l_api_name||'.'||'091'||'.';
831: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
832: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
833: 'after selecting rowid and new_line_num to memory;
834: selected '||row_id_lnm_tbl.COUNT||' rows');
835: END IF;
828:
829: l_progress :='091';
830: l_module := G_MODULE_PREFIX||l_api_name||'.'||'091'||'.';
831: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
832: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
833: 'after selecting rowid and new_line_num to memory;
834: selected '||row_id_lnm_tbl.COUNT||' rows');
835: END IF;
836:
839:
840: po_message_s.sql_error('Exception of Split_requisitionLines()',
841: l_progress , sqlcode);
842: FND_MSG_PUB.Add;
843: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
844: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
845: 'Exception: selecting rowid and new_line_num to memory '
846: );
847: END IF;
840: po_message_s.sql_error('Exception of Split_requisitionLines()',
841: l_progress , sqlcode);
842: FND_MSG_PUB.Add;
843: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
844: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
845: 'Exception: selecting rowid and new_line_num to memory '
846: );
847: END IF;
848: RAISE;
853: BEGIN
854:
855: l_progress :='100';
856: l_module := G_MODULE_PREFIX||l_api_name||'.'||'100'||'.';
857: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
858: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
859: 'before loop: Assign incremental numbers to line num ');
860: END IF;
861:
854:
855: l_progress :='100';
856: l_module := G_MODULE_PREFIX||l_api_name||'.'||'100'||'.';
857: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
858: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
859: 'before loop: Assign incremental numbers to line num ');
860: END IF;
861:
862: FOR l_line_num_index in 1.. requisition_line_id_lnm_tbl.COUNT
874: :=new_line_num_lnm_tbl(l_line_num_index)+l_serial_num;
875:
876: l_progress :='105';
877: l_module := G_MODULE_PREFIX||l_api_name||'.'||'105'||'.';
878: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
879: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
880: 'Inside loop: Requisition_header_id = '
881: ||requisition_header_id_lnm_tbl(l_line_num_index)
882: ||'Requisition_line_id = '
875:
876: l_progress :='105';
877: l_module := G_MODULE_PREFIX||l_api_name||'.'||'105'||'.';
878: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
879: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
880: 'Inside loop: Requisition_header_id = '
881: ||requisition_header_id_lnm_tbl(l_line_num_index)
882: ||'Requisition_line_id = '
883: ||requisition_line_id_lnm_tbl(l_line_num_index)
891: END LOOP;
892:
893: l_progress :='109';
894: l_module := G_MODULE_PREFIX||l_api_name||'.'||'109'||'.';
895: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
896: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
897: 'After loop: Assign incremental numbers to line num ');
898: END IF;
899:
892:
893: l_progress :='109';
894: l_module := G_MODULE_PREFIX||l_api_name||'.'||'109'||'.';
895: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
896: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
897: 'After loop: Assign incremental numbers to line num ');
898: END IF;
899:
900: EXCEPTION
902:
903: po_message_s.sql_error('Exception of Split_requisitionLines()',
904: l_progress , sqlcode);
905: FND_MSG_PUB.Add;
906: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
907: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
908: 'Exception: Assign incremental numbers to line num ');
909: END IF;
910: RAISE;
903: po_message_s.sql_error('Exception of Split_requisitionLines()',
904: l_progress , sqlcode);
905: FND_MSG_PUB.Add;
906: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
907: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
908: 'Exception: Assign incremental numbers to line num ');
909: END IF;
910: RAISE;
911: END;
914: BEGIN
915:
916: l_progress :='110';
917: l_module := G_MODULE_PREFIX||l_api_name||'.'||'110'||'.';
918: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
919: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
920: 'Before: update po_req_split_lines_gt toset new_line_num');
921: END IF;
922:
915:
916: l_progress :='110';
917: l_module := G_MODULE_PREFIX||l_api_name||'.'||'110'||'.';
918: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
919: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
920: 'Before: update po_req_split_lines_gt toset new_line_num');
921: END IF;
922:
923: FORALL l_line_num_upd_index in 1.. requisition_line_id_lnm_tbl.COUNT
925: SET new_line_num=new_line_num_lnm_tbl(l_line_num_upd_index)
926: WHERE rowid=row_id_lnm_tbl(l_line_num_upd_index);
927: l_progress :='111';
928: l_module := G_MODULE_PREFIX||l_api_name||'.'||'110'||'.';
929: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
930: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
931: 'After: update po_req_split_lines_gt toset new_line_num;
932: Updated '||sql%rowcount||' rows');
933: END IF;
926: WHERE rowid=row_id_lnm_tbl(l_line_num_upd_index);
927: l_progress :='111';
928: l_module := G_MODULE_PREFIX||l_api_name||'.'||'110'||'.';
929: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
930: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
931: 'After: update po_req_split_lines_gt toset new_line_num;
932: Updated '||sql%rowcount||' rows');
933: END IF;
934:
937:
938: po_message_s.sql_error('Exception of Split_requisitionLines()',
939: l_progress , sqlcode);
940: FND_MSG_PUB.Add;
941: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
942: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
943: 'Exception: update po_req_split_lines_gt to set
944: new_line_num');
945: END IF;
938: po_message_s.sql_error('Exception of Split_requisitionLines()',
939: l_progress , sqlcode);
940: FND_MSG_PUB.Add;
941: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
942: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
943: 'Exception: update po_req_split_lines_gt to set
944: new_line_num');
945: END IF;
946: RAISE;
955: BEGIN
956:
957: l_progress :='120';
958: l_module := G_MODULE_PREFIX||l_api_name||'.'||'120'||'.';
959: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
960: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
961: 'Before: Collect all the req lines which are eligible to split ');
962: Print_Global_Table(l_module);
963: END IF;
956:
957: l_progress :='120';
958: l_module := G_MODULE_PREFIX||l_api_name||'.'||'120'||'.';
959: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
960: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
961: 'Before: Collect all the req lines which are eligible to split ');
962: Print_Global_Table(l_module);
963: END IF;
964:
1001: AND nvl(prl.org_id, -99) = nvl(fsp.org_id, -99); -- Bug 4723367
1002:
1003: l_progress :='121';
1004: l_module := G_MODULE_PREFIX||l_api_name||'.'||'121'||'.';
1005: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1006: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1007: 'After: Collect all the req lines which are eligible to ' ||
1008: 'split; Selected '||requisition_line_id_rslt_tbl.COUNT
1009: ||' rows');
1002:
1003: l_progress :='121';
1004: l_module := G_MODULE_PREFIX||l_api_name||'.'||'121'||'.';
1005: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1006: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1007: 'After: Collect all the req lines which are eligible to ' ||
1008: 'split; Selected '||requisition_line_id_rslt_tbl.COUNT
1009: ||' rows');
1010: END IF;
1014:
1015: po_message_s.sql_error('Exception of Split_requisitionLines()',
1016: l_progress , sqlcode);
1017: FND_MSG_PUB.Add;
1018: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1019: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
1020: 'Exception: Collect all the req lines which are eligible to split ');
1021: END IF;
1022: RAISE;
1015: po_message_s.sql_error('Exception of Split_requisitionLines()',
1016: l_progress , sqlcode);
1017: FND_MSG_PUB.Add;
1018: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1019: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
1020: 'Exception: Collect all the req lines which are eligible to split ');
1021: END IF;
1022: RAISE;
1023:
1031: BEGIN
1032:
1033: l_progress :='130';
1034: l_module := G_MODULE_PREFIX||l_api_name||'.'||'130'||'.';
1035: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1036: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1037: 'Before: Create all the new requisition lines ');
1038: END IF;
1039:
1032:
1033: l_progress :='130';
1034: l_module := G_MODULE_PREFIX||l_api_name||'.'||'130'||'.';
1035: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1036: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1037: 'Before: Create all the new requisition lines ');
1038: END IF;
1039:
1040: FORALL l_insert_line_index IN
1286: requisition_line_id_rslt_tbl(l_insert_line_index);
1287:
1288: l_progress :='131';
1289: l_module := G_MODULE_PREFIX||l_api_name||'.'||'131'||'.';
1290: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1291: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1292: 'Before: Create all the new requisition lines; Inserted '
1293: ||sql%rowcount||' requisition lines');
1294: END IF;
1287:
1288: l_progress :='131';
1289: l_module := G_MODULE_PREFIX||l_api_name||'.'||'131'||'.';
1290: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1291: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1292: 'Before: Create all the new requisition lines; Inserted '
1293: ||sql%rowcount||' requisition lines');
1294: END IF;
1295:
1299: po_message_s.sql_error
1300: ('Exception of Split_requisitionLines()', l_progress ,
1301: sqlcode);
1302: FND_MSG_PUB.Add;
1303: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1304: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
1305: 'Exception: Create all the new requisition lines ');
1306: END IF;
1307: RAISE;
1300: ('Exception of Split_requisitionLines()', l_progress ,
1301: sqlcode);
1302: FND_MSG_PUB.Add;
1303: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1304: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module,
1305: 'Exception: Create all the new requisition lines ');
1306: END IF;
1307: RAISE;
1308:
1318: BEGIN
1319:
1320: l_progress :='140';
1321: l_module := G_MODULE_PREFIX||l_api_name||'.'||'140'||'.';
1322: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1323: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1324: 'Before: Mark parent req lines as modified by agent');
1325: END IF;
1326:
1319:
1320: l_progress :='140';
1321: l_module := G_MODULE_PREFIX||l_api_name||'.'||'140'||'.';
1322: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1323: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1324: 'Before: Mark parent req lines as modified by agent');
1325: END IF;
1326:
1327: --
1338: AND record_status_rslt_tbl(l_mod_buyer_index)='S';
1339:
1340: l_progress :='141';
1341: l_module := G_MODULE_PREFIX||l_api_name||'.'||'141'||'.';
1342: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1343: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1344: 'After: Mark parent req lines as modified by agent;Updated'
1345: ||sql%rowcount||' requisition lines ');
1346: END IF;
1339:
1340: l_progress :='141';
1341: l_module := G_MODULE_PREFIX||l_api_name||'.'||'141'||'.';
1342: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1343: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1344: 'After: Mark parent req lines as modified by agent;Updated'
1345: ||sql%rowcount||' requisition lines ');
1346: END IF;
1347:
1351: po_message_s.sql_error
1352: ('Exception of Split_requisitionLines()', l_progress ,
1353: sqlcode);
1354: FND_MSG_PUB.Add;
1355: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1356: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1357: 'Exception: Mark parent req lines as modified by agent');
1358: END IF;
1359: RAISE;
1352: ('Exception of Split_requisitionLines()', l_progress ,
1353: sqlcode);
1354: FND_MSG_PUB.Add;
1355: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1356: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1357: 'Exception: Mark parent req lines as modified by agent');
1358: END IF;
1359: RAISE;
1360:
1373: BEGIN
1374:
1375: l_progress :='145';
1376: l_module := G_MODULE_PREFIX||l_api_name||'.'||'145'||'.';
1377: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1378: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1379: 'Before: Update MTL_SUPPLY');
1380: END IF;
1381:
1374:
1375: l_progress :='145';
1376: l_module := G_MODULE_PREFIX||l_api_name||'.'||'145'||'.';
1377: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1378: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1379: 'Before: Update MTL_SUPPLY');
1380: END IF;
1381:
1382: FORALL l_update_mtl_supply_index in 1.. new_req_line_id_rslt_tbl.COUNT
1460: requisition_line_id_rslt_tbl(l_delete_mtl_supply_index);
1461:
1462: l_progress :='146';
1463: l_module := G_MODULE_PREFIX||l_api_name||'.'||'146'||'.';
1464: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1465: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1466: 'After: Update MTL_SUPPLY;Updated'
1467: ||sql%rowcount||' requisition lines ');
1468: END IF;
1461:
1462: l_progress :='146';
1463: l_module := G_MODULE_PREFIX||l_api_name||'.'||'146'||'.';
1464: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1465: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1466: 'After: Update MTL_SUPPLY;Updated'
1467: ||sql%rowcount||' requisition lines ');
1468: END IF;
1469:
1473: po_message_s.sql_error
1474: ('Exception of Split_requisitionLines()', l_progress ,
1475: sqlcode);
1476: FND_MSG_PUB.Add;
1477: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1478: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1479: 'Exception: Update MTL_SUPPLY');
1480: END IF;
1481: RAISE;
1474: ('Exception of Split_requisitionLines()', l_progress ,
1475: sqlcode);
1476: FND_MSG_PUB.Add;
1477: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1478: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1479: 'Exception: Update MTL_SUPPLY');
1480: END IF;
1481: RAISE;
1482:
1485:
1486:
1487: l_progress :='150';
1488: l_module := G_MODULE_PREFIX||l_api_name||'.'||'150'||'.';
1489: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1490: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1491: 'Before: Copy all the attachments');
1492: END IF;
1493:
1486:
1487: l_progress :='150';
1488: l_module := G_MODULE_PREFIX||l_api_name||'.'||'150'||'.';
1489: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1490: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1491: 'Before: Copy all the attachments');
1492: END IF;
1493:
1494:
1493:
1494:
1495: FOR l_copy_attach_index in 1.. requisition_line_id_rslt_tbl.COUNT
1496: LOOP
1497: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1498: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1499: 'requisition_line_id_rslt_tbl='
1500: ||to_char(requisition_line_id_rslt_tbl(l_copy_attach_index))
1501: ||' to- new_req_line_id_rslt_tbl='
1494:
1495: FOR l_copy_attach_index in 1.. requisition_line_id_rslt_tbl.COUNT
1496: LOOP
1497: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1498: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1499: 'requisition_line_id_rslt_tbl='
1500: ||to_char(requisition_line_id_rslt_tbl(l_copy_attach_index))
1501: ||' to- new_req_line_id_rslt_tbl='
1502: ||to_char(new_req_line_id_rslt_tbl(l_copy_attach_index)));
1527: END LOOP;
1528:
1529: l_progress :='159';
1530: l_module := G_MODULE_PREFIX||l_api_name||'.'||'159'||'.';
1531: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1532: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1533: 'After: Copy all the attachments');
1534: END IF;
1535:
1528:
1529: l_progress :='159';
1530: l_module := G_MODULE_PREFIX||l_api_name||'.'||'159'||'.';
1531: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1532: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1533: 'After: Copy all the attachments');
1534: END IF;
1535:
1536: -- Retrieve the current operating unit from the environment
1550: BEGIN
1551:
1552: l_progress :='160';
1553: l_module := G_MODULE_PREFIX||l_api_name||'.'||'160'||'.';
1554: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1555: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1556: 'Before: Create distributions lines For all the ' ||
1557: 'newly created requisition lines');
1558: END IF;
1551:
1552: l_progress :='160';
1553: l_module := G_MODULE_PREFIX||l_api_name||'.'||'160'||'.';
1554: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1555: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1556: 'Before: Create distributions lines For all the ' ||
1557: 'newly created requisition lines');
1558: END IF;
1559: --
1718: FROM po_req_distributions_all --
1719: WHERE requisition_line_id=
1720: requisition_line_id_rslt_tbl(l_create_dist_index);
1721:
1722: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1723: PO_DEBUG.debug_stmt(l_log_head,l_progress,
1724: 'Created '||sql%rowcount||' distributions lines, requisition_line_id= '|| new_req_line_id_rslt_tbl(l_create_dist_index) );
1725: END IF;
1726: -- bug 5249299 start: Need to call GMS api to maintain the adls data since these are
1737: l_expenditure_item_date := l_req_dist_proj_rec.expenditure_item_date;
1738:
1739: l_progress :='159';
1740: l_module := G_MODULE_PREFIX||l_api_name||'.'||'159'||'.';
1741: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1742: PO_DEBUG.debug_stmt(l_log_head,l_progress,
1743: 'calling GMS_POR_API.when_insert_line :'||
1744: 'l_distribution_id '||l_distribution_id||
1745: 'l_project_id '||l_project_id||
1756: X_award_set_id => l_award_id,
1757: X_award_number => NULL,
1758: X_req_distribution_id => NULL);
1759:
1760: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1761: PO_DEBUG.debug_stmt(l_log_head,l_progress,
1762: 'After calling GMS_POR_API.get_award_id :'||
1763: 'l_award_id'||l_award_id);
1764: END IF;
1774: X_status => l_status) ;
1775:
1776:
1777: l_progress :='160';
1778: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1779: PO_DEBUG.debug_stmt(l_log_head,l_progress,
1780: 'After when insert line : Out values '||
1781: 'l_award_set_id '||l_award_set_id ||
1782: 'l_status '||l_status );
1791: END LOOP; --
1792:
1793: l_progress :='161';
1794: l_module := G_MODULE_PREFIX||l_api_name||'.'||'161'||'.';
1795: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1796: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1797: 'After: Create distributions lines for all the
1798: newly created requisition lines; Created '
1799: ||sql%rowcount||' distributions lines ' );
1792:
1793: l_progress :='161';
1794: l_module := G_MODULE_PREFIX||l_api_name||'.'||'161'||'.';
1795: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1796: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1797: 'After: Create distributions lines for all the
1798: newly created requisition lines; Created '
1799: ||sql%rowcount||' distributions lines ' );
1800: END IF;
1804: po_message_s.sql_error
1805: ('Exception of Split_requisitionLines()', l_progress ,
1806: sqlcode);
1807: FND_MSG_PUB.Add;
1808: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1809: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1810: 'Excption: Create distributions lines for all the
1811: newly created requisition lines');
1812: END IF;
1805: ('Exception of Split_requisitionLines()', l_progress ,
1806: sqlcode);
1807: FND_MSG_PUB.Add;
1808: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1809: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1810: 'Excption: Create distributions lines for all the
1811: newly created requisition lines');
1812: END IF;
1813:
1852: BEGIN
1853:
1854: l_progress :='170';
1855: l_module := G_MODULE_PREFIX||l_api_name||'.'||'170'||'.';
1856: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1857: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1858: 'Before: Collect the info to take care of rounding ');
1859: END IF;
1860:
1853:
1854: l_progress :='170';
1855: l_module := G_MODULE_PREFIX||l_api_name||'.'||'170'||'.';
1856: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1857: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1858: 'Before: Collect the info to take care of rounding ');
1859: END IF;
1860:
1861: --sql what: Select min distribution id, sum of req line quantity
1878: GROUP BY prd.requisition_line_id;
1879:
1880: l_progress :='171';
1881: l_module := G_MODULE_PREFIX||l_api_name||'.'||'171'||'.';
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: Collect the info to take care of rounding ');
1885: END IF;
1886:
1879:
1880: l_progress :='171';
1881: l_module := G_MODULE_PREFIX||l_api_name||'.'||'171'||'.';
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: Collect the info to take care of rounding ');
1885: END IF;
1886:
1887: EXCEPTION
1890: po_message_s.sql_error
1891: ('Exception of Split_requisitionLines()', l_progress ,
1892: sqlcode);
1893: FND_MSG_PUB.Add;
1894: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1895: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1896: 'Exception: Collect the info to take care of rounding ');
1897: END IF;
1898: RAISE;
1891: ('Exception of Split_requisitionLines()', l_progress ,
1892: sqlcode);
1893: FND_MSG_PUB.Add;
1894: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1895: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1896: 'Exception: Collect the info to take care of rounding ');
1897: END IF;
1898: RAISE;
1899:
1902: BEGIN
1903:
1904: l_progress :='180';
1905: l_module := G_MODULE_PREFIX||l_api_name||'.'||'180'||'.';
1906: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1907: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1908: 'Before: update to take care of rounding ');
1909: END IF;
1910:
1903:
1904: l_progress :='180';
1905: l_module := G_MODULE_PREFIX||l_api_name||'.'||'180'||'.';
1906: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1907: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1908: 'Before: update to take care of rounding ');
1909: END IF;
1910:
1911: --sql what: Update one of the distributions(which has min dist_id)
1921: min_dist_id_round_tbl(l_qty_rounding_index);
1922:
1923: l_progress :='181';
1924: l_module := G_MODULE_PREFIX||l_api_name||'.'||'181'||'.';
1925: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1926: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1927: 'After: update to take care of rounding; Updated '
1928: ||sql%rowcount||' rows');
1929: END IF;
1922:
1923: l_progress :='181';
1924: l_module := G_MODULE_PREFIX||l_api_name||'.'||'181'||'.';
1925: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1926: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1927: 'After: update to take care of rounding; Updated '
1928: ||sql%rowcount||' rows');
1929: END IF;
1930:
1933: po_message_s.sql_error
1934: ('Exception of Split_requisitionLines()', l_progress ,
1935: sqlcode);
1936: FND_MSG_PUB.Add;
1937: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1938: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1939: 'Exception: update to take care of rounding ');
1940: END IF;
1941: RAISE;
1934: ('Exception of Split_requisitionLines()', l_progress ,
1935: sqlcode);
1936: FND_MSG_PUB.Add;
1937: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1938: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1939: 'Exception: update to take care of rounding ');
1940: END IF;
1941: RAISE;
1942: END;
1943:
1944: -- JFMIP, support for Req Modify when encumbrance is enabled START
1945: l_progress :='195';
1946: l_module := G_MODULE_PREFIX||l_api_name||'.'||'195'||'.';
1947: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1948: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1949: 'Before: Calling HANDLE_TAX_ADJUSTMENTS; Status is '||
1950: l_return_status);
1951: END IF;
1944: -- JFMIP, support for Req Modify when encumbrance is enabled START
1945: l_progress :='195';
1946: l_module := G_MODULE_PREFIX||l_api_name||'.'||'195'||'.';
1947: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1948: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1949: 'Before: Calling HANDLE_TAX_ADJUSTMENTS; Status is '||
1950: l_return_status);
1951: END IF;
1952:
1959: );
1960:
1961: l_progress :='196';
1962: l_module := G_MODULE_PREFIX||l_api_name||'.'||'196'||'.';
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_TAX_ADJUSTMENTS; Status is
1966: '||l_return_status);
1967: END IF;
1960:
1961: l_progress :='196';
1962: l_module := G_MODULE_PREFIX||l_api_name||'.'||'196'||'.';
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_TAX_ADJUSTMENTS; Status is
1966: '||l_return_status);
1967: END IF;
1968:
1981:
1982: --Determine whether encumbrance is enabled
1983: l_progress :='190';
1984: l_module := G_MODULE_PREFIX||l_api_name||'.'||'190'||'.';
1985: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT)
1986: THEN
1987: FND_LOG.string(
1988: FND_LOG.LEVEL_STATEMENT,
1989: l_module,
1983: l_progress :='190';
1984: l_module := G_MODULE_PREFIX||l_api_name||'.'||'190'||'.';
1985: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT)
1986: THEN
1987: FND_LOG.string(
1988: FND_LOG.LEVEL_STATEMENT,
1989: l_module,
1990: 'Before: select req_encumbrance_flag '
1991: );
1984: l_module := G_MODULE_PREFIX||l_api_name||'.'||'190'||'.';
1985: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT)
1986: THEN
1987: FND_LOG.string(
1988: FND_LOG.LEVEL_STATEMENT,
1989: l_module,
1990: 'Before: select req_encumbrance_flag '
1991: );
1992: END IF;
2006: END LOOP;
2007:
2008: l_progress :='191';
2009: l_module := G_MODULE_PREFIX||l_api_name||'.'||'191'||'.';
2010: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT)
2011: THEN
2012: FND_LOG.string(
2013: FND_LOG.LEVEL_STATEMENT,
2014: l_module,
2008: l_progress :='191';
2009: l_module := G_MODULE_PREFIX||l_api_name||'.'||'191'||'.';
2010: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT)
2011: THEN
2012: FND_LOG.string(
2013: FND_LOG.LEVEL_STATEMENT,
2014: l_module,
2015: 'After: select req_encumbrance_flag '
2016: );
2009: l_module := G_MODULE_PREFIX||l_api_name||'.'||'191'||'.';
2010: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT)
2011: THEN
2012: FND_LOG.string(
2013: FND_LOG.LEVEL_STATEMENT,
2014: l_module,
2015: 'After: select req_encumbrance_flag '
2016: );
2017: END IF;
2019:
2020: --Select all the distribution lines which are to be reserved and
2021: --unreserved into a plsql table
2022: IF l_req_encumbrance_flag = 'Y' THEN
2023: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2024: --
2025: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2026: 'Before: Calling handle_funds_reversal');
2027: END IF;
2021: --unreserved into a plsql table
2022: IF l_req_encumbrance_flag = 'Y' THEN
2023: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2024: --
2025: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2026: 'Before: Calling handle_funds_reversal');
2027: END IF;
2028:
2029: handle_funds_reversal
2036: );
2037:
2038: l_progress :='211';
2039: l_module := G_MODULE_PREFIX||l_api_name||'.'||'211'||'.';
2040: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2041: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2042: 'After: Calling encumbrance api; Status is '||l_return_status);
2043: END IF;
2044: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2037:
2038: l_progress :='211';
2039: l_module := G_MODULE_PREFIX||l_api_name||'.'||'211'||'.';
2040: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2041: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2042: 'After: Calling encumbrance api; Status is '||l_return_status);
2043: END IF;
2044: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2045: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2040: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2041: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2042: 'After: Calling encumbrance api; Status is '||l_return_status);
2043: END IF;
2044: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2045: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2046: 'After: Calling handle_funds_reversal; Status is
2047: '||l_return_status);
2048: END IF;
2041: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2042: 'After: Calling encumbrance api; Status is '||l_return_status);
2043: END IF;
2044: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2045: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2046: 'After: Calling handle_funds_reversal; Status is
2047: '||l_return_status);
2048: END IF;
2049:
2071: );
2072:
2073: l_progress :='230';
2074: l_module := G_MODULE_PREFIX||l_api_name||'.'||'230'||'.';
2075: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2076: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2077: 'Before: Setting success status to x_return_status');
2078: END IF;
2079: x_return_status := FND_API.G_RET_STS_SUCCESS;
2072:
2073: l_progress :='230';
2074: l_module := G_MODULE_PREFIX||l_api_name||'.'||'230'||'.';
2075: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2076: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2077: 'Before: Setting success status to x_return_status');
2078: END IF;
2079: x_return_status := FND_API.G_RET_STS_SUCCESS;
2080:
2082: WHEN FND_API.g_exc_unexpected_error THEN
2083: ROLLBACK TO Split_RequisitionLines_PVT;
2084: x_msg_data := FND_MSG_PUB.GET();
2085: x_return_status := FND_API.g_ret_sts_unexp_error;
2086: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2087: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
2088: 'Exception: UnexpectedError '||x_msg_data||sqlerrm);
2089: END IF;
2090:
2083: ROLLBACK TO Split_RequisitionLines_PVT;
2084: x_msg_data := FND_MSG_PUB.GET();
2085: x_return_status := FND_API.g_ret_sts_unexp_error;
2086: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2087: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
2088: 'Exception: UnexpectedError '||x_msg_data||sqlerrm);
2089: END IF;
2090:
2091: WHEN FND_API.g_exc_error THEN
2094: FND_MSG_PUB.Count_And_Get
2095: ( p_count => x_msg_count ,
2096: p_data => x_msg_data
2097: );
2098: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2099: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
2100: 'Exception: ExpectedError '||x_msg_data||sqlerrm);
2101: END IF;
2102:
2095: ( p_count => x_msg_count ,
2096: p_data => x_msg_data
2097: );
2098: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2099: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
2100: 'Exception: ExpectedError '||x_msg_data||sqlerrm);
2101: END IF;
2102:
2103: WHEN OTHERS THEN
2608: l_progress :='000';
2609: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2610: l_orig_org_id := PO_MOAC_UTILS_PVT.GET_CURRENT_ORG_ID;
2611: IF G_FND_DEBUG = 'Y' THEN
2612: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2613: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2614: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
2615: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2616: ' current org = ' ||l_orig_org_id);
2609: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2610: l_orig_org_id := PO_MOAC_UTILS_PVT.GET_CURRENT_ORG_ID;
2611: IF G_FND_DEBUG = 'Y' THEN
2612: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2613: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2614: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
2615: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2616: ' current org = ' ||l_orig_org_id);
2617: END IF;
2611: IF G_FND_DEBUG = 'Y' THEN
2612: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2613: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2614: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
2615: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2616: ' current org = ' ||l_orig_org_id);
2617: END IF;
2618: END IF;
2619:
2621:
2622: l_progress :='010';
2623: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2624: IF G_FND_DEBUG = 'Y' THEN
2625: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2626: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2627: 'Compatible_API_Call ');
2628: END IF;
2629: END IF;
2622: l_progress :='010';
2623: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2624: IF G_FND_DEBUG = 'Y' THEN
2625: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2626: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2627: 'Compatible_API_Call ');
2628: END IF;
2629: END IF;
2630:
2641:
2642: --do the dump of input values if the log level is statement.
2643: l_progress :='015';
2644: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2645: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL=FND_LOG.LEVEL_STATEMENT THEN
2646: Print_Global_Table(l_module);
2647: END IF;
2648:
2649: l_progress :='020';
2664: (SELECT DISTINCT requisition_header_id
2665: FROM po_req_split_lines_gt);
2666:
2667: IF G_FND_DEBUG = 'Y' THEN
2668: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2669: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2670: 'Number of distinct orgs to be considered = '||l_req_org_id.count);
2671: END IF;
2672: END IF;
2665: FROM po_req_split_lines_gt);
2666:
2667: IF G_FND_DEBUG = 'Y' THEN
2668: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2669: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2670: 'Number of distinct orgs to be considered = '||l_req_org_id.count);
2671: END IF;
2672: END IF;
2673: for l_index IN 1..l_req_org_id.count
2678: PO_MOAC_UTILS_PVT.set_org_context(l_req_org_id(l_index)) ;
2679: l_org_context_changed := 'Y';
2680: END IF;
2681: IF G_FND_DEBUG = 'Y' THEN
2682: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2683: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2684: 'Current org id = '||l_req_org_id(l_index));
2685: END IF;
2686: END IF;
2679: l_org_context_changed := 'Y';
2680: END IF;
2681: IF G_FND_DEBUG = 'Y' THEN
2682: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2683: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2684: 'Current org id = '||l_req_org_id(l_index));
2685: END IF;
2686: END IF;
2687: BEGIN
2690:
2691: l_progress :='030';
2692: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2693: IF G_FND_DEBUG = 'Y' THEN
2694: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2695: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2696: 'Before: select BEFORE req distributions for encumb. adjustmnets');
2697: END IF;
2698: END IF;
2691: l_progress :='030';
2692: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2693: IF G_FND_DEBUG = 'Y' THEN
2694: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2695: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2696: 'Before: select BEFORE req distributions for encumb. adjustmnets');
2697: END IF;
2698: END IF;
2699:
2716: l_progress :='040';
2717: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2718:
2719: IF G_FND_DEBUG = 'Y' THEN
2720: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2721: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2722: 'l_before_dist_ids_tbl, count= '||l_before_dist_ids_tbl.count);
2723: END IF;
2724: FOR l_log_index IN 1.. l_before_dist_ids_tbl.COUNT
2717: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2718:
2719: IF G_FND_DEBUG = 'Y' THEN
2720: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2721: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2722: 'l_before_dist_ids_tbl, count= '||l_before_dist_ids_tbl.count);
2723: END IF;
2724: FOR l_log_index IN 1.. l_before_dist_ids_tbl.COUNT
2725: LOOP
2723: END IF;
2724: FOR l_log_index IN 1.. l_before_dist_ids_tbl.COUNT
2725: LOOP
2726: -- Bug 4618614: Workaround GSCC error for checking logging statement.
2727: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2728: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2729: 'l_before_dist_ids_tbl('||to_char(l_log_index)||')='
2730: ||l_before_dist_ids_tbl(l_log_index));
2731: END IF;
2724: FOR l_log_index IN 1.. l_before_dist_ids_tbl.COUNT
2725: LOOP
2726: -- Bug 4618614: Workaround GSCC error for checking logging statement.
2727: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2728: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2729: 'l_before_dist_ids_tbl('||to_char(l_log_index)||')='
2730: ||l_before_dist_ids_tbl(l_log_index));
2731: END IF;
2732: END LOOP;
2734:
2735: l_progress :='050';
2736: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2737: IF G_FND_DEBUG = 'Y' THEN
2738: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2739: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2740: 'Before: select AFTER req distributions for encumb. adjustmnets');
2741: END IF;
2742: END IF;
2735: l_progress :='050';
2736: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2737: IF G_FND_DEBUG = 'Y' THEN
2738: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2739: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2740: 'Before: select AFTER req distributions for encumb. adjustmnets');
2741: END IF;
2742: END IF;
2743:
2753:
2754: l_progress :='060';
2755: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2756: IF G_FND_DEBUG = 'Y' THEN
2757: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2758: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2759: 'l_after_dist_ids_tbl, count= '||l_after_dist_ids_tbl.count);
2760: END IF;
2761: FOR l_log_index IN 1.. l_after_dist_ids_tbl.COUNT
2754: l_progress :='060';
2755: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2756: IF G_FND_DEBUG = 'Y' THEN
2757: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2758: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2759: 'l_after_dist_ids_tbl, count= '||l_after_dist_ids_tbl.count);
2760: END IF;
2761: FOR l_log_index IN 1.. l_after_dist_ids_tbl.COUNT
2762: LOOP
2760: END IF;
2761: FOR l_log_index IN 1.. l_after_dist_ids_tbl.COUNT
2762: LOOP
2763: -- Bug 4618614: Workaround GSCC error for checking logging statement.
2764: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2765: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2766: 'l_after_dist_ids_tbl('||to_char(l_log_index)||')='
2767: ||l_after_dist_ids_tbl(l_log_index));
2768: END IF;
2761: FOR l_log_index IN 1.. l_after_dist_ids_tbl.COUNT
2762: LOOP
2763: -- Bug 4618614: Workaround GSCC error for checking logging statement.
2764: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2765: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2766: 'l_after_dist_ids_tbl('||to_char(l_log_index)||')='
2767: ||l_after_dist_ids_tbl(l_log_index));
2768: END IF;
2769: END LOOP;
2775: ('Exception of HANDLE_FUNDS_REVERSAL()', l_progress ,
2776: sqlcode);
2777: FND_MSG_PUB.Add;
2778: IF G_FND_DEBUG = 'Y' THEN
2779: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2780: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
2781: 'Exception: select req distributions for encumb. adjustmnets');
2782: END IF;
2783: END IF;
2776: sqlcode);
2777: FND_MSG_PUB.Add;
2778: IF G_FND_DEBUG = 'Y' THEN
2779: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2780: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
2781: 'Exception: select req distributions for encumb. adjustmnets');
2782: END IF;
2783: END IF;
2784: RAISE;
2787: --call the encumbrance api
2788: l_progress :='070';
2789: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2790: IF G_FND_DEBUG = 'Y' THEN
2791: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2792: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2793: 'Before: Calling encumbrance api');
2794: END IF;
2795: END IF;
2788: l_progress :='070';
2789: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2790: IF G_FND_DEBUG = 'Y' THEN
2791: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2792: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2793: 'Before: Calling encumbrance api');
2794: END IF;
2795: END IF;
2796:
2808: l_progress :='080';
2809: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2810:
2811: IF G_FND_DEBUG = 'Y' THEN
2812: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2813: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2814: 'After: Calling encumbrance api; Status is '||x_return_status);
2815: END IF;
2816: END IF;
2809: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2810:
2811: IF G_FND_DEBUG = 'Y' THEN
2812: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2813: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2814: 'After: Calling encumbrance api; Status is '||x_return_status);
2815: END IF;
2816: END IF;
2817:
2818: IF (x_return_status = FND_API.g_ret_sts_error) OR
2819: (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2820:
2821: IF G_FND_DEBUG = 'Y' THEN
2822: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2823: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
2824: 'online_report_id = '||to_char(x_online_report_id)
2825: ||', po_return_code = '||l_po_return_code);
2826: END IF;
2819: (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2820:
2821: IF G_FND_DEBUG = 'Y' THEN
2822: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2823: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
2824: 'online_report_id = '||to_char(x_online_report_id)
2825: ||', po_return_code = '||l_po_return_code);
2826: END IF;
2827: END IF;
2860:
2861: l_progress :='200';
2862: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2863: IF G_FND_DEBUG = 'Y' THEN
2864: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2865: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2866: 'Before: Setting success status to x_return_status');
2867: END IF;
2868: END IF;
2861: l_progress :='200';
2862: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2863: IF G_FND_DEBUG = 'Y' THEN
2864: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2865: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2866: 'Before: Setting success status to x_return_status');
2867: END IF;
2868: END IF;
2869: x_return_status := FND_API.G_RET_STS_SUCCESS;
2873: ROLLBACK TO HANDLE_FUNDS_REVERSAL_PVT;
2874: x_msg_data := FND_MSG_PUB.GET();
2875: x_return_status := FND_API.g_ret_sts_unexp_error;
2876: IF G_FND_DEBUG = 'Y' THEN
2877: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2878: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
2879: 'Exception: UnexpectedError '||x_msg_data||sqlerrm);
2880: END IF;
2881: END IF;
2874: x_msg_data := FND_MSG_PUB.GET();
2875: x_return_status := FND_API.g_ret_sts_unexp_error;
2876: IF G_FND_DEBUG = 'Y' THEN
2877: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2878: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
2879: 'Exception: UnexpectedError '||x_msg_data||sqlerrm);
2880: END IF;
2881: END IF;
2882: WHEN FND_API.g_exc_error THEN
2886: ( p_count => x_msg_count ,
2887: p_data => x_msg_data
2888: );
2889: IF G_FND_DEBUG = 'Y' THEN
2890: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2891: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
2892: 'Exception: ExpectedError '||x_msg_data||sqlerrm);
2893: END IF;
2894: END IF;
2887: p_data => x_msg_data
2888: );
2889: IF G_FND_DEBUG = 'Y' THEN
2890: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2891: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
2892: 'Exception: ExpectedError '||x_msg_data||sqlerrm);
2893: END IF;
2894: END IF;
2895:
2902: ( p_count => x_msg_count ,
2903: p_data => x_msg_data
2904: );
2905: IF G_FND_DEBUG = 'Y' THEN
2906: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2907: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
2908: 'Exception: UnExpectedError '||x_msg_data||sqlerrm);
2909: END IF;
2910: END IF;
2903: p_data => x_msg_data
2904: );
2905: IF G_FND_DEBUG = 'Y' THEN
2906: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2907: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
2908: 'Exception: UnExpectedError '||x_msg_data||sqlerrm);
2909: END IF;
2910: END IF;
2911:
2955:
2956: l_progress :='000';
2957: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2958: IF G_FND_DEBUG = 'Y' THEN
2959: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2960: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2961: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
2962: END IF;
2963: END IF;
2956: l_progress :='000';
2957: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2958: IF G_FND_DEBUG = 'Y' THEN
2959: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2960: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2961: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
2962: END IF;
2963: END IF;
2964:
2966:
2967: l_progress :='010';
2968: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2969: IF G_FND_DEBUG = 'Y' THEN
2970: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2971: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2972: 'Compatible_API_Call ');
2973: END IF;
2974: END IF;
2967: l_progress :='010';
2968: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2969: IF G_FND_DEBUG = 'Y' THEN
2970: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2971: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2972: 'Compatible_API_Call ');
2973: END IF;
2974: END IF;
2975:
2986:
2987: --do the dump of input values if the log level is statement.
2988: l_progress :='015';
2989: l_module := G_MODULE_PREFIX||l_api_name||'.'||'015'||'.';
2990: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL=FND_LOG.LEVEL_STATEMENT THEN
2991: Print_Global_Table(l_module);
2992: END IF;
2993:
2994: l_progress :='020';
2997:
2998: l_progress :='030';
2999: l_module := G_MODULE_PREFIX||l_api_name||'.'||'030'||'.';
3000: IF G_FND_DEBUG = 'Y' THEN
3001: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3002: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3003: 'Before: Collect the info to take care of TAX rounding ');
3004: END IF;
3005: END IF;
2998: l_progress :='030';
2999: l_module := G_MODULE_PREFIX||l_api_name||'.'||'030'||'.';
3000: IF G_FND_DEBUG = 'Y' THEN
3001: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3002: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3003: 'Before: Collect the info to take care of TAX rounding ');
3004: END IF;
3005: END IF;
3006:
3021:
3022: IF G_FND_DEBUG = 'Y' THEN
3023: FOR i in 1..sum_new_line_r_tax_tbl.COUNT LOOP
3024: -- Bug 4618614: Workaround GSCC error for checking logging statement.
3025: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3026:
3027: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3028: 'sum_new_line_r_tax_tbl('||i||'): '||sum_new_line_r_tax_tbl(i)||','||
3029: 'sum_new_line_nr_tax_tbl('||i||'): '||sum_new_line_nr_tax_tbl(i)||','||
3023: FOR i in 1..sum_new_line_r_tax_tbl.COUNT LOOP
3024: -- Bug 4618614: Workaround GSCC error for checking logging statement.
3025: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3026:
3027: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3028: 'sum_new_line_r_tax_tbl('||i||'): '||sum_new_line_r_tax_tbl(i)||','||
3029: 'sum_new_line_nr_tax_tbl('||i||'): '||sum_new_line_nr_tax_tbl(i)||','||
3030: 'min_dist_id_tax_tbl('||i||'): '||min_dist_id_tax_tbl(i));
3031: END IF;
3056:
3057: IF G_FND_DEBUG = 'Y' THEN
3058: FOR i in 1..req_line_id_tax_tbl.COUNT LOOP
3059: -- Bug 4618614: Workaround GSCC error for checking logging statement.
3060: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3061:
3062: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3063: 'req_line_id_tax_tbl('||i||'): '||req_line_id_tax_tbl(i)||','||
3064: 'sum_orig_line_r_tax_tbl('||i||'): '||sum_orig_line_r_tax_tbl(i)||','||
3058: FOR i in 1..req_line_id_tax_tbl.COUNT LOOP
3059: -- Bug 4618614: Workaround GSCC error for checking logging statement.
3060: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3061:
3062: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3063: 'req_line_id_tax_tbl('||i||'): '||req_line_id_tax_tbl(i)||','||
3064: 'sum_orig_line_r_tax_tbl('||i||'): '||sum_orig_line_r_tax_tbl(i)||','||
3065: 'sum_orig_line_nr_tax_tbl('||i||'): '||sum_orig_line_nr_tax_tbl(i));
3066: END IF;
3067: END LOOP;
3068: END IF;
3069:
3070: IF G_FND_DEBUG = 'Y' THEN
3071: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3072: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3073: 'After: Collect the info to take care of TAX rounding ');
3074: END IF;
3075: END IF;
3068: END IF;
3069:
3070: IF G_FND_DEBUG = 'Y' THEN
3071: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3072: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3073: 'After: Collect the info to take care of TAX rounding ');
3074: END IF;
3075: END IF;
3076:
3080: ('Exception of HANDLE_TAX_ADJUSTMENTS()', l_progress ,
3081: sqlcode);
3082: FND_MSG_PUB.Add;
3083: IF G_FND_DEBUG = 'Y' THEN
3084: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3085: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3086: 'Exception: Collect the info to take care of TAX rounding ');
3087: END IF;
3088: END IF;
3081: sqlcode);
3082: FND_MSG_PUB.Add;
3083: IF G_FND_DEBUG = 'Y' THEN
3084: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3085: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3086: 'Exception: Collect the info to take care of TAX rounding ');
3087: END IF;
3088: END IF;
3089: RAISE;
3094:
3095: l_progress :='100';
3096: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3097: IF G_FND_DEBUG = 'Y' THEN
3098: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3099: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3100: 'Before: update to take care of TAX rounding ');
3101: END IF;
3102: END IF;
3095: l_progress :='100';
3096: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3097: IF G_FND_DEBUG = 'Y' THEN
3098: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3099: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3100: 'Before: update to take care of TAX rounding ');
3101: END IF;
3102: END IF;
3103:
3119:
3120: l_progress :='110';
3121: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3122: IF G_FND_DEBUG = 'Y' THEN
3123: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3124: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3125: 'After: update to take care of TAX rounding; Updated '
3126: ||sql%rowcount||' rows');
3127: END IF;
3120: l_progress :='110';
3121: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3122: IF G_FND_DEBUG = 'Y' THEN
3123: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3124: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3125: 'After: update to take care of TAX rounding; Updated '
3126: ||sql%rowcount||' rows');
3127: END IF;
3128: END IF;
3133: ('Exception of HANDLE_TAX_ADJUSTMENTS()', l_progress ,
3134: sqlcode);
3135: FND_MSG_PUB.Add;
3136: IF G_FND_DEBUG = 'Y' THEN
3137: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
3138: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
3139: 'Exception: update to take care of TAX rounding ');
3140: END IF;
3141: END IF;
3134: sqlcode);
3135: FND_MSG_PUB.Add;
3136: IF G_FND_DEBUG = 'Y' THEN
3137: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
3138: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
3139: 'Exception: update to take care of TAX rounding ');
3140: END IF;
3141: END IF;
3142: RAISE;
3142: RAISE;
3143: END;
3144:
3145: IF G_FND_DEBUG = 'Y' THEN
3146: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3147: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3148: 'Before Commit');
3149: END IF;
3150: END IF;
3143: END;
3144:
3145: IF G_FND_DEBUG = 'Y' THEN
3146: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3147: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3148: 'Before Commit');
3149: END IF;
3150: END IF;
3151:
3153: COMMIT WORK;
3154: END IF;
3155:
3156: IF G_FND_DEBUG = 'Y' THEN
3157: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3158: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3159: 'After Commit');
3160: END IF;
3161: END IF;
3154: END IF;
3155:
3156: IF G_FND_DEBUG = 'Y' THEN
3157: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3158: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3159: 'After Commit');
3160: END IF;
3161: END IF;
3162:
3169:
3170: l_progress :='200';
3171: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3172: IF G_FND_DEBUG = 'Y' THEN
3173: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3174: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3175: 'Before: Setting success status to x_return_status');
3176: END IF;
3177: END IF;
3170: l_progress :='200';
3171: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3172: IF G_FND_DEBUG = 'Y' THEN
3173: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3174: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3175: 'Before: Setting success status to x_return_status');
3176: END IF;
3177: END IF;
3178: x_return_status := FND_API.G_RET_STS_SUCCESS;
3183: ROLLBACK TO HANDLE_TAX_ADJUSTMENTS_PVT;
3184: x_msg_data := FND_MSG_PUB.GET();
3185: x_return_status := FND_API.g_ret_sts_unexp_error;
3186: IF G_FND_DEBUG = 'Y' THEN
3187: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
3188: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
3189: 'Exception: UnexpectedError '||x_msg_data||sqlerrm);
3190: END IF;
3191: END IF;
3184: x_msg_data := FND_MSG_PUB.GET();
3185: x_return_status := FND_API.g_ret_sts_unexp_error;
3186: IF G_FND_DEBUG = 'Y' THEN
3187: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
3188: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
3189: 'Exception: UnexpectedError '||x_msg_data||sqlerrm);
3190: END IF;
3191: END IF;
3192:
3197: ( p_count => x_msg_count ,
3198: p_data => x_msg_data
3199: );
3200: IF G_FND_DEBUG = 'Y' THEN
3201: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
3202: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
3203: 'Exception: ExpectedError '||x_msg_data||sqlerrm);
3204: END IF;
3205: END IF;
3198: p_data => x_msg_data
3199: );
3200: IF G_FND_DEBUG = 'Y' THEN
3201: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
3202: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
3203: 'Exception: ExpectedError '||x_msg_data||sqlerrm);
3204: END IF;
3205: END IF;
3206:
3213: ( p_count => x_msg_count ,
3214: p_data => x_msg_data
3215: );
3216: IF G_FND_DEBUG = 'Y' THEN
3217: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
3218: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
3219: 'Exception: UnExpectedError '||x_msg_data||sqlerrm);
3220: END IF;
3221: END IF;
3214: p_data => x_msg_data
3215: );
3216: IF G_FND_DEBUG = 'Y' THEN
3217: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
3218: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module,
3219: 'Exception: UnExpectedError '||x_msg_data||sqlerrm);
3220: END IF;
3221: END IF;
3222: