[Home] [Help]
15: ) IS
16: --
17: l_line_ids_rec Line_Id_Rec_Type;
18: --
19: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
20: --
21:
22: Begin
23:
21:
22: Begin
23:
24: IF l_debug_level > 0 THEN
25: oe_debug_pub.add( 'ENTERING OE_Internal_Requisition_Pvt.Get_Eligible_ISO_Shipment', 1 ) ;
26: oe_debug_pub.add( ' Requisition Line id :'||P_internal_req_line_id , 5 ) ;
27: oe_debug_pub.add( ' Requisition Header id :'||P_internal_req_header_id , 5) ;
28: END IF;
29:
22: Begin
23:
24: IF l_debug_level > 0 THEN
25: oe_debug_pub.add( 'ENTERING OE_Internal_Requisition_Pvt.Get_Eligible_ISO_Shipment', 1 ) ;
26: oe_debug_pub.add( ' Requisition Line id :'||P_internal_req_line_id , 5 ) ;
27: oe_debug_pub.add( ' Requisition Header id :'||P_internal_req_header_id , 5) ;
28: END IF;
29:
30: X_return_status := FND_API.G_RET_STS_SUCCESS;
23:
24: IF l_debug_level > 0 THEN
25: oe_debug_pub.add( 'ENTERING OE_Internal_Requisition_Pvt.Get_Eligible_ISO_Shipment', 1 ) ;
26: oe_debug_pub.add( ' Requisition Line id :'||P_internal_req_line_id , 5 ) ;
27: oe_debug_pub.add( ' Requisition Header id :'||P_internal_req_header_id , 5) ;
28: END IF;
29:
30: X_return_status := FND_API.G_RET_STS_SUCCESS;
31:
69:
70: X_line_ids_rec := l_line_ids_rec;
71:
72: IF l_debug_level > 0 THEN
73: oe_debug_pub.add( ' EXITING OE_Internal_Requisition_Pvt.Get_Eligible_ISO_Shipment', 1 ) ;
74: END IF;
75:
76: Exception
77:
76: Exception
77:
78: WHEN NO_DATA_FOUND THEN
79: IF l_debug_level > 0 THEN
80: oe_debug_pub.add( ' EXITING Get_Eligible_ISO_Shipment With No Data Found Error', 1 ) ;
81: END IF;
82: FND_Message.Set_Name('ONT', 'OE_IRCMS_NOT_ELIGIBLE');
83: -- There is no sales order line shipment eligible for update/cancellation.
84: OE_MSG_PUB.Add;
85: X_return_status := FND_API.G_RET_STS_ERROR;
86:
87: WHEN TOO_MANY_ROWS THEN
88: IF l_debug_level > 0 THEN
89: oe_debug_pub.add( ' EXITING Get_Eligible_ISO_Shipment with Too Many Rows error', 1 ) ;
90: END IF;
91: FND_Message.Set_Name('ONT', 'OE_IRCMS_TOO_MANY_ROWS');
92: -- There are multiple sales order line shipments eligible for update.
93: -- This is not allowed.
95: X_return_status := FND_API.G_RET_STS_ERROR;
96:
97: WHEN OTHERS THEN
98: IF l_debug_level > 0 THEN
99: oe_debug_pub.add( ' EXITING Get_Eligible_ISO_Shipment with others error'||sqlerrm,1);
100: END IF;
101: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
102: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Get_Eligible_ISO_Shipment');
103: -- Pkg Body global variable = 'OE_internal_Requisition_Pv'
119: l_entity_update_allowed BOOLEAN := FALSE;
120: l_action NUMBER;
121: l_result NUMBER := OE_PC_GLOBALS.NO;
122: --
123: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
124: --
125: Begin
126: IF l_debug_level > 0 THEN
127: oe_debug_pub.add( 'ENTERING OE_Internal_Requisition_Pvt.Update_Allowed', 1) ;
123: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
124: --
125: Begin
126: IF l_debug_level > 0 THEN
127: oe_debug_pub.add( 'ENTERING OE_Internal_Requisition_Pvt.Update_Allowed', 1) ;
128: END IF;
129:
130: OE_LINE_UTIL.QUERY_ROW( p_line_id => P_line_id
131: , x_line_rec => l_line_rec );
130: OE_LINE_UTIL.QUERY_ROW( p_line_id => P_line_id
131: , x_line_rec => l_line_rec );
132:
133: IF l_debug_level > 0 THEN
134: oe_debug_pub.add( ' Converting to Rowtype record', 5);
135: END IF;
136:
137: OE_LINE_Util_Ext.API_Rec_To_Rowtype_Rec( p_LINE_rec => l_line_rec
138: , x_rowtype_rec => l_line_rowtype_rec);
141: OE_LINE_SECURITY.g_record := l_line_rowtype_rec;
142:
143: IF P_Attribute IS NULL OR P_Attribute in ('REQUEST_DATE','ALL') THEN
144: IF l_debug_level > 0 THEN
145: oe_debug_pub.add( ' Checking if update of Request Date is allowed', 5);
146: END IF;
147: l_result := OE_Line_Security.Request_Date -- Is_OP_Constrained
148: ( p_operation => OE_PC_GLOBALS.UPDATE_OP
149: -- , p_column_name => 'REQUEST_DATE'
151: , x_on_operation_action => l_action );
152:
153: IF l_result = OE_PC_GLOBALS.NO THEN
154: IF l_debug_level > 0 THEN
155: oe_debug_pub.add( ' Update of Request Date is allowed. Action'||l_action,1);
156: END IF;
157: l_attr_update_allowed := TRUE;
158: ELSE
159: IF l_debug_level > 0 THEN
156: END IF;
157: l_attr_update_allowed := TRUE;
158: ELSE
159: IF l_debug_level > 0 THEN
160: oe_debug_pub.add( ' Update of Request Date is not allowed.',1);
161: oe_debug_pub.add( ' Action / Result : '||l_action||' / '||l_result,1);
162: END IF;
163: l_attr_Update_Allowed := FALSE;
164: END IF; -- l_result
157: l_attr_update_allowed := TRUE;
158: ELSE
159: IF l_debug_level > 0 THEN
160: oe_debug_pub.add( ' Update of Request Date is not allowed.',1);
161: oe_debug_pub.add( ' Action / Result : '||l_action||' / '||l_result,1);
162: END IF;
163: l_attr_Update_Allowed := FALSE;
164: END IF; -- l_result
165: END IF; -- P_Attribute
167:
168: IF (NOT l_attr_update_allowed AND P_Attribute IS NULL)
169: OR P_Attribute in ('ORDERED_QUANTITY', 'ALL') THEN
170: IF l_debug_level > 0 THEN
171: oe_debug_pub.add( ' Checking if update of Ordered Quantity is allowed',5);
172: END IF;
173:
174: l_result := OE_Line_Security.Ordered_Quantity --Is_OP_Constrained
175: ( p_operation => OE_PC_GLOBALS.UPDATE_OP
178: , x_on_operation_action => l_action );
179:
180: IF l_result = OE_PC_GLOBALS.NO THEN
181: IF l_debug_level > 0 THEN
182: oe_debug_pub.add( 'Update of Ordered Quantity is allowed. Action'||l_action,1);
183: END IF;
184: l_attr_Update_Allowed := TRUE;
185: ELSE
186: IF l_debug_level > 0 THEN
183: END IF;
184: l_attr_Update_Allowed := TRUE;
185: ELSE
186: IF l_debug_level > 0 THEN
187: oe_debug_pub.add( ' Update of Ordered Quantity is not allowed.',1);
188: oe_debug_pub.add( ' Action / Result : '||l_action||' / '||l_result,1);
189: END IF;
190: l_attr_Update_Allowed := FALSE;
191: END IF; -- l_result
184: l_attr_Update_Allowed := TRUE;
185: ELSE
186: IF l_debug_level > 0 THEN
187: oe_debug_pub.add( ' Update of Ordered Quantity is not allowed.',1);
188: oe_debug_pub.add( ' Action / Result : '||l_action||' / '||l_result,1);
189: END IF;
190: l_attr_Update_Allowed := FALSE;
191: END IF; -- l_result
192: END IF; -- P_Attribute
191: END IF; -- l_result
192: END IF; -- P_Attribute
193:
194: IF l_debug_level > 0 THEN
195: oe_debug_pub.add( ' Checking if Update operation is allowed for a record',5);
196: END IF;
197: IF ( NOT l_entity_update_allowed ) AND ( l_attr_update_allowed ) THEN
198:
199: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
204: , x_return_status => l_return_status );
205:
206: IF l_result = OE_PC_GLOBALS.NO THEN
207: IF l_debug_level > 0 THEN
208: oe_debug_pub.add( 'Update is allowed for Entity. Action'||l_action,1);
209: END IF;
210: l_entity_Update_Allowed := TRUE;
211: ELSE
212: IF l_debug_level > 0 THEN
209: END IF;
210: l_entity_Update_Allowed := TRUE;
211: ELSE
212: IF l_debug_level > 0 THEN
213: oe_debug_pub.add( ' Entity Update is not allowed.',1);
214: oe_debug_pub.add( ' Action / Result : '||l_action||' / '||l_result,1);
215: END IF;
216: l_entity_Update_Allowed := FALSE;
217: END IF; -- l_result
210: l_entity_Update_Allowed := TRUE;
211: ELSE
212: IF l_debug_level > 0 THEN
213: oe_debug_pub.add( ' Entity Update is not allowed.',1);
214: oe_debug_pub.add( ' Action / Result : '||l_action||' / '||l_result,1);
215: END IF;
216: l_entity_Update_Allowed := FALSE;
217: END IF; -- l_result
218: END IF; -- l_entity_update_allowed
218: END IF; -- l_entity_update_allowed
219:
220: IF l_entity_update_allowed AND l_attr_update_allowed THEN
221: IF l_debug_level > 0 THEN
222: oe_debug_pub.add( ' Order Line is allowed to UPDATE.',1);
223: END IF;
224: RETURN TRUE;
225: ELSE
226: IF l_debug_level > 0 THEN
223: END IF;
224: RETURN TRUE;
225: ELSE
226: IF l_debug_level > 0 THEN
227: oe_debug_pub.add( ' Order Line is NOT allowed to UPDATE.',1);
228: END IF;
229: -- Resetting the Boolean for the next iteration of the loop
230: l_entity_update_allowed := FALSE;
231: l_attr_update_allowed := FALSE;
232: RETURN FALSE;
233: END IF;
234:
235: IF l_debug_level > 0 THEN
236: oe_debug_pub.add( 'EXITING OE_Internal_Requisition_Pvt.Update_Allowed', 1 ) ;
237: END IF;
238: Exception
239: WHEN OTHERS THEN
240: oe_debug_pub.add( ' When Others of OE_Internal_Requisition_Pvt.Update_Allowed '||sqlerrm,1);
236: oe_debug_pub.add( 'EXITING OE_Internal_Requisition_Pvt.Update_Allowed', 1 ) ;
237: END IF;
238: Exception
239: WHEN OTHERS THEN
240: oe_debug_pub.add( ' When Others of OE_Internal_Requisition_Pvt.Update_Allowed '||sqlerrm,1);
241: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
242: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Update_Allowed');
243: -- Pkg Body global variable = 'OE_internal_Requisition_Pv'
244: END IF;
260: l_grp NUMBER;
261: l_on_operation_action NUMBER;
262: l_column_name VARCHAR2(120);
263: --
264: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
265: --
266: Begin
267: IF l_debug_level > 0 THEN
268: oe_debug_pub.add( 'ENTERING OE_Internal_Requisition_Pvt.Cancel_Allowed', 1) ;
264: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
265: --
266: Begin
267: IF l_debug_level > 0 THEN
268: oe_debug_pub.add( 'ENTERING OE_Internal_Requisition_Pvt.Cancel_Allowed', 1) ;
269: END IF;
270:
271: OE_LINE_UTIL.QUERY_ROW( p_line_id => P_line_id
272: , x_line_rec => l_line_rec );
271: OE_LINE_UTIL.QUERY_ROW( p_line_id => P_line_id
272: , x_line_rec => l_line_rec );
273:
274: IF l_debug_level > 0 THEN
275: oe_debug_pub.add( ' Calling OE_Line_SEcurity.Entity',5);
276: END IF;
277:
278: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
279: l_line_rec.ordered_quantity := 0;
322: */
323:
324: IF l_result = OE_PC_GLOBALS.NO THEN
325: IF l_debug_level > 0 THEN
326: oe_debug_pub.add( 'Cancel is allowed for this shipment.',1);
327: END IF;
328: RETURN TRUE;
329: ELSE
330: IF l_debug_level > 0 THEN
327: END IF;
328: RETURN TRUE;
329: ELSE
330: IF l_debug_level > 0 THEN
331: oe_debug_pub.add( 'Cancel is Not allowed for this shipment',1);
332: END IF;
333: RETURN FALSE;
334: END IF;
335: ELSE
333: RETURN FALSE;
334: END IF;
335: ELSE
336: IF l_debug_level > 0 THEN
337: oe_debug_pub.add( 'Cancel is not allowed for this shipment.',1);
338: END IF;
339: RETURN FALSE;
340: END IF;
341: IF l_debug_level > 0 THEN
338: END IF;
339: RETURN FALSE;
340: END IF;
341: IF l_debug_level > 0 THEN
342: oe_debug_pub.add( 'EXITING OE_Internal_Requisition_Pvt.Cancel_Allowed', 1 ) ;
343: END IF;
344:
345: Exception
346: WHEN OTHERS THEN
343: END IF;
344:
345: Exception
346: WHEN OTHERS THEN
347: oe_debug_pub.add( ' When Others of OE_Internal_Requisition_Pvt.Cancel_Allowed '||sqlerrm,1);
348: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
349: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Cancel_Allowed');
350: -- Pkg Body global variable = 'OE_internal_Requisition_Pvt'
351: END IF;
362: l_header_rowtype_rec OE_AK_ORDER_HEADERS_V%ROWTYPE;
363: l_action NUMBER;
364: l_result NUMBER := OE_PC_GLOBALS.NO;
365: --
366: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
367: --
368: Begin
369: IF l_debug_level > 0 THEN
370: oe_debug_pub.add( 'ENTERING OE_Internal_Requisition_Pvt.Cancel_Header_Allowed', 1 ) ;
366: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
367: --
368: Begin
369: IF l_debug_level > 0 THEN
370: oe_debug_pub.add( 'ENTERING OE_Internal_Requisition_Pvt.Cancel_Header_Allowed', 1 ) ;
371: END IF;
372:
373: OE_HEADER_UTIL.QUERY_ROW( p_header_id => P_header_id
374: , x_header_rec => l_header_rec );
373: OE_HEADER_UTIL.QUERY_ROW( p_header_id => P_header_id
374: , x_header_rec => l_header_rec );
375:
376: IF l_debug_level > 0 THEN
377: oe_debug_pub.add( ' Converting to Rowtype record',5);
378: END IF;
379:
380: OE_HEADER_Util.API_Rec_To_Rowtype_Rec( p_header_rec => l_header_rec
381: , x_rowtype_rec => l_header_rowtype_rec);
389: , x_on_operation_action => l_action );
390:
391: IF l_result = OE_PC_GLOBALS.NO THEN
392: IF l_debug_level > 0 THEN
393: oe_debug_pub.add( 'Cancel is allowed for this Order. Action'||l_action,1);
394: END IF;
395: RETURN TRUE;
396: ELSE
397: IF l_debug_level > 0 THEN
394: END IF;
395: RETURN TRUE;
396: ELSE
397: IF l_debug_level > 0 THEN
398: oe_debug_pub.add( 'Cancel is not allowed for this Order. Action'||l_action,1);
399: END IF;
400: RETURN FALSE;
401: END IF;
402: IF l_debug_level > 0 THEN
399: END IF;
400: RETURN FALSE;
401: END IF;
402: IF l_debug_level > 0 THEN
403: oe_debug_pub.add( 'EXITING OE_Internal_Requisition_Pvt.Cancel_Header_Allowed', 1 ) ;
404: END IF;
405:
406: Exception
407: WHEN OTHERS THEN
404: END IF;
405:
406: Exception
407: WHEN OTHERS THEN
408: oe_debug_pub.add( ' When Others of OE_Internal_Requisition_Pvt.Cancel_Header_Allowed '||sqlerrm,1);
409: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
410: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Cancel_Header_Allowed');
411: -- Pkg Body global variable = 'OE_internal_Requisition_Pvt'
412: END IF;
429: l_header_id NUMBER;
430: l_msg_count NUMBER;
431: l_msg_data VARCHAR2(2000);
432: --
433: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
434: --
435: BEGIN
436:
437: IF l_debug_level > 0 THEN
434: --
435: BEGIN
436:
437: IF l_debug_level > 0 THEN
438: oe_debug_pub.add( 'ENTERING OE_Internal_Requisition_Pvt.Process_Line_Entity', 1 ) ;
439: oe_debug_pub.add( ' Count of Lines :'||P_Line_Tbl.COUNT, 5 ) ;
440: oe_debug_pub.add( ' Mode :'||P_Mode, 5 ) ;
441: END IF;
442:
435: BEGIN
436:
437: IF l_debug_level > 0 THEN
438: oe_debug_pub.add( 'ENTERING OE_Internal_Requisition_Pvt.Process_Line_Entity', 1 ) ;
439: oe_debug_pub.add( ' Count of Lines :'||P_Line_Tbl.COUNT, 5 ) ;
440: oe_debug_pub.add( ' Mode :'||P_Mode, 5 ) ;
441: END IF;
442:
443: l_x_line_tbl := p_line_tbl;
436:
437: IF l_debug_level > 0 THEN
438: oe_debug_pub.add( 'ENTERING OE_Internal_Requisition_Pvt.Process_Line_Entity', 1 ) ;
439: oe_debug_pub.add( ' Count of Lines :'||P_Line_Tbl.COUNT, 5 ) ;
440: oe_debug_pub.add( ' Mode :'||P_Mode, 5 ) ;
441: END IF;
442:
443: l_x_line_tbl := p_line_tbl;
444: l_header_id := l_x_line_tbl(1).header_id;
461: , p_x_old_line_tbl => l_x_old_line_tbl
462: , x_return_status => l_return_status);
463:
464: IF l_debug_level > 0 THEN
465: oe_debug_pub.add( ' After OE_Order_Pvt.Lines: '||l_return_status);
466: END IF;
467:
468: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
481: , x_return_status => l_return_status );
482:
483: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
484: IF l_debug_level > 0 THEN
485: oe_debug_pub.add( ' Process_requests_and_notify UNEXP_ERROR',1 ) ;
486: END IF;
487: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
488: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
489: IF l_debug_level > 0 THEN
486: END IF;
487: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
488: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
489: IF l_debug_level > 0 THEN
490: oe_debug_pub.add( 'Process_requests_and_notify RET_STS_ERROR',1 ) ;
491: END IF;
492: RAISE FND_API.G_EXC_ERROR;
493: END IF;
494: IF P_Cancel THEN
498:
499: x_return_status := l_return_status;
500:
501: IF l_debug_level > 0 THEN
502: oe_debug_pub.add( 'EXITING OE_Internal_Requisition_Pvt.Process_Line_Entity', 1 ) ;
503: END IF;
504:
505: EXCEPTION
506: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
521: ( G_PKG_NAME
522: , 'Process_Line_Entity' );
523: END IF;
524: IF l_debug_level > 0 THEN
525: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 100 ) , 1 ) ;
526: END IF;
527: END Process_Line_Entity;
528:
529:
548: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
549: --
550: -- Modified for 8583903
551: l_file_val VARCHAR2(2000);
552: l_debug_level NUMBER := oe_debug_pub.g_debug_level;
553: --
554:
555: Begin
556:
556:
557: -- Added IF condition for 8583903
558: IF (g_fnd_debug = 'Y') THEN
559:
560: oe_debug_pub.debug_on;
561: oe_debug_pub.initialize;
562: l_file_val := OE_DEBUG_PUB.Set_Debug_Mode('FILE'); -- Dir/File
563: oe_Debug_pub.setdebuglevel(5);
564:
557: -- Added IF condition for 8583903
558: IF (g_fnd_debug = 'Y') THEN
559:
560: oe_debug_pub.debug_on;
561: oe_debug_pub.initialize;
562: l_file_val := OE_DEBUG_PUB.Set_Debug_Mode('FILE'); -- Dir/File
563: oe_Debug_pub.setdebuglevel(5);
564:
565: l_debug_level := oe_debug_pub.g_debug_level;
558: IF (g_fnd_debug = 'Y') THEN
559:
560: oe_debug_pub.debug_on;
561: oe_debug_pub.initialize;
562: l_file_val := OE_DEBUG_PUB.Set_Debug_Mode('FILE'); -- Dir/File
563: oe_Debug_pub.setdebuglevel(5);
564:
565: l_debug_level := oe_debug_pub.g_debug_level;
566:
559:
560: oe_debug_pub.debug_on;
561: oe_debug_pub.initialize;
562: l_file_val := OE_DEBUG_PUB.Set_Debug_Mode('FILE'); -- Dir/File
563: oe_Debug_pub.setdebuglevel(5);
564:
565: l_debug_level := oe_debug_pub.g_debug_level;
566:
567: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
561: oe_debug_pub.initialize;
562: l_file_val := OE_DEBUG_PUB.Set_Debug_Mode('FILE'); -- Dir/File
563: oe_Debug_pub.setdebuglevel(5);
564:
565: l_debug_level := oe_debug_pub.g_debug_level;
566:
567: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
568: FND_LOG.string( log_level => FND_LOG.LEVEL_STATEMENT
569: , module => 'po.plsql.'||G_PKG_Name||'.'||l_API_name
581:
582: SavePoint Apply_Hold_For_IReq;
583:
584: IF l_debug_level > 0 THEN
585: oe_debug_pub.add( 'ENTERING OE_Internal_Requisition_Pvt.Apply_Hold_for_IReq', 1 ) ;
586: oe_debug_pub.add( ' Requisition Line id :'||P_internal_req_line_id , 5 ) ;
587: oe_debug_pub.add( ' Requisition Header id :'||P_internal_req_header_id , 5) ;
588: END IF;
589:
582: SavePoint Apply_Hold_For_IReq;
583:
584: IF l_debug_level > 0 THEN
585: oe_debug_pub.add( 'ENTERING OE_Internal_Requisition_Pvt.Apply_Hold_for_IReq', 1 ) ;
586: oe_debug_pub.add( ' Requisition Line id :'||P_internal_req_line_id , 5 ) ;
587: oe_debug_pub.add( ' Requisition Header id :'||P_internal_req_header_id , 5) ;
588: END IF;
589:
590: -- OE_MSG_PUB.set_msg_context();
583:
584: IF l_debug_level > 0 THEN
585: oe_debug_pub.add( 'ENTERING OE_Internal_Requisition_Pvt.Apply_Hold_for_IReq', 1 ) ;
586: oe_debug_pub.add( ' Requisition Line id :'||P_internal_req_line_id , 5 ) ;
587: oe_debug_pub.add( ' Requisition Header id :'||P_internal_req_header_id , 5) ;
588: END IF;
589:
590: -- OE_MSG_PUB.set_msg_context();
591: -- No need to set the message context as the caller of this API is PO
594: l_return_status := FND_API.G_RET_STS_SUCCESS;
595:
596: IF P_internal_req_line_id is NULL THEN
597: IF l_debug_level > 0 THEN
598: oe_debug_pub.add( ' Invalid value passed for Requisition Line',1);
599: END IF;
600: FND_Message.Set_Name('ONT', 'OE_IRCMS_INVALID_REQ_LIN');
601: -- FND_Message.Set_Token('REQ_LIN_ID',' P_internal_req_line_id');
602: OE_MSG_PUB.Add;
603: RAISE FND_API.G_EXC_ERROR;
604: END IF;
605: IF P_internal_req_header_id is NULL THEN
606: IF l_debug_level > 0 THEN
607: oe_debug_pub.add( ' No value passed for Requisition Header',1);
608: END IF;
609: Begin
610: oe_debug_pub.add( ' Retrieving Requisition Header id',5);
611: select requisition_header_id
606: IF l_debug_level > 0 THEN
607: oe_debug_pub.add( ' No value passed for Requisition Header',1);
608: END IF;
609: Begin
610: oe_debug_pub.add( ' Retrieving Requisition Header id',5);
611: select requisition_header_id
612: into l_req_hdr_id
613: from po_requisition_lines_all
614: where requisition_line_id = P_internal_req_line_id;
613: from po_requisition_lines_all
614: where requisition_line_id = P_internal_req_line_id;
615:
616: IF l_req_hdr_id IS NULL THEN
617: oe_debug_pub.add( ' Invalid value for Requisition Header',5);
618: FND_Message.Set_Name('ONT', 'OE_IRCMS_INVALID_REQ_HDR');
619: -- FND_Message.Set_Token('REQ_HDR_ID',P_internal_req_header_id);
620: OE_MSG_PUB.Add;
621: RAISE FND_API.G_EXC_ERROR;
621: RAISE FND_API.G_EXC_ERROR;
622: END IF;
623: Exception
624: When No_Data_Found Then
625: oe_debug_pub.add( ' Invalid value passed for Requisition Line',5);
626: FND_Message.Set_Name('ONT', 'OE_IRCMS_INVALID_REQ_LIN');
627: -- FND_Message.Set_Token('REQ_LIN_ID',P_internal_req_line_id);
628: OE_MSG_PUB.Add;
629: RAISE FND_API.G_EXC_ERROR;
644: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
645: END IF;
646:
647: IF l_debug_level > 0 THEN
648: oe_debug_pub.add( ' Applying hold for line_id '||l_line_ids_rec.line_id,5);
649: END IF;
650:
651: l_hold_source_rec.hold_id := 17;
652: -- Ensure that the new seeded hold_id should be 17 in seed database
675: P_Count => x_msg_Count,
676: P_Data => x_msg_Data);
677:
678: IF l_debug_level > 0 THEN
679: oe_debug_pub.add( 'EXITING OE_Internal_Requisition_Pvt.Apply_Hold_for_IReq', 1 ) ;
680: END IF;
681:
682: -- Added for 8583903
683: oe_debug_pub.debug_off;
679: oe_debug_pub.add( 'EXITING OE_Internal_Requisition_Pvt.Apply_Hold_for_IReq', 1 ) ;
680: END IF;
681:
682: -- Added for 8583903
683: oe_debug_pub.debug_off;
684: oe_Debug_pub.setdebuglevel(0);
685:
686: Exception
687: WHEN FND_API.G_EXC_ERROR THEN
680: END IF;
681:
682: -- Added for 8583903
683: oe_debug_pub.debug_off;
684: oe_Debug_pub.setdebuglevel(0);
685:
686: Exception
687: WHEN FND_API.G_EXC_ERROR THEN
688: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
692: P_Data => x_msg_Data);
693: ROLLBACK TO Apply_Hold_For_IReq;
694:
695: -- Added for 8583903
696: oe_debug_pub.debug_off;
697: oe_Debug_pub.setdebuglevel(0);
698: OE_GLOBALS.G_SYS_HOLD := FALSE; -- bug 9494397
699:
700: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
693: ROLLBACK TO Apply_Hold_For_IReq;
694:
695: -- Added for 8583903
696: oe_debug_pub.debug_off;
697: oe_Debug_pub.setdebuglevel(0);
698: OE_GLOBALS.G_SYS_HOLD := FALSE; -- bug 9494397
699:
700: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
701: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
705: P_Data => x_msg_Data);
706: ROLLBACK TO Apply_Hold_For_IReq;
707:
708: -- Added for 8583903
709: oe_debug_pub.debug_off;
710: oe_Debug_pub.setdebuglevel(0);
711: OE_GLOBALS.G_SYS_HOLD := FALSE; -- bug 9494397
712:
713: WHEN OTHERS THEN
706: ROLLBACK TO Apply_Hold_For_IReq;
707:
708: -- Added for 8583903
709: oe_debug_pub.debug_off;
710: oe_Debug_pub.setdebuglevel(0);
711: OE_GLOBALS.G_SYS_HOLD := FALSE; -- bug 9494397
712:
713: WHEN OTHERS THEN
714: oe_debug_pub.add( ' When Others of OE_Internal_Requisition_Pvt.Apply_Hold_for_IReq '||sqlerrm,1);
710: oe_Debug_pub.setdebuglevel(0);
711: OE_GLOBALS.G_SYS_HOLD := FALSE; -- bug 9494397
712:
713: WHEN OTHERS THEN
714: oe_debug_pub.add( ' When Others of OE_Internal_Requisition_Pvt.Apply_Hold_for_IReq '||sqlerrm,1);
715: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
716: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
717: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
718: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Apply_Hold_for_IReq');
723: P_Data => x_msg_Data);
724: ROLLBACK TO Apply_Hold_For_IReq;
725:
726: -- Added for 8583903
727: oe_debug_pub.debug_off;
728: oe_Debug_pub.setdebuglevel(0);
729: OE_GLOBALS.G_SYS_HOLD := FALSE; -- bug 9494397
730:
731: End Apply_Hold_for_IReq;
724: ROLLBACK TO Apply_Hold_For_IReq;
725:
726: -- Added for 8583903
727: oe_debug_pub.debug_off;
728: oe_Debug_pub.setdebuglevel(0);
729: OE_GLOBALS.G_SYS_HOLD := FALSE; -- bug 9494397
730:
731: End Apply_Hold_for_IReq;
732:
753: l_hold_release_rec OE_Holds_Pvt.Hold_Release_REC_Type;
754: --
755: -- Added for 8583903
756: l_file_val VARCHAR2(2000);
757: l_debug_level NUMBER := oe_debug_pub.g_debug_level;
758: --
759:
760: Begin
761:
761:
762: -- Added IF condition for 8583903
763: IF (g_fnd_debug = 'Y') THEN
764:
765: oe_debug_pub.debug_on;
766: oe_debug_pub.initialize;
767: l_file_val := OE_DEBUG_PUB.Set_Debug_Mode('FILE'); --Dir/File
768: oe_Debug_pub.setdebuglevel(5);
769:
762: -- Added IF condition for 8583903
763: IF (g_fnd_debug = 'Y') THEN
764:
765: oe_debug_pub.debug_on;
766: oe_debug_pub.initialize;
767: l_file_val := OE_DEBUG_PUB.Set_Debug_Mode('FILE'); --Dir/File
768: oe_Debug_pub.setdebuglevel(5);
769:
770: l_debug_level := oe_debug_pub.g_debug_level;
763: IF (g_fnd_debug = 'Y') THEN
764:
765: oe_debug_pub.debug_on;
766: oe_debug_pub.initialize;
767: l_file_val := OE_DEBUG_PUB.Set_Debug_Mode('FILE'); --Dir/File
768: oe_Debug_pub.setdebuglevel(5);
769:
770: l_debug_level := oe_debug_pub.g_debug_level;
771:
764:
765: oe_debug_pub.debug_on;
766: oe_debug_pub.initialize;
767: l_file_val := OE_DEBUG_PUB.Set_Debug_Mode('FILE'); --Dir/File
768: oe_Debug_pub.setdebuglevel(5);
769:
770: l_debug_level := oe_debug_pub.g_debug_level;
771:
772: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
766: oe_debug_pub.initialize;
767: l_file_val := OE_DEBUG_PUB.Set_Debug_Mode('FILE'); --Dir/File
768: oe_Debug_pub.setdebuglevel(5);
769:
770: l_debug_level := oe_debug_pub.g_debug_level;
771:
772: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
773: FND_LOG.string( log_level => FND_LOG.LEVEL_STATEMENT
774: , module => 'po.plsql.'||G_PKG_Name||'.'||l_API_name
786:
787: SavePoint Release_Hold_For_IReq;
788:
789: IF l_debug_level > 0 THEN
790: oe_debug_pub.add( 'ENTERING OE_Internal_Requisition_Pvt.Release_Hold_for_IReq', 1 ) ;
791: oe_debug_pub.add( ' Requisition Line id :'||P_internal_req_line_id , 5 ) ;
792: oe_debug_pub.add( ' Requisition Header id :'||P_internal_req_header_id , 5) ;
793: END IF;
794:
787: SavePoint Release_Hold_For_IReq;
788:
789: IF l_debug_level > 0 THEN
790: oe_debug_pub.add( 'ENTERING OE_Internal_Requisition_Pvt.Release_Hold_for_IReq', 1 ) ;
791: oe_debug_pub.add( ' Requisition Line id :'||P_internal_req_line_id , 5 ) ;
792: oe_debug_pub.add( ' Requisition Header id :'||P_internal_req_header_id , 5) ;
793: END IF;
794:
795: -- OE_MSG_PUB.set_msg_context();
788:
789: IF l_debug_level > 0 THEN
790: oe_debug_pub.add( 'ENTERING OE_Internal_Requisition_Pvt.Release_Hold_for_IReq', 1 ) ;
791: oe_debug_pub.add( ' Requisition Line id :'||P_internal_req_line_id , 5 ) ;
792: oe_debug_pub.add( ' Requisition Header id :'||P_internal_req_header_id , 5) ;
793: END IF;
794:
795: -- OE_MSG_PUB.set_msg_context();
796: -- No need to set the message context as the caller of this API is PO
799: l_return_status := FND_API.G_RET_STS_SUCCESS;
800:
801: IF P_internal_req_line_id is NULL THEN
802: IF l_debug_level > 0 THEN
803: oe_debug_pub.add( ' Invalid value passed for Requisition Line',1);
804: END IF;
805: FND_Message.Set_Name('ONT', 'OE_IRCMS_INVALID_REQ_LIN');
806: -- FND_Message.Set_Token('REQ_LIN_ID',P_internal_req_line_id);
807: OE_MSG_PUB.Add;
808: RAISE FND_API.G_EXC_ERROR;
809: END IF;
810: IF P_internal_req_header_id is NULL THEN
811: IF l_debug_level > 0 THEN
812: oe_debug_pub.add( ' No value passed for Requisition Header',1);
813: END IF;
814: Begin
815: oe_debug_pub.add( ' Retrieving Requisition Header id',5);
816: select requisition_header_id
811: IF l_debug_level > 0 THEN
812: oe_debug_pub.add( ' No value passed for Requisition Header',1);
813: END IF;
814: Begin
815: oe_debug_pub.add( ' Retrieving Requisition Header id',5);
816: select requisition_header_id
817: into l_req_hdr_id
818: from po_requisition_lines_all
819: where requisition_line_id = P_internal_req_line_id;
818: from po_requisition_lines_all
819: where requisition_line_id = P_internal_req_line_id;
820:
821: IF l_req_hdr_id IS NULL THEN
822: oe_debug_pub.add( ' Invalid value for Requisition Header',5);
823: FND_Message.Set_Name('ONT', 'OE_IRCMS_INVALID_REQ_HDR');
824: -- FND_Message.Set_Token('REQ_HDR_ID',P_internal_req_header_id);
825: OE_MSG_PUB.Add;
826: RAISE FND_API.G_EXC_ERROR;
826: RAISE FND_API.G_EXC_ERROR;
827: END IF;
828: Exception
829: When No_Data_Found Then
830: oe_debug_pub.add( ' Invalid value passed for Requisition Line',5);
831: FND_Message.Set_Name('ONT', 'OE_IRCMS_INVALID_REQ_LIN');
832: -- FND_Message.Set_Token('REQ_LIN_ID',P_internal_req_line_id);
833: OE_MSG_PUB.Add;
834: RAISE FND_API.G_EXC_ERROR;
857: and h.source_document_id = l_req_hdr_id
858: and l.source_document_line_id = P_internal_req_line_id;
859:
860: IF l_debug_level > 0 THEN
861: oe_debug_pub.add( ' Releasing hold for line_id '||l_line_id,5);
862: END IF;
863:
864: l_hold_source_rec.hold_id := 17;
865: -- Ensure that the new seeded hold_id should be 17 in seed database
888:
889: Exception
890: When No_Data_Found Then
891: IF l_debug_level > 0 THEN
892: oe_debug_pub.add( 'EXITING OE_Internal_Requisition_Pvt.Release_Hold_for_Ireq with No Data Found Error');
893: END IF;
894: FND_Message.Set_Name('ONT', 'OE_IRCMS_NO_HOLD_RELEASED');
895: -- There is no sales order line shipment on hold.
896: OE_MSG_PUB.Add;
897: X_return_status := FND_API.G_RET_STS_ERROR;
898:
899: When Too_Many_Rows Then
900: IF l_debug_level > 0 THEN
901: oe_debug_pub.add('EXITING OE_Internal_Requisition_Pvt.Release_Hold_for_Ireq with Too Many rows error') ;
902: END IF;
903: FND_Message.Set_Name('ONT', 'OE_IRCMS_MANY_HOLD');
904: -- There are many sales order line shipments eligible for hold release. This is not allowed.
905: OE_MSG_PUB.Add;
916: P_Count => x_msg_Count,
917: P_Data => x_msg_Data);
918:
919: IF l_debug_level > 0 THEN
920: oe_debug_pub.add( 'EXITING OE_Internal_Requisition_Pvt.Release_Hold_for_IReq', 1 ) ;
921: END IF;
922:
923: -- Added for 8583903
924: oe_debug_pub.debug_off;
920: oe_debug_pub.add( 'EXITING OE_Internal_Requisition_Pvt.Release_Hold_for_IReq', 1 ) ;
921: END IF;
922:
923: -- Added for 8583903
924: oe_debug_pub.debug_off;
925: oe_Debug_pub.setdebuglevel(0);
926:
927:
928: Exception
921: END IF;
922:
923: -- Added for 8583903
924: oe_debug_pub.debug_off;
925: oe_Debug_pub.setdebuglevel(0);
926:
927:
928: Exception
929: WHEN FND_API.G_EXC_ERROR THEN
934: P_Data => x_msg_Data);
935: ROLLBACK TO Release_Hold_For_IReq;
936:
937: -- Added for 8583903
938: oe_debug_pub.debug_off;
939: oe_Debug_pub.setdebuglevel(0);
940: OE_GLOBALS.G_SYS_HOLD := FALSE; -- bug 9494397
941:
942:
935: ROLLBACK TO Release_Hold_For_IReq;
936:
937: -- Added for 8583903
938: oe_debug_pub.debug_off;
939: oe_Debug_pub.setdebuglevel(0);
940: OE_GLOBALS.G_SYS_HOLD := FALSE; -- bug 9494397
941:
942:
943: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
948: P_Data => x_msg_Data);
949: ROLLBACK TO Release_Hold_For_IReq;
950:
951: -- Added for 8583903
952: oe_debug_pub.debug_off;
953: oe_Debug_pub.setdebuglevel(0);
954: OE_GLOBALS.G_SYS_HOLD := FALSE; -- bug 9494397
955:
956: WHEN OTHERS THEN
949: ROLLBACK TO Release_Hold_For_IReq;
950:
951: -- Added for 8583903
952: oe_debug_pub.debug_off;
953: oe_Debug_pub.setdebuglevel(0);
954: OE_GLOBALS.G_SYS_HOLD := FALSE; -- bug 9494397
955:
956: WHEN OTHERS THEN
957: oe_debug_pub.add( ' When Others of OE_Internal_Requisition_Pvt.Release_Hold_for_IReq '||sqlerrm,1);
953: oe_Debug_pub.setdebuglevel(0);
954: OE_GLOBALS.G_SYS_HOLD := FALSE; -- bug 9494397
955:
956: WHEN OTHERS THEN
957: oe_debug_pub.add( ' When Others of OE_Internal_Requisition_Pvt.Release_Hold_for_IReq '||sqlerrm,1);
958: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
959: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
960: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
961: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Release_Hold_for_IReq');
966: P_Data => x_msg_Data);
967: ROLLBACK TO Release_Hold_For_IReq;
968:
969: -- Added for 8583903
970: oe_debug_pub.debug_off;
971: oe_Debug_pub.setdebuglevel(0);
972: OE_GLOBALS.G_SYS_HOLD := FALSE; -- bug 9494397
973:
974: End Release_Hold_for_IReq;
967: ROLLBACK TO Release_Hold_For_IReq;
968:
969: -- Added for 8583903
970: oe_debug_pub.debug_off;
971: oe_Debug_pub.setdebuglevel(0);
972: OE_GLOBALS.G_SYS_HOLD := FALSE; -- bug 9494397
973:
974: End Release_Hold_for_IReq;
975:
1013: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
1014: --
1015: -- Added for 8583903
1016: l_file_val VARCHAR2(2000);
1017: l_debug_level NUMBER := oe_debug_pub.g_debug_level;
1018: --
1019:
1020: Begin
1021:
1021:
1022: -- Added IF condition for 8583903
1023: IF (g_fnd_debug = 'Y') THEN
1024:
1025: oe_debug_pub.debug_on;
1026: oe_debug_pub.initialize;
1027: l_file_val := OE_DEBUG_PUB.Set_Debug_Mode('FILE'); --Dir/File
1028: oe_Debug_pub.setdebuglevel(5);
1029:
1022: -- Added IF condition for 8583903
1023: IF (g_fnd_debug = 'Y') THEN
1024:
1025: oe_debug_pub.debug_on;
1026: oe_debug_pub.initialize;
1027: l_file_val := OE_DEBUG_PUB.Set_Debug_Mode('FILE'); --Dir/File
1028: oe_Debug_pub.setdebuglevel(5);
1029:
1030: l_debug_level := oe_debug_pub.g_debug_level;
1023: IF (g_fnd_debug = 'Y') THEN
1024:
1025: oe_debug_pub.debug_on;
1026: oe_debug_pub.initialize;
1027: l_file_val := OE_DEBUG_PUB.Set_Debug_Mode('FILE'); --Dir/File
1028: oe_Debug_pub.setdebuglevel(5);
1029:
1030: l_debug_level := oe_debug_pub.g_debug_level;
1031:
1024:
1025: oe_debug_pub.debug_on;
1026: oe_debug_pub.initialize;
1027: l_file_val := OE_DEBUG_PUB.Set_Debug_Mode('FILE'); --Dir/File
1028: oe_Debug_pub.setdebuglevel(5);
1029:
1030: l_debug_level := oe_debug_pub.g_debug_level;
1031:
1032: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1026: oe_debug_pub.initialize;
1027: l_file_val := OE_DEBUG_PUB.Set_Debug_Mode('FILE'); --Dir/File
1028: oe_Debug_pub.setdebuglevel(5);
1029:
1030: l_debug_level := oe_debug_pub.g_debug_level;
1031:
1032: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1033: FND_LOG.string( log_level => FND_LOG.LEVEL_STATEMENT
1034: , module => 'po.plsql.'||G_PKG_Name||'.'||l_API_name
1044: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1045: END IF;
1046:
1047: IF l_debug_level > 0 THEN
1048: oe_debug_pub.add( 'ENTERING OE_Internal_Requisition_Pvt.Is_IReq_Changable', 1 ) ;
1049: oe_debug_pub.add( ' Requisition Line id :'||P_internal_req_line_id , 5 ) ;
1050: oe_debug_pub.add( ' Requisition Header id :'||P_internal_req_header_id , 5) ;
1051: END IF;
1052:
1045: END IF;
1046:
1047: IF l_debug_level > 0 THEN
1048: oe_debug_pub.add( 'ENTERING OE_Internal_Requisition_Pvt.Is_IReq_Changable', 1 ) ;
1049: oe_debug_pub.add( ' Requisition Line id :'||P_internal_req_line_id , 5 ) ;
1050: oe_debug_pub.add( ' Requisition Header id :'||P_internal_req_header_id , 5) ;
1051: END IF;
1052:
1053: -- OE_MSG_PUB.set_msg_context();
1046:
1047: IF l_debug_level > 0 THEN
1048: oe_debug_pub.add( 'ENTERING OE_Internal_Requisition_Pvt.Is_IReq_Changable', 1 ) ;
1049: oe_debug_pub.add( ' Requisition Line id :'||P_internal_req_line_id , 5 ) ;
1050: oe_debug_pub.add( ' Requisition Header id :'||P_internal_req_header_id , 5) ;
1051: END IF;
1052:
1053: -- OE_MSG_PUB.set_msg_context();
1054: -- No need to set the message context as the caller of this API is PO
1059: X_Cancel_Allowed := FALSE;
1060:
1061: IF P_internal_req_header_id is NULL AND P_internal_req_line_id is NULL THEN
1062: IF l_debug_level > 0 THEN
1063: oe_debug_pub.add( ' Invalid value for Requisition Header/Line',1);
1064: END IF;
1065: FND_Message.Set_Name('ONT', 'OE_IRCMS_INVALID_REQ_INFO');
1066: OE_MSG_PUB.Add;
1067: RAISE FND_API.G_EXC_ERROR;
1068: END IF;
1069:
1070: IF P_internal_req_header_id is NOT NULL AND P_internal_req_line_id is NULL THEN
1071: IF l_debug_level > 0 THEN
1072: oe_debug_pub.add('Requisition Line is NULL. We cannot check if Requisition Line is allowed to Update',1);
1073: END IF;
1074: X_UPDATE_Allowed := FALSE;
1075:
1076: IF l_debug_level > 0 THEN
1073: END IF;
1074: X_UPDATE_Allowed := FALSE;
1075:
1076: IF l_debug_level > 0 THEN
1077: oe_debug_pub.add( ' Checking if Requisition header is allowed to Cancel',5);
1078: END IF;
1079: Begin
1080: select h.header_id
1081: into l_header_id
1084: and h.order_source_id = OE_Globals.G_ORDER_SOURCE_INTERNAL
1085: and h.open_flag = 'Y';
1086:
1087: IF l_debug_level > 0 THEN
1088: oe_debug_pub.add( ' Header id is '||l_header_id,5);
1089: END IF;
1090:
1091: OPEN All_Order_Lines (l_header_id);
1092: LOOP
1093: FETCH All_Order_Lines INTO l_line_id;
1094: EXIT WHEN All_Order_Lines%NOTFOUND;
1095: l_lines_ctr := l_lines_ctr + 1;
1096: IF l_debug_level > 0 THEN
1097: oe_debug_pub.add( ' Checking cancellation allowed for line_id '||l_line_id,5);
1098: END IF;
1099:
1100: IF Cancel_Allowed( p_Line_id => l_line_id) THEN
1101: l_cancel_eligble_lin := l_cancel_eligble_lin + 1;
1100: IF Cancel_Allowed( p_Line_id => l_line_id) THEN
1101: l_cancel_eligble_lin := l_cancel_eligble_lin + 1;
1102: ELSE
1103: IF l_debug_level > 0 THEN
1104: oe_debug_pub.add( ' Line is not allowed for cancellation',5);
1105: oe_debug_pub.add( ' Since line cancel is not allowed, setting header FULL Cancel as FALSE',5);
1106: oe_debug_pub.add( ' Exiting out of the loop ',5);
1107: END IF;
1108: X_Cancel_Allowed := FALSE;
1101: l_cancel_eligble_lin := l_cancel_eligble_lin + 1;
1102: ELSE
1103: IF l_debug_level > 0 THEN
1104: oe_debug_pub.add( ' Line is not allowed for cancellation',5);
1105: oe_debug_pub.add( ' Since line cancel is not allowed, setting header FULL Cancel as FALSE',5);
1106: oe_debug_pub.add( ' Exiting out of the loop ',5);
1107: END IF;
1108: X_Cancel_Allowed := FALSE;
1109: l_skip_ctr_chk := TRUE;
1102: ELSE
1103: IF l_debug_level > 0 THEN
1104: oe_debug_pub.add( ' Line is not allowed for cancellation',5);
1105: oe_debug_pub.add( ' Since line cancel is not allowed, setting header FULL Cancel as FALSE',5);
1106: oe_debug_pub.add( ' Exiting out of the loop ',5);
1107: END IF;
1108: X_Cancel_Allowed := FALSE;
1109: l_skip_ctr_chk := TRUE;
1110: EXIT;
1113: CLOSE All_Order_Lines;
1114:
1115: IF NOT l_skip_ctr_chk THEN
1116: IF l_debug_level > 0 THEN
1117: oe_debug_pub.add( ' Total number of order lines are '||l_lines_ctr);
1118: oe_debug_pub.add( ' Total number of lines eligible for cancellation are '||l_cancel_eligble_lin);
1119: END IF;
1120:
1121: IF l_lines_ctr = l_cancel_eligble_lin THEN
1114:
1115: IF NOT l_skip_ctr_chk THEN
1116: IF l_debug_level > 0 THEN
1117: oe_debug_pub.add( ' Total number of order lines are '||l_lines_ctr);
1118: oe_debug_pub.add( ' Total number of lines eligible for cancellation are '||l_cancel_eligble_lin);
1119: END IF;
1120:
1121: IF l_lines_ctr = l_cancel_eligble_lin THEN
1122: IF l_debug_level > 0 THEN
1119: END IF;
1120:
1121: IF l_lines_ctr = l_cancel_eligble_lin THEN
1122: IF l_debug_level > 0 THEN
1123: oe_debug_pub.add( ' All Lines are eligible for cancellation',5);
1124: END IF;
1125: X_Cancel_Allowed := Cancel_Header_Allowed( P_header_id => l_header_id);
1126: IF X_Cancel_Allowed THEN
1127: IF l_debug_level > 0 THEN
1124: END IF;
1125: X_Cancel_Allowed := Cancel_Header_Allowed( P_header_id => l_header_id);
1126: IF X_Cancel_Allowed THEN
1127: IF l_debug_level > 0 THEN
1128: oe_debug_pub.add( ' Header cancellation is TRUE',5);
1129: END IF;
1130: ELSE
1131: IF l_debug_level > 0 THEN
1132: oe_debug_pub.add( ' Header cancellation is FALSE',5);
1128: oe_debug_pub.add( ' Header cancellation is TRUE',5);
1129: END IF;
1130: ELSE
1131: IF l_debug_level > 0 THEN
1132: oe_debug_pub.add( ' Header cancellation is FALSE',5);
1133: END IF;
1134: END IF;
1135: ELSE
1136: IF l_debug_level > 0 THEN
1133: END IF;
1134: END IF;
1135: ELSE
1136: IF l_debug_level > 0 THEN
1137: oe_debug_pub.add( ' Header cancellation is not allowed' , 5);
1138: END IF;
1139: X_Cancel_Allowed := FALSE;
1140: END IF;
1141: END IF; -- NOT l_skip_ctr_chk
1144:
1145: Exception
1146: When No_Data_Found Then
1147: IF l_debug_level > 0 THEN
1148: oe_debug_pub.add( ' Requisition is not allowed to cancel',1);
1149: END IF;
1150: X_Cancel_Allowed := FALSE;
1151: GOTO SKIP_REQ_LINE_CHK;
1152: When Others Then
1150: X_Cancel_Allowed := FALSE;
1151: GOTO SKIP_REQ_LINE_CHK;
1152: When Others Then
1153: IF l_debug_level > 0 THEN
1154: oe_debug_pub.add( ' Invalid value for Requisition Header',1);
1155: END IF;
1156: X_Cancel_Allowed := FALSE;
1157: FND_Message.Set_Name('ONT', 'OE_IRCMS_INVALID_REQ_HDR');
1158: OE_MSG_PUB.Add;
1161: END IF;
1162:
1163: IF P_internal_req_header_id is NULL AND P_internal_req_line_id is NOT NULL THEN
1164: IF l_debug_level > 0 THEN
1165: oe_debug_pub.add( ' No value passed for Requisition Header',1);
1166: END IF;
1167: Begin
1168: oe_debug_pub.add( ' Retrieving Requisition Header id',5);
1169: select requisition_header_id
1164: IF l_debug_level > 0 THEN
1165: oe_debug_pub.add( ' No value passed for Requisition Header',1);
1166: END IF;
1167: Begin
1168: oe_debug_pub.add( ' Retrieving Requisition Header id',5);
1169: select requisition_header_id
1170: into l_req_hdr_id
1171: from po_requisition_lines_all
1172: where requisition_line_id = P_internal_req_line_id;
1171: from po_requisition_lines_all
1172: where requisition_line_id = P_internal_req_line_id;
1173:
1174: IF l_req_hdr_id IS NULL THEN
1175: oe_debug_pub.add( ' Invalid value for Requisition Header',5);
1176: FND_Message.Set_Name('ONT', 'OE_IRCMS_INVALID_REQ_HDR');
1177: -- FND_Message.Set_Token('REQ_HDR_ID',P_internal_req_header_id);
1178: OE_MSG_PUB.Add;
1179: RAISE FND_API.G_EXC_ERROR;
1179: RAISE FND_API.G_EXC_ERROR;
1180: END IF;
1181: Exception
1182: When No_Data_Found Then
1183: oe_debug_pub.add( ' Invalid value passed for Requisition Line',5);
1184: FND_Message.Set_Name('ONT', 'OE_IRCMS_INVALID_REQ_LIN');
1185: -- FND_Message.Set_Token('REQ_LIN_ID',P_internal_req_line_id);
1186: OE_MSG_PUB.Add;
1187: RAISE FND_API.G_EXC_ERROR;
1202: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1203: END IF;
1204:
1205: IF l_debug_level > 0 THEN
1206: oe_debug_pub.add( ' Line id: '||l_line_ids_rec.line_id,5);
1207: END IF;
1208:
1209: IF NOT X_Update_Allowed THEN
1210: IF l_debug_level > 0 THEN
1207: END IF;
1208:
1209: IF NOT X_Update_Allowed THEN
1210: IF l_debug_level > 0 THEN
1211: oe_debug_pub.add( ' Checking if Update is allowed',5);
1212: END IF;
1213: l_Update_Allowed := Update_Allowed(P_Line_id => l_line_ids_rec.line_id);
1214: IF l_Update_Allowed THEN
1215: IF l_debug_level > 0 THEN
1212: END IF;
1213: l_Update_Allowed := Update_Allowed(P_Line_id => l_line_ids_rec.line_id);
1214: IF l_Update_Allowed THEN
1215: IF l_debug_level > 0 THEN
1216: oe_debug_pub.add( ' Update is Allowed',5);
1217: END IF;
1218: X_Update_Allowed := TRUE;
1219: ELSE
1220: IF l_debug_level > 0 THEN
1217: END IF;
1218: X_Update_Allowed := TRUE;
1219: ELSE
1220: IF l_debug_level > 0 THEN
1221: oe_debug_pub.add(' Update is Not Allowed for this requisition line',1);
1222: END IF;
1223: END IF;
1224: END IF;
1225:
1224: END IF;
1225:
1226: IF NOT X_Cancel_Allowed THEN
1227: IF l_debug_level > 0 THEN
1228: oe_debug_pub.add( ' Checking if Cancel is allowed',5);
1229: END IF;
1230: l_Cancel_Allowed := Cancel_Allowed(p_line_id => l_line_ids_rec.line_id);
1231:
1232: IF l_Cancel_Allowed THEN
1230: l_Cancel_Allowed := Cancel_Allowed(p_line_id => l_line_ids_rec.line_id);
1231:
1232: IF l_Cancel_Allowed THEN
1233: IF l_debug_level > 0 THEN
1234: oe_debug_pub.add( ' Cancel is Allowed',5);
1235: END IF;
1236: X_Cancel_Allowed := TRUE;
1237: ELSE
1238: IF l_debug_level > 0 THEN
1235: END IF;
1236: X_Cancel_Allowed := TRUE;
1237: ELSE
1238: IF l_debug_level > 0 THEN
1239: oe_debug_pub.add(' Cancel is Not Allowed for this requisition line',1);
1240: END IF;
1241: END IF;
1242: END IF;
1243:
1249: null;
1250:
1251: IF l_debug_level > 0 THEN
1252: IF X_Update_Allowed THEN
1253: oe_debug_pub.add( ' Record is allowed to Update',5);
1254: END IF;
1255: IF X_Cancel_Allowed THEN
1256: oe_debug_pub.add( ' Record is allowed to Cancel',5);
1257: END IF;
1252: IF X_Update_Allowed THEN
1253: oe_debug_pub.add( ' Record is allowed to Update',5);
1254: END IF;
1255: IF X_Cancel_Allowed THEN
1256: oe_debug_pub.add( ' Record is allowed to Cancel',5);
1257: END IF;
1258: END IF;
1259:
1260: x_return_status := l_return_status;
1263: P_Count => x_msg_Count,
1264: P_Data => x_msg_Data);
1265:
1266: IF l_debug_level > 0 THEN
1267: oe_debug_pub.add( 'EXITING OE_Internal_Requisition_Pvt.Is_IReq_Changable', 1 ) ;
1268: END IF;
1269:
1270: -- Added for 8583903
1271: oe_debug_pub.debug_off;
1267: oe_debug_pub.add( 'EXITING OE_Internal_Requisition_Pvt.Is_IReq_Changable', 1 ) ;
1268: END IF;
1269:
1270: -- Added for 8583903
1271: oe_debug_pub.debug_off;
1272: oe_Debug_pub.setdebuglevel(0);
1273:
1274: Exception
1275: WHEN FND_API.G_EXC_ERROR THEN
1268: END IF;
1269:
1270: -- Added for 8583903
1271: oe_debug_pub.debug_off;
1272: oe_Debug_pub.setdebuglevel(0);
1273:
1274: Exception
1275: WHEN FND_API.G_EXC_ERROR THEN
1276: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
1281: P_Count => x_msg_Count,
1282: P_Data => x_msg_Data);
1283:
1284: -- Added for 8583903
1285: oe_debug_pub.debug_off;
1286: oe_Debug_pub.setdebuglevel(0);
1287:
1288: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1289: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
1282: P_Data => x_msg_Data);
1283:
1284: -- Added for 8583903
1285: oe_debug_pub.debug_off;
1286: oe_Debug_pub.setdebuglevel(0);
1287:
1288: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1289: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
1290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1294: P_Count => x_msg_Count,
1295: P_Data => x_msg_Data);
1296:
1297: -- Added 8583903
1298: oe_debug_pub.debug_off;
1299: oe_Debug_pub.setdebuglevel(0);
1300:
1301: WHEN OTHERS THEN
1302: oe_debug_pub.add( ' When Others of OE_Internal_Requisition_Pvt.Is_IReq_Changable '||sqlerrm,1);
1295: P_Data => x_msg_Data);
1296:
1297: -- Added 8583903
1298: oe_debug_pub.debug_off;
1299: oe_Debug_pub.setdebuglevel(0);
1300:
1301: WHEN OTHERS THEN
1302: oe_debug_pub.add( ' When Others of OE_Internal_Requisition_Pvt.Is_IReq_Changable '||sqlerrm,1);
1303: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
1298: oe_debug_pub.debug_off;
1299: oe_Debug_pub.setdebuglevel(0);
1300:
1301: WHEN OTHERS THEN
1302: oe_debug_pub.add( ' When Others of OE_Internal_Requisition_Pvt.Is_IReq_Changable '||sqlerrm,1);
1303: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
1304: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1305: X_Update_Allowed := FALSE;
1306: X_Cancel_Allowed := FALSE;
1312: P_Count => x_msg_Count,
1313: P_Data => x_msg_Data);
1314:
1315: -- Added for 8583903
1316: oe_debug_pub.debug_off;
1317: oe_Debug_pub.setdebuglevel(0);
1318:
1319: End Is_IReq_Changable;
1320:
1313: P_Data => x_msg_Data);
1314:
1315: -- Added for 8583903
1316: oe_debug_pub.debug_off;
1317: oe_Debug_pub.setdebuglevel(0);
1318:
1319: End Is_IReq_Changable;
1320:
1321:
1381: l_Cancel_Allowed BOOLEAN := FALSE;
1382: --
1383: -- Added for 8583903
1384: l_file_val VARCHAR2(2000);
1385: l_debug_level NUMBER := oe_debug_pub.g_debug_level;
1386: --
1387:
1388: Begin
1389:
1389:
1390: -- Added IF condition for 8583903
1391: IF (g_fnd_debug = 'Y') THEN
1392:
1393: oe_debug_pub.debug_on;
1394: oe_debug_pub.initialize;
1395: l_file_val := OE_DEBUG_PUB.Set_Debug_Mode('FILE'); -- Dir/File
1396: oe_Debug_pub.setdebuglevel(5);
1397:
1390: -- Added IF condition for 8583903
1391: IF (g_fnd_debug = 'Y') THEN
1392:
1393: oe_debug_pub.debug_on;
1394: oe_debug_pub.initialize;
1395: l_file_val := OE_DEBUG_PUB.Set_Debug_Mode('FILE'); -- Dir/File
1396: oe_Debug_pub.setdebuglevel(5);
1397:
1398: l_debug_level := oe_debug_pub.g_debug_level;
1391: IF (g_fnd_debug = 'Y') THEN
1392:
1393: oe_debug_pub.debug_on;
1394: oe_debug_pub.initialize;
1395: l_file_val := OE_DEBUG_PUB.Set_Debug_Mode('FILE'); -- Dir/File
1396: oe_Debug_pub.setdebuglevel(5);
1397:
1398: l_debug_level := oe_debug_pub.g_debug_level;
1399:
1392:
1393: oe_debug_pub.debug_on;
1394: oe_debug_pub.initialize;
1395: l_file_val := OE_DEBUG_PUB.Set_Debug_Mode('FILE'); -- Dir/File
1396: oe_Debug_pub.setdebuglevel(5);
1397:
1398: l_debug_level := oe_debug_pub.g_debug_level;
1399:
1400: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1394: oe_debug_pub.initialize;
1395: l_file_val := OE_DEBUG_PUB.Set_Debug_Mode('FILE'); -- Dir/File
1396: oe_Debug_pub.setdebuglevel(5);
1397:
1398: l_debug_level := oe_debug_pub.g_debug_level;
1399:
1400: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1401: FND_LOG.string( log_level => FND_LOG.LEVEL_STATEMENT
1402: , module => 'po.plsql.'||G_PKG_Name||'.'||l_API_name
1414:
1415: SavePoint Call_Process_Order_for_IReq;
1416:
1417: IF l_debug_level > 0 THEN
1418: oe_debug_pub.add( 'ENTERING OE_Internal_Requisition_Pvt.Call_Process_Order_for_IReq', 1 ) ;
1419: oe_debug_pub.add( ' P_internal_req_line_id :'||P_internal_req_line_id , 5 ) ;
1420: oe_debug_pub.add( ' P_internal_req_header_id :'||P_internal_req_header_id , 5 ) ;
1421: oe_debug_pub.add( ' P_Mode :'||P_Mode , 5 ) ;
1422: oe_debug_pub.add( ' P_New_Request_Date :'||P_New_Request_Date , 5 ) ;
1415: SavePoint Call_Process_Order_for_IReq;
1416:
1417: IF l_debug_level > 0 THEN
1418: oe_debug_pub.add( 'ENTERING OE_Internal_Requisition_Pvt.Call_Process_Order_for_IReq', 1 ) ;
1419: oe_debug_pub.add( ' P_internal_req_line_id :'||P_internal_req_line_id , 5 ) ;
1420: oe_debug_pub.add( ' P_internal_req_header_id :'||P_internal_req_header_id , 5 ) ;
1421: oe_debug_pub.add( ' P_Mode :'||P_Mode , 5 ) ;
1422: oe_debug_pub.add( ' P_New_Request_Date :'||P_New_Request_Date , 5 ) ;
1423: oe_debug_pub.add( ' P_Delta_Ordered_Qty :'||P_Delta_Ordered_Qty , 5 ) ;
1416:
1417: IF l_debug_level > 0 THEN
1418: oe_debug_pub.add( 'ENTERING OE_Internal_Requisition_Pvt.Call_Process_Order_for_IReq', 1 ) ;
1419: oe_debug_pub.add( ' P_internal_req_line_id :'||P_internal_req_line_id , 5 ) ;
1420: oe_debug_pub.add( ' P_internal_req_header_id :'||P_internal_req_header_id , 5 ) ;
1421: oe_debug_pub.add( ' P_Mode :'||P_Mode , 5 ) ;
1422: oe_debug_pub.add( ' P_New_Request_Date :'||P_New_Request_Date , 5 ) ;
1423: oe_debug_pub.add( ' P_Delta_Ordered_Qty :'||P_Delta_Ordered_Qty , 5 ) ;
1424: IF P_Cancel_ISO THEN
1417: IF l_debug_level > 0 THEN
1418: oe_debug_pub.add( 'ENTERING OE_Internal_Requisition_Pvt.Call_Process_Order_for_IReq', 1 ) ;
1419: oe_debug_pub.add( ' P_internal_req_line_id :'||P_internal_req_line_id , 5 ) ;
1420: oe_debug_pub.add( ' P_internal_req_header_id :'||P_internal_req_header_id , 5 ) ;
1421: oe_debug_pub.add( ' P_Mode :'||P_Mode , 5 ) ;
1422: oe_debug_pub.add( ' P_New_Request_Date :'||P_New_Request_Date , 5 ) ;
1423: oe_debug_pub.add( ' P_Delta_Ordered_Qty :'||P_Delta_Ordered_Qty , 5 ) ;
1424: IF P_Cancel_ISO THEN
1425: oe_debug_pub.add( ' Header level cancellation',5);
1418: oe_debug_pub.add( 'ENTERING OE_Internal_Requisition_Pvt.Call_Process_Order_for_IReq', 1 ) ;
1419: oe_debug_pub.add( ' P_internal_req_line_id :'||P_internal_req_line_id , 5 ) ;
1420: oe_debug_pub.add( ' P_internal_req_header_id :'||P_internal_req_header_id , 5 ) ;
1421: oe_debug_pub.add( ' P_Mode :'||P_Mode , 5 ) ;
1422: oe_debug_pub.add( ' P_New_Request_Date :'||P_New_Request_Date , 5 ) ;
1423: oe_debug_pub.add( ' P_Delta_Ordered_Qty :'||P_Delta_Ordered_Qty , 5 ) ;
1424: IF P_Cancel_ISO THEN
1425: oe_debug_pub.add( ' Header level cancellation',5);
1426: ELSE
1419: oe_debug_pub.add( ' P_internal_req_line_id :'||P_internal_req_line_id , 5 ) ;
1420: oe_debug_pub.add( ' P_internal_req_header_id :'||P_internal_req_header_id , 5 ) ;
1421: oe_debug_pub.add( ' P_Mode :'||P_Mode , 5 ) ;
1422: oe_debug_pub.add( ' P_New_Request_Date :'||P_New_Request_Date , 5 ) ;
1423: oe_debug_pub.add( ' P_Delta_Ordered_Qty :'||P_Delta_Ordered_Qty , 5 ) ;
1424: IF P_Cancel_ISO THEN
1425: oe_debug_pub.add( ' Header level cancellation',5);
1426: ELSE
1427: oe_debug_pub.add( ' Not a header level cancellation',5);
1421: oe_debug_pub.add( ' P_Mode :'||P_Mode , 5 ) ;
1422: oe_debug_pub.add( ' P_New_Request_Date :'||P_New_Request_Date , 5 ) ;
1423: oe_debug_pub.add( ' P_Delta_Ordered_Qty :'||P_Delta_Ordered_Qty , 5 ) ;
1424: IF P_Cancel_ISO THEN
1425: oe_debug_pub.add( ' Header level cancellation',5);
1426: ELSE
1427: oe_debug_pub.add( ' Not a header level cancellation',5);
1428: END IF;
1429: IF P_Cancel_ISO_Lines THEN
1423: oe_debug_pub.add( ' P_Delta_Ordered_Qty :'||P_Delta_Ordered_Qty , 5 ) ;
1424: IF P_Cancel_ISO THEN
1425: oe_debug_pub.add( ' Header level cancellation',5);
1426: ELSE
1427: oe_debug_pub.add( ' Not a header level cancellation',5);
1428: END IF;
1429: IF P_Cancel_ISO_Lines THEN
1430: oe_debug_pub.add( ' Line level cancellation',5);
1431: ELSE
1426: ELSE
1427: oe_debug_pub.add( ' Not a header level cancellation',5);
1428: END IF;
1429: IF P_Cancel_ISO_Lines THEN
1430: oe_debug_pub.add( ' Line level cancellation',5);
1431: ELSE
1432: oe_debug_pub.add( ' Not a line level cancellation',5);
1433: END IF;
1434: END IF;
1428: END IF;
1429: IF P_Cancel_ISO_Lines THEN
1430: oe_debug_pub.add( ' Line level cancellation',5);
1431: ELSE
1432: oe_debug_pub.add( ' Not a line level cancellation',5);
1433: END IF;
1434: END IF;
1435:
1436: -- OE_MSG_PUB.set_msg_context();
1454: (P_Cancel_ISO_Lines AND P_Delta_Ordered_Qty IS NOT NULL AND P_Delta_Ordered_Qty <> 0) OR
1455: (P_New_Request_Date IS NOT NULL AND P_internal_req_line_id IS NULL) OR
1456: (P_Delta_Ordered_Qty IS NOT NULL AND P_Delta_Ordered_Qty <> 0 AND P_internal_req_line_id IS NULL) THEN
1457: IF l_debug_level > 0 THEN
1458: oe_debug_pub.add( ' Invalid call to Order Management', 5 ) ;
1459: oe_debug_pub.add( ' Please provide a valid argument values', 5 ) ;
1460: END IF;
1461: FND_Message.Set_Name('ONT', 'OE_IRCMS_INVALID_OM_CALL');
1462: OE_MSG_PUB.Add;
1455: (P_New_Request_Date IS NOT NULL AND P_internal_req_line_id IS NULL) OR
1456: (P_Delta_Ordered_Qty IS NOT NULL AND P_Delta_Ordered_Qty <> 0 AND P_internal_req_line_id IS NULL) THEN
1457: IF l_debug_level > 0 THEN
1458: oe_debug_pub.add( ' Invalid call to Order Management', 5 ) ;
1459: oe_debug_pub.add( ' Please provide a valid argument values', 5 ) ;
1460: END IF;
1461: FND_Message.Set_Name('ONT', 'OE_IRCMS_INVALID_OM_CALL');
1462: OE_MSG_PUB.Add;
1463: RAISE FND_API.G_EXC_ERROR;
1464: END IF;
1465:
1466: IF P_Mode NOT IN ('V','P') THEN
1467: IF l_debug_level > 0 THEN
1468: oe_debug_pub.add( ' Mode is Invalid. The Valid values are V or P', 1 ) ;
1469: oe_debug_pub.add( ' Invalid Mode passed to Fulfillment Organization',5);
1470: END IF;
1471: FND_Message.Set_Name('ONT', 'OE_IRCMS_INVALID_MODE');
1472: OE_MSG_PUB.Add;
1465:
1466: IF P_Mode NOT IN ('V','P') THEN
1467: IF l_debug_level > 0 THEN
1468: oe_debug_pub.add( ' Mode is Invalid. The Valid values are V or P', 1 ) ;
1469: oe_debug_pub.add( ' Invalid Mode passed to Fulfillment Organization',5);
1470: END IF;
1471: FND_Message.Set_Name('ONT', 'OE_IRCMS_INVALID_MODE');
1472: OE_MSG_PUB.Add;
1473: RAISE FND_API.G_EXC_ERROR;
1474: END IF;
1475:
1476: IF P_internal_req_header_id is NULL THEN
1477: IF l_debug_level > 0 THEN
1478: oe_debug_pub.add( ' No value passed for Requisition Header',1);
1479: END IF;
1480: Begin
1481: IF l_debug_level > 0 THEN
1482: oe_debug_pub.add( ' Retrieving Requisition Header id',5);
1478: oe_debug_pub.add( ' No value passed for Requisition Header',1);
1479: END IF;
1480: Begin
1481: IF l_debug_level > 0 THEN
1482: oe_debug_pub.add( ' Retrieving Requisition Header id',5);
1483: END IF;
1484: select requisition_header_id
1485: into l_req_hdr_id
1486: from po_requisition_lines_all
1487: where requisition_line_id = P_internal_req_line_id;
1488:
1489: IF l_req_hdr_id IS NULL THEN
1490: IF l_debug_level > 0 THEN
1491: oe_debug_pub.add( ' Invalid value for Requisition Header',5);
1492: END IF;
1493: FND_Message.Set_Name('ONT', 'OE_IRCMS_INVALID_REQ_HDR');
1494: -- FND_Message.Set_Token('REQ_HDR_ID',P_internal_req_header_id);
1495: OE_MSG_PUB.Add;
1497: END IF;
1498: Exception
1499: When No_Data_Found Then
1500: IF l_debug_level > 0 THEN
1501: oe_debug_pub.add( ' Invalid value passed for Requisition Line',5);
1502: END IF;
1503: FND_Message.Set_Name('ONT', 'OE_IRCMS_INVALID_REQ_LIN');
1504: -- FND_Message.Set_Token('REQ_LIN_ID',P_internal_req_line_id);
1505: OE_MSG_PUB.Add;
1514: l_lin_update := 0;
1515:
1516: IF P_Cancel_ISO THEN
1517: IF l_debug_level > 0 THEN
1518: oe_debug_pub.add(' Order level cancellation request',5);
1519: END IF;
1520:
1521: Begin
1522: select header_id
1527: and h.open_flag = 'Y';
1528: Exception
1529: WHEN No_Data_found THEN
1530: IF l_debug_level > 0 THEN
1531: oe_debug_pub.add( ' Invalid value passed for Requisition Header: no data found',1);
1532: END IF;
1533: FND_Message.Set_name('ONT','OE_IRCMS_INVALID_REQ_HDR');
1534: RAISE FND_API.G_EXC_ERROR;
1535: WHEN Too_Many_Rows THEN
1533: FND_Message.Set_name('ONT','OE_IRCMS_INVALID_REQ_HDR');
1534: RAISE FND_API.G_EXC_ERROR;
1535: WHEN Too_Many_Rows THEN
1536: IF l_debug_level > 0 THEN
1537: oe_debug_pub.add( ' Invalid value passed for Requisition Header: too many rows',1);
1538: END IF;
1539: FND_Message.Set_name('ONT','OE_IRCMS_INVALID_REQ_HDR');
1540: RAISE FND_API.G_EXC_ERROR;
1541: End;
1543: l_Cancel_Allowed := Cancel_Header_Allowed( P_header_id => l_order_header_id);
1544:
1545: IF l_Cancel_Allowed THEN
1546: IF l_debug_level > 0 THEN
1547: oe_debug_pub.add( ' No Header level cancellation constraint',5);
1548: END IF;
1549:
1550: OPEN All_Order_Lines (l_order_header_id);
1551: LOOP
1580: and nvl(cancelled_flag,'N') = 'N';
1581:
1582: IF l_cancel_eligble_lin > 0 OR l_count_of_lines = 0 THEN
1583: IF l_debug_level > 0 THEN
1584: oe_debug_pub.add('Order cancellation request is valid',5);
1585: END IF;
1586:
1587: IF l_count_of_lines = l_cancel_eligble_lin THEN
1588:
1586:
1587: IF l_count_of_lines = l_cancel_eligble_lin THEN
1588:
1589: IF l_debug_level > 0 THEN
1590: oe_debug_pub.add(' Cancel FULL Order request',5);
1591: END IF;
1592:
1593: OE_MSG_PUB.set_msg_context
1594: ( p_entity_code => 'HEADER'
1652:
1653:
1654: x_return_status := l_return_status;
1655: IF l_debug_level > 0 THEN
1656: oe_debug_pub.add( ' Return Status is '||l_return_status,1) ;
1657: END IF;
1658: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1659: IF l_debug_level > 0 THEN
1660: oe_debug_pub.add( ' CANCELLATION UNEXPECTED FAILURE',1 ) ;
1656: oe_debug_pub.add( ' Return Status is '||l_return_status,1) ;
1657: END IF;
1658: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1659: IF l_debug_level > 0 THEN
1660: oe_debug_pub.add( ' CANCELLATION UNEXPECTED FAILURE',1 ) ;
1661: END IF;
1662: OE_MSG_PUB.Reset_Msg_Context('HEADER');
1663: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1664: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1662: OE_MSG_PUB.Reset_Msg_Context('HEADER');
1663: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1664: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1665: IF l_debug_level > 0 THEN
1666: oe_debug_pub.add( ' CANCELLATION EXPECTED FAILURE',1 ) ;
1667: END IF;
1668: OE_MSG_PUB.Reset_Msg_Context('HEADER');
1669: RAISE FND_API.G_EXC_ERROR;
1670: END IF;
1676: OE_MSG_PUB.Reset_Msg_Context('HEADER');
1677:
1678: ELSIF l_count_of_lines > l_cancel_eligble_lin THEN
1679: IF l_debug_level > 0 THEN
1680: oe_debug_pub.add(' Cancel REMAINING Order request',5);
1681: END IF;
1682: l_Process_Line_Entity := TRUE;
1683: l_cancel_request := TRUE;
1684: END IF; -- l_count_of_lines = l_cancel_eligble_lin
1684: END IF; -- l_count_of_lines = l_cancel_eligble_lin
1685: END IF;
1686: ELSE
1687: IF l_debug_level > 0 THEN
1688: oe_debug_pub.add( ' There are Header level cancellation constraint',5);
1689: END IF;
1690: l_return_status := FND_API.G_RET_STS_ERROR;
1691: END IF;
1692: END IF; -- P_Cancel_Order
1707: END IF;
1708:
1709: IF P_Cancel_ISO_Lines THEN
1710: IF l_debug_level > 0 THEN
1711: oe_debug_pub.add(' Line level Cancel request',5);
1712: oe_debug_pub.add(' Check for Cancel of Line_id '||l_line_ids_rec.line_id,5);
1713: END IF;
1714: IF Cancel_Allowed( p_Line_id => l_line_ids_rec.line_id) THEN
1715: l_lin_cancel := l_lin_cancel + 1;
1708:
1709: IF P_Cancel_ISO_Lines THEN
1710: IF l_debug_level > 0 THEN
1711: oe_debug_pub.add(' Line level Cancel request',5);
1712: oe_debug_pub.add(' Check for Cancel of Line_id '||l_line_ids_rec.line_id,5);
1713: END IF;
1714: IF Cancel_Allowed( p_Line_id => l_line_ids_rec.line_id) THEN
1715: l_lin_cancel := l_lin_cancel + 1;
1716: OE_LINE_UTIL.QUERY_ROW( p_line_id => l_line_ids_rec.line_id
1728: l_Process_Line_Entity := TRUE;
1729: l_cancel_request := TRUE;
1730: ELSE
1731: IF l_debug_level > 0 THEN
1732: oe_debug_pub.add(' Cancel is not allowed for this line. Setting the status to Error',5);
1733: END IF;
1734: l_return_status := FND_API.G_RET_STS_ERROR;
1735: END IF;
1736:
1737: ELSIF P_New_Request_Date IS NOT NULL OR ( P_Delta_Ordered_Qty IS NOT NULL
1738: AND p_Delta_Ordered_Qty <> 0) THEN -- This is an update request
1739:
1740: IF l_debug_level > 0 THEN
1741: oe_debug_pub.add(' This is an Update request',5);
1742: END IF;
1743:
1744: IF P_New_Request_Date IS NOT NULL AND ( P_Delta_Ordered_Qty IS NULL
1745: OR p_Delta_Ordered_Qty = 0) THEN
1744: IF P_New_Request_Date IS NOT NULL AND ( P_Delta_Ordered_Qty IS NULL
1745: OR p_Delta_Ordered_Qty = 0) THEN
1746:
1747: IF l_debug_level > 0 THEN
1748: oe_debug_pub.add(' Only Request Date is changed',5);
1749: oe_debug_pub.add(' Check if update is allowed for line_id '||l_line_ids_rec.line_id,5);
1750: END IF;
1751: IF NOT OE_Globals.Equal(P_New_Request_Date, l_line_ids_rec.request_date) AND
1752: Update_Allowed( p_Line_id => l_line_ids_rec.line_id
1745: OR p_Delta_Ordered_Qty = 0) THEN
1746:
1747: IF l_debug_level > 0 THEN
1748: oe_debug_pub.add(' Only Request Date is changed',5);
1749: oe_debug_pub.add(' Check if update is allowed for line_id '||l_line_ids_rec.line_id,5);
1750: END IF;
1751: IF NOT OE_Globals.Equal(P_New_Request_Date, l_line_ids_rec.request_date) AND
1752: Update_Allowed( p_Line_id => l_line_ids_rec.line_id
1753: , P_Attribute => 'REQUEST_DATE') THEN
1752: Update_Allowed( p_Line_id => l_line_ids_rec.line_id
1753: , P_Attribute => 'REQUEST_DATE') THEN
1754:
1755: IF l_debug_level > 0 THEN
1756: oe_debug_pub.add(' Request Date is different w.r.t. sales order line ',5);
1757: oe_debug_pub.add(' Request Date is allowed to change',5);
1758: END IF;
1759:
1760: l_lin_update := l_lin_update + 1;
1753: , P_Attribute => 'REQUEST_DATE') THEN
1754:
1755: IF l_debug_level > 0 THEN
1756: oe_debug_pub.add(' Request Date is different w.r.t. sales order line ',5);
1757: oe_debug_pub.add(' Request Date is allowed to change',5);
1758: END IF;
1759:
1760: l_lin_update := l_lin_update + 1;
1761:
1772: l_Process_Line_Entity := TRUE;
1773:
1774: ELSE
1775: IF l_debug_level > 0 THEN
1776: oe_debug_pub.add(' Update is not allowed for this line. Setting the status to Error',5);
1777: END IF;
1778: l_return_status := FND_API.G_RET_STS_ERROR;
1779: END IF;
1780:
1781: ELSIF P_New_Request_Date IS NULL AND (P_Delta_Ordered_Qty IS NOT NULL
1782: OR p_Delta_Ordered_Qty <> 0) THEN
1783:
1784: IF l_debug_level > 0 THEN
1785: oe_debug_pub.add(' Only Ordered Quantity is changed',5);
1786: oe_debug_pub.add(' Check for update of Line_id '||l_line_ids_rec.line_id,5);
1787: END IF;
1788: IF Update_Allowed( p_Line_id => l_line_ids_rec.line_id
1789: , P_Attribute => 'ORDERED_QUANTITY') THEN
1782: OR p_Delta_Ordered_Qty <> 0) THEN
1783:
1784: IF l_debug_level > 0 THEN
1785: oe_debug_pub.add(' Only Ordered Quantity is changed',5);
1786: oe_debug_pub.add(' Check for update of Line_id '||l_line_ids_rec.line_id,5);
1787: END IF;
1788: IF Update_Allowed( p_Line_id => l_line_ids_rec.line_id
1789: , P_Attribute => 'ORDERED_QUANTITY') THEN
1790:
1803: l_Process_Line_Entity := TRUE;
1804:
1805: ELSE
1806: IF l_debug_level > 0 THEN
1807: oe_debug_pub.add(' Update is not allowed for this line. Setting the status to Error',5);
1808: END IF;
1809: l_return_status := FND_API.G_RET_STS_ERROR;
1810: END IF;
1811:
1812: ELSIF P_New_Request_Date IS NOT NULL AND (P_Delta_Ordered_Qty IS NOT NULL
1813: OR p_Delta_Ordered_Qty <> 0) THEN
1814:
1815: IF l_debug_level > 0 THEN
1816: oe_debug_pub.add(' Both Request Date and Ordered Quantity are changed',5);
1817: oe_debug_pub.add(' Check for update of Line_id '||l_line_ids_rec.line_id,5);
1818: END IF;
1819: IF NOT OE_Globals.Equal(P_New_Request_Date, l_line_ids_rec.request_date) AND
1820: Update_Allowed( p_Line_id => l_line_ids_rec.line_id
1813: OR p_Delta_Ordered_Qty <> 0) THEN
1814:
1815: IF l_debug_level > 0 THEN
1816: oe_debug_pub.add(' Both Request Date and Ordered Quantity are changed',5);
1817: oe_debug_pub.add(' Check for update of Line_id '||l_line_ids_rec.line_id,5);
1818: END IF;
1819: IF NOT OE_Globals.Equal(P_New_Request_Date, l_line_ids_rec.request_date) AND
1820: Update_Allowed( p_Line_id => l_line_ids_rec.line_id
1821: , P_Attribute => 'ALL') THEN
1835:
1836: l_Process_Line_Entity := TRUE;
1837: ELSE
1838: IF l_debug_level > 0 THEN
1839: oe_debug_pub.add(' Update is not allowed for this line. Setting the status to Error',5);
1840: END IF;
1841: l_return_status := FND_API.G_RET_STS_ERROR;
1842: END IF;
1843: END IF; -- P_New_Request_Date/P_Delta_Ordered_Qty
1845: END IF; -- Update/Cancel Request
1846:
1847: IF l_Process_Line_Entity THEN
1848: IF l_debug_level > 0 THEN
1849: oe_debug_pub.add( ' Before calling Process_Line_Entity', 5 ) ;
1850: END IF;
1851:
1852: OE_MSG_PUB.set_msg_context
1853: ( p_entity_code => 'LINE'
1871:
1872: OE_MSG_PUB.Reset_Msg_Context('LINE');
1873:
1874: IF l_debug_level > 0 THEN
1875: oe_debug_pub.add( ' After calling Process_Line_Entity'||l_return_status, 5 ) ;
1876: END IF;
1877: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1878: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1879: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1888: P_Count => x_msg_Count,
1889: P_Data => x_msg_Data);
1890:
1891: IF l_debug_level > 0 THEN
1892: oe_debug_pub.add( 'EXITING OE_Internal_Requisition_Pvt.Call_Process_Order_for_IReq', 1 ) ;
1893: END IF;
1894:
1895: -- Added for 8583903
1896: oe_debug_pub.debug_off;
1892: oe_debug_pub.add( 'EXITING OE_Internal_Requisition_Pvt.Call_Process_Order_for_IReq', 1 ) ;
1893: END IF;
1894:
1895: -- Added for 8583903
1896: oe_debug_pub.debug_off;
1897: oe_Debug_pub.setdebuglevel(0);
1898:
1899: Exception
1900: WHEN FND_API.G_EXC_ERROR THEN
1893: END IF;
1894:
1895: -- Added for 8583903
1896: oe_debug_pub.debug_off;
1897: oe_Debug_pub.setdebuglevel(0);
1898:
1899: Exception
1900: WHEN FND_API.G_EXC_ERROR THEN
1901: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
1906: G_Update_ISO_From_Req := FALSE; -- Confirming IR initiated change
1907: ROLLBACK TO Call_Process_Order_for_IReq;
1908:
1909: -- Added for 8583903
1910: oe_debug_pub.debug_off;
1911: oe_Debug_pub.setdebuglevel(0);
1912:
1913: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1914: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
1907: ROLLBACK TO Call_Process_Order_for_IReq;
1908:
1909: -- Added for 8583903
1910: oe_debug_pub.debug_off;
1911: oe_Debug_pub.setdebuglevel(0);
1912:
1913: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1914: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
1915: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1919: G_Update_ISO_From_Req := FALSE; -- Confirming IR initiated change
1920: ROLLBACK TO Call_Process_Order_for_IReq;
1921:
1922: -- Added for 8583903
1923: oe_debug_pub.debug_off;
1924: oe_Debug_pub.setdebuglevel(0);
1925:
1926: WHEN OTHERS THEN
1927: oe_debug_pub.add( ' When Others of OE_Internal_Requisition_Pvt.Call_Process_Order_for_IReq '||sqlerrm,1);
1920: ROLLBACK TO Call_Process_Order_for_IReq;
1921:
1922: -- Added for 8583903
1923: oe_debug_pub.debug_off;
1924: oe_Debug_pub.setdebuglevel(0);
1925:
1926: WHEN OTHERS THEN
1927: oe_debug_pub.add( ' When Others of OE_Internal_Requisition_Pvt.Call_Process_Order_for_IReq '||sqlerrm,1);
1928: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
1923: oe_debug_pub.debug_off;
1924: oe_Debug_pub.setdebuglevel(0);
1925:
1926: WHEN OTHERS THEN
1927: oe_debug_pub.add( ' When Others of OE_Internal_Requisition_Pvt.Call_Process_Order_for_IReq '||sqlerrm,1);
1928: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
1929: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1930: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1931: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Call_Process_Order_for_IReq');
1937: G_Update_ISO_From_Req := FALSE; -- Confirming IR initiated change
1938: ROLLBACK TO Call_Process_Order_for_IReq;
1939:
1940: -- Added for 8583903
1941: oe_debug_pub.debug_off;
1942: oe_Debug_pub.setdebuglevel(0);
1943:
1944: End Call_Process_Order_for_IReq;
1945:
1938: ROLLBACK TO Call_Process_Order_for_IReq;
1939:
1940: -- Added for 8583903
1941: oe_debug_pub.debug_off;
1942: oe_Debug_pub.setdebuglevel(0);
1943:
1944: End Call_Process_Order_for_IReq;
1945:
1946: END OE_INTERNAL_REQUISITION_PVT;