129: -- Call INV_Transfer_Order_PVT.Process_Transfer_Order
130:
131: INV_Transfer_Order_PVT.Process_Transfer_Order
132: ( p_api_version_number => 1.0
133: , p_init_msg_list => FND_API.G_TRUE
134: , x_return_status => l_return_status
135: , x_msg_count => x_msg_count
136: , x_msg_data => x_msg_data
137: , p_control_rec => l_control_rec
139: , x_trohdr_rec => l_x_trohdr_rec
140: , x_trolin_tbl => l_x_trolin_tbl
141: );
142:
143: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
145: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
146: RAISE FND_API.G_EXC_ERROR;
147: END IF;
140: , x_trolin_tbl => l_x_trolin_tbl
141: );
142:
143: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
145: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
146: RAISE FND_API.G_EXC_ERROR;
147: END IF;
148:
141: );
142:
143: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
145: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
146: RAISE FND_API.G_EXC_ERROR;
147: END IF;
148:
149:
142:
143: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
145: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
146: RAISE FND_API.G_EXC_ERROR;
147: END IF;
148:
149:
150: -- Load OUT parameters.
194:
195: -- Write to cache.
196: -- Set db_flag to False before writing to cache
197:
198: l_x_trohdr_rec.db_flag := FND_API.G_FALSE;
199:
200: Write_trohdr
201: ( p_trohdr_rec => l_x_trohdr_rec
202: );
202: );
203:
204: -- Set return status.
205:
206: x_return_status := FND_API.G_RET_STS_SUCCESS;
207:
208: -- Get message count and data
209:
210: FND_MSG_PUB.Count_And_Get
214:
215:
216: EXCEPTION
217:
218: WHEN FND_API.G_EXC_ERROR THEN
219:
220: x_return_status := FND_API.G_RET_STS_ERROR;
221:
222: -- Get message count and data
216: EXCEPTION
217:
218: WHEN FND_API.G_EXC_ERROR THEN
219:
220: x_return_status := FND_API.G_RET_STS_ERROR;
221:
222: -- Get message count and data
223:
224: FND_MSG_PUB.Count_And_Get
225: ( p_count => x_msg_count
226: , p_data => x_msg_data
227: );
228:
229: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
230:
231: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
232:
233: -- Get message count and data
227: );
228:
229: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
230:
231: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
232:
233: -- Get message count and data
234:
235: FND_MSG_PUB.Count_And_Get
238: );
239:
240: WHEN OTHERS THEN
241:
242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
243:
244: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
245: THEN
246: FND_MSG_PUB.Add_Exc_Msg
324:
325: l_trohdr_rec.db_flag := p_db_flag;
326: -- Read trohdr from cache
327:
328: IF FND_API.To_Boolean(l_trohdr_rec.db_flag) THEN
329: l_trohdr_rec := Get_trohdr
330: ( p_db_record => FALSE
331: , p_header_id => p_header_id
332: );
367: l_trohdr_rec.attribute_category := p_attribute_category;
368:
369: -- Set Operation.
370:
371: IF FND_API.To_Boolean(l_trohdr_rec.db_flag) THEN
372: l_trohdr_rec.operation := INV_GLOBALS.G_OPR_UPDATE;
373: ELSE
374: l_trohdr_rec.operation := INV_GLOBALS.G_OPR_CREATE;
375: END IF;
377: -- Call INV_Transfer_Order_PVT.Process_Transfer_Order
378:
379: INV_Transfer_Order_PVT.Process_Transfer_Order
380: ( p_api_version_number => 1.0
381: , p_init_msg_list => FND_API.G_TRUE
382: , p_validation_level => FND_API.G_VALID_LEVEL_NONE
383: , x_return_status => l_return_status
384: , x_msg_count => x_msg_count
385: , x_msg_data => x_msg_data
378:
379: INV_Transfer_Order_PVT.Process_Transfer_Order
380: ( p_api_version_number => 1.0
381: , p_init_msg_list => FND_API.G_TRUE
382: , p_validation_level => FND_API.G_VALID_LEVEL_NONE
383: , x_return_status => l_return_status
384: , x_msg_count => x_msg_count
385: , x_msg_data => x_msg_data
386: , p_control_rec => l_control_rec
389: , x_trohdr_rec => l_x_trohdr_rec
390: , x_trolin_tbl => l_x_trolin_tbl
391: );
392:
393: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
395: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
396: RAISE FND_API.G_EXC_ERROR;
397: END IF;
390: , x_trolin_tbl => l_x_trolin_tbl
391: );
392:
393: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
395: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
396: RAISE FND_API.G_EXC_ERROR;
397: END IF;
398:
391: );
392:
393: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
395: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
396: RAISE FND_API.G_EXC_ERROR;
397: END IF;
398:
399:
392:
393: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
395: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
396: RAISE FND_API.G_EXC_ERROR;
397: END IF;
398:
399:
400: /*
399:
400: /*
401: -- Init OUT NOCOPY parameters to missing.
402:
403: x_attribute1 := FND_API.G_MISS_CHAR;
404: x_attribute10 := FND_API.G_MISS_CHAR;
405: x_attribute11 := FND_API.G_MISS_CHAR;
406: x_attribute12 := FND_API.G_MISS_CHAR;
407: x_attribute13 := FND_API.G_MISS_CHAR;
400: /*
401: -- Init OUT NOCOPY parameters to missing.
402:
403: x_attribute1 := FND_API.G_MISS_CHAR;
404: x_attribute10 := FND_API.G_MISS_CHAR;
405: x_attribute11 := FND_API.G_MISS_CHAR;
406: x_attribute12 := FND_API.G_MISS_CHAR;
407: x_attribute13 := FND_API.G_MISS_CHAR;
408: x_attribute14 := FND_API.G_MISS_CHAR;
401: -- Init OUT NOCOPY parameters to missing.
402:
403: x_attribute1 := FND_API.G_MISS_CHAR;
404: x_attribute10 := FND_API.G_MISS_CHAR;
405: x_attribute11 := FND_API.G_MISS_CHAR;
406: x_attribute12 := FND_API.G_MISS_CHAR;
407: x_attribute13 := FND_API.G_MISS_CHAR;
408: x_attribute14 := FND_API.G_MISS_CHAR;
409: x_attribute15 := FND_API.G_MISS_CHAR;
402:
403: x_attribute1 := FND_API.G_MISS_CHAR;
404: x_attribute10 := FND_API.G_MISS_CHAR;
405: x_attribute11 := FND_API.G_MISS_CHAR;
406: x_attribute12 := FND_API.G_MISS_CHAR;
407: x_attribute13 := FND_API.G_MISS_CHAR;
408: x_attribute14 := FND_API.G_MISS_CHAR;
409: x_attribute15 := FND_API.G_MISS_CHAR;
410: x_attribute2 := FND_API.G_MISS_CHAR;
403: x_attribute1 := FND_API.G_MISS_CHAR;
404: x_attribute10 := FND_API.G_MISS_CHAR;
405: x_attribute11 := FND_API.G_MISS_CHAR;
406: x_attribute12 := FND_API.G_MISS_CHAR;
407: x_attribute13 := FND_API.G_MISS_CHAR;
408: x_attribute14 := FND_API.G_MISS_CHAR;
409: x_attribute15 := FND_API.G_MISS_CHAR;
410: x_attribute2 := FND_API.G_MISS_CHAR;
411: x_attribute3 := FND_API.G_MISS_CHAR;
404: x_attribute10 := FND_API.G_MISS_CHAR;
405: x_attribute11 := FND_API.G_MISS_CHAR;
406: x_attribute12 := FND_API.G_MISS_CHAR;
407: x_attribute13 := FND_API.G_MISS_CHAR;
408: x_attribute14 := FND_API.G_MISS_CHAR;
409: x_attribute15 := FND_API.G_MISS_CHAR;
410: x_attribute2 := FND_API.G_MISS_CHAR;
411: x_attribute3 := FND_API.G_MISS_CHAR;
412: x_attribute4 := FND_API.G_MISS_CHAR;
405: x_attribute11 := FND_API.G_MISS_CHAR;
406: x_attribute12 := FND_API.G_MISS_CHAR;
407: x_attribute13 := FND_API.G_MISS_CHAR;
408: x_attribute14 := FND_API.G_MISS_CHAR;
409: x_attribute15 := FND_API.G_MISS_CHAR;
410: x_attribute2 := FND_API.G_MISS_CHAR;
411: x_attribute3 := FND_API.G_MISS_CHAR;
412: x_attribute4 := FND_API.G_MISS_CHAR;
413: x_attribute5 := FND_API.G_MISS_CHAR;
406: x_attribute12 := FND_API.G_MISS_CHAR;
407: x_attribute13 := FND_API.G_MISS_CHAR;
408: x_attribute14 := FND_API.G_MISS_CHAR;
409: x_attribute15 := FND_API.G_MISS_CHAR;
410: x_attribute2 := FND_API.G_MISS_CHAR;
411: x_attribute3 := FND_API.G_MISS_CHAR;
412: x_attribute4 := FND_API.G_MISS_CHAR;
413: x_attribute5 := FND_API.G_MISS_CHAR;
414: x_attribute6 := FND_API.G_MISS_CHAR;
407: x_attribute13 := FND_API.G_MISS_CHAR;
408: x_attribute14 := FND_API.G_MISS_CHAR;
409: x_attribute15 := FND_API.G_MISS_CHAR;
410: x_attribute2 := FND_API.G_MISS_CHAR;
411: x_attribute3 := FND_API.G_MISS_CHAR;
412: x_attribute4 := FND_API.G_MISS_CHAR;
413: x_attribute5 := FND_API.G_MISS_CHAR;
414: x_attribute6 := FND_API.G_MISS_CHAR;
415: x_attribute7 := FND_API.G_MISS_CHAR;
408: x_attribute14 := FND_API.G_MISS_CHAR;
409: x_attribute15 := FND_API.G_MISS_CHAR;
410: x_attribute2 := FND_API.G_MISS_CHAR;
411: x_attribute3 := FND_API.G_MISS_CHAR;
412: x_attribute4 := FND_API.G_MISS_CHAR;
413: x_attribute5 := FND_API.G_MISS_CHAR;
414: x_attribute6 := FND_API.G_MISS_CHAR;
415: x_attribute7 := FND_API.G_MISS_CHAR;
416: x_attribute8 := FND_API.G_MISS_CHAR;
409: x_attribute15 := FND_API.G_MISS_CHAR;
410: x_attribute2 := FND_API.G_MISS_CHAR;
411: x_attribute3 := FND_API.G_MISS_CHAR;
412: x_attribute4 := FND_API.G_MISS_CHAR;
413: x_attribute5 := FND_API.G_MISS_CHAR;
414: x_attribute6 := FND_API.G_MISS_CHAR;
415: x_attribute7 := FND_API.G_MISS_CHAR;
416: x_attribute8 := FND_API.G_MISS_CHAR;
417: x_attribute9 := FND_API.G_MISS_CHAR;
410: x_attribute2 := FND_API.G_MISS_CHAR;
411: x_attribute3 := FND_API.G_MISS_CHAR;
412: x_attribute4 := FND_API.G_MISS_CHAR;
413: x_attribute5 := FND_API.G_MISS_CHAR;
414: x_attribute6 := FND_API.G_MISS_CHAR;
415: x_attribute7 := FND_API.G_MISS_CHAR;
416: x_attribute8 := FND_API.G_MISS_CHAR;
417: x_attribute9 := FND_API.G_MISS_CHAR;
418: x_attribute_category := FND_API.G_MISS_CHAR;
411: x_attribute3 := FND_API.G_MISS_CHAR;
412: x_attribute4 := FND_API.G_MISS_CHAR;
413: x_attribute5 := FND_API.G_MISS_CHAR;
414: x_attribute6 := FND_API.G_MISS_CHAR;
415: x_attribute7 := FND_API.G_MISS_CHAR;
416: x_attribute8 := FND_API.G_MISS_CHAR;
417: x_attribute9 := FND_API.G_MISS_CHAR;
418: x_attribute_category := FND_API.G_MISS_CHAR;
419: x_date_required := FND_API.G_MISS_DATE;
412: x_attribute4 := FND_API.G_MISS_CHAR;
413: x_attribute5 := FND_API.G_MISS_CHAR;
414: x_attribute6 := FND_API.G_MISS_CHAR;
415: x_attribute7 := FND_API.G_MISS_CHAR;
416: x_attribute8 := FND_API.G_MISS_CHAR;
417: x_attribute9 := FND_API.G_MISS_CHAR;
418: x_attribute_category := FND_API.G_MISS_CHAR;
419: x_date_required := FND_API.G_MISS_DATE;
420: x_description := FND_API.G_MISS_CHAR;
413: x_attribute5 := FND_API.G_MISS_CHAR;
414: x_attribute6 := FND_API.G_MISS_CHAR;
415: x_attribute7 := FND_API.G_MISS_CHAR;
416: x_attribute8 := FND_API.G_MISS_CHAR;
417: x_attribute9 := FND_API.G_MISS_CHAR;
418: x_attribute_category := FND_API.G_MISS_CHAR;
419: x_date_required := FND_API.G_MISS_DATE;
420: x_description := FND_API.G_MISS_CHAR;
421: x_from_subinventory_code := FND_API.G_MISS_CHAR;
414: x_attribute6 := FND_API.G_MISS_CHAR;
415: x_attribute7 := FND_API.G_MISS_CHAR;
416: x_attribute8 := FND_API.G_MISS_CHAR;
417: x_attribute9 := FND_API.G_MISS_CHAR;
418: x_attribute_category := FND_API.G_MISS_CHAR;
419: x_date_required := FND_API.G_MISS_DATE;
420: x_description := FND_API.G_MISS_CHAR;
421: x_from_subinventory_code := FND_API.G_MISS_CHAR;
422: x_header_id := FND_API.G_MISS_NUM;
415: x_attribute7 := FND_API.G_MISS_CHAR;
416: x_attribute8 := FND_API.G_MISS_CHAR;
417: x_attribute9 := FND_API.G_MISS_CHAR;
418: x_attribute_category := FND_API.G_MISS_CHAR;
419: x_date_required := FND_API.G_MISS_DATE;
420: x_description := FND_API.G_MISS_CHAR;
421: x_from_subinventory_code := FND_API.G_MISS_CHAR;
422: x_header_id := FND_API.G_MISS_NUM;
423: x_header_status := FND_API.G_MISS_NUM;
416: x_attribute8 := FND_API.G_MISS_CHAR;
417: x_attribute9 := FND_API.G_MISS_CHAR;
418: x_attribute_category := FND_API.G_MISS_CHAR;
419: x_date_required := FND_API.G_MISS_DATE;
420: x_description := FND_API.G_MISS_CHAR;
421: x_from_subinventory_code := FND_API.G_MISS_CHAR;
422: x_header_id := FND_API.G_MISS_NUM;
423: x_header_status := FND_API.G_MISS_NUM;
424: x_organization_id := FND_API.G_MISS_NUM;
417: x_attribute9 := FND_API.G_MISS_CHAR;
418: x_attribute_category := FND_API.G_MISS_CHAR;
419: x_date_required := FND_API.G_MISS_DATE;
420: x_description := FND_API.G_MISS_CHAR;
421: x_from_subinventory_code := FND_API.G_MISS_CHAR;
422: x_header_id := FND_API.G_MISS_NUM;
423: x_header_status := FND_API.G_MISS_NUM;
424: x_organization_id := FND_API.G_MISS_NUM;
425: x_request_number := FND_API.G_MISS_CHAR;
418: x_attribute_category := FND_API.G_MISS_CHAR;
419: x_date_required := FND_API.G_MISS_DATE;
420: x_description := FND_API.G_MISS_CHAR;
421: x_from_subinventory_code := FND_API.G_MISS_CHAR;
422: x_header_id := FND_API.G_MISS_NUM;
423: x_header_status := FND_API.G_MISS_NUM;
424: x_organization_id := FND_API.G_MISS_NUM;
425: x_request_number := FND_API.G_MISS_CHAR;
426: x_status_date := FND_API.G_MISS_DATE;
419: x_date_required := FND_API.G_MISS_DATE;
420: x_description := FND_API.G_MISS_CHAR;
421: x_from_subinventory_code := FND_API.G_MISS_CHAR;
422: x_header_id := FND_API.G_MISS_NUM;
423: x_header_status := FND_API.G_MISS_NUM;
424: x_organization_id := FND_API.G_MISS_NUM;
425: x_request_number := FND_API.G_MISS_CHAR;
426: x_status_date := FND_API.G_MISS_DATE;
427: x_to_account_id := FND_API.G_MISS_NUM;
420: x_description := FND_API.G_MISS_CHAR;
421: x_from_subinventory_code := FND_API.G_MISS_CHAR;
422: x_header_id := FND_API.G_MISS_NUM;
423: x_header_status := FND_API.G_MISS_NUM;
424: x_organization_id := FND_API.G_MISS_NUM;
425: x_request_number := FND_API.G_MISS_CHAR;
426: x_status_date := FND_API.G_MISS_DATE;
427: x_to_account_id := FND_API.G_MISS_NUM;
428: x_to_subinventory_code := FND_API.G_MISS_CHAR;
421: x_from_subinventory_code := FND_API.G_MISS_CHAR;
422: x_header_id := FND_API.G_MISS_NUM;
423: x_header_status := FND_API.G_MISS_NUM;
424: x_organization_id := FND_API.G_MISS_NUM;
425: x_request_number := FND_API.G_MISS_CHAR;
426: x_status_date := FND_API.G_MISS_DATE;
427: x_to_account_id := FND_API.G_MISS_NUM;
428: x_to_subinventory_code := FND_API.G_MISS_CHAR;
429: x_move_order_type := FND_API.G_MISS_NUM;
422: x_header_id := FND_API.G_MISS_NUM;
423: x_header_status := FND_API.G_MISS_NUM;
424: x_organization_id := FND_API.G_MISS_NUM;
425: x_request_number := FND_API.G_MISS_CHAR;
426: x_status_date := FND_API.G_MISS_DATE;
427: x_to_account_id := FND_API.G_MISS_NUM;
428: x_to_subinventory_code := FND_API.G_MISS_CHAR;
429: x_move_order_type := FND_API.G_MISS_NUM;
430: x_transaction_type_id := FND_API.G_MISS_NUM;
423: x_header_status := FND_API.G_MISS_NUM;
424: x_organization_id := FND_API.G_MISS_NUM;
425: x_request_number := FND_API.G_MISS_CHAR;
426: x_status_date := FND_API.G_MISS_DATE;
427: x_to_account_id := FND_API.G_MISS_NUM;
428: x_to_subinventory_code := FND_API.G_MISS_CHAR;
429: x_move_order_type := FND_API.G_MISS_NUM;
430: x_transaction_type_id := FND_API.G_MISS_NUM;
431: x_from_subinventory := FND_API.G_MISS_CHAR;
424: x_organization_id := FND_API.G_MISS_NUM;
425: x_request_number := FND_API.G_MISS_CHAR;
426: x_status_date := FND_API.G_MISS_DATE;
427: x_to_account_id := FND_API.G_MISS_NUM;
428: x_to_subinventory_code := FND_API.G_MISS_CHAR;
429: x_move_order_type := FND_API.G_MISS_NUM;
430: x_transaction_type_id := FND_API.G_MISS_NUM;
431: x_from_subinventory := FND_API.G_MISS_CHAR;
432: x_header := FND_API.G_MISS_CHAR;
425: x_request_number := FND_API.G_MISS_CHAR;
426: x_status_date := FND_API.G_MISS_DATE;
427: x_to_account_id := FND_API.G_MISS_NUM;
428: x_to_subinventory_code := FND_API.G_MISS_CHAR;
429: x_move_order_type := FND_API.G_MISS_NUM;
430: x_transaction_type_id := FND_API.G_MISS_NUM;
431: x_from_subinventory := FND_API.G_MISS_CHAR;
432: x_header := FND_API.G_MISS_CHAR;
433: x_organization := FND_API.G_MISS_CHAR;
426: x_status_date := FND_API.G_MISS_DATE;
427: x_to_account_id := FND_API.G_MISS_NUM;
428: x_to_subinventory_code := FND_API.G_MISS_CHAR;
429: x_move_order_type := FND_API.G_MISS_NUM;
430: x_transaction_type_id := FND_API.G_MISS_NUM;
431: x_from_subinventory := FND_API.G_MISS_CHAR;
432: x_header := FND_API.G_MISS_CHAR;
433: x_organization := FND_API.G_MISS_CHAR;
434: x_to_account := FND_API.G_MISS_CHAR;
427: x_to_account_id := FND_API.G_MISS_NUM;
428: x_to_subinventory_code := FND_API.G_MISS_CHAR;
429: x_move_order_type := FND_API.G_MISS_NUM;
430: x_transaction_type_id := FND_API.G_MISS_NUM;
431: x_from_subinventory := FND_API.G_MISS_CHAR;
432: x_header := FND_API.G_MISS_CHAR;
433: x_organization := FND_API.G_MISS_CHAR;
434: x_to_account := FND_API.G_MISS_CHAR;
435: x_to_subinventory := FND_API.G_MISS_CHAR;
428: x_to_subinventory_code := FND_API.G_MISS_CHAR;
429: x_move_order_type := FND_API.G_MISS_NUM;
430: x_transaction_type_id := FND_API.G_MISS_NUM;
431: x_from_subinventory := FND_API.G_MISS_CHAR;
432: x_header := FND_API.G_MISS_CHAR;
433: x_organization := FND_API.G_MISS_CHAR;
434: x_to_account := FND_API.G_MISS_CHAR;
435: x_to_subinventory := FND_API.G_MISS_CHAR;
436: --ssia move order enhancement changes
429: x_move_order_type := FND_API.G_MISS_NUM;
430: x_transaction_type_id := FND_API.G_MISS_NUM;
431: x_from_subinventory := FND_API.G_MISS_CHAR;
432: x_header := FND_API.G_MISS_CHAR;
433: x_organization := FND_API.G_MISS_CHAR;
434: x_to_account := FND_API.G_MISS_CHAR;
435: x_to_subinventory := FND_API.G_MISS_CHAR;
436: --ssia move order enhancement changes
437: x_move_order_type_name := FND_API.G_MISS_CHAR;
430: x_transaction_type_id := FND_API.G_MISS_NUM;
431: x_from_subinventory := FND_API.G_MISS_CHAR;
432: x_header := FND_API.G_MISS_CHAR;
433: x_organization := FND_API.G_MISS_CHAR;
434: x_to_account := FND_API.G_MISS_CHAR;
435: x_to_subinventory := FND_API.G_MISS_CHAR;
436: --ssia move order enhancement changes
437: x_move_order_type_name := FND_API.G_MISS_CHAR;
438: -- ssia end of changes
431: x_from_subinventory := FND_API.G_MISS_CHAR;
432: x_header := FND_API.G_MISS_CHAR;
433: x_organization := FND_API.G_MISS_CHAR;
434: x_to_account := FND_API.G_MISS_CHAR;
435: x_to_subinventory := FND_API.G_MISS_CHAR;
436: --ssia move order enhancement changes
437: x_move_order_type_name := FND_API.G_MISS_CHAR;
438: -- ssia end of changes
439: x_ship_to_location_id := FND_API.G_MISS_NUM;
433: x_organization := FND_API.G_MISS_CHAR;
434: x_to_account := FND_API.G_MISS_CHAR;
435: x_to_subinventory := FND_API.G_MISS_CHAR;
436: --ssia move order enhancement changes
437: x_move_order_type_name := FND_API.G_MISS_CHAR;
438: -- ssia end of changes
439: x_ship_to_location_id := FND_API.G_MISS_NUM;
440: -- Load display out parameters if any
441:
435: x_to_subinventory := FND_API.G_MISS_CHAR;
436: --ssia move order enhancement changes
437: x_move_order_type_name := FND_API.G_MISS_CHAR;
438: -- ssia end of changes
439: x_ship_to_location_id := FND_API.G_MISS_NUM;
440: -- Load display out parameters if any
441:
442: l_trohdr_val_rec := INV_Trohdr_Util.Get_Values
443: ( p_trohdr_rec => l_x_trohdr_rec
637: );
638:
639: -- Set return status.
640:
641: x_return_status := FND_API.G_RET_STS_SUCCESS;
642:
643: -- Get message count and data
644:
645: FND_MSG_PUB.Count_And_Get
649:
650:
651: EXCEPTION
652:
653: WHEN FND_API.G_EXC_ERROR THEN
654:
655: x_return_status := FND_API.G_RET_STS_ERROR;
656:
657: -- Get message count and data
651: EXCEPTION
652:
653: WHEN FND_API.G_EXC_ERROR THEN
654:
655: x_return_status := FND_API.G_RET_STS_ERROR;
656:
657: -- Get message count and data
658:
659: FND_MSG_PUB.Count_And_Get
660: ( p_count => x_msg_count
661: , p_data => x_msg_data
662: );
663:
664: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
665:
666: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
667:
668: -- Get message count and data
662: );
663:
664: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
665:
666: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
667:
668: -- Get message count and data
669:
670: FND_MSG_PUB.Count_And_Get
673: );
674:
675: WHEN OTHERS THEN
676:
677: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
678:
679: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
680: THEN
681: FND_MSG_PUB.Add_Exc_Msg
805: );
806:
807: -- Set Operation.
808:
809: IF FND_API.To_Boolean(l_trohdr_rec.db_flag) THEN
810: l_trohdr_rec.operation := INV_GLOBALS.G_OPR_UPDATE;
811: ELSE
812: l_trohdr_rec.operation := INV_GLOBALS.G_OPR_CREATE;
813: END IF;
815: -- Call INV_Transfer_Order_PVT.Process_Transfer_Order
816:
817: INV_Transfer_Order_PVT.Process_Transfer_Order
818: ( p_api_version_number => 1.0
819: , p_init_msg_list => FND_API.G_TRUE
820: , x_return_status => l_return_status
821: , x_msg_count => x_msg_count
822: , x_msg_data => x_msg_data
823: , p_control_rec => l_control_rec
826: , x_trohdr_rec => l_x_trohdr_rec
827: , x_trolin_tbl => l_x_trolin_tbl
828: );
829:
830: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
832: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
833: RAISE FND_API.G_EXC_ERROR;
834: END IF;
827: , x_trolin_tbl => l_x_trolin_tbl
828: );
829:
830: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
832: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
833: RAISE FND_API.G_EXC_ERROR;
834: END IF;
835:
828: );
829:
830: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
832: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
833: RAISE FND_API.G_EXC_ERROR;
834: END IF;
835:
836:
829:
830: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
832: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
833: RAISE FND_API.G_EXC_ERROR;
834: END IF;
835:
836:
837: -- Load OUT parameters.
853:
854:
855: -- Set return status.
856:
857: x_return_status := FND_API.G_RET_STS_SUCCESS;
858:
859: -- Get message count and data
860:
861: FND_MSG_PUB.Count_And_Get
865:
866:
867: EXCEPTION
868:
869: WHEN FND_API.G_EXC_ERROR THEN
870:
871: x_return_status := FND_API.G_RET_STS_ERROR;
872:
873: -- Get message count and data
867: EXCEPTION
868:
869: WHEN FND_API.G_EXC_ERROR THEN
870:
871: x_return_status := FND_API.G_RET_STS_ERROR;
872:
873: -- Get message count and data
874:
875: FND_MSG_PUB.Count_And_Get
876: ( p_count => x_msg_count
877: , p_data => x_msg_data
878: );
879:
880: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
881:
882: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
883:
884: -- Get message count and data
878: );
879:
880: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
881:
882: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
883:
884: -- Get message count and data
885:
886: FND_MSG_PUB.Count_And_Get
889: );
890:
891: WHEN OTHERS THEN
892:
893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
894:
895: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
896: THEN
897: FND_MSG_PUB.Add_Exc_Msg
956: -- Call INV_Transfer_Order_PVT.Process_Transfer_Order
957:
958: INV_Transfer_Order_PVT.Process_Transfer_Order
959: ( p_api_version_number => 1.0
960: , p_init_msg_list => FND_API.G_TRUE
961: , x_return_status => l_return_status
962: , x_msg_count => x_msg_count
963: , x_msg_data => x_msg_data
964: , p_control_rec => l_control_rec
966: , x_trohdr_rec => l_x_trohdr_rec
967: , x_trolin_tbl => l_x_trolin_tbl
968: );
969:
970: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
971: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
972: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
973: RAISE FND_API.G_EXC_ERROR;
974: END IF;
967: , x_trolin_tbl => l_x_trolin_tbl
968: );
969:
970: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
971: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
972: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
973: RAISE FND_API.G_EXC_ERROR;
974: END IF;
975:
968: );
969:
970: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
971: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
972: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
973: RAISE FND_API.G_EXC_ERROR;
974: END IF;
975:
976:
969:
970: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
971: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
972: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
973: RAISE FND_API.G_EXC_ERROR;
974: END IF;
975:
976:
977: -- Clear trohdr record cache
979: Clear_trohdr;
980:
981: -- Set return status.
982:
983: x_return_status := FND_API.G_RET_STS_SUCCESS;
984:
985: -- Get message count and data
986:
987: FND_MSG_PUB.Count_And_Get
991:
992:
993: EXCEPTION
994:
995: WHEN FND_API.G_EXC_ERROR THEN
996:
997: x_return_status := FND_API.G_RET_STS_ERROR;
998:
999: -- Get message count and data
993: EXCEPTION
994:
995: WHEN FND_API.G_EXC_ERROR THEN
996:
997: x_return_status := FND_API.G_RET_STS_ERROR;
998:
999: -- Get message count and data
1000:
1001: FND_MSG_PUB.Count_And_Get
1002: ( p_count => x_msg_count
1003: , p_data => x_msg_data
1004: );
1005:
1006: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1007:
1008: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1009:
1010: -- Get message count and data
1004: );
1005:
1006: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1007:
1008: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1009:
1010: -- Get message count and data
1011:
1012: FND_MSG_PUB.Count_And_Get
1015: );
1016:
1017: WHEN OTHERS THEN
1018:
1019: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1020:
1021: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1022: THEN
1023: FND_MSG_PUB.Add_Exc_Msg
1070: -- Call INV_Transfer_Order_PVT.Process_Transfer_Order
1071:
1072: INV_Transfer_Order_PVT.Process_Transfer_Order
1073: ( p_api_version_number => 1.0
1074: , p_init_msg_list => FND_API.G_TRUE
1075: , x_return_status => l_return_status
1076: , x_msg_count => x_msg_count
1077: , x_msg_data => x_msg_data
1078: , p_control_rec => l_control_rec
1079: , x_trohdr_rec => l_x_trohdr_rec
1080: , x_trolin_tbl => l_x_trolin_tbl
1081: );
1082:
1083: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1084: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1085: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1086: RAISE FND_API.G_EXC_ERROR;
1087: END IF;
1080: , x_trolin_tbl => l_x_trolin_tbl
1081: );
1082:
1083: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1084: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1085: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1086: RAISE FND_API.G_EXC_ERROR;
1087: END IF;
1088:
1081: );
1082:
1083: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1084: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1085: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1086: RAISE FND_API.G_EXC_ERROR;
1087: END IF;
1088:
1089:
1082:
1083: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1084: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1085: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1086: RAISE FND_API.G_EXC_ERROR;
1087: END IF;
1088:
1089:
1090: -- Set return status.
1088:
1089:
1090: -- Set return status.
1091:
1092: x_return_status := FND_API.G_RET_STS_SUCCESS;
1093:
1094: -- Get message count and data
1095:
1096: FND_MSG_PUB.Count_And_Get
1100:
1101:
1102: EXCEPTION
1103:
1104: WHEN FND_API.G_EXC_ERROR THEN
1105:
1106: x_return_status := FND_API.G_RET_STS_ERROR;
1107:
1108: -- Get message count and data
1102: EXCEPTION
1103:
1104: WHEN FND_API.G_EXC_ERROR THEN
1105:
1106: x_return_status := FND_API.G_RET_STS_ERROR;
1107:
1108: -- Get message count and data
1109:
1110: FND_MSG_PUB.Count_And_Get
1111: ( p_count => x_msg_count
1112: , p_data => x_msg_data
1113: );
1114:
1115: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1116:
1117: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1118:
1119: -- Get message count and data
1113: );
1114:
1115: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1116:
1117: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1118:
1119: -- Get message count and data
1120:
1121: FND_MSG_PUB.Count_And_Get
1124: );
1125:
1126: WHEN OTHERS THEN
1127:
1128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1129:
1130: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1131: THEN
1132: FND_MSG_PUB.Add_Exc_Msg
1179: -- Call INV_Transfer_Order_PVT.Process_Transfer_Order
1180:
1181: INV_Transfer_Order_PVT.Process_Transfer_Order
1182: ( p_api_version_number => 1.0
1183: , p_init_msg_list => FND_API.G_TRUE
1184: , x_return_status => l_return_status
1185: , x_msg_count => x_msg_count
1186: , x_msg_data => x_msg_data
1187: , p_control_rec => l_control_rec
1188: , x_trohdr_rec => l_x_trohdr_rec
1189: , x_trolin_tbl => l_x_trolin_tbl
1190: );
1191:
1192: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1194: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1195: RAISE FND_API.G_EXC_ERROR;
1196: END IF;
1189: , x_trolin_tbl => l_x_trolin_tbl
1190: );
1191:
1192: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1194: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1195: RAISE FND_API.G_EXC_ERROR;
1196: END IF;
1197:
1190: );
1191:
1192: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1194: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1195: RAISE FND_API.G_EXC_ERROR;
1196: END IF;
1197:
1198:
1191:
1192: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1194: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1195: RAISE FND_API.G_EXC_ERROR;
1196: END IF;
1197:
1198:
1199: -- Set return status.
1197:
1198:
1199: -- Set return status.
1200:
1201: x_return_status := FND_API.G_RET_STS_SUCCESS;
1202:
1203: -- Get message count and data
1204:
1205: FND_MSG_PUB.Count_And_Get
1209:
1210:
1211: EXCEPTION
1212:
1213: WHEN FND_API.G_EXC_ERROR THEN
1214:
1215: x_return_status := FND_API.G_RET_STS_ERROR;
1216:
1217: -- Get message count and data
1211: EXCEPTION
1212:
1213: WHEN FND_API.G_EXC_ERROR THEN
1214:
1215: x_return_status := FND_API.G_RET_STS_ERROR;
1216:
1217: -- Get message count and data
1218:
1219: FND_MSG_PUB.Count_And_Get
1220: ( p_count => x_msg_count
1221: , p_data => x_msg_data
1222: );
1223:
1224: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1225:
1226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1227:
1228: -- Get message count and data
1222: );
1223:
1224: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1225:
1226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1227:
1228: -- Get message count and data
1229:
1230: FND_MSG_PUB.Count_And_Get
1233: );
1234:
1235: WHEN OTHERS THEN
1236:
1237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1238:
1239: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1240: THEN
1241: FND_MSG_PUB.Add_Exc_Msg
1351: -- Call INV_Transfer_Order_PVT.Lock_Transfer_Order
1352:
1353: INV_Transfer_Order_PVT.Lock_Transfer_Order
1354: ( p_api_version_number => 1.0
1355: , p_init_msg_list => FND_API.G_TRUE
1356: , x_return_status => l_return_status
1357: , x_msg_count => x_msg_count
1358: , x_msg_data => x_msg_data
1359: , p_trohdr_rec => l_trohdr_rec
1360: , x_trohdr_rec => l_x_trohdr_rec
1361: , x_trolin_tbl => l_x_trolin_tbl
1362: );
1363:
1364: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1365:
1366: -- Set DB flag and write record to cache.
1367:
1368: l_x_trohdr_rec.db_flag := FND_API.G_TRUE;
1364: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1365:
1366: -- Set DB flag and write record to cache.
1367:
1368: l_x_trohdr_rec.db_flag := FND_API.G_TRUE;
1369:
1370: Write_trohdr
1371: ( p_trohdr_rec => l_x_trohdr_rec
1372: , p_db_record => TRUE
1397: , 'Lock_Row'
1398: );
1399: END IF;
1400:
1401: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1402:
1403: -- Get message count and data
1404:
1405: FND_MSG_PUB.Count_And_Get
1446: g_trohdr_rec := INV_Trohdr_Util.Query_Row
1447: ( p_header_id => p_header_id
1448: );
1449:
1450: g_trohdr_rec.db_flag := FND_API.G_TRUE;
1451:
1452: -- Load DB record
1453:
1454: g_db_trohdr_rec := g_trohdr_rec;