23: oe_debug_pub.add( ' Requisition Line id :'||P_internal_req_line_id , 5 ) ;
24: oe_debug_pub.add( ' Requisition Header id :'||P_internal_req_header_id , 5) ;
25: END IF;
26:
27: X_return_status := FND_API.G_RET_STS_SUCCESS;
28:
29: select l.line_id
30: , l.line_number
31: , l.shipment_number
78: END IF;
79: FND_Message.Set_Name('ONT', 'OE_IRCMS_NOT_ELIGIBLE');
80: -- There is no sales order line shipment eligible for update/cancellation.
81: OE_MSG_PUB.Add;
82: X_return_status := FND_API.G_RET_STS_ERROR;
83:
84: WHEN TOO_MANY_ROWS THEN
85: IF l_debug_level > 0 THEN
86: oe_debug_pub.add( ' EXITING Get_Eligible_ISO_Shipment with Too Many Rows error', 1 ) ;
88: FND_Message.Set_Name('ONT', 'OE_IRCMS_TOO_MANY_ROWS');
89: -- There are multiple sales order line shipments eligible for update.
90: -- This is not allowed.
91: OE_MSG_PUB.Add;
92: X_return_status := FND_API.G_RET_STS_ERROR;
93:
94: WHEN OTHERS THEN
95: IF l_debug_level > 0 THEN
96: oe_debug_pub.add( ' EXITING Get_Eligible_ISO_Shipment with others error'||sqlerrm,1);
98: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
99: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Get_Eligible_ISO_Shipment');
100: -- Pkg Body global variable = 'OE_internal_Requisition_Pv'
101: END IF;
102: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
103: End Get_Eligible_ISO_Shipment;
104:
105:
106: Function Update_Allowed -- Body definition
451: END IF;
452:
453:
454: OE_ORDER_PVT.Lines
455: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
456: , p_control_rec => l_control_rec
457: , p_x_line_tbl => l_x_line_tbl
458: , p_x_old_line_tbl => l_x_old_line_tbl
459: , x_return_status => l_return_status);
461: IF l_debug_level > 0 THEN
462: oe_debug_pub.add( ' After OE_Order_Pvt.Lines: '||l_return_status);
463: END IF;
464:
465: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
466: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
467: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
468: RAISE FND_API.G_EXC_ERROR;
469: END IF;
462: oe_debug_pub.add( ' After OE_Order_Pvt.Lines: '||l_return_status);
463: END IF;
464:
465: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
466: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
467: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
468: RAISE FND_API.G_EXC_ERROR;
469: END IF;
470:
463: END IF;
464:
465: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
466: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
467: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
468: RAISE FND_API.G_EXC_ERROR;
469: END IF;
470:
471: IF p_mode = 'P' THEN -- Mode is PROCESS
464:
465: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
466: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
467: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
468: RAISE FND_API.G_EXC_ERROR;
469: END IF;
470:
471: IF p_mode = 'P' THEN -- Mode is PROCESS
472:
476: , p_line_tbl => l_x_line_tbl
477: , p_old_line_tbl => l_x_old_line_tbl
478: , x_return_status => l_return_status );
479:
480: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
481: IF l_debug_level > 0 THEN
482: oe_debug_pub.add( ' Process_requests_and_notify UNEXP_ERROR',1 ) ;
483: END IF;
484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
480: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
481: IF l_debug_level > 0 THEN
482: oe_debug_pub.add( ' Process_requests_and_notify UNEXP_ERROR',1 ) ;
483: END IF;
484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
485: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
486: IF l_debug_level > 0 THEN
487: oe_debug_pub.add( 'Process_requests_and_notify RET_STS_ERROR',1 ) ;
488: END IF;
481: IF l_debug_level > 0 THEN
482: oe_debug_pub.add( ' Process_requests_and_notify UNEXP_ERROR',1 ) ;
483: END IF;
484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
485: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
486: IF l_debug_level > 0 THEN
487: oe_debug_pub.add( 'Process_requests_and_notify RET_STS_ERROR',1 ) ;
488: END IF;
489: RAISE FND_API.G_EXC_ERROR;
485: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
486: IF l_debug_level > 0 THEN
487: oe_debug_pub.add( 'Process_requests_and_notify RET_STS_ERROR',1 ) ;
488: END IF;
489: RAISE FND_API.G_EXC_ERROR;
490: END IF;
491: IF P_Cancel THEN
492: OE_SALES_CAN_UTIL.Call_Process_Fulfillment(p_header_id => l_header_id);
493: END IF;
499: oe_debug_pub.add( 'EXITING OE_Internal_Requisition_Pvt.Process_Line_Entity', 1 ) ;
500: END IF;
501:
502: EXCEPTION
503: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
504: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
505: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
506: OE_MSG_PUB.Add_Exc_Msg
507: ( G_PKG_NAME
500: END IF;
501:
502: EXCEPTION
503: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
504: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
505: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
506: OE_MSG_PUB.Add_Exc_Msg
507: ( G_PKG_NAME
508: , 'Process_Line_Entity' );
507: ( G_PKG_NAME
508: , 'Process_Line_Entity' );
509: END IF;
510:
511: WHEN FND_API.G_EXC_ERROR THEN
512: x_return_status := FND_API.G_RET_STS_ERROR;
513:
514: WHEN OTHERS THEN
515: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
508: , 'Process_Line_Entity' );
509: END IF;
510:
511: WHEN FND_API.G_EXC_ERROR THEN
512: x_return_status := FND_API.G_RET_STS_ERROR;
513:
514: WHEN OTHERS THEN
515: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
516: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
511: WHEN FND_API.G_EXC_ERROR THEN
512: x_return_status := FND_API.G_RET_STS_ERROR;
513:
514: WHEN OTHERS THEN
515: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
516: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
517: OE_MSG_PUB.Add_Exc_Msg
518: ( G_PKG_NAME
519: , 'Process_Line_Entity' );
548: --
549:
550: Begin
551:
552: IF Not FND_API.Compatible_API_Call
553: ( l_API_version
554: , p_API_version
555: , l_API_name
556: , G_PKG_Name) THEN
553: ( l_API_version
554: , p_API_version
555: , l_API_name
556: , G_PKG_Name) THEN
557: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
558: END IF;
559:
560: SavePoint Apply_Hold_For_IReq;
561:
568: -- OE_MSG_PUB.set_msg_context();
569: -- No need to set the message context as the caller of this API is PO
570: -- and Message window is not applicable in Requesting organization
571:
572: l_return_status := FND_API.G_RET_STS_SUCCESS;
573:
574: IF P_internal_req_line_id is NULL THEN
575: IF l_debug_level > 0 THEN
576: oe_debug_pub.add( ' Invalid value passed for Requisition Line',1);
577: END IF;
578: FND_Message.Set_Name('ONT', 'OE_IRCMS_INVALID_REQ_LIN');
579: -- FND_Message.Set_Token('REQ_LIN_ID',' P_internal_req_line_id');
580: OE_MSG_PUB.Add;
581: RAISE FND_API.G_EXC_ERROR;
582: END IF;
583: IF P_internal_req_header_id is NULL THEN
584: IF l_debug_level > 0 THEN
585: oe_debug_pub.add( ' No value passed for Requisition Header',1);
595: oe_debug_pub.add( ' Invalid value for Requisition Header',5);
596: FND_Message.Set_Name('ONT', 'OE_IRCMS_INVALID_REQ_HDR');
597: -- FND_Message.Set_Token('REQ_HDR_ID',P_internal_req_header_id);
598: OE_MSG_PUB.Add;
599: RAISE FND_API.G_EXC_ERROR;
600: END IF;
601: Exception
602: When No_Data_Found Then
603: oe_debug_pub.add( ' Invalid value passed for Requisition Line',5);
603: oe_debug_pub.add( ' Invalid value passed for Requisition Line',5);
604: FND_Message.Set_Name('ONT', 'OE_IRCMS_INVALID_REQ_LIN');
605: -- FND_Message.Set_Token('REQ_LIN_ID',P_internal_req_line_id);
606: OE_MSG_PUB.Add;
607: RAISE FND_API.G_EXC_ERROR;
608: End;
609: ELSE
610: l_req_hdr_id := P_internal_req_header_id;
611: END IF;
615: , P_internal_req_header_id => P_internal_req_header_id
616: , X_line_ids_rec => l_line_ids_rec
617: , X_return_status => l_return_status );
618:
619: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
620: RAISE FND_API.G_EXC_ERROR;
621: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
623: END IF;
616: , X_line_ids_rec => l_line_ids_rec
617: , X_return_status => l_return_status );
618:
619: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
620: RAISE FND_API.G_EXC_ERROR;
621: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
623: END IF;
624:
617: , X_return_status => l_return_status );
618:
619: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
620: RAISE FND_API.G_EXC_ERROR;
621: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
623: END IF;
624:
625: IF l_debug_level > 0 THEN
618:
619: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
620: RAISE FND_API.G_EXC_ERROR;
621: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
623: END IF;
624:
625: IF l_debug_level > 0 THEN
626: oe_debug_pub.add( ' Applying hold for line_id '||l_line_ids_rec.line_id,5);
638: , x_return_status => l_return_status
639: , x_msg_count => l_msg_count
640: , x_msg_data => l_msg_data );
641:
642: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
643: RAISE FND_API.G_EXC_ERROR;
644: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
645: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
646: END IF;
639: , x_msg_count => l_msg_count
640: , x_msg_data => l_msg_data );
641:
642: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
643: RAISE FND_API.G_EXC_ERROR;
644: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
645: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
646: END IF;
647:
640: , x_msg_data => l_msg_data );
641:
642: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
643: RAISE FND_API.G_EXC_ERROR;
644: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
645: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
646: END IF;
647:
648: x_return_status := l_return_status;
641:
642: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
643: RAISE FND_API.G_EXC_ERROR;
644: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
645: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
646: END IF;
647:
648: x_return_status := l_return_status;
649:
654: oe_debug_pub.add( 'EXITING OE_Internal_Requisition_Pvt.Apply_Hold_for_IReq', 1 ) ;
655: END IF;
656:
657: Exception
658: WHEN FND_API.G_EXC_ERROR THEN
659: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
660: x_return_status := FND_API.G_RET_STS_ERROR;
661: OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
662: P_Data => x_msg_Data);
656:
657: Exception
658: WHEN FND_API.G_EXC_ERROR THEN
659: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
660: x_return_status := FND_API.G_RET_STS_ERROR;
661: OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
662: P_Data => x_msg_Data);
663: ROLLBACK TO Apply_Hold_For_IReq;
664:
661: OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
662: P_Data => x_msg_Data);
663: ROLLBACK TO Apply_Hold_For_IReq;
664:
665: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
666: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
668: OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
669: P_Data => x_msg_Data);
663: ROLLBACK TO Apply_Hold_For_IReq;
664:
665: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
666: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
668: OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
669: P_Data => x_msg_Data);
670: ROLLBACK TO Apply_Hold_For_IReq;
671:
671:
672: WHEN OTHERS THEN
673: oe_debug_pub.add( ' When Others of OE_Internal_Requisition_Pvt.Apply_Hold_for_IReq '||sqlerrm,1);
674: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
676: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
677: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Apply_Hold_for_IReq');
678: -- Pkg Body global variable = 'OE_internal_Requisition_Pvt'
679: END IF;
709: --
710:
711: Begin
712:
713: IF Not FND_API.Compatible_API_Call
714: ( l_API_version
715: , p_API_version
716: , l_API_name
717: , G_PKG_Name) THEN
714: ( l_API_version
715: , p_API_version
716: , l_API_name
717: , G_PKG_Name) THEN
718: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
719: END IF;
720:
721: SavePoint Release_Hold_For_IReq;
722:
729: -- OE_MSG_PUB.set_msg_context();
730: -- No need to set the message context as the caller of this API is PO
731: -- and Message window is not applicable in Requesting organization
732:
733: l_return_status := FND_API.G_RET_STS_SUCCESS;
734:
735: IF P_internal_req_line_id is NULL THEN
736: IF l_debug_level > 0 THEN
737: oe_debug_pub.add( ' Invalid value passed for Requisition Line',1);
738: END IF;
739: FND_Message.Set_Name('ONT', 'OE_IRCMS_INVALID_REQ_LIN');
740: -- FND_Message.Set_Token('REQ_LIN_ID',P_internal_req_line_id);
741: OE_MSG_PUB.Add;
742: RAISE FND_API.G_EXC_ERROR;
743: END IF;
744: IF P_internal_req_header_id is NULL THEN
745: IF l_debug_level > 0 THEN
746: oe_debug_pub.add( ' No value passed for Requisition Header',1);
756: oe_debug_pub.add( ' Invalid value for Requisition Header',5);
757: FND_Message.Set_Name('ONT', 'OE_IRCMS_INVALID_REQ_HDR');
758: -- FND_Message.Set_Token('REQ_HDR_ID',P_internal_req_header_id);
759: OE_MSG_PUB.Add;
760: RAISE FND_API.G_EXC_ERROR;
761: END IF;
762: Exception
763: When No_Data_Found Then
764: oe_debug_pub.add( ' Invalid value passed for Requisition Line',5);
764: oe_debug_pub.add( ' Invalid value passed for Requisition Line',5);
765: FND_Message.Set_Name('ONT', 'OE_IRCMS_INVALID_REQ_LIN');
766: -- FND_Message.Set_Token('REQ_LIN_ID',P_internal_req_line_id);
767: OE_MSG_PUB.Add;
768: RAISE FND_API.G_EXC_ERROR;
769: End;
770: ELSE
771: l_req_hdr_id := P_internal_req_header_id;
772: END IF;
811: , x_return_status => l_return_status
812: , x_msg_count => l_msg_count
813: , x_msg_data => l_msg_data );
814:
815: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
816: RAISE FND_API.G_EXC_ERROR;
817: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
818: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
819: END IF;
812: , x_msg_count => l_msg_count
813: , x_msg_data => l_msg_data );
814:
815: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
816: RAISE FND_API.G_EXC_ERROR;
817: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
818: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
819: END IF;
820:
813: , x_msg_data => l_msg_data );
814:
815: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
816: RAISE FND_API.G_EXC_ERROR;
817: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
818: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
819: END IF;
820:
821: Exception
814:
815: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
816: RAISE FND_API.G_EXC_ERROR;
817: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
818: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
819: END IF;
820:
821: Exception
822: When No_Data_Found Then
825: END IF;
826: FND_Message.Set_Name('ONT', 'OE_IRCMS_NO_HOLD_RELEASED');
827: -- There is no sales order line shipment on hold.
828: OE_MSG_PUB.Add;
829: X_return_status := FND_API.G_RET_STS_ERROR;
830:
831: When Too_Many_Rows Then
832: IF l_debug_level > 0 THEN
833: oe_debug_pub.add('EXITING OE_Internal_Requisition_Pvt.Release_Hold_for_Ireq with Too Many rows error') ;
834: END IF;
835: FND_Message.Set_Name('ONT', 'OE_IRCMS_MANY_HOLD');
836: -- There are many sales order line shipments eligible for hold release. This is not allowed.
837: OE_MSG_PUB.Add;
838: X_return_status := FND_API.G_RET_STS_ERROR;
839: End;
840:
841: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
842: -- Not resetting the message because it was never initialized
851: oe_debug_pub.add( 'EXITING OE_Internal_Requisition_Pvt.Release_Hold_for_IReq', 1 ) ;
852: END IF;
853:
854: Exception
855: WHEN FND_API.G_EXC_ERROR THEN
856: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
857: x_return_status := FND_API.G_RET_STS_ERROR;
858: OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
859: P_Data => x_msg_Data);
853:
854: Exception
855: WHEN FND_API.G_EXC_ERROR THEN
856: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
857: x_return_status := FND_API.G_RET_STS_ERROR;
858: OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
859: P_Data => x_msg_Data);
860: ROLLBACK TO Release_Hold_For_IReq;
861:
859: P_Data => x_msg_Data);
860: ROLLBACK TO Release_Hold_For_IReq;
861:
862:
863: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
864: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
865: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
866: OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
867: P_Data => x_msg_Data);
861:
862:
863: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
864: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
865: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
866: OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
867: P_Data => x_msg_Data);
868: ROLLBACK TO Release_Hold_For_IReq;
869:
869:
870: WHEN OTHERS THEN
871: oe_debug_pub.add( ' When Others of OE_Internal_Requisition_Pvt.Release_Hold_for_IReq '||sqlerrm,1);
872: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
873: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
874: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
875: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Release_Hold_for_IReq');
876: -- Pkg Body global variable = 'OE_internal_Requisition_Pvt'
877: END IF;
924: --
925:
926: Begin
927:
928: IF Not FND_API.Compatible_API_Call
929: ( l_API_version
930: , p_API_version
931: , l_API_name
932: , G_PKG_Name) THEN
929: ( l_API_version
930: , p_API_version
931: , l_API_name
932: , G_PKG_Name) THEN
933: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
934: END IF;
935:
936: IF l_debug_level > 0 THEN
937: oe_debug_pub.add( 'ENTERING OE_Internal_Requisition_Pvt.Is_IReq_Changable', 1 ) ;
942: -- OE_MSG_PUB.set_msg_context();
943: -- No need to set the message context as the caller of this API is PO
944: -- and Message window is not applicable in Requesting organization
945:
946: l_return_status := FND_API.G_RET_STS_SUCCESS;
947: X_Update_Allowed := FALSE;
948: X_Cancel_Allowed := FALSE;
949:
950: IF P_internal_req_header_id is NULL AND P_internal_req_line_id is NULL THEN
952: oe_debug_pub.add( ' Invalid value for Requisition Header/Line',1);
953: END IF;
954: FND_Message.Set_Name('ONT', 'OE_IRCMS_INVALID_REQ_INFO');
955: OE_MSG_PUB.Add;
956: RAISE FND_API.G_EXC_ERROR;
957: END IF;
958:
959: IF P_internal_req_header_id is NOT NULL AND P_internal_req_line_id is NULL THEN
960: IF l_debug_level > 0 THEN
1044: END IF;
1045: X_Cancel_Allowed := FALSE;
1046: FND_Message.Set_Name('ONT', 'OE_IRCMS_INVALID_REQ_HDR');
1047: OE_MSG_PUB.Add;
1048: RAISE FND_API.G_EXC_ERROR;
1049: End;
1050: END IF;
1051:
1052: IF P_internal_req_header_id is NULL AND P_internal_req_line_id is NOT NULL THEN
1064: oe_debug_pub.add( ' Invalid value for Requisition Header',5);
1065: FND_Message.Set_Name('ONT', 'OE_IRCMS_INVALID_REQ_HDR');
1066: -- FND_Message.Set_Token('REQ_HDR_ID',P_internal_req_header_id);
1067: OE_MSG_PUB.Add;
1068: RAISE FND_API.G_EXC_ERROR;
1069: END IF;
1070: Exception
1071: When No_Data_Found Then
1072: oe_debug_pub.add( ' Invalid value passed for Requisition Line',5);
1072: oe_debug_pub.add( ' Invalid value passed for Requisition Line',5);
1073: FND_Message.Set_Name('ONT', 'OE_IRCMS_INVALID_REQ_LIN');
1074: -- FND_Message.Set_Token('REQ_LIN_ID',P_internal_req_line_id);
1075: OE_MSG_PUB.Add;
1076: RAISE FND_API.G_EXC_ERROR;
1077: End;
1078: ELSE
1079: l_req_hdr_id := P_internal_req_header_id;
1080: END IF;
1084: , P_internal_req_header_id => l_req_hdr_id
1085: , X_line_ids_rec => l_line_ids_rec
1086: , X_return_status => l_return_status );
1087:
1088: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1089: RAISE FND_API.G_EXC_ERROR;
1090: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1091: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1092: END IF;
1085: , X_line_ids_rec => l_line_ids_rec
1086: , X_return_status => l_return_status );
1087:
1088: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1089: RAISE FND_API.G_EXC_ERROR;
1090: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1091: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1092: END IF;
1093:
1086: , X_return_status => l_return_status );
1087:
1088: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1089: RAISE FND_API.G_EXC_ERROR;
1090: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1091: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1092: END IF;
1093:
1094: IF l_debug_level > 0 THEN
1087:
1088: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1089: RAISE FND_API.G_EXC_ERROR;
1090: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1091: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1092: END IF;
1093:
1094: IF l_debug_level > 0 THEN
1095: oe_debug_pub.add( ' Line id: '||l_line_ids_rec.line_id,5);
1155: oe_debug_pub.add( 'EXITING OE_Internal_Requisition_Pvt.Is_IReq_Changable', 1 ) ;
1156: END IF;
1157:
1158: Exception
1159: WHEN FND_API.G_EXC_ERROR THEN
1160: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
1161: x_return_status := FND_API.G_RET_STS_ERROR;
1162: X_Update_Allowed := FALSE;
1163: X_Cancel_Allowed := FALSE;
1157:
1158: Exception
1159: WHEN FND_API.G_EXC_ERROR THEN
1160: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
1161: x_return_status := FND_API.G_RET_STS_ERROR;
1162: X_Update_Allowed := FALSE;
1163: X_Cancel_Allowed := FALSE;
1164: OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
1165: P_Data => x_msg_Data);
1163: X_Cancel_Allowed := FALSE;
1164: OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
1165: P_Data => x_msg_Data);
1166:
1167: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1168: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
1169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1170: X_Update_Allowed := FALSE;
1171: X_Cancel_Allowed := FALSE;
1165: P_Data => x_msg_Data);
1166:
1167: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1168: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
1169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1170: X_Update_Allowed := FALSE;
1171: X_Cancel_Allowed := FALSE;
1172: OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
1173: P_Data => x_msg_Data);
1174:
1175: WHEN OTHERS THEN
1176: oe_debug_pub.add( ' When Others of OE_Internal_Requisition_Pvt.Is_IReq_Changable '||sqlerrm,1);
1177: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
1178: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1179: X_Update_Allowed := FALSE;
1180: X_Cancel_Allowed := FALSE;
1181: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1182: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Is_IReq_Changable');
1252: --
1253:
1254: Begin
1255:
1256: IF Not FND_API.Compatible_API_Call
1257: ( l_API_version
1258: , p_API_version
1259: , l_API_name
1260: , G_PKG_Name) THEN
1257: ( l_API_version
1258: , p_API_version
1259: , l_API_name
1260: , G_PKG_Name) THEN
1261: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1262: END IF;
1263:
1264: SavePoint Call_Process_Order_for_IReq;
1265:
1287: -- and Message window is not applicable in Requesting organization
1288:
1289: OE_msg_PUB.Initialize;
1290:
1291: l_return_status := FND_API.G_RET_STS_SUCCESS;
1292:
1293: IF (NOT P_Cancel_ISO AND NOT P_Cancel_ISO_Lines AND
1294: P_New_Request_Date is NULL AND P_Delta_Ordered_Qty = 0) OR
1295: (P_Cancel_ISO AND P_Cancel_ISO_Lines) OR
1308: oe_debug_pub.add( ' Please provide a valid argument values', 5 ) ;
1309: END IF;
1310: FND_Message.Set_Name('ONT', 'OE_IRCMS_INVALID_OM_CALL');
1311: OE_MSG_PUB.Add;
1312: RAISE FND_API.G_EXC_ERROR;
1313: END IF;
1314:
1315: IF P_Mode NOT IN ('V','P') THEN
1316: IF l_debug_level > 0 THEN
1318: oe_debug_pub.add( ' Invalid Mode passed to Fulfillment Organization',5);
1319: END IF;
1320: FND_Message.Set_Name('ONT', 'OE_IRCMS_INVALID_MODE');
1321: OE_MSG_PUB.Add;
1322: RAISE FND_API.G_EXC_ERROR;
1323: END IF;
1324:
1325: IF P_internal_req_header_id is NULL THEN
1326: IF l_debug_level > 0 THEN
1341: END IF;
1342: FND_Message.Set_Name('ONT', 'OE_IRCMS_INVALID_REQ_HDR');
1343: -- FND_Message.Set_Token('REQ_HDR_ID',P_internal_req_header_id);
1344: OE_MSG_PUB.Add;
1345: RAISE FND_API.G_EXC_ERROR;
1346: END IF;
1347: Exception
1348: When No_Data_Found Then
1349: IF l_debug_level > 0 THEN
1351: END IF;
1352: FND_Message.Set_Name('ONT', 'OE_IRCMS_INVALID_REQ_LIN');
1353: -- FND_Message.Set_Token('REQ_LIN_ID',P_internal_req_line_id);
1354: OE_MSG_PUB.Add;
1355: RAISE FND_API.G_EXC_ERROR;
1356: End;
1357: ELSE
1358: l_req_hdr_id := P_internal_req_header_id;
1359: END IF;
1379: IF l_debug_level > 0 THEN
1380: oe_debug_pub.add( ' Invalid value passed for Requisition Header: no data found',1);
1381: END IF;
1382: FND_Message.Set_name('ONT','OE_IRCMS_INVALID_REQ_HDR');
1383: RAISE FND_API.G_EXC_ERROR;
1384: WHEN Too_Many_Rows THEN
1385: IF l_debug_level > 0 THEN
1386: oe_debug_pub.add( ' Invalid value passed for Requisition Header: too many rows',1);
1387: END IF;
1385: IF l_debug_level > 0 THEN
1386: oe_debug_pub.add( ' Invalid value passed for Requisition Header: too many rows',1);
1387: END IF;
1388: FND_Message.Set_name('ONT','OE_IRCMS_INVALID_REQ_HDR');
1389: RAISE FND_API.G_EXC_ERROR;
1390: End;
1391:
1392: l_Cancel_Allowed := Cancel_Header_Allowed( P_header_id => l_order_header_id);
1393:
1475: -- This global is required to be set to TRUE if it is an internal sales
1476: -- order level cancellation.
1477:
1478: oe_order_pvt.Header
1479: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
1480: , p_control_rec => l_control_rec
1481: , p_x_header_rec => l_header_rec
1482: , p_x_old_header_rec => l_old_header_rec
1483: , x_return_status => l_return_status );
1482: , p_x_old_header_rec => l_old_header_rec
1483: , x_return_status => l_return_status );
1484:
1485:
1486: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1487: OE_MSG_PUB.Reset_Msg_Context('HEADER');
1488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1489: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1490: OE_MSG_PUB.Reset_Msg_Context('HEADER');
1484:
1485:
1486: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1487: OE_MSG_PUB.Reset_Msg_Context('HEADER');
1488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1489: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1490: OE_MSG_PUB.Reset_Msg_Context('HEADER');
1491: RAISE FND_API.G_EXC_ERROR;
1492: END IF;
1485:
1486: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1487: OE_MSG_PUB.Reset_Msg_Context('HEADER');
1488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1489: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1490: OE_MSG_PUB.Reset_Msg_Context('HEADER');
1491: RAISE FND_API.G_EXC_ERROR;
1492: END IF;
1493:
1487: OE_MSG_PUB.Reset_Msg_Context('HEADER');
1488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1489: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1490: OE_MSG_PUB.Reset_Msg_Context('HEADER');
1491: RAISE FND_API.G_EXC_ERROR;
1492: END IF;
1493:
1494: IF P_Mode = 'P' THEN -- Mode is Process
1495: OE_Order_PVT.Process_Requests_And_Notify
1503: x_return_status := l_return_status;
1504: IF l_debug_level > 0 THEN
1505: oe_debug_pub.add( ' Return Status is '||l_return_status,1) ;
1506: END IF;
1507: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1508: IF l_debug_level > 0 THEN
1509: oe_debug_pub.add( ' CANCELLATION UNEXPECTED FAILURE',1 ) ;
1510: END IF;
1511: OE_MSG_PUB.Reset_Msg_Context('HEADER');
1508: IF l_debug_level > 0 THEN
1509: oe_debug_pub.add( ' CANCELLATION UNEXPECTED FAILURE',1 ) ;
1510: END IF;
1511: OE_MSG_PUB.Reset_Msg_Context('HEADER');
1512: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1513: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1514: IF l_debug_level > 0 THEN
1515: oe_debug_pub.add( ' CANCELLATION EXPECTED FAILURE',1 ) ;
1516: END IF;
1509: oe_debug_pub.add( ' CANCELLATION UNEXPECTED FAILURE',1 ) ;
1510: END IF;
1511: OE_MSG_PUB.Reset_Msg_Context('HEADER');
1512: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1513: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1514: IF l_debug_level > 0 THEN
1515: oe_debug_pub.add( ' CANCELLATION EXPECTED FAILURE',1 ) ;
1516: END IF;
1517: OE_MSG_PUB.Reset_Msg_Context('HEADER');
1514: IF l_debug_level > 0 THEN
1515: oe_debug_pub.add( ' CANCELLATION EXPECTED FAILURE',1 ) ;
1516: END IF;
1517: OE_MSG_PUB.Reset_Msg_Context('HEADER');
1518: RAISE FND_API.G_EXC_ERROR;
1519: END IF;
1520: END IF; -- P_Mode = PROCESS
1521:
1522: OE_OE_FORM_CANCEL_LINE.g_ord_lvl_can := FALSE;
1535: ELSE
1536: IF l_debug_level > 0 THEN
1537: oe_debug_pub.add( ' There are Header level cancellation constraint',5);
1538: END IF;
1539: l_return_status := FND_API.G_RET_STS_ERROR;
1540: END IF;
1541: END IF; -- P_Cancel_Order
1542:
1543: IF (P_New_Request_Date IS NOT NULL OR ( P_Delta_Ordered_Qty IS NOT NULL
1548: , P_internal_req_header_id => l_req_hdr_id
1549: , X_line_ids_rec => l_line_ids_rec
1550: , X_return_status => l_return_status );
1551:
1552: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1553: RAISE FND_API.G_EXC_ERROR;
1554: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1555: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1556: END IF;
1549: , X_line_ids_rec => l_line_ids_rec
1550: , X_return_status => l_return_status );
1551:
1552: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1553: RAISE FND_API.G_EXC_ERROR;
1554: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1555: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1556: END IF;
1557:
1550: , X_return_status => l_return_status );
1551:
1552: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1553: RAISE FND_API.G_EXC_ERROR;
1554: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1555: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1556: END IF;
1557:
1558: IF P_Cancel_ISO_Lines THEN
1551:
1552: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1553: RAISE FND_API.G_EXC_ERROR;
1554: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1555: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1556: END IF;
1557:
1558: IF P_Cancel_ISO_Lines THEN
1559: IF l_debug_level > 0 THEN
1579: ELSE
1580: IF l_debug_level > 0 THEN
1581: oe_debug_pub.add(' Cancel is not allowed for this line. Setting the status to Error',5);
1582: END IF;
1583: l_return_status := FND_API.G_RET_STS_ERROR;
1584: END IF;
1585:
1586: ELSIF P_New_Request_Date IS NOT NULL OR ( P_Delta_Ordered_Qty IS NOT NULL
1587: AND p_Delta_Ordered_Qty <> 0) THEN -- This is an update request
1623: ELSE
1624: IF l_debug_level > 0 THEN
1625: oe_debug_pub.add(' Update is not allowed for this line. Setting the status to Error',5);
1626: END IF;
1627: l_return_status := FND_API.G_RET_STS_ERROR;
1628: END IF;
1629:
1630: ELSIF P_New_Request_Date IS NULL AND (P_Delta_Ordered_Qty IS NOT NULL
1631: OR p_Delta_Ordered_Qty <> 0) THEN
1654: ELSE
1655: IF l_debug_level > 0 THEN
1656: oe_debug_pub.add(' Update is not allowed for this line. Setting the status to Error',5);
1657: END IF;
1658: l_return_status := FND_API.G_RET_STS_ERROR;
1659: END IF;
1660:
1661: ELSIF P_New_Request_Date IS NOT NULL AND (P_Delta_Ordered_Qty IS NOT NULL
1662: OR p_Delta_Ordered_Qty <> 0) THEN
1686: ELSE
1687: IF l_debug_level > 0 THEN
1688: oe_debug_pub.add(' Update is not allowed for this line. Setting the status to Error',5);
1689: END IF;
1690: l_return_status := FND_API.G_RET_STS_ERROR;
1691: END IF;
1692: END IF; -- P_New_Request_Date/P_Delta_Ordered_Qty
1693: END IF; -- something has changed
1694: END IF; -- Update/Cancel Request
1722:
1723: IF l_debug_level > 0 THEN
1724: oe_debug_pub.add( ' After calling Process_Line_Entity'||l_return_status, 5 ) ;
1725: END IF;
1726: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1727: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1728: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1729: RAISE FND_API.G_EXC_ERROR;
1730: END IF;
1723: IF l_debug_level > 0 THEN
1724: oe_debug_pub.add( ' After calling Process_Line_Entity'||l_return_status, 5 ) ;
1725: END IF;
1726: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1727: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1728: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1729: RAISE FND_API.G_EXC_ERROR;
1730: END IF;
1731: END IF;
1724: oe_debug_pub.add( ' After calling Process_Line_Entity'||l_return_status, 5 ) ;
1725: END IF;
1726: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1727: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1728: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1729: RAISE FND_API.G_EXC_ERROR;
1730: END IF;
1731: END IF;
1732:
1725: END IF;
1726: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1727: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1728: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1729: RAISE FND_API.G_EXC_ERROR;
1730: END IF;
1731: END IF;
1732:
1733: x_return_status := l_return_status;
1740: oe_debug_pub.add( 'EXITING OE_Internal_Requisition_Pvt.Call_Process_Order_for_IReq', 1 ) ;
1741: END IF;
1742:
1743: Exception
1744: WHEN FND_API.G_EXC_ERROR THEN
1745: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
1746: x_return_status := FND_API.G_RET_STS_ERROR;
1747: OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
1748: P_Data => x_msg_Data);
1742:
1743: Exception
1744: WHEN FND_API.G_EXC_ERROR THEN
1745: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
1746: x_return_status := FND_API.G_RET_STS_ERROR;
1747: OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
1748: P_Data => x_msg_Data);
1749: G_Update_ISO_From_Req := FALSE; -- Confirming IR initiated change
1750: ROLLBACK TO Call_Process_Order_for_IReq;
1748: P_Data => x_msg_Data);
1749: G_Update_ISO_From_Req := FALSE; -- Confirming IR initiated change
1750: ROLLBACK TO Call_Process_Order_for_IReq;
1751:
1752: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1753: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
1754: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1755: OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
1756: P_Data => x_msg_Data);
1750: ROLLBACK TO Call_Process_Order_for_IReq;
1751:
1752: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1753: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
1754: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1755: OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
1756: P_Data => x_msg_Data);
1757: G_Update_ISO_From_Req := FALSE; -- Confirming IR initiated change
1758: ROLLBACK TO Call_Process_Order_for_IReq;
1759:
1760: WHEN OTHERS THEN
1761: oe_debug_pub.add( ' When Others of OE_Internal_Requisition_Pvt.Call_Process_Order_for_IReq '||sqlerrm,1);
1762: -- OE_MSG_PUB.Reset_Msg_Context('LINE');
1763: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1764: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1765: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Call_Process_Order_for_IReq');
1766: -- Pkg Body global variable = 'OE_internal_Requisition_Pvt'
1767: END IF;