25: BEGIN
26:
27: oe_debug_pub.add('Entering OE_DELAYED_REQUESTS_UTIL.VALIDATE_LSC_QUOTA_TOTAL', 1);
28:
29: x_return_status := FND_API.G_RET_STS_SUCCESS;
30: OPEN C_LSC_Quota_Total(p_line_id);
31: FETCH C_LSC_Quota_Total
32: INTO l_percent_total;
33: CLOSE C_LSC_Quota_Total;
38: l_percent_total <> 0)THEN
39: fnd_message.set_name('ONT','OE_VAL_TTL_LINE_CREDIT');
40: FND_MESSAGE.SET_TOKEN('TOTAL',to_char(l_percent_total));
41: OE_MSG_PUB.Add;
42: x_return_status := FND_API.G_RET_STS_ERROR;
43: END IF;
44:
45: oe_debug_pub.add('Exiting OE_DELAYED_REQUESTS_UTIL.VALIDATE_LSC_QUOTA_TOTAL', 1);
46:
45: oe_debug_pub.add('Exiting OE_DELAYED_REQUESTS_UTIL.VALIDATE_LSC_QUOTA_TOTAL', 1);
46:
47: EXCEPTION
48:
49: WHEN FND_API.G_EXC_ERROR THEN
50:
51: x_return_status := FND_API.G_RET_STS_ERROR;
52:
53: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
47: EXCEPTION
48:
49: WHEN FND_API.G_EXC_ERROR THEN
50:
51: x_return_status := FND_API.G_RET_STS_ERROR;
52:
53: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
54:
55: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
49: WHEN FND_API.G_EXC_ERROR THEN
50:
51: x_return_status := FND_API.G_RET_STS_ERROR;
52:
53: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
54:
55: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
56:
57: WHEN OTHERS THEN
51: x_return_status := FND_API.G_RET_STS_ERROR;
52:
53: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
54:
55: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
56:
57: WHEN OTHERS THEN
58:
59: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
55: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
56:
57: WHEN OTHERS THEN
58:
59: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
60:
61: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
62: THEN
63: OE_MSG_PUB.Add_Exc_Msg
85: EXCEPTION
86:
87: WHEN OTHERS THEN
88:
89: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
90:
91: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
92: THEN
93: OE_MSG_PUB.Add_Exc_Msg
129: EXCEPTION
130:
131: WHEN OTHERS THEN
132:
133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
134:
135: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
136: THEN
137: OE_MSG_PUB.Add_Exc_Msg
172: l_sales_credit_type_id NUMBER;
173: l_salesrep_id NUMBER;
174: l_percent NUMBER;
175: l_q_percent NUMBER;
176: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
177: l_sales_credit_id NUMBER;
178: l_service_type_code VARCHAR2(30); --Bug 4946843
179:
180: CURSOR PARENT IS
430: -- Set recursion mode.
431: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
432:
433: OE_ORDER_PVT.Line_Scredits
434: (p_validation_level => FND_API.G_VALID_LEVEL_FULL
435: ,p_control_rec => l_control_rec
436: ,p_x_Line_Scredit_tbl => l_Line_Scredit_tbl
437: ,p_x_old_Line_Scredit_tbl => l_old_Line_Scredit_tbl
438: ,x_return_status => l_return_status);
439:
440: -- Reset recursion mode.
441: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
442:
443: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
444: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
445: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
446: RAISE FND_API.G_EXC_ERROR;
447: END IF;
440: -- Reset recursion mode.
441: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
442:
443: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
444: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
445: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
446: RAISE FND_API.G_EXC_ERROR;
447: END IF;
448:
441: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
442:
443: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
444: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
445: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
446: RAISE FND_API.G_EXC_ERROR;
447: END IF;
448:
449: --comment out for notification project
442:
443: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
444: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
445: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
446: RAISE FND_API.G_EXC_ERROR;
447: END IF;
448:
449: --comment out for notification project
450: /* OE_ORDER_PVT.Process_Requests_And_notify
453: ,x_return_status => l_return_status
454: ,p_Line_Scredit_tbl => l_Line_Scredit_tbl
455: ,p_old_Line_Scredit_tbl => l_old_Line_Scredit_tbl);
456:
457: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
459: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
460: RAISE FND_API.G_EXC_ERROR;
461: END IF;
454: ,p_Line_Scredit_tbl => l_Line_Scredit_tbl
455: ,p_old_Line_Scredit_tbl => l_old_Line_Scredit_tbl);
456:
457: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
459: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
460: RAISE FND_API.G_EXC_ERROR;
461: END IF;
462: */
455: ,p_old_Line_Scredit_tbl => l_old_Line_Scredit_tbl);
456:
457: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
459: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
460: RAISE FND_API.G_EXC_ERROR;
461: END IF;
462: */
463: -- Clear Table
456:
457: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
459: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
460: RAISE FND_API.G_EXC_ERROR;
461: END IF;
462: */
463: -- Clear Table
464: l_Line_Scredit_tbl.DELETE;
469: x_return_status := l_return_status;
470:
471: EXCEPTION
472:
473: WHEN FND_API.G_EXC_ERROR THEN
474:
475: x_return_status := FND_API.G_RET_STS_ERROR;
476:
477: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
471: EXCEPTION
472:
473: WHEN FND_API.G_EXC_ERROR THEN
474:
475: x_return_status := FND_API.G_RET_STS_ERROR;
476:
477: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
478:
479: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
473: WHEN FND_API.G_EXC_ERROR THEN
474:
475: x_return_status := FND_API.G_RET_STS_ERROR;
476:
477: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
478:
479: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
480:
481: WHEN OTHERS THEN
475: x_return_status := FND_API.G_RET_STS_ERROR;
476:
477: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
478:
479: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
480:
481: WHEN OTHERS THEN
482:
483: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
479: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
480:
481: WHEN OTHERS THEN
482:
483: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
484:
485: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
486: THEN
487: OE_MSG_PUB.Add_Exc_Msg
517: l_header_id NUMBER := NULL;
518: l_line_id NUMBER := NULL;
519: l_discount_id NUMBER := 0;
520: l_duplicate VARCHAR2(30) := NULL;
521: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
522:
523: DUPLICATE_DISCOUNT EXCEPTION;
524:
525: BEGIN
549: AND line_id IS NULL;
550:
551: IF SQL%rowcount <> 0
552: THEN
553: l_return_status := FND_API.G_RET_STS_ERROR;
554:
555: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
556: THEN
557:
577: AND line_id = l_line_id
578: AND price_adjustment_id <> Nvl(l_entity_id, -1);
579:
580: IF SQL%rowcount <> 0 THEN
581: l_return_status := FND_API.G_RET_STS_ERROR;
582:
583: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
584: THEN
585:
606: x_return_status := l_return_status;
607:
608: WHEN OTHERS
609: THEN
610: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
611:
612: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
613: THEN
614: OE_MSG_PUB.Add_Exc_Msg
633: l_count NUMBER;
634: l_discount_count NUMBER;
635: l_fixed_price VARCHAR2(30) := NULL;
636: l_discount_name VARCHAR2(30) := NULL;
637: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
638: l_number NUMBER := 0;
639:
640:
641: FIXED_PRICE EXCEPTION;
695: IF l_count <> 0
696: AND l_discount_count = 1 THEN
697: oe_debug_pub.ADD('OEXSRLNB2: Check Fixed Price. '||
698: ' entity_code = ' || l_entity_code, 2);
699: l_return_status := FND_API.G_RET_STS_ERROR;
700: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
701: THEN
702:
703: FND_MESSAGE.SET_NAME('ONT', 'OE_DIS_FIXED_PRICE_HEADER');
761: IF SQL%rowcount <> 0
762: AND l_discount_count = 1 THEN
763: oe_debug_pub.ADD('OEXSRLNB2: Check Fixed Price. '||
764: ' entity_code = ' || l_entity_code, 2);
765: l_return_status := FND_API.G_RET_STS_ERROR;
766: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
767: THEN
768:
769: FND_MESSAGE.SET_NAME('ONT', 'OE_DIS_FIXED_PRICE_VIOL');
777: END IF;
778: END IF;
779:
780:
781: x_return_status := FND_API.G_RET_STS_SUCCESS;
782:
783: oe_debug_pub.add('Exiting OE_DELAYED_REQUESTS_UTIL.CHECK_FIXED_PRICE', 1);
784:
785: EXCEPTION
785: EXCEPTION
786:
787: WHEN NO_DATA_FOUND OR FIXED_PRICE
788: THEN
789: x_return_status := FND_API.G_RET_STS_SUCCESS;
790:
791: WHEN FIXED_PRICE_VIOLATE
792: THEN
793: x_return_status := l_return_status;
794:
795:
796: WHEN OTHERS
797: THEN
798: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
799:
800: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
801: THEN
802: OE_MSG_PUB.Add_Exc_Msg
819: l_header_id NUMBER := NULL;
820: l_line_id NUMBER := NULL;
821: l_percentage NUMBER := 0;
822: l_percent_total NUMBER := 0;
823: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
824: l_apply_order_adjs VARCHAR2(1) :=
825: Nvl(fnd_profile.value('OE_APPLY_ORDER_ADJS_TO_SERVICE'),
826: 'N');
827:
894: To_char(l_percent_total), 2);
895:
896: IF ( l_percent_total > 100 ) THEN
897:
898: l_return_status := FND_API.G_RET_STS_ERROR;
899:
900: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
901: THEN
902:
933:
934:
935: IF ( l_percent_total > 100 ) THEN
936:
937: l_return_status := FND_API.G_RET_STS_ERROR;
938:
939: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
940: THEN
941:
997: x_return_status := l_return_status;
998:
999:
1000: WHEN OTHERS THEN
1001: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1002:
1003: IF line_adj_total%isopen THEN
1004: CLOSE line_adj_total;
1005: END IF;
1093: -- Set recursion mode.
1094: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
1095:
1096: OE_ORDER_PVT.Lines
1097: (p_validation_level => FND_API.G_VALID_LEVEL_FULL
1098: ,p_control_rec => l_control_rec
1099: ,p_x_line_tbl => l_line_tbl
1100: ,p_x_old_line_tbl => l_old_line_tbl
1101: ,x_return_status => l_return_status);
1102:
1103: -- Reset recursion mode.
1104: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
1105:
1106: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1108: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1109: RAISE FND_API.G_EXC_ERROR;
1110: END IF;
1103: -- Reset recursion mode.
1104: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
1105:
1106: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1108: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1109: RAISE FND_API.G_EXC_ERROR;
1110: END IF;
1111:
1104: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
1105:
1106: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1108: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1109: RAISE FND_API.G_EXC_ERROR;
1110: END IF;
1111:
1112: --comment out for notification project
1105:
1106: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1108: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1109: RAISE FND_API.G_EXC_ERROR;
1110: END IF;
1111:
1112: --comment out for notification project
1113: /* OE_ORDER_PVT.Process_Requests_And_notify
1116: ,x_return_status => l_return_status
1117: ,p_line_tbl => l_line_tbl
1118: ,p_old_line_tbl => l_old_line_tbl);
1119:
1120: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1121: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1122: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1123: RAISE FND_API.G_EXC_ERROR;
1124: END IF;
1117: ,p_line_tbl => l_line_tbl
1118: ,p_old_line_tbl => l_old_line_tbl);
1119:
1120: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1121: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1122: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1123: RAISE FND_API.G_EXC_ERROR;
1124: END IF;
1125: */
1118: ,p_old_line_tbl => l_old_line_tbl);
1119:
1120: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1121: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1122: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1123: RAISE FND_API.G_EXC_ERROR;
1124: END IF;
1125: */
1126:
1119:
1120: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1121: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1122: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1123: RAISE FND_API.G_EXC_ERROR;
1124: END IF;
1125: */
1126:
1127: oe_debug_pub.add('Exiting OE_DELAYED_REQUESTS_UTIL.CREATE_CONFIG_ITEM', 1);
1127: oe_debug_pub.add('Exiting OE_DELAYED_REQUESTS_UTIL.CREATE_CONFIG_ITEM', 1);
1128:
1129: EXCEPTION
1130:
1131: WHEN FND_API.G_EXC_ERROR THEN
1132:
1133: x_return_status := FND_API.G_RET_STS_ERROR;
1134:
1135: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1129: EXCEPTION
1130:
1131: WHEN FND_API.G_EXC_ERROR THEN
1132:
1133: x_return_status := FND_API.G_RET_STS_ERROR;
1134:
1135: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1136:
1137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1131: WHEN FND_API.G_EXC_ERROR THEN
1132:
1133: x_return_status := FND_API.G_RET_STS_ERROR;
1134:
1135: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1136:
1137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1138:
1139: WHEN OTHERS THEN
1133: x_return_status := FND_API.G_RET_STS_ERROR;
1134:
1135: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1136:
1137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1138:
1139: WHEN OTHERS THEN
1140:
1141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1138:
1139: WHEN OTHERS THEN
1140:
1141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1142:
1143: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1144: THEN
1145: OE_MSG_PUB.Add_Exc_Msg
1175: l_msg_count NUMBER;
1176: l_msg_data VARCHAR2(2000);
1177: BEGIN
1178:
1179: x_return_status := FND_API.G_RET_STS_SUCCESS;
1180:
1181: oe_debug_pub.ADD('Entering delayed request utility for verify payment',1);
1182:
1183: OE_Verify_Payment_PUB.Verify_Payment
1182:
1183: OE_Verify_Payment_PUB.Verify_Payment
1184: ( p_header_id => p_header_id
1185: , p_calling_action => 'UPDATE'
1186: , p_delayed_request=> FND_API.G_TRUE
1187: , p_msg_count => l_msg_count
1188: , p_msg_data => l_msg_data
1189: , p_return_status => l_return_status
1190: );
1188: , p_msg_data => l_msg_data
1189: , p_return_status => l_return_status
1190: );
1191:
1192: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1194: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1195: RAISE FND_API.G_EXC_ERROR;
1196: END IF;
1189: , p_return_status => l_return_status
1190: );
1191:
1192: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1194: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1195: RAISE FND_API.G_EXC_ERROR;
1196: END IF;
1197:
1190: );
1191:
1192: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1194: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1195: RAISE FND_API.G_EXC_ERROR;
1196: END IF;
1197:
1198: oe_debug_pub.ADD('Exiting delayed request utility for verify payment',1);
1191:
1192: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1194: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1195: RAISE FND_API.G_EXC_ERROR;
1196: END IF;
1197:
1198: oe_debug_pub.ADD('Exiting delayed request utility for verify payment',1);
1199:
1198: oe_debug_pub.ADD('Exiting delayed request utility for verify payment',1);
1199:
1200: EXCEPTION
1201:
1202: WHEN FND_API.G_EXC_ERROR THEN
1203:
1204: x_return_status := FND_API.G_RET_STS_ERROR;
1205:
1206: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1200: EXCEPTION
1201:
1202: WHEN FND_API.G_EXC_ERROR THEN
1203:
1204: x_return_status := FND_API.G_RET_STS_ERROR;
1205:
1206: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1207:
1208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1202: WHEN FND_API.G_EXC_ERROR THEN
1203:
1204: x_return_status := FND_API.G_RET_STS_ERROR;
1205:
1206: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1207:
1208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1209:
1210: WHEN OTHERS THEN
1204: x_return_status := FND_API.G_RET_STS_ERROR;
1205:
1206: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1207:
1208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1209:
1210: WHEN OTHERS THEN
1211:
1212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1209:
1210: WHEN OTHERS THEN
1211:
1212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1213:
1214: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1215: THEN
1216: OE_MSG_PUB.Add_Exc_Msg
1254: OE_DEBUG_PUB.ADD('RMA: In INSERT_RMA_SCREDIT_ADJUSTMENT',1);
1255:
1256: OE_DEBUG_PUB.ADD('RMA: Line Id is '||TO_CHAR(p_line_id),2);
1257:
1258: x_return_status := FND_API.G_RET_STS_SUCCESS;
1259:
1260: -- bug 3317323
1261: BEGIN
1262: SELECT header_id, reference_header_id, reference_line_id,split_by
1281: (p_line_id => p_line_id
1282: ,x_line_Scredit_tbl => l_Line_Scredit_tbl
1283: ,x_return_status => l_return_status);
1284:
1285: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1287: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1288: RAISE FND_API.G_EXC_ERROR;
1289: END IF;
1282: ,x_line_Scredit_tbl => l_Line_Scredit_tbl
1283: ,x_return_status => l_return_status);
1284:
1285: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1287: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1288: RAISE FND_API.G_EXC_ERROR;
1289: END IF;
1290: EXCEPTION
1283: ,x_return_status => l_return_status);
1284:
1285: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1287: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1288: RAISE FND_API.G_EXC_ERROR;
1289: END IF;
1290: EXCEPTION
1291: WHEN NO_DATA_FOUND THEN
1284:
1285: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1287: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1288: RAISE FND_API.G_EXC_ERROR;
1289: END IF;
1290: EXCEPTION
1291: WHEN NO_DATA_FOUND THEN
1292: OE_DEBUG_PUB.ADD('There are no existing sales credits to delete',1);
1342: l_x_Line_Scredit_tbl(l_count + I):= l_line_Scredit_tbl(I);
1343: l_x_Line_Scredit_tbl(l_count + I).operation := OE_GLOBALS.G_OPR_CREATE;
1344: l_x_Line_Scredit_tbl(l_count + I).header_id := l_header_id;
1345: l_x_Line_Scredit_tbl(l_count + I).line_id := p_line_id;
1346: l_x_Line_Scredit_tbl(l_count + I).sales_credit_id := FND_API.G_MISS_NUM;
1347:
1348: END LOOP;
1349:
1350: END IF; /* end inserting sales credit */
1369: end if; /*End of changes for bug 6778016*/
1370:
1371: OE_DEBUG_PUB.ADD('Calling OE_ORDER_PVT.Line_Scredits',1);
1372: OE_ORDER_PVT.Line_Scredits
1373: (p_validation_level => FND_API.G_VALID_LEVEL_FULL
1374: ,p_control_rec => l_control_rec
1375: ,p_x_Line_Scredit_tbl => l_x_Line_Scredit_tbl
1376: ,p_x_old_Line_Scredit_tbl => l_x_old_Line_Scredit_tbl
1377: ,x_return_status => l_return_status);
1379: OE_DEBUG_PUB.ADD('After Calling OE_ORDER_PVT.Line_Scredits',1);
1380: -- Reset recursion mode.
1381: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
1382:
1383: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1384: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1385: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1386: RAISE FND_API.G_EXC_ERROR;
1387: END IF;
1380: -- Reset recursion mode.
1381: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
1382:
1383: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1384: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1385: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1386: RAISE FND_API.G_EXC_ERROR;
1387: END IF;
1388:
1381: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
1382:
1383: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1384: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1385: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1386: RAISE FND_API.G_EXC_ERROR;
1387: END IF;
1388:
1389: --comment out for notification project
1382:
1383: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1384: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1385: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1386: RAISE FND_API.G_EXC_ERROR;
1387: END IF;
1388:
1389: --comment out for notification project
1390: /* OE_ORDER_PVT.Process_Requests_And_notify
1393: ,x_return_status => l_return_status
1394: ,p_Line_Scredit_tbl => l_x_Line_Scredit_tbl
1395: ,p_old_Line_Scredit_tbl => l_x_old_Line_Scredit_tbl);
1396:
1397: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1399: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1400: RAISE FND_API.G_EXC_ERROR;
1401: END IF;
1394: ,p_Line_Scredit_tbl => l_x_Line_Scredit_tbl
1395: ,p_old_Line_Scredit_tbl => l_x_old_Line_Scredit_tbl);
1396:
1397: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1399: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1400: RAISE FND_API.G_EXC_ERROR;
1401: END IF;
1402: */
1395: ,p_old_Line_Scredit_tbl => l_x_old_Line_Scredit_tbl);
1396:
1397: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1399: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1400: RAISE FND_API.G_EXC_ERROR;
1401: END IF;
1402: */
1403: -- Clear Table
1396:
1397: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1399: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1400: RAISE FND_API.G_EXC_ERROR;
1401: END IF;
1402: */
1403: -- Clear Table
1404: l_Line_Scredit_tbl.DELETE;
1408: oe_debug_pub.add('Exit INSERT_RMA_SCREDIT_ADJUSTMENT',1);
1409: EXCEPTION
1410:
1411:
1412: WHEN FND_API.G_EXC_ERROR THEN
1413:
1414: x_return_status := FND_API.G_RET_STS_ERROR;
1415:
1416: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1410:
1411:
1412: WHEN FND_API.G_EXC_ERROR THEN
1413:
1414: x_return_status := FND_API.G_RET_STS_ERROR;
1415:
1416: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1417:
1418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1412: WHEN FND_API.G_EXC_ERROR THEN
1413:
1414: x_return_status := FND_API.G_RET_STS_ERROR;
1415:
1416: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1417:
1418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1419:
1420: WHEN OTHERS THEN
1414: x_return_status := FND_API.G_RET_STS_ERROR;
1415:
1416: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1417:
1418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1419:
1420: WHEN OTHERS THEN
1421:
1422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1419:
1420: WHEN OTHERS THEN
1421:
1422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1423:
1424: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1425: THEN
1426: OE_MSG_PUB.Add_Exc_Msg
1443: PROCEDURE Tax_Line ( x_return_status OUT NOCOPY VARCHAR2
1444: , p_line_id IN NUMBER
1445: )
1446: IS
1447: l_return_status Varchar2(30):= FND_API.G_RET_STS_SUCCESS;
1448: --l_tax_value NUMBER := 0;
1449: l_line_id NUMBER := p_line_id;
1450: l_msg_count NUMBER := 0;
1451: l_count NUMBER := 0;
1519: x_tax_value => l_tax_value,
1520: x_tax_out_tbl => l_tax_rec_out_tbl,
1521: x_return_status => l_return_status );
1522:
1523: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1524: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1525: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1526: RAISE FND_API.G_EXC_ERROR;
1527: END IF;
1520: x_tax_out_tbl => l_tax_rec_out_tbl,
1521: x_return_status => l_return_status );
1522:
1523: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1524: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1525: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1526: RAISE FND_API.G_EXC_ERROR;
1527: END IF;
1528:
1521: x_return_status => l_return_status );
1522:
1523: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1524: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1525: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1526: RAISE FND_API.G_EXC_ERROR;
1527: END IF;
1528:
1529: l_line_rec.tax_value := l_tax_value;
1522:
1523: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1524: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1525: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1526: RAISE FND_API.G_EXC_ERROR;
1527: END IF;
1528:
1529: l_line_rec.tax_value := l_tax_value;
1530:
1537: OE_Line_Adj_UTIL.Lock_Rows
1538: ( p_line_id => l_line_id
1539: ,x_line_adj_tbl => l_l_line_adj_tbl
1540: ,x_return_status => l_return_status);
1541: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1543: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1544: RAISE FND_API.G_EXC_ERROR;
1545: END IF;
1538: ( p_line_id => l_line_id
1539: ,x_line_adj_tbl => l_l_line_adj_tbl
1540: ,x_return_status => l_return_status);
1541: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1543: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1544: RAISE FND_API.G_EXC_ERROR;
1545: END IF;
1546: EXCEPTION
1539: ,x_line_adj_tbl => l_l_line_adj_tbl
1540: ,x_return_status => l_return_status);
1541: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1543: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1544: RAISE FND_API.G_EXC_ERROR;
1545: END IF;
1546: EXCEPTION
1547: WHEN OTHERS THEN
1540: ,x_return_status => l_return_status);
1541: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1543: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1544: RAISE FND_API.G_EXC_ERROR;
1545: END IF;
1546: EXCEPTION
1547: WHEN OTHERS THEN
1548: x_return_status := FND_API.G_RET_STS_SUCCESS;
1544: RAISE FND_API.G_EXC_ERROR;
1545: END IF;
1546: EXCEPTION
1547: WHEN OTHERS THEN
1548: x_return_status := FND_API.G_RET_STS_SUCCESS;
1549: END;
1550:
1551: -- If any TAX records exists, then delete those records.
1552: oe_debug_pub.add('line_adj_tbl count is : ' || l_l_line_adj_tbl.count , 1);
1674: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
1675:
1676: OE_Order_PVT.Process_order
1677: ( p_api_version_number => 1.0
1678: , p_init_msg_list => FND_API.G_FALSE
1679: , x_return_status => l_return_status
1680: , x_msg_count => l_msg_count
1681: , x_msg_data => l_msg_data
1682: , p_control_rec => l_control_rec
1705:
1706: -- Reset recursion mode.
1707: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
1708:
1709: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1711: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1712: RAISE FND_API.G_EXC_ERROR;
1713: END IF;
1706: -- Reset recursion mode.
1707: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
1708:
1709: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1711: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1712: RAISE FND_API.G_EXC_ERROR;
1713: END IF;
1714: oe_debug_pub.add('After calling Process_order API',2);
1707: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
1708:
1709: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1711: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1712: RAISE FND_API.G_EXC_ERROR;
1713: END IF;
1714: oe_debug_pub.add('After calling Process_order API',2);
1715: END IF;
1708:
1709: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1711: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1712: RAISE FND_API.G_EXC_ERROR;
1713: END IF;
1714: oe_debug_pub.add('After calling Process_order API',2);
1715: END IF;
1716: l_tax_rec_out_tbl.delete;
1716: l_tax_rec_out_tbl.delete;
1717: x_return_status := l_return_status;
1718: oe_debug_pub.add('Exiting Tax Line',1);
1719: EXCEPTION
1720: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1722:
1723: WHEN FND_API.G_EXC_ERROR THEN
1724: x_return_status := FND_API.G_RET_STS_ERROR;
1717: x_return_status := l_return_status;
1718: oe_debug_pub.add('Exiting Tax Line',1);
1719: EXCEPTION
1720: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1722:
1723: WHEN FND_API.G_EXC_ERROR THEN
1724: x_return_status := FND_API.G_RET_STS_ERROR;
1725:
1719: EXCEPTION
1720: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1722:
1723: WHEN FND_API.G_EXC_ERROR THEN
1724: x_return_status := FND_API.G_RET_STS_ERROR;
1725:
1726: WHEN NO_DATA_FOUND THEN
1727: x_return_status := FND_API.G_RET_STS_SUCCESS;
1720: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1722:
1723: WHEN FND_API.G_EXC_ERROR THEN
1724: x_return_status := FND_API.G_RET_STS_ERROR;
1725:
1726: WHEN NO_DATA_FOUND THEN
1727: x_return_status := FND_API.G_RET_STS_SUCCESS;
1728:
1723: WHEN FND_API.G_EXC_ERROR THEN
1724: x_return_status := FND_API.G_RET_STS_ERROR;
1725:
1726: WHEN NO_DATA_FOUND THEN
1727: x_return_status := FND_API.G_RET_STS_SUCCESS;
1728:
1729: WHEN OTHERS THEN
1730:
1731: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1734: ( G_PKG_NAME ,
1735: 'Tax Line'
1736: );
1737: END IF;
1738: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1740:
1741: END Tax_Line;
1742:
1735: 'Tax Line'
1736: );
1737: END IF;
1738: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1740:
1741: END Tax_Line;
1742:
1743: */
1770: , x_return_status => x_return_status
1771: , x_msg_count => l_msg_count
1772: , x_msg_data => l_msg_data
1773: );
1774: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1775: OE_Debug_PUB.Add('Error in OE_Holds_PUB.split_Holds',2);
1776: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1777: RAISE FND_API.G_EXC_ERROR;
1778: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1772: , x_msg_data => l_msg_data
1773: );
1774: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1775: OE_Debug_PUB.Add('Error in OE_Holds_PUB.split_Holds',2);
1776: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1777: RAISE FND_API.G_EXC_ERROR;
1778: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1779: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1780: END IF;
1773: );
1774: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1775: OE_Debug_PUB.Add('Error in OE_Holds_PUB.split_Holds',2);
1776: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1777: RAISE FND_API.G_EXC_ERROR;
1778: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1779: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1780: END IF;
1781: END IF; -- if split hold was successful
1774: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1775: OE_Debug_PUB.Add('Error in OE_Holds_PUB.split_Holds',2);
1776: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1777: RAISE FND_API.G_EXC_ERROR;
1778: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1779: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1780: END IF;
1781: END IF; -- if split hold was successful
1782:
1775: OE_Debug_PUB.Add('Error in OE_Holds_PUB.split_Holds',2);
1776: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1777: RAISE FND_API.G_EXC_ERROR;
1778: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1779: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1780: END IF;
1781: END IF; -- if split hold was successful
1782:
1783: OE_Debug_PUB.Add('Exiting OE_Delayed_Requests_Util.split_Hold',2);
1783: OE_Debug_PUB.Add('Exiting OE_Delayed_Requests_Util.split_Hold',2);
1784:
1785: EXCEPTION
1786:
1787: WHEN FND_API.G_EXC_ERROR THEN
1788:
1789: x_return_status := FND_API.G_RET_STS_ERROR;
1790:
1791: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1785: EXCEPTION
1786:
1787: WHEN FND_API.G_EXC_ERROR THEN
1788:
1789: x_return_status := FND_API.G_RET_STS_ERROR;
1790:
1791: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1792:
1793: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1787: WHEN FND_API.G_EXC_ERROR THEN
1788:
1789: x_return_status := FND_API.G_RET_STS_ERROR;
1790:
1791: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1792:
1793: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1794:
1795: WHEN OTHERS THEN
1789: x_return_status := FND_API.G_RET_STS_ERROR;
1790:
1791: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1792:
1793: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1794:
1795: WHEN OTHERS THEN
1796:
1797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1793: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1794:
1795: WHEN OTHERS THEN
1796:
1797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1798: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1799: THEN
1800: OE_MSG_PUB.Add_Exc_Msg
1801: ( G_PKG_NAME
1830: BEGIN
1831:
1832: OE_Debug_PUB.Add('Entering Eval_Hold_Source', 1);
1833: Oe_debug_pub.add('Hold entity: '|| p_hold_entity_code ||' '|| p_hold_entity_id,2);
1834: x_return_status := FND_API.G_RET_STS_SUCCESS;
1835:
1836: oe_holds_pub.evaluate_holds ( p_entity_code => p_entity_code
1837: ,p_entity_id => p_entity_id
1838: ,p_hold_entity_code => p_hold_entity_code
1843: );
1844:
1845:
1846:
1847: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1848: OE_Debug_PUB.Add('Error in OE_Holds_PUB.evaluate_holds',2);
1849: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1850: RAISE FND_API.G_EXC_ERROR;
1851: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1845:
1846:
1847: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1848: OE_Debug_PUB.Add('Error in OE_Holds_PUB.evaluate_holds',2);
1849: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1850: RAISE FND_API.G_EXC_ERROR;
1851: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1853: END IF;
1846:
1847: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1848: OE_Debug_PUB.Add('Error in OE_Holds_PUB.evaluate_holds',2);
1849: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1850: RAISE FND_API.G_EXC_ERROR;
1851: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1853: END IF;
1854: END IF;
1847: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1848: OE_Debug_PUB.Add('Error in OE_Holds_PUB.evaluate_holds',2);
1849: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1850: RAISE FND_API.G_EXC_ERROR;
1851: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1853: END IF;
1854: END IF;
1855:
1848: OE_Debug_PUB.Add('Error in OE_Holds_PUB.evaluate_holds',2);
1849: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1850: RAISE FND_API.G_EXC_ERROR;
1851: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1853: END IF;
1854: END IF;
1855:
1856: OE_Debug_PUB.Add('Exiting Eval_Hold_Source', 1);
1855:
1856: OE_Debug_PUB.Add('Exiting Eval_Hold_Source', 1);
1857:
1858: EXCEPTION
1859: WHEN FND_API.G_EXC_ERROR THEN
1860:
1861: x_return_status := FND_API.G_RET_STS_ERROR;
1862:
1863: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1857:
1858: EXCEPTION
1859: WHEN FND_API.G_EXC_ERROR THEN
1860:
1861: x_return_status := FND_API.G_RET_STS_ERROR;
1862:
1863: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1864:
1865: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1859: WHEN FND_API.G_EXC_ERROR THEN
1860:
1861: x_return_status := FND_API.G_RET_STS_ERROR;
1862:
1863: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1864:
1865: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1866:
1867: WHEN OTHERS THEN
1861: x_return_status := FND_API.G_RET_STS_ERROR;
1862:
1863: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1864:
1865: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1866:
1867: WHEN OTHERS THEN
1868:
1869: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1865: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1866:
1867: WHEN OTHERS THEN
1868:
1869: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1870: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1871: THEN
1872: OE_MSG_PUB.Add_Exc_Msg
1873: ( G_PKG_NAME
1964: l_hold_source_rec.attribute13 := l_request_rec.param23;
1965: l_hold_source_rec.attribute14 := l_request_rec.param24;
1966: l_hold_source_rec.attribute15 := l_request_rec.param25;
1967:
1968: l_request_rec.return_status := FND_API.G_RET_STS_SUCCESS;
1969:
1970: -- Changed the following to new signiture 2/24/2000 - ZB
1971: /*
1972: OE_Holds_PUB.Apply_Holds
1981: );
1982: */
1983: OE_Holds_PUB.Apply_Holds
1984: ( p_api_version => 1.0
1985: , p_validation_level => FND_API.G_VALID_LEVEL_NONE
1986: , p_hold_source_rec => l_hold_source_rec
1987: , x_return_status => l_return_status
1988: , x_msg_count => l_msg_count
1989: , x_msg_data => l_msg_data
1989: , x_msg_data => l_msg_data
1990: );
1991:
1992:
1993: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1994: OE_Debug_PUB.Add('OEXUREQB:Error in OE_Holds_PUB.Apply_Holds',1);
1995: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1996: RAISE FND_API.G_EXC_ERROR;
1997: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1991:
1992:
1993: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1994: OE_Debug_PUB.Add('OEXUREQB:Error in OE_Holds_PUB.Apply_Holds',1);
1995: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1996: RAISE FND_API.G_EXC_ERROR;
1997: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1998: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1999: END IF;
1992:
1993: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1994: OE_Debug_PUB.Add('OEXUREQB:Error in OE_Holds_PUB.Apply_Holds',1);
1995: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1996: RAISE FND_API.G_EXC_ERROR;
1997: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1998: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1999: END IF;
2000: ELSE
1993: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1994: OE_Debug_PUB.Add('OEXUREQB:Error in OE_Holds_PUB.Apply_Holds',1);
1995: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1996: RAISE FND_API.G_EXC_ERROR;
1997: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1998: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1999: END IF;
2000: ELSE
2001: OE_Debug_PUB.Add('OEXUREQB:Hold applied',1);
1994: OE_Debug_PUB.Add('OEXUREQB:Error in OE_Holds_PUB.Apply_Holds',1);
1995: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1996: RAISE FND_API.G_EXC_ERROR;
1997: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1998: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1999: END IF;
2000: ELSE
2001: OE_Debug_PUB.Add('OEXUREQB:Hold applied',1);
2002: END IF;
2005:
2006: OE_Debug_PUB.Add('Exiting OE_Delayed_Requests_Util.Apply_Hold',1);
2007: EXCEPTION
2008:
2009: WHEN FND_API.G_EXC_ERROR THEN
2010:
2011: l_request_rec.return_status := FND_API.G_RET_STS_ERROR;
2012: x_request_rec := l_request_rec;
2013:
2007: EXCEPTION
2008:
2009: WHEN FND_API.G_EXC_ERROR THEN
2010:
2011: l_request_rec.return_status := FND_API.G_RET_STS_ERROR;
2012: x_request_rec := l_request_rec;
2013:
2014: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2015:
2010:
2011: l_request_rec.return_status := FND_API.G_RET_STS_ERROR;
2012: x_request_rec := l_request_rec;
2013:
2014: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2015:
2016: l_request_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2017: x_request_rec := l_request_rec;
2018:
2012: x_request_rec := l_request_rec;
2013:
2014: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2015:
2016: l_request_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2017: x_request_rec := l_request_rec;
2018:
2019: WHEN OTHERS THEN
2020:
2017: x_request_rec := l_request_rec;
2018:
2019: WHEN OTHERS THEN
2020:
2021: l_request_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2022: x_request_rec := l_request_rec;
2023: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2024: THEN
2025: OE_MSG_PUB.Add_Exc_Msg
2089: l_hold_source_rec.line_id := l_request_rec.entity_id;
2090:
2091: END IF;
2092:
2093: l_request_rec.return_status := FND_API.G_RET_STS_SUCCESS;
2094:
2095: l_hold_id := l_request_rec.param1;
2096: l_entity_code := l_request_rec.param2;
2097:
2141: ,x_msg_data => l_msg_data
2142: );
2143: OE_DEBUG_PUB.Add('x_return_status:' || l_return_status,1);
2144:
2145: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2146: OE_Debug_PUB.Add('Error in OE_Holds_PUB.Release_Holds',2);
2147: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2148: RAISE FND_API.G_EXC_ERROR;
2149: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2143: OE_DEBUG_PUB.Add('x_return_status:' || l_return_status,1);
2144:
2145: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2146: OE_Debug_PUB.Add('Error in OE_Holds_PUB.Release_Holds',2);
2147: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2148: RAISE FND_API.G_EXC_ERROR;
2149: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2150: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2151: END IF;
2144:
2145: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2146: OE_Debug_PUB.Add('Error in OE_Holds_PUB.Release_Holds',2);
2147: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2148: RAISE FND_API.G_EXC_ERROR;
2149: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2150: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2151: END IF;
2152: ELSE
2145: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2146: OE_Debug_PUB.Add('Error in OE_Holds_PUB.Release_Holds',2);
2147: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2148: RAISE FND_API.G_EXC_ERROR;
2149: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2150: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2151: END IF;
2152: ELSE
2153: OE_Debug_PUB.Add('Hold released',1);
2146: OE_Debug_PUB.Add('Error in OE_Holds_PUB.Release_Holds',2);
2147: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2148: RAISE FND_API.G_EXC_ERROR;
2149: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2150: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2151: END IF;
2152: ELSE
2153: OE_Debug_PUB.Add('Hold released',1);
2154: END IF;
2156: x_request_rec := l_request_rec;
2157: OE_Debug_PUB.Add('Exiting OE_Delayed_Requests_Util.Release_Hold',1);
2158: EXCEPTION
2159:
2160: WHEN FND_API.G_EXC_ERROR THEN
2161:
2162: l_request_rec.return_status := FND_API.G_RET_STS_ERROR;
2163: x_request_rec := l_request_rec;
2164:
2158: EXCEPTION
2159:
2160: WHEN FND_API.G_EXC_ERROR THEN
2161:
2162: l_request_rec.return_status := FND_API.G_RET_STS_ERROR;
2163: x_request_rec := l_request_rec;
2164:
2165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2166:
2161:
2162: l_request_rec.return_status := FND_API.G_RET_STS_ERROR;
2163: x_request_rec := l_request_rec;
2164:
2165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2166:
2167: l_request_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2168: x_request_rec := l_request_rec;
2169:
2163: x_request_rec := l_request_rec;
2164:
2165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2166:
2167: l_request_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2168: x_request_rec := l_request_rec;
2169:
2170: WHEN OTHERS THEN
2171:
2168: x_request_rec := l_request_rec;
2169:
2170: WHEN OTHERS THEN
2171:
2172: l_request_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2173: x_request_rec := l_request_rec;
2174: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2175: THEN
2176: OE_MSG_PUB.Add_Exc_Msg
2200: x_return_Status => l_return_status,
2201: x_msg_count => x_msg_count,
2202: x_msg_data => x_msg_data);
2203: x_return_status := l_return_status;
2204: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2206: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2207: RAISE FND_API.G_EXC_ERROR;
2208: END IF;
2201: x_msg_count => x_msg_count,
2202: x_msg_data => x_msg_data);
2203: x_return_status := l_return_status;
2204: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2206: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2207: RAISE FND_API.G_EXC_ERROR;
2208: END IF;
2209:
2202: x_msg_data => x_msg_data);
2203: x_return_status := l_return_status;
2204: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2206: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2207: RAISE FND_API.G_EXC_ERROR;
2208: END IF;
2209:
2210:
2203: x_return_status := l_return_status;
2204: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2206: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2207: RAISE FND_API.G_EXC_ERROR;
2208: END IF;
2209:
2210:
2211: EXCEPTION
2209:
2210:
2211: EXCEPTION
2212:
2213: WHEN FND_API.G_EXC_ERROR THEN
2214:
2215: x_return_status := FND_API.G_RET_STS_ERROR;
2216:
2217: -- Get message count and data
2211: EXCEPTION
2212:
2213: WHEN FND_API.G_EXC_ERROR THEN
2214:
2215: x_return_status := FND_API.G_RET_STS_ERROR;
2216:
2217: -- Get message count and data
2218:
2219: OE_MSG_PUB.Count_And_Get
2220: ( p_count => x_msg_count
2221: , p_data => x_msg_data
2222: );
2223:
2224: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2225:
2226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2227: -- Get message count and data
2228:
2222: );
2223:
2224: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2225:
2226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2227: -- Get message count and data
2228:
2229: OE_MSG_PUB.Count_And_Get
2230: ( p_count => x_msg_count
2232: );
2233:
2234: WHEN OTHERS THEN
2235:
2236: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2237:
2238: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2239: THEN
2240: OE_MSG_PUB.Add_Exc_Msg
2269: X_Return_Status => l_return_status,
2270: x_msg_count => x_msg_count,
2271: x_msg_data => x_msg_data);
2272: x_return_status := l_return_status;
2273: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2275: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2276: RAISE FND_API.G_EXC_ERROR;
2277: END IF;
2270: x_msg_count => x_msg_count,
2271: x_msg_data => x_msg_data);
2272: x_return_status := l_return_status;
2273: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2275: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2276: RAISE FND_API.G_EXC_ERROR;
2277: END IF;
2278:
2271: x_msg_data => x_msg_data);
2272: x_return_status := l_return_status;
2273: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2275: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2276: RAISE FND_API.G_EXC_ERROR;
2277: END IF;
2278:
2279:
2272: x_return_status := l_return_status;
2273: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2275: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2276: RAISE FND_API.G_EXC_ERROR;
2277: END IF;
2278:
2279:
2280: EXCEPTION
2278:
2279:
2280: EXCEPTION
2281:
2282: WHEN FND_API.G_EXC_ERROR THEN
2283:
2284: x_return_status := FND_API.G_RET_STS_ERROR;
2285:
2286: -- Get message count and data
2280: EXCEPTION
2281:
2282: WHEN FND_API.G_EXC_ERROR THEN
2283:
2284: x_return_status := FND_API.G_RET_STS_ERROR;
2285:
2286: -- Get message count and data
2287:
2288: OE_MSG_PUB.Count_And_Get
2289: ( p_count => x_msg_count
2290: , p_data => x_msg_data
2291: );
2292:
2293: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2294:
2295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2296: -- Get message count and data
2297:
2291: );
2292:
2293: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2294:
2295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2296: -- Get message count and data
2297:
2298: OE_MSG_PUB.Count_And_Get
2299: ( p_count => x_msg_count
2301: );
2302:
2303: WHEN OTHERS THEN
2304:
2305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2306:
2307: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2308: THEN
2309: OE_MSG_PUB.Add_Exc_Msg
2333: l_msg_count NUMBER;
2334: l_msg_data VARCHAR2(2000);
2335: BEGIN
2336:
2337: x_return_status := FND_API.G_RET_STS_SUCCESS;
2338:
2339: OE_Order_Book_Util.Complete_Book_Eligible
2340: ( p_api_version_number => 1.0
2341: , p_header_id => p_header_id
2344: , x_msg_data => l_msg_data);
2345:
2346: EXCEPTION
2347: WHEN OTHERS THEN
2348: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2349: IF OE_MSG_PUB.Check_Msg_Level
2350: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2351: THEN
2352: OE_MSG_PUB.Add_Exc_Msg
2370: l_action VARCHAR2(1);
2371:
2372: BEGIN
2373:
2374: x_return_status := FND_API.G_RET_STS_SUCCESS;
2375:
2376: IF p_entity_code = OE_Globals.G_ENTITY_HEADER THEN
2377:
2378: l_header_id := p_entity_id;
2423: fnd_message.set_name('ONT','OE_FTE_NOT_ENABLED');
2424: OE_MSG_PUB.Add;
2425: oe_debug_pub.add('Unable to process FTE integration either due to
2426: FTE is not enabled or action code is invalid.', 3);
2427: x_return_status := FND_API.G_RET_STS_ERROR;
2428: END IF;
2429:
2430: OE_DEBUG_PUB.Add('Return Status fte action: '||x_return_status);
2431:
2430: OE_DEBUG_PUB.Add('Return Status fte action: '||x_return_status);
2431:
2432: EXCEPTION
2433: WHEN OTHERS THEN
2434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2435: IF OE_MSG_PUB.Check_Msg_Level
2436: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2437: THEN
2438: OE_MSG_PUB.Add_Exc_Msg
2458: --R12.MOAC
2459: l_selelect_line_tbl OE_GLOBALS.Selected_Record_Tbl;
2460: BEGIN
2461:
2462: x_return_status := FND_API.G_RET_STS_SUCCESS;
2463:
2464:
2465: BEGIN
2466: SELECT header_id
2497:
2498: OE_DEBUG_PUB.Add('After Calling Process Sets'||x_return_status,1);
2499:
2500:
2501: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2503: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
2504: RAISE FND_API.G_EXC_ERROR;
2505: END IF;
2498: OE_DEBUG_PUB.Add('After Calling Process Sets'||x_return_status,1);
2499:
2500:
2501: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2503: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
2504: RAISE FND_API.G_EXC_ERROR;
2505: END IF;
2506:
2499:
2500:
2501: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2503: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
2504: RAISE FND_API.G_EXC_ERROR;
2505: END IF;
2506:
2507: EXCEPTION
2500:
2501: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2503: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
2504: RAISE FND_API.G_EXC_ERROR;
2505: END IF;
2506:
2507: EXCEPTION
2508: WHEN OTHERS THEN
2505: END IF;
2506:
2507: EXCEPTION
2508: WHEN OTHERS THEN
2509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2510: IF OE_MSG_PUB.Check_Msg_Level
2511: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2512: THEN
2513: OE_MSG_PUB.Add_Exc_Msg
2564: ( p_update_lines_tbl => l_update_lines_tbl,
2565: x_return_status => x_return_status);
2566:
2567:
2568: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
2569:
2570: l_update_shipping_index := p_update_shipping_tbl.FIRST;
2571: WHILE l_update_shipping_index IS NOT NULL
2572: LOOP
2605:
2606: OE_Debug_PUB.Add('Exiting OE_Delayed_Requests_Util.Update_Shipping',1);
2607: EXCEPTION
2608: WHEN OTHERS THEN
2609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2610:
2611: IF OE_MSG_PUB.Check_Msg_Level
2612: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2613: THEN
2674: OE_Debug_PUB.Add('Exiting OE_Delayed_Requests_Util.Ship_Confirmation',1);
2675:
2676: EXCEPTION
2677: WHEN OTHERS THEN
2678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2679: IF OE_MSG_PUB.Check_Msg_Level
2680: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2681: THEN
2682: OE_MSG_PUB.Add_Exc_Msg
2785: EXCEPTION
2786: when no_data_found then
2787: oe_debug_pub.add
2788: ('no_data_found in OE_Delayed_Req_Util.VALIDATE_CONFIGURATION', 1);
2789: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2790: when others then
2791: oe_debug_pub.add
2792: ('Exception in OE_Delayed_Req_Util.VALIDATE_CONFIGURATION', 1);
2793: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2789: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2790: when others then
2791: oe_debug_pub.add
2792: ('Exception in OE_Delayed_Req_Util.VALIDATE_CONFIGURATION', 1);
2793: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2794: END VALIDATE_CONFIGURATION;
2795:
2796: Procedure Match_And_Reserve
2797: ( p_line_id IN NUMBER
2917: -- since multiple lines have changed.
2918:
2919: oe_debug_pub.add('Setting G_CASCADING_REQUEST_LOGGED',2);
2920:
2921: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2922: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
2923: END IF;
2924:
2925: x_return_status := l_return_status;
2925: x_return_status := l_return_status;
2926:
2927: EXCEPTION
2928:
2929: WHEN FND_API.G_EXC_ERROR THEN
2930: x_return_status := FND_API.G_RET_STS_ERROR;
2931:
2932: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2933:
2926:
2927: EXCEPTION
2928:
2929: WHEN FND_API.G_EXC_ERROR THEN
2930: x_return_status := FND_API.G_RET_STS_ERROR;
2931:
2932: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2933:
2934: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2928:
2929: WHEN FND_API.G_EXC_ERROR THEN
2930: x_return_status := FND_API.G_RET_STS_ERROR;
2931:
2932: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2933:
2934: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2935: THEN
2936: OE_MSG_PUB.Add_Exc_Msg
3020: BEGIN
3021:
3022: OE_DEBUG_PUB.ADD('Entering INSERT_RMA_OPTIONS_INCLUDED',1);
3023:
3024: x_return_status := FND_API.G_RET_STS_SUCCESS;
3025:
3026: BEGIN
3027: -- query the return line and to see if it's a referenced line
3028: OE_Line_Util.query_row(p_line_id => p_line_id,
3102: THEN
3103: OE_Line_Util.query_row(p_line_id => l_child.line_id,
3104: x_line_rec => l_child_line_rec);
3105:
3106: IF OE_ORDER_COPY_UTIL.G_COPY_REC.line_descflex = FND_API.G_TRUE THEN
3107: -- Pre populate the DFF info from reference line
3108: OE_ORDER_COPY_UTIL.copy_line_dff_from_ref
3109: (p_ref_line_rec => l_child_line_rec,
3110: p_x_line_rec => l_line_tbl(l_number));
3163: -- logged for the child return line
3164: OE_GLOBALS.G_RETURN_CHILDREN_MODE := 'Y';
3165:
3166: OE_ORDER_PVT.Lines
3167: (p_validation_level => FND_API.G_VALID_LEVEL_FULL
3168: ,p_control_rec => l_control_rec
3169: ,p_x_line_tbl => l_line_tbl
3170: ,p_x_old_line_tbl => l_old_line_tbl
3171: ,x_return_status => l_return_status);
3174: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
3175:
3176: OE_GLOBALS.G_RETURN_CHILDREN_MODE := 'N';
3177:
3178: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3179: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3180: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3181: RAISE FND_API.G_EXC_ERROR;
3182: END IF;
3175:
3176: OE_GLOBALS.G_RETURN_CHILDREN_MODE := 'N';
3177:
3178: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3179: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3180: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3181: RAISE FND_API.G_EXC_ERROR;
3182: END IF;
3183:
3176: OE_GLOBALS.G_RETURN_CHILDREN_MODE := 'N';
3177:
3178: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3179: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3180: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3181: RAISE FND_API.G_EXC_ERROR;
3182: END IF;
3183:
3184: --comment out for notification project
3177:
3178: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3179: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3180: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3181: RAISE FND_API.G_EXC_ERROR;
3182: END IF;
3183:
3184: --comment out for notification project
3185: /* OE_ORDER_PVT.Process_Requests_And_notify
3188: ,x_return_status => l_return_status
3189: ,p_line_tbl => l_line_tbl
3190: ,p_old_line_tbl => l_old_line_tbl);
3191:
3192: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3194: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3195: RAISE FND_API.G_EXC_ERROR;
3196: END IF;
3189: ,p_line_tbl => l_line_tbl
3190: ,p_old_line_tbl => l_old_line_tbl);
3191:
3192: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3194: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3195: RAISE FND_API.G_EXC_ERROR;
3196: END IF;
3197: */
3190: ,p_old_line_tbl => l_old_line_tbl);
3191:
3192: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3194: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3195: RAISE FND_API.G_EXC_ERROR;
3196: END IF;
3197: */
3198: I := l_line_tbl.FIRST;
3191:
3192: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3194: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3195: RAISE FND_API.G_EXC_ERROR;
3196: END IF;
3197: */
3198: I := l_line_tbl.FIRST;
3199: WHILE I is not NULL LOOP
3223:
3224: OE_DEBUG_PUB.ADD(' Exiting INSERT_RMA_OPTIONS_INCLUDED',1);
3225: EXCEPTION
3226:
3227: WHEN FND_API.G_EXC_ERROR THEN
3228:
3229: x_return_status := FND_API.G_RET_STS_ERROR;
3230:
3231: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3225: EXCEPTION
3226:
3227: WHEN FND_API.G_EXC_ERROR THEN
3228:
3229: x_return_status := FND_API.G_RET_STS_ERROR;
3230:
3231: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3232:
3233: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3227: WHEN FND_API.G_EXC_ERROR THEN
3228:
3229: x_return_status := FND_API.G_RET_STS_ERROR;
3230:
3231: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3232:
3233: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3234:
3235: WHEN OTHERS THEN
3229: x_return_status := FND_API.G_RET_STS_ERROR;
3230:
3231: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3232:
3233: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3234:
3235: WHEN OTHERS THEN
3236:
3237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3233: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3234:
3235: WHEN OTHERS THEN
3236:
3237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3238:
3239: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3240: THEN
3241: OE_MSG_PUB.Add_Exc_Msg
3356:
3357: -- if lot serial numbers exist, delete first
3358:
3359:
3360: x_return_status := FND_API.G_RET_STS_SUCCESS;
3361:
3362: BEGIN
3363: OE_Line_Util.query_row(p_line_id => p_line_id
3364: ,x_line_rec => l_orig_line_rec);
3382: OE_Lot_serial_util.Lock_rows(p_line_id => p_line_id,
3383: x_lot_serial_tbl => l_lot_serial_tbl,
3384: x_return_status => l_return_status);
3385:
3386: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3387: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3388: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3389: RAISE FND_API.G_EXC_ERROR;
3390: END IF;
3383: x_lot_serial_tbl => l_lot_serial_tbl,
3384: x_return_status => l_return_status);
3385:
3386: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3387: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3388: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3389: RAISE FND_API.G_EXC_ERROR;
3390: END IF;
3391:
3384: x_return_status => l_return_status);
3385:
3386: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3387: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3388: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3389: RAISE FND_API.G_EXC_ERROR;
3390: END IF;
3391:
3392: EXCEPTION
3385:
3386: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3387: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3388: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3389: RAISE FND_API.G_EXC_ERROR;
3390: END IF;
3391:
3392: EXCEPTION
3393: WHEN NO_DATA_FOUND THEN
3411: END IF; /* end delete existing lot serial numbers */
3412:
3413: l_reference_line_id := l_orig_line_rec.reference_line_id;
3414: IF l_reference_line_id IS NOT NULL AND
3415: l_reference_line_id <> FND_API.G_MISS_NUM THEN
3416:
3417: OE_DEBUG_PUB.ADD(' There is a reference Line',1);
3418: OE_Line_Util.query_row(p_line_id => l_reference_line_id,
3419: x_line_rec => l_reference_line_rec);
3425: FETCH control_codes INTO l_lot_control_flag,
3426: l_serial_number_control_flag,
3427: l_primary_uom;
3428: IF control_codes%notfound THEN
3429: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3430: END IF;
3431: CLOSE control_codes;
3432:
3433: -- Added following for RMA bug 5155914
3556: -- Set recursion mode.
3557: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
3558:
3559: OE_ORDER_PVT.Lot_Serials
3560: (p_validation_level => FND_API.G_VALID_LEVEL_FULL
3561: ,p_control_rec => l_control_rec
3562: ,P_x_lot_serial_tbl => l_x_lot_serial_tbl
3563: ,p_x_old_lot_serial_tbl => l_x_old_lot_serial_tbl
3564: ,x_return_status => l_return_status);
3565: -- Reset recursion mode.
3566: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
3567: OE_DEBUG_PUB.ADD(' After calling OE_ORDER_PVT.Lot_Serials',1);
3568:
3569: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3571: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3572: RAISE FND_API.G_EXC_ERROR;
3573: END IF;
3566: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
3567: OE_DEBUG_PUB.ADD(' After calling OE_ORDER_PVT.Lot_Serials',1);
3568:
3569: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3571: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3572: RAISE FND_API.G_EXC_ERROR;
3573: END IF;
3574:
3567: OE_DEBUG_PUB.ADD(' After calling OE_ORDER_PVT.Lot_Serials',1);
3568:
3569: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3571: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3572: RAISE FND_API.G_EXC_ERROR;
3573: END IF;
3574:
3575: --comment out for nitification project
3568:
3569: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3571: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3572: RAISE FND_API.G_EXC_ERROR;
3573: END IF;
3574:
3575: --comment out for nitification project
3576: /* OE_ORDER_PVT.Process_Requests_And_notify
3579: ,x_return_status => l_return_status
3580: ,p_lot_serial_tbl => l_x_lot_serial_tbl
3581: ,p_old_lot_serial_tbl => l_x_old_lot_serial_tbl);
3582:
3583: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3585: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3586: RAISE FND_API.G_EXC_ERROR;
3587: END IF;
3580: ,p_lot_serial_tbl => l_x_lot_serial_tbl
3581: ,p_old_lot_serial_tbl => l_x_old_lot_serial_tbl);
3582:
3583: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3585: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3586: RAISE FND_API.G_EXC_ERROR;
3587: END IF;
3588: */
3581: ,p_old_lot_serial_tbl => l_x_old_lot_serial_tbl);
3582:
3583: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3585: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3586: RAISE FND_API.G_EXC_ERROR;
3587: END IF;
3588: */
3589:
3582:
3583: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3585: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3586: RAISE FND_API.G_EXC_ERROR;
3587: END IF;
3588: */
3589:
3590: END IF; /* end calling process order */
3595:
3596: EXCEPTION
3597:
3598:
3599: WHEN FND_API.G_EXC_ERROR THEN
3600:
3601: x_return_status := FND_API.G_RET_STS_ERROR;
3602:
3603: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3597:
3598:
3599: WHEN FND_API.G_EXC_ERROR THEN
3600:
3601: x_return_status := FND_API.G_RET_STS_ERROR;
3602:
3603: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3604:
3605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3599: WHEN FND_API.G_EXC_ERROR THEN
3600:
3601: x_return_status := FND_API.G_RET_STS_ERROR;
3602:
3603: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3604:
3605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3606:
3607: WHEN OTHERS THEN
3601: x_return_status := FND_API.G_RET_STS_ERROR;
3602:
3603: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3604:
3605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3606:
3607: WHEN OTHERS THEN
3608:
3609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3606:
3607: WHEN OTHERS THEN
3608:
3609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3610:
3611: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3612: THEN
3613: OE_MSG_PUB.Add_Exc_Msg
3686: to_char(l_line_tbl(I).shipment_number));
3687: FND_MESSAGE.SET_TOKEN('PARENT_LINE_NUMBER',
3688: to_char(l_line_tbl(I).line_number));
3689: OE_MSG_PUB.ADD;
3690: RAISE FND_API.G_EXC_ERROR;
3691: ELSIF (l_line_tbl(I).order_quantity_uom <>
3692: l_order_qty_uom ) THEN
3693: FND_MESSAGE.SET_NAME('ONT','OE_VAL_LINE_SET_ATTR');
3694: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME','Unit of Measure');
3696: to_char(l_line_tbl(I).shipment_number));
3697: FND_MESSAGE.SET_TOKEN('PARENT_LINE_NUMBER',
3698: to_char(l_line_tbl(I).line_number));
3699: OE_MSG_PUB.ADD;
3700: RAISE FND_API.G_EXC_ERROR;
3701: ELSIF (l_line_tbl(I).line_type_id <>
3702: l_line_type_id ) THEN
3703: FND_MESSAGE.SET_NAME('ONT','OE_VAL_LINE_SET_ATTR');
3704: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME','Line Type');
3706: to_char(l_line_tbl(I).shipment_number));
3707: FND_MESSAGE.SET_TOKEN('PARENT_LINE_NUMBER',
3708: to_char(l_line_tbl(I).line_number));
3709: OE_MSG_PUB.ADD;
3710: RAISE FND_API.G_EXC_ERROR;
3711: ELSIF (l_line_tbl(I).ship_tolerance_above <>
3712: l_ship_tolerance_above ) THEN
3713: FND_MESSAGE.SET_NAME('ONT','OE_VAL_LINE_SET_ATTR');
3714: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME','Ship tolerance above');
3716: to_char(l_line_tbl(I).shipment_number));
3717: FND_MESSAGE.SET_TOKEN('PARENT_LINE_NUMBER',
3718: to_char(l_line_tbl(I).line_number));
3719: OE_MSG_PUB.ADD;
3720: RAISE FND_API.G_EXC_ERROR;
3721: ELSIF (l_line_tbl(I).ship_tolerance_below <>
3722: l_ship_tolerance_below ) THEN
3723: FND_MESSAGE.SET_NAME('ONT','OE_VAL_LINE_SET_ATTR');
3724: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME','Ship tolerance below');
3726: to_char(l_line_tbl(I).shipment_number));
3727: FND_MESSAGE.SET_TOKEN('PARENT_LINE_NUMBER',
3728: to_char(l_line_tbl(I).line_number));
3729: OE_MSG_PUB.ADD;
3730: RAISE FND_API.G_EXC_ERROR;
3731: ELSIF (l_line_tbl(I).project_id <>
3732: l_project_id ) THEN
3733: FND_MESSAGE.SET_NAME('ONT','OE_VAL_LINE_SET_ATTR');
3734: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME','Project');
3736: to_char(l_line_tbl(I).shipment_number));
3737: FND_MESSAGE.SET_TOKEN('PARENT_LINE_NUMBER',
3738: to_char(l_line_tbl(I).line_number));
3739: OE_MSG_PUB.ADD;
3740: RAISE FND_API.G_EXC_ERROR;
3741: ELSIF (l_line_tbl(I).Task_id <>
3742: l_Task_id ) THEN
3743: FND_MESSAGE.SET_NAME('ONT','OE_VAL_LINE_SET_ATTR');
3744: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME','Task');
3746: to_char(l_line_tbl(I).shipment_number));
3747: FND_MESSAGE.SET_TOKEN('PARENT_LINE_NUMBER',
3748: to_char(l_line_tbl(I).line_number));
3749: OE_MSG_PUB.ADD;
3750: RAISE FND_API.G_EXC_ERROR;
3751: END IF;
3752: END IF; -- For Bug 5754554
3753: END LOOP;
3754: END IF;
3753: END LOOP;
3754: END IF;
3755: oe_debug_pub.add('Exiting oe_delayed_requests_util.Validate_Line_Set',1);
3756: EXCEPTION
3757: WHEN FND_API.G_EXC_ERROR THEN
3758:
3759: OE_MSG_PUB.reset_msg_context('SPLIT');
3760: RAISE;
3761:
3758:
3759: OE_MSG_PUB.reset_msg_context('SPLIT');
3760: RAISE;
3761:
3762: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3763:
3764: OE_MSG_PUB.reset_msg_context('SPLIT');
3765: RAISE;
3766:
3772: ( G_PKG_NAME ,
3773: 'Validate Line Set'
3774: );
3775: END IF;
3776: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3777:
3778: END Validate_line_Set;
3779:
3780: PROCEDURE Process_Adjustments
3882: -- Reset recursion mode.
3883: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
3884:
3885: oe_debug_pub.add('after process order call ',2);
3886: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3887: oe_debug_pub.add('error1',2);
3888: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3889: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3890: oe_debug_pub.add('error2',2);
3884:
3885: oe_debug_pub.add('after process order call ',2);
3886: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3887: oe_debug_pub.add('error1',2);
3888: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3889: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3890: oe_debug_pub.add('error2',2);
3891: RAISE FND_API.G_EXC_ERROR;
3892: END IF;
3885: oe_debug_pub.add('after process order call ',2);
3886: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3887: oe_debug_pub.add('error1',2);
3888: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3889: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3890: oe_debug_pub.add('error2',2);
3891: RAISE FND_API.G_EXC_ERROR;
3892: END IF;
3893:
3887: oe_debug_pub.add('error1',2);
3888: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3889: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3890: oe_debug_pub.add('error2',2);
3891: RAISE FND_API.G_EXC_ERROR;
3892: END IF;
3893:
3894: end if; /* if l_adj_tbl.count >= 1 */
3895:
3899:
3900:
3901: EXCEPTION
3902:
3903: WHEN FND_API.G_EXC_ERROR THEN
3904:
3905: x_return_status := FND_API.G_RET_STS_ERROR;
3906:
3907: -- Get message count and data
3901: EXCEPTION
3902:
3903: WHEN FND_API.G_EXC_ERROR THEN
3904:
3905: x_return_status := FND_API.G_RET_STS_ERROR;
3906:
3907: -- Get message count and data
3908:
3909: OE_MSG_PUB.Count_And_Get
3910: ( p_count => x_msg_count
3911: , p_data => x_msg_data
3912: );
3913:
3914: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3915:
3916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3917: -- Get message count and data
3918:
3912: );
3913:
3914: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3915:
3916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3917: -- Get message count and data
3918:
3919: OE_MSG_PUB.Count_And_Get
3920: ( p_count => x_msg_count
3922: );
3923:
3924: WHEN OTHERS THEN
3925:
3926: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3927:
3928: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3929: THEN
3930: OE_MSG_PUB.Add_Exc_Msg
4015:
4016: IF fnd_profile.value('ONT_CASCADE_SERVICE') = 'N' THEN
4017: /* 3128684 */
4018: oe_debug_pub.add('Do not cascade services', 2);
4019: x_return_status := FND_API.G_RET_STS_SUCCESS;
4020: RETURN;
4021: END IF;
4022: oe_debug_pub.add('Do cascade services', 2);
4023:
4210: -- Set recursion mode.
4211: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
4212:
4213: OE_ORDER_PVT.Lines
4214: (P_validation_level => FND_API.G_VALID_LEVEL_FULL
4215: ,p_control_rec => l_control_rec
4216: ,p_x_line_tbl => l_line_tbl
4217: ,p_x_old_line_tbl => l_old_line_tbl
4218: ,x_return_status => l_return_status);
4219:
4220: -- Reset recursion mode.
4221: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
4222:
4223: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4224: oe_debug_pub.add('Inside unexpected error ',2);
4225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4226: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4227: oe_debug_pub.add('Inside error ',2);
4221: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
4222:
4223: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4224: oe_debug_pub.add('Inside unexpected error ',2);
4225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4226: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4227: oe_debug_pub.add('Inside error ',2);
4228: RAISE FND_API.G_EXC_ERROR;
4229: END IF;
4222:
4223: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4224: oe_debug_pub.add('Inside unexpected error ',2);
4225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4226: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4227: oe_debug_pub.add('Inside error ',2);
4228: RAISE FND_API.G_EXC_ERROR;
4229: END IF;
4230:
4224: oe_debug_pub.add('Inside unexpected error ',2);
4225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4226: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4227: oe_debug_pub.add('Inside error ',2);
4228: RAISE FND_API.G_EXC_ERROR;
4229: END IF;
4230:
4231: --comment out for notification project
4232: /* OE_ORDER_PVT.Process_Requests_And_notify
4235: ,x_return_status => l_return_status
4236: ,p_line_tbl => l_line_tbl
4237: ,p_old_line_tbl => l_old_line_tbl);
4238:
4239: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4241: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4242: RAISE FND_API.G_EXC_ERROR;
4243: END IF;
4236: ,p_line_tbl => l_line_tbl
4237: ,p_old_line_tbl => l_old_line_tbl);
4238:
4239: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4241: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4242: RAISE FND_API.G_EXC_ERROR;
4243: END IF;
4244: */
4237: ,p_old_line_tbl => l_old_line_tbl);
4238:
4239: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4241: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4242: RAISE FND_API.G_EXC_ERROR;
4243: END IF;
4244: */
4245: -- Clear Table
4238:
4239: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4241: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4242: RAISE FND_API.G_EXC_ERROR;
4243: END IF;
4244: */
4245: -- Clear Table
4246: l_line_tbl.DELETE;
4248: OE_DEBUG_PUB.ADD('Exiting INSERT_SERVICE_FOR_OPTIONS',1);
4249:
4250: EXCEPTION
4251:
4252: WHEN FND_API.G_EXC_ERROR THEN
4253: oe_debug_pub.add('Inside exception exe error ',1);
4254: x_return_status := FND_API.G_RET_STS_ERROR;
4255:
4256: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4250: EXCEPTION
4251:
4252: WHEN FND_API.G_EXC_ERROR THEN
4253: oe_debug_pub.add('Inside exception exe error ',1);
4254: x_return_status := FND_API.G_RET_STS_ERROR;
4255:
4256: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4257: oe_debug_pub.add('Inside exception unexp error ',1);
4258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4252: WHEN FND_API.G_EXC_ERROR THEN
4253: oe_debug_pub.add('Inside exception exe error ',1);
4254: x_return_status := FND_API.G_RET_STS_ERROR;
4255:
4256: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4257: oe_debug_pub.add('Inside exception unexp error ',1);
4258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4259:
4260: WHEN OTHERS THEN
4254: x_return_status := FND_API.G_RET_STS_ERROR;
4255:
4256: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4257: oe_debug_pub.add('Inside exception unexp error ',1);
4258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4259:
4260: WHEN OTHERS THEN
4261:
4262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4259:
4260: WHEN OTHERS THEN
4261:
4262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4263: oe_debug_pub.add('Inside exception other error ',1);
4264:
4265: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4266: THEN
4332:
4333: IF fnd_profile.value('ONT_CASCADE_SERVICE') = 'N' THEN
4334: /* 3128684 */
4335: oe_debug_pub.add('Do not cascade services', 2);
4336: x_return_status := FND_API.G_RET_STS_SUCCESS;
4337: RETURN;
4338: END IF;
4339: oe_debug_pub.add('Do cascade services', 2);
4340:
4427: -- Set recursion mode.
4428: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
4429:
4430: OE_ORDER_PVT.Lines
4431: (P_validation_level => FND_API.G_VALID_LEVEL_FULL
4432: ,p_control_rec => l_control_rec
4433: ,p_x_line_tbl => l_line_tbl
4434: ,p_x_old_line_tbl => l_old_line_tbl
4435: ,x_return_status => l_return_status);
4436:
4437: -- Reset recursion mode.
4438: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
4439:
4440: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4441: oe_debug_pub.add('Inside unexpected error ',2);
4442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4443: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4444: oe_debug_pub.add('Inside error ',2);
4438: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
4439:
4440: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4441: oe_debug_pub.add('Inside unexpected error ',2);
4442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4443: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4444: oe_debug_pub.add('Inside error ',2);
4445: RAISE FND_API.G_EXC_ERROR;
4446: END IF;
4439:
4440: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4441: oe_debug_pub.add('Inside unexpected error ',2);
4442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4443: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4444: oe_debug_pub.add('Inside error ',2);
4445: RAISE FND_API.G_EXC_ERROR;
4446: END IF;
4447:
4441: oe_debug_pub.add('Inside unexpected error ',2);
4442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4443: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4444: oe_debug_pub.add('Inside error ',2);
4445: RAISE FND_API.G_EXC_ERROR;
4446: END IF;
4447:
4448: --comment out for notification project
4449: /* OE_ORDER_PVT.Process_Requests_And_notify
4452: ,x_return_status => l_return_status
4453: ,p_line_tbl => l_line_tbl
4454: ,p_old_line_tbl => l_old_line_tbl);
4455:
4456: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4457: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4458: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4459: RAISE FND_API.G_EXC_ERROR;
4460: END IF;
4453: ,p_line_tbl => l_line_tbl
4454: ,p_old_line_tbl => l_old_line_tbl);
4455:
4456: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4457: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4458: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4459: RAISE FND_API.G_EXC_ERROR;
4460: END IF;
4461: */
4454: ,p_old_line_tbl => l_old_line_tbl);
4455:
4456: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4457: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4458: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4459: RAISE FND_API.G_EXC_ERROR;
4460: END IF;
4461: */
4462: -- Clear Table
4455:
4456: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4457: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4458: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4459: RAISE FND_API.G_EXC_ERROR;
4460: END IF;
4461: */
4462: -- Clear Table
4463: l_line_tbl.DELETE;
4465: OE_DEBUG_PUB.ADD('Exiting CASCADE_SERVICE_FOR_OPTIONS',1);
4466:
4467: EXCEPTION
4468:
4469: WHEN FND_API.G_EXC_ERROR THEN
4470: oe_debug_pub.add('Inside exception exe error ',1);
4471: x_return_status := FND_API.G_RET_STS_ERROR;
4472:
4473: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4467: EXCEPTION
4468:
4469: WHEN FND_API.G_EXC_ERROR THEN
4470: oe_debug_pub.add('Inside exception exe error ',1);
4471: x_return_status := FND_API.G_RET_STS_ERROR;
4472:
4473: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4474: oe_debug_pub.add('Inside exception unexp error ',1);
4475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4469: WHEN FND_API.G_EXC_ERROR THEN
4470: oe_debug_pub.add('Inside exception exe error ',1);
4471: x_return_status := FND_API.G_RET_STS_ERROR;
4472:
4473: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4474: oe_debug_pub.add('Inside exception unexp error ',1);
4475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4476:
4477: WHEN OTHERS THEN
4471: x_return_status := FND_API.G_RET_STS_ERROR;
4472:
4473: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4474: oe_debug_pub.add('Inside exception unexp error ',1);
4475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4476:
4477: WHEN OTHERS THEN
4478:
4479: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4476:
4477: WHEN OTHERS THEN
4478:
4479: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4480: oe_debug_pub.add('Inside exception other error ',1);
4481:
4482: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4483: THEN
4504: BEGIN
4505:
4506: OE_DEBUG_PUB.Add('Enter OE_DELAYED_REQUESTS_UTIL.Apply_Automatic_Attachments', 1);
4507:
4508: x_return_status := FND_API.G_RET_STS_SUCCESS;
4509:
4510: OE_Atchmt_Util.Apply_Automatic_Attachments
4511: ( p_entity_code => p_entity_code
4512: , p_entity_id => p_entity_id
4515: , x_return_status => x_return_status
4516: , x_msg_count => l_msg_count
4517: , x_msg_data => l_msg_data
4518: );
4519: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4520: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4521: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4522: RAISE FND_API.G_EXC_ERROR;
4523: END IF;
4516: , x_msg_count => l_msg_count
4517: , x_msg_data => l_msg_data
4518: );
4519: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4520: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4521: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4522: RAISE FND_API.G_EXC_ERROR;
4523: END IF;
4524:
4517: , x_msg_data => l_msg_data
4518: );
4519: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4520: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4521: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4522: RAISE FND_API.G_EXC_ERROR;
4523: END IF;
4524:
4525: OE_DEBUG_PUB.Add('Exit OE_DELAYED_REQUESTS_UTIL.Apply_Automatic_Attachments', 1);
4518: );
4519: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4520: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4521: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4522: RAISE FND_API.G_EXC_ERROR;
4523: END IF;
4524:
4525: OE_DEBUG_PUB.Add('Exit OE_DELAYED_REQUESTS_UTIL.Apply_Automatic_Attachments', 1);
4526:
4524:
4525: OE_DEBUG_PUB.Add('Exit OE_DELAYED_REQUESTS_UTIL.Apply_Automatic_Attachments', 1);
4526:
4527: EXCEPTION
4528: WHEN FND_API.G_EXC_ERROR THEN
4529: x_return_status := FND_API.G_RET_STS_ERROR;
4530: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4531: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4532: WHEN OTHERS THEN
4525: OE_DEBUG_PUB.Add('Exit OE_DELAYED_REQUESTS_UTIL.Apply_Automatic_Attachments', 1);
4526:
4527: EXCEPTION
4528: WHEN FND_API.G_EXC_ERROR THEN
4529: x_return_status := FND_API.G_RET_STS_ERROR;
4530: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4531: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4532: WHEN OTHERS THEN
4533: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4526:
4527: EXCEPTION
4528: WHEN FND_API.G_EXC_ERROR THEN
4529: x_return_status := FND_API.G_RET_STS_ERROR;
4530: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4531: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4532: WHEN OTHERS THEN
4533: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4534: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4527: EXCEPTION
4528: WHEN FND_API.G_EXC_ERROR THEN
4529: x_return_status := FND_API.G_RET_STS_ERROR;
4530: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4531: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4532: WHEN OTHERS THEN
4533: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4534: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4535: THEN
4529: x_return_status := FND_API.G_RET_STS_ERROR;
4530: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4531: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4532: WHEN OTHERS THEN
4533: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4534: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4535: THEN
4536: OE_MSG_PUB.Add_Exc_Msg
4537: ( G_PKG_NAME
4553:
4554: OE_DEBUG_PUB.Add('Enter OE_DELAYED_REQUESTS_UTIL.Copy_Attachments, manual only'||
4555: p_manual_attachments_only, 1);
4556:
4557: x_return_status := FND_API.G_RET_STS_SUCCESS;
4558:
4559: OE_Atchmt_Util.Copy_Attachments
4560: ( p_entity_code => p_entity_code
4561: , p_from_entity_id => p_from_entity_id
4562: , p_to_entity_id => p_to_entity_id
4563: , p_manual_attachments_only => NVL(p_manual_attachments_only,'N')
4564: , x_return_status => x_return_status
4565: );
4566: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4567: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4568: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4569: RAISE FND_API.G_EXC_ERROR;
4570: END IF;
4563: , p_manual_attachments_only => NVL(p_manual_attachments_only,'N')
4564: , x_return_status => x_return_status
4565: );
4566: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4567: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4568: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4569: RAISE FND_API.G_EXC_ERROR;
4570: END IF;
4571:
4564: , x_return_status => x_return_status
4565: );
4566: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4567: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4568: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4569: RAISE FND_API.G_EXC_ERROR;
4570: END IF;
4571:
4572: OE_DEBUG_PUB.Add('Exit OE_DELAYED_REQUESTS_UTIL.Copy_Attachments', 1);
4565: );
4566: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4567: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4568: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4569: RAISE FND_API.G_EXC_ERROR;
4570: END IF;
4571:
4572: OE_DEBUG_PUB.Add('Exit OE_DELAYED_REQUESTS_UTIL.Copy_Attachments', 1);
4573:
4571:
4572: OE_DEBUG_PUB.Add('Exit OE_DELAYED_REQUESTS_UTIL.Copy_Attachments', 1);
4573:
4574: EXCEPTION
4575: WHEN FND_API.G_EXC_ERROR THEN
4576: x_return_status := FND_API.G_RET_STS_ERROR;
4577: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4578: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4579: WHEN OTHERS THEN
4572: OE_DEBUG_PUB.Add('Exit OE_DELAYED_REQUESTS_UTIL.Copy_Attachments', 1);
4573:
4574: EXCEPTION
4575: WHEN FND_API.G_EXC_ERROR THEN
4576: x_return_status := FND_API.G_RET_STS_ERROR;
4577: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4578: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4579: WHEN OTHERS THEN
4580: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4573:
4574: EXCEPTION
4575: WHEN FND_API.G_EXC_ERROR THEN
4576: x_return_status := FND_API.G_RET_STS_ERROR;
4577: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4578: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4579: WHEN OTHERS THEN
4580: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4581: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4574: EXCEPTION
4575: WHEN FND_API.G_EXC_ERROR THEN
4576: x_return_status := FND_API.G_RET_STS_ERROR;
4577: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4578: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4579: WHEN OTHERS THEN
4580: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4581: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4582: THEN
4576: x_return_status := FND_API.G_RET_STS_ERROR;
4577: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4578: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4579: WHEN OTHERS THEN
4580: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4581: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4582: THEN
4583: OE_MSG_PUB.Add_Exc_Msg
4584: ( G_PKG_NAME
4607: l_line_rec OE_ORDER_PUB.line_rec_type;
4608: l_old_line_rec OE_ORDER_PUB.line_rec_type;
4609: l_out_line_rec OE_ORDER_PUB.line_rec_type;
4610: l_atp_tbl OE_ATP.atp_tbl_type;
4611: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
4612: l_group_req_rec OE_GRP_SCH_UTIL.Sch_Group_Rec_Type;
4613: l_group_sch_required BOOLEAN := TRUE;
4614: BEGIN
4615:
4626: OE_LINE_UTIL.Lock_Row(p_line_id => l_request_rec.entity_id,
4627: p_x_line_rec => l_line_rec,
4628: x_return_status => l_return_status);
4629:
4630: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4631: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4632: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4633: RAISE FND_API.G_EXC_ERROR;
4634: END IF;
4627: p_x_line_rec => l_line_rec,
4628: x_return_status => l_return_status);
4629:
4630: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4631: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4632: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4633: RAISE FND_API.G_EXC_ERROR;
4634: END IF;
4635:
4628: x_return_status => l_return_status);
4629:
4630: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4631: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4632: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4633: RAISE FND_API.G_EXC_ERROR;
4634: END IF;
4635:
4636: l_old_line_rec := l_line_rec;
4629:
4630: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4631: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4632: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4633: RAISE FND_API.G_EXC_ERROR;
4634: END IF;
4635:
4636: l_old_line_rec := l_line_rec;
4637:
4770: oe_debug_pub.add('After Calling Grp Schedule : || l_return_status',2);
4771:
4772: oe_debug_pub.add('Setting G_CASCADING_REQUEST_LOGGED to TRUE',2);
4773:
4774: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
4775: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
4776: END IF;
4777:
4778: ELSE
4786:
4787: OE_ORDER_SCH_UTIL.Schedule_line
4788: ( p_x_line_rec => l_out_line_rec
4789: , p_old_line_rec => l_old_line_rec
4790: , p_write_to_db => FND_API.G_TRUE
4791: , x_atp_tbl => l_atp_tbl
4792: , x_return_status => l_return_status);
4793:
4794:
4795: oe_debug_pub.add('After Calling Sch_Line : '|| l_return_status,2);
4796:
4797: END IF;
4798:
4799: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4800:
4801: oe_debug_pub.add('Line Id error out nocopy : ' || l_line_rec.line_id,2);
4802:
4803:
4861: l_return_status',1);
4862:
4863: oe_debug_pub.add('Stng G_CASCADING_REQUEST_LOGGED to TRUE',2);
4864:
4865: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
4866: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
4867: END IF;
4868: END IF; /* If Auto Push Group Date is Yes */
4869:
4871: -- Set, then just clear out the scheduling attributes and return a
4872: -- message that the line schedule failed. We will return a success
4873: -- since we do not want to fail the line insert due to this.
4874:
4875: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4876:
4877: fnd_message.set_name('ONT','OE_SCH_SET_INS_FAILED');
4878: OE_MSG_PUB.Add;
4879:
4924: OE_MSG_PUB.Add;
4925:
4926: END IF;
4927:
4928: x_return_status := FND_API.G_RET_STS_SUCCESS;
4929: END IF; /* l_return_status = error */
4930:
4931: ELSE
4932:
4937:
4938: fnd_message.set_name('ONT','OE_SCH_SET_INS_FAILED');
4939: OE_MSG_PUB.Add;
4940:
4941: RAISE FND_API.G_EXC_ERROR;
4942:
4943:
4944: END IF;
4945: END IF; /* If g_ret_status is error */
4949:
4950: oe_debug_pub.add('Exiting OE_Delayed_Requests_UTIL.Schedule_Line');
4951: EXCEPTION
4952:
4953: WHEN FND_API.G_EXC_ERROR THEN
4954: x_return_status := FND_API.G_RET_STS_ERROR;
4955:
4956: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4957:
4950: oe_debug_pub.add('Exiting OE_Delayed_Requests_UTIL.Schedule_Line');
4951: EXCEPTION
4952:
4953: WHEN FND_API.G_EXC_ERROR THEN
4954: x_return_status := FND_API.G_RET_STS_ERROR;
4955:
4956: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4957:
4958: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4952:
4953: WHEN FND_API.G_EXC_ERROR THEN
4954: x_return_status := FND_API.G_RET_STS_ERROR;
4955:
4956: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4957:
4958: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4959: THEN
4960: OE_MSG_PUB.Add_Exc_Msg
4981: ( p_entity_id_tbl IN OE_Delayed_Requests_PVT.Entity_Id_Tbl_Type
4982: , x_return_status OUT NOCOPY VARCHAR2)
4983:
4984: IS
4985: l_return_status Varchar2(30):= FND_API.G_RET_STS_SUCCESS;
4986: l_tax_value NUMBER := 0;
4987: l_msg_count NUMBER := 0;
4988: l_tax_count NUMBER := 0;
4989: l_tax_index NUMBER := 0;
5244: x_tax_value => new_tax_value,
5245: x_tax_out_tbl => l_tax_rec_out_tbl,
5246: x_return_status => l_return_status );
5247:
5248: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5249: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5250: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5251: RAISE FND_API.G_EXC_ERROR;
5252: END IF;
5245: x_tax_out_tbl => l_tax_rec_out_tbl,
5246: x_return_status => l_return_status );
5247:
5248: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5249: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5250: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5251: RAISE FND_API.G_EXC_ERROR;
5252: END IF;
5253:
5246: x_return_status => l_return_status );
5247:
5248: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5249: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5250: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5251: RAISE FND_API.G_EXC_ERROR;
5252: END IF;
5253:
5254: IF l_debug_level > 0 THEN
5247:
5248: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5249: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5250: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5251: RAISE FND_API.G_EXC_ERROR;
5252: END IF;
5253:
5254: IF l_debug_level > 0 THEN
5255: oe_debug_pub.add('After Successfully calculating Tax',2);
5384: , x_msg_data => l_msg_data
5385: , x_return_status => l_return_status
5386: );
5387:
5388: IF ( l_hold_result = FND_API.G_TRUE ) THEN
5389:
5390: oe_debug_pub.add('Logging delayed request for verify payment for change in tax value and hold exist') ;
5391:
5392: OE_delayed_requests_Pvt.log_request
5416: ( p_line_id => l_line_id,
5417: x_line_adj_tbl => l_l_line_adj_tbl,
5418: x_return_status => l_return_status);
5419:
5420: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5422: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5423: RAISE FND_API.G_EXC_ERROR;
5424: END IF;
5417: x_line_adj_tbl => l_l_line_adj_tbl,
5418: x_return_status => l_return_status);
5419:
5420: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5422: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5423: RAISE FND_API.G_EXC_ERROR;
5424: END IF;
5425: EXCEPTION
5418: x_return_status => l_return_status);
5419:
5420: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5422: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5423: RAISE FND_API.G_EXC_ERROR;
5424: END IF;
5425: EXCEPTION
5426: WHEN NO_DATA_FOUND THEN
5419:
5420: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5422: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5423: RAISE FND_API.G_EXC_ERROR;
5424: END IF;
5425: EXCEPTION
5426: WHEN NO_DATA_FOUND THEN
5427: l_l_line_adj_tbl.delete;
5424: END IF;
5425: EXCEPTION
5426: WHEN NO_DATA_FOUND THEN
5427: l_l_line_adj_tbl.delete;
5428: x_return_status := FND_API.G_RET_STS_SUCCESS;
5429: END;
5430:
5431: IF l_tax_rec_out_tbl.count > 0
5432: THEN
5543:
5544: IF l_l_line_adj_tbl(J).list_line_type_code = 'TAX' AND
5545: l_l_line_adj_tbl(J).parent_adjustment_id IS NULL AND
5546: (l_l_line_adj_tbl(J).operation IS NULL
5547: OR l_l_line_adj_tbl(J).operation = FND_API.G_MISS_CHAR)
5548: THEN
5549: IF l_debug_level > 0 THEN
5550: oe_debug_pub.add('Deleting adj Id '||
5551: to_char(l_l_line_adj_tbl(J).price_adjustment_id),2);
5567: when no_data_found then
5568: IF l_debug_level > 0 THEN
5569: oe_debug_pub.add('In No data found for line id:'||to_char(l_line_id),2);
5570: END IF;
5571: x_return_status := FND_API.G_RET_STS_SUCCESS;
5572: end ; -- bug 2173168
5573: l_index := p_entity_id_tbl.NEXT(l_index);
5574:
5575: END LOOP; -- l_index IS NOT NULL LOOP
5588: IF l_debug_level > 0 THEN
5589: oe_debug_pub.add('Exiting Process_Tax ',1);
5590: END IF;
5591: EXCEPTION
5592: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5593: l_tax_rec_out_tbl.delete;
5594: l_l_line_adj_tbl.delete;
5595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5596:
5591: EXCEPTION
5592: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5593: l_tax_rec_out_tbl.delete;
5594: l_l_line_adj_tbl.delete;
5595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5596:
5597: WHEN FND_API.G_EXC_ERROR THEN
5598: l_tax_rec_out_tbl.delete;
5599: l_l_line_adj_tbl.delete;
5593: l_tax_rec_out_tbl.delete;
5594: l_l_line_adj_tbl.delete;
5595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5596:
5597: WHEN FND_API.G_EXC_ERROR THEN
5598: l_tax_rec_out_tbl.delete;
5599: l_l_line_adj_tbl.delete;
5600: x_return_status := FND_API.G_RET_STS_ERROR;
5601:
5596:
5597: WHEN FND_API.G_EXC_ERROR THEN
5598: l_tax_rec_out_tbl.delete;
5599: l_l_line_adj_tbl.delete;
5600: x_return_status := FND_API.G_RET_STS_ERROR;
5601:
5602: WHEN NO_DATA_FOUND THEN
5603: l_tax_rec_out_tbl.delete;
5604: l_l_line_adj_tbl.delete;
5604: l_l_line_adj_tbl.delete;
5605: IF l_debug_level > 0 THEN
5606: oe_debug_pub.add('Tax_Order: In No DATA Found',2);
5607: END IF;
5608: x_return_status := FND_API.G_RET_STS_SUCCESS;
5609:
5610: WHEN OTHERS THEN
5611:
5612: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5615: ( G_PKG_NAME ,
5616: 'Tax Header'
5617: );
5618: END IF;
5619: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5620: l_tax_rec_out_tbl.delete;
5621: l_l_line_adj_tbl.delete;
5622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5623:
5618: END IF;
5619: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5620: l_tax_rec_out_tbl.delete;
5621: l_l_line_adj_tbl.delete;
5622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5623:
5624: END Process_Tax;
5625:
5626: --Added by Mushenoy for the auto Internal Requisition Creation (ikon) Aug 22 2001
5694:
5695: BEGIN
5696:
5697: oe_debug_pub.add(' Entering procedure auto_create_internal_req ',2);
5698: x_return_status := FND_API.G_RET_STS_SUCCESS;
5699: --Query Order Header
5700: OPEN ord_hdr_cur(p_ord_header_id);
5701: FETCH ord_hdr_cur into l_created_by,l_org_id;
5702: CLOSE ord_hdr_cur;
5711: WHEN NO_DATA_FOUND THEN
5712: --This is a required field however PO will handle the error if these Fields are null
5713: l_preparer_id := null;
5714: WHEN OTHERS THEN
5715: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5716: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5717: END;
5718:
5719: --Pass the Internal Sales Order Header values to the internal req header record
5712: --This is a required field however PO will handle the error if these Fields are null
5713: l_preparer_id := null;
5714: WHEN OTHERS THEN
5715: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5716: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5717: END;
5718:
5719: --Pass the Internal Sales Order Header values to the internal req header record
5720: l_req_header_rec.preparer_id := l_preparer_id;
5732: j := j+1;
5733: IF cur_ord_line.item_type_code <> OE_GLOBALS.G_ITEM_STANDARD THEN
5734: fnd_message.set_name('ONT','ONT_ISO_ITEM_TYPE_NOT_STD');
5735: OE_MSG_PUB.Add;
5736: x_return_status := FND_API.G_RET_STS_ERROR;
5737: RAISE FND_API.G_EXC_ERROR;
5738: END IF;
5739: --get the destination organization id and deliver to location id for this order line
5740: BEGIN
5733: IF cur_ord_line.item_type_code <> OE_GLOBALS.G_ITEM_STANDARD THEN
5734: fnd_message.set_name('ONT','ONT_ISO_ITEM_TYPE_NOT_STD');
5735: OE_MSG_PUB.Add;
5736: x_return_status := FND_API.G_RET_STS_ERROR;
5737: RAISE FND_API.G_EXC_ERROR;
5738: END IF;
5739: --get the destination organization id and deliver to location id for this order line
5740: BEGIN
5741: OPEN dest_org_locn_cur(cur_Ord_line.sold_to_org_id);
5775: ,x_return_status => l_int_req_Ret_sts
5776: ,x_msg_count => l_msg_count
5777: ,x_msg_data => l_msg_data );
5778: --Check return status of the Purchasing API
5779: IF l_int_req_Ret_sts = FND_API.G_RET_STS_UNEXP_ERROR THEN
5780: oe_debug_pub.add(' PO API call returned unexpected error '||l_msg_data,2);
5781: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5782:
5783: ELSIF l_int_req_Ret_sts = FND_API.G_RET_STS_ERROR THEN
5777: ,x_msg_data => l_msg_data );
5778: --Check return status of the Purchasing API
5779: IF l_int_req_Ret_sts = FND_API.G_RET_STS_UNEXP_ERROR THEN
5780: oe_debug_pub.add(' PO API call returned unexpected error '||l_msg_data,2);
5781: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5782:
5783: ELSIF l_int_req_Ret_sts = FND_API.G_RET_STS_ERROR THEN
5784: oe_debug_pub.add(' PO API call returned error '||l_msg_data,2);
5785: RAISE FND_API.G_EXC_ERROR;
5779: IF l_int_req_Ret_sts = FND_API.G_RET_STS_UNEXP_ERROR THEN
5780: oe_debug_pub.add(' PO API call returned unexpected error '||l_msg_data,2);
5781: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5782:
5783: ELSIF l_int_req_Ret_sts = FND_API.G_RET_STS_ERROR THEN
5784: oe_debug_pub.add(' PO API call returned error '||l_msg_data,2);
5785: RAISE FND_API.G_EXC_ERROR;
5786: END IF;
5787:
5781: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5782:
5783: ELSIF l_int_req_Ret_sts = FND_API.G_RET_STS_ERROR THEN
5784: oe_debug_pub.add(' PO API call returned error '||l_msg_data,2);
5785: RAISE FND_API.G_EXC_ERROR;
5786: END IF;
5787:
5788: END;/* Call to the Purchasing API*/
5789:
5787:
5788: END;/* Call to the Purchasing API*/
5789:
5790: --if it returns success Update the Internal Sales Order with the Req header id and Req line Ids
5791: IF l_int_req_ret_sts = FND_API.G_RET_STS_SUCCESS THEN
5792:
5793: --Update the header with the requisition header id
5794: Update OE_Order_Headers
5795: set source_document_Id = l_req_header_rec.requisition_header_id
5818: END IF;
5819: --Handle Exceptions
5820: EXCEPTION
5821:
5822: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5823: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5824: oe_debug_pub.add('auto_create_internal_req: In Unexpected error',2);
5825:
5826: WHEN FND_API.G_EXC_ERROR THEN
5819: --Handle Exceptions
5820: EXCEPTION
5821:
5822: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5823: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5824: oe_debug_pub.add('auto_create_internal_req: In Unexpected error',2);
5825:
5826: WHEN FND_API.G_EXC_ERROR THEN
5827: x_return_status := FND_API.G_RET_STS_ERROR;
5822: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5823: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5824: oe_debug_pub.add('auto_create_internal_req: In Unexpected error',2);
5825:
5826: WHEN FND_API.G_EXC_ERROR THEN
5827: x_return_status := FND_API.G_RET_STS_ERROR;
5828: oe_debug_pub.add('auto_create_internal_req: In execution error',2);
5829:
5830: --WHEN NO_DATA_FOUND THEN
5823: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5824: oe_debug_pub.add('auto_create_internal_req: In Unexpected error',2);
5825:
5826: WHEN FND_API.G_EXC_ERROR THEN
5827: x_return_status := FND_API.G_RET_STS_ERROR;
5828: oe_debug_pub.add('auto_create_internal_req: In execution error',2);
5829:
5830: --WHEN NO_DATA_FOUND THEN
5831: --x_return_status := FND_API.G_RET_STS_SUCCESS;
5827: x_return_status := FND_API.G_RET_STS_ERROR;
5828: oe_debug_pub.add('auto_create_internal_req: In execution error',2);
5829:
5830: --WHEN NO_DATA_FOUND THEN
5831: --x_return_status := FND_API.G_RET_STS_SUCCESS;
5832: --oe_debug_pub.add('auto_create_internal_req: In No DATA Found',2);
5833:
5834: WHEN OTHERS THEN
5835: oe_debug_pub.add('auto_create_internal_req: In Other error',2);
5836: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5837: THEN
5838: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,'auto_create_internal_req');
5839: END IF;
5840: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5841:
5842: END auto_create_internal_req;
5843:
5844: -------------------------------------------------------------------
5891: BEGIN
5892:
5893: OE_Debug_PUB.Add('Entering OE_Delayed_Requests_Util.Reverse_Limits', 1);
5894: OE_Debug_PUB.Add('BOTTOM LEVEL before QP call', 1);
5895: x_return_status := FND_API.G_RET_STS_SUCCESS;
5896:
5897: -- BUG 2670775 Reverse Limits Begin
5898: -- If Limits processing is not installed, no need to proceed further
5899: IF NVL(FND_PROFILE.VALUE('QP_LIMITS_INSTALLED'),'N') = 'N' THEN
5969:
5970:
5971: OE_Debug_PUB.Add('QP_UTIL_PUB.Reverse_Limits returns status of '|| l_return_status, 1);
5972: OE_Debug_PUB.Add('QP_UTIL_PUB.Reverse_Limits returns message of '|| l_return_message , 1);
5973: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5974: OE_Debug_PUB.Add('Error returned by QP_UTIL_PUB.Reverse_Limits',1);
5975: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5976: RAISE FND_API.G_EXC_ERROR;
5977: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5971: OE_Debug_PUB.Add('QP_UTIL_PUB.Reverse_Limits returns status of '|| l_return_status, 1);
5972: OE_Debug_PUB.Add('QP_UTIL_PUB.Reverse_Limits returns message of '|| l_return_message , 1);
5973: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5974: OE_Debug_PUB.Add('Error returned by QP_UTIL_PUB.Reverse_Limits',1);
5975: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5976: RAISE FND_API.G_EXC_ERROR;
5977: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5978: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5979: END IF;
5972: OE_Debug_PUB.Add('QP_UTIL_PUB.Reverse_Limits returns message of '|| l_return_message , 1);
5973: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5974: OE_Debug_PUB.Add('Error returned by QP_UTIL_PUB.Reverse_Limits',1);
5975: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5976: RAISE FND_API.G_EXC_ERROR;
5977: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5978: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5979: END IF;
5980: END IF;
5973: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5974: OE_Debug_PUB.Add('Error returned by QP_UTIL_PUB.Reverse_Limits',1);
5975: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5976: RAISE FND_API.G_EXC_ERROR;
5977: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5978: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5979: END IF;
5980: END IF;
5981:
5974: OE_Debug_PUB.Add('Error returned by QP_UTIL_PUB.Reverse_Limits',1);
5975: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5976: RAISE FND_API.G_EXC_ERROR;
5977: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5978: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5979: END IF;
5980: END IF;
5981:
5982: --bug 7491829
5989:
5990: OE_Debug_PUB.Add('Exiting OE_Delayed_Requests_Util.Reverse_Limits with status of '|| x_return_status, 1);
5991:
5992: EXCEPTION
5993: WHEN FND_API.G_EXC_ERROR THEN
5994:
5995: x_return_status := FND_API.G_RET_STS_ERROR;
5996:
5997: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5991:
5992: EXCEPTION
5993: WHEN FND_API.G_EXC_ERROR THEN
5994:
5995: x_return_status := FND_API.G_RET_STS_ERROR;
5996:
5997: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5998:
5999: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5993: WHEN FND_API.G_EXC_ERROR THEN
5994:
5995: x_return_status := FND_API.G_RET_STS_ERROR;
5996:
5997: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5998:
5999: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6000:
6001: WHEN OTHERS THEN
5995: x_return_status := FND_API.G_RET_STS_ERROR;
5996:
5997: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5998:
5999: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6000:
6001: WHEN OTHERS THEN
6002:
6003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5999: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6000:
6001: WHEN OTHERS THEN
6002:
6003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6004: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6005: THEN
6006: OE_MSG_PUB.Add_Exc_Msg
6007: ( G_PKG_NAME
6081: oe_debug_pub.add( 'l_reciever_code before:' || l_reciever_code ) ;
6082: END IF;
6083:
6084:
6085: IF l_reciever_code = FND_API.G_MISS_CHAR OR
6086: l_reciever_code IS NULL THEN
6087: l_reciever_code := 'C';
6088: END IF;
6089:
6437: END IF;
6438: END IF;
6439: END IF;
6440:
6441: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6442: IF l_debug_level > 0 THEN
6443: OE_Debug_PUB.Add('ERROR RETURNED BY RAISE_EVENT FOR: ' || l_acknowledgment_type);
6444: END IF;
6445: END IF;
6456: When others then
6457: IF l_debug_level > 0 THEN
6458: oe_debug_pub.add( 'IN OTHERS EXCEPTION:' || SQLERRM) ;
6459: END IF;
6460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6461: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6462: End Process_XML_Delayed_Request;
6463:
6464:
6457: IF l_debug_level > 0 THEN
6458: oe_debug_pub.add( 'IN OTHERS EXCEPTION:' || SQLERRM) ;
6459: END IF;
6460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6461: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6462: End Process_XML_Delayed_Request;
6463:
6464:
6465: /* 7576948: IR ISO Change Management project Start */
6552: oe_debug_pub.ADD(' Not an Order Level Cancellation',5);
6553: END IF;
6554: END IF;
6555:
6556: x_return_status := FND_API.G_RET_STS_SUCCESS;
6557: l_New_Schedule_Ship_Date := p_New_Schedule_Ship_Date;
6558:
6559: IF NOT p_Cancel_Order THEN
6560: IF p_line_id IS NULL THEN
6560: IF p_line_id IS NULL THEN
6561: IF l_debug_level > 0 THEN
6562: oe_debug_pub.add(' Invalid processing since Line_id is null for non-order header cancellation',1);
6563: END IF;
6564: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6565: END IF;
6566: Begin
6567: select nvl(ordered_quantity,0)
6568: into l_new_ord_quantity
6592: , X_msg_data => l_msg_data
6593: , X_return_status => l_return_status
6594: );
6595:
6596: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6597: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6598: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6599: RAISE FND_API.G_EXC_ERROR;
6600: END IF;
6593: , X_return_status => l_return_status
6594: );
6595:
6596: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6597: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6598: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6599: RAISE FND_API.G_EXC_ERROR;
6600: END IF;
6601:
6594: );
6595:
6596: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6597: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6598: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6599: RAISE FND_API.G_EXC_ERROR;
6600: END IF;
6601:
6602: X_return_status := l_return_status;
6595:
6596: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6597: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6598: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6599: RAISE FND_API.G_EXC_ERROR;
6600: END IF;
6601:
6602: X_return_status := l_return_status;
6603:
6604: IF l_debug_level > 0 THEN
6605: oe_debug_pub.ADD('Exiting delayed request utility for Update_Requisition_Info',1);
6606: END IF;
6607: EXCEPTION
6608: WHEN FND_API.G_EXC_ERROR THEN
6609: x_return_status := FND_API.G_RET_STS_ERROR;
6610: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6611: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6612: WHEN OTHERS THEN
6605: oe_debug_pub.ADD('Exiting delayed request utility for Update_Requisition_Info',1);
6606: END IF;
6607: EXCEPTION
6608: WHEN FND_API.G_EXC_ERROR THEN
6609: x_return_status := FND_API.G_RET_STS_ERROR;
6610: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6611: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6612: WHEN OTHERS THEN
6613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6606: END IF;
6607: EXCEPTION
6608: WHEN FND_API.G_EXC_ERROR THEN
6609: x_return_status := FND_API.G_RET_STS_ERROR;
6610: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6611: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6612: WHEN OTHERS THEN
6613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6614: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6607: EXCEPTION
6608: WHEN FND_API.G_EXC_ERROR THEN
6609: x_return_status := FND_API.G_RET_STS_ERROR;
6610: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6611: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6612: WHEN OTHERS THEN
6613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6614: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6615: OE_MSG_PUB.Add_Exc_Msg
6609: x_return_status := FND_API.G_RET_STS_ERROR;
6610: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6611: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6612: WHEN OTHERS THEN
6613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6614: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6615: OE_MSG_PUB.Add_Exc_Msg
6616: ( G_PKG_NAME
6617: , 'Update_Requisition_Info'