48:
49: BEGIN
50:
51: /* Initialize return status to sucess */
52: x_return_status := FND_API.G_RET_STS_SUCCESS;
53:
54: /* Assign All default Values To Record Type */
55:
56: l_summ_inv.onhand_qty :=0;
136: IF NOT GMI_SUMM_INV_DB_PVT.INSERT_IC_SUMM_INV( p_summ_inv => l_summ_inv)
137: THEN
138: FND_MESSAGE.SET_NAME('GMI','GMI_IC_SUMM_INV_INSERT');
139: FND_MSG_PUB.ADD;
140: RAISE FND_API.G_EXC_ERROR;
141: END IF;
142: END IF;
143:
144: EXCEPTION
141: END IF;
142: END IF;
143:
144: EXCEPTION
145: WHEN FND_API.G_EXC_ERROR THEN
146:
147: x_return_status := FND_API.G_RET_STS_ERROR;
148:
149: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
143:
144: EXCEPTION
145: WHEN FND_API.G_EXC_ERROR THEN
146:
147: x_return_status := FND_API.G_RET_STS_ERROR;
148:
149: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
151:
145: WHEN FND_API.G_EXC_ERROR THEN
146:
147: x_return_status := FND_API.G_RET_STS_ERROR;
148:
149: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
151:
152: WHEN OTHERS THEN
153: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
146:
147: x_return_status := FND_API.G_RET_STS_ERROR;
148:
149: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
151:
152: WHEN OTHERS THEN
153: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
154:
149: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
151:
152: WHEN OTHERS THEN
153: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
154:
155: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
156: , 'PENDING');
157:
172: l_lots_sts IC_LOTS_STS%ROWTYPE;
173: BEGIN
174:
175: /* Initialize return status to sucess */
176: x_return_status := FND_API.G_RET_STS_SUCCESS;
177:
178: /* Assign All default Values To Record Type */
179:
180: l_summ_inv.onhand_qty :=0;
226:
227: FND_MESSAGE.SET_NAME('GMI','IC_INVALID_LOT_STATUS');
228: FND_MESSAGE.SET_TOKEN('LOT_STATUS', p_tran_rec.lot_status);
229: FND_MSG_PUB.Add;
230: RAISE FND_API.G_EXC_ERROR;
231: END IF;
232:
233: END IF;
234:
268: IF NOT GMI_SUMM_INV_DB_PVT.INSERT_IC_SUMM_INV( p_summ_inv => l_summ_inv)
269: THEN
270: FND_MESSAGE.SET_NAME('GMI','GMI_IC_SUMM_INV_INSERT');
271: FND_MSG_PUB.ADD;
272: RAISE FND_API.G_EXC_ERROR;
273: END IF;
274: END IF;
275:
276: EXCEPTION
274: END IF;
275:
276: EXCEPTION
277:
278: WHEN FND_API.G_EXC_ERROR THEN
279:
280: x_return_status := FND_API.G_RET_STS_ERROR;
281:
282: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
276: EXCEPTION
277:
278: WHEN FND_API.G_EXC_ERROR THEN
279:
280: x_return_status := FND_API.G_RET_STS_ERROR;
281:
282: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
284:
278: WHEN FND_API.G_EXC_ERROR THEN
279:
280: x_return_status := FND_API.G_RET_STS_ERROR;
281:
282: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
284:
285: WHEN OTHERS THEN
286: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
279:
280: x_return_status := FND_API.G_RET_STS_ERROR;
281:
282: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
284:
285: WHEN OTHERS THEN
286: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
287:
282: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
284:
285: WHEN OTHERS THEN
286: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
287:
288: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
289: , 'COMPLETED');
290: