24: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
25: --
26: BEGIN
27:
28: x_return_status := FND_API.G_RET_STS_SUCCESS;
29:
30: IF l_debug_level > 0 THEN
31: oe_debug_pub.add('OEXGRMAB: ENTERING SUBMIT_ORDER, HEADER ID: '||P_HEADER_ID) ;
32: END IF;
32: END IF;
33:
34: /* Standard call to check for call compatibility */
35:
36: IF NOT FND_API.Compatible_API_Call
37: ( l_api_version
38: , p_api_version
39: , l_api_name
40: , G_PKG_NAME
39: , l_api_name
40: , G_PKG_NAME
41: )
42: THEN
43: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
44: END IF;
45:
46: OE_Header_Util.Query_Row(p_header_id => p_header_id,
47: x_header_rec => l_header_rec);
87: IF l_debug_level > 0 THEN
88: oe_debug_pub.add('OEXGRMAB: AFTER CALLING UPDATE FLOW STATUS CODE, RETURN STATUS: '||X_RETURN_STATUS);
89: END IF;
90:
91: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
92: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
93: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
94: RAISE FND_API.G_EXC_ERROR;
95: END IF;
88: oe_debug_pub.add('OEXGRMAB: AFTER CALLING UPDATE FLOW STATUS CODE, RETURN STATUS: '||X_RETURN_STATUS);
89: END IF;
90:
91: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
92: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
93: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
94: RAISE FND_API.G_EXC_ERROR;
95: END IF;
96:
89: END IF;
90:
91: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
92: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
93: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
94: RAISE FND_API.G_EXC_ERROR;
95: END IF;
96:
97: IF l_debug_level > 0 THEN
90:
91: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
92: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
93: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
94: RAISE FND_API.G_EXC_ERROR;
95: END IF;
96:
97: IF l_debug_level > 0 THEN
98: oe_debug_pub.add('OEXGRMAB: EXITING SUBMIT_ORDER');
99: END IF;
100:
101: EXCEPTION
102:
103: WHEN FND_API.G_EXC_ERROR THEN
104: x_return_status := FND_API.G_RET_STS_ERROR;
105: OE_MSG_PUB.Get
106: ( p_msg_index => OE_MSG_PUB.G_LAST
107: , p_encoded => FND_API.G_FALSE
100:
101: EXCEPTION
102:
103: WHEN FND_API.G_EXC_ERROR THEN
104: x_return_status := FND_API.G_RET_STS_ERROR;
105: OE_MSG_PUB.Get
106: ( p_msg_index => OE_MSG_PUB.G_LAST
107: , p_encoded => FND_API.G_FALSE
108: , p_data => x_msg_data
103: WHEN FND_API.G_EXC_ERROR THEN
104: x_return_status := FND_API.G_RET_STS_ERROR;
105: OE_MSG_PUB.Get
106: ( p_msg_index => OE_MSG_PUB.G_LAST
107: , p_encoded => FND_API.G_FALSE
108: , p_data => x_msg_data
109: , p_msg_index_out => x_msg_count
110: );
111:
108: , p_data => x_msg_data
109: , p_msg_index_out => x_msg_count
110: );
111:
112: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
113: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
114: OE_MSG_PUB.Get
115: ( p_msg_index => OE_MSG_PUB.G_LAST
116: , p_encoded => FND_API.G_FALSE
109: , p_msg_index_out => x_msg_count
110: );
111:
112: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
113: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
114: OE_MSG_PUB.Get
115: ( p_msg_index => OE_MSG_PUB.G_LAST
116: , p_encoded => FND_API.G_FALSE
117: , p_data => x_msg_data
112: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
113: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
114: OE_MSG_PUB.Get
115: ( p_msg_index => OE_MSG_PUB.G_LAST
116: , p_encoded => FND_API.G_FALSE
117: , p_data => x_msg_data
118: , p_msg_index_out => x_msg_count
119: );
120:
118: , p_msg_index_out => x_msg_count
119: );
120:
121: WHEN OTHERS THEN
122: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
123: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
124: THEN
125: FND_MSG_PUB.Add_Exc_Msg
126: ( G_PKG_NAME
128: );
129: END IF;
130: OE_MSG_PUB.Get
131: ( p_msg_index => OE_MSG_PUB.G_LAST
132: , p_encoded => FND_API.G_FALSE
133: , p_data => x_msg_data
134: , p_msg_index_out => x_msg_count
135: );
136: END Submit_Order;
164: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
165: --
166: BEGIN
167:
168: x_return_status := FND_API.G_RET_STS_SUCCESS;
169:
170: IF l_debug_level > 0 THEN
171: oe_debug_pub.add('OEXGRMAB: ENTERING IS_OVER_RETURN') ;
172: END IF;
172: END IF;
173:
174: /* Standard call to check for call compatibility */
175:
176: IF NOT FND_API.Compatible_API_Call
177: ( l_api_version
178: , p_api_version
179: , l_api_name
180: , G_PKG_NAME
179: , l_api_name
180: , G_PKG_NAME
181: )
182: THEN
183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
184: END IF;
185:
186: /* Validate returned qty for each line id in the Line Table */
187: l_index := p_line_tbl.FIRST;
224: FND_MESSAGE.Set_Token('CURRENT', p_line_tbl(l_index).ordered_quantity);
225: FND_MESSAGE.Set_Token('ORIGINAL', l_original_ordered);
226: OE_MSG_PUB.Add;
227: /* No Need to Raise the Exception, Just Set the Return Status */
228: --Raise FND_API.G_EXC_ERROR;
229: x_return_status := FND_API.G_RET_STS_ERROR;
230:
231: /*
232: ** Populate the Return Error Table to let iStore know
225: FND_MESSAGE.Set_Token('ORIGINAL', l_original_ordered);
226: OE_MSG_PUB.Add;
227: /* No Need to Raise the Exception, Just Set the Return Status */
228: --Raise FND_API.G_EXC_ERROR;
229: x_return_status := FND_API.G_RET_STS_ERROR;
230:
231: /*
232: ** Populate the Return Error Table to let iStore know
233: ** of the Return Lines which actually errored out.
237: x_error_tbl(l_ctr).line_id := p_line_tbl(l_index).line_id;
238: x_error_tbl(l_ctr).previous_quantity := l_already_returned;
239: x_error_tbl(l_ctr).current_quantity := p_line_tbl(l_index).ordered_quantity;
240: x_error_tbl(l_ctr).original_quantity := l_original_ordered;
241: x_error_tbl(l_ctr).return_status := FND_API.G_RET_STS_ERROR;
242:
243: OE_MSG_PUB.Get
244: ( p_msg_index => OE_MSG_PUB.G_LAST
245: , p_encoded => FND_API.G_FALSE
241: x_error_tbl(l_ctr).return_status := FND_API.G_RET_STS_ERROR;
242:
243: OE_MSG_PUB.Get
244: ( p_msg_index => OE_MSG_PUB.G_LAST
245: , p_encoded => FND_API.G_FALSE
246: , p_data => x_error_tbl(l_ctr).msg_data
247: , p_msg_index_out => x_error_tbl(l_ctr).msg_count
248: );
249:
258: END IF;
259:
260: EXCEPTION
261:
262: WHEN FND_API.G_EXC_ERROR THEN
263: x_return_status := FND_API.G_RET_STS_ERROR;
264: OE_MSG_PUB.Get
265: ( p_msg_index => OE_MSG_PUB.G_LAST
266: , p_encoded => FND_API.G_FALSE
259:
260: EXCEPTION
261:
262: WHEN FND_API.G_EXC_ERROR THEN
263: x_return_status := FND_API.G_RET_STS_ERROR;
264: OE_MSG_PUB.Get
265: ( p_msg_index => OE_MSG_PUB.G_LAST
266: , p_encoded => FND_API.G_FALSE
267: , p_data => x_msg_data
262: WHEN FND_API.G_EXC_ERROR THEN
263: x_return_status := FND_API.G_RET_STS_ERROR;
264: OE_MSG_PUB.Get
265: ( p_msg_index => OE_MSG_PUB.G_LAST
266: , p_encoded => FND_API.G_FALSE
267: , p_data => x_msg_data
268: , p_msg_index_out => x_msg_count
269: );
270:
267: , p_data => x_msg_data
268: , p_msg_index_out => x_msg_count
269: );
270:
271: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
273: OE_MSG_PUB.Get
274: ( p_msg_index => OE_MSG_PUB.G_LAST
275: , p_encoded => FND_API.G_FALSE
268: , p_msg_index_out => x_msg_count
269: );
270:
271: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
273: OE_MSG_PUB.Get
274: ( p_msg_index => OE_MSG_PUB.G_LAST
275: , p_encoded => FND_API.G_FALSE
276: , p_data => x_msg_data
271: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
273: OE_MSG_PUB.Get
274: ( p_msg_index => OE_MSG_PUB.G_LAST
275: , p_encoded => FND_API.G_FALSE
276: , p_data => x_msg_data
277: , p_msg_index_out => x_msg_count
278: );
279:
277: , p_msg_index_out => x_msg_count
278: );
279:
280: WHEN OTHERS THEN
281: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
282: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
283: THEN
284: FND_MSG_PUB.Add_Exc_Msg
285: ( G_PKG_NAME
287: );
288: END IF;
289: OE_MSG_PUB.Get
290: ( p_msg_index => OE_MSG_PUB.G_LAST
291: , p_encoded => FND_API.G_FALSE
292: , p_data => x_msg_data
293: , p_msg_index_out => x_msg_count
294: );
295:
424: OE_DEBUG_PUB.ADD('OEXGRMAB: ISTORE PACKAGE DOES NOT EXIST '||SQLCODE);
425: NULL;
426: ELSE
427: OE_DEBUG_PUB.ADD('OEXGRMAB: PACKAGE EXIST, SOME OTHER EXCEPTION '||SQLCODE);
428: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
429: END IF;
430: END;
431:
432: IF l_debug_level > 0 THEN
432: IF l_debug_level > 0 THEN
433: oe_debug_pub.add('OEXGRMAB: AFTER CALLING IBE_OM_INTEGRATION_GRP.NOTIFY_RMA_REQUEST_ACTION');
434: END IF;
435:
436: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
438: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
439: RAISE FND_API.G_EXC_ERROR;
440: END IF;
433: oe_debug_pub.add('OEXGRMAB: AFTER CALLING IBE_OM_INTEGRATION_GRP.NOTIFY_RMA_REQUEST_ACTION');
434: END IF;
435:
436: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
438: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
439: RAISE FND_API.G_EXC_ERROR;
440: END IF;
441:
434: END IF;
435:
436: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
438: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
439: RAISE FND_API.G_EXC_ERROR;
440: END IF;
441:
442: END IF; -- If iStore Return
435:
436: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
438: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
439: RAISE FND_API.G_EXC_ERROR;
440: END IF;
441:
442: END IF; -- If iStore Return
443:
441:
442: END IF; -- If iStore Return
443:
444: ELSE -- Not Header Item Type
445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
446: END IF;
447:
448: RESULTOUT := 'COMPLETE:COMPLETE';
449:
583: IF l_debug_level > 0 THEN
584: oe_debug_pub.add('OEXGRMAB: AFTER CALLING OE_REASONS_UTIL.APPLY_REASON');
585: END IF;
586:
587: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
589: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
590: RAISE FND_API.G_EXC_ERROR;
591: END IF;
584: oe_debug_pub.add('OEXGRMAB: AFTER CALLING OE_REASONS_UTIL.APPLY_REASON');
585: END IF;
586:
587: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
589: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
590: RAISE FND_API.G_EXC_ERROR;
591: END IF;
592:
585: END IF;
586:
587: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
589: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
590: RAISE FND_API.G_EXC_ERROR;
591: END IF;
592:
593: END IF;
586:
587: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
589: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
590: RAISE FND_API.G_EXC_ERROR;
591: END IF;
592:
593: END IF;
594: END IF;
644: OE_DEBUG_PUB.ADD('OEXGRMAB: ISTORE PACKAGE DOES NOT EXIST '||SQLCODE);
645: NULL;
646: ELSE
647: OE_DEBUG_PUB.ADD('OEXGRMAB: PACKAGE EXIST, SOME OTHER EXCEPTION '||SQLCODE);
648: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
649: END IF;
650: END;
651:
652: IF l_debug_level > 0 THEN
652: IF l_debug_level > 0 THEN
653: oe_debug_pub.add('OEXGRMAB: AFTER CALLING IBE_OM_INTEGRATION_GRP.NOTIFY_RMA_REQUEST_ACTION');
654: END IF;
655:
656: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
657: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
658: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
659: RAISE FND_API.G_EXC_ERROR;
660: END IF;
653: oe_debug_pub.add('OEXGRMAB: AFTER CALLING IBE_OM_INTEGRATION_GRP.NOTIFY_RMA_REQUEST_ACTION');
654: END IF;
655:
656: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
657: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
658: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
659: RAISE FND_API.G_EXC_ERROR;
660: END IF;
661:
654: END IF;
655:
656: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
657: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
658: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
659: RAISE FND_API.G_EXC_ERROR;
660: END IF;
661:
662: END IF; -- If iStore Return
655:
656: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
657: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
658: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
659: RAISE FND_API.G_EXC_ERROR;
660: END IF;
661:
662: END IF; -- If iStore Return
663:
661:
662: END IF; -- If iStore Return
663:
664: ELSE -- Not Header Item Type
665: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
666: END IF;
667:
668: RESULTOUT := 'COMPLETE:COMPLETE';
669: