[Home] [Help]
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
86: EXCEPTION
87:
88: WHEN OTHERS THEN
89:
90: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
91:
92: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
93: THEN
94: OE_MSG_PUB.Add_Exc_Msg
130: EXCEPTION
131:
132: WHEN OTHERS THEN
133:
134: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
135:
136: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
137: THEN
138: OE_MSG_PUB.Add_Exc_Msg
173: l_sales_credit_type_id NUMBER;
174: l_salesrep_id NUMBER;
175: l_percent NUMBER;
176: l_q_percent NUMBER;
177: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
178: l_sales_credit_id NUMBER;
179: l_service_type_code VARCHAR2(30); --Bug 4946843
180:
181: CURSOR PARENT IS
431: -- Set recursion mode.
432: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
433:
434: OE_ORDER_PVT.Line_Scredits
435: (p_validation_level => FND_API.G_VALID_LEVEL_FULL
436: ,p_control_rec => l_control_rec
437: ,p_x_Line_Scredit_tbl => l_Line_Scredit_tbl
438: ,p_x_old_Line_Scredit_tbl => l_old_Line_Scredit_tbl
439: ,x_return_status => l_return_status);
440:
441: -- Reset recursion mode.
442: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
443:
444: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
446: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
447: RAISE FND_API.G_EXC_ERROR;
448: END IF;
441: -- Reset recursion mode.
442: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
443:
444: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
446: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
447: RAISE FND_API.G_EXC_ERROR;
448: END IF;
449:
442: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
443:
444: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
446: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
447: RAISE FND_API.G_EXC_ERROR;
448: END IF;
449:
450: --comment out for notification project
443:
444: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
446: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
447: RAISE FND_API.G_EXC_ERROR;
448: END IF;
449:
450: --comment out for notification project
451: /* OE_ORDER_PVT.Process_Requests_And_notify
454: ,x_return_status => l_return_status
455: ,p_Line_Scredit_tbl => l_Line_Scredit_tbl
456: ,p_old_Line_Scredit_tbl => l_old_Line_Scredit_tbl);
457:
458: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
459: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
460: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
461: RAISE FND_API.G_EXC_ERROR;
462: END IF;
455: ,p_Line_Scredit_tbl => l_Line_Scredit_tbl
456: ,p_old_Line_Scredit_tbl => l_old_Line_Scredit_tbl);
457:
458: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
459: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
460: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
461: RAISE FND_API.G_EXC_ERROR;
462: END IF;
463: */
456: ,p_old_Line_Scredit_tbl => l_old_Line_Scredit_tbl);
457:
458: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
459: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
460: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
461: RAISE FND_API.G_EXC_ERROR;
462: END IF;
463: */
464: -- Clear Table
457:
458: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
459: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
460: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
461: RAISE FND_API.G_EXC_ERROR;
462: END IF;
463: */
464: -- Clear Table
465: l_Line_Scredit_tbl.DELETE;
470: x_return_status := l_return_status;
471:
472: EXCEPTION
473:
474: WHEN FND_API.G_EXC_ERROR THEN
475:
476: x_return_status := FND_API.G_RET_STS_ERROR;
477:
478: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
472: EXCEPTION
473:
474: WHEN FND_API.G_EXC_ERROR THEN
475:
476: x_return_status := FND_API.G_RET_STS_ERROR;
477:
478: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
479:
480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
474: WHEN FND_API.G_EXC_ERROR THEN
475:
476: x_return_status := FND_API.G_RET_STS_ERROR;
477:
478: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
479:
480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
481:
482: WHEN OTHERS THEN
476: x_return_status := FND_API.G_RET_STS_ERROR;
477:
478: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
479:
480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
481:
482: WHEN OTHERS THEN
483:
484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
481:
482: WHEN OTHERS THEN
483:
484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
485:
486: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
487: THEN
488: OE_MSG_PUB.Add_Exc_Msg
518: l_header_id NUMBER := NULL;
519: l_line_id NUMBER := NULL;
520: l_discount_id NUMBER := 0;
521: l_duplicate VARCHAR2(30) := NULL;
522: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
523:
524: DUPLICATE_DISCOUNT EXCEPTION;
525:
526: BEGIN
550: AND line_id IS NULL;
551:
552: IF SQL%rowcount <> 0
553: THEN
554: l_return_status := FND_API.G_RET_STS_ERROR;
555:
556: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
557: THEN
558:
578: AND line_id = l_line_id
579: AND price_adjustment_id <> Nvl(l_entity_id, -1);
580:
581: IF SQL%rowcount <> 0 THEN
582: l_return_status := FND_API.G_RET_STS_ERROR;
583:
584: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
585: THEN
586:
607: x_return_status := l_return_status;
608:
609: WHEN OTHERS
610: THEN
611: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
612:
613: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
614: THEN
615: OE_MSG_PUB.Add_Exc_Msg
634: l_count NUMBER;
635: l_discount_count NUMBER;
636: l_fixed_price VARCHAR2(30) := NULL;
637: l_discount_name VARCHAR2(30) := NULL;
638: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
639: l_number NUMBER := 0;
640:
641:
642: FIXED_PRICE EXCEPTION;
696: IF l_count <> 0
697: AND l_discount_count = 1 THEN
698: oe_debug_pub.ADD('OEXSRLNB2: Check Fixed Price. '||
699: ' entity_code = ' || l_entity_code, 2);
700: l_return_status := FND_API.G_RET_STS_ERROR;
701: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
702: THEN
703:
704: FND_MESSAGE.SET_NAME('ONT', 'OE_DIS_FIXED_PRICE_HEADER');
762: IF SQL%rowcount <> 0
763: AND l_discount_count = 1 THEN
764: oe_debug_pub.ADD('OEXSRLNB2: Check Fixed Price. '||
765: ' entity_code = ' || l_entity_code, 2);
766: l_return_status := FND_API.G_RET_STS_ERROR;
767: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
768: THEN
769:
770: FND_MESSAGE.SET_NAME('ONT', 'OE_DIS_FIXED_PRICE_VIOL');
778: END IF;
779: END IF;
780:
781:
782: x_return_status := FND_API.G_RET_STS_SUCCESS;
783:
784: oe_debug_pub.add('Exiting OE_DELAYED_REQUESTS_UTIL.CHECK_FIXED_PRICE', 1);
785:
786: EXCEPTION
786: EXCEPTION
787:
788: WHEN NO_DATA_FOUND OR FIXED_PRICE
789: THEN
790: x_return_status := FND_API.G_RET_STS_SUCCESS;
791:
792: WHEN FIXED_PRICE_VIOLATE
793: THEN
794: x_return_status := l_return_status;
795:
796:
797: WHEN OTHERS
798: THEN
799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
800:
801: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
802: THEN
803: OE_MSG_PUB.Add_Exc_Msg
820: l_header_id NUMBER := NULL;
821: l_line_id NUMBER := NULL;
822: l_percentage NUMBER := 0;
823: l_percent_total NUMBER := 0;
824: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
825: l_apply_order_adjs VARCHAR2(1) :=
826: Nvl(fnd_profile.value('OE_APPLY_ORDER_ADJS_TO_SERVICE'),
827: 'N');
828:
895: To_char(l_percent_total), 2);
896:
897: IF ( l_percent_total > 100 ) THEN
898:
899: l_return_status := FND_API.G_RET_STS_ERROR;
900:
901: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
902: THEN
903:
934:
935:
936: IF ( l_percent_total > 100 ) THEN
937:
938: l_return_status := FND_API.G_RET_STS_ERROR;
939:
940: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
941: THEN
942:
998: x_return_status := l_return_status;
999:
1000:
1001: WHEN OTHERS THEN
1002: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1003:
1004: IF line_adj_total%isopen THEN
1005: CLOSE line_adj_total;
1006: END IF;
1094: -- Set recursion mode.
1095: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
1096:
1097: OE_ORDER_PVT.Lines
1098: (p_validation_level => FND_API.G_VALID_LEVEL_FULL
1099: ,p_control_rec => l_control_rec
1100: ,p_x_line_tbl => l_line_tbl
1101: ,p_x_old_line_tbl => l_old_line_tbl
1102: ,x_return_status => l_return_status);
1103:
1104: -- Reset recursion mode.
1105: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
1106:
1107: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1109: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1110: RAISE FND_API.G_EXC_ERROR;
1111: END IF;
1104: -- Reset recursion mode.
1105: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
1106:
1107: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1109: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1110: RAISE FND_API.G_EXC_ERROR;
1111: END IF;
1112:
1105: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
1106:
1107: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1109: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1110: RAISE FND_API.G_EXC_ERROR;
1111: END IF;
1112:
1113: --comment out for notification project
1106:
1107: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1109: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1110: RAISE FND_API.G_EXC_ERROR;
1111: END IF;
1112:
1113: --comment out for notification project
1114: /* OE_ORDER_PVT.Process_Requests_And_notify
1117: ,x_return_status => l_return_status
1118: ,p_line_tbl => l_line_tbl
1119: ,p_old_line_tbl => l_old_line_tbl);
1120:
1121: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1122: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1123: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1124: RAISE FND_API.G_EXC_ERROR;
1125: END IF;
1118: ,p_line_tbl => l_line_tbl
1119: ,p_old_line_tbl => l_old_line_tbl);
1120:
1121: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1122: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1123: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1124: RAISE FND_API.G_EXC_ERROR;
1125: END IF;
1126: */
1119: ,p_old_line_tbl => l_old_line_tbl);
1120:
1121: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1122: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1123: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1124: RAISE FND_API.G_EXC_ERROR;
1125: END IF;
1126: */
1127:
1120:
1121: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1122: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1123: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1124: RAISE FND_API.G_EXC_ERROR;
1125: END IF;
1126: */
1127:
1128: oe_debug_pub.add('Exiting OE_DELAYED_REQUESTS_UTIL.CREATE_CONFIG_ITEM', 1);
1128: oe_debug_pub.add('Exiting OE_DELAYED_REQUESTS_UTIL.CREATE_CONFIG_ITEM', 1);
1129:
1130: EXCEPTION
1131:
1132: WHEN FND_API.G_EXC_ERROR THEN
1133:
1134: x_return_status := FND_API.G_RET_STS_ERROR;
1135:
1136: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1130: EXCEPTION
1131:
1132: WHEN FND_API.G_EXC_ERROR THEN
1133:
1134: x_return_status := FND_API.G_RET_STS_ERROR;
1135:
1136: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1137:
1138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1132: WHEN FND_API.G_EXC_ERROR THEN
1133:
1134: x_return_status := FND_API.G_RET_STS_ERROR;
1135:
1136: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1137:
1138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1139:
1140: WHEN OTHERS THEN
1134: x_return_status := FND_API.G_RET_STS_ERROR;
1135:
1136: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1137:
1138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1139:
1140: WHEN OTHERS THEN
1141:
1142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1139:
1140: WHEN OTHERS THEN
1141:
1142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1143:
1144: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1145: THEN
1146: OE_MSG_PUB.Add_Exc_Msg
1176: l_msg_count NUMBER;
1177: l_msg_data VARCHAR2(2000);
1178: BEGIN
1179:
1180: x_return_status := FND_API.G_RET_STS_SUCCESS;
1181:
1182: oe_debug_pub.ADD('Entering delayed request utility for verify payment',1);
1183:
1184: OE_Verify_Payment_PUB.Verify_Payment
1183:
1184: OE_Verify_Payment_PUB.Verify_Payment
1185: ( p_header_id => p_header_id
1186: , p_calling_action => 'UPDATE'
1187: , p_delayed_request=> FND_API.G_TRUE
1188: , p_msg_count => l_msg_count
1189: , p_msg_data => l_msg_data
1190: , p_return_status => l_return_status
1191: );
1189: , p_msg_data => l_msg_data
1190: , p_return_status => l_return_status
1191: );
1192:
1193: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1194: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1195: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1196: RAISE FND_API.G_EXC_ERROR;
1197: END IF;
1190: , p_return_status => l_return_status
1191: );
1192:
1193: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1194: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1195: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1196: RAISE FND_API.G_EXC_ERROR;
1197: END IF;
1198:
1191: );
1192:
1193: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1194: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1195: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1196: RAISE FND_API.G_EXC_ERROR;
1197: END IF;
1198:
1199: oe_debug_pub.ADD('Exiting delayed request utility for verify payment',1);
1192:
1193: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1194: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1195: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1196: RAISE FND_API.G_EXC_ERROR;
1197: END IF;
1198:
1199: oe_debug_pub.ADD('Exiting delayed request utility for verify payment',1);
1200:
1199: oe_debug_pub.ADD('Exiting delayed request utility for verify payment',1);
1200:
1201: EXCEPTION
1202:
1203: WHEN FND_API.G_EXC_ERROR THEN
1204:
1205: x_return_status := FND_API.G_RET_STS_ERROR;
1206:
1207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1201: EXCEPTION
1202:
1203: WHEN FND_API.G_EXC_ERROR THEN
1204:
1205: x_return_status := FND_API.G_RET_STS_ERROR;
1206:
1207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1208:
1209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1203: WHEN FND_API.G_EXC_ERROR THEN
1204:
1205: x_return_status := FND_API.G_RET_STS_ERROR;
1206:
1207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1208:
1209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1210:
1211: WHEN OTHERS THEN
1205: x_return_status := FND_API.G_RET_STS_ERROR;
1206:
1207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1208:
1209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1210:
1211: WHEN OTHERS THEN
1212:
1213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1210:
1211: WHEN OTHERS THEN
1212:
1213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1214:
1215: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1216: THEN
1217: OE_MSG_PUB.Add_Exc_Msg
1255: OE_DEBUG_PUB.ADD('RMA: In INSERT_RMA_SCREDIT_ADJUSTMENT',1);
1256:
1257: OE_DEBUG_PUB.ADD('RMA: Line Id is '||TO_CHAR(p_line_id),2);
1258:
1259: x_return_status := FND_API.G_RET_STS_SUCCESS;
1260:
1261: -- bug 3317323
1262: BEGIN
1263: SELECT header_id, reference_header_id, reference_line_id,split_by
1282: (p_line_id => p_line_id
1283: ,x_line_Scredit_tbl => l_Line_Scredit_tbl
1284: ,x_return_status => l_return_status);
1285:
1286: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1287: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1288: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1289: RAISE FND_API.G_EXC_ERROR;
1290: END IF;
1283: ,x_line_Scredit_tbl => l_Line_Scredit_tbl
1284: ,x_return_status => l_return_status);
1285:
1286: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1287: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1288: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1289: RAISE FND_API.G_EXC_ERROR;
1290: END IF;
1291: EXCEPTION
1284: ,x_return_status => l_return_status);
1285:
1286: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1287: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1288: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1289: RAISE FND_API.G_EXC_ERROR;
1290: END IF;
1291: EXCEPTION
1292: WHEN NO_DATA_FOUND THEN
1285:
1286: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1287: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1288: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1289: RAISE FND_API.G_EXC_ERROR;
1290: END IF;
1291: EXCEPTION
1292: WHEN NO_DATA_FOUND THEN
1293: OE_DEBUG_PUB.ADD('There are no existing sales credits to delete',1);
1343: l_x_Line_Scredit_tbl(l_count + I):= l_line_Scredit_tbl(I);
1344: l_x_Line_Scredit_tbl(l_count + I).operation := OE_GLOBALS.G_OPR_CREATE;
1345: l_x_Line_Scredit_tbl(l_count + I).header_id := l_header_id;
1346: l_x_Line_Scredit_tbl(l_count + I).line_id := p_line_id;
1347: l_x_Line_Scredit_tbl(l_count + I).sales_credit_id := FND_API.G_MISS_NUM;
1348:
1349: END LOOP;
1350:
1351: END IF; /* end inserting sales credit */
1371: end if; /*End of changes for bug 6778016*/
1372:
1373: OE_DEBUG_PUB.ADD('Calling OE_ORDER_PVT.Line_Scredits',1);
1374: OE_ORDER_PVT.Line_Scredits
1375: (p_validation_level => FND_API.G_VALID_LEVEL_FULL
1376: ,p_control_rec => l_control_rec
1377: ,p_x_Line_Scredit_tbl => l_x_Line_Scredit_tbl
1378: ,p_x_old_Line_Scredit_tbl => l_x_old_Line_Scredit_tbl
1379: ,x_return_status => l_return_status);
1381: OE_DEBUG_PUB.ADD('After Calling OE_ORDER_PVT.Line_Scredits',1);
1382: -- Reset recursion mode.
1383: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
1384:
1385: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1387: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1388: RAISE FND_API.G_EXC_ERROR;
1389: END IF;
1382: -- Reset recursion mode.
1383: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
1384:
1385: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1387: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1388: RAISE FND_API.G_EXC_ERROR;
1389: END IF;
1390:
1383: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
1384:
1385: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1387: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1388: RAISE FND_API.G_EXC_ERROR;
1389: END IF;
1390:
1391: --comment out for notification project
1384:
1385: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1387: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1388: RAISE FND_API.G_EXC_ERROR;
1389: END IF;
1390:
1391: --comment out for notification project
1392: /* OE_ORDER_PVT.Process_Requests_And_notify
1395: ,x_return_status => l_return_status
1396: ,p_Line_Scredit_tbl => l_x_Line_Scredit_tbl
1397: ,p_old_Line_Scredit_tbl => l_x_old_Line_Scredit_tbl);
1398:
1399: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1400: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1401: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1402: RAISE FND_API.G_EXC_ERROR;
1403: END IF;
1396: ,p_Line_Scredit_tbl => l_x_Line_Scredit_tbl
1397: ,p_old_Line_Scredit_tbl => l_x_old_Line_Scredit_tbl);
1398:
1399: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1400: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1401: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1402: RAISE FND_API.G_EXC_ERROR;
1403: END IF;
1404: */
1397: ,p_old_Line_Scredit_tbl => l_x_old_Line_Scredit_tbl);
1398:
1399: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1400: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1401: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1402: RAISE FND_API.G_EXC_ERROR;
1403: END IF;
1404: */
1405: -- Clear Table
1398:
1399: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1400: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1401: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1402: RAISE FND_API.G_EXC_ERROR;
1403: END IF;
1404: */
1405: -- Clear Table
1406: l_Line_Scredit_tbl.DELETE;
1410: oe_debug_pub.add('Exit INSERT_RMA_SCREDIT_ADJUSTMENT',1);
1411: EXCEPTION
1412:
1413:
1414: WHEN FND_API.G_EXC_ERROR THEN
1415:
1416: x_return_status := FND_API.G_RET_STS_ERROR;
1417:
1418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1412:
1413:
1414: WHEN FND_API.G_EXC_ERROR THEN
1415:
1416: x_return_status := FND_API.G_RET_STS_ERROR;
1417:
1418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1419:
1420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1414: WHEN FND_API.G_EXC_ERROR THEN
1415:
1416: x_return_status := FND_API.G_RET_STS_ERROR;
1417:
1418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1419:
1420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1421:
1422: WHEN OTHERS THEN
1416: x_return_status := FND_API.G_RET_STS_ERROR;
1417:
1418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1419:
1420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1421:
1422: WHEN OTHERS THEN
1423:
1424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1421:
1422: WHEN OTHERS THEN
1423:
1424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1425:
1426: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1427: THEN
1428: OE_MSG_PUB.Add_Exc_Msg
1445: PROCEDURE Tax_Line ( x_return_status OUT NOCOPY VARCHAR2
1446: , p_line_id IN NUMBER
1447: )
1448: IS
1449: l_return_status Varchar2(30):= FND_API.G_RET_STS_SUCCESS;
1450: --l_tax_value NUMBER := 0;
1451: l_line_id NUMBER := p_line_id;
1452: l_msg_count NUMBER := 0;
1453: l_count NUMBER := 0;
1521: x_tax_value => l_tax_value,
1522: x_tax_out_tbl => l_tax_rec_out_tbl,
1523: x_return_status => l_return_status );
1524:
1525: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1526: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1527: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1528: RAISE FND_API.G_EXC_ERROR;
1529: END IF;
1522: x_tax_out_tbl => l_tax_rec_out_tbl,
1523: x_return_status => l_return_status );
1524:
1525: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1526: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1527: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1528: RAISE FND_API.G_EXC_ERROR;
1529: END IF;
1530:
1523: x_return_status => l_return_status );
1524:
1525: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1526: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1527: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1528: RAISE FND_API.G_EXC_ERROR;
1529: END IF;
1530:
1531: l_line_rec.tax_value := l_tax_value;
1524:
1525: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1526: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1527: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1528: RAISE FND_API.G_EXC_ERROR;
1529: END IF;
1530:
1531: l_line_rec.tax_value := l_tax_value;
1532:
1539: OE_Line_Adj_UTIL.Lock_Rows
1540: ( p_line_id => l_line_id
1541: ,x_line_adj_tbl => l_l_line_adj_tbl
1542: ,x_return_status => l_return_status);
1543: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1545: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1546: RAISE FND_API.G_EXC_ERROR;
1547: END IF;
1540: ( p_line_id => l_line_id
1541: ,x_line_adj_tbl => l_l_line_adj_tbl
1542: ,x_return_status => l_return_status);
1543: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1545: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1546: RAISE FND_API.G_EXC_ERROR;
1547: END IF;
1548: EXCEPTION
1541: ,x_line_adj_tbl => l_l_line_adj_tbl
1542: ,x_return_status => l_return_status);
1543: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1545: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1546: RAISE FND_API.G_EXC_ERROR;
1547: END IF;
1548: EXCEPTION
1549: WHEN OTHERS THEN
1542: ,x_return_status => l_return_status);
1543: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1545: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1546: RAISE FND_API.G_EXC_ERROR;
1547: END IF;
1548: EXCEPTION
1549: WHEN OTHERS THEN
1550: x_return_status := FND_API.G_RET_STS_SUCCESS;
1546: RAISE FND_API.G_EXC_ERROR;
1547: END IF;
1548: EXCEPTION
1549: WHEN OTHERS THEN
1550: x_return_status := FND_API.G_RET_STS_SUCCESS;
1551: END;
1552:
1553: -- If any TAX records exists, then delete those records.
1554: oe_debug_pub.add('line_adj_tbl count is : ' || l_l_line_adj_tbl.count , 1);
1676: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
1677:
1678: OE_Order_PVT.Process_order
1679: ( p_api_version_number => 1.0
1680: , p_init_msg_list => FND_API.G_FALSE
1681: , x_return_status => l_return_status
1682: , x_msg_count => l_msg_count
1683: , x_msg_data => l_msg_data
1684: , p_control_rec => l_control_rec
1707:
1708: -- Reset recursion mode.
1709: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
1710:
1711: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1712: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1713: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1714: RAISE FND_API.G_EXC_ERROR;
1715: END IF;
1708: -- Reset recursion mode.
1709: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
1710:
1711: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1712: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1713: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1714: RAISE FND_API.G_EXC_ERROR;
1715: END IF;
1716: oe_debug_pub.add('After calling Process_order API',2);
1709: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
1710:
1711: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1712: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1713: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1714: RAISE FND_API.G_EXC_ERROR;
1715: END IF;
1716: oe_debug_pub.add('After calling Process_order API',2);
1717: END IF;
1710:
1711: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1712: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1713: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1714: RAISE FND_API.G_EXC_ERROR;
1715: END IF;
1716: oe_debug_pub.add('After calling Process_order API',2);
1717: END IF;
1718: l_tax_rec_out_tbl.delete;
1718: l_tax_rec_out_tbl.delete;
1719: x_return_status := l_return_status;
1720: oe_debug_pub.add('Exiting Tax Line',1);
1721: EXCEPTION
1722: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1723: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1724:
1725: WHEN FND_API.G_EXC_ERROR THEN
1726: x_return_status := FND_API.G_RET_STS_ERROR;
1719: x_return_status := l_return_status;
1720: oe_debug_pub.add('Exiting Tax Line',1);
1721: EXCEPTION
1722: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1723: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1724:
1725: WHEN FND_API.G_EXC_ERROR THEN
1726: x_return_status := FND_API.G_RET_STS_ERROR;
1727:
1721: EXCEPTION
1722: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1723: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1724:
1725: WHEN FND_API.G_EXC_ERROR THEN
1726: x_return_status := FND_API.G_RET_STS_ERROR;
1727:
1728: WHEN NO_DATA_FOUND THEN
1729: x_return_status := FND_API.G_RET_STS_SUCCESS;
1722: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1723: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1724:
1725: WHEN FND_API.G_EXC_ERROR THEN
1726: x_return_status := FND_API.G_RET_STS_ERROR;
1727:
1728: WHEN NO_DATA_FOUND THEN
1729: x_return_status := FND_API.G_RET_STS_SUCCESS;
1730:
1725: WHEN FND_API.G_EXC_ERROR THEN
1726: x_return_status := FND_API.G_RET_STS_ERROR;
1727:
1728: WHEN NO_DATA_FOUND THEN
1729: x_return_status := FND_API.G_RET_STS_SUCCESS;
1730:
1731: WHEN OTHERS THEN
1732:
1733: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1736: ( G_PKG_NAME ,
1737: 'Tax Line'
1738: );
1739: END IF;
1740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1741: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1742:
1743: END Tax_Line;
1744:
1737: 'Tax Line'
1738: );
1739: END IF;
1740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1741: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1742:
1743: END Tax_Line;
1744:
1745: */
1772: , x_return_status => x_return_status
1773: , x_msg_count => l_msg_count
1774: , x_msg_data => l_msg_data
1775: );
1776: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1777: OE_Debug_PUB.Add('Error in OE_Holds_PUB.split_Holds',2);
1778: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1779: RAISE FND_API.G_EXC_ERROR;
1780: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1774: , x_msg_data => l_msg_data
1775: );
1776: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1777: OE_Debug_PUB.Add('Error in OE_Holds_PUB.split_Holds',2);
1778: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1779: RAISE FND_API.G_EXC_ERROR;
1780: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1781: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1782: END IF;
1775: );
1776: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1777: OE_Debug_PUB.Add('Error in OE_Holds_PUB.split_Holds',2);
1778: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1779: RAISE FND_API.G_EXC_ERROR;
1780: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1781: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1782: END IF;
1783: END IF; -- if split hold was successful
1776: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1777: OE_Debug_PUB.Add('Error in OE_Holds_PUB.split_Holds',2);
1778: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1779: RAISE FND_API.G_EXC_ERROR;
1780: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1781: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1782: END IF;
1783: END IF; -- if split hold was successful
1784:
1777: OE_Debug_PUB.Add('Error in OE_Holds_PUB.split_Holds',2);
1778: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1779: RAISE FND_API.G_EXC_ERROR;
1780: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1781: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1782: END IF;
1783: END IF; -- if split hold was successful
1784:
1785: OE_Debug_PUB.Add('Exiting OE_Delayed_Requests_Util.split_Hold',2);
1785: OE_Debug_PUB.Add('Exiting OE_Delayed_Requests_Util.split_Hold',2);
1786:
1787: EXCEPTION
1788:
1789: WHEN FND_API.G_EXC_ERROR THEN
1790:
1791: x_return_status := FND_API.G_RET_STS_ERROR;
1792:
1793: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1787: EXCEPTION
1788:
1789: WHEN FND_API.G_EXC_ERROR THEN
1790:
1791: x_return_status := FND_API.G_RET_STS_ERROR;
1792:
1793: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1794:
1795: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1789: WHEN FND_API.G_EXC_ERROR THEN
1790:
1791: x_return_status := FND_API.G_RET_STS_ERROR;
1792:
1793: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1794:
1795: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1796:
1797: WHEN OTHERS THEN
1791: x_return_status := FND_API.G_RET_STS_ERROR;
1792:
1793: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1794:
1795: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1796:
1797: WHEN OTHERS THEN
1798:
1799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1795: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1796:
1797: WHEN OTHERS THEN
1798:
1799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1800: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1801: THEN
1802: OE_MSG_PUB.Add_Exc_Msg
1803: ( G_PKG_NAME
1832: BEGIN
1833:
1834: OE_Debug_PUB.Add('Entering Eval_Hold_Source', 1);
1835: Oe_debug_pub.add('Hold entity: '|| p_hold_entity_code ||' '|| p_hold_entity_id,2);
1836: x_return_status := FND_API.G_RET_STS_SUCCESS;
1837:
1838: oe_holds_pub.evaluate_holds ( p_entity_code => p_entity_code
1839: ,p_entity_id => p_entity_id
1840: ,p_hold_entity_code => p_hold_entity_code
1845: );
1846:
1847:
1848:
1849: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1850: OE_Debug_PUB.Add('Error in OE_Holds_PUB.evaluate_holds',2);
1851: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1852: RAISE FND_API.G_EXC_ERROR;
1853: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1847:
1848:
1849: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1850: OE_Debug_PUB.Add('Error in OE_Holds_PUB.evaluate_holds',2);
1851: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1852: RAISE FND_API.G_EXC_ERROR;
1853: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1855: END IF;
1848:
1849: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1850: OE_Debug_PUB.Add('Error in OE_Holds_PUB.evaluate_holds',2);
1851: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1852: RAISE FND_API.G_EXC_ERROR;
1853: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1855: END IF;
1856: END IF;
1849: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1850: OE_Debug_PUB.Add('Error in OE_Holds_PUB.evaluate_holds',2);
1851: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1852: RAISE FND_API.G_EXC_ERROR;
1853: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1855: END IF;
1856: END IF;
1857:
1850: OE_Debug_PUB.Add('Error in OE_Holds_PUB.evaluate_holds',2);
1851: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1852: RAISE FND_API.G_EXC_ERROR;
1853: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1855: END IF;
1856: END IF;
1857:
1858: OE_Debug_PUB.Add('Exiting Eval_Hold_Source', 1);
1857:
1858: OE_Debug_PUB.Add('Exiting Eval_Hold_Source', 1);
1859:
1860: EXCEPTION
1861: WHEN FND_API.G_EXC_ERROR THEN
1862:
1863: x_return_status := FND_API.G_RET_STS_ERROR;
1864:
1865: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1859:
1860: EXCEPTION
1861: WHEN FND_API.G_EXC_ERROR THEN
1862:
1863: x_return_status := FND_API.G_RET_STS_ERROR;
1864:
1865: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1866:
1867: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1861: WHEN FND_API.G_EXC_ERROR THEN
1862:
1863: x_return_status := FND_API.G_RET_STS_ERROR;
1864:
1865: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1866:
1867: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1868:
1869: WHEN OTHERS THEN
1863: x_return_status := FND_API.G_RET_STS_ERROR;
1864:
1865: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1866:
1867: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1868:
1869: WHEN OTHERS THEN
1870:
1871: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1867: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1868:
1869: WHEN OTHERS THEN
1870:
1871: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1872: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1873: THEN
1874: OE_MSG_PUB.Add_Exc_Msg
1875: ( G_PKG_NAME
1966: l_hold_source_rec.attribute13 := l_request_rec.param23;
1967: l_hold_source_rec.attribute14 := l_request_rec.param24;
1968: l_hold_source_rec.attribute15 := l_request_rec.param25;
1969:
1970: l_request_rec.return_status := FND_API.G_RET_STS_SUCCESS;
1971:
1972: -- Changed the following to new signiture 2/24/2000 - ZB
1973: /*
1974: OE_Holds_PUB.Apply_Holds
1983: );
1984: */
1985: OE_Holds_PUB.Apply_Holds
1986: ( p_api_version => 1.0
1987: , p_validation_level => FND_API.G_VALID_LEVEL_NONE
1988: , p_hold_source_rec => l_hold_source_rec
1989: , p_check_authorization_flag => 'Y' -- bug 8477694
1990: , x_return_status => l_return_status
1991: , x_msg_count => l_msg_count
1992: , x_msg_data => l_msg_data
1993: );
1994:
1995:
1996: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1997: OE_Debug_PUB.Add('OEXUREQB:Error in OE_Holds_PUB.Apply_Holds',1);
1998: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1999: RAISE FND_API.G_EXC_ERROR;
2000: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1994:
1995:
1996: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1997: OE_Debug_PUB.Add('OEXUREQB:Error in OE_Holds_PUB.Apply_Holds',1);
1998: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1999: RAISE FND_API.G_EXC_ERROR;
2000: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2001: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2002: END IF;
1995:
1996: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1997: OE_Debug_PUB.Add('OEXUREQB:Error in OE_Holds_PUB.Apply_Holds',1);
1998: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1999: RAISE FND_API.G_EXC_ERROR;
2000: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2001: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2002: END IF;
2003: ELSE
1996: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1997: OE_Debug_PUB.Add('OEXUREQB:Error in OE_Holds_PUB.Apply_Holds',1);
1998: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1999: RAISE FND_API.G_EXC_ERROR;
2000: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2001: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2002: END IF;
2003: ELSE
2004: OE_Debug_PUB.Add('OEXUREQB:Hold applied',1);
1997: OE_Debug_PUB.Add('OEXUREQB:Error in OE_Holds_PUB.Apply_Holds',1);
1998: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1999: RAISE FND_API.G_EXC_ERROR;
2000: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2001: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2002: END IF;
2003: ELSE
2004: OE_Debug_PUB.Add('OEXUREQB:Hold applied',1);
2005: END IF;
2008:
2009: OE_Debug_PUB.Add('Exiting OE_Delayed_Requests_Util.Apply_Hold',1);
2010: EXCEPTION
2011:
2012: WHEN FND_API.G_EXC_ERROR THEN
2013:
2014: l_request_rec.return_status := FND_API.G_RET_STS_ERROR;
2015: x_request_rec := l_request_rec;
2016:
2010: EXCEPTION
2011:
2012: WHEN FND_API.G_EXC_ERROR THEN
2013:
2014: l_request_rec.return_status := FND_API.G_RET_STS_ERROR;
2015: x_request_rec := l_request_rec;
2016:
2017: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2018:
2013:
2014: l_request_rec.return_status := FND_API.G_RET_STS_ERROR;
2015: x_request_rec := l_request_rec;
2016:
2017: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2018:
2019: l_request_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2020: x_request_rec := l_request_rec;
2021:
2015: x_request_rec := l_request_rec;
2016:
2017: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2018:
2019: l_request_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2020: x_request_rec := l_request_rec;
2021:
2022: WHEN OTHERS THEN
2023:
2020: x_request_rec := l_request_rec;
2021:
2022: WHEN OTHERS THEN
2023:
2024: l_request_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2025: x_request_rec := l_request_rec;
2026: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2027: THEN
2028: OE_MSG_PUB.Add_Exc_Msg
2092: l_hold_source_rec.line_id := l_request_rec.entity_id;
2093:
2094: END IF;
2095:
2096: l_request_rec.return_status := FND_API.G_RET_STS_SUCCESS;
2097:
2098: l_hold_id := l_request_rec.param1;
2099: l_entity_code := l_request_rec.param2;
2100:
2145: ,x_msg_data => l_msg_data
2146: );
2147: OE_DEBUG_PUB.Add('x_return_status:' || l_return_status,1);
2148:
2149: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2150: OE_Debug_PUB.Add('Error in OE_Holds_PUB.Release_Holds',2);
2151: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2152: RAISE FND_API.G_EXC_ERROR;
2153: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2147: OE_DEBUG_PUB.Add('x_return_status:' || l_return_status,1);
2148:
2149: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2150: OE_Debug_PUB.Add('Error in OE_Holds_PUB.Release_Holds',2);
2151: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2152: RAISE FND_API.G_EXC_ERROR;
2153: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2155: END IF;
2148:
2149: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2150: OE_Debug_PUB.Add('Error in OE_Holds_PUB.Release_Holds',2);
2151: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2152: RAISE FND_API.G_EXC_ERROR;
2153: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2155: END IF;
2156: ELSE
2149: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2150: OE_Debug_PUB.Add('Error in OE_Holds_PUB.Release_Holds',2);
2151: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2152: RAISE FND_API.G_EXC_ERROR;
2153: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2155: END IF;
2156: ELSE
2157: OE_Debug_PUB.Add('Hold released',1);
2150: OE_Debug_PUB.Add('Error in OE_Holds_PUB.Release_Holds',2);
2151: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2152: RAISE FND_API.G_EXC_ERROR;
2153: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2155: END IF;
2156: ELSE
2157: OE_Debug_PUB.Add('Hold released',1);
2158: END IF;
2160: x_request_rec := l_request_rec;
2161: OE_Debug_PUB.Add('Exiting OE_Delayed_Requests_Util.Release_Hold',1);
2162: EXCEPTION
2163:
2164: WHEN FND_API.G_EXC_ERROR THEN
2165:
2166: l_request_rec.return_status := FND_API.G_RET_STS_ERROR;
2167: x_request_rec := l_request_rec;
2168:
2162: EXCEPTION
2163:
2164: WHEN FND_API.G_EXC_ERROR THEN
2165:
2166: l_request_rec.return_status := FND_API.G_RET_STS_ERROR;
2167: x_request_rec := l_request_rec;
2168:
2169: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2170:
2165:
2166: l_request_rec.return_status := FND_API.G_RET_STS_ERROR;
2167: x_request_rec := l_request_rec;
2168:
2169: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2170:
2171: l_request_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2172: x_request_rec := l_request_rec;
2173:
2167: x_request_rec := l_request_rec;
2168:
2169: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2170:
2171: l_request_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2172: x_request_rec := l_request_rec;
2173:
2174: WHEN OTHERS THEN
2175:
2172: x_request_rec := l_request_rec;
2173:
2174: WHEN OTHERS THEN
2175:
2176: l_request_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2177: x_request_rec := l_request_rec;
2178: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2179: THEN
2180: OE_MSG_PUB.Add_Exc_Msg
2204: x_return_Status => l_return_status,
2205: x_msg_count => x_msg_count,
2206: x_msg_data => x_msg_data);
2207: x_return_status := l_return_status;
2208: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2209: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2210: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2211: RAISE FND_API.G_EXC_ERROR;
2212: END IF;
2205: x_msg_count => x_msg_count,
2206: x_msg_data => x_msg_data);
2207: x_return_status := l_return_status;
2208: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2209: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2210: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2211: RAISE FND_API.G_EXC_ERROR;
2212: END IF;
2213:
2206: x_msg_data => x_msg_data);
2207: x_return_status := l_return_status;
2208: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2209: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2210: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2211: RAISE FND_API.G_EXC_ERROR;
2212: END IF;
2213:
2214:
2207: x_return_status := l_return_status;
2208: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2209: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2210: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2211: RAISE FND_API.G_EXC_ERROR;
2212: END IF;
2213:
2214:
2215: EXCEPTION
2213:
2214:
2215: EXCEPTION
2216:
2217: WHEN FND_API.G_EXC_ERROR THEN
2218:
2219: x_return_status := FND_API.G_RET_STS_ERROR;
2220:
2221: -- Get message count and data
2215: EXCEPTION
2216:
2217: WHEN FND_API.G_EXC_ERROR THEN
2218:
2219: x_return_status := FND_API.G_RET_STS_ERROR;
2220:
2221: -- Get message count and data
2222:
2223: OE_MSG_PUB.Count_And_Get
2224: ( p_count => x_msg_count
2225: , p_data => x_msg_data
2226: );
2227:
2228: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2229:
2230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2231: -- Get message count and data
2232:
2226: );
2227:
2228: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2229:
2230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2231: -- Get message count and data
2232:
2233: OE_MSG_PUB.Count_And_Get
2234: ( p_count => x_msg_count
2236: );
2237:
2238: WHEN OTHERS THEN
2239:
2240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2241:
2242: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2243: THEN
2244: OE_MSG_PUB.Add_Exc_Msg
2273: X_Return_Status => l_return_status,
2274: x_msg_count => x_msg_count,
2275: x_msg_data => x_msg_data);
2276: x_return_status := l_return_status;
2277: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2279: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2280: RAISE FND_API.G_EXC_ERROR;
2281: END IF;
2274: x_msg_count => x_msg_count,
2275: x_msg_data => x_msg_data);
2276: x_return_status := l_return_status;
2277: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2279: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2280: RAISE FND_API.G_EXC_ERROR;
2281: END IF;
2282:
2275: x_msg_data => x_msg_data);
2276: x_return_status := l_return_status;
2277: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2279: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2280: RAISE FND_API.G_EXC_ERROR;
2281: END IF;
2282:
2283:
2276: x_return_status := l_return_status;
2277: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2279: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2280: RAISE FND_API.G_EXC_ERROR;
2281: END IF;
2282:
2283:
2284: EXCEPTION
2282:
2283:
2284: EXCEPTION
2285:
2286: WHEN FND_API.G_EXC_ERROR THEN
2287:
2288: x_return_status := FND_API.G_RET_STS_ERROR;
2289:
2290: -- Get message count and data
2284: EXCEPTION
2285:
2286: WHEN FND_API.G_EXC_ERROR THEN
2287:
2288: x_return_status := FND_API.G_RET_STS_ERROR;
2289:
2290: -- Get message count and data
2291:
2292: OE_MSG_PUB.Count_And_Get
2293: ( p_count => x_msg_count
2294: , p_data => x_msg_data
2295: );
2296:
2297: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2298:
2299: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2300: -- Get message count and data
2301:
2295: );
2296:
2297: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2298:
2299: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2300: -- Get message count and data
2301:
2302: OE_MSG_PUB.Count_And_Get
2303: ( p_count => x_msg_count
2305: );
2306:
2307: WHEN OTHERS THEN
2308:
2309: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2310:
2311: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2312: THEN
2313: OE_MSG_PUB.Add_Exc_Msg
2337: l_msg_count NUMBER;
2338: l_msg_data VARCHAR2(2000);
2339: BEGIN
2340:
2341: x_return_status := FND_API.G_RET_STS_SUCCESS;
2342:
2343: OE_Order_Book_Util.Complete_Book_Eligible
2344: ( p_api_version_number => 1.0
2345: , p_header_id => p_header_id
2348: , x_msg_data => l_msg_data);
2349:
2350: EXCEPTION
2351: WHEN OTHERS THEN
2352: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2353: IF OE_MSG_PUB.Check_Msg_Level
2354: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2355: THEN
2356: OE_MSG_PUB.Add_Exc_Msg
2374: l_action VARCHAR2(1);
2375:
2376: BEGIN
2377:
2378: x_return_status := FND_API.G_RET_STS_SUCCESS;
2379:
2380: IF p_entity_code = OE_Globals.G_ENTITY_HEADER THEN
2381:
2382: l_header_id := p_entity_id;
2427: fnd_message.set_name('ONT','OE_FTE_NOT_ENABLED');
2428: OE_MSG_PUB.Add;
2429: oe_debug_pub.add('Unable to process FTE integration either due to
2430: FTE is not enabled or action code is invalid.', 3);
2431: x_return_status := FND_API.G_RET_STS_ERROR;
2432: END IF;
2433:
2434: OE_DEBUG_PUB.Add('Return Status fte action: '||x_return_status);
2435:
2434: OE_DEBUG_PUB.Add('Return Status fte action: '||x_return_status);
2435:
2436: EXCEPTION
2437: WHEN OTHERS THEN
2438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2439: IF OE_MSG_PUB.Check_Msg_Level
2440: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2441: THEN
2442: OE_MSG_PUB.Add_Exc_Msg
2462: --R12.MOAC
2463: l_selelect_line_tbl OE_GLOBALS.Selected_Record_Tbl;
2464: BEGIN
2465:
2466: x_return_status := FND_API.G_RET_STS_SUCCESS;
2467:
2468:
2469: BEGIN
2470: SELECT header_id
2501:
2502: OE_DEBUG_PUB.Add('After Calling Process Sets'||x_return_status,1);
2503:
2504:
2505: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2506: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2507: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
2508: RAISE FND_API.G_EXC_ERROR;
2509: END IF;
2502: OE_DEBUG_PUB.Add('After Calling Process Sets'||x_return_status,1);
2503:
2504:
2505: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2506: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2507: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
2508: RAISE FND_API.G_EXC_ERROR;
2509: END IF;
2510:
2503:
2504:
2505: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2506: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2507: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
2508: RAISE FND_API.G_EXC_ERROR;
2509: END IF;
2510:
2511: EXCEPTION
2504:
2505: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2506: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2507: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
2508: RAISE FND_API.G_EXC_ERROR;
2509: END IF;
2510:
2511: EXCEPTION
2512: WHEN OTHERS THEN
2509: END IF;
2510:
2511: EXCEPTION
2512: WHEN OTHERS THEN
2513: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2514: IF OE_MSG_PUB.Check_Msg_Level
2515: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2516: THEN
2517: OE_MSG_PUB.Add_Exc_Msg
2535: l_curr_code varchar2(20) := '';
2536: l_sub_template NUMBER;
2537: l_first_period_amt NUMBER;
2538: l_first_period_enddate DATE;
2539: l_return_status VARCHAR2(30) := FND_API.G_RET_STS_SUCCESS;
2540: l_global_index NUMBER;
2541: CURSOR l_servbill_lin (
2542: p_header_id IN NUMBER) IS
2543: SELECT line_id
2548: AND service_start_date is NOT NULL --16621149
2549: AND service_end_date is NOT NULL --16621149
2550: AND NVL(FULFILLED_FLAG,'N') = 'N';
2551: BEGIN
2552: x_return_status := fnd_api.g_ret_sts_success;
2553:
2554: IF l_debug_level > 0 THEN
2555: oe_debug_pub.ADD('Entering UTIL.CALCULATE_FIRST_PERIOD_BILL_AMT p_header_id= '
2556: ||p_header_id
2558: ||p_line_id, 1);
2559: END IF;
2560: IF ( p_header_id IS NOT NULL
2561: AND p_line_id IS NOT NULL ) THEN
2562: x_return_status := fnd_api.g_ret_sts_unexp_error;
2563: IF l_debug_level > 0 THEN
2564: oe_debug_pub.ADD(' Both Header ID and Line ID cannot be passed ');
2565: END IF;
2566: ELSIF p_line_id IS NOT NULL THEN
2587: oe_debug_pub.ADD( ' Bill Profile= '||l_line_rec.service_bill_profile_id
2588: ||' Subs Template= '||l_sub_template);
2589: END IF;
2590: If l_line_rec.service_bill_option_code = 'FPOM'
2591: AND NVL(l_line_rec.service_bill_profile_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
2592: --16621149 start
2593: IF NVL(l_line_rec.service_start_date,FND_API.G_MISS_DATE)<>FND_API.G_MISS_DATE
2594: AND NVL(l_line_rec.service_end_date,FND_API.G_MISS_DATE)<>FND_API.G_MISS_DATE THEN
2595: --16621149 end
2589: END IF;
2590: If l_line_rec.service_bill_option_code = 'FPOM'
2591: AND NVL(l_line_rec.service_bill_profile_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
2592: --16621149 start
2593: IF NVL(l_line_rec.service_start_date,FND_API.G_MISS_DATE)<>FND_API.G_MISS_DATE
2594: AND NVL(l_line_rec.service_end_date,FND_API.G_MISS_DATE)<>FND_API.G_MISS_DATE THEN
2595: --16621149 end
2596: -- Call OKS API to get First Period Bill Amount
2597: OKS_BILL_SCH.Get_Billed_Amount(
2590: If l_line_rec.service_bill_option_code = 'FPOM'
2591: AND NVL(l_line_rec.service_bill_profile_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
2592: --16621149 start
2593: IF NVL(l_line_rec.service_start_date,FND_API.G_MISS_DATE)<>FND_API.G_MISS_DATE
2594: AND NVL(l_line_rec.service_end_date,FND_API.G_MISS_DATE)<>FND_API.G_MISS_DATE THEN
2595: --16621149 end
2596: -- Call OKS API to get First Period Bill Amount
2597: OKS_BILL_SCH.Get_Billed_Amount(
2598: p_start_date => l_line_rec.service_start_date
2638: IF l_debug_level > 0 THEN
2639: oe_debug_pub.add('S.F.P.A: after update global picture, status: ' || l_return_status, 1 ) ;
2640: oe_debug_pub.add('S.F.P.A: global picture index: ' || l_global_index , 1 ) ;
2641: END IF;
2642: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2643: RAISE Fnd_Api.G_EXC_ERROR;
2644: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2645: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2646: END IF;
2639: oe_debug_pub.add('S.F.P.A: after update global picture, status: ' || l_return_status, 1 ) ;
2640: oe_debug_pub.add('S.F.P.A: global picture index: ' || l_global_index , 1 ) ;
2641: END IF;
2642: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2643: RAISE Fnd_Api.G_EXC_ERROR;
2644: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2645: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2646: END IF;
2647: IF l_global_index IS NOT NULL THEN
2640: oe_debug_pub.add('S.F.P.A: global picture index: ' || l_global_index , 1 ) ;
2641: END IF;
2642: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2643: RAISE Fnd_Api.G_EXC_ERROR;
2644: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2645: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2646: END IF;
2647: IF l_global_index IS NOT NULL THEN
2648: Oe_Order_Util.g_line_tbl(l_global_index).service_first_period_amount := l_line_tbl(1).service_first_period_amount;
2641: END IF;
2642: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2643: RAISE Fnd_Api.G_EXC_ERROR;
2644: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2645: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2646: END IF;
2647: IF l_global_index IS NOT NULL THEN
2648: Oe_Order_Util.g_line_tbl(l_global_index).service_first_period_amount := l_line_tbl(1).service_first_period_amount;
2649: Oe_Order_Util.g_line_tbl(l_global_index).service_first_period_enddate := l_line_tbl(1).service_first_period_enddate;
2713: IF l_debug_level > 0 THEN
2714: oe_debug_pub.add('S.F.P.A: after update global picture, status: ' || l_return_status, 1 ) ;
2715: oe_debug_pub.add('S.F.P.A: global picture index: ' || l_global_index , 1 ) ;
2716: END IF;
2717: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2718: RAISE Fnd_Api.G_EXC_ERROR;
2719: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2720: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2721: END IF;
2714: oe_debug_pub.add('S.F.P.A: after update global picture, status: ' || l_return_status, 1 ) ;
2715: oe_debug_pub.add('S.F.P.A: global picture index: ' || l_global_index , 1 ) ;
2716: END IF;
2717: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2718: RAISE Fnd_Api.G_EXC_ERROR;
2719: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2720: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2721: END IF;
2722: IF l_global_index IS NOT NULL THEN
2715: oe_debug_pub.add('S.F.P.A: global picture index: ' || l_global_index , 1 ) ;
2716: END IF;
2717: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2718: RAISE Fnd_Api.G_EXC_ERROR;
2719: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2720: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2721: END IF;
2722: IF l_global_index IS NOT NULL THEN
2723: Oe_Order_Util.g_line_tbl(l_global_index).service_first_period_amount := l_line_tbl(1).service_first_period_amount;
2716: END IF;
2717: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2718: RAISE Fnd_Api.G_EXC_ERROR;
2719: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2720: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2721: END IF;
2722: IF l_global_index IS NOT NULL THEN
2723: Oe_Order_Util.g_line_tbl(l_global_index).service_first_period_amount := l_line_tbl(1).service_first_period_amount;
2724: Oe_Order_Util.g_line_tbl(l_global_index).service_first_period_enddate := l_line_tbl(1).service_first_period_enddate;
2727: END LOOP;
2728: END IF;
2729: oe_debug_pub.ADD('Exiting UTIL.CALCULATE_FIRST_PERIOD_BILL_AMT', 1);
2730: EXCEPTION
2731: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2732: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2733: WHEN FND_API.G_EXC_ERROR THEN
2734: x_return_status := FND_API.G_RET_STS_ERROR;
2735: WHEN OTHERS THEN
2728: END IF;
2729: oe_debug_pub.ADD('Exiting UTIL.CALCULATE_FIRST_PERIOD_BILL_AMT', 1);
2730: EXCEPTION
2731: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2732: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2733: WHEN FND_API.G_EXC_ERROR THEN
2734: x_return_status := FND_API.G_RET_STS_ERROR;
2735: WHEN OTHERS THEN
2736: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2729: oe_debug_pub.ADD('Exiting UTIL.CALCULATE_FIRST_PERIOD_BILL_AMT', 1);
2730: EXCEPTION
2731: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2732: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2733: WHEN FND_API.G_EXC_ERROR THEN
2734: x_return_status := FND_API.G_RET_STS_ERROR;
2735: WHEN OTHERS THEN
2736: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2737: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME , 'FIRST_PERIOD_BILL_AMT' );
2730: EXCEPTION
2731: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2732: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2733: WHEN FND_API.G_EXC_ERROR THEN
2734: x_return_status := FND_API.G_RET_STS_ERROR;
2735: WHEN OTHERS THEN
2736: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2737: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME , 'FIRST_PERIOD_BILL_AMT' );
2738: END IF;
2735: WHEN OTHERS THEN
2736: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2737: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME , 'FIRST_PERIOD_BILL_AMT' );
2738: END IF;
2739: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2740: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2741: END first_period_bill_amt;
2742: --sol_ord_er #16014165 end
2743:
2736: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2737: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME , 'FIRST_PERIOD_BILL_AMT' );
2738: END IF;
2739: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2740: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2741: END first_period_bill_amt;
2742: --sol_ord_er #16014165 end
2743:
2744: /*----------------------------------------------------------------------
2785: ( p_update_lines_tbl => l_update_lines_tbl,
2786: x_return_status => x_return_status);
2787:
2788:
2789: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
2790:
2791: l_update_shipping_index := p_update_shipping_tbl.FIRST;
2792: WHILE l_update_shipping_index IS NOT NULL
2793: LOOP
2826:
2827: OE_Debug_PUB.Add('Exiting OE_Delayed_Requests_Util.Update_Shipping',1);
2828: EXCEPTION
2829: WHEN OTHERS THEN
2830: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2831:
2832: IF OE_MSG_PUB.Check_Msg_Level
2833: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2834: THEN
2895: OE_Debug_PUB.Add('Exiting OE_Delayed_Requests_Util.Ship_Confirmation',1);
2896:
2897: EXCEPTION
2898: WHEN OTHERS THEN
2899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2900: IF OE_MSG_PUB.Check_Msg_Level
2901: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2902: THEN
2903: OE_MSG_PUB.Add_Exc_Msg
3006: EXCEPTION
3007: when no_data_found then
3008: oe_debug_pub.add
3009: ('no_data_found in OE_Delayed_Req_Util.VALIDATE_CONFIGURATION', 1);
3010: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3011: when others then
3012: oe_debug_pub.add
3013: ('Exception in OE_Delayed_Req_Util.VALIDATE_CONFIGURATION', 1);
3014: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3010: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3011: when others then
3012: oe_debug_pub.add
3013: ('Exception in OE_Delayed_Req_Util.VALIDATE_CONFIGURATION', 1);
3014: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3015: END VALIDATE_CONFIGURATION;
3016:
3017: Procedure Match_And_Reserve
3018: ( p_line_id IN NUMBER
3138: -- since multiple lines have changed.
3139:
3140: oe_debug_pub.add('Setting G_CASCADING_REQUEST_LOGGED',2);
3141:
3142: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3143: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
3144: END IF;
3145:
3146: x_return_status := l_return_status;
3146: x_return_status := l_return_status;
3147:
3148: EXCEPTION
3149:
3150: WHEN FND_API.G_EXC_ERROR THEN
3151: x_return_status := FND_API.G_RET_STS_ERROR;
3152:
3153: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3154:
3147:
3148: EXCEPTION
3149:
3150: WHEN FND_API.G_EXC_ERROR THEN
3151: x_return_status := FND_API.G_RET_STS_ERROR;
3152:
3153: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3154:
3155: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3149:
3150: WHEN FND_API.G_EXC_ERROR THEN
3151: x_return_status := FND_API.G_RET_STS_ERROR;
3152:
3153: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3154:
3155: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3156: THEN
3157: OE_MSG_PUB.Add_Exc_Msg
3241: BEGIN
3242:
3243: OE_DEBUG_PUB.ADD('Entering INSERT_RMA_OPTIONS_INCLUDED',1);
3244:
3245: x_return_status := FND_API.G_RET_STS_SUCCESS;
3246:
3247: BEGIN
3248: -- query the return line and to see if it's a referenced line
3249: OE_Line_Util.query_row(p_line_id => p_line_id,
3323: THEN
3324: OE_Line_Util.query_row(p_line_id => l_child.line_id,
3325: x_line_rec => l_child_line_rec);
3326:
3327: IF OE_ORDER_COPY_UTIL.G_COPY_REC.line_descflex = FND_API.G_TRUE THEN
3328: -- Pre populate the DFF info from reference line
3329: OE_ORDER_COPY_UTIL.copy_line_dff_from_ref
3330: (p_ref_line_rec => l_child_line_rec,
3331: p_x_line_rec => l_line_tbl(l_number));
3392: -- logged for the child return line
3393: OE_GLOBALS.G_RETURN_CHILDREN_MODE := 'Y';
3394:
3395: OE_ORDER_PVT.Lines
3396: (p_validation_level => FND_API.G_VALID_LEVEL_FULL
3397: ,p_control_rec => l_control_rec
3398: ,p_x_line_tbl => l_line_tbl
3399: ,p_x_old_line_tbl => l_old_line_tbl
3400: ,x_return_status => l_return_status);
3403: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
3404:
3405: OE_GLOBALS.G_RETURN_CHILDREN_MODE := 'N';
3406:
3407: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3408: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3409: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3410: RAISE FND_API.G_EXC_ERROR;
3411: END IF;
3404:
3405: OE_GLOBALS.G_RETURN_CHILDREN_MODE := 'N';
3406:
3407: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3408: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3409: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3410: RAISE FND_API.G_EXC_ERROR;
3411: END IF;
3412:
3405: OE_GLOBALS.G_RETURN_CHILDREN_MODE := 'N';
3406:
3407: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3408: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3409: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3410: RAISE FND_API.G_EXC_ERROR;
3411: END IF;
3412:
3413: --comment out for notification project
3406:
3407: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3408: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3409: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3410: RAISE FND_API.G_EXC_ERROR;
3411: END IF;
3412:
3413: --comment out for notification project
3414: /* OE_ORDER_PVT.Process_Requests_And_notify
3417: ,x_return_status => l_return_status
3418: ,p_line_tbl => l_line_tbl
3419: ,p_old_line_tbl => l_old_line_tbl);
3420:
3421: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3423: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3424: RAISE FND_API.G_EXC_ERROR;
3425: END IF;
3418: ,p_line_tbl => l_line_tbl
3419: ,p_old_line_tbl => l_old_line_tbl);
3420:
3421: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3423: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3424: RAISE FND_API.G_EXC_ERROR;
3425: END IF;
3426: */
3419: ,p_old_line_tbl => l_old_line_tbl);
3420:
3421: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3423: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3424: RAISE FND_API.G_EXC_ERROR;
3425: END IF;
3426: */
3427: I := l_line_tbl.FIRST;
3420:
3421: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3423: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3424: RAISE FND_API.G_EXC_ERROR;
3425: END IF;
3426: */
3427: I := l_line_tbl.FIRST;
3428: WHILE I is not NULL LOOP
3452:
3453: OE_DEBUG_PUB.ADD(' Exiting INSERT_RMA_OPTIONS_INCLUDED',1);
3454: EXCEPTION
3455:
3456: WHEN FND_API.G_EXC_ERROR THEN
3457:
3458: x_return_status := FND_API.G_RET_STS_ERROR;
3459:
3460: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3454: EXCEPTION
3455:
3456: WHEN FND_API.G_EXC_ERROR THEN
3457:
3458: x_return_status := FND_API.G_RET_STS_ERROR;
3459:
3460: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3461:
3462: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3456: WHEN FND_API.G_EXC_ERROR THEN
3457:
3458: x_return_status := FND_API.G_RET_STS_ERROR;
3459:
3460: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3461:
3462: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3463:
3464: WHEN OTHERS THEN
3458: x_return_status := FND_API.G_RET_STS_ERROR;
3459:
3460: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3461:
3462: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3463:
3464: WHEN OTHERS THEN
3465:
3466: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3462: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3463:
3464: WHEN OTHERS THEN
3465:
3466: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3467:
3468: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3469: THEN
3470: OE_MSG_PUB.Add_Exc_Msg
3599:
3600: -- if lot serial numbers exist, delete first
3601:
3602:
3603: x_return_status := FND_API.G_RET_STS_SUCCESS;
3604:
3605: BEGIN
3606: OE_Line_Util.query_row(p_line_id => p_line_id
3607: ,x_line_rec => l_orig_line_rec);
3625: OE_Lot_serial_util.Lock_rows(p_line_id => p_line_id,
3626: x_lot_serial_tbl => l_lot_serial_tbl,
3627: x_return_status => l_return_status);
3628:
3629: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3630: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3631: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3632: RAISE FND_API.G_EXC_ERROR;
3633: END IF;
3626: x_lot_serial_tbl => l_lot_serial_tbl,
3627: x_return_status => l_return_status);
3628:
3629: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3630: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3631: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3632: RAISE FND_API.G_EXC_ERROR;
3633: END IF;
3634:
3627: x_return_status => l_return_status);
3628:
3629: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3630: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3631: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3632: RAISE FND_API.G_EXC_ERROR;
3633: END IF;
3634:
3635: EXCEPTION
3628:
3629: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3630: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3631: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3632: RAISE FND_API.G_EXC_ERROR;
3633: END IF;
3634:
3635: EXCEPTION
3636: WHEN NO_DATA_FOUND THEN
3654: END IF; /* end delete existing lot serial numbers */
3655:
3656: l_reference_line_id := l_orig_line_rec.reference_line_id;
3657: IF l_reference_line_id IS NOT NULL AND
3658: l_reference_line_id <> FND_API.G_MISS_NUM THEN
3659:
3660: OE_DEBUG_PUB.ADD(' There is a reference Line',1);
3661: OE_Line_Util.query_row(p_line_id => l_reference_line_id,
3662: x_line_rec => l_reference_line_rec);
3664: l_ship_from_org_id := l_reference_line_rec.ship_from_org_id;
3665: oe_debug_pub.add(to_char(l_inventory_item_id)||':'||to_char(l_ship_from_org_id),2);
3666:
3667: IF l_ship_from_org_id is NULL
3668: OR l_ship_from_org_id = FND_API.G_MISS_NUM THEN --Added for 10204440
3669:
3670: OPEN control_codes;
3671: FETCH control_codes INTO l_lot_control_flag,
3672: l_serial_number_control_flag,
3671: FETCH control_codes INTO l_lot_control_flag,
3672: l_serial_number_control_flag,
3673: l_primary_uom;
3674: IF control_codes%notfound THEN
3675: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3676: END IF;
3677: CLOSE control_codes;
3678:
3679: --Added for 10204440
3683: FETCH control_codes_org INTO l_lot_control_flag,
3684: l_serial_number_control_flag,
3685: l_primary_uom;
3686: IF control_codes_org%notfound THEN
3687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3688: END IF;
3689: CLOSE control_codes_org;
3690: END IF;
3691: --End of 10204440
3821: -- Set recursion mode.
3822: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
3823:
3824: OE_ORDER_PVT.Lot_Serials
3825: (p_validation_level => FND_API.G_VALID_LEVEL_FULL
3826: ,p_control_rec => l_control_rec
3827: ,P_x_lot_serial_tbl => l_x_lot_serial_tbl
3828: ,p_x_old_lot_serial_tbl => l_x_old_lot_serial_tbl
3829: ,x_return_status => l_return_status);
3830: -- Reset recursion mode.
3831: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
3832: OE_DEBUG_PUB.ADD(' After calling OE_ORDER_PVT.Lot_Serials',1);
3833:
3834: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3835: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3836: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3837: RAISE FND_API.G_EXC_ERROR;
3838: END IF;
3831: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
3832: OE_DEBUG_PUB.ADD(' After calling OE_ORDER_PVT.Lot_Serials',1);
3833:
3834: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3835: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3836: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3837: RAISE FND_API.G_EXC_ERROR;
3838: END IF;
3839:
3832: OE_DEBUG_PUB.ADD(' After calling OE_ORDER_PVT.Lot_Serials',1);
3833:
3834: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3835: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3836: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3837: RAISE FND_API.G_EXC_ERROR;
3838: END IF;
3839:
3840: --comment out for nitification project
3833:
3834: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3835: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3836: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3837: RAISE FND_API.G_EXC_ERROR;
3838: END IF;
3839:
3840: --comment out for nitification project
3841: /* OE_ORDER_PVT.Process_Requests_And_notify
3844: ,x_return_status => l_return_status
3845: ,p_lot_serial_tbl => l_x_lot_serial_tbl
3846: ,p_old_lot_serial_tbl => l_x_old_lot_serial_tbl);
3847:
3848: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3850: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3851: RAISE FND_API.G_EXC_ERROR;
3852: END IF;
3845: ,p_lot_serial_tbl => l_x_lot_serial_tbl
3846: ,p_old_lot_serial_tbl => l_x_old_lot_serial_tbl);
3847:
3848: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3850: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3851: RAISE FND_API.G_EXC_ERROR;
3852: END IF;
3853: */
3846: ,p_old_lot_serial_tbl => l_x_old_lot_serial_tbl);
3847:
3848: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3850: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3851: RAISE FND_API.G_EXC_ERROR;
3852: END IF;
3853: */
3854:
3847:
3848: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3850: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3851: RAISE FND_API.G_EXC_ERROR;
3852: END IF;
3853: */
3854:
3855: END IF; /* end calling process order */
3860:
3861: EXCEPTION
3862:
3863:
3864: WHEN FND_API.G_EXC_ERROR THEN
3865:
3866: x_return_status := FND_API.G_RET_STS_ERROR;
3867:
3868: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3862:
3863:
3864: WHEN FND_API.G_EXC_ERROR THEN
3865:
3866: x_return_status := FND_API.G_RET_STS_ERROR;
3867:
3868: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3869:
3870: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3864: WHEN FND_API.G_EXC_ERROR THEN
3865:
3866: x_return_status := FND_API.G_RET_STS_ERROR;
3867:
3868: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3869:
3870: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3871:
3872: WHEN OTHERS THEN
3866: x_return_status := FND_API.G_RET_STS_ERROR;
3867:
3868: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3869:
3870: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3871:
3872: WHEN OTHERS THEN
3873:
3874: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3870: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3871:
3872: WHEN OTHERS THEN
3873:
3874: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3875:
3876: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3877: THEN
3878: OE_MSG_PUB.Add_Exc_Msg
3953: to_char(l_line_tbl(I).shipment_number));
3954: FND_MESSAGE.SET_TOKEN('PARENT_LINE_NUMBER',
3955: to_char(l_line_tbl(I).line_number));
3956: OE_MSG_PUB.ADD;
3957: RAISE FND_API.G_EXC_ERROR;
3958: ELSIF (l_line_tbl(I).order_quantity_uom <>
3959: l_order_qty_uom ) THEN
3960: FND_MESSAGE.SET_NAME('ONT','OE_VAL_LINE_SET_ATTR');
3961: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME','Unit of Measure');
3963: to_char(l_line_tbl(I).shipment_number));
3964: FND_MESSAGE.SET_TOKEN('PARENT_LINE_NUMBER',
3965: to_char(l_line_tbl(I).line_number));
3966: OE_MSG_PUB.ADD;
3967: RAISE FND_API.G_EXC_ERROR;
3968: ELSIF (l_line_tbl(I).line_type_id <>
3969: l_line_type_id ) THEN
3970: FND_MESSAGE.SET_NAME('ONT','OE_VAL_LINE_SET_ATTR');
3971: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME','Line Type');
3973: to_char(l_line_tbl(I).shipment_number));
3974: FND_MESSAGE.SET_TOKEN('PARENT_LINE_NUMBER',
3975: to_char(l_line_tbl(I).line_number));
3976: OE_MSG_PUB.ADD;
3977: RAISE FND_API.G_EXC_ERROR;
3978: ELSIF (l_line_tbl(I).ship_tolerance_above <>
3979: l_ship_tolerance_above ) THEN
3980: FND_MESSAGE.SET_NAME('ONT','OE_VAL_LINE_SET_ATTR');
3981: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME','Ship tolerance above');
3983: to_char(l_line_tbl(I).shipment_number));
3984: FND_MESSAGE.SET_TOKEN('PARENT_LINE_NUMBER',
3985: to_char(l_line_tbl(I).line_number));
3986: OE_MSG_PUB.ADD;
3987: RAISE FND_API.G_EXC_ERROR;
3988: ELSIF (l_line_tbl(I).ship_tolerance_below <>
3989: l_ship_tolerance_below ) THEN
3990: FND_MESSAGE.SET_NAME('ONT','OE_VAL_LINE_SET_ATTR');
3991: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME','Ship tolerance below');
3993: to_char(l_line_tbl(I).shipment_number));
3994: FND_MESSAGE.SET_TOKEN('PARENT_LINE_NUMBER',
3995: to_char(l_line_tbl(I).line_number));
3996: OE_MSG_PUB.ADD;
3997: RAISE FND_API.G_EXC_ERROR;
3998: ELSIF (l_line_tbl(I).project_id <>
3999: l_project_id ) THEN
4000: FND_MESSAGE.SET_NAME('ONT','OE_VAL_LINE_SET_ATTR');
4001: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME','Project');
4003: to_char(l_line_tbl(I).shipment_number));
4004: FND_MESSAGE.SET_TOKEN('PARENT_LINE_NUMBER',
4005: to_char(l_line_tbl(I).line_number));
4006: OE_MSG_PUB.ADD;
4007: RAISE FND_API.G_EXC_ERROR;
4008: ELSIF (l_line_tbl(I).Task_id <>
4009: l_Task_id ) THEN
4010: FND_MESSAGE.SET_NAME('ONT','OE_VAL_LINE_SET_ATTR');
4011: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME','Task');
4013: to_char(l_line_tbl(I).shipment_number));
4014: FND_MESSAGE.SET_TOKEN('PARENT_LINE_NUMBER',
4015: to_char(l_line_tbl(I).line_number));
4016: OE_MSG_PUB.ADD;
4017: RAISE FND_API.G_EXC_ERROR;
4018: ----ER#14763609
4019: ELSIF (Nvl(l_line_tbl(I).fulfillment_base,'P') <> l_fulfillment_base) THEN
4020: FND_MESSAGE.SET_NAME('ONT','OE_VAL_LINE_SET_ATTR');
4021: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME','Fulfillment Base');
4023: to_char(l_line_tbl(I).shipment_number));
4024: FND_MESSAGE.SET_TOKEN('PARENT_LINE_NUMBER',
4025: to_char(l_line_tbl(I).line_number));
4026: OE_MSG_PUB.ADD;
4027: RAISE FND_API.G_EXC_ERROR;
4028: --END ER#14763609
4029: END IF;
4030: END IF; -- For Bug 5754554
4031: END LOOP;
4031: END LOOP;
4032: END IF;
4033: oe_debug_pub.add('Exiting oe_delayed_requests_util.Validate_Line_Set',1);
4034: EXCEPTION
4035: WHEN FND_API.G_EXC_ERROR THEN
4036:
4037: OE_MSG_PUB.reset_msg_context('SPLIT');
4038: RAISE;
4039:
4036:
4037: OE_MSG_PUB.reset_msg_context('SPLIT');
4038: RAISE;
4039:
4040: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4041:
4042: OE_MSG_PUB.reset_msg_context('SPLIT');
4043: RAISE;
4044:
4050: ( G_PKG_NAME ,
4051: 'Validate Line Set'
4052: );
4053: END IF;
4054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4055:
4056: END Validate_line_Set;
4057:
4058: PROCEDURE Process_Adjustments
4160: -- Reset recursion mode.
4161: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
4162:
4163: oe_debug_pub.add('after process order call ',2);
4164: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4165: oe_debug_pub.add('error1',2);
4166: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4167: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4168: oe_debug_pub.add('error2',2);
4162:
4163: oe_debug_pub.add('after process order call ',2);
4164: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4165: oe_debug_pub.add('error1',2);
4166: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4167: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4168: oe_debug_pub.add('error2',2);
4169: RAISE FND_API.G_EXC_ERROR;
4170: END IF;
4163: oe_debug_pub.add('after process order call ',2);
4164: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4165: oe_debug_pub.add('error1',2);
4166: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4167: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4168: oe_debug_pub.add('error2',2);
4169: RAISE FND_API.G_EXC_ERROR;
4170: END IF;
4171:
4165: oe_debug_pub.add('error1',2);
4166: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4167: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4168: oe_debug_pub.add('error2',2);
4169: RAISE FND_API.G_EXC_ERROR;
4170: END IF;
4171:
4172: end if; /* if l_adj_tbl.count >= 1 */
4173:
4177:
4178:
4179: EXCEPTION
4180:
4181: WHEN FND_API.G_EXC_ERROR THEN
4182:
4183: x_return_status := FND_API.G_RET_STS_ERROR;
4184:
4185: -- Get message count and data
4179: EXCEPTION
4180:
4181: WHEN FND_API.G_EXC_ERROR THEN
4182:
4183: x_return_status := FND_API.G_RET_STS_ERROR;
4184:
4185: -- Get message count and data
4186:
4187: OE_MSG_PUB.Count_And_Get
4188: ( p_count => x_msg_count
4189: , p_data => x_msg_data
4190: );
4191:
4192: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4193:
4194: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4195: -- Get message count and data
4196:
4190: );
4191:
4192: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4193:
4194: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4195: -- Get message count and data
4196:
4197: OE_MSG_PUB.Count_And_Get
4198: ( p_count => x_msg_count
4200: );
4201:
4202: WHEN OTHERS THEN
4203:
4204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4205:
4206: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4207: THEN
4208: OE_MSG_PUB.Add_Exc_Msg
4297:
4298: IF fnd_profile.value('ONT_CASCADE_SERVICE') = 'N' THEN
4299: /* 3128684 */
4300: oe_debug_pub.add('Do not cascade services', 2);
4301: x_return_status := FND_API.G_RET_STS_SUCCESS;
4302: RETURN;
4303: END IF;
4304: oe_debug_pub.add('Do cascade services', 2);
4305:
4351: oe_debug_pub.ADD('l_prg is '||l_prg);
4352: IF l_prg = 'Y' THEN
4353:
4354: oe_debug_pub.add('Do not cascade services', 2);
4355: x_return_status := FND_API.G_RET_STS_SUCCESS;
4356: RETURN;
4357:
4358: END IF;
4359:
4555: -- Set recursion mode.
4556: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
4557:
4558: OE_ORDER_PVT.Lines
4559: (P_validation_level => FND_API.G_VALID_LEVEL_FULL
4560: ,p_control_rec => l_control_rec
4561: ,p_x_line_tbl => l_line_tbl
4562: ,p_x_old_line_tbl => l_old_line_tbl
4563: ,x_return_status => l_return_status);
4564:
4565: -- Reset recursion mode.
4566: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
4567:
4568: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4569: oe_debug_pub.add('Inside unexpected error ',2);
4570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4571: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4572: oe_debug_pub.add('Inside error ',2);
4566: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
4567:
4568: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4569: oe_debug_pub.add('Inside unexpected error ',2);
4570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4571: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4572: oe_debug_pub.add('Inside error ',2);
4573: RAISE FND_API.G_EXC_ERROR;
4574: END IF;
4567:
4568: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4569: oe_debug_pub.add('Inside unexpected error ',2);
4570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4571: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4572: oe_debug_pub.add('Inside error ',2);
4573: RAISE FND_API.G_EXC_ERROR;
4574: END IF;
4575:
4569: oe_debug_pub.add('Inside unexpected error ',2);
4570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4571: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4572: oe_debug_pub.add('Inside error ',2);
4573: RAISE FND_API.G_EXC_ERROR;
4574: END IF;
4575:
4576: --comment out for notification project
4577: /* OE_ORDER_PVT.Process_Requests_And_notify
4580: ,x_return_status => l_return_status
4581: ,p_line_tbl => l_line_tbl
4582: ,p_old_line_tbl => l_old_line_tbl);
4583:
4584: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4586: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4587: RAISE FND_API.G_EXC_ERROR;
4588: END IF;
4581: ,p_line_tbl => l_line_tbl
4582: ,p_old_line_tbl => l_old_line_tbl);
4583:
4584: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4586: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4587: RAISE FND_API.G_EXC_ERROR;
4588: END IF;
4589: */
4582: ,p_old_line_tbl => l_old_line_tbl);
4583:
4584: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4586: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4587: RAISE FND_API.G_EXC_ERROR;
4588: END IF;
4589: */
4590: -- Clear Table
4583:
4584: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4586: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4587: RAISE FND_API.G_EXC_ERROR;
4588: END IF;
4589: */
4590: -- Clear Table
4591: l_line_tbl.DELETE;
4593: OE_DEBUG_PUB.ADD('Exiting INSERT_SERVICE_FOR_OPTIONS',1);
4594:
4595: EXCEPTION
4596:
4597: WHEN FND_API.G_EXC_ERROR THEN
4598: oe_debug_pub.add('Inside exception exe error ',1);
4599: x_return_status := FND_API.G_RET_STS_ERROR;
4600:
4601: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4595: EXCEPTION
4596:
4597: WHEN FND_API.G_EXC_ERROR THEN
4598: oe_debug_pub.add('Inside exception exe error ',1);
4599: x_return_status := FND_API.G_RET_STS_ERROR;
4600:
4601: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4602: oe_debug_pub.add('Inside exception unexp error ',1);
4603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4597: WHEN FND_API.G_EXC_ERROR THEN
4598: oe_debug_pub.add('Inside exception exe error ',1);
4599: x_return_status := FND_API.G_RET_STS_ERROR;
4600:
4601: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4602: oe_debug_pub.add('Inside exception unexp error ',1);
4603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4604:
4605: WHEN OTHERS THEN
4599: x_return_status := FND_API.G_RET_STS_ERROR;
4600:
4601: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4602: oe_debug_pub.add('Inside exception unexp error ',1);
4603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4604:
4605: WHEN OTHERS THEN
4606:
4607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4604:
4605: WHEN OTHERS THEN
4606:
4607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4608: oe_debug_pub.add('Inside exception other error ',1);
4609:
4610: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4611: THEN
4679:
4680: IF fnd_profile.value('ONT_CASCADE_SERVICE') = 'N' THEN
4681: /* 3128684 */
4682: oe_debug_pub.add('Do not cascade services', 2);
4683: x_return_status := FND_API.G_RET_STS_SUCCESS;
4684: RETURN;
4685: END IF;
4686: oe_debug_pub.add('Do cascade services', 2);
4687:
4802: -- Set recursion mode.
4803: -- OE_GLOBALS.G_RECURSION_MODE := 'Y';
4804:
4805: OE_ORDER_PVT.Lines
4806: (P_validation_level => FND_API.G_VALID_LEVEL_FULL
4807: ,p_control_rec => l_control_rec
4808: ,p_x_line_tbl => l_line_tbl
4809: ,p_x_old_line_tbl => l_old_line_tbl
4810: ,x_return_status => l_return_status);
4811:
4812: -- Reset recursion mode.
4813: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
4814:
4815: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4816: oe_debug_pub.add('Inside unexpected error ',2);
4817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4818: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4819: oe_debug_pub.add('Inside error ',2);
4813: -- OE_GLOBALS.G_RECURSION_MODE := 'N';
4814:
4815: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4816: oe_debug_pub.add('Inside unexpected error ',2);
4817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4818: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4819: oe_debug_pub.add('Inside error ',2);
4820: RAISE FND_API.G_EXC_ERROR;
4821: END IF;
4814:
4815: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4816: oe_debug_pub.add('Inside unexpected error ',2);
4817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4818: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4819: oe_debug_pub.add('Inside error ',2);
4820: RAISE FND_API.G_EXC_ERROR;
4821: END IF;
4822:
4816: oe_debug_pub.add('Inside unexpected error ',2);
4817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4818: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4819: oe_debug_pub.add('Inside error ',2);
4820: RAISE FND_API.G_EXC_ERROR;
4821: END IF;
4822:
4823: --comment out for notification project
4824: /* OE_ORDER_PVT.Process_Requests_And_notify
4827: ,x_return_status => l_return_status
4828: ,p_line_tbl => l_line_tbl
4829: ,p_old_line_tbl => l_old_line_tbl);
4830:
4831: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4832: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4833: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4834: RAISE FND_API.G_EXC_ERROR;
4835: END IF;
4828: ,p_line_tbl => l_line_tbl
4829: ,p_old_line_tbl => l_old_line_tbl);
4830:
4831: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4832: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4833: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4834: RAISE FND_API.G_EXC_ERROR;
4835: END IF;
4836: */
4829: ,p_old_line_tbl => l_old_line_tbl);
4830:
4831: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4832: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4833: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4834: RAISE FND_API.G_EXC_ERROR;
4835: END IF;
4836: */
4837: -- Clear Table
4830:
4831: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4832: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4833: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4834: RAISE FND_API.G_EXC_ERROR;
4835: END IF;
4836: */
4837: -- Clear Table
4838: l_line_tbl.DELETE;
4840: OE_DEBUG_PUB.ADD('Exiting CASCADE_SERVICE_FOR_OPTIONS',1);
4841:
4842: EXCEPTION
4843:
4844: WHEN FND_API.G_EXC_ERROR THEN
4845: oe_debug_pub.add('Inside exception exe error ',1);
4846: x_return_status := FND_API.G_RET_STS_ERROR;
4847:
4848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4842: EXCEPTION
4843:
4844: WHEN FND_API.G_EXC_ERROR THEN
4845: oe_debug_pub.add('Inside exception exe error ',1);
4846: x_return_status := FND_API.G_RET_STS_ERROR;
4847:
4848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4849: oe_debug_pub.add('Inside exception unexp error ',1);
4850: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4844: WHEN FND_API.G_EXC_ERROR THEN
4845: oe_debug_pub.add('Inside exception exe error ',1);
4846: x_return_status := FND_API.G_RET_STS_ERROR;
4847:
4848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4849: oe_debug_pub.add('Inside exception unexp error ',1);
4850: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4851:
4852: WHEN OTHERS THEN
4846: x_return_status := FND_API.G_RET_STS_ERROR;
4847:
4848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4849: oe_debug_pub.add('Inside exception unexp error ',1);
4850: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4851:
4852: WHEN OTHERS THEN
4853:
4854: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4850: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4851:
4852: WHEN OTHERS THEN
4853:
4854: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4855: oe_debug_pub.add('Inside exception other error ',1);
4856:
4857: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4858: THEN
4879: BEGIN
4880:
4881: OE_DEBUG_PUB.Add('Enter OE_DELAYED_REQUESTS_UTIL.Apply_Automatic_Attachments', 0.5); --debug level changed to 0.5 for bug 13435459
4882:
4883: x_return_status := FND_API.G_RET_STS_SUCCESS;
4884:
4885: OE_Atchmt_Util.Apply_Automatic_Attachments
4886: ( p_entity_code => p_entity_code
4887: , p_entity_id => p_entity_id
4890: , x_return_status => x_return_status
4891: , x_msg_count => l_msg_count
4892: , x_msg_data => l_msg_data
4893: );
4894: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4895: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4896: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4897: RAISE FND_API.G_EXC_ERROR;
4898: END IF;
4891: , x_msg_count => l_msg_count
4892: , x_msg_data => l_msg_data
4893: );
4894: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4895: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4896: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4897: RAISE FND_API.G_EXC_ERROR;
4898: END IF;
4899:
4892: , x_msg_data => l_msg_data
4893: );
4894: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4895: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4896: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4897: RAISE FND_API.G_EXC_ERROR;
4898: END IF;
4899:
4900: OE_DEBUG_PUB.Add('Exit OE_DELAYED_REQUESTS_UTIL.Apply_Automatic_Attachments', 0.5); --debug level changed to 0.5 for bug 13435459
4893: );
4894: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4895: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4896: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4897: RAISE FND_API.G_EXC_ERROR;
4898: END IF;
4899:
4900: OE_DEBUG_PUB.Add('Exit OE_DELAYED_REQUESTS_UTIL.Apply_Automatic_Attachments', 0.5); --debug level changed to 0.5 for bug 13435459
4901:
4899:
4900: OE_DEBUG_PUB.Add('Exit OE_DELAYED_REQUESTS_UTIL.Apply_Automatic_Attachments', 0.5); --debug level changed to 0.5 for bug 13435459
4901:
4902: EXCEPTION
4903: WHEN FND_API.G_EXC_ERROR THEN
4904: x_return_status := FND_API.G_RET_STS_ERROR;
4905: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4907: WHEN OTHERS THEN
4900: OE_DEBUG_PUB.Add('Exit OE_DELAYED_REQUESTS_UTIL.Apply_Automatic_Attachments', 0.5); --debug level changed to 0.5 for bug 13435459
4901:
4902: EXCEPTION
4903: WHEN FND_API.G_EXC_ERROR THEN
4904: x_return_status := FND_API.G_RET_STS_ERROR;
4905: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4907: WHEN OTHERS THEN
4908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4901:
4902: EXCEPTION
4903: WHEN FND_API.G_EXC_ERROR THEN
4904: x_return_status := FND_API.G_RET_STS_ERROR;
4905: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4907: WHEN OTHERS THEN
4908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4909: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4902: EXCEPTION
4903: WHEN FND_API.G_EXC_ERROR THEN
4904: x_return_status := FND_API.G_RET_STS_ERROR;
4905: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4907: WHEN OTHERS THEN
4908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4909: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4910: THEN
4904: x_return_status := FND_API.G_RET_STS_ERROR;
4905: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4907: WHEN OTHERS THEN
4908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4909: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4910: THEN
4911: OE_MSG_PUB.Add_Exc_Msg
4912: ( G_PKG_NAME
4928:
4929: OE_DEBUG_PUB.Add('Enter OE_DELAYED_REQUESTS_UTIL.Copy_Attachments, manual only'||
4930: p_manual_attachments_only, 0.5); --debug level changed to 0.5 for bug 13435459
4931:
4932: x_return_status := FND_API.G_RET_STS_SUCCESS;
4933:
4934: OE_Atchmt_Util.Copy_Attachments
4935: ( p_entity_code => p_entity_code
4936: , p_from_entity_id => p_from_entity_id
4937: , p_to_entity_id => p_to_entity_id
4938: , p_manual_attachments_only => NVL(p_manual_attachments_only,'N')
4939: , x_return_status => x_return_status
4940: );
4941: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4942: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4943: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4944: RAISE FND_API.G_EXC_ERROR;
4945: END IF;
4938: , p_manual_attachments_only => NVL(p_manual_attachments_only,'N')
4939: , x_return_status => x_return_status
4940: );
4941: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4942: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4943: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4944: RAISE FND_API.G_EXC_ERROR;
4945: END IF;
4946:
4939: , x_return_status => x_return_status
4940: );
4941: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4942: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4943: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4944: RAISE FND_API.G_EXC_ERROR;
4945: END IF;
4946:
4947: OE_DEBUG_PUB.Add('Exit OE_DELAYED_REQUESTS_UTIL.Copy_Attachments', 0.5); --debug level changed to 0.5 for bug 13435459
4940: );
4941: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4942: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4943: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4944: RAISE FND_API.G_EXC_ERROR;
4945: END IF;
4946:
4947: OE_DEBUG_PUB.Add('Exit OE_DELAYED_REQUESTS_UTIL.Copy_Attachments', 0.5); --debug level changed to 0.5 for bug 13435459
4948:
4946:
4947: OE_DEBUG_PUB.Add('Exit OE_DELAYED_REQUESTS_UTIL.Copy_Attachments', 0.5); --debug level changed to 0.5 for bug 13435459
4948:
4949: EXCEPTION
4950: WHEN FND_API.G_EXC_ERROR THEN
4951: x_return_status := FND_API.G_RET_STS_ERROR;
4952: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4954: WHEN OTHERS THEN
4947: OE_DEBUG_PUB.Add('Exit OE_DELAYED_REQUESTS_UTIL.Copy_Attachments', 0.5); --debug level changed to 0.5 for bug 13435459
4948:
4949: EXCEPTION
4950: WHEN FND_API.G_EXC_ERROR THEN
4951: x_return_status := FND_API.G_RET_STS_ERROR;
4952: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4954: WHEN OTHERS THEN
4955: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4948:
4949: EXCEPTION
4950: WHEN FND_API.G_EXC_ERROR THEN
4951: x_return_status := FND_API.G_RET_STS_ERROR;
4952: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4954: WHEN OTHERS THEN
4955: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4956: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4949: EXCEPTION
4950: WHEN FND_API.G_EXC_ERROR THEN
4951: x_return_status := FND_API.G_RET_STS_ERROR;
4952: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4954: WHEN OTHERS THEN
4955: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4956: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4957: THEN
4951: x_return_status := FND_API.G_RET_STS_ERROR;
4952: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4954: WHEN OTHERS THEN
4955: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4956: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4957: THEN
4958: OE_MSG_PUB.Add_Exc_Msg
4959: ( G_PKG_NAME
4982: l_line_rec OE_ORDER_PUB.line_rec_type;
4983: l_old_line_rec OE_ORDER_PUB.line_rec_type;
4984: l_out_line_rec OE_ORDER_PUB.line_rec_type;
4985: l_atp_tbl OE_ATP.atp_tbl_type;
4986: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
4987: l_group_req_rec OE_GRP_SCH_UTIL.Sch_Group_Rec_Type;
4988: l_group_sch_required BOOLEAN := TRUE;
4989: BEGIN
4990:
5001: OE_LINE_UTIL.Lock_Row(p_line_id => l_request_rec.entity_id,
5002: p_x_line_rec => l_line_rec,
5003: x_return_status => l_return_status);
5004:
5005: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5006: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5007: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5008: RAISE FND_API.G_EXC_ERROR;
5009: END IF;
5002: p_x_line_rec => l_line_rec,
5003: x_return_status => l_return_status);
5004:
5005: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5006: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5007: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5008: RAISE FND_API.G_EXC_ERROR;
5009: END IF;
5010:
5003: x_return_status => l_return_status);
5004:
5005: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5006: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5007: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5008: RAISE FND_API.G_EXC_ERROR;
5009: END IF;
5010:
5011: l_old_line_rec := l_line_rec;
5004:
5005: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5006: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5007: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5008: RAISE FND_API.G_EXC_ERROR;
5009: END IF;
5010:
5011: l_old_line_rec := l_line_rec;
5012:
5147: oe_debug_pub.add('After Calling Grp Schedule : || l_return_status',2);
5148:
5149: oe_debug_pub.add('Setting G_CASCADING_REQUEST_LOGGED to TRUE',2);
5150:
5151: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
5152: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
5153: END IF;
5154:
5155: ELSE
5163:
5164: OE_ORDER_SCH_UTIL.Schedule_line
5165: ( p_x_line_rec => l_out_line_rec
5166: , p_old_line_rec => l_old_line_rec
5167: , p_write_to_db => FND_API.G_TRUE
5168: , x_atp_tbl => l_atp_tbl
5169: , x_return_status => l_return_status);
5170:
5171:
5172: oe_debug_pub.add('After Calling Sch_Line : '|| l_return_status,2);
5173:
5174: END IF;
5175:
5176: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5177:
5178: oe_debug_pub.add('Line Id error out nocopy : ' || l_line_rec.line_id,2);
5179:
5180:
5238: l_return_status',1);
5239:
5240: oe_debug_pub.add('Stng G_CASCADING_REQUEST_LOGGED to TRUE',2);
5241:
5242: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
5243: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
5244: END IF;
5245: END IF; /* If Auto Push Group Date is Yes */
5246:
5248: -- Set, then just clear out the scheduling attributes and return a
5249: -- message that the line schedule failed. We will return a success
5250: -- since we do not want to fail the line insert due to this.
5251:
5252: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5253:
5254: fnd_message.set_name('ONT','OE_SCH_SET_INS_FAILED');
5255: OE_MSG_PUB.Add;
5256:
5302: OE_MSG_PUB.Add;
5303:
5304: END IF;
5305:
5306: x_return_status := FND_API.G_RET_STS_SUCCESS;
5307: END IF; /* l_return_status = error */
5308:
5309: ELSE
5310:
5315:
5316: fnd_message.set_name('ONT','OE_SCH_SET_INS_FAILED');
5317: OE_MSG_PUB.Add;
5318:
5319: RAISE FND_API.G_EXC_ERROR;
5320:
5321:
5322: END IF;
5323: END IF; /* If g_ret_status is error */
5327:
5328: oe_debug_pub.add('Exiting OE_Delayed_Requests_UTIL.Schedule_Line');
5329: EXCEPTION
5330:
5331: WHEN FND_API.G_EXC_ERROR THEN
5332: x_return_status := FND_API.G_RET_STS_ERROR;
5333:
5334: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5335:
5328: oe_debug_pub.add('Exiting OE_Delayed_Requests_UTIL.Schedule_Line');
5329: EXCEPTION
5330:
5331: WHEN FND_API.G_EXC_ERROR THEN
5332: x_return_status := FND_API.G_RET_STS_ERROR;
5333:
5334: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5335:
5336: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5330:
5331: WHEN FND_API.G_EXC_ERROR THEN
5332: x_return_status := FND_API.G_RET_STS_ERROR;
5333:
5334: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5335:
5336: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5337: THEN
5338: OE_MSG_PUB.Add_Exc_Msg
5358: PROCEDURE Process_Tax(
5359: p_entity_id_tbl IN OE_Delayed_Requests_PVT.Entity_Id_Tbl_Type ,
5360: x_return_status OUT NOCOPY VARCHAR2)
5361: IS
5362: l_return_status VARCHAR2(30) := FND_API.G_RET_STS_SUCCESS;
5363: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5364: v_start NUMBER;
5365: v_end NUMBER;
5366: l_entity_id_tbl OE_Delayed_Requests_PVT.Entity_Id_Tbl_Type ;
5406: oe_debug_pub.add('Calling OM_TAX_UTIL.TAX_LINE',1);
5407: END IF;
5408:
5409: OM_TAX_UTIL.TAX_LINE( p_entity_id_tbl =>l_entity_id_tbl, x_tax_out_tbl => l_tax_rec_out_tbl, x_return_status => l_return_status);
5410: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5411: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5412: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5413: RAISE FND_API.G_EXC_ERROR;
5414: END IF;
5407: END IF;
5408:
5409: OM_TAX_UTIL.TAX_LINE( p_entity_id_tbl =>l_entity_id_tbl, x_tax_out_tbl => l_tax_rec_out_tbl, x_return_status => l_return_status);
5410: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5411: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5412: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5413: RAISE FND_API.G_EXC_ERROR;
5414: END IF;
5415: IF l_debug_level > 0 THEN
5408:
5409: OM_TAX_UTIL.TAX_LINE( p_entity_id_tbl =>l_entity_id_tbl, x_tax_out_tbl => l_tax_rec_out_tbl, x_return_status => l_return_status);
5410: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5411: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5412: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5413: RAISE FND_API.G_EXC_ERROR;
5414: END IF;
5415: IF l_debug_level > 0 THEN
5416: oe_debug_pub.add('After Successfully calculating Tax',2);
5409: OM_TAX_UTIL.TAX_LINE( p_entity_id_tbl =>l_entity_id_tbl, x_tax_out_tbl => l_tax_rec_out_tbl, x_return_status => l_return_status);
5410: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5411: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5412: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5413: RAISE FND_API.G_EXC_ERROR;
5414: END IF;
5415: IF l_debug_level > 0 THEN
5416: oe_debug_pub.add('After Successfully calculating Tax',2);
5417: oe_debug_pub.add('return status : ' || l_return_status, 1);
5495: IF l_debug_level > 0 THEN
5496: oe_debug_pub.add('8825061: after update global picture, status: ' || l_return_status, 1 ) ;
5497: oe_debug_pub.add('8825061: global picture index: ' || l_global_index , 1 ) ;
5498: END IF;
5499: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5500: RAISE Fnd_Api.G_EXC_ERROR;
5501: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5502: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5503: END IF;
5496: oe_debug_pub.add('8825061: after update global picture, status: ' || l_return_status, 1 ) ;
5497: oe_debug_pub.add('8825061: global picture index: ' || l_global_index , 1 ) ;
5498: END IF;
5499: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5500: RAISE Fnd_Api.G_EXC_ERROR;
5501: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5502: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5503: END IF;
5504: IF l_index IS NOT NULL THEN
5497: oe_debug_pub.add('8825061: global picture index: ' || l_global_index , 1 ) ;
5498: END IF;
5499: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5500: RAISE Fnd_Api.G_EXC_ERROR;
5501: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5502: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5503: END IF;
5504: IF l_index IS NOT NULL THEN
5505: Oe_Order_Util.g_line_tbl(l_global_index).tax_value := l_line_tbl(1).tax_value;
5498: END IF;
5499: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5500: RAISE Fnd_Api.G_EXC_ERROR;
5501: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5502: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5503: END IF;
5504: IF l_index IS NOT NULL THEN
5505: Oe_Order_Util.g_line_tbl(l_global_index).tax_value := l_line_tbl(1).tax_value;
5506: END IF; -- Check on l_index being non-null
5584: x_result_out => l_hold_result ,
5585: x_msg_count => l_msg_count ,
5586: x_msg_data => l_msg_data ,
5587: x_return_status => l_return_status );
5588: IF ( l_hold_result = FND_API.G_TRUE ) THEN
5589: oe_debug_pub.add('Logging delayed request for verify payment for change in tax value and hold exist') ;
5590: OE_delayed_requests_Pvt.log_request (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5591: p_entity_id => l_line_rec.header_id,
5592: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
5602: BEGIN
5603: l_l_line_adj_tbl.delete;
5604: /* initializing l_l_line_adj_tbl */
5605: OE_Line_Adj_UTIL.Lock_Rows ( p_line_id => l_line_rec.line_id, x_line_adj_tbl => l_l_line_adj_tbl, x_return_status => l_return_status);
5606: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5607: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5608: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5609: RAISE FND_API.G_EXC_ERROR;
5610: END IF;
5603: l_l_line_adj_tbl.delete;
5604: /* initializing l_l_line_adj_tbl */
5605: OE_Line_Adj_UTIL.Lock_Rows ( p_line_id => l_line_rec.line_id, x_line_adj_tbl => l_l_line_adj_tbl, x_return_status => l_return_status);
5606: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5607: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5608: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5609: RAISE FND_API.G_EXC_ERROR;
5610: END IF;
5611: EXCEPTION
5604: /* initializing l_l_line_adj_tbl */
5605: OE_Line_Adj_UTIL.Lock_Rows ( p_line_id => l_line_rec.line_id, x_line_adj_tbl => l_l_line_adj_tbl, x_return_status => l_return_status);
5606: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5607: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5608: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5609: RAISE FND_API.G_EXC_ERROR;
5610: END IF;
5611: EXCEPTION
5612: WHEN NO_DATA_FOUND THEN
5605: OE_Line_Adj_UTIL.Lock_Rows ( p_line_id => l_line_rec.line_id, x_line_adj_tbl => l_l_line_adj_tbl, x_return_status => l_return_status);
5606: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5607: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5608: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5609: RAISE FND_API.G_EXC_ERROR;
5610: END IF;
5611: EXCEPTION
5612: WHEN NO_DATA_FOUND THEN
5613: l_l_line_adj_tbl.delete;
5610: END IF;
5611: EXCEPTION
5612: WHEN NO_DATA_FOUND THEN
5613: l_l_line_adj_tbl.delete;
5614: x_return_status := FND_API.G_RET_STS_SUCCESS;
5615: END;
5616: FOR I IN 1..l_tax_rec_out_tbl.COUNT
5617: LOOP
5618: IF l_tax_rec_out_tbl(I).line_id = l_requesting_entity_id THEN --TaxER
5726: END LOOP; -- For Tax_Rec_Out_Tbl
5727: IF l_l_line_adj_tbl.COUNT > 0 THEN
5728: FOR J IN 1..l_l_line_adj_tbl.COUNT
5729: LOOP
5730: IF l_l_line_adj_tbl(J).list_line_type_code = 'TAX' AND (l_l_line_adj_tbl(J).operation IS NULL OR l_l_line_adj_tbl(J).operation = FND_API.G_MISS_CHAR) THEN
5731: IF l_debug_level > 0 THEN
5732: oe_debug_pub.add('Deleting adj Id '|| TO_CHAR(l_l_line_adj_tbl(J).price_adjustment_id),2);
5733: END IF;
5734: DELETE
5834: BEGIN
5835: l_l_header_adj_tbl.delete;
5836: /* initializing l_l_header_adj_tbl */
5837: OE_Header_Adj_Util.Lock_Rows ( p_header_id => l_header_rec.header_id, X_HEADER_ADJ_TBL=>l_l_header_adj_tbl, X_RETURN_STATUS => l_return_status);
5838: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5840: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5841: RAISE FND_API.G_EXC_ERROR;
5842: END IF;
5835: l_l_header_adj_tbl.delete;
5836: /* initializing l_l_header_adj_tbl */
5837: OE_Header_Adj_Util.Lock_Rows ( p_header_id => l_header_rec.header_id, X_HEADER_ADJ_TBL=>l_l_header_adj_tbl, X_RETURN_STATUS => l_return_status);
5838: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5840: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5841: RAISE FND_API.G_EXC_ERROR;
5842: END IF;
5843: EXCEPTION
5836: /* initializing l_l_header_adj_tbl */
5837: OE_Header_Adj_Util.Lock_Rows ( p_header_id => l_header_rec.header_id, X_HEADER_ADJ_TBL=>l_l_header_adj_tbl, X_RETURN_STATUS => l_return_status);
5838: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5840: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5841: RAISE FND_API.G_EXC_ERROR;
5842: END IF;
5843: EXCEPTION
5844: WHEN NO_DATA_FOUND THEN
5837: OE_Header_Adj_Util.Lock_Rows ( p_header_id => l_header_rec.header_id, X_HEADER_ADJ_TBL=>l_l_header_adj_tbl, X_RETURN_STATUS => l_return_status);
5838: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5840: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5841: RAISE FND_API.G_EXC_ERROR;
5842: END IF;
5843: EXCEPTION
5844: WHEN NO_DATA_FOUND THEN
5845: l_l_header_adj_tbl.delete;
5842: END IF;
5843: EXCEPTION
5844: WHEN NO_DATA_FOUND THEN
5845: l_l_header_adj_tbl.delete;
5846: x_return_status := FND_API.G_RET_STS_SUCCESS;
5847: END;
5848: FOR I IN 1..l_tax_rec_out_tbl.COUNT
5849: LOOP
5850: IF l_tax_rec_out_tbl(I).trx_id = l_requesting_entity_id THEN --TaxER
5925: END LOOP; -- For Tax_Rec_Out_Tbl
5926: IF l_l_header_adj_tbl.COUNT > 0 THEN
5927: FOR J IN 1..l_l_header_adj_tbl.COUNT
5928: LOOP
5929: --TaxER IF l_l_header_adj_tbl(J).list_line_type_code = 'TAX' AND l_l_header_adj_tbl(J).parent_adjustment_id IS NULL AND (l_l_header_adj_tbl(J).operation IS NULL OR l_l_header_adj_tbl(J).operation = FND_API.G_MISS_CHAR) THEN
5930: IF l_l_header_adj_tbl(J).list_line_type_code = 'TAX' AND (l_l_header_adj_tbl(J).operation IS NULL OR l_l_header_adj_tbl(J).operation = FND_API.G_MISS_CHAR) THEN --TaxER
5931: IF l_debug_level > 0 THEN
5932: oe_debug_pub.add('Deleting adj Id '|| TO_CHAR(l_l_header_adj_tbl(J).price_adjustment_id),2);
5933: END IF;
5926: IF l_l_header_adj_tbl.COUNT > 0 THEN
5927: FOR J IN 1..l_l_header_adj_tbl.COUNT
5928: LOOP
5929: --TaxER IF l_l_header_adj_tbl(J).list_line_type_code = 'TAX' AND l_l_header_adj_tbl(J).parent_adjustment_id IS NULL AND (l_l_header_adj_tbl(J).operation IS NULL OR l_l_header_adj_tbl(J).operation = FND_API.G_MISS_CHAR) THEN
5930: IF l_l_header_adj_tbl(J).list_line_type_code = 'TAX' AND (l_l_header_adj_tbl(J).operation IS NULL OR l_l_header_adj_tbl(J).operation = FND_API.G_MISS_CHAR) THEN --TaxER
5931: IF l_debug_level > 0 THEN
5932: oe_debug_pub.add('Deleting adj Id '|| TO_CHAR(l_l_header_adj_tbl(J).price_adjustment_id),2);
5933: END IF;
5934: DELETE
5948: IF l_debug_level > 0 THEN
5949: oe_debug_pub.add('Exiting Process_Tax ',0.5); --debug level changed to 0.5 for bug 13435459
5950: END IF;
5951: EXCEPTION
5952: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5953: l_tax_rec_out_tbl.delete;
5954: l_l_line_adj_tbl.delete;
5955: l_l_header_adj_tbl.DELETE ;
5956: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5952: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5953: l_tax_rec_out_tbl.delete;
5954: l_l_line_adj_tbl.delete;
5955: l_l_header_adj_tbl.DELETE ;
5956: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5957: WHEN FND_API.G_EXC_ERROR THEN
5958: l_tax_rec_out_tbl.delete;
5959: l_l_line_adj_tbl.delete;
5960: l_l_header_adj_tbl.DELETE;
5953: l_tax_rec_out_tbl.delete;
5954: l_l_line_adj_tbl.delete;
5955: l_l_header_adj_tbl.DELETE ;
5956: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5957: WHEN FND_API.G_EXC_ERROR THEN
5958: l_tax_rec_out_tbl.delete;
5959: l_l_line_adj_tbl.delete;
5960: l_l_header_adj_tbl.DELETE;
5961: x_return_status := FND_API.G_RET_STS_ERROR;
5957: WHEN FND_API.G_EXC_ERROR THEN
5958: l_tax_rec_out_tbl.delete;
5959: l_l_line_adj_tbl.delete;
5960: l_l_header_adj_tbl.DELETE;
5961: x_return_status := FND_API.G_RET_STS_ERROR;
5962: WHEN NO_DATA_FOUND THEN
5963: l_tax_rec_out_tbl.delete;
5964: l_l_line_adj_tbl.delete;
5965: l_l_header_adj_tbl.DELETE;
5965: l_l_header_adj_tbl.DELETE;
5966: IF l_debug_level > 0 THEN
5967: oe_debug_pub.add('Tax_Order: In No DATA Found',2);
5968: END IF;
5969: x_return_status := FND_API.G_RET_STS_SUCCESS;
5970: WHEN OTHERS THEN
5971: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5972: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME , 'Tax Header' );
5973: END IF;
5970: WHEN OTHERS THEN
5971: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5972: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME , 'Tax Header' );
5973: END IF;
5974: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5975: l_tax_rec_out_tbl.delete;
5976: l_l_line_adj_tbl.delete;
5977: l_l_header_adj_tbl.DELETE;
5978: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5974: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5975: l_tax_rec_out_tbl.delete;
5976: l_l_line_adj_tbl.delete;
5977: l_l_header_adj_tbl.DELETE;
5978: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5979: END Process_Tax;
5980:
5981:
5982:
6051:
6052: BEGIN
6053:
6054: oe_debug_pub.add(' Entering procedure auto_create_internal_req ',2);
6055: x_return_status := FND_API.G_RET_STS_SUCCESS;
6056: --Query Order Header
6057: OPEN ord_hdr_cur(p_ord_header_id);
6058: FETCH ord_hdr_cur into l_created_by,l_org_id;
6059: CLOSE ord_hdr_cur;
6068: WHEN NO_DATA_FOUND THEN
6069: --This is a required field however PO will handle the error if these Fields are null
6070: l_preparer_id := null;
6071: WHEN OTHERS THEN
6072: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6073: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6074: END;
6075:
6076: --Pass the Internal Sales Order Header values to the internal req header record
6069: --This is a required field however PO will handle the error if these Fields are null
6070: l_preparer_id := null;
6071: WHEN OTHERS THEN
6072: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6073: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6074: END;
6075:
6076: --Pass the Internal Sales Order Header values to the internal req header record
6077: l_req_header_rec.preparer_id := l_preparer_id;
6089: j := j+1;
6090: IF cur_ord_line.item_type_code <> OE_GLOBALS.G_ITEM_STANDARD THEN
6091: fnd_message.set_name('ONT','ONT_ISO_ITEM_TYPE_NOT_STD');
6092: OE_MSG_PUB.Add;
6093: x_return_status := FND_API.G_RET_STS_ERROR;
6094: RAISE FND_API.G_EXC_ERROR;
6095: END IF;
6096: --get the destination organization id and deliver to location id for this order line
6097: BEGIN
6090: IF cur_ord_line.item_type_code <> OE_GLOBALS.G_ITEM_STANDARD THEN
6091: fnd_message.set_name('ONT','ONT_ISO_ITEM_TYPE_NOT_STD');
6092: OE_MSG_PUB.Add;
6093: x_return_status := FND_API.G_RET_STS_ERROR;
6094: RAISE FND_API.G_EXC_ERROR;
6095: END IF;
6096: --get the destination organization id and deliver to location id for this order line
6097: BEGIN
6098: OPEN dest_org_locn_cur(cur_Ord_line.sold_to_org_id);
6132: ,x_return_status => l_int_req_Ret_sts
6133: ,x_msg_count => l_msg_count
6134: ,x_msg_data => l_msg_data );
6135: --Check return status of the Purchasing API
6136: IF l_int_req_Ret_sts = FND_API.G_RET_STS_UNEXP_ERROR THEN
6137: oe_debug_pub.add(' PO API call returned unexpected error '||l_msg_data,2);
6138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6139:
6140: ELSIF l_int_req_Ret_sts = FND_API.G_RET_STS_ERROR THEN
6134: ,x_msg_data => l_msg_data );
6135: --Check return status of the Purchasing API
6136: IF l_int_req_Ret_sts = FND_API.G_RET_STS_UNEXP_ERROR THEN
6137: oe_debug_pub.add(' PO API call returned unexpected error '||l_msg_data,2);
6138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6139:
6140: ELSIF l_int_req_Ret_sts = FND_API.G_RET_STS_ERROR THEN
6141: oe_debug_pub.add(' PO API call returned error '||l_msg_data,2);
6142: RAISE FND_API.G_EXC_ERROR;
6136: IF l_int_req_Ret_sts = FND_API.G_RET_STS_UNEXP_ERROR THEN
6137: oe_debug_pub.add(' PO API call returned unexpected error '||l_msg_data,2);
6138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6139:
6140: ELSIF l_int_req_Ret_sts = FND_API.G_RET_STS_ERROR THEN
6141: oe_debug_pub.add(' PO API call returned error '||l_msg_data,2);
6142: RAISE FND_API.G_EXC_ERROR;
6143: END IF;
6144:
6138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6139:
6140: ELSIF l_int_req_Ret_sts = FND_API.G_RET_STS_ERROR THEN
6141: oe_debug_pub.add(' PO API call returned error '||l_msg_data,2);
6142: RAISE FND_API.G_EXC_ERROR;
6143: END IF;
6144:
6145: END;/* Call to the Purchasing API*/
6146:
6144:
6145: END;/* Call to the Purchasing API*/
6146:
6147: --if it returns success Update the Internal Sales Order with the Req header id and Req line Ids
6148: IF l_int_req_ret_sts = FND_API.G_RET_STS_SUCCESS THEN
6149:
6150: --Update the header with the requisition header id
6151: Update OE_Order_Headers
6152: set source_document_Id = l_req_header_rec.requisition_header_id
6175: END IF;
6176: --Handle Exceptions
6177: EXCEPTION
6178:
6179: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6181: oe_debug_pub.add('auto_create_internal_req: In Unexpected error',2);
6182:
6183: WHEN FND_API.G_EXC_ERROR THEN
6176: --Handle Exceptions
6177: EXCEPTION
6178:
6179: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6181: oe_debug_pub.add('auto_create_internal_req: In Unexpected error',2);
6182:
6183: WHEN FND_API.G_EXC_ERROR THEN
6184: x_return_status := FND_API.G_RET_STS_ERROR;
6179: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6181: oe_debug_pub.add('auto_create_internal_req: In Unexpected error',2);
6182:
6183: WHEN FND_API.G_EXC_ERROR THEN
6184: x_return_status := FND_API.G_RET_STS_ERROR;
6185: oe_debug_pub.add('auto_create_internal_req: In execution error',2);
6186:
6187: --WHEN NO_DATA_FOUND THEN
6180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6181: oe_debug_pub.add('auto_create_internal_req: In Unexpected error',2);
6182:
6183: WHEN FND_API.G_EXC_ERROR THEN
6184: x_return_status := FND_API.G_RET_STS_ERROR;
6185: oe_debug_pub.add('auto_create_internal_req: In execution error',2);
6186:
6187: --WHEN NO_DATA_FOUND THEN
6188: --x_return_status := FND_API.G_RET_STS_SUCCESS;
6184: x_return_status := FND_API.G_RET_STS_ERROR;
6185: oe_debug_pub.add('auto_create_internal_req: In execution error',2);
6186:
6187: --WHEN NO_DATA_FOUND THEN
6188: --x_return_status := FND_API.G_RET_STS_SUCCESS;
6189: --oe_debug_pub.add('auto_create_internal_req: In No DATA Found',2);
6190:
6191: WHEN OTHERS THEN
6192: oe_debug_pub.add('auto_create_internal_req: In Other error',2);
6193: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6194: THEN
6195: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,'auto_create_internal_req');
6196: END IF;
6197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6198:
6199: END auto_create_internal_req;
6200:
6201: -------------------------------------------------------------------
6248: BEGIN
6249:
6250: OE_Debug_PUB.Add('Entering OE_Delayed_Requests_Util.Reverse_Limits', 1);
6251: OE_Debug_PUB.Add('BOTTOM LEVEL before QP call', 1);
6252: x_return_status := FND_API.G_RET_STS_SUCCESS;
6253:
6254: -- BUG 2670775 Reverse Limits Begin
6255: -- If Limits processing is not installed, no need to proceed further
6256: IF NVL(FND_PROFILE.VALUE('QP_LIMITS_INSTALLED'),'N') = 'N' THEN
6326:
6327:
6328: OE_Debug_PUB.Add('QP_UTIL_PUB.Reverse_Limits returns status of '|| l_return_status, 1);
6329: OE_Debug_PUB.Add('QP_UTIL_PUB.Reverse_Limits returns message of '|| l_return_message , 1);
6330: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6331: OE_Debug_PUB.Add('Error returned by QP_UTIL_PUB.Reverse_Limits',1);
6332: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6333: RAISE FND_API.G_EXC_ERROR;
6334: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6328: OE_Debug_PUB.Add('QP_UTIL_PUB.Reverse_Limits returns status of '|| l_return_status, 1);
6329: OE_Debug_PUB.Add('QP_UTIL_PUB.Reverse_Limits returns message of '|| l_return_message , 1);
6330: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6331: OE_Debug_PUB.Add('Error returned by QP_UTIL_PUB.Reverse_Limits',1);
6332: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6333: RAISE FND_API.G_EXC_ERROR;
6334: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6335: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6336: END IF;
6329: OE_Debug_PUB.Add('QP_UTIL_PUB.Reverse_Limits returns message of '|| l_return_message , 1);
6330: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6331: OE_Debug_PUB.Add('Error returned by QP_UTIL_PUB.Reverse_Limits',1);
6332: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6333: RAISE FND_API.G_EXC_ERROR;
6334: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6335: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6336: END IF;
6337: END IF;
6330: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6331: OE_Debug_PUB.Add('Error returned by QP_UTIL_PUB.Reverse_Limits',1);
6332: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6333: RAISE FND_API.G_EXC_ERROR;
6334: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6335: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6336: END IF;
6337: END IF;
6338:
6331: OE_Debug_PUB.Add('Error returned by QP_UTIL_PUB.Reverse_Limits',1);
6332: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6333: RAISE FND_API.G_EXC_ERROR;
6334: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6335: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6336: END IF;
6337: END IF;
6338:
6339: --bug 7491829
6346:
6347: OE_Debug_PUB.Add('Exiting OE_Delayed_Requests_Util.Reverse_Limits with status of '|| x_return_status, 1);
6348:
6349: EXCEPTION
6350: WHEN FND_API.G_EXC_ERROR THEN
6351:
6352: x_return_status := FND_API.G_RET_STS_ERROR;
6353:
6354: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6348:
6349: EXCEPTION
6350: WHEN FND_API.G_EXC_ERROR THEN
6351:
6352: x_return_status := FND_API.G_RET_STS_ERROR;
6353:
6354: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6355:
6356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6350: WHEN FND_API.G_EXC_ERROR THEN
6351:
6352: x_return_status := FND_API.G_RET_STS_ERROR;
6353:
6354: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6355:
6356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6357:
6358: WHEN OTHERS THEN
6352: x_return_status := FND_API.G_RET_STS_ERROR;
6353:
6354: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6355:
6356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6357:
6358: WHEN OTHERS THEN
6359:
6360: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6357:
6358: WHEN OTHERS THEN
6359:
6360: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6361: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6362: THEN
6363: OE_MSG_PUB.Add_Exc_Msg
6364: ( G_PKG_NAME
6445: oe_debug_pub.add( 'l_reciever_code before:' || l_reciever_code ) ;
6446: END IF;
6447:
6448:
6449: IF l_reciever_code = FND_API.G_MISS_CHAR OR
6450: l_reciever_code IS NULL THEN
6451: l_reciever_code := 'C';
6452: END IF;
6453:
6801: END IF;
6802: END IF;
6803: END IF;
6804:
6805: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6806: IF l_debug_level > 0 THEN
6807: OE_Debug_PUB.Add('ERROR RETURNED BY RAISE_EVENT FOR: ' || l_acknowledgment_type);
6808: END IF;
6809: END IF;
6820: When others then
6821: IF l_debug_level > 0 THEN
6822: oe_debug_pub.add( 'IN OTHERS EXCEPTION:' || SQLERRM) ;
6823: END IF;
6824: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6825: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6826: End Process_XML_Delayed_Request;
6827:
6828:
6821: IF l_debug_level > 0 THEN
6822: oe_debug_pub.add( 'IN OTHERS EXCEPTION:' || SQLERRM) ;
6823: END IF;
6824: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6825: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6826: End Process_XML_Delayed_Request;
6827:
6828:
6829: /* 7576948: IR ISO Change Management project Start */
6917: oe_debug_pub.ADD(' Not an Order Level Cancellation',5);
6918: END IF;
6919: END IF;
6920:
6921: x_return_status := FND_API.G_RET_STS_SUCCESS;
6922: l_New_Schedule_Ship_Date := p_New_Schedule_Ship_Date;
6923:
6924: IF NOT p_Cancel_Order THEN
6925: IF p_line_id IS NULL THEN
6925: IF p_line_id IS NULL THEN
6926: IF l_debug_level > 0 THEN
6927: oe_debug_pub.add(' Invalid processing since Line_id is null for non-order header cancellation',1);
6928: END IF;
6929: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6930: END IF;
6931: Begin
6932: select nvl(ordered_quantity,0)
6933: into l_new_ord_quantity
6958: , X_msg_data => l_msg_data
6959: , X_return_status => l_return_status
6960: );
6961:
6962: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6963: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6964: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6965: RAISE FND_API.G_EXC_ERROR;
6966: END IF;
6959: , X_return_status => l_return_status
6960: );
6961:
6962: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6963: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6964: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6965: RAISE FND_API.G_EXC_ERROR;
6966: END IF;
6967:
6960: );
6961:
6962: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6963: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6964: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6965: RAISE FND_API.G_EXC_ERROR;
6966: END IF;
6967:
6968: X_return_status := l_return_status;
6961:
6962: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6963: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6964: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6965: RAISE FND_API.G_EXC_ERROR;
6966: END IF;
6967:
6968: X_return_status := l_return_status;
6969:
6970: IF l_debug_level > 0 THEN
6971: oe_debug_pub.ADD('Exiting delayed request utility for Update_Requisition_Info',1);
6972: END IF;
6973: EXCEPTION
6974: WHEN FND_API.G_EXC_ERROR THEN
6975: x_return_status := FND_API.G_RET_STS_ERROR;
6976: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6978: WHEN OTHERS THEN
6971: oe_debug_pub.ADD('Exiting delayed request utility for Update_Requisition_Info',1);
6972: END IF;
6973: EXCEPTION
6974: WHEN FND_API.G_EXC_ERROR THEN
6975: x_return_status := FND_API.G_RET_STS_ERROR;
6976: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6978: WHEN OTHERS THEN
6979: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6972: END IF;
6973: EXCEPTION
6974: WHEN FND_API.G_EXC_ERROR THEN
6975: x_return_status := FND_API.G_RET_STS_ERROR;
6976: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6978: WHEN OTHERS THEN
6979: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6980: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6973: EXCEPTION
6974: WHEN FND_API.G_EXC_ERROR THEN
6975: x_return_status := FND_API.G_RET_STS_ERROR;
6976: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6978: WHEN OTHERS THEN
6979: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6980: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6981: OE_MSG_PUB.Add_Exc_Msg
6975: x_return_status := FND_API.G_RET_STS_ERROR;
6976: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6978: WHEN OTHERS THEN
6979: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6980: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6981: OE_MSG_PUB.Add_Exc_Msg
6982: ( G_PKG_NAME
6983: , 'Update_Requisition_Info'
7014: , x_return_status => l_return_status);
7015:
7016: x_return_status := l_return_status;
7017:
7018: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7019: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7020: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7021: RAISE FND_API.G_EXC_ERROR;
7022: END IF;
7015:
7016: x_return_status := l_return_status;
7017:
7018: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7019: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7020: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7021: RAISE FND_API.G_EXC_ERROR;
7022: END IF;
7023:
7016: x_return_status := l_return_status;
7017:
7018: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7019: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7020: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7021: RAISE FND_API.G_EXC_ERROR;
7022: END IF;
7023:
7024: if l_debug_level > 0 then
7017:
7018: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7019: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7020: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7021: RAISE FND_API.G_EXC_ERROR;
7022: END IF;
7023:
7024: if l_debug_level > 0 then
7025: oe_debug_pub.add(' Exiting OE_Delayed_Requests_Util.Process_Pre_Exploded_Kits',1);
7025: oe_debug_pub.add(' Exiting OE_Delayed_Requests_Util.Process_Pre_Exploded_Kits',1);
7026: end if;
7027:
7028: EXCEPTION
7029: WHEN FND_API.G_EXC_ERROR THEN
7030: x_return_status := FND_API.G_RET_STS_ERROR;
7031: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7032: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7033: WHEN OTHERS THEN
7026: end if;
7027:
7028: EXCEPTION
7029: WHEN FND_API.G_EXC_ERROR THEN
7030: x_return_status := FND_API.G_RET_STS_ERROR;
7031: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7032: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7033: WHEN OTHERS THEN
7034: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7027:
7028: EXCEPTION
7029: WHEN FND_API.G_EXC_ERROR THEN
7030: x_return_status := FND_API.G_RET_STS_ERROR;
7031: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7032: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7033: WHEN OTHERS THEN
7034: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7035: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7028: EXCEPTION
7029: WHEN FND_API.G_EXC_ERROR THEN
7030: x_return_status := FND_API.G_RET_STS_ERROR;
7031: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7032: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7033: WHEN OTHERS THEN
7034: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7035: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7036: OE_MSG_PUB.Add_Exc_Msg
7030: x_return_status := FND_API.G_RET_STS_ERROR;
7031: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7032: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7033: WHEN OTHERS THEN
7034: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7035: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7036: OE_MSG_PUB.Add_Exc_Msg
7037: ( G_PKG_NAME
7038: , 'Process_Pre_Exploded_Kits'