[Home] [Help]
109: /*
110: -- Create IB Sub transaction for a order line based on osp_order_type and
111: -- line type.
112: PROCEDURE Create_IB_Transaction(
113: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
114: p_commit IN VARCHAR2 := FND_API.G_FALSE,
115: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
116: x_return_status OUT NOCOPY VARCHAR2,
117: x_msg_count OUT NOCOPY NUMBER,
110: -- Create IB Sub transaction for a order line based on osp_order_type and
111: -- line type.
112: PROCEDURE Create_IB_Transaction(
113: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
114: p_commit IN VARCHAR2 := FND_API.G_FALSE,
115: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
116: x_return_status OUT NOCOPY VARCHAR2,
117: x_msg_count OUT NOCOPY NUMBER,
118: x_msg_data OUT NOCOPY VARCHAR2,
111: -- line type.
112: PROCEDURE Create_IB_Transaction(
113: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
114: p_commit IN VARCHAR2 := FND_API.G_FALSE,
115: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
116: x_return_status OUT NOCOPY VARCHAR2,
117: x_msg_count OUT NOCOPY NUMBER,
118: x_msg_data OUT NOCOPY VARCHAR2,
119: p_OSP_order_type IN VARCHAR2,
123:
124:
125: -- Delete IB sub transaction for a shipment line.
126: PROCEDURE Delete_IB_Transaction(
127: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
128: p_commit IN VARCHAR2 := FND_API.G_FALSE,
129: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
130: x_return_status OUT NOCOPY VARCHAR2,
131: x_msg_count OUT NOCOPY NUMBER,
124:
125: -- Delete IB sub transaction for a shipment line.
126: PROCEDURE Delete_IB_Transaction(
127: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
128: p_commit IN VARCHAR2 := FND_API.G_FALSE,
129: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
130: x_return_status OUT NOCOPY VARCHAR2,
131: x_msg_count OUT NOCOPY NUMBER,
132: x_msg_data OUT NOCOPY VARCHAR2,
125: -- Delete IB sub transaction for a shipment line.
126: PROCEDURE Delete_IB_Transaction(
127: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
128: p_commit IN VARCHAR2 := FND_API.G_FALSE,
129: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
130: x_return_status OUT NOCOPY VARCHAR2,
131: x_msg_count OUT NOCOPY NUMBER,
132: x_msg_data OUT NOCOPY VARCHAR2,
133: p_oe_line_id IN NUMBER);
201: -- Validate serial number.(1 = No serial number control; 2 = Pre-defined;
202: -- 3 = Dynamic Entry at inventory receipt.)
203: IF (nvl(p_serial_number_control,0) IN (2,5,6)) THEN
204: -- serial number is mandatory.
205: IF (p_Serial_Number IS NULL) OR (p_Serial_Number = FND_API.G_MISS_CHAR) THEN
206: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SERIAL_NULL');
207: FND_MESSAGE.Set_Token('INV_ITEM',p_concatenated_segments);
208: FND_MSG_PUB.ADD;
209: --dbms_output.put_line('Serial Number is null');
225: */
226: END IF;
227: ELSE
228: -- if not serialized item, then serial number must be null.
229: IF (p_Serial_Number <> FND_API.G_MISS_CHAR) AND (p_Serial_Number IS NOT NULL) THEN
230: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SERIAL_NOTNULL');
231: FND_MESSAGE.Set_Token('SERIAL',p_Serial_Number);
232: FND_MESSAGE.Set_Token('INV_ITEM',p_concatenated_segments);
233: FND_MSG_PUB.ADD;
253: -- Parameters :
254: --
255: -- Standard IN Parameters :
256: -- p_api_version IN NUMBER Default 1.0
257: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
258: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
259: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
260: -- Standard OUT NOCOPY Parameters :
261: -- x_return_status OUT NOCOPY VARCHAR2 Required
254: --
255: -- Standard IN Parameters :
256: -- p_api_version IN NUMBER Default 1.0
257: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
258: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
259: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
260: -- Standard OUT NOCOPY Parameters :
261: -- x_return_status OUT NOCOPY VARCHAR2 Required
262: -- x_msg_count OUT NOCOPY NUMBER Required
255: -- Standard IN Parameters :
256: -- p_api_version IN NUMBER Default 1.0
257: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
258: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
259: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
260: -- Standard OUT NOCOPY Parameters :
261: -- x_return_status OUT NOCOPY VARCHAR2 Required
262: -- x_msg_count OUT NOCOPY NUMBER Required
263: -- x_msg_data OUT NOCOPY VARCHAR2 Required
275: -- End of Comments.
276:
277: PROCEDURE Process_Order (
278: p_api_version IN NUMBER := 1.0,
279: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
280: p_commit IN VARCHAR2 := FND_API.G_FALSE,
281: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
282: p_module_type IN VARCHAR2 := NULL,
283: p_x_header_rec IN OUT NOCOPY AHL_OSP_SHIPMENT_PUB.Ship_Header_Rec_Type,
276:
277: PROCEDURE Process_Order (
278: p_api_version IN NUMBER := 1.0,
279: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
280: p_commit IN VARCHAR2 := FND_API.G_FALSE,
281: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
282: p_module_type IN VARCHAR2 := NULL,
283: p_x_header_rec IN OUT NOCOPY AHL_OSP_SHIPMENT_PUB.Ship_Header_Rec_Type,
284: p_x_lines_tbl IN OUT NOCOPY AHL_OSP_SHIPMENT_PUB.Ship_Line_Tbl_Type,
277: PROCEDURE Process_Order (
278: p_api_version IN NUMBER := 1.0,
279: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
280: p_commit IN VARCHAR2 := FND_API.G_FALSE,
281: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
282: p_module_type IN VARCHAR2 := NULL,
283: p_x_header_rec IN OUT NOCOPY AHL_OSP_SHIPMENT_PUB.Ship_Header_Rec_Type,
284: p_x_lines_tbl IN OUT NOCOPY AHL_OSP_SHIPMENT_PUB.Ship_Line_Tbl_Type,
285: x_return_status OUT NOCOPY VARCHAR2,
381: -- Standard start of API savepoint
382: SAVEPOINT Process_Order_Pub;
383:
384: -- Initialize API return status to success
385: x_return_status := FND_API.G_RET_STS_SUCCESS;
386:
387: -- Standard call to check for call compatibility
388: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
389: G_PKG_NAME) THEN
384: -- Initialize API return status to success
385: x_return_status := FND_API.G_RET_STS_SUCCESS;
386:
387: -- Standard call to check for call compatibility
388: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
389: G_PKG_NAME) THEN
390: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
391: END IF;
392:
386:
387: -- Standard call to check for call compatibility
388: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
389: G_PKG_NAME) THEN
390: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
391: END IF;
392:
393: -- Initialize message list if p_init_msg_list is set to TRUE
394: IF FND_API.To_Boolean(p_init_msg_list) THEN
390: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
391: END IF;
392:
393: -- Initialize message list if p_init_msg_list is set to TRUE
394: IF FND_API.To_Boolean(p_init_msg_list) THEN
395: FND_MSG_PUB.Initialize;
396: END IF;
397:
398: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
408: FND_MSG_PUB.ADD;
409: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
410: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
411: END IF;
412: RAISE Fnd_Api.g_exc_error;
413: END IF;
414:
415: IF (FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID') IS NULL OR FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID') = '' ) THEN
416: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
419: FND_MSG_PUB.ADD;
420: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
421: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
422: END IF;
423: RAISE Fnd_Api.g_exc_error;
424: END IF;
425:
426: IF (FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID') IS NULL OR FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID') = '') THEN
427: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
430: FND_MSG_PUB.ADD;
431: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
432: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
433: END IF;
434: RAISE Fnd_Api.g_exc_error;
435: END IF;
436:
437: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
438: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Got profile values, About to Convert_Header_rec');
469: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
470: 'Invalid OSP Line id : '||p_x_lines_tbl(i).osp_line_id||' for OSP Order id : '||p_x_lines_tbl(i).osp_order_id);
471: END IF;
472: CLOSE is_osp_line_id_valid_csr;
473: RAISE FND_API.G_EXC_ERROR;
474: END IF;
475: CLOSE is_osp_line_id_valid_csr;
476: ELSE
477: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
500: IF l_msg_count > 0 THEN
501: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
502: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count Before calling OE_ORDER_GRP.PROCESS_ORDER: '||l_msg_count);
503: END IF;
504: RAISE FND_API.G_EXC_ERROR;
505: END IF;
506:
507: -- jaramana End
508:
513: --OE_ORDER_GRP uses its own message stack OE_MSG_PUB, so we should pass p_init_msg_list as true to this API
514: --Note that this also does an FND_MSG_PUB.initialize along with clearing its own error stack
515: OE_ORDER_GRP.PROCESS_ORDER(
516: p_api_version_number => 1.0,
517: p_init_msg_list => FND_API.G_TRUE,
518: x_return_status => x_return_status,
519: x_msg_count => x_msg_count,
520: x_msg_data => x_msg_data,
521: p_header_rec => l_header_rec,
549: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
550: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed OE_ORDER_GRP.PROCESS_ORDER, x_return_status = ' || x_return_status);
551: END IF;
552:
553: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
554: FOR i IN 1..x_msg_count LOOP
555: OE_MSG_PUB.Get(p_msg_index => i,
556: p_encoded => FND_API.G_FALSE,
557: p_data => l_msg_data,
552:
553: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
554: FOR i IN 1..x_msg_count LOOP
555: OE_MSG_PUB.Get(p_msg_index => i,
556: p_encoded => FND_API.G_FALSE,
557: p_data => l_msg_data,
558: p_msg_index_out => l_msg_index_out);
559: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
560: p_procedure_name => 'processOrder',
565:
566: END LOOP;
567: END IF;
568:
569: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
570: RAISE FND_API.G_EXC_ERROR;
571: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
573: /*
566: END LOOP;
567: END IF;
568:
569: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
570: RAISE FND_API.G_EXC_ERROR;
571: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
573: /*
574: Modified by jaramana on January 11, 2008 to fix the Bug 5935388/6504122
567: END IF;
568:
569: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
570: RAISE FND_API.G_EXC_ERROR;
571: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
573: /*
574: Modified by jaramana on January 11, 2008 to fix the Bug 5935388/6504122
575: If success is returned by the Public API, clear the message stack to eat up any warning messages from OM API.
568:
569: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
570: RAISE FND_API.G_EXC_ERROR;
571: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
573: /*
574: Modified by jaramana on January 11, 2008 to fix the Bug 5935388/6504122
575: If success is returned by the Public API, clear the message stack to eat up any warning messages from OM API.
576: Otherwise, OAExceptionUtils.checkErrors will consider these as errors.
577: Also note that had there been any validation errors that had been accumulated we would have thrown before the call to
578: OE_ORDER_GRP.PROCESS_ORDER
579: */
580:
581: ELSIF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
582: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
583: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
584: FND_MSG_PUB.get (
585: p_msg_index => i,
582: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
583: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
584: FND_MSG_PUB.get (
585: p_msg_index => i,
586: p_encoded => FND_API.G_FALSE,
587: p_data => l_msg_data,
588: p_msg_index_out => l_msg_index_out );
589: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'OE: Warning ' || i || ': ' || l_msg_data);
590: END LOOP;
619: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_Cancel_Order');
620: END IF;
621: Delete_Cancel_Order (
622: p_api_version => 1.0,
623: p_init_msg_list => FND_API.G_FALSE, -- Don't initialize the Message List
624: p_commit => FND_API.G_FALSE, -- Don't commit independently
625: p_oe_header_id => null, -- Not deleting the shipment header: Only the lines
626: p_oe_lines_tbl => l_del_oe_lines_tbl, -- Lines to be deleted/Cancelled
627: p_cancel_flag => FND_API.G_FALSE, -- Do Deletes if possible, Cancels if not
620: END IF;
621: Delete_Cancel_Order (
622: p_api_version => 1.0,
623: p_init_msg_list => FND_API.G_FALSE, -- Don't initialize the Message List
624: p_commit => FND_API.G_FALSE, -- Don't commit independently
625: p_oe_header_id => null, -- Not deleting the shipment header: Only the lines
626: p_oe_lines_tbl => l_del_oe_lines_tbl, -- Lines to be deleted/Cancelled
627: p_cancel_flag => FND_API.G_FALSE, -- Do Deletes if possible, Cancels if not
628: x_return_status => x_return_status ,
623: p_init_msg_list => FND_API.G_FALSE, -- Don't initialize the Message List
624: p_commit => FND_API.G_FALSE, -- Don't commit independently
625: p_oe_header_id => null, -- Not deleting the shipment header: Only the lines
626: p_oe_lines_tbl => l_del_oe_lines_tbl, -- Lines to be deleted/Cancelled
627: p_cancel_flag => FND_API.G_FALSE, -- Do Deletes if possible, Cancels if not
628: x_return_status => x_return_status ,
629: x_msg_count => x_msg_count ,
630: x_msg_data => x_msg_data
631: );
631: );
632: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
633: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Delete_Cancel_Order, x_return_status = ' || x_return_status);
634: END IF;
635: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
636: RAISE FND_API.G_EXC_ERROR;
637: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
638: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
639: END IF;
632: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
633: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Delete_Cancel_Order, x_return_status = ' || x_return_status);
634: END IF;
635: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
636: RAISE FND_API.G_EXC_ERROR;
637: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
638: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
639: END IF;
640: END IF; -- Delete Line Count > 0
633: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Delete_Cancel_Order, x_return_status = ' || x_return_status);
634: END IF;
635: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
636: RAISE FND_API.G_EXC_ERROR;
637: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
638: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
639: END IF;
640: END IF; -- Delete Line Count > 0
641:
634: END IF;
635: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
636: RAISE FND_API.G_EXC_ERROR;
637: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
638: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
639: END IF;
640: END IF; -- Delete Line Count > 0
641:
642: -- Handle New Shipment Lines
664: any errors (Warning converted to errors by OAExceptionUtils.checkErrors in the absence of
665: certain tokens).
666: */
667: Create_IB_Transaction(
668: p_init_msg_list => FND_API.G_FALSE, --p_init_msg_list,
669: p_commit => p_commit,
670: p_validation_level => p_validation_level,
671: x_return_status => x_return_status,
672: x_msg_count => x_msg_count,
677: p_csi_instance_id => p_x_lines_tbl(i).csi_item_instance_id);
678: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
679: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Create_IB_Transaction: ' || x_return_status);
680: END IF;
681: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
682: RAISE FND_API.G_EXC_ERROR;
683: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
685: END IF;
678: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
679: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Create_IB_Transaction: ' || x_return_status);
680: END IF;
681: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
682: RAISE FND_API.G_EXC_ERROR;
683: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
685: END IF;
686:
679: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Create_IB_Transaction: ' || x_return_status);
680: END IF;
681: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
682: RAISE FND_API.G_EXC_ERROR;
683: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
685: END IF;
686:
687: --Update OSP Order Lines with the new line_id
680: END IF;
681: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
682: RAISE FND_API.G_EXC_ERROR;
683: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
685: END IF;
686:
687: --Update OSP Order Lines with the new line_id
688: --FIX LINE TYPE ID validation
694: Update_OSP_Order_Lines(
695: p_osp_order_id => p_x_lines_tbl(i).osp_order_id,
696: p_item_instance_id => p_x_lines_tbl(i).csi_item_instance_id,
697: p_oe_ship_line_id => p_x_lines_tbl(i).line_id,
698: p_oe_return_line_id => FND_API.G_MISS_NUM);
699: ELSIF (p_x_lines_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID')) THEN
700: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
701: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Calling Update_OSP_Order_Lines with p_oe_return_line_id = ' || p_x_lines_tbl(i).line_id );
702: END IF;
702: END IF;
703: Update_OSP_Order_Lines(
704: p_osp_order_id => p_x_lines_tbl(i).osp_order_id,
705: p_item_instance_id => p_x_lines_tbl(i).csi_item_instance_id,
706: p_oe_ship_line_id => FND_API.G_MISS_NUM ,
707: p_oe_return_line_id => p_x_lines_tbl(i).line_id);
708: END IF;
709:
710: ELSE -- instance id is null
717: Update_OSP_Order_Lines(
718: p_osp_order_id => p_x_lines_tbl(i).osp_order_id,
719: p_osp_line_id => p_x_lines_tbl(i).osp_line_id,
720: p_oe_ship_line_id => p_x_lines_tbl(i).line_id,
721: p_oe_return_line_id => FND_API.G_MISS_NUM);
722: ELSIF (p_x_lines_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID')) THEN
723: --mpothuku modified on 14-Sep-2007 to fix the Bug 6398921
724: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
725: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_lines_tbl(i).order_type :' ||p_x_lines_tbl(i).order_type);
751: p_csi_instance_id => NULL);
752: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
753: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Create_IB_Transaction: ' || x_return_status);
754: END IF;
755: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
756: RAISE FND_API.G_EXC_ERROR;
757: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
758: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
759: END IF;
752: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
753: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Create_IB_Transaction: ' || x_return_status);
754: END IF;
755: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
756: RAISE FND_API.G_EXC_ERROR;
757: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
758: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
759: END IF;
760: ELSE
753: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Create_IB_Transaction: ' || x_return_status);
754: END IF;
755: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
756: RAISE FND_API.G_EXC_ERROR;
757: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
758: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
759: END IF;
760: ELSE
761: CLOSE is_oe_item_IB_tracked;
754: END IF;
755: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
756: RAISE FND_API.G_EXC_ERROR;
757: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
758: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
759: END IF;
760: ELSE
761: CLOSE is_oe_item_IB_tracked;
762: END IF;
767: END IF;
768: Update_OSP_Order_Lines(
769: p_osp_order_id => p_x_lines_tbl(i).osp_order_id,
770: p_osp_line_id => p_x_lines_tbl(i).osp_line_id,
771: p_oe_ship_line_id => FND_API.G_MISS_NUM ,
772: p_oe_return_line_id => p_x_lines_tbl(i).line_id);
773: END IF;
774: END IF; -- OSP Line Id not null
775: END IF; -- if instance id is not null
796:
797: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
798: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Delete_IB_Transaction: ' || x_return_status);
799: END IF;
800: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
801: RAISE FND_API.G_EXC_ERROR;
802: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
804: END IF;
797: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
798: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Delete_IB_Transaction: ' || x_return_status);
799: END IF;
800: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
801: RAISE FND_API.G_EXC_ERROR;
802: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
804: END IF;
805:
798: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Delete_IB_Transaction: ' || x_return_status);
799: END IF;
800: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
801: RAISE FND_API.G_EXC_ERROR;
802: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
804: END IF;
805:
806: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
799: END IF;
800: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
801: RAISE FND_API.G_EXC_ERROR;
802: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
804: END IF;
805:
806: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
807: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_OE_Lines');
883:
884: -- yazhou 07-Aug-2006 ends
885:
886: -- Standard check of p_commit
887: IF FND_API.To_Boolean(p_commit) THEN
888: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
889: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to commit work');
890: END IF;
891: COMMIT WORK;
894: -- Standard call to get message count and if count is 1, get message
895: FND_MSG_PUB.Count_And_Get
896: ( p_count => x_msg_count,
897: p_data => x_msg_data,
898: p_encoded => fnd_api.g_false);
899: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
900: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
901: END IF;
902:
900: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
901: END IF;
902:
903: EXCEPTION
904: WHEN FND_API.G_EXC_ERROR THEN
905: x_return_status := FND_API.G_RET_STS_ERROR;
906: Rollback to Process_Order_Pub;
907: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
908: p_data => x_msg_data,
901: END IF;
902:
903: EXCEPTION
904: WHEN FND_API.G_EXC_ERROR THEN
905: x_return_status := FND_API.G_RET_STS_ERROR;
906: Rollback to Process_Order_Pub;
907: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
908: p_data => x_msg_data,
909: p_encoded => fnd_api.g_false);
905: x_return_status := FND_API.G_RET_STS_ERROR;
906: Rollback to Process_Order_Pub;
907: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
908: p_data => x_msg_data,
909: p_encoded => fnd_api.g_false);
910:
911: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
912: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
913: Rollback to Process_Order_Pub;
907: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
908: p_data => x_msg_data,
909: p_encoded => fnd_api.g_false);
910:
911: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
912: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
913: Rollback to Process_Order_Pub;
914: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
915: p_data => x_msg_data,
908: p_data => x_msg_data,
909: p_encoded => fnd_api.g_false);
910:
911: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
912: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
913: Rollback to Process_Order_Pub;
914: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
915: p_data => x_msg_data,
916: p_encoded => fnd_api.g_false);
912: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
913: Rollback to Process_Order_Pub;
914: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
915: p_data => x_msg_data,
916: p_encoded => fnd_api.g_false);
917: WHEN OTHERS THEN
918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
919: Rollback to Process_Order_Pub;
920: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
914: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
915: p_data => x_msg_data,
916: p_encoded => fnd_api.g_false);
917: WHEN OTHERS THEN
918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
919: Rollback to Process_Order_Pub;
920: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
921: p_procedure_name => 'Process_Order',
922: p_error_text => SQLERRM);
922: p_error_text => SQLERRM);
923:
924: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
925: p_data => x_msg_data,
926: p_encoded => fnd_api.g_false);
927: END Process_Order;
928:
929:
930: -------------------------------------------------------------
936: -- Parameters :
937: --
938: -- Standard IN Parameters :
939: -- p_api_version IN NUMBER Default 1.0
940: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
941: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
942: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
943: -- Standard OUT Parameters :
944: -- x_return_status OUT NOCOPY VARCHAR2 Required
937: --
938: -- Standard IN Parameters :
939: -- p_api_version IN NUMBER Default 1.0
940: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
941: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
942: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
943: -- Standard OUT Parameters :
944: -- x_return_status OUT NOCOPY VARCHAR2 Required
945: -- x_msg_count OUT NOCOPY NUMBER Required
938: -- Standard IN Parameters :
939: -- p_api_version IN NUMBER Default 1.0
940: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
941: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
942: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
943: -- Standard OUT Parameters :
944: -- x_return_status OUT NOCOPY VARCHAR2 Required
945: -- x_msg_count OUT NOCOPY NUMBER Required
946: -- x_msg_data OUT NOCOPY VARCHAR2 Required
955: -- End of Comments.
956:
957: PROCEDURE Book_Order (
958: p_api_version IN NUMBER := 1.0,
959: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
960: p_commit IN VARCHAR2 := FND_API.G_FALSE,
961: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
962: p_oe_header_tbl IN SHIP_ID_TBL_TYPE,
963: x_return_status OUT NOCOPY VARCHAR2,
956:
957: PROCEDURE Book_Order (
958: p_api_version IN NUMBER := 1.0,
959: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
960: p_commit IN VARCHAR2 := FND_API.G_FALSE,
961: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
962: p_oe_header_tbl IN SHIP_ID_TBL_TYPE,
963: x_return_status OUT NOCOPY VARCHAR2,
964: x_msg_count OUT NOCOPY NUMBER,
957: PROCEDURE Book_Order (
958: p_api_version IN NUMBER := 1.0,
959: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
960: p_commit IN VARCHAR2 := FND_API.G_FALSE,
961: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
962: p_oe_header_tbl IN SHIP_ID_TBL_TYPE,
963: x_return_status OUT NOCOPY VARCHAR2,
964: x_msg_count OUT NOCOPY NUMBER,
965: x_msg_data OUT NOCOPY VARCHAR2 ) IS
974: BEGIN
975: SAVEPOINT Book_Order_Pub;
976:
977: -- Initialize message list if p_init_msg_list is set to TRUE
978: IF FND_API.To_Boolean(p_init_msg_list) THEN
979: FND_MSG_PUB.Initialize;
980: END IF;
981:
982: -- Initialize API return status to success
979: FND_MSG_PUB.Initialize;
980: END IF;
981:
982: -- Initialize API return status to success
983: x_return_status := FND_API.G_RET_STS_SUCCESS;
984:
985: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
986: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
987: END IF;
1006: IF l_msg_count > 0 THEN
1007: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1008: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count Before calling OE_ORDER_GRP.PROCESS_ORDER: '||l_msg_count);
1009: END IF;
1010: RAISE FND_API.G_EXC_ERROR;
1011: END IF;
1012:
1013: -- jaramana End
1014:
1015: --OE_ORDER_GRP uses its own message stack OE_MSG_PUB, so we should pass p_init_msg_list as true to this API
1016: --Note that this also does an FND_MSG_PUB.initialize along with clearing its own error stack
1017: OE_ORDER_GRP.PROCESS_ORDER(
1018: p_api_version_number => 1.0,
1019: p_init_msg_list => FND_API.G_TRUE,
1020: x_return_status => x_return_status,
1021: x_msg_count => x_msg_count,
1022: x_msg_data => x_msg_data,
1023: p_action_request_tbl => l_action_request_tbl,
1042: x_Lot_Serial_tbl => x_Lot_Serial_tbl ,
1043: x_Lot_Serial_val_tbl => x_Lot_Serial_val_tbl ,
1044: x_action_request_tbl => x_action_request_tbl );
1045:
1046: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1047: FOR i IN 1..x_msg_count LOOP
1048: OE_MSG_PUB.Get( p_msg_index => i,
1049: p_encoded => FND_API.G_FALSE,
1050: p_data => l_msg_data,
1045:
1046: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1047: FOR i IN 1..x_msg_count LOOP
1048: OE_MSG_PUB.Get( p_msg_index => i,
1049: p_encoded => FND_API.G_FALSE,
1050: p_data => l_msg_data,
1051: p_msg_index_out => l_msg_index_out);
1052: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
1053: p_procedure_name => 'bookOrder',
1062: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1063: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status at the end of all processing: ' || x_return_status);
1064: END IF;
1065:
1066: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1067: RAISE FND_API.G_EXC_ERROR;
1068: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1070: /*
1063: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status at the end of all processing: ' || x_return_status);
1064: END IF;
1065:
1066: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1067: RAISE FND_API.G_EXC_ERROR;
1068: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1070: /*
1071: Modified by jaramana on January 11, 2008 to fix the Bug 5935388/6504122
1064: END IF;
1065:
1066: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1067: RAISE FND_API.G_EXC_ERROR;
1068: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1070: /*
1071: Modified by jaramana on January 11, 2008 to fix the Bug 5935388/6504122
1072: If success is returned by the Public API, clear the message stack to eat up any warning messages from OM API.
1065:
1066: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1067: RAISE FND_API.G_EXC_ERROR;
1068: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1070: /*
1071: Modified by jaramana on January 11, 2008 to fix the Bug 5935388/6504122
1072: If success is returned by the Public API, clear the message stack to eat up any warning messages from OM API.
1073: Otherwise, OAExceptionUtils.checkErrors will consider these as errors
1073: Otherwise, OAExceptionUtils.checkErrors will consider these as errors
1074: Also note that had there been any validation errors that had been accumulated we would have thrown before the call to
1075: OE_ORDER_GRP.PROCESS_ORDER
1076: */
1077: ELSIF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1078: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1079: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
1080: FND_MSG_PUB.get (
1081: p_msg_index => i,
1078: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1079: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
1080: FND_MSG_PUB.get (
1081: p_msg_index => i,
1082: p_encoded => FND_API.G_FALSE,
1083: p_data => l_msg_data,
1084: p_msg_index_out => l_msg_index_out );
1085: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'OE: Warning ' || i || ': ' || l_msg_data);
1086: END LOOP;
1089: -- jaramana End
1090: END IF;
1091:
1092: -- Standard check of p_commit
1093: IF FND_API.To_Boolean(p_commit) THEN
1094: COMMIT WORK;
1095: END IF;
1096:
1097: -- Standard call to get message count and if count is 1, get message
1097: -- Standard call to get message count and if count is 1, get message
1098: FND_MSG_PUB.Count_And_Get
1099: ( p_count => x_msg_count,
1100: p_data => x_msg_data,
1101: p_encoded => fnd_api.g_false);
1102:
1103: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1104: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1105: END IF;
1104: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1105: END IF;
1106:
1107: EXCEPTION
1108: WHEN FND_API.G_EXC_ERROR THEN
1109: x_return_status := FND_API.G_RET_STS_ERROR;
1110: Rollback to Book_Order_Pub;
1111: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1112: p_data => x_msg_data,
1105: END IF;
1106:
1107: EXCEPTION
1108: WHEN FND_API.G_EXC_ERROR THEN
1109: x_return_status := FND_API.G_RET_STS_ERROR;
1110: Rollback to Book_Order_Pub;
1111: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1112: p_data => x_msg_data,
1113: p_encoded => fnd_api.g_false);
1109: x_return_status := FND_API.G_RET_STS_ERROR;
1110: Rollback to Book_Order_Pub;
1111: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1112: p_data => x_msg_data,
1113: p_encoded => fnd_api.g_false);
1114:
1115: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1116: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1117: Rollback to Book_Order_Pub;
1111: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1112: p_data => x_msg_data,
1113: p_encoded => fnd_api.g_false);
1114:
1115: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1116: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1117: Rollback to Book_Order_Pub;
1118: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1119: p_data => x_msg_data,
1112: p_data => x_msg_data,
1113: p_encoded => fnd_api.g_false);
1114:
1115: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1116: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1117: Rollback to Book_Order_Pub;
1118: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1119: p_data => x_msg_data,
1120: p_encoded => fnd_api.g_false);
1116: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1117: Rollback to Book_Order_Pub;
1118: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1119: p_data => x_msg_data,
1120: p_encoded => fnd_api.g_false);
1121: WHEN OTHERS THEN
1122: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1123: Rollback to Book_Order_Pub;
1124: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1118: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1119: p_data => x_msg_data,
1120: p_encoded => fnd_api.g_false);
1121: WHEN OTHERS THEN
1122: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1123: Rollback to Book_Order_Pub;
1124: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1125: p_procedure_name => 'Book_Order',
1126: p_error_text => SQLERRM);
1126: p_error_text => SQLERRM);
1127:
1128: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1129: p_data => x_msg_data,
1130: p_encoded => fnd_api.g_false);
1131: END Book_Order;
1132:
1133: -------------------------------------------------------------
1134: -- Start of Comments --
1140: -- Parameters :
1141: --
1142: -- Standard IN Parameters :
1143: -- p_api_version IN NUMBER Default 1.0
1144: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
1145: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1146: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1147: -- Standard OUT Parameters :
1148: -- x_return_status OUT NOCOPY VARCHAR2 Required
1141: --
1142: -- Standard IN Parameters :
1143: -- p_api_version IN NUMBER Default 1.0
1144: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
1145: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1146: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1147: -- Standard OUT Parameters :
1148: -- x_return_status OUT NOCOPY VARCHAR2 Required
1149: -- x_msg_count OUT NOCOPY NUMBER Required
1142: -- Standard IN Parameters :
1143: -- p_api_version IN NUMBER Default 1.0
1144: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
1145: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1146: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1147: -- Standard OUT Parameters :
1148: -- x_return_status OUT NOCOPY VARCHAR2 Required
1149: -- x_msg_count OUT NOCOPY NUMBER Required
1150: -- x_msg_data OUT NOCOPY VARCHAR2 Required
1164: -- End of Comments.
1165:
1166: PROCEDURE Delete_Cancel_Order (
1167: p_api_version IN NUMBER := 1.0,
1168: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1169: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1170: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1171: p_oe_header_id IN NUMBER,
1172: p_oe_lines_tbl IN SHIP_ID_TBL_TYPE,
1165:
1166: PROCEDURE Delete_Cancel_Order (
1167: p_api_version IN NUMBER := 1.0,
1168: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1169: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1170: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1171: p_oe_header_id IN NUMBER,
1172: p_oe_lines_tbl IN SHIP_ID_TBL_TYPE,
1173: p_cancel_flag IN VARCHAR2 := FND_API.G_FALSE,
1166: PROCEDURE Delete_Cancel_Order (
1167: p_api_version IN NUMBER := 1.0,
1168: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1169: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1170: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1171: p_oe_header_id IN NUMBER,
1172: p_oe_lines_tbl IN SHIP_ID_TBL_TYPE,
1173: p_cancel_flag IN VARCHAR2 := FND_API.G_FALSE,
1174: x_return_status OUT NOCOPY VARCHAR2,
1169: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1170: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1171: p_oe_header_id IN NUMBER,
1172: p_oe_lines_tbl IN SHIP_ID_TBL_TYPE,
1173: p_cancel_flag IN VARCHAR2 := FND_API.G_FALSE,
1174: x_return_status OUT NOCOPY VARCHAR2,
1175: x_msg_count OUT NOCOPY NUMBER,
1176: x_msg_data OUT NOCOPY VARCHAR2)
1177: IS
1206:
1207: SAVEPOINT Delete_Cancel_Order_Pub;
1208:
1209: -- Initialize message list if p_init_msg_list is set to TRUE
1210: IF FND_API.To_Boolean(p_init_msg_list) THEN
1211: FND_MSG_PUB.Initialize;
1212: END IF;
1213:
1214: -- Initialize API return status to success
1211: FND_MSG_PUB.Initialize;
1212: END IF;
1213:
1214: -- Initialize API return status to success
1215: x_return_status := FND_API.G_RET_STS_SUCCESS;
1216:
1217: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1218: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1219: END IF;
1222: l_line_tbl := OE_ORDER_PUB.G_MISS_LINE_TBL;
1223:
1224: -- Try delete/cancel header first.
1225: IF (p_oe_header_id IS NOT NULL AND
1226: p_oe_header_id <> FND_API.G_MISS_NUM) THEN
1227:
1228: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1229: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_OSP_Order with p_oe_header_id = ' || p_oe_header_id);
1230: END IF;
1302: IF l_msg_count > 0 THEN
1303: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1304: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count Before calling OE_ORDER_GRP.PROCESS_ORDER: '||l_msg_count);
1305: END IF;
1306: RAISE FND_API.G_EXC_ERROR;
1307: END IF;
1308:
1309: --OE_ORDER_GRP uses its own message stack OE_MSG_PUB, so we should pass p_init_msg_list as true to this API
1310: --Note that this also does an FND_MSG_PUB.initialize along with clearing its own error stack
1309: --OE_ORDER_GRP uses its own message stack OE_MSG_PUB, so we should pass p_init_msg_list as true to this API
1310: --Note that this also does an FND_MSG_PUB.initialize along with clearing its own error stack
1311: OE_ORDER_GRP.PROCESS_ORDER(
1312: p_api_version_number => 1.0,
1313: p_init_msg_list => FND_API.G_TRUE,
1314: x_return_status => x_return_status,
1315: x_msg_count => x_msg_count,
1316: x_msg_data => x_msg_data,
1317: p_header_rec => l_header_rec,
1337: x_Lot_Serial_tbl => x_Lot_Serial_tbl ,
1338: x_Lot_Serial_val_tbl => x_Lot_Serial_val_tbl ,
1339: x_action_request_tbl => x_action_request_tbl );
1340:
1341: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1342: FOR i IN 1..x_msg_count LOOP
1343: OE_MSG_PUB.Get( p_msg_index => i,
1344: p_encoded => FND_API.G_FALSE,
1345: p_data => l_msg_data,
1340:
1341: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1342: FOR i IN 1..x_msg_count LOOP
1343: OE_MSG_PUB.Get( p_msg_index => i,
1344: p_encoded => FND_API.G_FALSE,
1345: p_data => l_msg_data,
1346: p_msg_index_out => l_msg_index_out);
1347: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
1348: p_procedure_name => 'deleteCancelOrder',
1352: END IF;
1353: END LOOP;
1354: END IF;
1355:
1356: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1357: RAISE FND_API.G_EXC_ERROR;
1358: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1359: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1360: /*
1353: END LOOP;
1354: END IF;
1355:
1356: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1357: RAISE FND_API.G_EXC_ERROR;
1358: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1359: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1360: /*
1361: Modified by jaramana on January 11, 2008 to fix the Bug 5935388/6504122
1354: END IF;
1355:
1356: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1357: RAISE FND_API.G_EXC_ERROR;
1358: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1359: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1360: /*
1361: Modified by jaramana on January 11, 2008 to fix the Bug 5935388/6504122
1362: If success is returned by the Public API, clear the message stack to eat up any warning messages from OM API.
1355:
1356: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1357: RAISE FND_API.G_EXC_ERROR;
1358: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1359: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1360: /*
1361: Modified by jaramana on January 11, 2008 to fix the Bug 5935388/6504122
1362: If success is returned by the Public API, clear the message stack to eat up any warning messages from OM API.
1363: Otherwise, OAExceptionUtils.checkErrors will consider these as errors
1363: Otherwise, OAExceptionUtils.checkErrors will consider these as errors
1364: Also note that had there been any validation errors that had been accumulated we would have thrown before the call to
1365: OE_ORDER_GRP.PROCESS_ORDER
1366: */
1367: ELSIF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1368: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1369: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
1370: FND_MSG_PUB.get (
1371: p_msg_index => i,
1368: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1369: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
1370: FND_MSG_PUB.get (
1371: p_msg_index => i,
1372: p_encoded => FND_API.G_FALSE,
1373: p_data => l_msg_data,
1374: p_msg_index_out => l_msg_index_out );
1375: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'OE: Warning ' || i || ': ' || l_msg_data);
1376: END LOOP;
1381: IF (l_line_tbl.COUNT >0) THEN
1382: FOR i IN l_line_tbl.FIRST..l_line_tbl.LAST LOOP
1383: Delete_IB_Transaction(
1384: -- Changed by jaramana on January 11, 2008 for the Requisition ER 6034236.
1385: p_init_msg_list => FND_API.G_FALSE, --p_init_msg_list,
1386: p_commit => p_commit,
1387: p_validation_level => p_validation_level,
1388: x_return_status => x_return_status,
1389: x_msg_count => x_msg_count,
1389: x_msg_count => x_msg_count,
1390: x_msg_data => x_msg_data,
1391: p_oe_line_id => l_line_tbl(i).line_id );
1392:
1393: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1394: RAISE FND_API.G_EXC_ERROR;
1395: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1397: END IF;
1390: x_msg_data => x_msg_data,
1391: p_oe_line_id => l_line_tbl(i).line_id );
1392:
1393: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1394: RAISE FND_API.G_EXC_ERROR;
1395: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1397: END IF;
1398:
1391: p_oe_line_id => l_line_tbl(i).line_id );
1392:
1393: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1394: RAISE FND_API.G_EXC_ERROR;
1395: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1397: END IF;
1398:
1399: END LOOP;
1392:
1393: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1394: RAISE FND_API.G_EXC_ERROR;
1395: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1397: END IF;
1398:
1399: END LOOP;
1400: END IF;
1399: END LOOP;
1400: END IF;
1401:
1402: -- Standard check of p_commit
1403: IF FND_API.To_Boolean(p_commit) THEN
1404: COMMIT WORK;
1405: END IF;
1406:
1407: -- Standard call to get message count and if count is 1, get message
1407: -- Standard call to get message count and if count is 1, get message
1408: FND_MSG_PUB.Count_And_Get
1409: ( p_count => x_msg_count,
1410: p_data => x_msg_data,
1411: p_encoded => fnd_api.g_false);
1412:
1413: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1414: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1415: END IF;
1414: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1415: END IF;
1416:
1417: EXCEPTION
1418: WHEN FND_API.G_EXC_ERROR THEN
1419: x_return_status := FND_API.G_RET_STS_ERROR;
1420: Rollback to Delete_Cancel_Order_Pub;
1421: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1422: p_data => x_msg_data,
1415: END IF;
1416:
1417: EXCEPTION
1418: WHEN FND_API.G_EXC_ERROR THEN
1419: x_return_status := FND_API.G_RET_STS_ERROR;
1420: Rollback to Delete_Cancel_Order_Pub;
1421: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1422: p_data => x_msg_data,
1423: p_encoded => fnd_api.g_false);
1419: x_return_status := FND_API.G_RET_STS_ERROR;
1420: Rollback to Delete_Cancel_Order_Pub;
1421: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1422: p_data => x_msg_data,
1423: p_encoded => fnd_api.g_false);
1424:
1425: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1426: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1427: Rollback to Delete_Cancel_Order_Pub;
1421: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1422: p_data => x_msg_data,
1423: p_encoded => fnd_api.g_false);
1424:
1425: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1426: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1427: Rollback to Delete_Cancel_Order_Pub;
1428: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1429: p_data => x_msg_data,
1422: p_data => x_msg_data,
1423: p_encoded => fnd_api.g_false);
1424:
1425: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1426: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1427: Rollback to Delete_Cancel_Order_Pub;
1428: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1429: p_data => x_msg_data,
1430: p_encoded => fnd_api.g_false);
1426: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1427: Rollback to Delete_Cancel_Order_Pub;
1428: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1429: p_data => x_msg_data,
1430: p_encoded => fnd_api.g_false);
1431: WHEN OTHERS THEN
1432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1433: Rollback to Delete_Cancel_Order_Pub;
1434: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1428: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1429: p_data => x_msg_data,
1430: p_encoded => fnd_api.g_false);
1431: WHEN OTHERS THEN
1432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1433: Rollback to Delete_Cancel_Order_Pub;
1434: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1435: p_procedure_name => 'Delete_Cancel_Order',
1436: p_error_text => SQLERRM);
1436: p_error_text => SQLERRM);
1437:
1438: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1439: p_data => x_msg_data,
1440: p_encoded => fnd_api.g_false);
1441: END Delete_Cancel_Order;
1442:
1443: ---------------------------------------------------------------------
1444: -- FUNCTION
1447: -- PURPOSE
1448: -- This function checks if the shipment header is closed.
1449: --
1450: -- NOTES
1451: -- 1. It will return FND_API.g_true/g_false.
1452: -- 2. Exception encountered will be raised to the caller.
1453: ---------------------------------------------------------------------
1454: FUNCTION is_order_header_closed(
1455: p_oe_header_id IN NUMBER )
1495: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1496: Fnd_Message.set_name('AHL', 'AHL_OSP_HEADER_ID_INV');
1497: Fnd_Msg_Pub.ADD;
1498: END IF;
1499: RAISE Fnd_Api.g_exc_error;
1500: END IF;
1501: CLOSE ahl_osp_header_id_csr;
1502: */
1503:
1501: CLOSE ahl_osp_header_id_csr;
1502: */
1503:
1504: --Modified by mpothuku on 18-Sep-06 for fixing the Bug 5673483
1505: l_closed := FND_API.G_FALSE;
1506: IF(p_oe_header_id is not null) THEN
1507: OPEN ahl_osp_oe_closed_csr (p_oe_header_id);
1508: FETCH ahl_osp_oe_closed_csr INTO l_ahl_osp_oe_closed_csr;
1509: IF (ahl_osp_oe_closed_csr%FOUND) THEN
1509: IF (ahl_osp_oe_closed_csr%FOUND) THEN
1510: IF((l_ahl_osp_oe_closed_csr.open_flag = 'N' AND l_ahl_osp_oe_closed_csr.flow_status_code = 'CLOSED')
1511: OR (l_ahl_osp_oe_closed_csr.cancelled_flag = 'Y' AND l_ahl_osp_oe_closed_csr.flow_status_code = 'CANCELLED'))
1512: THEN
1513: l_closed := FND_API.G_TRUE;
1514: END IF;
1515: ELSE --This may mean that the Sales Order has been deleted from the OM Forms and Synch has not been done
1516: CLOSE ahl_osp_oe_closed_csr;
1517: l_closed := FND_API.G_FALSE;
1513: l_closed := FND_API.G_TRUE;
1514: END IF;
1515: ELSE --This may mean that the Sales Order has been deleted from the OM Forms and Synch has not been done
1516: CLOSE ahl_osp_oe_closed_csr;
1517: l_closed := FND_API.G_FALSE;
1518: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_HEADER_ID_INV');
1519: FND_MSG_PUB.ADD;
1520: RAISE Fnd_Api.g_exc_error;
1521: END IF;
1516: CLOSE ahl_osp_oe_closed_csr;
1517: l_closed := FND_API.G_FALSE;
1518: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_HEADER_ID_INV');
1519: FND_MSG_PUB.ADD;
1520: RAISE Fnd_Api.g_exc_error;
1521: END IF;
1522: CLOSE ahl_osp_oe_closed_csr;
1523: END IF;
1524: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1697: END IF;
1698:
1699: --If no operation, then invalid order
1700: IF (p_header_rec.operation IS NULL OR
1701: p_header_rec.operation = FND_API.G_MISS_CHAR) THEN
1702: RETURN;
1703: END IF;
1704:
1705: IF (p_header_rec.header_id IS NOT NULL) THEN
1752:
1753: IF l_vendor_cust_dtls.customer_site_id IS NULL THEN
1754: Fnd_Message.set_name('AHL', 'AHL_OSP_VENDOR_INFO_NULL');
1755: Fnd_Msg_Pub.ADD;
1756: RAISE Fnd_Api.g_exc_error;
1757: END IF;
1758:
1759: OPEN ahl_customer_info_csr(l_vendor_cust_dtls.customer_site_id);
1760: FETCH ahl_customer_info_csr INTO l_cust_id;
1774: Fnd_Message.set_name('AHL', 'AHL_OSP_SOLD_TO_ORG_INV');
1775: FND_MESSAGE.SET_TOKEN('SOLD_TO_ORG',p_header_rec.sold_to_custom_number);
1776: Fnd_Msg_Pub.ADD;
1777: END IF;
1778: RAISE Fnd_Api.g_exc_error;
1779: END IF;
1780: CLOSE ahl_sold_to_orgs_csr;
1781: END IF;
1782: x_header_val_rec.customer_number := p_header_rec.sold_to_custom_number;
1802: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_TO_ORG_INV');
1803: FND_MESSAGE.SET_TOKEN('SHIP_TO_ORG',p_header_rec.ship_to_org);
1804: Fnd_Msg_Pub.ADD;
1805: END IF;
1806: RAISE Fnd_Api.g_exc_error;
1807: END IF;
1808: CLOSE ahl_ship_to_orgs_csr;
1809: END IF;
1810: x_header_val_rec.ship_to_org := p_header_rec.ship_to_org;
1826: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_FROM_ORG_INV');
1827: FND_MESSAGE.SET_TOKEN('SHIP_FROM_ORG',p_header_rec.ship_from_org);
1828: Fnd_Msg_Pub.ADD;
1829: END IF;
1830: RAISE Fnd_Api.g_exc_error;
1831: END IF;
1832: CLOSE ahl_ship_from_orgs_csr;
1833: END IF;
1834: x_header_val_rec.ship_from_org := p_header_rec.ship_from_org;
1850: OPEN ahl_sold_to_contact_count_csr(p_header_rec.ship_to_contact,
1851: x_header_rec.sold_to_org_id);
1852: FETCH ahl_sold_to_contact_count_csr INTO l_contact_count;
1853: IF (l_contact_count < 2) THEN
1854: x_header_rec.sold_to_contact_id := FND_API.G_MISS_NUM;
1855: x_header_val_rec.sold_to_contact := p_header_rec.ship_to_contact;
1856: ELSE
1857: x_header_rec.sold_to_contact_id := p_header_rec.ship_to_contact_id;
1858: END IF;
1859: CLOSE ahl_sold_to_contact_count_csr;
1860:
1861: --Nullable LOV parameters
1862: IF (p_module_type = 'JSP') THEN
1863: x_header_rec.fob_point_code := FND_API.G_MISS_CHAR;
1864: x_header_val_rec.fob_point := p_header_rec.fob_point;
1865: ELSE
1866: x_header_rec.fob_point_code := p_header_rec.fob_point_code;
1867: END IF;
1866: x_header_rec.fob_point_code := p_header_rec.fob_point_code;
1867: END IF;
1868: -- No used as of now . COmmented in JSP
1869: IF (p_module_type = 'JSP') THEN
1870: x_header_rec.freight_carrier_code := FND_API.G_MISS_CHAR;
1871: x_header_val_rec.freight_carrier := p_header_rec.freight_carrier;
1872: ELSE
1873: x_header_rec.freight_carrier_code := p_header_rec.freight_carrier_code;
1874: END IF;
1874: END IF;
1875:
1876:
1877: IF (p_module_type = 'JSP') THEN
1878: x_header_rec.freight_terms_code := FND_API.G_MISS_CHAR ;
1879: x_header_val_rec.freight_terms := p_header_rec.freight_terms;
1880: ELSE
1881: x_header_rec.freight_terms_code := p_header_rec.freight_terms_code;
1882: END IF;
1883:
1884:
1885: /* To be fetched from Profile */
1886: IF (p_module_type = 'JSP') THEN
1887: x_header_rec.shipment_priority_code := FND_API.G_MISS_CHAR;
1888: x_header_val_rec.shipment_priority := p_header_rec.shipment_priority;
1889: ELSE
1890: x_header_rec.shipment_priority_code := p_header_rec.shipment_priority_code;
1891: END IF;
1890: x_header_rec.shipment_priority_code := p_header_rec.shipment_priority_code;
1891: END IF;
1892:
1893: IF (p_module_type = 'JSP') THEN
1894: x_header_rec.shipping_method_code := FND_API.G_MISS_CHAR;
1895: x_header_val_rec.shipping_method := p_header_rec.shipping_method;
1896: ELSE
1897: x_header_rec.shipping_method_code := p_header_rec.shipping_method_code;
1898: END IF;
1899:
1900: -- Added by jaramana on June 3, 2005 to default Header Values from setup
1901: IF (p_header_rec.operation = 'C') THEN
1902: -- Allow these values to be defaulted when creating a Shipment
1903: x_header_rec.shipping_method_code := FND_API.G_MISS_CHAR;
1904: x_header_rec.freight_terms_code := FND_API.G_MISS_CHAR;
1905: x_header_rec.freight_carrier_code := FND_API.G_MISS_CHAR;
1906: x_header_rec.fob_point_code := FND_API.G_MISS_CHAR;
1907: -- Get this from the profile
1900: -- Added by jaramana on June 3, 2005 to default Header Values from setup
1901: IF (p_header_rec.operation = 'C') THEN
1902: -- Allow these values to be defaulted when creating a Shipment
1903: x_header_rec.shipping_method_code := FND_API.G_MISS_CHAR;
1904: x_header_rec.freight_terms_code := FND_API.G_MISS_CHAR;
1905: x_header_rec.freight_carrier_code := FND_API.G_MISS_CHAR;
1906: x_header_rec.fob_point_code := FND_API.G_MISS_CHAR;
1907: -- Get this from the profile
1908: x_header_rec.shipment_priority_code := FND_PROFILE.VALUE('AHL_OSP_OE_SHIPMENT_PRIORITY');
1901: IF (p_header_rec.operation = 'C') THEN
1902: -- Allow these values to be defaulted when creating a Shipment
1903: x_header_rec.shipping_method_code := FND_API.G_MISS_CHAR;
1904: x_header_rec.freight_terms_code := FND_API.G_MISS_CHAR;
1905: x_header_rec.freight_carrier_code := FND_API.G_MISS_CHAR;
1906: x_header_rec.fob_point_code := FND_API.G_MISS_CHAR;
1907: -- Get this from the profile
1908: x_header_rec.shipment_priority_code := FND_PROFILE.VALUE('AHL_OSP_OE_SHIPMENT_PRIORITY');
1909: END IF;
1902: -- Allow these values to be defaulted when creating a Shipment
1903: x_header_rec.shipping_method_code := FND_API.G_MISS_CHAR;
1904: x_header_rec.freight_terms_code := FND_API.G_MISS_CHAR;
1905: x_header_rec.freight_carrier_code := FND_API.G_MISS_CHAR;
1906: x_header_rec.fob_point_code := FND_API.G_MISS_CHAR;
1907: -- Get this from the profile
1908: x_header_rec.shipment_priority_code := FND_PROFILE.VALUE('AHL_OSP_OE_SHIPMENT_PRIORITY');
1909: END IF;
1910:
1910:
1911: /*
1912: -- JR: Coded on 8/19/2003 as fix for Bug 3095543
1913: -- Payment Term is mandatory
1914: IF ((p_module_type = 'JSP') AND (p_header_rec.payment_term = FND_API.G_MISS_CHAR)) THEN
1915: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1916: Fnd_Message.set_name('AHL', 'AHL_OSP_PAYMENT_TERM_NULL');
1917: Fnd_Msg_Pub.ADD;
1918: END IF;
1915: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1916: Fnd_Message.set_name('AHL', 'AHL_OSP_PAYMENT_TERM_NULL');
1917: Fnd_Msg_Pub.ADD;
1918: END IF;
1919: RAISE Fnd_Api.g_exc_error;
1920: END IF;
1921: IF (p_module_type = 'JSP') THEN
1922: x_header_rec.payment_term_id := FND_API.G_MISS_NUM;
1923: x_header_val_rec.payment_term := p_header_rec.payment_term;
1918: END IF;
1919: RAISE Fnd_Api.g_exc_error;
1920: END IF;
1921: IF (p_module_type = 'JSP') THEN
1922: x_header_rec.payment_term_id := FND_API.G_MISS_NUM;
1923: x_header_val_rec.payment_term := p_header_rec.payment_term;
1924: ELSE
1925: x_header_rec.payment_term_id := p_header_rec.payment_term_id;
1926: END IF;
1935: IF (p_header_rec.tax_exempt_number IS NOT NULL) THEN
1936: x_header_rec.tax_exempt_number := p_header_rec.tax_exempt_number;
1937: END IF;
1938: IF (p_module_type = 'JSP') THEN
1939: x_header_rec.tax_exempt_reason_code := FND_API.G_MISS_CHAR;
1940: x_header_val_rec.tax_exempt_reason := p_header_rec.tax_exempt_reason;
1941: ELSE
1942: x_header_rec.tax_exempt_reason_code := p_header_rec.tax_exempt_reason_code;
1943: END IF;
2574: END IF;
2575: FOR i IN p_x_line_tbl.FIRST..p_x_line_tbl.LAST LOOP
2576: -- Get the OSP Order Type if not known
2577: IF(p_x_line_tbl(i).osp_order_id IS NOT NULL AND
2578: p_x_line_tbl(i).osp_order_id <> FND_API.G_MISS_NUM AND
2579: l_curr_osp_type IS NULL) THEN
2580: OPEN get_osp_order_type_csr(p_x_line_tbl(i).osp_order_id);
2581: FETCH get_osp_order_type_csr into l_curr_osp_type;
2582: CLOSE get_osp_order_type_csr;
2582: CLOSE get_osp_order_type_csr;
2583: END IF;
2584:
2585: -- Set the Order Type field in the Line Record
2586: IF (p_x_line_tbl(i).order_type IS NULL OR p_x_line_tbl(i).order_type = FND_API.G_MISS_CHAR) THEN
2587: p_x_line_tbl(i).order_type := l_curr_osp_type;
2588: END IF;
2589:
2590: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2593: ', p_x_line_tbl(i).osp_line_id = ' || p_x_line_tbl(i).osp_line_id ||
2594: ', p_x_line_tbl(i).osp_line_flag = ' || p_x_line_tbl(i).osp_line_flag ||
2595: ', p_x_line_tbl(i).line_id = ' || p_x_line_tbl(i).line_id);
2596: END IF;
2597: IF ((p_x_line_tbl(i).osp_order_id IS NOT NULL AND p_x_line_tbl(i).osp_order_id <> FND_API.G_MISS_NUM) AND
2598: p_x_line_tbl(i).osp_line_id IS NOT NULL AND p_x_line_tbl(i).osp_line_flag = 'Y') THEN
2599: -- Shipment Line is for a OSP Line
2600: IF p_x_line_tbl(i).line_id IS NULL THEN
2601: -- Ship Line Id is not known: Get the OSP Line Details from the OSP Line Id
2605: IF osp_line_details_csr%NOTFOUND THEN
2606: Fnd_Message.set_name('AHL', 'AHL_OSP_PRIMARY_KEY_NULL');
2607: Fnd_Msg_Pub.ADD;
2608: CLOSE osp_line_details_csr;
2609: RAISE Fnd_Api.g_exc_error;
2610: END IF;
2611: CLOSE osp_line_details_csr;
2612: ELSE
2613: /*
2631: END IF;
2632: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_NO_DATA_FOUND');
2633: FND_MSG_PUB.ADD;
2634: CLOSE get_so_line_details;
2635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2636: END IF;
2637: CLOSE get_so_line_details;
2638:
2639: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2645:
2646: IF(nvl(l_get_so_line_details.open_flag,'Y') = 'N') THEN
2647: FND_MESSAGE.SET_NAME('AHL', 'AHL_OSP_OM_LINE_CLOSED');
2648: FND_MSG_PUB.ADD;
2649: RAISE FND_API.G_EXC_ERROR;
2650: END IF;
2651: --mpothuku End
2652: -- Get the OSP Line Details from the Ship Line Id
2653: OPEN osp_line_details_csr3(p_x_line_tbl(i).osp_order_id,
2656: IF osp_line_details_csr3%NOTFOUND THEN
2657: Fnd_Message.set_name('AHL', 'AHL_OSP_PRIMARY_KEY_NULL');
2658: Fnd_Msg_Pub.ADD;
2659: CLOSE osp_line_details_csr3;
2660: RAISE Fnd_Api.g_exc_error;
2661: END IF;
2662: CLOSE osp_line_details_csr3;
2663: END IF;
2664:
2699: FND_MSG_PUB.ADD;
2700: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2701: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
2702: END IF;
2703: RAISE Fnd_Api.g_exc_error;
2704: END IF;
2705:
2706: l_service_duration := FND_PROFILE.VALUE('AHL_VENDOR_SERVICE_DURATION');
2707:
2773: (p_x_line_tbl(i).order_type = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE)) THEN
2774:
2775: -- yazhou 26-Apr-2006 ends
2776: /*
2777: IF (l_wo_rec.exchange_instance_id IS NULL OR l_wo_rec.exchange_instance_id = FND_API.G_MISS_NUM) THEN
2778: */
2779: --mpothuku updated on 06-Mar-06 to remove the ref to l_wo_rec as its not being used
2780:
2781:
2780:
2781:
2782: /* Commented out since exchange instance can be null
2783: IF (p_x_line_tbl(i).operation <> 'D') THEN
2784: IF (l_osp_line_det_type.exchange_instance_id IS NULL OR l_osp_line_det_type.exchange_instance_id = FND_API.G_MISS_NUM) THEN
2785: -- Need to set exchange instance before creating return shipment line for exchange orders
2786: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2787: Fnd_Message.set_name('AHL', 'AHL_OSP_EXC_INST_ID_NULL');
2788: Fnd_Msg_Pub.ADD;
2786: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2787: Fnd_Message.set_name('AHL', 'AHL_OSP_EXC_INST_ID_NULL');
2788: Fnd_Msg_Pub.ADD;
2789: END IF;
2790: RAISE Fnd_Api.g_exc_error;
2791: END IF;
2792: END IF;
2793: */
2794:
2792: END IF;
2793: */
2794:
2795: IF (l_osp_line_det_type.exchange_instance_id IS NOT NULL AND
2796: l_osp_line_det_type.exchange_instance_id <> FND_API.G_MISS_NUM) THEN
2797:
2798: p_x_line_tbl(i).csi_item_instance_id:= l_osp_line_det_type.exchange_instance_id;
2799: -- Get Details about the Exchange Instance
2800: OPEN ahl_exc_inst_details(p_x_line_tbl(i).csi_item_instance_id);
2826: p_x_line_tbl(i).order_quantity_uom <> l_old_uom OR
2827: NVL(p_x_line_tbl(i).lot_number, 'X') <> NVL(l_old_lot_number, 'X')) THEN
2828: Fnd_Message.set_name('AHL', 'AHL_OSP_ITEM_ATTR_NO_CHANGE');
2829: Fnd_Msg_Pub.ADD;
2830: RAISE Fnd_Api.g_exc_error;
2831: END IF;
2832: --Bug fix 4580226 ends
2833:
2834: ELSE -- Exchange instance is null
2928: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2929: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_COMPONENT');
2930: Fnd_Msg_Pub.ADD;
2931: END IF;
2932: RAISE Fnd_Api.g_exc_error;
2933: END IF;
2934: CLOSE ahl_csi_unit_test_csr;
2935: END IF;
2936:
2948: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2949: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processing a Ship-Only Line');
2950: END IF;
2951: -- Default the Ship Date if not already Set
2952: IF (p_x_line_tbl(i).schedule_ship_date IS NULL OR p_x_line_tbl(i).schedule_ship_date = FND_API.G_MISS_DATE) THEN
2953:
2954: -- yazhou 31-Jul-2006 starts
2955: -- bug fix#5442904
2956: IF p_x_line_tbl(i).order_type = 'BORROW' THEN
2979: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2980: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_LINE_DEFINED');
2981: Fnd_Msg_Pub.ADD;
2982: END IF;
2983: RAISE Fnd_Api.g_exc_error;
2984: END IF;
2985: CLOSE ahl_oe_ship_id_csr;
2986: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2987: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'No Duplicate Shipment Lines Found.');
3002: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3003: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_BORROW_ORDER');
3004: Fnd_Msg_Pub.ADD;
3005: END IF;
3006: RAISE Fnd_Api.g_exc_error;
3007: END IF;
3008: */
3009: -- Check that the schedule ship dates are correct.
3010: IF (l_return_date IS NOT NULL) THEN
3015: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3016: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3017: Fnd_Msg_Pub.ADD;
3018: END IF;
3019: RAISE Fnd_Api.g_exc_error;
3020: END IF;
3021: -- For exchange orders, the ship date can be after the return date (Advance Exchange)
3022: ELSIF (p_x_line_tbl(i).order_type <> AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE) THEN
3023: --For others, ship date must be before return date
3026: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3027: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3028: Fnd_Msg_Pub.ADD;
3029: END IF;
3030: RAISE Fnd_Api.g_exc_error;
3031: END IF; -- Return Date < Ship Date
3032: END IF; -- Borrow or Exchange or Other
3033: END IF; -- Return Date is not null
3034: CLOSE ahl_oe_schedule_date_csr;
3036: -- Return Line
3037: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3038: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processing a Return Line');
3039: END IF;
3040: IF (p_x_line_tbl(i).schedule_ship_date IS NULL OR p_x_line_tbl(i).schedule_ship_date = FND_API.G_MISS_DATE) THEN
3041:
3042: -- yazhou 31-Jul-2006 starts
3043: -- bug fix#5442904
3044: IF p_x_line_tbl(i).order_type = 'BORROW' THEN
3070: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3071: Fnd_Message.set_name('AHL', 'AHL_OSP_RETURN_LINE_DEFINED');
3072: Fnd_Msg_Pub.ADD;
3073: END IF;
3074: RAISE Fnd_Api.g_exc_error;
3075: END IF;
3076: CLOSE ahl_oe_return_id_csr;
3077:
3078: OPEN ahl_oe_schedule_date_csr(p_x_line_tbl(i).osp_order_id,
3091: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3092: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3093: Fnd_Msg_Pub.ADD;
3094: END IF;
3095: RAISE Fnd_Api.g_exc_error;
3096: END IF;
3097: -- For exchange orders, the ship date can be after the return date (Advance Exchange)
3098: ELSIF (p_x_line_tbl(i).order_type <> AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE) THEN
3099: --For others, return date must be after the ship date
3102: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3103: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3104: Fnd_Msg_Pub.ADD;
3105: END IF;
3106: RAISE Fnd_Api.g_exc_error;
3107: END IF; -- Ship Date > Return Date
3108: END IF; -- Borrow or Exchange or Other
3109: END IF; -- Ship Date is not null
3110: CLOSE ahl_oe_schedule_date_csr;
3175:
3176: -- yazhou 26-Apr-2006 ends
3177:
3178: /*
3179: IF (l_wo_rec.exchange_instance_id IS NULL OR l_wo_rec.exchange_instance_id = FND_API.G_MISS_NUM) THEN
3180: */
3181: --mpothuku updated on 06-Mar-06 to remove the ref to l_wo_rec as its not being used
3182:
3183:
3182:
3183:
3184: /* Commented out since exchange instance can be null
3185: IF (p_x_line_tbl(i).operation <> 'D') THEN
3186: IF (l_osp_line_det_type.exchange_instance_id IS NULL OR l_osp_line_det_type.exchange_instance_id = FND_API.G_MISS_NUM) THEN
3187: -- Need to set exchange instance before creating return shipment line for exchange orders
3188: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3189: Fnd_Message.set_name('AHL', 'AHL_OSP_EXC_INST_ID_NULL');
3190: Fnd_Msg_Pub.ADD;
3188: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3189: Fnd_Message.set_name('AHL', 'AHL_OSP_EXC_INST_ID_NULL');
3190: Fnd_Msg_Pub.ADD;
3191: END IF;
3192: RAISE Fnd_Api.g_exc_error;
3193: END IF;
3194: END IF;
3195: */
3196:
3194: END IF;
3195: */
3196:
3197: IF (l_osp_line_det_type.exchange_instance_id IS NOT NULL AND
3198: l_osp_line_det_type.exchange_instance_id <> FND_API.G_MISS_NUM) THEN
3199:
3200: p_x_line_tbl(i).csi_item_instance_id:= l_osp_line_det_type.exchange_instance_id;
3201: -- Get Details about the Exchange Instance
3202: OPEN ahl_exc_inst_details(p_x_line_tbl(i).csi_item_instance_id);
3228: p_x_line_tbl(i).order_quantity_uom <> l_old_uom OR
3229: NVL(p_x_line_tbl(i).lot_number, 'X') <> NVL(l_old_lot_number, 'X')) THEN
3230: Fnd_Message.set_name('AHL', 'AHL_OSP_ITEM_ATTR_NO_CHANGE');
3231: Fnd_Msg_Pub.ADD;
3232: RAISE Fnd_Api.g_exc_error;
3233: END IF;
3234: --Bug fix 4580226 ends
3235:
3236: ELSE -- Exchange instance is null
3330: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3331: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_COMPONENT');
3332: Fnd_Msg_Pub.ADD;
3333: END IF;
3334: RAISE Fnd_Api.g_exc_error;
3335: END IF;
3336: CLOSE ahl_csi_unit_test_csr;
3337: END IF;
3338:
3350: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3351: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processing a Ship-Only Line');
3352: END IF;
3353: -- Default the Ship Date if not already Set
3354: IF (p_x_line_tbl(i).schedule_ship_date IS NULL OR p_x_line_tbl(i).schedule_ship_date = FND_API.G_MISS_DATE) THEN
3355:
3356: -- yazhou 31-Jul-2006 starts
3357: -- bug fix#5442904
3358: IF p_x_line_tbl(i).order_type = 'BORROW' THEN
3388: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3389: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_LINE_DEFINED');
3390: Fnd_Msg_Pub.ADD;
3391: END IF;
3392: RAISE Fnd_Api.g_exc_error;
3393: END IF;
3394: CLOSE ahl_oe_ship_id_csr;
3395:
3396: --yazhou 06-Jun-2006 ends
3419: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3420: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_BORROW_ORDER');
3421: Fnd_Msg_Pub.ADD;
3422: END IF;
3423: RAISE Fnd_Api.g_exc_error;
3424: END IF;
3425: */
3426: --Check that the schedule ship dates are correct.
3427: IF (l_return_date IS NOT NULL) THEN
3432: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3433: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3434: Fnd_Msg_Pub.ADD;
3435: END IF;
3436: RAISE Fnd_Api.g_exc_error;
3437: END IF;
3438: -- For exchange orders, the ship date can be after the return date (Advance Exchange)
3439: ELSIF (p_x_line_tbl(i).order_type <> AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE) THEN
3440: --For others, ship date must be before return date
3443: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3444: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3445: Fnd_Msg_Pub.ADD;
3446: END IF;
3447: RAISE Fnd_Api.g_exc_error;
3448: END IF; -- Return Date < Ship Date
3449: END IF; -- Borrow or Exchange or Other
3450: END IF; -- Return Date is not null
3451: CLOSE ahl_oe_Inv_schedule_date_csr;
3452: ELSIF (p_x_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID')) THEN
3453: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3454: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processing a Return Line');
3455: END IF;
3456: IF (p_x_line_tbl(i).schedule_ship_date IS NULL OR p_x_line_tbl(i).schedule_ship_date = FND_API.G_MISS_DATE) THEN
3457:
3458: -- yazhou 31-Jul-2006 starts
3459: -- bug fix#5442904
3460: IF p_x_line_tbl(i).order_type = 'BORROW' THEN
3497: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3498: Fnd_Message.set_name('AHL', 'AHL_OSP_RETURN_LINE_DEFINED');
3499: Fnd_Msg_Pub.ADD;
3500: END IF;
3501: RAISE Fnd_Api.g_exc_error;
3502: END IF;
3503: CLOSE ahl_oe_return_id_csr;
3504:
3505: --yazhou 06-Jun-2006 ends
3525: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3526: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3527: Fnd_Msg_Pub.ADD;
3528: END IF;
3529: RAISE Fnd_Api.g_exc_error;
3530: END IF;
3531: -- For exchange orders, the ship date can be after the return date (Advance Exchange)
3532: ELSIF (p_x_line_tbl(i).order_type <> AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE) THEN
3533: --For others, return date must be after the ship date
3536: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3537: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3538: Fnd_Msg_Pub.ADD;
3539: END IF;
3540: RAISE Fnd_Api.g_exc_error;
3541: END IF; -- Ship Date > Return Date
3542: END IF; -- Borrow or Exchange or Other
3543: END IF; -- Ship Date is not null
3544: CLOSE ahl_oe_Inv_schedule_date_csr;
3555:
3556: IF p_x_line_tbl(i).schedule_ship_date < TRUNC(sysdate) THEN
3557: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_DATE_LT_SYS');
3558: Fnd_Msg_Pub.ADD;
3559: RAISE Fnd_Api.g_exc_error;
3560: END IF;
3561:
3562: IF (p_x_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID')) THEN
3563: p_x_line_tbl(i).line_type := 'SHIP';
3601: IF validate_item%NOTFOUND THEN
3602: Fnd_Message.set_name('AHL', 'AHL_OSP_INVALID_INV_ITEM');
3603: Fnd_Msg_Pub.ADD;
3604: CLOSE validate_item;
3605: RAISE Fnd_Api.g_exc_error;
3606: END IF;
3607: CLOSE validate_item;
3608: END IF; -- IF p_x_line_tbl(i).line_id IS NULL
3609: END IF; -- OSP Line Flag is Y or Not Y
3668: -- @@@@@ jaramana June 4, 2004: May become a translation issue
3669: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: OM Line Return Reason');
3670: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_OE_LINE_RET_REASON_CODE'));
3671: FND_MSG_PUB.ADD;
3672: RAISE Fnd_Api.g_exc_error;
3673: END IF;
3674: p_x_line_tbl(l_index).return_reason := NULL;
3675:
3676: -- yazhou 31-Jul-2006 starts
3697: FND_MSG_PUB.ADD;
3698: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3699: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
3700: END IF;
3701: RAISE Fnd_Api.g_exc_error;
3702: END IF;
3703:
3704: l_service_duration := FND_PROFILE.VALUE('AHL_VENDOR_SERVICE_DURATION');
3705:
3753: IF(ahl_osp_work_csr%NOTFOUND) THEN
3754: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_OSP_LN_INV_WO');
3755: FND_MESSAGE.Set_Token('WORKORDER_ID', I.WORKORDER_ID);
3756: CLOSE ahl_osp_work_csr;
3757: RAISE Fnd_Api.g_exc_error;
3758: END IF;
3759: CLOSE ahl_osp_work_csr;
3760: p_x_line_tbl(l_index).inventory_item_id := l_work_det.inventory_item_id;
3761: p_x_line_tbl(l_index).serial_number := l_work_det.serial_number;
3785: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3786: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_COMPONENT');
3787: Fnd_Msg_Pub.ADD;
3788: END IF;
3789: RAISE Fnd_Api.g_exc_error;
3790: END IF;
3791: CLOSE ahl_csi_unit_test_csr;
3792: END IF;
3793: --mpothuku on 04-May-06 Ends
4011: FND_MESSAGE.set_name('AHL', 'AHL_OSP_SHIP_FROM_ORG_INV');
4012: FND_MESSAGE.SET_TOKEN('SHIP_FROM_ORG', p_line_tbl(i).ship_from_org);
4013: FND_MSG_PUB.ADD;
4014: END IF;
4015: RAISE Fnd_Api.g_exc_error;
4016: END IF;
4017: CLOSE ahl_ship_from_orgs_csr;
4018: END IF;
4019: ELSE
4029: END IF;
4030:
4031: IF (p_module_type = 'JSP') THEN
4032: -- Set all Ids to G_MISS Values
4033: l_line_rec.fob_point_code := FND_API.G_MISS_CHAR ;
4034: l_line_rec.freight_carrier_code:= FND_API.G_MISS_CHAR ;
4035: l_line_rec.freight_terms_code := FND_API.G_MISS_CHAR ;
4036: l_line_rec.shipment_priority_code := FND_API.G_MISS_CHAR;
4037: l_line_rec.shipping_method_code := FND_API.G_MISS_CHAR ;
4030:
4031: IF (p_module_type = 'JSP') THEN
4032: -- Set all Ids to G_MISS Values
4033: l_line_rec.fob_point_code := FND_API.G_MISS_CHAR ;
4034: l_line_rec.freight_carrier_code:= FND_API.G_MISS_CHAR ;
4035: l_line_rec.freight_terms_code := FND_API.G_MISS_CHAR ;
4036: l_line_rec.shipment_priority_code := FND_API.G_MISS_CHAR;
4037: l_line_rec.shipping_method_code := FND_API.G_MISS_CHAR ;
4038: ELSE
4031: IF (p_module_type = 'JSP') THEN
4032: -- Set all Ids to G_MISS Values
4033: l_line_rec.fob_point_code := FND_API.G_MISS_CHAR ;
4034: l_line_rec.freight_carrier_code:= FND_API.G_MISS_CHAR ;
4035: l_line_rec.freight_terms_code := FND_API.G_MISS_CHAR ;
4036: l_line_rec.shipment_priority_code := FND_API.G_MISS_CHAR;
4037: l_line_rec.shipping_method_code := FND_API.G_MISS_CHAR ;
4038: ELSE
4039: l_line_rec.fob_point_code := p_line_tbl(i).fob_point_code;
4032: -- Set all Ids to G_MISS Values
4033: l_line_rec.fob_point_code := FND_API.G_MISS_CHAR ;
4034: l_line_rec.freight_carrier_code:= FND_API.G_MISS_CHAR ;
4035: l_line_rec.freight_terms_code := FND_API.G_MISS_CHAR ;
4036: l_line_rec.shipment_priority_code := FND_API.G_MISS_CHAR;
4037: l_line_rec.shipping_method_code := FND_API.G_MISS_CHAR ;
4038: ELSE
4039: l_line_rec.fob_point_code := p_line_tbl(i).fob_point_code;
4040: l_line_rec.freight_carrier_code := p_line_tbl(i).freight_carrier_code;
4033: l_line_rec.fob_point_code := FND_API.G_MISS_CHAR ;
4034: l_line_rec.freight_carrier_code:= FND_API.G_MISS_CHAR ;
4035: l_line_rec.freight_terms_code := FND_API.G_MISS_CHAR ;
4036: l_line_rec.shipment_priority_code := FND_API.G_MISS_CHAR;
4037: l_line_rec.shipping_method_code := FND_API.G_MISS_CHAR ;
4038: ELSE
4039: l_line_rec.fob_point_code := p_line_tbl(i).fob_point_code;
4040: l_line_rec.freight_carrier_code := p_line_tbl(i).freight_carrier_code;
4041: l_line_rec.freight_terms_code := p_line_tbl(i).freight_terms_code;
4082:
4083: -- NEED TO FIX: 'Return'
4084: IF (p_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID') AND
4085: p_line_tbl(i).serial_number IS NOT NULL AND
4086: p_line_tbl(i).serial_number <> FND_API.G_MISS_CHAR) THEN
4087: IF (p_line_tbl(i).operation = 'C') THEN
4088: l_lot_serial_rec := OE_ORDER_PUB.G_MISS_LOT_SERIAL_REC;
4089: l_lot_serial_rec.from_serial_number := p_line_tbl(i).serial_number;
4090: l_lot_serial_rec.lot_number := p_line_tbl(i).lot_number;
4233: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
4234: Fnd_Message.set_name('AHL', 'AHL_OSP_OSP_ID_NULL');
4235: Fnd_Msg_Pub.ADD;
4236: END IF;
4237: RAISE Fnd_Api.g_exc_error;
4238: END IF;
4239: CLOSE ahl_osp_order_csr;
4240:
4241: AHL_OSP_ORDERS_PKG.UPDATE_ROW(
4361: FOR l_osp_line_rec IN ahl_osp_lines_csr(p_osp_order_id, p_osp_line_id)
4362: LOOP
4363: l_row_check := 'Y';
4364: IF ( p_oe_ship_line_id IS NOT NULL
4365: AND p_oe_ship_line_id <> FND_API.G_MISS_NUM) THEN
4366: l_oe_ship_line_id := p_oe_ship_line_id;
4367: ELSE
4368: l_oe_ship_line_id := l_osp_line_rec.oe_ship_line_id;
4369: END IF;
4368: l_oe_ship_line_id := l_osp_line_rec.oe_ship_line_id;
4369: END IF;
4370:
4371: IF (p_oe_return_line_id IS NOT NULL
4372: AND p_oe_return_line_id <> FND_API.G_MISS_NUM) THEN
4373: l_oe_return_line_id := p_oe_return_line_id;
4374: ELSE
4375: l_oe_return_line_id := l_osp_line_rec.oe_return_line_id;
4376: END IF;
4427:
4428: IF l_row_check = 'N' THEN
4429: Fnd_Message.set_name('AHL', 'AHL_OSP_INVALID_LINE_ITEM');
4430: Fnd_Msg_Pub.ADD;
4431: RAISE Fnd_Api.g_exc_error;
4432: END IF;
4433:
4434: END Update_OSP_Order_Lines;
4435:
4634: FOR l_osp_line_rec IN ahl_osp_lines_csr(p_osp_order_id, p_item_instance_id)
4635: LOOP
4636: l_row_check := 'Y';
4637: IF ( p_oe_ship_line_id IS NOT NULL
4638: AND p_oe_ship_line_id <> FND_API.G_MISS_NUM) THEN
4639: l_oe_ship_line_id := p_oe_ship_line_id;
4640: ELSE
4641: l_oe_ship_line_id := l_osp_line_rec.oe_ship_line_id;
4642: END IF;
4641: l_oe_ship_line_id := l_osp_line_rec.oe_ship_line_id;
4642: END IF;
4643:
4644: IF (p_oe_return_line_id IS NOT NULL
4645: AND p_oe_return_line_id <> FND_API.G_MISS_NUM) THEN
4646: l_oe_return_line_id := p_oe_return_line_id;
4647: ELSE
4648: l_oe_return_line_id := l_osp_line_rec.oe_return_line_id;
4649: END IF;
4700:
4701: IF l_row_check = 'N' THEN
4702: Fnd_Message.set_name('AHL', 'AHL_OSP_INVALID_LINE_ITEM');
4703: Fnd_Msg_Pub.ADD;
4704: RAISE Fnd_Api.g_exc_error;
4705: END IF;
4706:
4707: END Update_OSP_Order_Lines;
4708:
4798: IF (val_exg_instance_id_csr %NOTFOUND) THEN
4799: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_SHIP_COMPONENT');
4800: FND_MSG_PUB.ADD;
4801: CLOSE val_exg_instance_id_csr;
4802: RAISE Fnd_Api.g_exc_error;
4803: END IF;
4804: CLOSE val_exg_instance_id_csr;
4805:
4806: FOR l_osp_line_rec IN ahl_osp_lines_csr(p_osp_order_id, p_osp_line_id)
4859:
4860: IF l_row_check = 'N' THEN
4861: Fnd_Message.set_name('AHL', 'AHL_OSP_INVALID_LINE_ITEM');
4862: Fnd_Msg_Pub.ADD;
4863: RAISE Fnd_Api.g_exc_error;
4864: END IF;
4865:
4866: END Update_OSP_Line_Exch_Instance;
4867:
4953: END Delete_OE_Lines;
4954:
4955: -- Create IB sub-txn for OSP order.
4956: PROCEDURE Create_IB_Transaction(
4957: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4958: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4959: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4960: x_return_status OUT NOCOPY VARCHAR2,
4961: x_msg_count OUT NOCOPY NUMBER,
4954:
4955: -- Create IB sub-txn for OSP order.
4956: PROCEDURE Create_IB_Transaction(
4957: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4958: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4959: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4960: x_return_status OUT NOCOPY VARCHAR2,
4961: x_msg_count OUT NOCOPY NUMBER,
4962: x_msg_data OUT NOCOPY VARCHAR2,
4955: -- Create IB sub-txn for OSP order.
4956: PROCEDURE Create_IB_Transaction(
4957: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4958: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4959: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4960: x_return_status OUT NOCOPY VARCHAR2,
4961: x_msg_count OUT NOCOPY NUMBER,
4962: x_msg_data OUT NOCOPY VARCHAR2,
4963: p_OSP_order_type IN VARCHAR2,
5046:
5047: BEGIN
5048:
5049: -- Initialize return status.
5050: x_return_status := FND_API.G_RET_STS_SUCCESS;
5051:
5052: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5053: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
5054: END IF;
5077: CLOSE csi_txn_types_csr;
5078: FND_MESSAGE.Set_Name('AHL','AHL_OSP_IB_TXN_NOTFOUND');
5079: FND_MESSAGE.Set_Token('TYPE',G_OM_ORDER);
5080: FND_MSG_PUB.ADD;
5081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5082: RETURN;
5083: END IF;
5084: CLOSE csi_txn_types_csr;
5085:
5092: --FND_MESSAGE.Set_Token('TYPE','Exchange Order Ship');
5093: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
5094: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_IB_SUBTXN_EXC_SHIP'));
5095: FND_MSG_PUB.ADD;
5096: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5097: RETURN;
5098: END IF;
5099: OPEN get_sold_to_org(p_oe_line_id);
5100: FETCH get_sold_to_org INTO l_new_party_id, l_new_party_account_id;
5104: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(p_csi_instance_id));
5105: Fnd_Msg_Pub.ADD;
5106: END IF;
5107: CLOSE get_sold_to_org;
5108: RAISE Fnd_Api.g_exc_error;
5109: END IF;
5110: CLOSE get_sold_to_org;
5111: -- Populate Party Details
5112: l_party_dtl_rec.PARTY_SOURCE_TABLE := 'HZ_PARTIES';
5127: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(p_csi_instance_id));
5128: Fnd_Msg_Pub.ADD;
5129: END IF;
5130: CLOSE get_owner_ip_id;
5131: RAISE Fnd_Api.g_exc_error;
5132: END IF;
5133: CLOSE get_owner_ip_id;
5134: l_party_dtl_rec.INSTANCE_PARTY_ID := l_curr_inst_pty_id;
5135:
5156: --FND_MESSAGE.Set_Token('TYPE','Service Order Ship');
5157: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
5158: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_IB_SUBTXN_SER_SHIP'));
5159: FND_MSG_PUB.ADD;
5160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5161: RETURN;
5162: END IF;
5163: ELSIF p_OSP_order_type = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_BORROW THEN
5164: --l_subtxn_name := G_SUBTXN_ORDER;
5168: --FND_MESSAGE.Set_Token('TYPE','Borrow Order Ship');
5169: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
5170: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_IB_SUBTXN_BOR_SHIP'));
5171: FND_MSG_PUB.ADD;
5172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5173: RETURN;
5174: END IF;
5175: END IF;
5176:
5181: CLOSE csi_txn_sub_types_csr;
5182: FND_MESSAGE.Set_Name('AHL','AHL_OSP_IB_SUBTXN_NOTFOUND');
5183: FND_MESSAGE.Set_Token('TYPE',l_subtxn_name);
5184: FND_MSG_PUB.ADD;
5185: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5186: RETURN;
5187: END IF;
5188: CLOSE csi_txn_sub_types_csr;
5189: */
5196: CLOSE csi_txn_types_csr;
5197: FND_MESSAGE.Set_Name('AHL','AHL_OSP_IB_TXN_NOTFOUND');
5198: FND_MESSAGE.Set_Token('TYPE',G_OM_RETURN);
5199: FND_MSG_PUB.ADD;
5200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5201: RETURN;
5202: END IF;
5203: CLOSE csi_txn_types_csr;
5204:
5211: --FND_MESSAGE.Set_Token('TYPE','Exchange Order Return');
5212: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
5213: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_IB_SUBTXN_EXC_RETURN'));
5214: FND_MSG_PUB.ADD;
5215: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5216: RETURN;
5217: END IF;
5218: -- Get internal Party Id
5219: OPEN get_internal_party_csr;
5223: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_INT_PARTY');
5224: Fnd_Msg_Pub.ADD;
5225: END IF;
5226: CLOSE get_internal_party_csr;
5227: RAISE Fnd_Api.g_exc_error;
5228: END IF;
5229: CLOSE get_internal_party_csr;
5230: l_party_dtl_rec.PARTY_SOURCE_TABLE := 'HZ_PARTIES';
5231: l_party_dtl_rec.PARTY_SOURCE_ID := l_internal_party_id;
5244: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(p_csi_instance_id));
5245: Fnd_Msg_Pub.ADD;
5246: END IF;
5247: CLOSE get_owner_ip_id;
5248: RAISE Fnd_Api.g_exc_error;
5249: END IF;
5250: CLOSE get_owner_ip_id;
5251: END IF;
5252: ---mpothuku End
5268: --FND_MESSAGE.Set_Token('TYPE','Service Order Return');
5269: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
5270: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_IB_SUBTXN_SER_RETURN'));
5271: FND_MSG_PUB.ADD;
5272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5273: RETURN;
5274: END IF;
5275: ELSIF p_OSP_order_type = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_BORROW THEN
5276: l_subtxn_id := FND_PROFILE.VALUE('AHL_OSP_IB_SUBTXN_BOR_RETURN');
5279: --FND_MESSAGE.Set_Token('TYPE','Borrow Order Return');
5280: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
5281: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_IB_SUBTXN_BOR_RETURN'));
5282: FND_MSG_PUB.ADD;
5283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5284: RETURN;
5285: END IF;
5286: --l_subtxn_name := G_SUBTXN_RETURN; for ER 4746426
5287: END IF;
5292: CLOSE csi_txn_sub_types_csr;
5293: FND_MESSAGE.Set_Name('AHL','AHL_OSP_IB_SUBTXN_NOTFOUND');
5294: FND_MESSAGE.Set_Token('TYPE',l_subtxn_name);
5295: FND_MSG_PUB.ADD;
5296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5297: RETURN;
5298: END IF;
5299: CLOSE csi_txn_sub_types_csr;
5300: */
5299: CLOSE csi_txn_sub_types_csr;
5300: */
5301: END IF;
5302:
5303: l_txn_line_rec.TRANSACTION_LINE_ID := fnd_api.g_miss_num;
5304: l_txn_line_rec.SOURCE_TRANSACTION_TYPE_ID := l_om_order_id;
5305: l_txn_line_rec.SOURCE_TRANSACTION_ID := p_oe_line_id;
5306: l_txn_line_rec.SOURCE_TRANSACTION_TABLE := G_TRANSACTION_TABLE;
5307:
5397: csi_t_txn_details_grp.create_transaction_dtls(
5398: p_api_version => 1.0,
5399: p_commit => p_commit,
5400: -- Changed by jaramana on January 14, 2008 for the Requisition ER 6034236
5401: p_init_msg_list => FND_API.G_FALSE, --p_init_msg_list,
5402: px_txn_line_rec => l_txn_line_rec,
5403: px_txn_line_detail_tbl => l_txn_line_dtl_tbl,
5404: px_txn_party_detail_tbl => l_txn_party_tbl,
5405: px_txn_pty_acct_detail_tbl => l_txn_pty_acct_tbl,
5423:
5424:
5425: -- Delete IB sub-txn for the oe line.
5426: PROCEDURE Delete_IB_Transaction(
5427: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5428: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5429: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5430: x_return_status OUT NOCOPY VARCHAR2,
5431: x_msg_count OUT NOCOPY NUMBER,
5424:
5425: -- Delete IB sub-txn for the oe line.
5426: PROCEDURE Delete_IB_Transaction(
5427: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5428: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5429: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5430: x_return_status OUT NOCOPY VARCHAR2,
5431: x_msg_count OUT NOCOPY NUMBER,
5432: x_msg_data OUT NOCOPY VARCHAR2,
5425: -- Delete IB sub-txn for the oe line.
5426: PROCEDURE Delete_IB_Transaction(
5427: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5428: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5429: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5430: x_return_status OUT NOCOPY VARCHAR2,
5431: x_msg_count OUT NOCOPY NUMBER,
5432: x_msg_data OUT NOCOPY VARCHAR2,
5433: p_oe_line_id IN NUMBER)
5451: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
5452: END IF;
5453:
5454: -- Initialize return status.
5455: x_return_status := FND_API.G_RET_STS_SUCCESS;
5456:
5457: OPEN csi_txn_lines_csr (p_oe_line_id);
5458: FETCH csi_txn_lines_csr INTO l_transaction_line_id;
5459: CLOSE csi_txn_lines_csr;
5467: csi_t_txn_details_grp.delete_transaction_dtls
5468: ( p_api_version => 1.0,
5469: p_commit => p_commit,
5470: -- Changed by jaramana on January 14, 2008 for the Requisition ER 6034236
5471: p_init_msg_list => FND_API.G_FALSE,--p_init_msg_list,
5472: p_validation_level => p_validation_level,
5473: p_transaction_line_id => l_transaction_line_id,
5474: x_return_status => x_return_status,
5475: x_msg_count => x_msg_count,
5498: -- Parameters :
5499: --
5500: -- Standard IN Parameters :
5501: -- p_api_version IN NUMBER Default 1.0
5502: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
5503: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
5504: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
5505: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
5506: -- p_module_type IN VARCHAR2 Default NULL.
5499: --
5500: -- Standard IN Parameters :
5501: -- p_api_version IN NUMBER Default 1.0
5502: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
5503: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
5504: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
5505: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
5506: -- p_module_type IN VARCHAR2 Default NULL.
5507: -- Standard OUT Parameters :
5500: -- Standard IN Parameters :
5501: -- p_api_version IN NUMBER Default 1.0
5502: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
5503: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
5504: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
5505: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
5506: -- p_module_type IN VARCHAR2 Default NULL.
5507: -- Standard OUT Parameters :
5508: -- x_return_status OUT NOCOPY VARCHAR2 Required
5501: -- p_api_version IN NUMBER Default 1.0
5502: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
5503: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
5504: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
5505: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
5506: -- p_module_type IN VARCHAR2 Default NULL.
5507: -- Standard OUT Parameters :
5508: -- x_return_status OUT NOCOPY VARCHAR2 Required
5509: -- x_msg_count OUT NOCOPY NUMBER Required
5524: -- End of Comments.
5525:
5526: PROCEDURE Convert_SubTxn_Type (
5527: p_api_version IN NUMBER := 1.0,
5528: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5529: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5530: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5531: p_default IN VARCHAR2 := FND_API.G_TRUE,
5532: p_module_type IN VARCHAR2 := NULL,
5525:
5526: PROCEDURE Convert_SubTxn_Type (
5527: p_api_version IN NUMBER := 1.0,
5528: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5529: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5530: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5531: p_default IN VARCHAR2 := FND_API.G_TRUE,
5532: p_module_type IN VARCHAR2 := NULL,
5533: p_osp_order_id IN NUMBER,
5526: PROCEDURE Convert_SubTxn_Type (
5527: p_api_version IN NUMBER := 1.0,
5528: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5529: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5530: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5531: p_default IN VARCHAR2 := FND_API.G_TRUE,
5532: p_module_type IN VARCHAR2 := NULL,
5533: p_osp_order_id IN NUMBER,
5534: p_old_order_type_code IN VARCHAR2,
5527: p_api_version IN NUMBER := 1.0,
5528: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5529: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5530: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5531: p_default IN VARCHAR2 := FND_API.G_TRUE,
5532: p_module_type IN VARCHAR2 := NULL,
5533: p_osp_order_id IN NUMBER,
5534: p_old_order_type_code IN VARCHAR2,
5535: p_new_order_type_code IN VARCHAR2,
5569: -- Standard start of API savepoint
5570: SAVEPOINT Convert_SubTxn_Type_Pub;
5571:
5572: -- Initialize API return status to success
5573: x_return_status := FND_API.G_RET_STS_SUCCESS;
5574:
5575: -- Standard call to check for call compatibility
5576: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
5577: G_PKG_NAME) THEN
5572: -- Initialize API return status to success
5573: x_return_status := FND_API.G_RET_STS_SUCCESS;
5574:
5575: -- Standard call to check for call compatibility
5576: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
5577: G_PKG_NAME) THEN
5578: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5579: END IF;
5580:
5574:
5575: -- Standard call to check for call compatibility
5576: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
5577: G_PKG_NAME) THEN
5578: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5579: END IF;
5580:
5581: -- Initialize message list if p_init_msg_list is set to TRUE
5582: IF FND_API.To_Boolean(p_init_msg_list) THEN
5578: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5579: END IF;
5580:
5581: -- Initialize message list if p_init_msg_list is set to TRUE
5582: IF FND_API.To_Boolean(p_init_msg_list) THEN
5583: FND_MSG_PUB.Initialize;
5584: END IF;
5585:
5586: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5595: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5596: Fnd_Message.set_name('AHL', 'AHL_OSP_HEADER_ID_INV');
5597: Fnd_Msg_Pub.ADD;
5598: END IF;
5599: RAISE Fnd_Api.g_exc_error;
5600: END IF;
5601: CLOSE validate_osp_id_csr;
5602:
5603: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5618: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5619: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
5620: END IF;
5621: END IF;
5622: RAISE Fnd_Api.g_exc_error;
5623: END IF;
5624:
5625: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5626: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Validated Order type codes.');
5643: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
5644: END IF;
5645: END IF;
5646: CLOSE get_return_line_ids_csr;
5647: RAISE Fnd_Api.g_exc_error;
5648: END IF;
5649: -- Return line not yet shipped: Prepare to delete it
5650: l_temp_count := l_temp_count + 1;
5651: l_oe_line_ids_tbl(l_temp_count) := l_oe_return_line_id;
5662: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_Cancel_Order.');
5663: END IF;
5664:
5665: Delete_Cancel_Order (p_api_version => 1.0,
5666: p_init_msg_list => FND_API.G_FALSE,
5667: p_commit => FND_API.G_FALSE,
5668: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5669: p_oe_header_id => NULL, -- Don't delete the shipment header!
5670: p_oe_lines_tbl => l_oe_line_ids_tbl, -- Delete only the return lines
5663: END IF;
5664:
5665: Delete_Cancel_Order (p_api_version => 1.0,
5666: p_init_msg_list => FND_API.G_FALSE,
5667: p_commit => FND_API.G_FALSE,
5668: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5669: p_oe_header_id => NULL, -- Don't delete the shipment header!
5670: p_oe_lines_tbl => l_oe_line_ids_tbl, -- Delete only the return lines
5671: p_cancel_flag => FND_API.G_FALSE,
5664:
5665: Delete_Cancel_Order (p_api_version => 1.0,
5666: p_init_msg_list => FND_API.G_FALSE,
5667: p_commit => FND_API.G_FALSE,
5668: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5669: p_oe_header_id => NULL, -- Don't delete the shipment header!
5670: p_oe_lines_tbl => l_oe_line_ids_tbl, -- Delete only the return lines
5671: p_cancel_flag => FND_API.G_FALSE,
5672: x_return_status => x_return_status,
5667: p_commit => FND_API.G_FALSE,
5668: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5669: p_oe_header_id => NULL, -- Don't delete the shipment header!
5670: p_oe_lines_tbl => l_oe_line_ids_tbl, -- Delete only the return lines
5671: p_cancel_flag => FND_API.G_FALSE,
5672: x_return_status => x_return_status,
5673: x_msg_count => x_msg_count,
5674: x_msg_data => x_msg_data);
5675: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5683: END IF;
5684:
5685: -- If the deletion has succeeded, proceed with converting the
5686: -- Ship only lines
5687: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5688: Convert_Ship_Only_Lines(p_osp_order_id => p_osp_order_id,
5689: p_old_order_type_code => p_old_order_type_code,
5690: p_new_order_type_code => p_new_order_type_code);
5691: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5693: END IF;
5694: END IF;
5695:
5696: -- Standard check of p_commit
5697: IF FND_API.To_Boolean(p_commit) THEN
5698: COMMIT WORK;
5699: END IF;
5700:
5701: -- Standard call to get message count and if count is 1, get message
5701: -- Standard call to get message count and if count is 1, get message
5702: FND_MSG_PUB.Count_And_Get
5703: ( p_count => x_msg_count,
5704: p_data => x_msg_data,
5705: p_encoded => fnd_api.g_false);
5706:
5707: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5708: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
5709: END IF;
5708: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
5709: END IF;
5710:
5711: EXCEPTION
5712: WHEN FND_API.G_EXC_ERROR THEN
5713: x_return_status := FND_API.G_RET_STS_ERROR;
5714: Rollback to Convert_SubTxn_Type_Pub;
5715: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5716: p_data => x_msg_data,
5709: END IF;
5710:
5711: EXCEPTION
5712: WHEN FND_API.G_EXC_ERROR THEN
5713: x_return_status := FND_API.G_RET_STS_ERROR;
5714: Rollback to Convert_SubTxn_Type_Pub;
5715: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5716: p_data => x_msg_data,
5717: p_encoded => fnd_api.g_false);
5713: x_return_status := FND_API.G_RET_STS_ERROR;
5714: Rollback to Convert_SubTxn_Type_Pub;
5715: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5716: p_data => x_msg_data,
5717: p_encoded => fnd_api.g_false);
5718:
5719: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5720: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5721: Rollback to Convert_SubTxn_Type_Pub;
5715: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5716: p_data => x_msg_data,
5717: p_encoded => fnd_api.g_false);
5718:
5719: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5720: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5721: Rollback to Convert_SubTxn_Type_Pub;
5722: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5723: p_data => x_msg_data,
5716: p_data => x_msg_data,
5717: p_encoded => fnd_api.g_false);
5718:
5719: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5720: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5721: Rollback to Convert_SubTxn_Type_Pub;
5722: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5723: p_data => x_msg_data,
5724: p_encoded => fnd_api.g_false);
5720: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5721: Rollback to Convert_SubTxn_Type_Pub;
5722: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5723: p_data => x_msg_data,
5724: p_encoded => fnd_api.g_false);
5725: WHEN OTHERS THEN
5726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5727: Rollback to Convert_SubTxn_Type_Pub;
5728: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
5722: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5723: p_data => x_msg_data,
5724: p_encoded => fnd_api.g_false);
5725: WHEN OTHERS THEN
5726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5727: Rollback to Convert_SubTxn_Type_Pub;
5728: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
5729: p_procedure_name => 'Convert_SubTxn_Type',
5730: p_error_text => SQLERRM);
5730: p_error_text => SQLERRM);
5731:
5732: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5733: p_data => x_msg_data,
5734: p_encoded => fnd_api.g_false);
5735: END Convert_SubTxn_Type;
5736:
5737:
5738: -- Local helper method that deletes IB sub transactions for ship only lines
5835: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
5836: END IF;
5837: END IF;
5838: CLOSE get_internal_party_csr;
5839: RAISE Fnd_Api.g_exc_error;
5840: END IF;
5841: CLOSE get_internal_party_csr;
5842:
5843: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5875: END IF;
5876: END IF;
5877: CLOSE get_owner_ip_id;
5878: CLOSE get_ship_only_lines_csr;
5879: RAISE Fnd_Api.g_exc_error;
5880: END IF;
5881: CLOSE get_owner_ip_id;
5882: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5883: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Got current owner, l_curr_pty_id = ' || l_curr_pty_id || ', l_curr_inst_pty_id = ' || l_curr_inst_pty_id);
5905: END IF;
5906: END IF;
5907: CLOSE get_sold_to_org;
5908: CLOSE get_ship_only_lines_csr;
5909: RAISE Fnd_Api.g_exc_error;
5910: END IF;
5911: CLOSE get_sold_to_org;
5912: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5913: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Service to Exchange conversion: New external owner (party) = ' || l_new_party_id || ', New Party Account = ' || l_new_party_acc_id);
5920: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
5921: END IF;
5922: END IF;
5923: CLOSE get_ship_only_lines_csr;
5924: RAISE Fnd_Api.g_exc_error;
5925: END IF;
5926: -- Call CSI API CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE
5927: -- Populate the Party Rec
5928: l_party_rec.instance_id := l_item_instance_id;
5936: IF (l_new_party_id <> l_internal_party_id) THEN
5937: l_party_account_rec.instance_party_id := l_curr_inst_pty_id;
5938: l_party_account_rec.party_account_id := l_new_party_acc_id;
5939: l_party_account_rec.relationship_type_code := 'OWNER';
5940: l_party_account_rec.call_contracts := FND_API.G_FALSE;
5941: l_party_account_rec.parent_tbl_index := 1;
5942: l_party_account_tbl(1) := l_party_account_rec;
5943: END IF;
5944: -- Populate the Transaction Rec
5971: -- CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE, and keep the original existing parameter i
5972: --(no change) and just adding some new parameters with blank values.
5973: CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE(
5974: p_api_version => 1.0,
5975: p_commit => FND_API.G_FALSE,
5976: p_init_msg_list => FND_API.G_FALSE,
5977: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5978: p_instance_rec => l_instance_rec,
5979: p_ext_attrib_values_tbl => l_ext_attrib_values_tbl,
5972: --(no change) and just adding some new parameters with blank values.
5973: CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE(
5974: p_api_version => 1.0,
5975: p_commit => FND_API.G_FALSE,
5976: p_init_msg_list => FND_API.G_FALSE,
5977: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5978: p_instance_rec => l_instance_rec,
5979: p_ext_attrib_values_tbl => l_ext_attrib_values_tbl,
5980: p_party_tbl => l_party_tbl,
5973: CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE(
5974: p_api_version => 1.0,
5975: p_commit => FND_API.G_FALSE,
5976: p_init_msg_list => FND_API.G_FALSE,
5977: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5978: p_instance_rec => l_instance_rec,
5979: p_ext_attrib_values_tbl => l_ext_attrib_values_tbl,
5980: p_party_tbl => l_party_tbl,
5981: p_account_tbl => l_party_account_tbl,
5989: x_msg_data => l_msg_data);
5990: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5991: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE, x_return_status = ' || l_return_status);
5992: END IF;
5993: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5994: CLOSE get_ship_only_lines_csr;
5995: RAISE Fnd_Api.g_exc_error;
5996: END IF;
5997: ELSE
5991: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE, x_return_status = ' || l_return_status);
5992: END IF;
5993: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5994: CLOSE get_ship_only_lines_csr;
5995: RAISE Fnd_Api.g_exc_error;
5996: END IF;
5997: ELSE
5998: -- Not yet shipped: No need to change ownership
5999: -- Delete existing IB subtransaction (with old type)
6006: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6007: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Since l_shipped_quantity = 0, No need to change owner. Calling Delete_IB_Transaction.');
6008: END IF;
6009: Delete_IB_Transaction(
6010: p_init_msg_list => FND_API.G_FALSE,
6011: p_commit => FND_API.G_FALSE,
6012: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6013: x_return_status => l_return_status,
6014: x_msg_count => l_msg_count,
6007: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Since l_shipped_quantity = 0, No need to change owner. Calling Delete_IB_Transaction.');
6008: END IF;
6009: Delete_IB_Transaction(
6010: p_init_msg_list => FND_API.G_FALSE,
6011: p_commit => FND_API.G_FALSE,
6012: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6013: x_return_status => l_return_status,
6014: x_msg_count => l_msg_count,
6015: x_msg_data => l_msg_data,
6008: END IF;
6009: Delete_IB_Transaction(
6010: p_init_msg_list => FND_API.G_FALSE,
6011: p_commit => FND_API.G_FALSE,
6012: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6013: x_return_status => l_return_status,
6014: x_msg_count => l_msg_count,
6015: x_msg_data => l_msg_data,
6016: p_oe_line_id => l_oe_ship_line_id);
6016: p_oe_line_id => l_oe_ship_line_id);
6017: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6018: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Delete_IB_Transaction, x_return_status = ' || l_return_status);
6019: END IF;
6020: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
6021: -- Create new IB subtransaction (with new type)
6022: Create_IB_Transaction(
6023: p_init_msg_list => FND_API.G_FALSE,
6024: p_commit => FND_API.G_FALSE,
6019: END IF;
6020: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
6021: -- Create new IB subtransaction (with new type)
6022: Create_IB_Transaction(
6023: p_init_msg_list => FND_API.G_FALSE,
6024: p_commit => FND_API.G_FALSE,
6025: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6026: x_return_status => l_return_status,
6027: x_msg_count => l_msg_count,
6020: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
6021: -- Create new IB subtransaction (with new type)
6022: Create_IB_Transaction(
6023: p_init_msg_list => FND_API.G_FALSE,
6024: p_commit => FND_API.G_FALSE,
6025: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6026: x_return_status => l_return_status,
6027: x_msg_count => l_msg_count,
6028: x_msg_data => l_msg_data,
6021: -- Create new IB subtransaction (with new type)
6022: Create_IB_Transaction(
6023: p_init_msg_list => FND_API.G_FALSE,
6024: p_commit => FND_API.G_FALSE,
6025: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6026: x_return_status => l_return_status,
6027: x_msg_count => l_msg_count,
6028: x_msg_data => l_msg_data,
6029: p_OSP_order_type => p_new_order_type_code,
6032: p_csi_instance_id => l_item_instance_id);
6033: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6034: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Create_IB_Transaction, x_return_status = ' || l_return_status);
6035: END IF;
6036: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6037: -- Error creating IB Subtransaction: throw exception
6038: CLOSE get_ship_only_lines_csr;
6039: RAISE Fnd_Api.g_exc_error;
6040: END IF;
6035: END IF;
6036: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6037: -- Error creating IB Subtransaction: throw exception
6038: CLOSE get_ship_only_lines_csr;
6039: RAISE Fnd_Api.g_exc_error;
6040: END IF;
6041: ELSE
6042: -- Error deleting IB Subtransaction: throw exception
6043: CLOSE get_ship_only_lines_csr;
6040: END IF;
6041: ELSE
6042: -- Error deleting IB Subtransaction: throw exception
6043: CLOSE get_ship_only_lines_csr;
6044: RAISE Fnd_Api.g_exc_error;
6045: END IF;
6046: END IF; --Jeli added this END IF; on 01/24/2006 for ER 4746426
6047: END IF;
6048: END LOOP;
6088: --FP Bug fix: 5380842 for the Customer Change when Vendor Changes: By mpothuku on 22nd August, 2006
6089:
6090: PROCEDURE Handle_Vendor_Change (
6091: p_api_version IN NUMBER := 1.0,
6092: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6093: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6094: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6095: p_default IN VARCHAR2 := FND_API.G_TRUE,
6096: p_module_type IN VARCHAR2 := NULL,
6089:
6090: PROCEDURE Handle_Vendor_Change (
6091: p_api_version IN NUMBER := 1.0,
6092: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6093: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6094: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6095: p_default IN VARCHAR2 := FND_API.G_TRUE,
6096: p_module_type IN VARCHAR2 := NULL,
6097: p_osp_order_id IN NUMBER,
6090: PROCEDURE Handle_Vendor_Change (
6091: p_api_version IN NUMBER := 1.0,
6092: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6093: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6094: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6095: p_default IN VARCHAR2 := FND_API.G_TRUE,
6096: p_module_type IN VARCHAR2 := NULL,
6097: p_osp_order_id IN NUMBER,
6098: p_vendor_id IN NUMBER,
6091: p_api_version IN NUMBER := 1.0,
6092: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6093: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6094: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6095: p_default IN VARCHAR2 := FND_API.G_TRUE,
6096: p_module_type IN VARCHAR2 := NULL,
6097: p_osp_order_id IN NUMBER,
6098: p_vendor_id IN NUMBER,
6099: p_vendor_loc_id IN NUMBER,
6158: -- Standard start of API savepoint
6159: SAVEPOINT Handle_Vendor_Change;
6160:
6161: -- Initialize API return status to success
6162: x_return_status := FND_API.G_RET_STS_SUCCESS;
6163:
6164: -- Standard call to check for call compatibility
6165: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
6166: G_PKG_NAME) THEN
6161: -- Initialize API return status to success
6162: x_return_status := FND_API.G_RET_STS_SUCCESS;
6163:
6164: -- Standard call to check for call compatibility
6165: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
6166: G_PKG_NAME) THEN
6167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6168: END IF;
6169:
6163:
6164: -- Standard call to check for call compatibility
6165: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
6166: G_PKG_NAME) THEN
6167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6168: END IF;
6169:
6170: --Added by mpothuku on 11-Jul-06 to raise any validation errors that may have been accumulated by the AHL_OSP_ORDERS_PVT procedure
6171: --We do not have any warning messages hence if the message count is > 0 then it means there are validation errors and since
6171: --We do not have any warning messages hence if the message count is > 0 then it means there are validation errors and since
6172: --we call a Public API in this procedure, its better we throw the errore here itself.
6173:
6174: IF FND_MSG_PUB.count_msg > 0 THEN
6175: RAISE FND_API.G_EXC_ERROR;
6176: END IF;
6177:
6178: --mpothuku End
6179:
6177:
6178: --mpothuku End
6179:
6180: -- Initialize message list if p_init_msg_list is set to TRUE
6181: IF FND_API.To_Boolean(p_init_msg_list) THEN
6182: FND_MSG_PUB.Initialize;
6183: END IF;
6184:
6185: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6218:
6219: IF l_vendor_cust_dtls.customer_site_id IS NULL THEN
6220: Fnd_Message.set_name('AHL', 'AHL_OSP_CUST_SETUP_NOTFOUND');
6221: Fnd_Msg_Pub.ADD;
6222: RAISE Fnd_Api.g_exc_error;
6223: END IF;
6224:
6225: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6226: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to OE_ORDER_GRP.PROCESS_ORDER');
6256: --OE_ORDER_GRP uses its own message stack OE_MSG_PUB, so we should pass p_init_msg_list as true to this API
6257: --Note that this also does an FND_MSG_PUB.initialize along with clearing its own error stack
6258: OE_ORDER_GRP.PROCESS_ORDER(
6259: p_api_version_number => 1.0,
6260: p_init_msg_list => FND_API.G_TRUE,
6261: x_return_status => x_return_status,
6262: x_msg_count => x_msg_count,
6263: x_msg_data => x_msg_data,
6264: p_header_rec => l_header_rec,
6293: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6294: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed OE_ORDER_GRP.PROCESS_ORDER, x_return_status = ' || x_return_status);
6295: END IF;
6296:
6297: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6298: FOR i IN 1..x_msg_count LOOP
6299: OE_MSG_PUB.Get(p_msg_index => i,
6300: p_encoded => FND_API.G_FALSE,
6301: p_data => l_msg_data,
6296:
6297: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6298: FOR i IN 1..x_msg_count LOOP
6299: OE_MSG_PUB.Get(p_msg_index => i,
6300: p_encoded => FND_API.G_FALSE,
6301: p_data => l_msg_data,
6302: p_msg_index_out => l_msg_index_out);
6303: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
6304: p_procedure_name => 'processOrder',
6313: /*
6314: x_msg_count := FND_MSG_PUB.count_msg;
6315:
6316: IF x_msg_count > 0 THEN
6317: RAISE FND_API.G_EXC_ERROR;
6318: END IF;
6319: */
6320:
6321: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
6317: RAISE FND_API.G_EXC_ERROR;
6318: END IF;
6319: */
6320:
6321: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
6322: RAISE FND_API.G_EXC_ERROR;
6323: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6325: /*
6318: END IF;
6319: */
6320:
6321: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
6322: RAISE FND_API.G_EXC_ERROR;
6323: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6325: /*
6326: If success is returned by the Public API, clear the message stack to eat up any warning messages from OM API.
6319: */
6320:
6321: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
6322: RAISE FND_API.G_EXC_ERROR;
6323: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6325: /*
6326: If success is returned by the Public API, clear the message stack to eat up any warning messages from OM API.
6327: Note that we may need to revise this approach at a later point to show the warning messages too
6320:
6321: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
6322: RAISE FND_API.G_EXC_ERROR;
6323: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6325: /*
6326: If success is returned by the Public API, clear the message stack to eat up any warning messages from OM API.
6327: Note that we may need to revise this approach at a later point to show the warning messages too
6328: If this is not done, AHL_OSP_ORDERS_PVT assumes that there is an error if the message stack count is > 0
6329: Also note that had there been any validation errors that had been accumulated we would have thrown at the beginning
6330: of this procedure
6331: */
6332:
6333: ELSIF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
6334: --Added the message logging on January 14, 2008 to fix the Bug 5935388/6504122
6335: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6336: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
6337: FND_MSG_PUB.get (
6335: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6336: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
6337: FND_MSG_PUB.get (
6338: p_msg_index => i,
6339: p_encoded => FND_API.G_FALSE,
6340: p_data => l_msg_data,
6341: p_msg_index_out => l_msg_index_out );
6342: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'OE: Warning ' || i || ': ' || l_msg_data);
6343: END LOOP;
6347:
6348: FND_MSG_PUB.Count_And_Get
6349: ( p_count => x_msg_count,
6350: p_data => x_msg_data,
6351: p_encoded => fnd_api.g_false);
6352: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6353: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
6354: END IF;
6355:
6353: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
6354: END IF;
6355:
6356: EXCEPTION
6357: WHEN FND_API.G_EXC_ERROR THEN
6358: x_return_status := FND_API.G_RET_STS_ERROR;
6359: Rollback to Handle_Vendor_Change;
6360: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6361: p_data => x_msg_data,
6354: END IF;
6355:
6356: EXCEPTION
6357: WHEN FND_API.G_EXC_ERROR THEN
6358: x_return_status := FND_API.G_RET_STS_ERROR;
6359: Rollback to Handle_Vendor_Change;
6360: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6361: p_data => x_msg_data,
6362: p_encoded => fnd_api.g_false);
6358: x_return_status := FND_API.G_RET_STS_ERROR;
6359: Rollback to Handle_Vendor_Change;
6360: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6361: p_data => x_msg_data,
6362: p_encoded => fnd_api.g_false);
6363:
6364: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6366: Rollback to Handle_Vendor_Change;
6360: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6361: p_data => x_msg_data,
6362: p_encoded => fnd_api.g_false);
6363:
6364: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6366: Rollback to Handle_Vendor_Change;
6367: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6368: p_data => x_msg_data,
6361: p_data => x_msg_data,
6362: p_encoded => fnd_api.g_false);
6363:
6364: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6366: Rollback to Handle_Vendor_Change;
6367: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6368: p_data => x_msg_data,
6369: p_encoded => fnd_api.g_false);
6365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6366: Rollback to Handle_Vendor_Change;
6367: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6368: p_data => x_msg_data,
6369: p_encoded => fnd_api.g_false);
6370: WHEN OTHERS THEN
6371: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6372: Rollback to Handle_Vendor_Change;
6373: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
6367: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6368: p_data => x_msg_data,
6369: p_encoded => fnd_api.g_false);
6370: WHEN OTHERS THEN
6371: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6372: Rollback to Handle_Vendor_Change;
6373: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
6374: p_procedure_name => 'Handle_Vendor_Change',
6375: p_error_text => SQLERRM);
6375: p_error_text => SQLERRM);
6376:
6377: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6378: p_data => x_msg_data,
6379: p_encoded => fnd_api.g_false);
6380:
6381: END;
6382:
6383:
6605: -- Parameters :
6606: --
6607: -- Standard IN Parameters :
6608: -- p_api_version IN NUMBER Default 1.0
6609: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
6610: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
6611: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
6612: -- p_module_type IN VARCHAR2 Default NULL.
6613: -- Standard OUT Parameters :
6606: --
6607: -- Standard IN Parameters :
6608: -- p_api_version IN NUMBER Default 1.0
6609: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
6610: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
6611: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
6612: -- p_module_type IN VARCHAR2 Default NULL.
6613: -- Standard OUT Parameters :
6614: -- x_return_status OUT NOCOPY VARCHAR2 Required
6607: -- Standard IN Parameters :
6608: -- p_api_version IN NUMBER Default 1.0
6609: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
6610: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
6611: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
6612: -- p_module_type IN VARCHAR2 Default NULL.
6613: -- Standard OUT Parameters :
6614: -- x_return_status OUT NOCOPY VARCHAR2 Required
6615: -- x_msg_count OUT NOCOPY NUMBER Required
6630: -- End of Comments.
6631:
6632: PROCEDURE Process_Osp_SerialNum_Change(
6633: p_api_version IN NUMBER := 1.0,
6634: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6635: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6636: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6637: p_module_type IN VARCHAR2 := NULL,
6638: p_serialnum_change_rec IN Sernum_Change_Rec_Type,
6631:
6632: PROCEDURE Process_Osp_SerialNum_Change(
6633: p_api_version IN NUMBER := 1.0,
6634: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6635: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6636: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6637: p_module_type IN VARCHAR2 := NULL,
6638: p_serialnum_change_rec IN Sernum_Change_Rec_Type,
6639: x_return_status OUT NOCOPY VARCHAR2,
6632: PROCEDURE Process_Osp_SerialNum_Change(
6633: p_api_version IN NUMBER := 1.0,
6634: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6635: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6636: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6637: p_module_type IN VARCHAR2 := NULL,
6638: p_serialnum_change_rec IN Sernum_Change_Rec_Type,
6639: x_return_status OUT NOCOPY VARCHAR2,
6640: x_msg_count OUT NOCOPY NUMBER,
6775: -- Standard start of API savepoint
6776: SAVEPOINT Process_Osp_SerialNum_Change;
6777:
6778: -- Initialize API return status to success
6779: x_return_status := FND_API.G_RET_STS_SUCCESS;
6780:
6781: l_oe_line_tbl := OE_ORDER_PUB.G_MISS_LINE_TBL;
6782: l_oe_lot_serial_tbl := OE_ORDER_PUB.G_MISS_LOT_SERIAL_TBL;
6783:
6782: l_oe_lot_serial_tbl := OE_ORDER_PUB.G_MISS_LOT_SERIAL_TBL;
6783:
6784:
6785: -- Standard call to check for call compatibility
6786: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
6787: G_PKG_NAME) THEN
6788: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6789: END IF;
6790:
6784:
6785: -- Standard call to check for call compatibility
6786: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
6787: G_PKG_NAME) THEN
6788: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6789: END IF;
6790:
6791: -- Initialize message list if p_init_msg_list is set to TRUE
6792: IF FND_API.To_Boolean(p_init_msg_list) THEN
6788: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6789: END IF;
6790:
6791: -- Initialize message list if p_init_msg_list is set to TRUE
6792: IF FND_API.To_Boolean(p_init_msg_list) THEN
6793: FND_MSG_PUB.Initialize;
6794: END IF;
6795:
6796: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6808: --osp_order_line_id should not be null
6809: IF(p_serialnum_change_rec.osp_line_id is NULL) THEN
6810: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_CHG_OSPLID_NLL');
6811: FND_MSG_PUB.ADD;
6812: RAISE FND_API.G_EXC_ERROR;
6813: END IF;
6814:
6815: --validate the osp_order_line_id
6816: OPEN get_osp_order_line_dtls(l_serialnum_change_rec.osp_line_id);
6818: IF (get_osp_order_line_dtls%NOTFOUND) THEN
6819: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_INVOP_OSP_LN_NFOUND');
6820: FND_MSG_PUB.ADD;
6821: CLOSE get_osp_order_line_dtls;
6822: RAISE FND_API.G_EXC_ERROR;
6823: END IF;
6824: CLOSE get_osp_order_line_dtls;
6825:
6826: --check that the osp line is valid for the part number change
6826: --check that the osp line is valid for the part number change
6827: IF(Is_part_chg_valid_for_ospline(p_serialnum_change_rec.osp_line_id) = 'N') THEN
6828: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_CHG_OSPL_INV');
6829: FND_MSG_PUB.ADD;
6830: RAISE FND_API.G_EXC_ERROR;
6831: END IF;
6832:
6833: --Validate the passed new_item_number
6834: IF (l_serialnum_change_rec.new_item_number IS NOT NULL and l_serialnum_change_rec.new_item_number <> FND_API.G_MISS_CHAR) THEN
6830: RAISE FND_API.G_EXC_ERROR;
6831: END IF;
6832:
6833: --Validate the passed new_item_number
6834: IF (l_serialnum_change_rec.new_item_number IS NOT NULL and l_serialnum_change_rec.new_item_number <> FND_API.G_MISS_CHAR) THEN
6835: -- Retrieve inventory_item_id from item_number
6836: OPEN c_get_inv_item_id(l_serialnum_change_rec.new_item_number);
6837: FETCH c_get_inv_item_id INTO l_inventory_item_id;
6838: CLOSE c_get_inv_item_id;
6839: IF l_inventory_item_id IS NULL THEN
6840: FND_MESSAGE.Set_Name('AHL','AHL_OSP_ITEM_INVALID');
6841: FND_MESSAGE.Set_token('ITEM',l_serialnum_change_rec.new_item_number);
6842: FND_MSG_PUB.ADD;
6843: RAISE FND_API.G_EXC_ERROR;
6844: END IF;
6845: ELSE
6846: FND_MESSAGE.Set_Name('AHL','AHL_OSP_INV_ITEM_NULL');
6847: FND_MSG_PUB.ADD;
6844: END IF;
6845: ELSE
6846: FND_MESSAGE.Set_Name('AHL','AHL_OSP_INV_ITEM_NULL');
6847: FND_MSG_PUB.ADD;
6848: RAISE FND_API.G_EXC_ERROR;
6849: END IF;
6850:
6851: /*
6852: Get the instance present at the ship line
6865: IF (get_ship_line_instance%NOTFOUND) THEN
6866: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_SHIPLINE_NO_INST');
6867: FND_MSG_PUB.ADD;
6868: CLOSE get_ship_line_instance;
6869: RAISE FND_API.G_EXC_ERROR;
6870: END IF;
6871: CLOSE get_ship_line_instance;
6872:
6873: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6878: ELSE
6879: IF(l_serialnum_change_rec.instance_id <> l_ship_line_instance_id) THEN
6880: FND_MESSAGE.Set_Name('AHL','AHL_INVALID_INSTANCE');
6881: FND_MSG_PUB.ADD;
6882: RAISE FND_API.G_EXC_ERROR;
6883: END IF;
6884: END IF;
6885:
6886: -------------------------------------------------------------------------------------
6892: CLOSE get_instance_details;
6893: IF l_instance_dtls_rec.instance_id IS NULL THEN
6894: FND_MESSAGE.Set_Name('AHL','AHL_INVALID_INSTANCE');
6895: FND_MSG_PUB.ADD;
6896: RAISE FND_API.G_EXC_ERROR;
6897: END IF;
6898:
6899: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6900: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>' ||l_instance_dtls_rec.inventory_item_id);
6924: --------------------------------------------
6925: -- Convert meaning to lookup code
6926: -- For Serialnum_tag_code.
6927: --------------------------------------------
6928: IF (l_serialnum_change_rec.New_Serial_Tag_Code IS NULL) OR (l_serialnum_change_rec.New_Serial_Tag_Code = FND_API.G_MISS_CHAR)
6929: THEN
6930: -- Check if meaning exists.
6931: IF (l_serialnum_change_rec.New_Serial_Tag_Mean IS NOT NULL) AND (l_serialnum_change_rec.New_Serial_Tag_Mean <> FND_API.G_MISS_CHAR)
6932: THEN
6927: --------------------------------------------
6928: IF (l_serialnum_change_rec.New_Serial_Tag_Code IS NULL) OR (l_serialnum_change_rec.New_Serial_Tag_Code = FND_API.G_MISS_CHAR)
6929: THEN
6930: -- Check if meaning exists.
6931: IF (l_serialnum_change_rec.New_Serial_Tag_Mean IS NOT NULL) AND (l_serialnum_change_rec.New_Serial_Tag_Mean <> FND_API.G_MISS_CHAR)
6932: THEN
6933: Convert_To_LookupCode('AHL_SERIALNUMBER_TAG',
6934: l_serialnum_change_rec.New_Serial_Tag_Mean,
6935: l_lookup_code,
6937: IF NOT(l_return_val) THEN
6938: FND_MESSAGE.Set_Name('AHL','AHL_PRD_TAGMEANING_INVALID');
6939: FND_MESSAGE.Set_Token('TAG',l_serialnum_change_rec.New_Serial_Tag_Mean);
6940: FND_MSG_PUB.ADD;
6941: RAISE FND_API.G_EXC_ERROR;
6942: ELSE
6943: l_serialnum_change_rec.New_Serial_Tag_Code := l_lookup_code;
6944: END IF;
6945: END IF;
6952: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_ITEM_INVALID');
6953: FND_MESSAGE.Set_token('ITEM',l_inventory_item_id);
6954: FND_MSG_PUB.ADD;
6955: CLOSE mtl_system_items_csr;
6956: RAISE FND_API.G_EXC_ERROR;
6957: END IF;
6958: CLOSE mtl_system_items_csr;
6959:
6960: --Item has to serial controlled and IB trackable
6965: END IF;
6966: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_CHG_ITEM_SER_TR');
6967: FND_MESSAGE.Set_token('ITEM',l_mtl_system_items_rec.concatenated_segments);
6968: FND_MSG_PUB.ADD;
6969: RAISE FND_API.G_EXC_ERROR;
6970: END IF;
6971:
6972: ------------------------------------------------------
6973: -- Call local procedure to validate the serial number
6980: IF FND_MSG_PUB.count_msg > 0 THEN
6981: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6982: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count after calling Validate_SerialNumber: '||FND_MSG_PUB.count_msg);
6983: END IF;
6984: RAISE FND_API.G_EXC_ERROR;
6985: END IF;
6986:
6987: -- Retrieve existing value of serialNum_Tag_Code if present.
6988: AHL_UTIL_UC_PKG.GetCSI_Attribute_Value (l_serialnum_change_rec.instance_id,
7035:
7036: --If it is only a serial number change, just delete the IB transation.
7037: IF(l_instance_dtls_rec.inventory_item_id = l_inventory_item_id) THEN
7038: IF((l_instance_dtls_rec.serial_number <> l_serialnum_change_rec.new_serial_number) OR
7039: (nvl(l_instance_dtls_rec.inventory_revision,FND_API.G_MISS_CHAR) <>
7040: nvl(l_serialnum_change_rec.new_item_rev_number,FND_API.G_MISS_CHAR)) OR
7041: (nvl(l_instance_dtls_rec.lot_number,FND_API.G_MISS_CHAR) <>
7042: nvl(l_serialnum_change_rec.new_lot_number,FND_API.G_MISS_CHAR)))
7043:
7036: --If it is only a serial number change, just delete the IB transation.
7037: IF(l_instance_dtls_rec.inventory_item_id = l_inventory_item_id) THEN
7038: IF((l_instance_dtls_rec.serial_number <> l_serialnum_change_rec.new_serial_number) OR
7039: (nvl(l_instance_dtls_rec.inventory_revision,FND_API.G_MISS_CHAR) <>
7040: nvl(l_serialnum_change_rec.new_item_rev_number,FND_API.G_MISS_CHAR)) OR
7041: (nvl(l_instance_dtls_rec.lot_number,FND_API.G_MISS_CHAR) <>
7042: nvl(l_serialnum_change_rec.new_lot_number,FND_API.G_MISS_CHAR)))
7043:
7044: THEN --Serial Number/Item Revision/Lot Number Changed
7037: IF(l_instance_dtls_rec.inventory_item_id = l_inventory_item_id) THEN
7038: IF((l_instance_dtls_rec.serial_number <> l_serialnum_change_rec.new_serial_number) OR
7039: (nvl(l_instance_dtls_rec.inventory_revision,FND_API.G_MISS_CHAR) <>
7040: nvl(l_serialnum_change_rec.new_item_rev_number,FND_API.G_MISS_CHAR)) OR
7041: (nvl(l_instance_dtls_rec.lot_number,FND_API.G_MISS_CHAR) <>
7042: nvl(l_serialnum_change_rec.new_lot_number,FND_API.G_MISS_CHAR)))
7043:
7044: THEN --Serial Number/Item Revision/Lot Number Changed
7045: l_serial_num_changed := 'Y';
7038: IF((l_instance_dtls_rec.serial_number <> l_serialnum_change_rec.new_serial_number) OR
7039: (nvl(l_instance_dtls_rec.inventory_revision,FND_API.G_MISS_CHAR) <>
7040: nvl(l_serialnum_change_rec.new_item_rev_number,FND_API.G_MISS_CHAR)) OR
7041: (nvl(l_instance_dtls_rec.lot_number,FND_API.G_MISS_CHAR) <>
7042: nvl(l_serialnum_change_rec.new_lot_number,FND_API.G_MISS_CHAR)))
7043:
7044: THEN --Serial Number/Item Revision/Lot Number Changed
7045: l_serial_num_changed := 'Y';
7046: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7047: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Serial Number has been Changed');
7048: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calling Delete_IB_Transaction' );
7049: END IF;
7050: Delete_IB_Transaction(
7051: p_init_msg_list => FND_API.G_FALSE, --p_init_msg_list,
7052: p_commit => FND_API.G_FALSE,
7053: p_validation_level => p_validation_level,
7054: x_return_status => x_return_status,
7055: x_msg_count => x_msg_count,
7048: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calling Delete_IB_Transaction' );
7049: END IF;
7050: Delete_IB_Transaction(
7051: p_init_msg_list => FND_API.G_FALSE, --p_init_msg_list,
7052: p_commit => FND_API.G_FALSE,
7053: p_validation_level => p_validation_level,
7054: x_return_status => x_return_status,
7055: x_msg_count => x_msg_count,
7056: x_msg_data => x_msg_data,
7058:
7059: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7060: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After calling Delete_IB_Transaction: x_return_status =>'||x_return_status );
7061: END IF;
7062: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7063: RAISE FND_API.G_EXC_ERROR;
7064: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7065: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7066: END IF;
7059: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7060: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After calling Delete_IB_Transaction: x_return_status =>'||x_return_status );
7061: END IF;
7062: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7063: RAISE FND_API.G_EXC_ERROR;
7064: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7065: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7066: END IF;
7067:
7060: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After calling Delete_IB_Transaction: x_return_status =>'||x_return_status );
7061: END IF;
7062: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7063: RAISE FND_API.G_EXC_ERROR;
7064: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7065: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7066: END IF;
7067:
7068: ELSE --Item Number is same and Serial Number are same, rest of the item attributes are same.
7061: END IF;
7062: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7063: RAISE FND_API.G_EXC_ERROR;
7064: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7065: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7066: END IF;
7067:
7068: ELSE --Item Number is same and Serial Number are same, rest of the item attributes are same.
7069: --If the serial tag code is also the same, there is no need to proceed further. Ideally we may also
7096:
7097: l_del_oe_lines_tbl(1) := l_osp_order_line_dtls.oe_return_line_id;
7098: Delete_Cancel_Order (
7099: p_api_version => 1.0,
7100: p_init_msg_list => FND_API.G_FALSE, -- Don't initialize the Message List
7101: p_commit => FND_API.G_FALSE, -- Don't commit independently
7102: p_oe_header_id => null, -- Not deleting the shipment header: Only the lines
7103: p_oe_lines_tbl => l_del_oe_lines_tbl, -- Lines to be deleted/Cancelled
7104: p_cancel_flag => FND_API.G_FALSE, -- Do Deletes if possible, Cancels if not
7097: l_del_oe_lines_tbl(1) := l_osp_order_line_dtls.oe_return_line_id;
7098: Delete_Cancel_Order (
7099: p_api_version => 1.0,
7100: p_init_msg_list => FND_API.G_FALSE, -- Don't initialize the Message List
7101: p_commit => FND_API.G_FALSE, -- Don't commit independently
7102: p_oe_header_id => null, -- Not deleting the shipment header: Only the lines
7103: p_oe_lines_tbl => l_del_oe_lines_tbl, -- Lines to be deleted/Cancelled
7104: p_cancel_flag => FND_API.G_FALSE, -- Do Deletes if possible, Cancels if not
7105: x_return_status => x_return_status ,
7100: p_init_msg_list => FND_API.G_FALSE, -- Don't initialize the Message List
7101: p_commit => FND_API.G_FALSE, -- Don't commit independently
7102: p_oe_header_id => null, -- Not deleting the shipment header: Only the lines
7103: p_oe_lines_tbl => l_del_oe_lines_tbl, -- Lines to be deleted/Cancelled
7104: p_cancel_flag => FND_API.G_FALSE, -- Do Deletes if possible, Cancels if not
7105: x_return_status => x_return_status ,
7106: x_msg_count => x_msg_count ,
7107: x_msg_data => x_msg_data
7108: );
7108: );
7109: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7110: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Delete_Cancel_Order, x_return_status = ' || x_return_status);
7111: END IF;
7112: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7113: RAISE FND_API.G_EXC_ERROR;
7114: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7116: END IF;
7109: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7110: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Delete_Cancel_Order, x_return_status = ' || x_return_status);
7111: END IF;
7112: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7113: RAISE FND_API.G_EXC_ERROR;
7114: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7116: END IF;
7117:
7110: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Delete_Cancel_Order, x_return_status = ' || x_return_status);
7111: END IF;
7112: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7113: RAISE FND_API.G_EXC_ERROR;
7114: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7116: END IF;
7117:
7118: END IF; --IF(l_instance_dtls_rec.inventory_item_id = l_inventory_item_id)
7111: END IF;
7112: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7113: RAISE FND_API.G_EXC_ERROR;
7114: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7116: END IF;
7117:
7118: END IF; --IF(l_instance_dtls_rec.inventory_item_id = l_inventory_item_id)
7119: END IF; --IF (l_osp_order_line_dtls.oe_return_line_id is not null) THEN
7128: IF (l_serial_tag_rec_found = 'Y' ) THEN
7129: IF(l_serialnum_change_rec.New_Serial_Tag_Code IS NULL AND l_serial_tag_code IS NOT NULL) OR
7130: (l_serial_tag_code IS NULL AND l_serialnum_change_rec.New_Serial_Tag_Code IS NOT NULL) OR
7131: (l_serialnum_change_rec.New_Serial_Tag_Code IS NOT NULL AND l_Serial_tag_code IS NOT NULL AND
7132: l_serialnum_change_rec.New_Serial_Tag_Code <> FND_API.G_MISS_CHAR AND
7133: l_serialnum_change_rec.New_Serial_Tag_Code <> l_Serial_tag_code) THEN
7134:
7135: -- changed value. update attribute record.
7136: l_csi_extend_attrib_rec.attribute_value_id := l_attribute_value_id;
7173: -- get transaction_type_id .
7174: -- Balaji modified the transaction id type to 205--ITEM_SERIAL_CHANGE
7175: AHL_UTIL_UC_PKG.GetCSI_Transaction_ID('ITEM_SERIAL_CHANGE',l_transaction_type_id, l_return_val);
7176: IF NOT(l_return_val) THEN
7177: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7178: END IF;
7179:
7180: l_csi_transaction_rec.transaction_type_id := l_transaction_type_id;
7181: l_csi_transaction_rec.source_line_ref := G_CSI_T_SOURCE_LINE_REF;
7199: x_return_status => x_return_status,
7200: x_msg_count => x_msg_count,
7201: x_msg_data => x_msg_data );
7202:
7203: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7204: RAISE FND_API.G_EXC_ERROR;
7205: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7207: END IF;
7200: x_msg_count => x_msg_count,
7201: x_msg_data => x_msg_data );
7202:
7203: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7204: RAISE FND_API.G_EXC_ERROR;
7205: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7207: END IF;
7208:
7201: x_msg_data => x_msg_data );
7202:
7203: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7204: RAISE FND_API.G_EXC_ERROR;
7205: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7207: END IF;
7208:
7209: -------------------------------------------------------------
7202:
7203: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7204: RAISE FND_API.G_EXC_ERROR;
7205: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7207: END IF;
7208:
7209: -------------------------------------------------------------
7210: -- for extended attributes.
7218: x_return_status => x_return_status,
7219: x_msg_count => x_msg_count,
7220: x_msg_data => x_msg_data );
7221:
7222: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7223: RAISE FND_API.G_EXC_ERROR;
7224: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7226: END IF;
7219: x_msg_count => x_msg_count,
7220: x_msg_data => x_msg_data );
7221:
7222: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7223: RAISE FND_API.G_EXC_ERROR;
7224: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7226: END IF;
7227: END IF;
7220: x_msg_data => x_msg_data );
7221:
7222: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7223: RAISE FND_API.G_EXC_ERROR;
7224: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7226: END IF;
7227: END IF;
7228:
7221:
7222: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7223: RAISE FND_API.G_EXC_ERROR;
7224: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7226: END IF;
7227: END IF;
7228:
7229: -----------------------------------------------------------------------------------------
7247: We are not validating the l_oe_line_tbl and the l_oe_lot_serial_tbl as they have been extracted before deletion by us.
7248: */
7249: l_oe_line_tbl(1) := l_oe_line_rec;
7250: l_oe_line_tbl(1).inventory_item_id := l_inventory_item_id;
7251: l_oe_line_tbl(1).line_id := FND_API.G_MISS_NUM;
7252: l_oe_line_tbl(1).line_number := FND_API.G_MISS_NUM;
7253: l_oe_line_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
7254: --l_oe_lot_serial_tbl(1) := l_oe_lot_serial_rec;
7255: --Do not use the lot serial record as is.
7248: */
7249: l_oe_line_tbl(1) := l_oe_line_rec;
7250: l_oe_line_tbl(1).inventory_item_id := l_inventory_item_id;
7251: l_oe_line_tbl(1).line_id := FND_API.G_MISS_NUM;
7252: l_oe_line_tbl(1).line_number := FND_API.G_MISS_NUM;
7253: l_oe_line_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
7254: --l_oe_lot_serial_tbl(1) := l_oe_lot_serial_rec;
7255: --Do not use the lot serial record as is.
7256: l_oe_lot_serial_tbl(1).lot_serial_id := FND_API.G_MISS_NUM;
7252: l_oe_line_tbl(1).line_number := FND_API.G_MISS_NUM;
7253: l_oe_line_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
7254: --l_oe_lot_serial_tbl(1) := l_oe_lot_serial_rec;
7255: --Do not use the lot serial record as is.
7256: l_oe_lot_serial_tbl(1).lot_serial_id := FND_API.G_MISS_NUM;
7257: l_oe_lot_serial_tbl(1).lot_number := l_serialnum_change_rec.new_lot_number;
7258: l_oe_lot_serial_tbl(1).from_serial_number := l_serialnum_change_rec.new_serial_number;
7259: l_oe_lot_serial_tbl(1).quantity := l_oe_lot_serial_rec.quantity;
7260: l_oe_lot_serial_tbl(1).line_index := 1;
7281: END IF;
7282:
7283: OE_ORDER_GRP.PROCESS_ORDER(
7284: p_api_version_number => 1.0,
7285: p_init_msg_list => FND_API.G_TRUE,
7286: x_return_status => x_return_status,
7287: x_msg_count => x_msg_count,
7288: x_msg_data => x_msg_data,
7289: p_header_rec => x_header_rec,
7323: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed OE_ORDER_GRP.PROCESS_ORDER, x_return_status = ' || x_return_status);
7324: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_osp_order_line_dtls.oe_return_line_id = ' || l_osp_order_line_dtls.oe_return_line_id);
7325: END IF;
7326:
7327: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7328: FOR i IN 1..x_msg_count LOOP
7329: OE_MSG_PUB.Get(p_msg_index => i,
7330: p_encoded => FND_API.G_FALSE,
7331: p_data => l_msg_data,
7326:
7327: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7328: FOR i IN 1..x_msg_count LOOP
7329: OE_MSG_PUB.Get(p_msg_index => i,
7330: p_encoded => FND_API.G_FALSE,
7331: p_data => l_msg_data,
7332: p_msg_index_out => l_msg_index_out);
7333: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
7334: p_procedure_name => 'processOrder',
7339:
7340: END LOOP;
7341: END IF;
7342:
7343: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7344: RAISE FND_API.G_EXC_ERROR;
7345: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7346: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7347: END IF;
7340: END LOOP;
7341: END IF;
7342:
7343: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7344: RAISE FND_API.G_EXC_ERROR;
7345: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7346: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7347: END IF;
7348:
7341: END IF;
7342:
7343: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7344: RAISE FND_API.G_EXC_ERROR;
7345: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7346: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7347: END IF;
7348:
7349:
7342:
7343: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7344: RAISE FND_API.G_EXC_ERROR;
7345: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7346: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7347: END IF;
7348:
7349:
7350: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7352: END IF;
7353:
7354: --Whether its the part number and/or the serial number that was changed, we need to call Create_IB_Transaction
7355: Create_IB_Transaction(
7356: p_init_msg_list => FND_API.G_FALSE, --p_init_msg_list,
7357: p_commit => FND_API.G_FALSE,
7358: p_validation_level => p_validation_level,
7359: x_return_status => x_return_status,
7360: x_msg_count => x_msg_count,
7353:
7354: --Whether its the part number and/or the serial number that was changed, we need to call Create_IB_Transaction
7355: Create_IB_Transaction(
7356: p_init_msg_list => FND_API.G_FALSE, --p_init_msg_list,
7357: p_commit => FND_API.G_FALSE,
7358: p_validation_level => p_validation_level,
7359: x_return_status => x_return_status,
7360: x_msg_count => x_msg_count,
7361: x_msg_data => x_msg_data,
7367: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7368: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Create_IB_Transaction: ' || x_return_status);
7369: END IF;
7370:
7371: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7372: RAISE FND_API.G_EXC_ERROR;
7373: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7374: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7375: END IF;
7368: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Create_IB_Transaction: ' || x_return_status);
7369: END IF;
7370:
7371: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7372: RAISE FND_API.G_EXC_ERROR;
7373: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7374: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7375: END IF;
7376:
7369: END IF;
7370:
7371: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7372: RAISE FND_API.G_EXC_ERROR;
7373: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7374: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7375: END IF;
7376:
7377: /*
7370:
7371: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7372: RAISE FND_API.G_EXC_ERROR;
7373: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7374: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7375: END IF;
7376:
7377: /*
7378: We need to update the osp_order_line with the new return_line_id, if part number change has happened.
7399: END IF;
7400: Update_OSP_Order_Lines(
7401: p_osp_order_id => l_osp_order_line_dtls.osp_order_id,
7402: p_osp_line_id => l_order_line_id,
7403: p_oe_ship_line_id => FND_API.G_MISS_NUM ,
7404: p_oe_return_line_id => l_osp_order_line_dtls.oe_return_line_id);
7405:
7406: END LOOP;
7407: CLOSE get_same_phyitem_order_lines;
7408: END IF;
7409: END IF; --IF(l_part_num_changed = 'Y' OR l_serial_num_changed := 'Y') THEN
7410: END IF;--IF (l_osp_order_line_dtls.oe_return_line_id is not null) THEN
7411:
7412: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
7413: COMMIT;
7414: END IF;
7415:
7416: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7419:
7420: FND_MSG_PUB.Count_And_Get
7421: ( p_count => x_msg_count,
7422: p_data => x_msg_data,
7423: p_encoded => fnd_api.g_false);
7424:
7425: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7426: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
7427: END IF;
7426: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
7427: END IF;
7428:
7429: EXCEPTION
7430: WHEN FND_API.G_EXC_ERROR THEN
7431: x_return_status := FND_API.G_RET_STS_ERROR;
7432: Rollback to Process_Osp_SerialNum_Change;
7433: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7434: p_data => x_msg_data,
7427: END IF;
7428:
7429: EXCEPTION
7430: WHEN FND_API.G_EXC_ERROR THEN
7431: x_return_status := FND_API.G_RET_STS_ERROR;
7432: Rollback to Process_Osp_SerialNum_Change;
7433: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7434: p_data => x_msg_data,
7435: p_encoded => fnd_api.g_false);
7431: x_return_status := FND_API.G_RET_STS_ERROR;
7432: Rollback to Process_Osp_SerialNum_Change;
7433: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7434: p_data => x_msg_data,
7435: p_encoded => fnd_api.g_false);
7436:
7437: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7439: Rollback to Process_Osp_SerialNum_Change;
7433: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7434: p_data => x_msg_data,
7435: p_encoded => fnd_api.g_false);
7436:
7437: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7439: Rollback to Process_Osp_SerialNum_Change;
7440: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7441: p_data => x_msg_data,
7434: p_data => x_msg_data,
7435: p_encoded => fnd_api.g_false);
7436:
7437: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7439: Rollback to Process_Osp_SerialNum_Change;
7440: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7441: p_data => x_msg_data,
7442: p_encoded => fnd_api.g_false);
7438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7439: Rollback to Process_Osp_SerialNum_Change;
7440: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7441: p_data => x_msg_data,
7442: p_encoded => fnd_api.g_false);
7443: WHEN OTHERS THEN
7444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7445: Rollback to Process_Osp_SerialNum_Change;
7446: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
7440: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7441: p_data => x_msg_data,
7442: p_encoded => fnd_api.g_false);
7443: WHEN OTHERS THEN
7444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7445: Rollback to Process_Osp_SerialNum_Change;
7446: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
7447: p_procedure_name => 'Process_Osp_SerialNum_Change',
7448: p_error_text => SQLERRM);
7448: p_error_text => SQLERRM);
7449:
7450: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7451: p_data => x_msg_data,
7452: p_encoded => fnd_api.g_false);
7453:
7454:
7455: END Process_Osp_SerialNum_Change;
7456: END AHL_OSP_SHIPMENT_PUB;