542: END IF;
543:
544: x_return_status := l_return_status;
545:
546: -- OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
547: -- P_Data => x_msg_Data);
548:
549: IF l_debug_level > 0 THEN
550: oe_debug_pub.add( 'EXITING OE_Process_Requisition_Pvt.Prepare_Notification', 1 ) ;
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
560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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
565: oe_debug_pub.add( ' When Others of OE_Process_Requisition_Pvt.Prepare_Notification '||sqlerrm,1);
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;
571: -- OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
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;
571: -- OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
572: -- P_Data => x_msg_Data);
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;
571: -- OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
572: -- P_Data => x_msg_Data);
573:
574: End Prepare_Notification;
575:
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
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;
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
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;
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
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;
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
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;
989: -- requisition line have been updated
990: g_reason := OE_GLOBALS.G_REASON_CODE;
991: -- 'OE_GLOBALS.G_REASON_COMMENTS'
992: FND_Message.Set_Name('ONT', 'OE_IRCMS_QTY_UDPATE');
993: OE_MSG_PUB.Add;
994: ELSIF L_change = 'D' THEN -- D => Date
995: -- Schedule Ship/Arrival date and corresponding internal
996: -- requisition line have been updated
997: g_reason := OE_GLOBALS.G_REASON_CODE;
996: -- requisition line have been updated
997: g_reason := OE_GLOBALS.G_REASON_CODE;
998: -- 'OE_GLOBALS.G_REASON_COMMENTS'
999: FND_Message.Set_Name('ONT', 'OE_IRCMS_DATE_UDPATE');
1000: OE_MSG_PUB.Add;
1001: ELSIF L_change = 'B' THEN -- B => Both Date and Quantity
1002: -- Schedule Ship/Arrival date, Ordered quantity, Supply picture,
1003: -- and corresponding internal requisition line have been updated
1004: g_reason := OE_GLOBALS.G_REASON_CODE;
1003: -- and corresponding internal requisition line have been updated
1004: 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');
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
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;
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
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;
1151: g_updated_quantity2 := NULL; --Bug 14211120
1152:
1153: x_return_status := l_return_status;
1154:
1155: OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
1156: P_Data => x_msg_Data);
1157:
1158: IF l_debug_level > 0 THEN
1159: oe_debug_pub.add( 'EXITING OE_Process_Requisition_Pvt.Update_Internal_Requisition', 1 ) ;
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
1169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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
1174: oe_debug_pub.add( ' When Others of OE_Process_Requisition_Pvt.Update_Internal_Requisition '||sqlerrm,1);
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;
1180: OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
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;
1180: OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
1181: P_Data => x_msg_Data);
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;
1180: OE_MSG_PUB.Count_And_Get (P_Count => x_msg_Count,
1181: P_Data => x_msg_Data);
1182:
1183: End Update_Internal_Requisition;
1184: