DBA Data[Home] [Help]

APPS.GME_RESERVE_CONC dependencies on FND_API

Line 30: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;

26: p_use_reservation_time_fence IN VARCHAR2,
27: x_return_status OUT NOCOPY VARCHAR2
28: )
29: IS
30: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
31: l_result Varchar2(30);
32: l_scheduling_level_code VARCHAR2(30) := NULL;
33: l_out_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
34: l_type_code VARCHAR2(30);

Line 33: l_out_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;

29: IS
30: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
31: l_result Varchar2(30);
32: l_scheduling_level_code VARCHAR2(30) := NULL;
33: l_out_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
34: l_type_code VARCHAR2(30);
35: l_org_id NUMBER;
36: l_time_fence BOOLEAN;
37: l_msg_count NUMBER;

Line 55: l_return_status := FND_API.G_RET_STS_ERROR;

51: IF ( p_line_rec.open_flag = 'N' ) THEN
52: IF l_debug_level > 0 THEN
53: OE_DEBUG_PUB.Add('Line is closed, not eligible for reservation', 1);
54: END IF;
55: l_return_status := FND_API.G_RET_STS_ERROR;
56:
57: /* Check if line is shipped, if shipped then ignore the line */
58: ELSIF ( nvl(p_line_rec.shipped_quantity, -99) > 0 ) THEN
59: IF l_debug_level > 0 THEN

Line 62: l_return_status := FND_API.G_RET_STS_ERROR;

58: ELSIF ( nvl(p_line_rec.shipped_quantity, -99) > 0 ) THEN
59: IF l_debug_level > 0 THEN
60: OE_DEBUG_PUB.Add('Line is shipped, not eligible for reservation', 1);
61: END IF;
62: l_return_status := FND_API.G_RET_STS_ERROR;
63: END IF;
64:
65: IF l_return_status = FND_API.G_RET_STS_SUCCESS
66: AND NVL(g_reservation_mode,'*') <> 'PARTIAL'

Line 65: IF l_return_status = FND_API.G_RET_STS_SUCCESS

61: END IF;
62: l_return_status := FND_API.G_RET_STS_ERROR;
63: END IF;
64:
65: IF l_return_status = FND_API.G_RET_STS_SUCCESS
66: AND NVL(g_reservation_mode,'*') <> 'PARTIAL'
67: AND 1=2 THEN -- Force this section to be skipped
68: /* We need to check for Existing Reservations on the Line */
69: BEGIN

Line 83: RAISE FND_API.G_EXC_ERROR;

79: IF l_debug_level > 0 THEN
80: OE_DEBUG_PUB.Add('Reservations exists on the line',3);
81: END IF;
82:
83: RAISE FND_API.G_EXC_ERROR;
84: EXCEPTION
85: WHEN FND_API.G_EXC_ERROR THEN
86: IF l_debug_level > 0 THEN
87: OE_DEBUG_PUB.Add('In Expected Error for Check Reservation',3);

Line 85: WHEN FND_API.G_EXC_ERROR THEN

81: END IF;
82:
83: RAISE FND_API.G_EXC_ERROR;
84: EXCEPTION
85: WHEN FND_API.G_EXC_ERROR THEN
86: IF l_debug_level > 0 THEN
87: OE_DEBUG_PUB.Add('In Expected Error for Check Reservation',3);
88: END IF;
89: l_return_status := FND_API.G_RET_STS_ERROR;

Line 89: l_return_status := FND_API.G_RET_STS_ERROR;

85: WHEN FND_API.G_EXC_ERROR THEN
86: IF l_debug_level > 0 THEN
87: OE_DEBUG_PUB.Add('In Expected Error for Check Reservation',3);
88: END IF;
89: l_return_status := FND_API.G_RET_STS_ERROR;
90:
91: WHEN NO_DATA_FOUND THEN
92: NULL;
93: WHEN TOO_MANY_ROWS THEN

Line 94: l_return_status := FND_API.G_RET_STS_ERROR;

90:
91: WHEN NO_DATA_FOUND THEN
92: NULL;
93: WHEN TOO_MANY_ROWS THEN
94: l_return_status := FND_API.G_RET_STS_ERROR;
95: END;
96: END IF;
97: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
98: BEGIN

Line 97: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN

93: WHEN TOO_MANY_ROWS THEN
94: l_return_status := FND_API.G_RET_STS_ERROR;
95: END;
96: END IF;
97: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
98: BEGIN
99: IF l_debug_level > 0 THEN
100: OE_DEBUG_PUB.Add('Before checking for Staged/Closed deliveries', 1);
101: END IF;

Line 114: RAISE FND_API.G_EXC_ERROR;

110: IF l_debug_level > 0 THEN
111: OE_DEBUG_PUB.Add('Staged/Closed deliveries exist for the line', 3);
112: END IF;
113:
114: RAISE FND_API.G_EXC_ERROR;
115:
116: EXCEPTION
117: WHEN FND_API.G_EXC_ERROR THEN
118: IF l_debug_level > 0 THEN

Line 117: WHEN FND_API.G_EXC_ERROR THEN

113:
114: RAISE FND_API.G_EXC_ERROR;
115:
116: EXCEPTION
117: WHEN FND_API.G_EXC_ERROR THEN
118: IF l_debug_level > 0 THEN
119: OE_DEBUG_PUB.Add('In Expected Error for Checking Staged/Closed deliveries', 3);
120: END IF;
121: l_return_status := FND_API.G_RET_STS_ERROR;

Line 121: l_return_status := FND_API.G_RET_STS_ERROR;

117: WHEN FND_API.G_EXC_ERROR THEN
118: IF l_debug_level > 0 THEN
119: OE_DEBUG_PUB.Add('In Expected Error for Checking Staged/Closed deliveries', 3);
120: END IF;
121: l_return_status := FND_API.G_RET_STS_ERROR;
122: WHEN NO_DATA_FOUND THEN
123: NULL;
124: WHEN TOO_MANY_ROWS THEN
125: l_return_status := FND_API.G_RET_STS_ERROR;

Line 125: l_return_status := FND_API.G_RET_STS_ERROR;

121: l_return_status := FND_API.G_RET_STS_ERROR;
122: WHEN NO_DATA_FOUND THEN
123: NULL;
124: WHEN TOO_MANY_ROWS THEN
125: l_return_status := FND_API.G_RET_STS_ERROR;
126: END;
127: END IF;
128: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
129:

Line 128: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN

124: WHEN TOO_MANY_ROWS THEN
125: l_return_status := FND_API.G_RET_STS_ERROR;
126: END;
127: END IF;
128: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
129:
130: -- WE NEED TO CHECK FOR THE reservation_time_fence Value.
131: -- If the Value of the parameter passed to the concurrent
132: -- program is "NO' then we reserve the lines irrespective

Line 149: RAISE FND_API.G_EXC_ERROR ;

145: IF l_debug_level > 0 THEN
146: OE_DEBUG_PUB.Add('The Schedule Date for Line falls
147: beyond reservation Time Fence',3);
148: END IF;
149: RAISE FND_API.G_EXC_ERROR ;
150:
151: END IF;
152: END IF;
153:

Line 179: RAISE FND_API.G_EXC_ERROR;

175: THEN
176: IF l_debug_level > 0 THEN
177: OE_DEBUG_PUB.Add('Order Type Does not Allow Scheduling',3);
178: END IF;
179: RAISE FND_API.G_EXC_ERROR;
180: END IF;
181: END IF;
182:
183: END IF; -- Check for Reservation Exists Clause

Line 191: WHEN FND_API.G_EXC_ERROR THEN

187: OE_DEBUG_PUB.Add('..Exiting GME_RESERVE_CONC.Need_Reservation' ||
188: l_return_status ,1);
189: END IF;
190: EXCEPTION
191: WHEN FND_API.G_EXC_ERROR THEN
192: IF l_debug_level > 0 THEN
193: OE_DEBUG_PUB.Add('In Expected Error...in Proc Reserve_Eligible',3);
194: END IF;
195: x_return_status := FND_API.G_RET_STS_ERROR;

Line 195: x_return_status := FND_API.G_RET_STS_ERROR;

191: WHEN FND_API.G_EXC_ERROR THEN
192: IF l_debug_level > 0 THEN
193: OE_DEBUG_PUB.Add('In Expected Error...in Proc Reserve_Eligible',3);
194: END IF;
195: x_return_status := FND_API.G_RET_STS_ERROR;
196:
197: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
198: IF l_debug_level > 0 THEN
199: OE_DEBUG_PUB.Add('In UnExpected Error...in Proc Reserve_Eligible',3);

Line 197: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

193: OE_DEBUG_PUB.Add('In Expected Error...in Proc Reserve_Eligible',3);
194: END IF;
195: x_return_status := FND_API.G_RET_STS_ERROR;
196:
197: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
198: IF l_debug_level > 0 THEN
199: OE_DEBUG_PUB.Add('In UnExpected Error...in Proc Reserve_Eligible',3);
200: END IF;
201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

197: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
198: IF l_debug_level > 0 THEN
199: OE_DEBUG_PUB.Add('In UnExpected Error...in Proc Reserve_Eligible',3);
200: END IF;
201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
202:
203: WHEN OTHERS THEN
204:
205: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 205: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
202:
203: WHEN OTHERS THEN
204:
205: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
206:
207: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
208: THEN
209: OE_MSG_PUB.Add_Exc_Msg

Line 227: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;

223: Procedure Create_Reservation
224: (p_line_rec IN OE_ORDER_PUB.line_rec_type,
225: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
226: IS
227: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
228: l_reservation_rec Inv_Reservation_Global.Mtl_Reservation_Rec_Type;
229: l_msg_count NUMBER;
230: l_dummy_sn Inv_Reservation_Global.Serial_Number_Tbl_Type;
231: l_msg_data VARCHAR2(1000);

Line 272: , p_init_msg_lst => FND_API.G_TRUE

268: END IF;
269:
270: INV_RESERVATION_PUB.Create_Reservation
271: ( p_api_version_number => 1.0
272: , p_init_msg_lst => FND_API.G_TRUE
273: , x_return_status => l_return_status
274: , x_msg_count => l_msg_count
275: , x_msg_data => l_msg_data
276: , p_rsv_rec => l_reservation_rec

Line 279: , p_partial_reservation_flag => FND_API.G_FALSE

275: , x_msg_data => l_msg_data
276: , p_rsv_rec => l_reservation_rec
277: , p_serial_number => l_dummy_sn
278: , x_serial_number => l_dummy_sn
279: , p_partial_reservation_flag => FND_API.G_FALSE
280: , p_force_reservation_flag => FND_API.G_FALSE
281: , p_validation_flag => FND_API.G_TRUE
282: , x_quantity_reserved => l_quantity_reserved
283: , x_secondary_quantity_reserved => l_quantity2_reserved

Line 280: , p_force_reservation_flag => FND_API.G_FALSE

276: , p_rsv_rec => l_reservation_rec
277: , p_serial_number => l_dummy_sn
278: , x_serial_number => l_dummy_sn
279: , p_partial_reservation_flag => FND_API.G_FALSE
280: , p_force_reservation_flag => FND_API.G_FALSE
281: , p_validation_flag => FND_API.G_TRUE
282: , x_quantity_reserved => l_quantity_reserved
283: , x_secondary_quantity_reserved => l_quantity2_reserved
284: , x_reservation_id => l_rsv_id

Line 281: , p_validation_flag => FND_API.G_TRUE

277: , p_serial_number => l_dummy_sn
278: , x_serial_number => l_dummy_sn
279: , p_partial_reservation_flag => FND_API.G_FALSE
280: , p_force_reservation_flag => FND_API.G_FALSE
281: , p_validation_flag => FND_API.G_TRUE
282: , x_quantity_reserved => l_quantity_reserved
283: , x_secondary_quantity_reserved => l_quantity2_reserved
284: , x_reservation_id => l_rsv_id
285: );

Line 292: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

288: l_return_status,1);
289: OE_DEBUG_PUB.Add(l_msg_data,1);
290: END IF;
291:
292: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
293: IF l_debug_level > 0 THEN
294: OE_DEBUG_PUB.Add('Raising Unexpected error',1);
295: END IF;
296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

292: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
293: IF l_debug_level > 0 THEN
294: OE_DEBUG_PUB.Add('Raising Unexpected error',1);
295: END IF;
296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
297:
298: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
299: IF l_debug_level > 0 THEN
300: OE_DEBUG_PUB.Add('Raising Expected error',1);

Line 298: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN

294: OE_DEBUG_PUB.Add('Raising Unexpected error',1);
295: END IF;
296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
297:
298: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
299: IF l_debug_level > 0 THEN
300: OE_DEBUG_PUB.Add('Raising Expected error',1);
301: END IF;
302: IF l_msg_data is not null THEN

Line 310: RAISE FND_API.G_EXC_ERROR;

306: IF l_debug_level > 0 THEN
307: OE_DEBUG_PUB.Add(l_msg_data,1);
308: END IF;
309: END IF;
310: RAISE FND_API.G_EXC_ERROR;
311:
312: END IF;
313: IF l_debug_level > 0 THEN
314: OE_DEBUG_PUB.Add('..Exiting GME_RESERVE_CONC.Create_reservation' ||

Line 317: x_return_status := FND_API.G_RET_STS_SUCCESS;

313: IF l_debug_level > 0 THEN
314: OE_DEBUG_PUB.Add('..Exiting GME_RESERVE_CONC.Create_reservation' ||
315: l_return_status ,1);
316: END IF;
317: x_return_status := FND_API.G_RET_STS_SUCCESS;
318:
319: EXCEPTION
320: WHEN FND_API.G_EXC_ERROR THEN
321: IF l_debug_level > 0 THEN

Line 320: WHEN FND_API.G_EXC_ERROR THEN

316: END IF;
317: x_return_status := FND_API.G_RET_STS_SUCCESS;
318:
319: EXCEPTION
320: WHEN FND_API.G_EXC_ERROR THEN
321: IF l_debug_level > 0 THEN
322: OE_DEBUG_PUB.Add('In Expected Error...in Proc Create_Reservation',1);
323: END IF;
324: x_return_status := FND_API.G_RET_STS_ERROR;

Line 324: x_return_status := FND_API.G_RET_STS_ERROR;

320: WHEN FND_API.G_EXC_ERROR THEN
321: IF l_debug_level > 0 THEN
322: OE_DEBUG_PUB.Add('In Expected Error...in Proc Create_Reservation',1);
323: END IF;
324: x_return_status := FND_API.G_RET_STS_ERROR;
325:
326: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
327: IF l_debug_level > 0 THEN
328: OE_DEBUG_PUB.Add('In Unexpected Error...in Proc Create_Reservation');

Line 326: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

322: OE_DEBUG_PUB.Add('In Expected Error...in Proc Create_Reservation',1);
323: END IF;
324: x_return_status := FND_API.G_RET_STS_ERROR;
325:
326: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
327: IF l_debug_level > 0 THEN
328: OE_DEBUG_PUB.Add('In Unexpected Error...in Proc Create_Reservation');
329: END IF;
330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

326: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
327: IF l_debug_level > 0 THEN
328: OE_DEBUG_PUB.Add('In Unexpected Error...in Proc Create_Reservation');
329: END IF;
330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
331:
332: WHEN OTHERS THEN
333: IF l_debug_level > 0 THEN
334: OE_DEBUG_PUB.Add('In others error...in Proc Create_Reservation');

Line 336: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

332: WHEN OTHERS THEN
333: IF l_debug_level > 0 THEN
334: OE_DEBUG_PUB.Add('In others error...in Proc Create_Reservation');
335: END IF;
336: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
337:
338: END;
339:
340:

Line 375: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;

371:
372: l_api_name CONSTANT VARCHAR2 (30) := 'Make_to_Order';
373: l_stmt VARCHAR2(4000) :=NULL;
374: l_line_rec OE_ORDER_PUB.line_rec_type;
375: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
376: l_request_date_low DATE;
377: l_request_date_high DATE;
378: l_schedule_ship_date_low DATE;
379: l_schedule_ship_date_high DATE;

Line 679: l_return_status := FND_API.G_RET_STS_SUCCESS;

675: END IF;
676: DBMS_SQL.COLUMN_VALUE(l_cursor_id, 1, l_line_id);
677:
678: FND_FILE.Put_Line(FND_FILE.LOG, '***** Processing Line id '|| l_line_id||' *****');
679: l_return_status := FND_API.G_RET_STS_SUCCESS;
680: OE_LINE_UTIL.Lock_Row
681: (p_line_id => l_Line_id,
682: p_x_line_rec => l_line_rec,
683: x_return_status => l_return_status);

Line 685: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

681: (p_line_id => l_Line_id,
682: p_x_line_rec => l_line_rec,
683: x_return_status => l_return_status);
684:
685: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
686: IF l_debug_level > 0 THEN
687: OE_DEBUG_PUB.Add('Lock row returned with error',1);
688: END IF;
689: END IF;

Line 708: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

704: p_line_rec => l_line_rec
705: ,p_use_reservation_time_fence => 'N'
706: ,x_return_status => l_return_status);
707:
708: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
709: IF g_debug <= gme_debug.g_log_procedure THEN
710: gme_debug.put_line('This line is not eligible for creating reservations so cannot proceed with MTO');
711: END IF;
712: GOTO NEXT_RECORD;

Line 723: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

719: (p_line_id => l_Line_id,
720: p_x_line_rec => l_line_rec,
721: x_return_status => l_return_status);
722:
723: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
724: IF g_debug <= gme_debug.g_log_procedure THEN
725: gme_debug.put_line('Failure to Lock Row for line_id '||l_Line_id);
726: END IF;
727: GOTO NEXT_RECORD;

Line 739: -- ,p_init_msg_lst => FND_API.G_TRUE

735: END IF;
736:
737: GME_MAKE_TO_ORDER_PVT.create_batch_for_order_line(
738: p_api_version => 1.0
739: -- ,p_init_msg_lst => FND_API.G_TRUE
740: -- ,p_commit => FND_API.G_TRUE
741: ,p_so_line_id => l_line_id);
742:
743: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN -- change create_batch above to return return_status

Line 740: -- ,p_commit => FND_API.G_TRUE

736:
737: GME_MAKE_TO_ORDER_PVT.create_batch_for_order_line(
738: p_api_version => 1.0
739: -- ,p_init_msg_lst => FND_API.G_TRUE
740: -- ,p_commit => FND_API.G_TRUE
741: ,p_so_line_id => l_line_id);
742:
743: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN -- change create_batch above to return return_status
744: IF g_debug <= gme_debug.g_log_procedure THEN

Line 743: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN -- change create_batch above to return return_status

739: -- ,p_init_msg_lst => FND_API.G_TRUE
740: -- ,p_commit => FND_API.G_TRUE
741: ,p_so_line_id => l_line_id);
742:
743: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN -- change create_batch above to return return_status
744: IF g_debug <= gme_debug.g_log_procedure THEN
745: gme_debug.put_line('Failure during create batch for order line : line is '||l_line_rec.line_id);
746: GOTO NEXT_RECORD;
747: END IF;

Line 823: when FND_API.G_EXC_ERROR then

819: OE_STANDARD_WF.Clear_Msg_Context;
820:
821:
822: EXCEPTION
823: when FND_API.G_EXC_ERROR then
824: IF l_debug_level <> 0 THEN
825: OE_DEBUG_PUB.add('set_parameter_work_order_wf: ' || 'CTO_WORKFLOW.set_parameter_work_order_wf raised exc error. ' ||
826: to_char(l_stmt_num) );
827: END IF;

Line 835: when FND_API.G_EXC_UNEXPECTED_ERROR then

831: rollback to savepoint before_process;
832: return;
833:
834:
835: when FND_API.G_EXC_UNEXPECTED_ERROR then
836: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_WORK_ORDER_ERROR');
837: IF l_debug_level <> 0 THEN
838: OE_DEBUG_PUB.add('set_parameter_work_order_wf: ' || 'CTO_WORKFLOW.set_parameter_work_order_wf raised unexc error. ' ||
839: to_char(l_stmt_num) );