122: END IF;
123: END IF;
124: END IF;
125:
126: l_return_status := FND_API.G_RET_STS_SUCCESS;
127:
128: IF p_notify_for is NULL AND NOT P_cancel_order THEN
129: IF l_debug_level > 0 THEN
130: oe_debug_pub.add( ' RETURN. No notification will be send as nothing has updated on the requisition', 5);
550: oe_debug_pub.add( 'EXITING OE_Process_Requisition_Pvt.Prepare_Notification', 1 ) ;
551: END IF;
552:
553: Exception
554: WHEN FND_API.G_EXC_ERROR THEN
555: x_return_status := FND_API.G_RET_STS_ERROR;
556: -- OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
557: -- P_Data => x_msg_Data);
558:
551: END IF;
552:
553: Exception
554: WHEN FND_API.G_EXC_ERROR THEN
555: x_return_status := FND_API.G_RET_STS_ERROR;
556: -- OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
557: -- P_Data => x_msg_Data);
558:
559: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
555: x_return_status := FND_API.G_RET_STS_ERROR;
556: -- OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
557: -- P_Data => x_msg_Data);
558:
559: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
561: -- OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
562: -- P_Data => x_msg_Data);
563:
556: -- OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
557: -- P_Data => x_msg_Data);
558:
559: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
561: -- OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
562: -- P_Data => x_msg_Data);
563:
564: WHEN OTHERS THEN
562: -- P_Data => x_msg_Data);
563:
564: WHEN OTHERS THEN
565: oe_debug_pub.add( ' When Others of OE_Process_Requisition_Pvt.Prepare_Notification '||sqlerrm,1);
566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
567: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
568: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Prepare_Notification');
569: -- Pkg Body global variable = OE_Process_Requisition_Pvt
570: END IF;
656: oe_debug_pub.add( ' Not a line level cancellation',5);
657: END IF;
658: END IF;
659:
660: l_return_status := FND_API.G_RET_STS_SUCCESS;
661:
662: IF NOT P_Cancel_Line and NOT P_Cancel_Order
663: AND (P_Quantity_Change is null OR P_Quantity_Change = 0)
664: AND (P_Quantity2_Change is null OR P_Quantity2_Change = 0) --Bug 14211120
665: AND P_New_Schedule_Ship_Date is null THEN
666: IF l_debug_level > 0 THEN
667: oe_debug_pub.add( ' Nothing to update on Requisition', 5 ) ;
668: END IF;
669: -- RAISE FND_API.G_EXC_ERROR;
670: x_return_status := l_return_status;
671: RETURN;
672: END IF;
673:
722: IF l_debug_level > 0 THEN
723: oe_debug_pub.add( ' After PO_RCO_Validation_GRP.Update_ReqCancel_from_SO '||l_return_status, 1 ) ;
724: END IF;
725:
726: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
727: -- Sales order and corresponding internal requisition has been cancelled
728: FND_Message.Set_Name('ONT', 'OE_IRCMS_REQ_CANCEL');
729: OE_MSG_PUB.Add;
730: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
726: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
727: -- Sales order and corresponding internal requisition has been cancelled
728: FND_Message.Set_Name('ONT', 'OE_IRCMS_REQ_CANCEL');
729: OE_MSG_PUB.Add;
730: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
731: -- Unable to save the changes as the corresponding Internal Requisition can not be updated
732: FND_Message.Set_Name('ONT', 'OE_IRCMS_REQ_FAIL');
733: OE_MSG_PUB.Add;
734: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
730: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
731: -- Unable to save the changes as the corresponding Internal Requisition can not be updated
732: FND_Message.Set_Name('ONT', 'OE_IRCMS_REQ_FAIL');
733: OE_MSG_PUB.Add;
734: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
735: RAISE FND_API.G_EXC_ERROR;
736: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
737: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
738: END IF;
731: -- Unable to save the changes as the corresponding Internal Requisition can not be updated
732: FND_Message.Set_Name('ONT', 'OE_IRCMS_REQ_FAIL');
733: OE_MSG_PUB.Add;
734: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
735: RAISE FND_API.G_EXC_ERROR;
736: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
737: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
738: END IF;
739: END IF;
732: FND_Message.Set_Name('ONT', 'OE_IRCMS_REQ_FAIL');
733: OE_MSG_PUB.Add;
734: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
735: RAISE FND_API.G_EXC_ERROR;
736: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
737: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
738: END IF;
739: END IF;
740:
733: OE_MSG_PUB.Add;
734: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
735: RAISE FND_API.G_EXC_ERROR;
736: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
737: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
738: END IF;
739: END IF;
740:
741: l_create_notification := TRUE;
811: IF l_debug_level > 0 THEN
812: oe_debug_pub.add( ' After PO_RCO_Validation_GRP.Update_ReqCancel_from_SO '||l_return_status, 5 ) ;
813: END IF;
814:
815: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
816: -- Sales order and corresponding internal requisition line has been cancelled
817: FND_Message.Set_Name('ONT', 'OE_IRCMS_REQ_LIN_CANCEL');
818: OE_MSG_PUB.Add;
819: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
815: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
816: -- Sales order and corresponding internal requisition line has been cancelled
817: FND_Message.Set_Name('ONT', 'OE_IRCMS_REQ_LIN_CANCEL');
818: OE_MSG_PUB.Add;
819: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
820: -- Unable to save the changes as the corresponding Internal Requisition can not be updated
821: FND_Message.Set_Name('ONT', 'OE_IRCMS_REQ_FAIL');
822: OE_MSG_PUB.Add;
823: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
819: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
820: -- Unable to save the changes as the corresponding Internal Requisition can not be updated
821: FND_Message.Set_Name('ONT', 'OE_IRCMS_REQ_FAIL');
822: OE_MSG_PUB.Add;
823: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
824: RAISE FND_API.G_EXC_ERROR;
825: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
827: END IF;
820: -- Unable to save the changes as the corresponding Internal Requisition can not be updated
821: FND_Message.Set_Name('ONT', 'OE_IRCMS_REQ_FAIL');
822: OE_MSG_PUB.Add;
823: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
824: RAISE FND_API.G_EXC_ERROR;
825: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
827: END IF;
828: END IF;
821: FND_Message.Set_Name('ONT', 'OE_IRCMS_REQ_FAIL');
822: OE_MSG_PUB.Add;
823: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
824: RAISE FND_API.G_EXC_ERROR;
825: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
827: END IF;
828: END IF;
829:
822: OE_MSG_PUB.Add;
823: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
824: RAISE FND_API.G_EXC_ERROR;
825: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
827: END IF;
828: END IF;
829:
830: L_change := 'C'; -- Line cancellation
982: IF l_debug_level > 0 THEN
983: oe_debug_pub.add( ' After PO_RCO_Validation_GRP.Update_ReqChange_from_SO '||l_return_status, 1);
984: END IF;
985:
986: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
987: IF L_change = 'Q' THEN -- Q => Quantity
988: -- Ordered quantity, Supply picture, and corresponding internal
989: -- requisition line have been updated
990: g_reason := OE_GLOBALS.G_REASON_CODE;
1005: -- 'OE_GLOBALS.G_REASON_COMMENTS'
1006: FND_Message.Set_Name('ONT', 'OE_IRCMS_QTY_DATE_UDPATE');
1007: OE_MSG_PUB.Add;
1008: END IF;
1009: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1010: -- Unable to save the changes as the corresponding Internal Requisition can not be updated
1011: FND_Message.Set_Name('ONT', 'OE_IRCMS_REQ_FAIL');
1012: OE_MSG_PUB.Add;
1013: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1009: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1010: -- Unable to save the changes as the corresponding Internal Requisition can not be updated
1011: FND_Message.Set_Name('ONT', 'OE_IRCMS_REQ_FAIL');
1012: OE_MSG_PUB.Add;
1013: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1014: RAISE FND_API.G_EXC_ERROR;
1015: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1016: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1017: END IF;
1010: -- Unable to save the changes as the corresponding Internal Requisition can not be updated
1011: FND_Message.Set_Name('ONT', 'OE_IRCMS_REQ_FAIL');
1012: OE_MSG_PUB.Add;
1013: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1014: RAISE FND_API.G_EXC_ERROR;
1015: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1016: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1017: END IF;
1018: END IF;
1011: FND_Message.Set_Name('ONT', 'OE_IRCMS_REQ_FAIL');
1012: OE_MSG_PUB.Add;
1013: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1014: RAISE FND_API.G_EXC_ERROR;
1015: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1016: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1017: END IF;
1018: END IF;
1019:
1012: OE_MSG_PUB.Add;
1013: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1014: RAISE FND_API.G_EXC_ERROR;
1015: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1016: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1017: END IF;
1018: END IF;
1019:
1020: l_create_notification := TRUE;
1087: IF l_debug_level > 0 THEN
1088: oe_debug_pub.add( ' After PO_RCO_Validation_GRP.Get_Preparer_Name '||l_return_status, 1 ) ;
1089: END IF;
1090:
1091: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1092: -- Unable to save the changes as the corresponding Internal Requisition can not be updated
1093: FND_Message.Set_Name('ONT', 'OE_IRCMS_REQ_FAIL');
1094: OE_MSG_PUB.Add;
1095: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1091: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1092: -- Unable to save the changes as the corresponding Internal Requisition can not be updated
1093: FND_Message.Set_Name('ONT', 'OE_IRCMS_REQ_FAIL');
1094: OE_MSG_PUB.Add;
1095: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1096: RAISE FND_API.G_EXC_ERROR;
1097: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1098: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1099: END IF;
1092: -- Unable to save the changes as the corresponding Internal Requisition can not be updated
1093: FND_Message.Set_Name('ONT', 'OE_IRCMS_REQ_FAIL');
1094: OE_MSG_PUB.Add;
1095: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1096: RAISE FND_API.G_EXC_ERROR;
1097: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1098: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1099: END IF;
1100: END IF;
1093: FND_Message.Set_Name('ONT', 'OE_IRCMS_REQ_FAIL');
1094: OE_MSG_PUB.Add;
1095: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1096: RAISE FND_API.G_EXC_ERROR;
1097: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1098: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1099: END IF;
1100: END IF;
1101:
1094: OE_MSG_PUB.Add;
1095: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1096: RAISE FND_API.G_EXC_ERROR;
1097: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1098: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1099: END IF;
1100: END IF;
1101:
1102: IF l_preparer_name IS NULL THEN
1122: , p_req_line_id => p_req_line_id
1123: , x_return_status => l_return_status
1124: );
1125:
1126: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1127: RAISE FND_API.G_EXC_ERROR;
1128: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1129: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1130: END IF;
1123: , x_return_status => l_return_status
1124: );
1125:
1126: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1127: RAISE FND_API.G_EXC_ERROR;
1128: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1129: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1130: END IF;
1131:
1124: );
1125:
1126: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1127: RAISE FND_API.G_EXC_ERROR;
1128: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1129: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1130: END IF;
1131:
1132: END IF;
1125:
1126: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1127: RAISE FND_API.G_EXC_ERROR;
1128: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1129: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1130: END IF;
1131:
1132: END IF;
1133:
1159: oe_debug_pub.add( 'EXITING OE_Process_Requisition_Pvt.Update_Internal_Requisition', 1 ) ;
1160: END IF;
1161:
1162: Exception
1163: WHEN FND_API.G_EXC_ERROR THEN
1164: x_return_status := FND_API.G_RET_STS_ERROR;
1165: OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
1166: P_Data => x_msg_Data);
1167:
1160: END IF;
1161:
1162: Exception
1163: WHEN FND_API.G_EXC_ERROR THEN
1164: x_return_status := FND_API.G_RET_STS_ERROR;
1165: OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
1166: P_Data => x_msg_Data);
1167:
1168: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1164: x_return_status := FND_API.G_RET_STS_ERROR;
1165: OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
1166: P_Data => x_msg_Data);
1167:
1168: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1170: OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
1171: P_Data => x_msg_Data);
1172:
1165: OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
1166: P_Data => x_msg_Data);
1167:
1168: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1170: OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
1171: P_Data => x_msg_Data);
1172:
1173: WHEN OTHERS THEN
1171: P_Data => x_msg_Data);
1172:
1173: WHEN OTHERS THEN
1174: oe_debug_pub.add( ' When Others of OE_Process_Requisition_Pvt.Update_Internal_Requisition '||sqlerrm,1);
1175: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1176: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1177: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Update_Internal_Requisition');
1178: -- Pkg Body global variable = OE_Process_Requisition_Pvt
1179: END IF;