17: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
18: --
19: BEGIN
20:
21: l_return_status := FND_API.G_RET_STS_SUCCESS;
22:
23: IF l_debug_level > 0 THEN
24: oe_debug_pub.add('Entering Delete_Created_Records ',1);
25: END IF;
123: IF l_debug_level > 0 THEN
124: oe_debug_pub.add('Executing Versioning/Audit delayed request');
125: END IF;
126:
127: l_return_status := FND_API.G_RET_STS_SUCCESS;
128:
129: IF OE_GLOBALS.G_ROLL_VERSION <> 'N' THEN
130: Perform_Versioning (p_header_id => p_header_id,
131: p_document_type => p_document_type,
134: x_msg_data => x_msg_data,
135: x_return_status => l_return_status);
136:
137: --takintoy Version articles
138: If l_return_status = FND_API.G_RET_STS_SUCCESS
139: AND OE_Code_Control.Get_Code_Release_Level >= '110510'
140: Then
141: OE_Contracts_Util.Version_Articles(
142: p_api_version => 1,
153: Record_Changed_Records(
154: p_changed_attribute => p_changed_attribute,
155: x_return_status => l_return_status);
156: IF (NOT OE_Versioning_Util.Reset_Globals) THEN
157: l_return_status := FND_API.G_RET_STS_ERROR;
158: END IF;
159: END IF;
160:
161: IF l_debug_level > 0 THEN
193: BEGIN
194:
195: SAVEPOINT Perform_Versioning;
196:
197: l_return_status := FND_API.G_RET_STS_SUCCESS;
198: l_version_flag := 'N';
199: l_phase_change_flag := 'N';
200:
201: IF l_debug_level > 0 THEN
206: l_version_flag := 'Y';
207: l_phase_change_flag := 'Y';
208: IF (p_document_type <> 'BLANKETS') THEN
209: IF OE_ORDER_UTIL.g_old_header_rec.version_number IS NULL
210: OR OE_ORDER_UTIL.g_old_header_rec.version_number = FND_API.G_MISS_NUM THEN
211: select version_number into l_version_number from oe_order_headers_all where header_id = p_header_id;
212: ELSE
213: l_version_number := OE_ORDER_UTIL.g_old_header_rec.version_number;
214: END IF;
220: l_phase_change_flag := 'N';
221: l_version_flag := 'Y';
222: IF (p_document_type <> 'BLANKETS') THEN
223: IF OE_ORDER_UTIL.g_old_header_rec.version_number IS NULL
224: OR OE_ORDER_UTIL.g_old_header_rec.version_number = FND_API.G_MISS_NUM THEN
225: select version_number into l_version_number from oe_order_headers_all where header_id = p_header_id;
226: ELSE
227: l_version_number := OE_ORDER_UTIL.g_old_header_rec.version_number;
228: END IF;
261: ELSIF l_version_number < OE_Blanket_Util.g_old_header_hist_rec.version_number THEN
262: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_INVALID_REVISION_NUM');
263: OE_MSG_PUB.ADD;
264:
265: RAISE FND_API.G_EXC_ERROR;
266: END IF;
267: END IF;
268:
269: --Apply reason changes
267: END IF;
268:
269: --Apply reason changes
270: IF OE_GLOBALS.G_CAPTURED_REASON = 'Y' AND
271: OE_GLOBALS.G_REASON_CODE <> FND_API.G_MISS_CHAR THEN
272: OE_Reasons_Util.Apply_Reason(
273: p_entity_code => 'BLANKET_HEADER',
274: p_entity_id => p_header_id,
275: p_header_id => p_header_id,
290: ELSIF OE_GLOBALS.G_CAPTURED_REASON = 'V' THEN
291: FND_MESSAGE.SET_NAME('ONT','OE_AUDIT_REASON_RQD');
292: OE_MSG_PUB.ADD;
293:
294: RAISE FND_API.G_EXC_ERROR;
295: END IF;
296:
297: -- Bug 5156668
298: -- This needs to be called only in the end, hence commenting
296:
297: -- Bug 5156668
298: -- This needs to be called only in the end, hence commenting
299: -- IF (NOT Reset_Globals) THEN
300: -- RAISE FND_API.G_EXC_ERROR;
301: -- END IF;
302:
303: -- XDING: Commentting out this DOESNOT fix bug 5156668 but cause
304: -- regression issue 505564, so put this code back
302:
303: -- XDING: Commentting out this DOESNOT fix bug 5156668 but cause
304: -- regression issue 505564, so put this code back
305: IF (NOT Reset_Globals) THEN
306: RAISE FND_API.G_EXC_ERROR;
307: END IF;
308:
309: RETURN;
310: END IF;
322:
323: -- Bug 5156668
324: -- This needs to be called only in the end, hence commenting
325: -- IF (NOT Reset_Globals) THEN
326: -- RAISE FND_API.G_EXC_ERROR;
327: -- END IF;
328:
329: -- XDING: Commentting out this DOESNOT fix bug 5156668 but cause
330: -- regression issue 505564, so put this code back
328:
329: -- XDING: Commentting out this DOESNOT fix bug 5156668 but cause
330: -- regression issue 505564, so put this code back
331: IF (NOT Reset_Globals) THEN
332: RAISE FND_API.G_EXC_ERROR;
333: END IF;
334:
335: RETURN;
336: END IF;
341: p_phase_change_flag => l_phase_change_flag,
342: p_changed_attribute => p_changed_attribute,
343: x_return_status => l_return_status);
344:
345: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
346: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
347: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
348: RAISE FND_API.G_EXC_ERROR;
349: END IF;
342: p_changed_attribute => p_changed_attribute,
343: x_return_status => l_return_status);
344:
345: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
346: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
347: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
348: RAISE FND_API.G_EXC_ERROR;
349: END IF;
350:
343: x_return_status => l_return_status);
344:
345: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
346: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
347: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
348: RAISE FND_API.G_EXC_ERROR;
349: END IF;
350:
351: -- Record unchanged records
344:
345: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
346: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
347: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
348: RAISE FND_API.G_EXC_ERROR;
349: END IF;
350:
351: -- Record unchanged records
352: IF l_debug_level > 0 THEN
358: p_phase_change_flag => l_phase_change_flag,
359: p_changed_attribute => p_changed_attribute,
360: x_return_status => l_return_status);
361:
362: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
363: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
364: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
365: RAISE FND_API.G_EXC_ERROR;
366: END IF;
359: p_changed_attribute => p_changed_attribute,
360: x_return_status => l_return_status);
361:
362: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
363: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
364: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
365: RAISE FND_API.G_EXC_ERROR;
366: END IF;
367:
360: x_return_status => l_return_status);
361:
362: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
363: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
364: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
365: RAISE FND_API.G_EXC_ERROR;
366: END IF;
367:
368: l_return_status := Delete_Created_Records;
361:
362: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
363: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
364: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
365: RAISE FND_API.G_EXC_ERROR;
366: END IF;
367:
368: l_return_status := Delete_Created_Records;
369:
368: l_return_status := Delete_Created_Records;
369:
370: IF IS_REASON_RQD <> 'N' THEN
371: IF OE_GLOBALS.G_REASON_CODE IS NULL OR
372: OE_GLOBALS.G_REASON_CODE = FND_API.G_MISS_CHAR THEN
373: -- Get stored reason in event of SYSTEM change
374: Get_Reason_Info(x_reason_code => OE_GLOBALS.G_REASON_CODE,
375: x_reason_comments => OE_GLOBALS.G_REASON_COMMENTS);
376:
374: Get_Reason_Info(x_reason_code => OE_GLOBALS.G_REASON_CODE,
375: x_reason_comments => OE_GLOBALS.G_REASON_COMMENTS);
376:
377: IF OE_GLOBALS.G_REASON_CODE IS NOT NULL OR
378: OE_GLOBALS.G_REASON_CODE = FND_API.G_MISS_CHAR THEN
379: OE_GLOBALS.G_CAPTURED_REASON := 'Y';
380: END IF;
381: END IF;
382: END IF;
382: END IF;
383:
384: --Apply reason changes
385: IF (IS_REASON_RQD = 'Y' AND
386: OE_GLOBALS.G_REASON_CODE <> FND_API.G_MISS_CHAR) OR
387: (IS_REASON_RQD <> 'N' AND
388: OE_GLOBALS.G_DEFAULT_REASON) THEN
389:
390: IF OE_GLOBALS.G_DEFAULT_REASON THEN
419: ELSIF IS_REASON_RQD <> 'N' THEN
420: FND_MESSAGE.SET_NAME('ONT','OE_AUDIT_REASON_RQD');
421: OE_MSG_PUB.ADD;
422:
423: RAISE FND_API.G_EXC_ERROR;
424:
425: END IF;
426:
427: --Update l_version_number
435: (p_header_id => p_header_id
436: ,p_x_header_rec => l_x_header_rec
437: ,x_return_status => l_return_status
438: );
439: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
440: RAISE FND_API.G_EXC_ERROR;
441: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
443: END IF;
436: ,p_x_header_rec => l_x_header_rec
437: ,x_return_status => l_return_status
438: );
439: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
440: RAISE FND_API.G_EXC_ERROR;
441: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
443: END IF;
444: --End of Addition for Bug# 14084432
437: ,x_return_status => l_return_status
438: );
439: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
440: RAISE FND_API.G_EXC_ERROR;
441: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
443: END IF;
444: --End of Addition for Bug# 14084432
445: SELECT LOCK_CONTROL
438: );
439: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
440: RAISE FND_API.G_EXC_ERROR;
441: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
443: END IF;
444: --End of Addition for Bug# 14084432
445: SELECT LOCK_CONTROL
446: INTO l_lock_control
448: WHERE HEADER_ID = p_header_id;
449:
450: IF OE_ORDER_UTIL.G_HEADER_REC.VERSION_NUMBER = OE_ORDER_UTIL.G_OLD_HEADER_REC.VERSION_NUMBER
451: OR OE_ORDER_UTIL.G_HEADER_REC.VERSION_NUMBER IS NULL
452: OR OE_ORDER_UTIL.G_HEADER_REC.VERSION_NUMBER = FND_API.G_MISS_NUM
453: OR OE_ORDER_UTIL.G_OLD_HEADER_REC.VERSION_NUMBER IS NULL
454: OR OE_ORDER_UTIL.G_OLD_HEADER_REC.VERSION_NUMBER = FND_API.G_MISS_NUM THEN
455: UPDATE OE_ORDER_HEADERS_ALL
456: SET VERSION_NUMBER = l_version_number + 1,
450: IF OE_ORDER_UTIL.G_HEADER_REC.VERSION_NUMBER = OE_ORDER_UTIL.G_OLD_HEADER_REC.VERSION_NUMBER
451: OR OE_ORDER_UTIL.G_HEADER_REC.VERSION_NUMBER IS NULL
452: OR OE_ORDER_UTIL.G_HEADER_REC.VERSION_NUMBER = FND_API.G_MISS_NUM
453: OR OE_ORDER_UTIL.G_OLD_HEADER_REC.VERSION_NUMBER IS NULL
454: OR OE_ORDER_UTIL.G_OLD_HEADER_REC.VERSION_NUMBER = FND_API.G_MISS_NUM THEN
455: UPDATE OE_ORDER_HEADERS_ALL
456: SET VERSION_NUMBER = l_version_number + 1,
457: LOCK_CONTROL = l_lock_control + 1
458: WHERE HEADER_ID = p_header_id;
469: ELSIF OE_ORDER_UTIL.G_HEADER_REC.VERSION_NUMBER < OE_ORDER_UTIL.G_OLD_HEADER_REC.VERSION_NUMBER THEN
470: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_INVALID_REVISION_NUM');
471: OE_MSG_PUB.ADD;
472:
473: RAISE FND_API.G_EXC_ERROR;
474: END IF;
475: END IF;
476:
477: G_VERSION_NUMBER := l_version_number;
485:
486: -- Bug 5156668
487: -- This needs to be called only in the end, hence commenting
488: --IF (NOT Reset_Globals) THEN
489: -- RAISE FND_API.G_EXC_ERROR;
490: --END IF;
491:
492: -- XDING: Commentting out this DOESNOT fix bug 5156668 but cause
493: -- regression issue 505564, so put this code back
491:
492: -- XDING: Commentting out this DOESNOT fix bug 5156668 but cause
493: -- regression issue 505564, so put this code back
494: IF (NOT Reset_Globals) THEN
495: RAISE FND_API.G_EXC_ERROR;
496: END IF;
497:
498: EXCEPTION
499: WHEN FND_API.G_EXC_ERROR THEN
495: RAISE FND_API.G_EXC_ERROR;
496: END IF;
497:
498: EXCEPTION
499: WHEN FND_API.G_EXC_ERROR THEN
500: ROLLBACK TO SAVEPOINT Perform_Versioning;
501: x_return_status := FND_API.G_RET_STS_ERROR;
502: RAISE FND_API.G_EXC_ERROR;
503: WHEN OTHERS THEN
497:
498: EXCEPTION
499: WHEN FND_API.G_EXC_ERROR THEN
500: ROLLBACK TO SAVEPOINT Perform_Versioning;
501: x_return_status := FND_API.G_RET_STS_ERROR;
502: RAISE FND_API.G_EXC_ERROR;
503: WHEN OTHERS THEN
504: ROLLBACK TO SAVEPOINT Perform_Versioning;
505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
498: EXCEPTION
499: WHEN FND_API.G_EXC_ERROR THEN
500: ROLLBACK TO SAVEPOINT Perform_Versioning;
501: x_return_status := FND_API.G_RET_STS_ERROR;
502: RAISE FND_API.G_EXC_ERROR;
503: WHEN OTHERS THEN
504: ROLLBACK TO SAVEPOINT Perform_Versioning;
505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
506:
501: x_return_status := FND_API.G_RET_STS_ERROR;
502: RAISE FND_API.G_EXC_ERROR;
503: WHEN OTHERS THEN
504: ROLLBACK TO SAVEPOINT Perform_Versioning;
505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
506:
507: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
508: OE_MSG_PUB.Add_Exc_Msg
509: ( G_PKG_NAME
510: , 'Perform_Versioning'
511: );
512: END IF;
513:
514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
515:
516: END Perform_Versioning;
517:
518:
523: BEGIN
524:
525: -- Get current header_id
526:
527: if oe_order_util.g_header_id <> FND_API.G_MISS_NUM then
528: RETURN oe_order_util.g_header_id;
529: elsif
530: oe_order_util.g_old_header_rec.header_id <> FND_API.G_MISS_NUM then
531: RETURN oe_order_util.g_old_header_rec.header_id;
526:
527: if oe_order_util.g_header_id <> FND_API.G_MISS_NUM then
528: RETURN oe_order_util.g_header_id;
529: elsif
530: oe_order_util.g_old_header_rec.header_id <> FND_API.G_MISS_NUM then
531: RETURN oe_order_util.g_old_header_rec.header_id;
532: elsif
533: oe_order_util.g_header_rec.header_id <> FND_API.G_MISS_NUM then
534: RETURN oe_order_util.g_header_rec.header_id;
529: elsif
530: oe_order_util.g_old_header_rec.header_id <> FND_API.G_MISS_NUM then
531: RETURN oe_order_util.g_old_header_rec.header_id;
532: elsif
533: oe_order_util.g_header_rec.header_id <> FND_API.G_MISS_NUM then
534: RETURN oe_order_util.g_header_rec.header_id;
535: else
536: i := oe_order_util.g_old_line_tbl.FIRST; -- get subscript of first element
537: WHILE i IS NOT NULL LOOP
534: RETURN oe_order_util.g_header_rec.header_id;
535: else
536: i := oe_order_util.g_old_line_tbl.FIRST; -- get subscript of first element
537: WHILE i IS NOT NULL LOOP
538: if oe_order_util.g_old_line_tbl(i).header_id <> FND_API.G_MISS_NUM then
539: RETURN oe_order_util.g_old_line_tbl(i).header_id;
540: end if;
541: i := oe_order_util.g_old_line_tbl.NEXT(i); -- get subscript of next element
542: END LOOP;
542: END LOOP;
543:
544: i := oe_order_util.g_line_tbl.FIRST; -- get subscript of first element
545: WHILE i IS NOT NULL LOOP
546: if oe_order_util.g_line_tbl(i).header_id <> FND_API.G_MISS_NUM then
547: RETURN oe_order_util.g_line_tbl(i).header_id;
548: end if;
549: i := oe_order_util.g_line_tbl.NEXT(i); -- get subscript of next element
550: END LOOP;
550: END LOOP;
551:
552: i := oe_order_util.g_old_header_adj_tbl.FIRST; -- get subscript of first element
553: WHILE i IS NOT NULL LOOP
554: if oe_order_util.g_old_header_adj_tbl(i).header_id <> FND_API.G_MISS_NUM then
555: RETURN oe_order_util.g_old_header_adj_tbl(i).header_id;
556: end if;
557: i := oe_order_util.g_old_header_adj_tbl.NEXT(i); -- get subscript of next element
558: END LOOP;
558: END LOOP;
559:
560: i := oe_order_util.g_header_adj_tbl.FIRST; -- get subscript of first element
561: WHILE i IS NOT NULL LOOP
562: if oe_order_util.g_header_adj_tbl(i).header_id <> FND_API.G_MISS_NUM then
563: RETURN oe_order_util.g_header_adj_tbl(i).header_id;
564: end if;
565: i := oe_order_util.g_header_adj_tbl.NEXT(i); -- get subscript of next element
566: END LOOP;
566: END LOOP;
567:
568: i := oe_order_util.g_old_line_adj_tbl.FIRST; -- get subscript of first element
569: WHILE i IS NOT NULL LOOP
570: if oe_order_util.g_old_line_adj_tbl(i).header_id <> FND_API.G_MISS_NUM then
571: RETURN oe_order_util.g_old_line_adj_tbl(i).header_id;
572: end if;
573: i := oe_order_util.g_old_line_adj_tbl.NEXT(i); -- get subscript of next element
574: END LOOP;
574: END LOOP;
575:
576: i := oe_order_util.g_line_adj_tbl.FIRST; -- get subscript of first element
577: WHILE i IS NOT NULL LOOP
578: if oe_order_util.g_line_adj_tbl(i).header_id <> FND_API.G_MISS_NUM then
579: RETURN oe_order_util.g_line_adj_tbl(i).header_id;
580: end if;
581: i := oe_order_util.g_line_adj_tbl.NEXT(i); -- get subscript of next element
582: END LOOP;
582: END LOOP;
583:
584: i := oe_order_util.g_old_header_scredit_tbl.FIRST; -- get subscript of first element
585: WHILE i IS NOT NULL LOOP
586: if oe_order_util.g_old_header_scredit_tbl(i).header_id <> FND_API.G_MISS_NUM then
587: RETURN oe_order_util.g_old_header_scredit_tbl(i).header_id;
588: end if;
589: i := oe_order_util.g_old_header_scredit_tbl.NEXT(i); -- get subscript of next element
590: END LOOP;
590: END LOOP;
591:
592: i := oe_order_util.g_header_scredit_tbl.FIRST; -- get subscript of first element
593: WHILE i IS NOT NULL LOOP
594: if oe_order_util.g_header_scredit_tbl(i).header_id <> FND_API.G_MISS_NUM then
595: RETURN oe_order_util.g_header_scredit_tbl(i).header_id;
596: end if;
597: i := oe_order_util.g_header_scredit_tbl.NEXT(i); -- get subscript of next element
598: END LOOP;
598: END LOOP;
599:
600: i := oe_order_util.g_old_line_scredit_tbl.FIRST; -- get subscript of first element
601: WHILE i IS NOT NULL LOOP
602: if oe_order_util.g_old_line_scredit_tbl(i).header_id <> FND_API.G_MISS_NUM then
603: RETURN oe_order_util.g_old_line_scredit_tbl(i).header_id;
604: end if;
605: i := oe_order_util.g_old_line_scredit_tbl.NEXT(i); -- get subscript of next element
606: END LOOP;
606: END LOOP;
607:
608: i := oe_order_util.g_line_scredit_tbl.FIRST; -- get subscript of first element
609: WHILE i IS NOT NULL LOOP
610: if oe_order_util.g_line_scredit_tbl(i).header_id <> FND_API.G_MISS_NUM then
611: RETURN oe_order_util.g_line_scredit_tbl(i).header_id;
612: end if;
613: i := oe_order_util.g_line_scredit_tbl.NEXT(i); -- get subscript of next element
614: END LOOP;
639: --
640: BEGIN
641:
642: SAVEPOINT Record_Changed_Records;
643: l_return_status := FND_API.G_RET_STS_SUCCESS;
644:
645: IF l_debug_level > 0 THEN
646: oe_debug_pub.add('Entering OE_Versioning_util.record_changed_records ',1);
647: END IF;
652: oe_debug_pub.add('OE_Versioning_Util header_id: ' || l_header_id,1);
653: END IF;
654:
655: IF OE_ORDER_UTIL.g_old_header_rec.version_number IS NULL
656: OR OE_ORDER_UTIL.g_old_header_rec.version_number = FND_API.G_MISS_NUM THEN
657: select version_number into l_version_number from oe_order_headers_all where header_id = l_header_id;
658: ELSE
659: l_version_number := OE_ORDER_UTIL.g_old_header_rec.version_number;
660: END IF;
663: oe_debug_pub.add('Before updating history ',1);
664: END IF;
665:
666: --Update history with audit flag information gathered in global picture
667: IF OE_Order_Util.g_old_header_rec.header_id <> FND_API.G_MISS_NUM THEN
668: IF NOT OE_GLOBALS.Equal(OE_Order_Util.g_old_header_rec.operation, OE_GLOBALS.G_OPR_CREATE) AND
669: (p_version_flag = 'Y' OR p_phase_change_flag = 'Y' or
670: g_audit_header_hist_code IS NOT NULL) THEN
671:
689: p_reason_comments => OE_ORDER_UTIL.g_header_rec.change_comments,
690: x_reason_id => l_reason_id,
691: x_return_status => l_return_status);
692:
693: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
694: IF l_debug_level > 0 THEN
695: oe_debug_pub.add('Applying Audit Reason Caused Error on Header',1);
696: END IF;
697:
694: IF l_debug_level > 0 THEN
695: oe_debug_pub.add('Applying Audit Reason Caused Error on Header',1);
696: END IF;
697:
698: if l_return_status = FND_API.G_RET_STS_ERROR then
699: raise FND_API.G_EXC_ERROR;
700: else
701: raise FND_API.G_EXC_UNEXPECTED_ERROR;
702: end if;
695: oe_debug_pub.add('Applying Audit Reason Caused Error on Header',1);
696: END IF;
697:
698: if l_return_status = FND_API.G_RET_STS_ERROR then
699: raise FND_API.G_EXC_ERROR;
700: else
701: raise FND_API.G_EXC_UNEXPECTED_ERROR;
702: end if;
703: end if;
697:
698: if l_return_status = FND_API.G_RET_STS_ERROR then
699: raise FND_API.G_EXC_ERROR;
700: else
701: raise FND_API.G_EXC_UNEXPECTED_ERROR;
702: end if;
703: end if;
704:
705: end if; --end apply reason
724: p_changed_attribute => p_changed_attribute,
725: x_return_status => l_return_status
726: );
727:
728: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
729: IF l_debug_level > 0 THEN
730: oe_debug_pub.add('Inserting Header History Caused Error ',1);
731: END IF;
732:
729: IF l_debug_level > 0 THEN
730: oe_debug_pub.add('Inserting Header History Caused Error ',1);
731: END IF;
732:
733: if l_return_status = FND_API.G_RET_STS_ERROR then
734: raise FND_API.G_EXC_ERROR;
735: else
736: raise FND_API.G_EXC_UNEXPECTED_ERROR;
737: end if;
730: oe_debug_pub.add('Inserting Header History Caused Error ',1);
731: END IF;
732:
733: if l_return_status = FND_API.G_RET_STS_ERROR then
734: raise FND_API.G_EXC_ERROR;
735: else
736: raise FND_API.G_EXC_UNEXPECTED_ERROR;
737: end if;
738: end if;
732:
733: if l_return_status = FND_API.G_RET_STS_ERROR then
734: raise FND_API.G_EXC_ERROR;
735: else
736: raise FND_API.G_EXC_UNEXPECTED_ERROR;
737: end if;
738: end if;
739:
740: END IF;
772: -- but if reason is supplied for these hist types, it should be
773: -- captured.
774: OR (l_hist_type_code IN ('CANCELLATION','QUANTITY UPDATE')
775: and OE_ORDER_UTIL.g_line_tbl(i).change_reason is not null
776: and OE_ORDER_UTIL.g_line_tbl(i).change_reason <> fnd_api.g_miss_char
777: )
778: ) then
779: --Apply Reason for audit
780: OE_Reasons_Util.Apply_Reason(
787: p_reason_comments => OE_ORDER_UTIL.g_line_tbl(i).change_comments,
788: x_reason_id => l_reason_id,
789: x_return_status => l_return_status);
790:
791: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
792: IF l_debug_level > 0 THEN
793: oe_debug_pub.add('Applying Audit Reason Caused Error on Line',1);
794: END IF;
795:
792: IF l_debug_level > 0 THEN
793: oe_debug_pub.add('Applying Audit Reason Caused Error on Line',1);
794: END IF;
795:
796: if l_return_status = FND_API.G_RET_STS_ERROR then
797: raise FND_API.G_EXC_ERROR;
798: else
799: raise FND_API.G_EXC_UNEXPECTED_ERROR;
800: end if;
793: oe_debug_pub.add('Applying Audit Reason Caused Error on Line',1);
794: END IF;
795:
796: if l_return_status = FND_API.G_RET_STS_ERROR then
797: raise FND_API.G_EXC_ERROR;
798: else
799: raise FND_API.G_EXC_UNEXPECTED_ERROR;
800: end if;
801: end if;
795:
796: if l_return_status = FND_API.G_RET_STS_ERROR then
797: raise FND_API.G_EXC_ERROR;
798: else
799: raise FND_API.G_EXC_UNEXPECTED_ERROR;
800: end if;
801: end if;
802:
803: end if; --end apply reason
823: IF l_debug_level > 0 THEN
824: OE_DEBUG_PUB.add('IN OEXUVERB:After'||l_return_status,5);
825: END IF;
826:
827: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
828: IF l_debug_level > 0 THEN
829: oe_debug_pub.add('Inserting Line Audit History error',1);
830: END IF;
831: IF l_return_status = FND_API.G_RET_STS_ERROR then
827: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
828: IF l_debug_level > 0 THEN
829: oe_debug_pub.add('Inserting Line Audit History error',1);
830: END IF;
831: IF l_return_status = FND_API.G_RET_STS_ERROR then
832: raise FND_API.G_EXC_ERROR;
833: ELSE
834: raise FND_API.G_EXC_UNEXPECTED_ERROR;
835: END IF;
828: IF l_debug_level > 0 THEN
829: oe_debug_pub.add('Inserting Line Audit History error',1);
830: END IF;
831: IF l_return_status = FND_API.G_RET_STS_ERROR then
832: raise FND_API.G_EXC_ERROR;
833: ELSE
834: raise FND_API.G_EXC_UNEXPECTED_ERROR;
835: END IF;
836: END IF;
830: END IF;
831: IF l_return_status = FND_API.G_RET_STS_ERROR then
832: raise FND_API.G_EXC_ERROR;
833: ELSE
834: raise FND_API.G_EXC_UNEXPECTED_ERROR;
835: END IF;
836: END IF;
837:
838: END IF;
870: p_reason_comments => OE_ORDER_UTIL.g_header_adj_tbl(i).change_reason_text,
871: x_reason_id => l_reason_id,
872: x_return_status => l_return_status);
873:
874: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
875: IF l_debug_level > 0 THEN
876: oe_debug_pub.add('Applying Audit Reason Caused Error on Header Adj',1);
877: END IF;
878:
875: IF l_debug_level > 0 THEN
876: oe_debug_pub.add('Applying Audit Reason Caused Error on Header Adj',1);
877: END IF;
878:
879: if l_return_status = FND_API.G_RET_STS_ERROR then
880: raise FND_API.G_EXC_ERROR;
881: else
882: raise FND_API.G_EXC_UNEXPECTED_ERROR;
883: end if;
876: oe_debug_pub.add('Applying Audit Reason Caused Error on Header Adj',1);
877: END IF;
878:
879: if l_return_status = FND_API.G_RET_STS_ERROR then
880: raise FND_API.G_EXC_ERROR;
881: else
882: raise FND_API.G_EXC_UNEXPECTED_ERROR;
883: end if;
884: end if;
878:
879: if l_return_status = FND_API.G_RET_STS_ERROR then
880: raise FND_API.G_EXC_ERROR;
881: else
882: raise FND_API.G_EXC_UNEXPECTED_ERROR;
883: end if;
884: end if;
885:
886: end if; --end apply reason
906:
907: IF l_debug_level > 0 THEN
908: OE_DEBUG_PUB.add('IN OEXUVERB:After'||l_return_status,5);
909: END IF;
910: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
911: IF l_debug_level > 0 THEN
912: oe_debug_pub.add('Inserting Line Audit History error',1);
913: END IF;
914:
911: IF l_debug_level > 0 THEN
912: oe_debug_pub.add('Inserting Line Audit History error',1);
913: END IF;
914:
915: IF l_return_status = FND_API.G_RET_STS_ERROR then
916: raise FND_API.G_EXC_ERROR;
917: ELSE
918: raise FND_API.G_EXC_UNEXPECTED_ERROR;
919: END IF;
912: oe_debug_pub.add('Inserting Line Audit History error',1);
913: END IF;
914:
915: IF l_return_status = FND_API.G_RET_STS_ERROR then
916: raise FND_API.G_EXC_ERROR;
917: ELSE
918: raise FND_API.G_EXC_UNEXPECTED_ERROR;
919: END IF;
920: END IF;
914:
915: IF l_return_status = FND_API.G_RET_STS_ERROR then
916: raise FND_API.G_EXC_ERROR;
917: ELSE
918: raise FND_API.G_EXC_UNEXPECTED_ERROR;
919: END IF;
920: END IF;
921:
922: END IF;
955: p_reason_comments => OE_ORDER_UTIL.g_header_scredit_tbl(i).change_comments,
956: x_reason_id => l_reason_id,
957: x_return_status => l_return_status);
958:
959: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
960: IF l_debug_level > 0 THEN
961: oe_debug_pub.add('Applying Audit Reason Caused Error on Header Scredit',1);
962: END IF;
963:
960: IF l_debug_level > 0 THEN
961: oe_debug_pub.add('Applying Audit Reason Caused Error on Header Scredit',1);
962: END IF;
963:
964: if l_return_status = FND_API.G_RET_STS_ERROR then
965: raise FND_API.G_EXC_ERROR;
966: else
967: raise FND_API.G_EXC_UNEXPECTED_ERROR;
968: end if;
961: oe_debug_pub.add('Applying Audit Reason Caused Error on Header Scredit',1);
962: END IF;
963:
964: if l_return_status = FND_API.G_RET_STS_ERROR then
965: raise FND_API.G_EXC_ERROR;
966: else
967: raise FND_API.G_EXC_UNEXPECTED_ERROR;
968: end if;
969: end if;
963:
964: if l_return_status = FND_API.G_RET_STS_ERROR then
965: raise FND_API.G_EXC_ERROR;
966: else
967: raise FND_API.G_EXC_UNEXPECTED_ERROR;
968: end if;
969: end if;
970:
971: end if; --end apply reason
991:
992: IF l_debug_level > 0 THEN
993: OE_DEBUG_PUB.add('IN OEXUVERB:After'||l_return_status,5);
994: END IF;
995: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
996: IF l_debug_level > 0 THEN
997: oe_debug_pub.add('Inserting Line Audit History error',1);
998: END IF;
999: IF l_return_status = FND_API.G_RET_STS_ERROR then
995: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
996: IF l_debug_level > 0 THEN
997: oe_debug_pub.add('Inserting Line Audit History error',1);
998: END IF;
999: IF l_return_status = FND_API.G_RET_STS_ERROR then
1000: raise FND_API.G_EXC_ERROR;
1001: ELSE
1002: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1003: END IF;
996: IF l_debug_level > 0 THEN
997: oe_debug_pub.add('Inserting Line Audit History error',1);
998: END IF;
999: IF l_return_status = FND_API.G_RET_STS_ERROR then
1000: raise FND_API.G_EXC_ERROR;
1001: ELSE
1002: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1003: END IF;
1004: END IF;
998: END IF;
999: IF l_return_status = FND_API.G_RET_STS_ERROR then
1000: raise FND_API.G_EXC_ERROR;
1001: ELSE
1002: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1003: END IF;
1004: END IF;
1005:
1006: END IF;
1037: p_reason_comments => OE_ORDER_UTIL.g_line_adj_tbl(i).change_reason_text,
1038: x_reason_id => l_reason_id,
1039: x_return_status => l_return_status);
1040:
1041: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1042: IF l_debug_level > 0 THEN
1043: oe_debug_pub.add('Applying Audit Reason Caused Error on Line Adj',1);
1044: END IF;
1045:
1042: IF l_debug_level > 0 THEN
1043: oe_debug_pub.add('Applying Audit Reason Caused Error on Line Adj',1);
1044: END IF;
1045:
1046: if l_return_status = FND_API.G_RET_STS_ERROR then
1047: raise FND_API.G_EXC_ERROR;
1048: else
1049: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1050: end if;
1043: oe_debug_pub.add('Applying Audit Reason Caused Error on Line Adj',1);
1044: END IF;
1045:
1046: if l_return_status = FND_API.G_RET_STS_ERROR then
1047: raise FND_API.G_EXC_ERROR;
1048: else
1049: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1050: end if;
1051: end if;
1045:
1046: if l_return_status = FND_API.G_RET_STS_ERROR then
1047: raise FND_API.G_EXC_ERROR;
1048: else
1049: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1050: end if;
1051: end if;
1052:
1053: end if; --end apply reason
1073:
1074: IF l_debug_level > 0 THEN
1075: OE_DEBUG_PUB.add('IN OEXUVERB:After'||l_return_status,5);
1076: END IF;
1077: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
1078: IF l_debug_level > 0 THEN
1079: oe_debug_pub.add('Inserting Line Audit History error',1);
1080: END IF;
1081:
1078: IF l_debug_level > 0 THEN
1079: oe_debug_pub.add('Inserting Line Audit History error',1);
1080: END IF;
1081:
1082: IF l_return_status = FND_API.G_RET_STS_ERROR then
1083: raise FND_API.G_EXC_ERROR;
1084: ELSE
1085: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1086: END IF;
1079: oe_debug_pub.add('Inserting Line Audit History error',1);
1080: END IF;
1081:
1082: IF l_return_status = FND_API.G_RET_STS_ERROR then
1083: raise FND_API.G_EXC_ERROR;
1084: ELSE
1085: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1086: END IF;
1087: END IF;
1081:
1082: IF l_return_status = FND_API.G_RET_STS_ERROR then
1083: raise FND_API.G_EXC_ERROR;
1084: ELSE
1085: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1086: END IF;
1087: END IF;
1088:
1089: END IF;
1120: p_reason_comments => OE_ORDER_UTIL.g_line_scredit_tbl(i).change_comments,
1121: x_reason_id => l_reason_id,
1122: x_return_status => l_return_status);
1123:
1124: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1125: IF l_debug_level > 0 THEN
1126: oe_debug_pub.add('Applying Audit Reason Caused Error on Line Scredit',1);
1127: END IF;
1128:
1125: IF l_debug_level > 0 THEN
1126: oe_debug_pub.add('Applying Audit Reason Caused Error on Line Scredit',1);
1127: END IF;
1128:
1129: if l_return_status = FND_API.G_RET_STS_ERROR then
1130: raise FND_API.G_EXC_ERROR;
1131: else
1132: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1133: end if;
1126: oe_debug_pub.add('Applying Audit Reason Caused Error on Line Scredit',1);
1127: END IF;
1128:
1129: if l_return_status = FND_API.G_RET_STS_ERROR then
1130: raise FND_API.G_EXC_ERROR;
1131: else
1132: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1133: end if;
1134: end if;
1128:
1129: if l_return_status = FND_API.G_RET_STS_ERROR then
1130: raise FND_API.G_EXC_ERROR;
1131: else
1132: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1133: end if;
1134: end if;
1135:
1136: end if; --end apply reason
1156:
1157: IF l_debug_level > 0 THEN
1158: OE_DEBUG_PUB.add('IN OEXUVERB:After'||l_return_status,5);
1159: END IF;
1160: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
1161: IF l_debug_level > 0 THEN
1162: oe_debug_pub.add('Inserting Line Audit History error',1);
1163: END IF;
1164: IF l_return_status = FND_API.G_RET_STS_ERROR then
1160: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
1161: IF l_debug_level > 0 THEN
1162: oe_debug_pub.add('Inserting Line Audit History error',1);
1163: END IF;
1164: IF l_return_status = FND_API.G_RET_STS_ERROR then
1165: raise FND_API.G_EXC_ERROR;
1166: ELSE
1167: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1168: END IF;
1161: IF l_debug_level > 0 THEN
1162: oe_debug_pub.add('Inserting Line Audit History error',1);
1163: END IF;
1164: IF l_return_status = FND_API.G_RET_STS_ERROR then
1165: raise FND_API.G_EXC_ERROR;
1166: ELSE
1167: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1168: END IF;
1169: END IF;
1163: END IF;
1164: IF l_return_status = FND_API.G_RET_STS_ERROR then
1165: raise FND_API.G_EXC_ERROR;
1166: ELSE
1167: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1168: END IF;
1169: END IF;
1170:
1171: END IF;
1176: x_return_status := l_return_status;
1177:
1178: /*
1179: IF (NOT Reset_Globals) THEN
1180: RAISE FND_API.G_EXC_ERROR;
1181: END IF;
1182: */
1183: EXCEPTION
1184: WHEN OTHERS THEN
1182: */
1183: EXCEPTION
1184: WHEN OTHERS THEN
1185: ROLLBACK TO SAVEPOINT Record_Changed_Records;
1186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1187: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1188: OE_MSG_PUB.Add_Exc_Msg
1189: ( G_PKG_NAME
1190: , 'Record Changed Records'
1189: ( G_PKG_NAME
1190: , 'Record Changed Records'
1191: );
1192: END IF;
1193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1194:
1195: END Record_Changed_Records;
1196:
1197: Function Reset_Globals
1312:
1313: G_UI_CALLED := TRUE;
1314:
1315: IF p_entity_code = OE_GLOBALS.G_ENTITY_HEADER THEN
1316: IF OE_Order_Util.g_header_rec.change_reason <> FND_API.G_MISS_CHAR THEN
1317: g_temp_reason_code := OE_Order_Util.g_header_rec.change_reason;
1318: g_temp_reason_comments := OE_Order_Util.g_header_rec.change_comments;
1319: RETURN TRUE;
1320: END IF;
1326: l_ind,
1327: l_result,
1328: l_return_stat);
1329:
1330: IF l_result = FND_API.G_TRUE THEN
1331: IF p_entity_code = OE_GLOBALS.G_ENTITY_LINE THEN
1332: IF OE_Order_Util.g_line_tbl(l_ind).change_reason <> FND_API.G_MISS_CHAR THEN
1333: g_temp_reason_code := OE_Order_Util.g_line_tbl(l_ind).change_reason;
1334: g_temp_reason_comments := OE_Order_Util.g_line_tbl(l_ind).change_comments;
1328: l_return_stat);
1329:
1330: IF l_result = FND_API.G_TRUE THEN
1331: IF p_entity_code = OE_GLOBALS.G_ENTITY_LINE THEN
1332: IF OE_Order_Util.g_line_tbl(l_ind).change_reason <> FND_API.G_MISS_CHAR THEN
1333: g_temp_reason_code := OE_Order_Util.g_line_tbl(l_ind).change_reason;
1334: g_temp_reason_comments := OE_Order_Util.g_line_tbl(l_ind).change_comments;
1335: RETURN TRUE;
1336: END IF;
1334: g_temp_reason_comments := OE_Order_Util.g_line_tbl(l_ind).change_comments;
1335: RETURN TRUE;
1336: END IF;
1337: ELSIF p_entity_code = OE_GLOBALS.G_ENTITY_HEADER_ADJ THEN
1338: IF OE_Order_Util.g_header_adj_tbl(l_ind).change_reason_code <> FND_API.G_MISS_CHAR THEN
1339: g_temp_reason_code := OE_Order_Util.g_header_adj_tbl(l_ind).change_reason_code;
1340: g_temp_reason_comments := OE_Order_Util.g_header_adj_tbl(l_ind).change_reason_text;
1341: RETURN TRUE;
1342: END IF;
1340: g_temp_reason_comments := OE_Order_Util.g_header_adj_tbl(l_ind).change_reason_text;
1341: RETURN TRUE;
1342: END IF;
1343: ELSIF p_entity_code = OE_GLOBALS.G_ENTITY_HEADER_SCREDIT THEN
1344: IF OE_Order_Util.g_header_scredit_tbl(l_ind).change_reason <> FND_API.G_MISS_CHAR THEN
1345: g_temp_reason_code := OE_Order_Util.g_header_scredit_tbl(l_ind).change_reason;
1346: g_temp_reason_comments := OE_Order_Util.g_header_scredit_tbl(l_ind).change_comments;
1347: RETURN TRUE;
1348: END IF;
1346: g_temp_reason_comments := OE_Order_Util.g_header_scredit_tbl(l_ind).change_comments;
1347: RETURN TRUE;
1348: END IF;
1349: ELSIF p_entity_code = OE_GLOBALS.G_ENTITY_LINE_ADJ THEN
1350: IF OE_Order_Util.g_line_adj_tbl(l_ind).change_reason_code <> FND_API.G_MISS_CHAR THEN
1351: g_temp_reason_code := OE_Order_Util.g_line_adj_tbl(l_ind).change_reason_code;
1352: g_temp_reason_comments := OE_Order_Util.g_line_adj_tbl(l_ind).change_reason_text;
1353: RETURN TRUE;
1354: END IF;
1352: g_temp_reason_comments := OE_Order_Util.g_line_adj_tbl(l_ind).change_reason_text;
1353: RETURN TRUE;
1354: END IF;
1355: ELSIF p_entity_code = OE_GLOBALS.G_ENTITY_LINE_SCREDIT THEN
1356: IF OE_Order_Util.g_line_scredit_tbl(l_ind).change_reason <> FND_API.G_MISS_CHAR THEN
1357: g_temp_reason_code := OE_Order_Util.g_line_scredit_tbl(l_ind).change_reason;
1358: g_temp_reason_comments := OE_Order_Util.g_line_scredit_tbl(l_ind).change_comments;
1359: RETURN TRUE;
1360: END IF;
1484: x_reason_code := OE_GLOBALS.G_REASON_CODE;
1485: x_reason_comments := OE_GLOBALS.G_REASON_COMMENTS;
1486: end if;
1487:
1488: if oe_order_util.g_header_rec.change_reason <> FND_API.G_MISS_CHAR then
1489: x_reason_code := oe_order_util.g_header_rec.change_reason;
1490: x_reason_comments := oe_order_util.g_header_rec.change_comments;
1491: RETURN;
1492: else
1492: else
1493:
1494: i := oe_order_util.g_header_adj_tbl.FIRST; -- get subscript of first element
1495: WHILE i IS NOT NULL LOOP
1496: if oe_order_util.g_header_adj_tbl(i).change_reason_code <> FND_API.G_MISS_CHAR then
1497: x_reason_code := oe_order_util.g_header_adj_tbl(i).change_reason_code;
1498: x_reason_comments := oe_order_util.g_header_adj_tbl(i).change_reason_text;
1499: RETURN;
1500: end if;
1502: END LOOP;
1503:
1504: i := oe_order_util.g_header_scredit_tbl.FIRST;
1505: WHILE i IS NOT NULL LOOP
1506: if oe_order_util.g_header_scredit_tbl(i).change_reason <> FND_API.G_MISS_CHAR then
1507: x_reason_code := oe_order_util.g_header_scredit_tbl(i).change_reason;
1508: x_reason_comments := oe_order_util.g_header_scredit_tbl(i).change_comments;
1509: RETURN;
1510: end if;
1512: END LOOP;
1513:
1514: i := oe_order_util.g_line_tbl.FIRST;
1515: WHILE i IS NOT NULL LOOP
1516: if oe_order_util.g_line_tbl(i).change_reason <> FND_API.G_MISS_CHAR then
1517: x_reason_code := oe_order_util.g_line_tbl(i).change_reason;
1518: x_reason_comments := oe_order_util.g_line_tbl(i).change_comments;
1519: RETURN;
1520: end if;
1522: END LOOP;
1523:
1524: i := oe_order_util.g_line_adj_tbl.FIRST;
1525: WHILE i IS NOT NULL LOOP
1526: if oe_order_util.g_line_adj_tbl(i).change_reason_code <> FND_API.G_MISS_CHAR then
1527: x_reason_code := oe_order_util.g_line_adj_tbl(i).change_reason_code;
1528: x_reason_comments := oe_order_util.g_line_adj_tbl(i).change_reason_text;
1529: RETURN;
1530: end if;
1532: END LOOP;
1533:
1534: i := oe_order_util.g_line_scredit_tbl.FIRST;
1535: WHILE i IS NOT NULL LOOP
1536: if oe_order_util.g_line_scredit_tbl(i).change_reason <> FND_API.G_MISS_CHAR then
1537: x_reason_code := oe_order_util.g_line_scredit_tbl(i).change_reason;
1538: x_reason_comments := oe_order_util.g_line_scredit_tbl(i).change_comments;
1539: RETURN;
1540: end if;