[Home] [Help]
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:
32: select l.line_id
33: , l.line_number
34: , l.shipment_number
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 ) ;
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.
94: OE_MSG_PUB.Add;
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);
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'
104: END IF;
105: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
106: End Get_Eligible_ISO_Shipment;
107:
108:
109: Function Update_Allowed -- Body definition
454: END IF;
455:
456:
457: OE_ORDER_PVT.Lines
458: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
459: , p_control_rec => l_control_rec
460: , p_x_line_tbl => l_x_line_tbl
461: , p_x_old_line_tbl => l_x_old_line_tbl
462: , x_return_status => l_return_status);
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;
470: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
471: RAISE FND_API.G_EXC_ERROR;
472: END IF;
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;
470: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
471: RAISE FND_API.G_EXC_ERROR;
472: END IF;
473:
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;
470: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
471: RAISE FND_API.G_EXC_ERROR;
472: END IF;
473:
474: IF p_mode = 'P' THEN -- Mode is PROCESS
467:
468: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
470: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
471: RAISE FND_API.G_EXC_ERROR;
472: END IF;
473:
474: IF p_mode = 'P' THEN -- Mode is PROCESS
475:
479: , p_line_tbl => l_x_line_tbl
480: , p_old_line_tbl => l_x_old_line_tbl
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;
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
490: oe_debug_pub.add( 'Process_requests_and_notify RET_STS_ERROR',1 ) ;
491: END IF;
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
490: oe_debug_pub.add( 'Process_requests_and_notify RET_STS_ERROR',1 ) ;
491: END IF;
492: RAISE FND_API.G_EXC_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
495: OE_SALES_CAN_UTIL.Call_Process_Fulfillment(p_header_id => l_header_id);
496: END IF;
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
507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
508: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
509: OE_MSG_PUB.Add_Exc_Msg
510: ( G_PKG_NAME
503: END IF;
504:
505: EXCEPTION
506: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
508: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
509: OE_MSG_PUB.Add_Exc_Msg
510: ( G_PKG_NAME
511: , 'Process_Line_Entity' );
510: ( G_PKG_NAME
511: , 'Process_Line_Entity' );
512: END IF;
513:
514: WHEN FND_API.G_EXC_ERROR THEN
515: x_return_status := FND_API.G_RET_STS_ERROR;
516:
517: WHEN OTHERS THEN
518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
511: , 'Process_Line_Entity' );
512: END IF;
513:
514: WHEN FND_API.G_EXC_ERROR THEN
515: x_return_status := FND_API.G_RET_STS_ERROR;
516:
517: WHEN OTHERS THEN
518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
519: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
514: WHEN FND_API.G_EXC_ERROR THEN
515: x_return_status := FND_API.G_RET_STS_ERROR;
516:
517: WHEN OTHERS THEN
518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
519: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
520: OE_MSG_PUB.Add_Exc_Msg
521: ( G_PKG_NAME
522: , 'Process_Line_Entity' );
570: , message => '*** The Order Mangement Debug Log Dir/File is '||l_file_val);
571: END IF;
572: END IF;
573:
574: IF Not FND_API.Compatible_API_Call
575: ( l_API_version
576: , p_API_version
577: , l_API_name
578: , G_PKG_Name) THEN
575: ( l_API_version
576: , p_API_version
577: , l_API_name
578: , G_PKG_Name) THEN
579: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
580: END IF;
581:
582: SavePoint Apply_Hold_For_IReq;
583:
590: -- OE_MSG_PUB.set_msg_context();
591: -- No need to set the message context as the caller of this API is PO
592: -- and Message window is not applicable in Requesting organization
593:
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);
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;
622: END IF;
623: Exception
624: When No_Data_Found Then
625: oe_debug_pub.add( ' Invalid value passed for Requisition Line',5);
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;
630: End;
631: ELSE
632: l_req_hdr_id := P_internal_req_header_id;
633: END IF;
637: , P_internal_req_header_id => P_internal_req_header_id
638: , X_line_ids_rec => l_line_ids_rec
639: , X_return_status => l_return_status );
640:
641: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
642: RAISE FND_API.G_EXC_ERROR;
643: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
644: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
645: END IF;
638: , X_line_ids_rec => l_line_ids_rec
639: , X_return_status => l_return_status );
640:
641: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
642: RAISE FND_API.G_EXC_ERROR;
643: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
644: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
645: END IF;
646:
639: , X_return_status => l_return_status );
640:
641: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
642: RAISE FND_API.G_EXC_ERROR;
643: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
644: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
645: END IF;
646:
647: IF l_debug_level > 0 THEN
640:
641: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
642: RAISE FND_API.G_EXC_ERROR;
643: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
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);
662: , x_msg_count => l_msg_count
663: , x_msg_data => l_msg_data );
664: OE_GLOBALS.G_SYS_HOLD := FALSE; -- bug 9494397
665:
666: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
667: RAISE FND_API.G_EXC_ERROR;
668: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
669: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
670: END IF;
663: , x_msg_data => l_msg_data );
664: OE_GLOBALS.G_SYS_HOLD := FALSE; -- bug 9494397
665:
666: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
667: RAISE FND_API.G_EXC_ERROR;
668: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
669: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
670: END IF;
671:
664: OE_GLOBALS.G_SYS_HOLD := FALSE; -- bug 9494397
665:
666: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
667: RAISE FND_API.G_EXC_ERROR;
668: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
669: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
670: END IF;
671:
672: x_return_status := l_return_status;
665:
666: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
667: RAISE FND_API.G_EXC_ERROR;
668: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
669: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
670: END IF;
671:
672: x_return_status := l_return_status;
673:
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');
689: x_return_status := FND_API.G_RET_STS_ERROR;
690: OE_MSG_PUB.Count_And_Get (P_encoded =>'F', --added for bug 13992154
691: P_Count => x_msg_Count,
685:
686: Exception
687: WHEN FND_API.G_EXC_ERROR THEN
688: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
689: x_return_status := FND_API.G_RET_STS_ERROR;
690: OE_MSG_PUB.Count_And_Get (P_encoded =>'F', --added for bug 13992154
691: P_Count => x_msg_Count,
692: P_Data => x_msg_Data);
693: ROLLBACK TO Apply_Hold_For_IReq;
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');
702: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
703: OE_MSG_PUB.Count_And_Get (P_encoded =>'F', --added for bug 13992154
704: P_Count => x_msg_Count,
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');
702: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
703: OE_MSG_PUB.Count_And_Get (P_encoded =>'F', --added for bug 13992154
704: P_Count => x_msg_Count,
705: P_Data => x_msg_Data);
706: ROLLBACK TO Apply_Hold_For_IReq;
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');
719: -- Pkg Body global variable = 'OE_internal_Requisition_Pvt'
720: END IF;
775: , message => '*** The Order Mangement Debug Log Dir/File is '||l_file_val);
776: END IF;
777: END IF;
778:
779: IF Not FND_API.Compatible_API_Call
780: ( l_API_version
781: , p_API_version
782: , l_API_name
783: , G_PKG_Name) THEN
780: ( l_API_version
781: , p_API_version
782: , l_API_name
783: , G_PKG_Name) THEN
784: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
785: END IF;
786:
787: SavePoint Release_Hold_For_IReq;
788:
795: -- OE_MSG_PUB.set_msg_context();
796: -- No need to set the message context as the caller of this API is PO
797: -- and Message window is not applicable in Requesting organization
798:
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);
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;
827: END IF;
828: Exception
829: When No_Data_Found Then
830: oe_debug_pub.add( ' Invalid value passed for Requisition Line',5);
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;
835: End;
836: ELSE
837: l_req_hdr_id := P_internal_req_header_id;
838: END IF;
879: , x_msg_count => l_msg_count
880: , x_msg_data => l_msg_data );
881: OE_GLOBALS.G_SYS_HOLD := FALSE; -- bug 9494397
882:
883: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
884: RAISE FND_API.G_EXC_ERROR;
885: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
886: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
887: END IF;
880: , x_msg_data => l_msg_data );
881: OE_GLOBALS.G_SYS_HOLD := FALSE; -- bug 9494397
882:
883: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
884: RAISE FND_API.G_EXC_ERROR;
885: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
886: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
887: END IF;
888:
881: OE_GLOBALS.G_SYS_HOLD := FALSE; -- bug 9494397
882:
883: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
884: RAISE FND_API.G_EXC_ERROR;
885: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
886: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
887: END IF;
888:
889: Exception
882:
883: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
884: RAISE FND_API.G_EXC_ERROR;
885: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
886: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
887: END IF;
888:
889: Exception
890: When No_Data_Found Then
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;
906: X_return_status := FND_API.G_RET_STS_ERROR;
907: End;
908:
909: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
910: -- Not resetting the message because it was never initialized
925: oe_Debug_pub.setdebuglevel(0);
926:
927:
928: Exception
929: WHEN FND_API.G_EXC_ERROR THEN
930: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
931: x_return_status := FND_API.G_RET_STS_ERROR;
932: OE_MSG_PUB.Count_And_Get (P_encoded =>'F', --added for bug 13992154
933: P_Count => x_msg_Count,
927:
928: Exception
929: WHEN FND_API.G_EXC_ERROR THEN
930: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
931: x_return_status := FND_API.G_RET_STS_ERROR;
932: OE_MSG_PUB.Count_And_Get (P_encoded =>'F', --added for bug 13992154
933: P_Count => x_msg_Count,
934: P_Data => x_msg_Data);
935: ROLLBACK TO Release_Hold_For_IReq;
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
944: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
945: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
946: OE_MSG_PUB.Count_And_Get (P_encoded =>'F', --added for bug 13992154
947: P_Count => x_msg_Count,
941:
942:
943: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
944: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
945: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
946: OE_MSG_PUB.Count_And_Get (P_encoded =>'F', --added for bug 13992154
947: P_Count => x_msg_Count,
948: P_Data => x_msg_Data);
949: ROLLBACK TO Release_Hold_For_IReq;
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');
962: -- Pkg Body global variable = 'OE_internal_Requisition_Pvt'
963: END IF;
1035: , message => '*** The Order Mangement Debug Log Dir/File is '||l_file_val);
1036: END IF;
1037: END IF;
1038:
1039: IF Not FND_API.Compatible_API_Call
1040: ( l_API_version
1041: , p_API_version
1042: , l_API_name
1043: , G_PKG_Name) THEN
1040: ( l_API_version
1041: , p_API_version
1042: , l_API_name
1043: , G_PKG_Name) THEN
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 ) ;
1053: -- OE_MSG_PUB.set_msg_context();
1054: -- No need to set the message context as the caller of this API is PO
1055: -- and Message window is not applicable in Requesting organization
1056:
1057: l_return_status := FND_API.G_RET_STS_SUCCESS;
1058: X_Update_Allowed := FALSE;
1059: X_Cancel_Allowed := FALSE;
1060:
1061: IF P_internal_req_header_id is NULL AND P_internal_req_line_id is NULL 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
1155: END IF;
1156: X_Cancel_Allowed := FALSE;
1157: FND_Message.Set_Name('ONT', 'OE_IRCMS_INVALID_REQ_HDR');
1158: OE_MSG_PUB.Add;
1159: RAISE FND_API.G_EXC_ERROR;
1160: End;
1161: END IF;
1162:
1163: IF P_internal_req_header_id is NULL AND P_internal_req_line_id is NOT 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;
1180: END IF;
1181: Exception
1182: When No_Data_Found Then
1183: oe_debug_pub.add( ' Invalid value passed for Requisition Line',5);
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;
1188: End;
1189: ELSE
1190: l_req_hdr_id := P_internal_req_header_id;
1191: END IF;
1195: , P_internal_req_header_id => l_req_hdr_id
1196: , X_line_ids_rec => l_line_ids_rec
1197: , X_return_status => l_return_status );
1198:
1199: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1200: RAISE FND_API.G_EXC_ERROR;
1201: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1202: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1203: END IF;
1196: , X_line_ids_rec => l_line_ids_rec
1197: , X_return_status => l_return_status );
1198:
1199: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1200: RAISE FND_API.G_EXC_ERROR;
1201: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1202: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1203: END IF;
1204:
1197: , X_return_status => l_return_status );
1198:
1199: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1200: RAISE FND_API.G_EXC_ERROR;
1201: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1202: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1203: END IF;
1204:
1205: IF l_debug_level > 0 THEN
1198:
1199: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1200: RAISE FND_API.G_EXC_ERROR;
1201: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
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);
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');
1277: x_return_status := FND_API.G_RET_STS_ERROR;
1278: X_Update_Allowed := FALSE;
1279: X_Cancel_Allowed := FALSE;
1273:
1274: Exception
1275: WHEN FND_API.G_EXC_ERROR THEN
1276: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
1277: x_return_status := FND_API.G_RET_STS_ERROR;
1278: X_Update_Allowed := FALSE;
1279: X_Cancel_Allowed := FALSE;
1280: OE_MSG_PUB.Count_And_Get (P_encoded =>'F', --added for bug 13992154
1281: P_Count => x_msg_Count,
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;
1291: X_Update_Allowed := FALSE;
1292: X_Cancel_Allowed := FALSE;
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;
1291: X_Update_Allowed := FALSE;
1292: X_Cancel_Allowed := FALSE;
1293: OE_MSG_PUB.Count_And_Get (P_encoded =>'F', --added for bug 13992154
1294: P_Count => x_msg_Count,
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;
1307: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1308: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Is_IReq_Changable');
1403: , message => '*** The Order Mangement Debug Log Dir/File is '||l_file_val);
1404: END IF;
1405: END IF;
1406:
1407: IF Not FND_API.Compatible_API_Call
1408: ( l_API_version
1409: , p_API_version
1410: , l_API_name
1411: , G_PKG_Name) THEN
1408: ( l_API_version
1409: , p_API_version
1410: , l_API_name
1411: , G_PKG_Name) THEN
1412: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1413: END IF;
1414:
1415: SavePoint Call_Process_Order_for_IReq;
1416:
1438: -- and Message window is not applicable in Requesting organization
1439:
1440: OE_msg_PUB.Initialize;
1441:
1442: l_return_status := FND_API.G_RET_STS_SUCCESS;
1443:
1444: IF (NOT P_Cancel_ISO AND NOT P_Cancel_ISO_Lines AND
1445: P_New_Request_Date is NULL AND P_Delta_Ordered_Qty = 0) OR
1446: (P_Cancel_ISO AND P_Cancel_ISO_Lines) OR
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
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
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;
1496: RAISE FND_API.G_EXC_ERROR;
1497: END IF;
1498: Exception
1499: When No_Data_Found Then
1500: IF l_debug_level > 0 THEN
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;
1506: RAISE FND_API.G_EXC_ERROR;
1507: End;
1508: ELSE
1509: l_req_hdr_id := P_internal_req_header_id;
1510: END IF;
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
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;
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;
1542:
1543: l_Cancel_Allowed := Cancel_Header_Allowed( P_header_id => l_order_header_id);
1544:
1626: -- This global is required to be set to TRUE if it is an internal sales
1627: -- order level cancellation.
1628:
1629: oe_order_pvt.Header
1630: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
1631: , p_control_rec => l_control_rec
1632: , p_x_header_rec => l_header_rec
1633: , p_x_old_header_rec => l_old_header_rec
1634: , x_return_status => l_return_status );
1633: , p_x_old_header_rec => l_old_header_rec
1634: , x_return_status => l_return_status );
1635:
1636:
1637: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1638: OE_MSG_PUB.Reset_Msg_Context('HEADER');
1639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1640: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1641: OE_MSG_PUB.Reset_Msg_Context('HEADER');
1635:
1636:
1637: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1638: OE_MSG_PUB.Reset_Msg_Context('HEADER');
1639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1640: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1641: OE_MSG_PUB.Reset_Msg_Context('HEADER');
1642: RAISE FND_API.G_EXC_ERROR;
1643: END IF;
1636:
1637: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1638: OE_MSG_PUB.Reset_Msg_Context('HEADER');
1639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1640: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1641: OE_MSG_PUB.Reset_Msg_Context('HEADER');
1642: RAISE FND_API.G_EXC_ERROR;
1643: END IF;
1644:
1638: OE_MSG_PUB.Reset_Msg_Context('HEADER');
1639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1640: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1641: OE_MSG_PUB.Reset_Msg_Context('HEADER');
1642: RAISE FND_API.G_EXC_ERROR;
1643: END IF;
1644:
1645: IF P_Mode = 'P' THEN -- Mode is Process
1646: OE_Order_PVT.Process_Requests_And_Notify
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 ) ;
1661: END IF;
1662: OE_MSG_PUB.Reset_Msg_Context('HEADER');
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
1665: IF l_debug_level > 0 THEN
1666: oe_debug_pub.add( ' CANCELLATION EXPECTED FAILURE',1 ) ;
1667: END IF;
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
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');
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;
1671: END IF; -- P_Mode = PROCESS
1672:
1673: OE_OE_FORM_CANCEL_LINE.g_ord_lvl_can := FALSE;
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
1693:
1694: IF (P_New_Request_Date IS NOT NULL OR ( P_Delta_Ordered_Qty IS NOT NULL
1699: , P_internal_req_header_id => l_req_hdr_id
1700: , X_line_ids_rec => l_line_ids_rec
1701: , X_return_status => l_return_status );
1702:
1703: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1704: RAISE FND_API.G_EXC_ERROR;
1705: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1706: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1707: END IF;
1700: , X_line_ids_rec => l_line_ids_rec
1701: , X_return_status => l_return_status );
1702:
1703: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1704: RAISE FND_API.G_EXC_ERROR;
1705: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1706: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1707: END IF;
1708:
1701: , X_return_status => l_return_status );
1702:
1703: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1704: RAISE FND_API.G_EXC_ERROR;
1705: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1706: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1707: END IF;
1708:
1709: IF P_Cancel_ISO_Lines THEN
1702:
1703: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1704: RAISE FND_API.G_EXC_ERROR;
1705: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1706: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1707: END IF;
1708:
1709: IF P_Cancel_ISO_Lines THEN
1710: IF l_debug_level > 0 THEN
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
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
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
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
1844: END IF; -- something has changed
1845: END IF; -- Update/Cancel Request
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
1880: RAISE FND_API.G_EXC_ERROR;
1881: END IF;
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
1880: RAISE FND_API.G_EXC_ERROR;
1881: END IF;
1882: END IF;
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
1880: RAISE FND_API.G_EXC_ERROR;
1881: END IF;
1882: END IF;
1883:
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
1880: RAISE FND_API.G_EXC_ERROR;
1881: END IF;
1882: END IF;
1883:
1884: x_return_status := l_return_status;
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');
1902: x_return_status := FND_API.G_RET_STS_ERROR;
1903: OE_MSG_PUB.Count_And_Get (P_encoded =>'F', --added for bug 13992154
1904: P_Count => x_msg_Count,
1898:
1899: Exception
1900: WHEN FND_API.G_EXC_ERROR THEN
1901: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
1902: x_return_status := FND_API.G_RET_STS_ERROR;
1903: OE_MSG_PUB.Count_And_Get (P_encoded =>'F', --added for bug 13992154
1904: P_Count => x_msg_Count,
1905: P_Data => x_msg_Data);
1906: G_Update_ISO_From_Req := FALSE; -- Confirming IR initiated change
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;
1916: OE_MSG_PUB.Count_And_Get (P_encoded =>'F', --added for bug 13992154
1917: P_Count => x_msg_Count,
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;
1916: OE_MSG_PUB.Count_And_Get (P_encoded =>'F', --added for bug 13992154
1917: P_Count => x_msg_Count,
1918: P_Data => x_msg_Data);
1919: G_Update_ISO_From_Req := FALSE; -- Confirming IR initiated change
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');
1932: -- Pkg Body global variable = 'OE_internal_Requisition_Pvt'
1933: END IF;