[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,
373: -- Standard start of API savepoint
374: SAVEPOINT Process_Order_Pub;
375:
376: -- Initialize API return status to success
377: x_return_status := FND_API.G_RET_STS_SUCCESS;
378:
379: -- Standard call to check for call compatibility
380: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
381: G_PKG_NAME) THEN
376: -- Initialize API return status to success
377: x_return_status := FND_API.G_RET_STS_SUCCESS;
378:
379: -- Standard call to check for call compatibility
380: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
381: G_PKG_NAME) THEN
382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
383: END IF;
384:
378:
379: -- Standard call to check for call compatibility
380: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
381: G_PKG_NAME) THEN
382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
383: END IF;
384:
385: -- Initialize message list if p_init_msg_list is set to TRUE
386: IF FND_API.To_Boolean(p_init_msg_list) THEN
382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
383: END IF;
384:
385: -- Initialize message list if p_init_msg_list is set to TRUE
386: IF FND_API.To_Boolean(p_init_msg_list) THEN
387: FND_MSG_PUB.Initialize;
388: END IF;
389:
390: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
400: FND_MSG_PUB.ADD;
401: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
402: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
403: END IF;
404: RAISE Fnd_Api.g_exc_error;
405: END IF;
406:
407: IF (FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID') IS NULL OR FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID') = '' ) THEN
408: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
411: FND_MSG_PUB.ADD;
412: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
413: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
414: END IF;
415: RAISE Fnd_Api.g_exc_error;
416: END IF;
417:
418: IF (FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID') IS NULL OR FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID') = '') THEN
419: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
422: FND_MSG_PUB.ADD;
423: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
424: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
425: END IF;
426: RAISE Fnd_Api.g_exc_error;
427: END IF;
428:
429: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
430: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Got profile values, About to Convert_Header_rec');
465: IF l_msg_count > 0 THEN
466: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
467: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count Before calling OE_ORDER_GRP.PROCESS_ORDER: '||l_msg_count);
468: END IF;
469: RAISE FND_API.G_EXC_ERROR;
470: END IF;
471:
472: -- jaramana End
473:
478: --OE_ORDER_GRP uses its own message stack OE_MSG_PUB, so we should pass p_init_msg_list as true to this API
479: --Note that this also does an FND_MSG_PUB.initialize along with clearing its own error stack
480: OE_ORDER_GRP.PROCESS_ORDER(
481: p_api_version_number => 1.0,
482: p_init_msg_list => FND_API.G_TRUE,
483: x_return_status => x_return_status,
484: x_msg_count => x_msg_count,
485: x_msg_data => x_msg_data,
486: p_header_rec => l_header_rec,
514: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
515: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed OE_ORDER_GRP.PROCESS_ORDER, x_return_status = ' || x_return_status);
516: END IF;
517:
518: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
519: FOR i IN 1..x_msg_count LOOP
520: OE_MSG_PUB.Get(p_msg_index => i,
521: p_encoded => FND_API.G_FALSE,
522: p_data => l_msg_data,
517:
518: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
519: FOR i IN 1..x_msg_count LOOP
520: OE_MSG_PUB.Get(p_msg_index => i,
521: p_encoded => FND_API.G_FALSE,
522: p_data => l_msg_data,
523: p_msg_index_out => l_msg_index_out);
524: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
525: p_procedure_name => 'processOrder',
530:
531: END LOOP;
532: END IF;
533:
534: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
535: RAISE FND_API.G_EXC_ERROR;
536: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
538: /*
531: END LOOP;
532: END IF;
533:
534: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
535: RAISE FND_API.G_EXC_ERROR;
536: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
538: /*
539: Modified by jaramana on January 11, 2008 to fix the Bug 5935388/6504122
532: END IF;
533:
534: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
535: RAISE FND_API.G_EXC_ERROR;
536: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
538: /*
539: Modified by jaramana on January 11, 2008 to fix the Bug 5935388/6504122
540: If success is returned by the Public API, clear the message stack to eat up any warning messages from OM API.
533:
534: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
535: RAISE FND_API.G_EXC_ERROR;
536: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
538: /*
539: Modified by jaramana on January 11, 2008 to fix the Bug 5935388/6504122
540: If success is returned by the Public API, clear the message stack to eat up any warning messages from OM API.
541: Otherwise, OAExceptionUtils.checkErrors will consider these as errors.
542: Also note that had there been any validation errors that had been accumulated we would have thrown before the call to
543: OE_ORDER_GRP.PROCESS_ORDER
544: */
545:
546: ELSIF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
547: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
548: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
549: FND_MSG_PUB.get (
550: p_msg_index => i,
547: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
548: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
549: FND_MSG_PUB.get (
550: p_msg_index => i,
551: p_encoded => FND_API.G_FALSE,
552: p_data => l_msg_data,
553: p_msg_index_out => l_msg_index_out );
554: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'OE: Warning ' || i || ': ' || l_msg_data);
555: END LOOP;
584: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_Cancel_Order');
585: END IF;
586: Delete_Cancel_Order (
587: p_api_version => 1.0,
588: p_init_msg_list => FND_API.G_FALSE, -- Don't initialize the Message List
589: p_commit => FND_API.G_FALSE, -- Don't commit independently
590: p_oe_header_id => null, -- Not deleting the shipment header: Only the lines
591: p_oe_lines_tbl => l_del_oe_lines_tbl, -- Lines to be deleted/Cancelled
592: p_cancel_flag => FND_API.G_FALSE, -- Do Deletes if possible, Cancels if not
585: END IF;
586: Delete_Cancel_Order (
587: p_api_version => 1.0,
588: p_init_msg_list => FND_API.G_FALSE, -- Don't initialize the Message List
589: p_commit => FND_API.G_FALSE, -- Don't commit independently
590: p_oe_header_id => null, -- Not deleting the shipment header: Only the lines
591: p_oe_lines_tbl => l_del_oe_lines_tbl, -- Lines to be deleted/Cancelled
592: p_cancel_flag => FND_API.G_FALSE, -- Do Deletes if possible, Cancels if not
593: x_return_status => x_return_status ,
588: p_init_msg_list => FND_API.G_FALSE, -- Don't initialize the Message List
589: p_commit => FND_API.G_FALSE, -- Don't commit independently
590: p_oe_header_id => null, -- Not deleting the shipment header: Only the lines
591: p_oe_lines_tbl => l_del_oe_lines_tbl, -- Lines to be deleted/Cancelled
592: p_cancel_flag => FND_API.G_FALSE, -- Do Deletes if possible, Cancels if not
593: x_return_status => x_return_status ,
594: x_msg_count => x_msg_count ,
595: x_msg_data => x_msg_data
596: );
596: );
597: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
598: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Delete_Cancel_Order, x_return_status = ' || x_return_status);
599: END IF;
600: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
601: RAISE FND_API.G_EXC_ERROR;
602: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
604: END IF;
597: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
598: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Delete_Cancel_Order, x_return_status = ' || x_return_status);
599: END IF;
600: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
601: RAISE FND_API.G_EXC_ERROR;
602: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
604: END IF;
605: END IF; -- Delete Line Count > 0
598: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Delete_Cancel_Order, x_return_status = ' || x_return_status);
599: END IF;
600: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
601: RAISE FND_API.G_EXC_ERROR;
602: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
604: END IF;
605: END IF; -- Delete Line Count > 0
606:
599: END IF;
600: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
601: RAISE FND_API.G_EXC_ERROR;
602: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
604: END IF;
605: END IF; -- Delete Line Count > 0
606:
607: -- Handle New Shipment Lines
629: any errors (Warning converted to errors by OAExceptionUtils.checkErrors in the absence of
630: certain tokens).
631: */
632: Create_IB_Transaction(
633: p_init_msg_list => FND_API.G_FALSE, --p_init_msg_list,
634: p_commit => p_commit,
635: p_validation_level => p_validation_level,
636: x_return_status => x_return_status,
637: x_msg_count => x_msg_count,
642: p_csi_instance_id => p_x_lines_tbl(i).csi_item_instance_id);
643: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
644: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Create_IB_Transaction: ' || x_return_status);
645: END IF;
646: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
647: RAISE FND_API.G_EXC_ERROR;
648: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
649: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
650: END IF;
643: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
644: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Create_IB_Transaction: ' || x_return_status);
645: END IF;
646: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
647: RAISE FND_API.G_EXC_ERROR;
648: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
649: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
650: END IF;
651:
644: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Create_IB_Transaction: ' || x_return_status);
645: END IF;
646: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
647: RAISE FND_API.G_EXC_ERROR;
648: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
649: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
650: END IF;
651:
652: --Update OSP Order Lines with the new line_id
645: END IF;
646: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
647: RAISE FND_API.G_EXC_ERROR;
648: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
649: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
650: END IF;
651:
652: --Update OSP Order Lines with the new line_id
653: --FIX LINE TYPE ID validation
659: Update_OSP_Order_Lines(
660: p_osp_order_id => p_x_lines_tbl(i).osp_order_id,
661: p_item_instance_id => p_x_lines_tbl(i).csi_item_instance_id,
662: p_oe_ship_line_id => p_x_lines_tbl(i).line_id,
663: p_oe_return_line_id => FND_API.G_MISS_NUM);
664: ELSIF (p_x_lines_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID')) THEN
665: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
666: 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 );
667: END IF;
667: END IF;
668: Update_OSP_Order_Lines(
669: p_osp_order_id => p_x_lines_tbl(i).osp_order_id,
670: p_item_instance_id => p_x_lines_tbl(i).csi_item_instance_id,
671: p_oe_ship_line_id => FND_API.G_MISS_NUM ,
672: p_oe_return_line_id => p_x_lines_tbl(i).line_id);
673: END IF;
674:
675: ELSE -- instance id is null
682: Update_OSP_Order_Lines(
683: p_osp_order_id => p_x_lines_tbl(i).osp_order_id,
684: p_osp_line_id => p_x_lines_tbl(i).osp_line_id,
685: p_oe_ship_line_id => p_x_lines_tbl(i).line_id,
686: p_oe_return_line_id => FND_API.G_MISS_NUM);
687: ELSIF (p_x_lines_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID')) THEN
688: --mpothuku modified on 14-Sep-2007 to fix the Bug 6398921
689: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
690: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_lines_tbl(i).order_type :' ||p_x_lines_tbl(i).order_type);
716: p_csi_instance_id => NULL);
717: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
718: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Create_IB_Transaction: ' || x_return_status);
719: END IF;
720: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
721: RAISE FND_API.G_EXC_ERROR;
722: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
724: END IF;
717: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
718: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Create_IB_Transaction: ' || x_return_status);
719: END IF;
720: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
721: RAISE FND_API.G_EXC_ERROR;
722: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
724: END IF;
725: ELSE
718: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Create_IB_Transaction: ' || x_return_status);
719: END IF;
720: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
721: RAISE FND_API.G_EXC_ERROR;
722: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
724: END IF;
725: ELSE
726: CLOSE is_oe_item_IB_tracked;
719: END IF;
720: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
721: RAISE FND_API.G_EXC_ERROR;
722: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
724: END IF;
725: ELSE
726: CLOSE is_oe_item_IB_tracked;
727: END IF;
732: END IF;
733: Update_OSP_Order_Lines(
734: p_osp_order_id => p_x_lines_tbl(i).osp_order_id,
735: p_osp_line_id => p_x_lines_tbl(i).osp_line_id,
736: p_oe_ship_line_id => FND_API.G_MISS_NUM ,
737: p_oe_return_line_id => p_x_lines_tbl(i).line_id);
738: END IF;
739: END IF; -- OSP Line Id not null
740: END IF; -- if instance id is not null
761:
762: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
763: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Delete_IB_Transaction: ' || x_return_status);
764: END IF;
765: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
766: RAISE FND_API.G_EXC_ERROR;
767: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
768: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
769: END IF;
762: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
763: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Delete_IB_Transaction: ' || x_return_status);
764: END IF;
765: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
766: RAISE FND_API.G_EXC_ERROR;
767: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
768: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
769: END IF;
770:
763: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Delete_IB_Transaction: ' || x_return_status);
764: END IF;
765: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
766: RAISE FND_API.G_EXC_ERROR;
767: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
768: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
769: END IF;
770:
771: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
764: END IF;
765: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
766: RAISE FND_API.G_EXC_ERROR;
767: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
768: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
769: END IF;
770:
771: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
772: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_OE_Lines');
848:
849: -- yazhou 07-Aug-2006 ends
850:
851: -- Standard check of p_commit
852: IF FND_API.To_Boolean(p_commit) THEN
853: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
854: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to commit work');
855: END IF;
856: COMMIT WORK;
859: -- Standard call to get message count and if count is 1, get message
860: FND_MSG_PUB.Count_And_Get
861: ( p_count => x_msg_count,
862: p_data => x_msg_data,
863: p_encoded => fnd_api.g_false);
864: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
865: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
866: END IF;
867:
865: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
866: END IF;
867:
868: EXCEPTION
869: WHEN FND_API.G_EXC_ERROR THEN
870: x_return_status := FND_API.G_RET_STS_ERROR;
871: Rollback to Process_Order_Pub;
872: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
873: p_data => x_msg_data,
866: END IF;
867:
868: EXCEPTION
869: WHEN FND_API.G_EXC_ERROR THEN
870: x_return_status := FND_API.G_RET_STS_ERROR;
871: Rollback to Process_Order_Pub;
872: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
873: p_data => x_msg_data,
874: p_encoded => fnd_api.g_false);
870: x_return_status := FND_API.G_RET_STS_ERROR;
871: Rollback to Process_Order_Pub;
872: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
873: p_data => x_msg_data,
874: p_encoded => fnd_api.g_false);
875:
876: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
878: Rollback to Process_Order_Pub;
872: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
873: p_data => x_msg_data,
874: p_encoded => fnd_api.g_false);
875:
876: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
878: Rollback to Process_Order_Pub;
879: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
880: p_data => x_msg_data,
873: p_data => x_msg_data,
874: p_encoded => fnd_api.g_false);
875:
876: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
878: Rollback to Process_Order_Pub;
879: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
880: p_data => x_msg_data,
881: p_encoded => fnd_api.g_false);
877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
878: Rollback to Process_Order_Pub;
879: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
880: p_data => x_msg_data,
881: p_encoded => fnd_api.g_false);
882: WHEN OTHERS THEN
883: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
884: Rollback to Process_Order_Pub;
885: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
879: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
880: p_data => x_msg_data,
881: p_encoded => fnd_api.g_false);
882: WHEN OTHERS THEN
883: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
884: Rollback to Process_Order_Pub;
885: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
886: p_procedure_name => 'Process_Order',
887: p_error_text => SQLERRM);
887: p_error_text => SQLERRM);
888:
889: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
890: p_data => x_msg_data,
891: p_encoded => fnd_api.g_false);
892: END Process_Order;
893:
894:
895: -------------------------------------------------------------
901: -- Parameters :
902: --
903: -- Standard IN Parameters :
904: -- p_api_version IN NUMBER Default 1.0
905: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
906: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
907: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
908: -- Standard OUT Parameters :
909: -- x_return_status OUT NOCOPY VARCHAR2 Required
902: --
903: -- Standard IN Parameters :
904: -- p_api_version IN NUMBER Default 1.0
905: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
906: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
907: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
908: -- Standard OUT Parameters :
909: -- x_return_status OUT NOCOPY VARCHAR2 Required
910: -- x_msg_count OUT NOCOPY NUMBER Required
903: -- Standard IN Parameters :
904: -- p_api_version IN NUMBER Default 1.0
905: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
906: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
907: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
908: -- Standard OUT Parameters :
909: -- x_return_status OUT NOCOPY VARCHAR2 Required
910: -- x_msg_count OUT NOCOPY NUMBER Required
911: -- x_msg_data OUT NOCOPY VARCHAR2 Required
920: -- End of Comments.
921:
922: PROCEDURE Book_Order (
923: p_api_version IN NUMBER := 1.0,
924: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
925: p_commit IN VARCHAR2 := FND_API.G_FALSE,
926: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
927: p_oe_header_tbl IN SHIP_ID_TBL_TYPE,
928: x_return_status OUT NOCOPY VARCHAR2,
921:
922: PROCEDURE Book_Order (
923: p_api_version IN NUMBER := 1.0,
924: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
925: p_commit IN VARCHAR2 := FND_API.G_FALSE,
926: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
927: p_oe_header_tbl IN SHIP_ID_TBL_TYPE,
928: x_return_status OUT NOCOPY VARCHAR2,
929: x_msg_count OUT NOCOPY NUMBER,
922: PROCEDURE Book_Order (
923: p_api_version IN NUMBER := 1.0,
924: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
925: p_commit IN VARCHAR2 := FND_API.G_FALSE,
926: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
927: p_oe_header_tbl IN SHIP_ID_TBL_TYPE,
928: x_return_status OUT NOCOPY VARCHAR2,
929: x_msg_count OUT NOCOPY NUMBER,
930: x_msg_data OUT NOCOPY VARCHAR2 ) IS
939: BEGIN
940: SAVEPOINT Book_Order_Pub;
941:
942: -- Initialize message list if p_init_msg_list is set to TRUE
943: IF FND_API.To_Boolean(p_init_msg_list) THEN
944: FND_MSG_PUB.Initialize;
945: END IF;
946:
947: -- Initialize API return status to success
944: FND_MSG_PUB.Initialize;
945: END IF;
946:
947: -- Initialize API return status to success
948: x_return_status := FND_API.G_RET_STS_SUCCESS;
949:
950: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
951: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
952: END IF;
971: IF l_msg_count > 0 THEN
972: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
973: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count Before calling OE_ORDER_GRP.PROCESS_ORDER: '||l_msg_count);
974: END IF;
975: RAISE FND_API.G_EXC_ERROR;
976: END IF;
977:
978: -- jaramana End
979:
980: --OE_ORDER_GRP uses its own message stack OE_MSG_PUB, so we should pass p_init_msg_list as true to this API
981: --Note that this also does an FND_MSG_PUB.initialize along with clearing its own error stack
982: OE_ORDER_GRP.PROCESS_ORDER(
983: p_api_version_number => 1.0,
984: p_init_msg_list => FND_API.G_TRUE,
985: x_return_status => x_return_status,
986: x_msg_count => x_msg_count,
987: x_msg_data => x_msg_data,
988: p_action_request_tbl => l_action_request_tbl,
1007: x_Lot_Serial_tbl => x_Lot_Serial_tbl ,
1008: x_Lot_Serial_val_tbl => x_Lot_Serial_val_tbl ,
1009: x_action_request_tbl => x_action_request_tbl );
1010:
1011: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1012: FOR i IN 1..x_msg_count LOOP
1013: OE_MSG_PUB.Get( p_msg_index => i,
1014: p_encoded => FND_API.G_FALSE,
1015: p_data => l_msg_data,
1010:
1011: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1012: FOR i IN 1..x_msg_count LOOP
1013: OE_MSG_PUB.Get( p_msg_index => i,
1014: p_encoded => FND_API.G_FALSE,
1015: p_data => l_msg_data,
1016: p_msg_index_out => l_msg_index_out);
1017: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
1018: p_procedure_name => 'bookOrder',
1027: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1028: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status at the end of all processing: ' || x_return_status);
1029: END IF;
1030:
1031: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1032: RAISE FND_API.G_EXC_ERROR;
1033: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1034: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1035: /*
1028: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status at the end of all processing: ' || x_return_status);
1029: END IF;
1030:
1031: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1032: RAISE FND_API.G_EXC_ERROR;
1033: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1034: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1035: /*
1036: Modified by jaramana on January 11, 2008 to fix the Bug 5935388/6504122
1029: END IF;
1030:
1031: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1032: RAISE FND_API.G_EXC_ERROR;
1033: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1034: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1035: /*
1036: Modified by jaramana on January 11, 2008 to fix the Bug 5935388/6504122
1037: If success is returned by the Public API, clear the message stack to eat up any warning messages from OM API.
1030:
1031: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1032: RAISE FND_API.G_EXC_ERROR;
1033: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1034: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1035: /*
1036: Modified by jaramana on January 11, 2008 to fix the Bug 5935388/6504122
1037: If success is returned by the Public API, clear the message stack to eat up any warning messages from OM API.
1038: Otherwise, OAExceptionUtils.checkErrors will consider these as errors
1038: Otherwise, OAExceptionUtils.checkErrors will consider these as errors
1039: Also note that had there been any validation errors that had been accumulated we would have thrown before the call to
1040: OE_ORDER_GRP.PROCESS_ORDER
1041: */
1042: ELSIF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1043: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1044: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
1045: FND_MSG_PUB.get (
1046: p_msg_index => i,
1043: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1044: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
1045: FND_MSG_PUB.get (
1046: p_msg_index => i,
1047: p_encoded => FND_API.G_FALSE,
1048: p_data => l_msg_data,
1049: p_msg_index_out => l_msg_index_out );
1050: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'OE: Warning ' || i || ': ' || l_msg_data);
1051: END LOOP;
1054: -- jaramana End
1055: END IF;
1056:
1057: -- Standard check of p_commit
1058: IF FND_API.To_Boolean(p_commit) THEN
1059: COMMIT WORK;
1060: END IF;
1061:
1062: -- Standard call to get message count and if count is 1, get message
1062: -- Standard call to get message count and if count is 1, get message
1063: FND_MSG_PUB.Count_And_Get
1064: ( p_count => x_msg_count,
1065: p_data => x_msg_data,
1066: p_encoded => fnd_api.g_false);
1067:
1068: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1069: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1070: END IF;
1069: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1070: END IF;
1071:
1072: EXCEPTION
1073: WHEN FND_API.G_EXC_ERROR THEN
1074: x_return_status := FND_API.G_RET_STS_ERROR;
1075: Rollback to Book_Order_Pub;
1076: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1077: p_data => x_msg_data,
1070: END IF;
1071:
1072: EXCEPTION
1073: WHEN FND_API.G_EXC_ERROR THEN
1074: x_return_status := FND_API.G_RET_STS_ERROR;
1075: Rollback to Book_Order_Pub;
1076: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1077: p_data => x_msg_data,
1078: p_encoded => fnd_api.g_false);
1074: x_return_status := FND_API.G_RET_STS_ERROR;
1075: Rollback to Book_Order_Pub;
1076: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1077: p_data => x_msg_data,
1078: p_encoded => fnd_api.g_false);
1079:
1080: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1082: Rollback to Book_Order_Pub;
1076: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1077: p_data => x_msg_data,
1078: p_encoded => fnd_api.g_false);
1079:
1080: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1082: Rollback to Book_Order_Pub;
1083: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1084: p_data => x_msg_data,
1077: p_data => x_msg_data,
1078: p_encoded => fnd_api.g_false);
1079:
1080: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1082: Rollback to Book_Order_Pub;
1083: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1084: p_data => x_msg_data,
1085: p_encoded => fnd_api.g_false);
1081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1082: Rollback to Book_Order_Pub;
1083: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1084: p_data => x_msg_data,
1085: p_encoded => fnd_api.g_false);
1086: WHEN OTHERS THEN
1087: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1088: Rollback to Book_Order_Pub;
1089: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1083: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1084: p_data => x_msg_data,
1085: p_encoded => fnd_api.g_false);
1086: WHEN OTHERS THEN
1087: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1088: Rollback to Book_Order_Pub;
1089: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1090: p_procedure_name => 'Book_Order',
1091: p_error_text => SQLERRM);
1091: p_error_text => SQLERRM);
1092:
1093: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1094: p_data => x_msg_data,
1095: p_encoded => fnd_api.g_false);
1096: END Book_Order;
1097:
1098: -------------------------------------------------------------
1099: -- Start of Comments --
1105: -- Parameters :
1106: --
1107: -- Standard IN Parameters :
1108: -- p_api_version IN NUMBER Default 1.0
1109: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
1110: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1111: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1112: -- Standard OUT Parameters :
1113: -- x_return_status OUT NOCOPY VARCHAR2 Required
1106: --
1107: -- Standard IN Parameters :
1108: -- p_api_version IN NUMBER Default 1.0
1109: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
1110: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1111: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1112: -- Standard OUT Parameters :
1113: -- x_return_status OUT NOCOPY VARCHAR2 Required
1114: -- x_msg_count OUT NOCOPY NUMBER Required
1107: -- Standard IN Parameters :
1108: -- p_api_version IN NUMBER Default 1.0
1109: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
1110: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1111: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1112: -- Standard OUT Parameters :
1113: -- x_return_status OUT NOCOPY VARCHAR2 Required
1114: -- x_msg_count OUT NOCOPY NUMBER Required
1115: -- x_msg_data OUT NOCOPY VARCHAR2 Required
1129: -- End of Comments.
1130:
1131: PROCEDURE Delete_Cancel_Order (
1132: p_api_version IN NUMBER := 1.0,
1133: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1134: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1135: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1136: p_oe_header_id IN NUMBER,
1137: p_oe_lines_tbl IN SHIP_ID_TBL_TYPE,
1130:
1131: PROCEDURE Delete_Cancel_Order (
1132: p_api_version IN NUMBER := 1.0,
1133: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1134: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1135: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1136: p_oe_header_id IN NUMBER,
1137: p_oe_lines_tbl IN SHIP_ID_TBL_TYPE,
1138: p_cancel_flag IN VARCHAR2 := FND_API.G_FALSE,
1131: PROCEDURE Delete_Cancel_Order (
1132: p_api_version IN NUMBER := 1.0,
1133: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1134: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1135: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1136: p_oe_header_id IN NUMBER,
1137: p_oe_lines_tbl IN SHIP_ID_TBL_TYPE,
1138: p_cancel_flag IN VARCHAR2 := FND_API.G_FALSE,
1139: x_return_status OUT NOCOPY VARCHAR2,
1134: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1135: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1136: p_oe_header_id IN NUMBER,
1137: p_oe_lines_tbl IN SHIP_ID_TBL_TYPE,
1138: p_cancel_flag IN VARCHAR2 := FND_API.G_FALSE,
1139: x_return_status OUT NOCOPY VARCHAR2,
1140: x_msg_count OUT NOCOPY NUMBER,
1141: x_msg_data OUT NOCOPY VARCHAR2)
1142: IS
1171:
1172: SAVEPOINT Delete_Cancel_Order_Pub;
1173:
1174: -- Initialize message list if p_init_msg_list is set to TRUE
1175: IF FND_API.To_Boolean(p_init_msg_list) THEN
1176: FND_MSG_PUB.Initialize;
1177: END IF;
1178:
1179: -- Initialize API return status to success
1176: FND_MSG_PUB.Initialize;
1177: END IF;
1178:
1179: -- Initialize API return status to success
1180: x_return_status := FND_API.G_RET_STS_SUCCESS;
1181:
1182: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1183: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1184: END IF;
1187: l_line_tbl := OE_ORDER_PUB.G_MISS_LINE_TBL;
1188:
1189: -- Try delete/cancel header first.
1190: IF (p_oe_header_id IS NOT NULL AND
1191: p_oe_header_id <> FND_API.G_MISS_NUM) THEN
1192:
1193: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1194: 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);
1195: END IF;
1267: IF l_msg_count > 0 THEN
1268: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1269: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count Before calling OE_ORDER_GRP.PROCESS_ORDER: '||l_msg_count);
1270: END IF;
1271: RAISE FND_API.G_EXC_ERROR;
1272: END IF;
1273:
1274: --OE_ORDER_GRP uses its own message stack OE_MSG_PUB, so we should pass p_init_msg_list as true to this API
1275: --Note that this also does an FND_MSG_PUB.initialize along with clearing its own error stack
1274: --OE_ORDER_GRP uses its own message stack OE_MSG_PUB, so we should pass p_init_msg_list as true to this API
1275: --Note that this also does an FND_MSG_PUB.initialize along with clearing its own error stack
1276: OE_ORDER_GRP.PROCESS_ORDER(
1277: p_api_version_number => 1.0,
1278: p_init_msg_list => FND_API.G_TRUE,
1279: x_return_status => x_return_status,
1280: x_msg_count => x_msg_count,
1281: x_msg_data => x_msg_data,
1282: p_header_rec => l_header_rec,
1302: x_Lot_Serial_tbl => x_Lot_Serial_tbl ,
1303: x_Lot_Serial_val_tbl => x_Lot_Serial_val_tbl ,
1304: x_action_request_tbl => x_action_request_tbl );
1305:
1306: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1307: FOR i IN 1..x_msg_count LOOP
1308: OE_MSG_PUB.Get( p_msg_index => i,
1309: p_encoded => FND_API.G_FALSE,
1310: p_data => l_msg_data,
1305:
1306: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1307: FOR i IN 1..x_msg_count LOOP
1308: OE_MSG_PUB.Get( p_msg_index => i,
1309: p_encoded => FND_API.G_FALSE,
1310: p_data => l_msg_data,
1311: p_msg_index_out => l_msg_index_out);
1312: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
1313: p_procedure_name => 'deleteCancelOrder',
1317: END IF;
1318: END LOOP;
1319: END IF;
1320:
1321: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1322: RAISE FND_API.G_EXC_ERROR;
1323: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1325: /*
1318: END LOOP;
1319: END IF;
1320:
1321: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1322: RAISE FND_API.G_EXC_ERROR;
1323: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1325: /*
1326: Modified by jaramana on January 11, 2008 to fix the Bug 5935388/6504122
1319: END IF;
1320:
1321: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1322: RAISE FND_API.G_EXC_ERROR;
1323: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1325: /*
1326: Modified by jaramana on January 11, 2008 to fix the Bug 5935388/6504122
1327: If success is returned by the Public API, clear the message stack to eat up any warning messages from OM API.
1320:
1321: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1322: RAISE FND_API.G_EXC_ERROR;
1323: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1325: /*
1326: Modified by jaramana on January 11, 2008 to fix the Bug 5935388/6504122
1327: If success is returned by the Public API, clear the message stack to eat up any warning messages from OM API.
1328: Otherwise, OAExceptionUtils.checkErrors will consider these as errors
1328: Otherwise, OAExceptionUtils.checkErrors will consider these as errors
1329: Also note that had there been any validation errors that had been accumulated we would have thrown before the call to
1330: OE_ORDER_GRP.PROCESS_ORDER
1331: */
1332: ELSIF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1333: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1334: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
1335: FND_MSG_PUB.get (
1336: p_msg_index => i,
1333: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1334: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
1335: FND_MSG_PUB.get (
1336: p_msg_index => i,
1337: p_encoded => FND_API.G_FALSE,
1338: p_data => l_msg_data,
1339: p_msg_index_out => l_msg_index_out );
1340: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'OE: Warning ' || i || ': ' || l_msg_data);
1341: END LOOP;
1346: IF (l_line_tbl.COUNT >0) THEN
1347: FOR i IN l_line_tbl.FIRST..l_line_tbl.LAST LOOP
1348: Delete_IB_Transaction(
1349: -- Changed by jaramana on January 11, 2008 for the Requisition ER 6034236.
1350: p_init_msg_list => FND_API.G_FALSE, --p_init_msg_list,
1351: p_commit => p_commit,
1352: p_validation_level => p_validation_level,
1353: x_return_status => x_return_status,
1354: x_msg_count => x_msg_count,
1354: x_msg_count => x_msg_count,
1355: x_msg_data => x_msg_data,
1356: p_oe_line_id => l_line_tbl(i).line_id );
1357:
1358: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1359: RAISE FND_API.G_EXC_ERROR;
1360: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1362: END IF;
1355: x_msg_data => x_msg_data,
1356: p_oe_line_id => l_line_tbl(i).line_id );
1357:
1358: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1359: RAISE FND_API.G_EXC_ERROR;
1360: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1362: END IF;
1363:
1356: p_oe_line_id => l_line_tbl(i).line_id );
1357:
1358: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1359: RAISE FND_API.G_EXC_ERROR;
1360: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1362: END IF;
1363:
1364: END LOOP;
1357:
1358: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1359: RAISE FND_API.G_EXC_ERROR;
1360: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1362: END IF;
1363:
1364: END LOOP;
1365: END IF;
1364: END LOOP;
1365: END IF;
1366:
1367: -- Standard check of p_commit
1368: IF FND_API.To_Boolean(p_commit) THEN
1369: COMMIT WORK;
1370: END IF;
1371:
1372: -- Standard call to get message count and if count is 1, get message
1372: -- Standard call to get message count and if count is 1, get message
1373: FND_MSG_PUB.Count_And_Get
1374: ( p_count => x_msg_count,
1375: p_data => x_msg_data,
1376: p_encoded => fnd_api.g_false);
1377:
1378: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1379: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1380: END IF;
1379: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1380: END IF;
1381:
1382: EXCEPTION
1383: WHEN FND_API.G_EXC_ERROR THEN
1384: x_return_status := FND_API.G_RET_STS_ERROR;
1385: Rollback to Delete_Cancel_Order_Pub;
1386: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1387: p_data => x_msg_data,
1380: END IF;
1381:
1382: EXCEPTION
1383: WHEN FND_API.G_EXC_ERROR THEN
1384: x_return_status := FND_API.G_RET_STS_ERROR;
1385: Rollback to Delete_Cancel_Order_Pub;
1386: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1387: p_data => x_msg_data,
1388: p_encoded => fnd_api.g_false);
1384: x_return_status := FND_API.G_RET_STS_ERROR;
1385: Rollback to Delete_Cancel_Order_Pub;
1386: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1387: p_data => x_msg_data,
1388: p_encoded => fnd_api.g_false);
1389:
1390: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1392: Rollback to Delete_Cancel_Order_Pub;
1386: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1387: p_data => x_msg_data,
1388: p_encoded => fnd_api.g_false);
1389:
1390: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1392: Rollback to Delete_Cancel_Order_Pub;
1393: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1394: p_data => x_msg_data,
1387: p_data => x_msg_data,
1388: p_encoded => fnd_api.g_false);
1389:
1390: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1392: Rollback to Delete_Cancel_Order_Pub;
1393: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1394: p_data => x_msg_data,
1395: p_encoded => fnd_api.g_false);
1391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1392: Rollback to Delete_Cancel_Order_Pub;
1393: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1394: p_data => x_msg_data,
1395: p_encoded => fnd_api.g_false);
1396: WHEN OTHERS THEN
1397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1398: Rollback to Delete_Cancel_Order_Pub;
1399: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1393: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1394: p_data => x_msg_data,
1395: p_encoded => fnd_api.g_false);
1396: WHEN OTHERS THEN
1397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1398: Rollback to Delete_Cancel_Order_Pub;
1399: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1400: p_procedure_name => 'Delete_Cancel_Order',
1401: p_error_text => SQLERRM);
1401: p_error_text => SQLERRM);
1402:
1403: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1404: p_data => x_msg_data,
1405: p_encoded => fnd_api.g_false);
1406: END Delete_Cancel_Order;
1407:
1408: ---------------------------------------------------------------------
1409: -- FUNCTION
1412: -- PURPOSE
1413: -- This function checks if the shipment header is closed.
1414: --
1415: -- NOTES
1416: -- 1. It will return FND_API.g_true/g_false.
1417: -- 2. Exception encountered will be raised to the caller.
1418: ---------------------------------------------------------------------
1419: FUNCTION is_order_header_closed(
1420: p_oe_header_id IN NUMBER )
1460: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1461: Fnd_Message.set_name('AHL', 'AHL_OSP_HEADER_ID_INV');
1462: Fnd_Msg_Pub.ADD;
1463: END IF;
1464: RAISE Fnd_Api.g_exc_error;
1465: END IF;
1466: CLOSE ahl_osp_header_id_csr;
1467: */
1468:
1466: CLOSE ahl_osp_header_id_csr;
1467: */
1468:
1469: --Modified by mpothuku on 18-Sep-06 for fixing the Bug 5673483
1470: l_closed := FND_API.G_FALSE;
1471: IF(p_oe_header_id is not null) THEN
1472: OPEN ahl_osp_oe_closed_csr (p_oe_header_id);
1473: FETCH ahl_osp_oe_closed_csr INTO l_ahl_osp_oe_closed_csr;
1474: IF (ahl_osp_oe_closed_csr%FOUND) THEN
1474: IF (ahl_osp_oe_closed_csr%FOUND) THEN
1475: IF((l_ahl_osp_oe_closed_csr.open_flag = 'N' AND l_ahl_osp_oe_closed_csr.flow_status_code = 'CLOSED')
1476: OR (l_ahl_osp_oe_closed_csr.cancelled_flag = 'Y' AND l_ahl_osp_oe_closed_csr.flow_status_code = 'CANCELLED'))
1477: THEN
1478: l_closed := FND_API.G_TRUE;
1479: END IF;
1480: ELSE --This may mean that the Sales Order has been deleted from the OM Forms and Synch has not been done
1481: CLOSE ahl_osp_oe_closed_csr;
1482: l_closed := FND_API.G_FALSE;
1478: l_closed := FND_API.G_TRUE;
1479: END IF;
1480: ELSE --This may mean that the Sales Order has been deleted from the OM Forms and Synch has not been done
1481: CLOSE ahl_osp_oe_closed_csr;
1482: l_closed := FND_API.G_FALSE;
1483: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_HEADER_ID_INV');
1484: FND_MSG_PUB.ADD;
1485: RAISE Fnd_Api.g_exc_error;
1486: END IF;
1481: CLOSE ahl_osp_oe_closed_csr;
1482: l_closed := FND_API.G_FALSE;
1483: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_HEADER_ID_INV');
1484: FND_MSG_PUB.ADD;
1485: RAISE Fnd_Api.g_exc_error;
1486: END IF;
1487: CLOSE ahl_osp_oe_closed_csr;
1488: END IF;
1489: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1662: END IF;
1663:
1664: --If no operation, then invalid order
1665: IF (p_header_rec.operation IS NULL OR
1666: p_header_rec.operation = FND_API.G_MISS_CHAR) THEN
1667: RETURN;
1668: END IF;
1669:
1670: IF (p_header_rec.header_id IS NOT NULL) THEN
1717:
1718: IF l_vendor_cust_dtls.customer_site_id IS NULL THEN
1719: Fnd_Message.set_name('AHL', 'AHL_OSP_VENDOR_INFO_NULL');
1720: Fnd_Msg_Pub.ADD;
1721: RAISE Fnd_Api.g_exc_error;
1722: END IF;
1723:
1724: OPEN ahl_customer_info_csr(l_vendor_cust_dtls.customer_site_id);
1725: FETCH ahl_customer_info_csr INTO l_cust_id;
1739: Fnd_Message.set_name('AHL', 'AHL_OSP_SOLD_TO_ORG_INV');
1740: FND_MESSAGE.SET_TOKEN('SOLD_TO_ORG',p_header_rec.sold_to_custom_number);
1741: Fnd_Msg_Pub.ADD;
1742: END IF;
1743: RAISE Fnd_Api.g_exc_error;
1744: END IF;
1745: CLOSE ahl_sold_to_orgs_csr;
1746: END IF;
1747: x_header_val_rec.customer_number := p_header_rec.sold_to_custom_number;
1767: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_TO_ORG_INV');
1768: FND_MESSAGE.SET_TOKEN('SHIP_TO_ORG',p_header_rec.ship_to_org);
1769: Fnd_Msg_Pub.ADD;
1770: END IF;
1771: RAISE Fnd_Api.g_exc_error;
1772: END IF;
1773: CLOSE ahl_ship_to_orgs_csr;
1774: END IF;
1775: x_header_val_rec.ship_to_org := p_header_rec.ship_to_org;
1791: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_FROM_ORG_INV');
1792: FND_MESSAGE.SET_TOKEN('SHIP_FROM_ORG',p_header_rec.ship_from_org);
1793: Fnd_Msg_Pub.ADD;
1794: END IF;
1795: RAISE Fnd_Api.g_exc_error;
1796: END IF;
1797: CLOSE ahl_ship_from_orgs_csr;
1798: END IF;
1799: x_header_val_rec.ship_from_org := p_header_rec.ship_from_org;
1815: OPEN ahl_sold_to_contact_count_csr(p_header_rec.ship_to_contact,
1816: x_header_rec.sold_to_org_id);
1817: FETCH ahl_sold_to_contact_count_csr INTO l_contact_count;
1818: IF (l_contact_count < 2) THEN
1819: x_header_rec.sold_to_contact_id := FND_API.G_MISS_NUM;
1820: x_header_val_rec.sold_to_contact := p_header_rec.ship_to_contact;
1821: ELSE
1822: x_header_rec.sold_to_contact_id := p_header_rec.ship_to_contact_id;
1823: END IF;
1824: CLOSE ahl_sold_to_contact_count_csr;
1825:
1826: --Nullable LOV parameters
1827: IF (p_module_type = 'JSP') THEN
1828: x_header_rec.fob_point_code := FND_API.G_MISS_CHAR;
1829: x_header_val_rec.fob_point := p_header_rec.fob_point;
1830: ELSE
1831: x_header_rec.fob_point_code := p_header_rec.fob_point_code;
1832: END IF;
1831: x_header_rec.fob_point_code := p_header_rec.fob_point_code;
1832: END IF;
1833: -- No used as of now . COmmented in JSP
1834: IF (p_module_type = 'JSP') THEN
1835: x_header_rec.freight_carrier_code := FND_API.G_MISS_CHAR;
1836: x_header_val_rec.freight_carrier := p_header_rec.freight_carrier;
1837: ELSE
1838: x_header_rec.freight_carrier_code := p_header_rec.freight_carrier_code;
1839: END IF;
1839: END IF;
1840:
1841:
1842: IF (p_module_type = 'JSP') THEN
1843: x_header_rec.freight_terms_code := FND_API.G_MISS_CHAR ;
1844: x_header_val_rec.freight_terms := p_header_rec.freight_terms;
1845: ELSE
1846: x_header_rec.freight_terms_code := p_header_rec.freight_terms_code;
1847: END IF;
1848:
1849:
1850: /* To be fetched from Profile */
1851: IF (p_module_type = 'JSP') THEN
1852: x_header_rec.shipment_priority_code := FND_API.G_MISS_CHAR;
1853: x_header_val_rec.shipment_priority := p_header_rec.shipment_priority;
1854: ELSE
1855: x_header_rec.shipment_priority_code := p_header_rec.shipment_priority_code;
1856: END IF;
1855: x_header_rec.shipment_priority_code := p_header_rec.shipment_priority_code;
1856: END IF;
1857:
1858: IF (p_module_type = 'JSP') THEN
1859: x_header_rec.shipping_method_code := FND_API.G_MISS_CHAR;
1860: x_header_val_rec.shipping_method := p_header_rec.shipping_method;
1861: ELSE
1862: x_header_rec.shipping_method_code := p_header_rec.shipping_method_code;
1863: END IF;
1864:
1865: -- Added by jaramana on June 3, 2005 to default Header Values from setup
1866: IF (p_header_rec.operation = 'C') THEN
1867: -- Allow these values to be defaulted when creating a Shipment
1868: x_header_rec.shipping_method_code := FND_API.G_MISS_CHAR;
1869: x_header_rec.freight_terms_code := FND_API.G_MISS_CHAR;
1870: x_header_rec.freight_carrier_code := FND_API.G_MISS_CHAR;
1871: x_header_rec.fob_point_code := FND_API.G_MISS_CHAR;
1872: -- Get this from the profile
1865: -- Added by jaramana on June 3, 2005 to default Header Values from setup
1866: IF (p_header_rec.operation = 'C') THEN
1867: -- Allow these values to be defaulted when creating a Shipment
1868: x_header_rec.shipping_method_code := FND_API.G_MISS_CHAR;
1869: x_header_rec.freight_terms_code := FND_API.G_MISS_CHAR;
1870: x_header_rec.freight_carrier_code := FND_API.G_MISS_CHAR;
1871: x_header_rec.fob_point_code := FND_API.G_MISS_CHAR;
1872: -- Get this from the profile
1873: x_header_rec.shipment_priority_code := FND_PROFILE.VALUE('AHL_OSP_OE_SHIPMENT_PRIORITY');
1866: IF (p_header_rec.operation = 'C') THEN
1867: -- Allow these values to be defaulted when creating a Shipment
1868: x_header_rec.shipping_method_code := FND_API.G_MISS_CHAR;
1869: x_header_rec.freight_terms_code := FND_API.G_MISS_CHAR;
1870: x_header_rec.freight_carrier_code := FND_API.G_MISS_CHAR;
1871: x_header_rec.fob_point_code := FND_API.G_MISS_CHAR;
1872: -- Get this from the profile
1873: x_header_rec.shipment_priority_code := FND_PROFILE.VALUE('AHL_OSP_OE_SHIPMENT_PRIORITY');
1874: END IF;
1867: -- Allow these values to be defaulted when creating a Shipment
1868: x_header_rec.shipping_method_code := FND_API.G_MISS_CHAR;
1869: x_header_rec.freight_terms_code := FND_API.G_MISS_CHAR;
1870: x_header_rec.freight_carrier_code := FND_API.G_MISS_CHAR;
1871: x_header_rec.fob_point_code := FND_API.G_MISS_CHAR;
1872: -- Get this from the profile
1873: x_header_rec.shipment_priority_code := FND_PROFILE.VALUE('AHL_OSP_OE_SHIPMENT_PRIORITY');
1874: END IF;
1875:
1875:
1876: /*
1877: -- JR: Coded on 8/19/2003 as fix for Bug 3095543
1878: -- Payment Term is mandatory
1879: IF ((p_module_type = 'JSP') AND (p_header_rec.payment_term = FND_API.G_MISS_CHAR)) THEN
1880: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1881: Fnd_Message.set_name('AHL', 'AHL_OSP_PAYMENT_TERM_NULL');
1882: Fnd_Msg_Pub.ADD;
1883: END IF;
1880: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1881: Fnd_Message.set_name('AHL', 'AHL_OSP_PAYMENT_TERM_NULL');
1882: Fnd_Msg_Pub.ADD;
1883: END IF;
1884: RAISE Fnd_Api.g_exc_error;
1885: END IF;
1886: IF (p_module_type = 'JSP') THEN
1887: x_header_rec.payment_term_id := FND_API.G_MISS_NUM;
1888: x_header_val_rec.payment_term := p_header_rec.payment_term;
1883: END IF;
1884: RAISE Fnd_Api.g_exc_error;
1885: END IF;
1886: IF (p_module_type = 'JSP') THEN
1887: x_header_rec.payment_term_id := FND_API.G_MISS_NUM;
1888: x_header_val_rec.payment_term := p_header_rec.payment_term;
1889: ELSE
1890: x_header_rec.payment_term_id := p_header_rec.payment_term_id;
1891: END IF;
1900: IF (p_header_rec.tax_exempt_number IS NOT NULL) THEN
1901: x_header_rec.tax_exempt_number := p_header_rec.tax_exempt_number;
1902: END IF;
1903: IF (p_module_type = 'JSP') THEN
1904: x_header_rec.tax_exempt_reason_code := FND_API.G_MISS_CHAR;
1905: x_header_val_rec.tax_exempt_reason := p_header_rec.tax_exempt_reason;
1906: ELSE
1907: x_header_rec.tax_exempt_reason_code := p_header_rec.tax_exempt_reason_code;
1908: END IF;
2539: END IF;
2540: FOR i IN p_x_line_tbl.FIRST..p_x_line_tbl.LAST LOOP
2541: -- Get the OSP Order Type if not known
2542: IF(p_x_line_tbl(i).osp_order_id IS NOT NULL AND
2543: p_x_line_tbl(i).osp_order_id <> FND_API.G_MISS_NUM AND
2544: l_curr_osp_type IS NULL) THEN
2545: OPEN get_osp_order_type_csr(p_x_line_tbl(i).osp_order_id);
2546: FETCH get_osp_order_type_csr into l_curr_osp_type;
2547: CLOSE get_osp_order_type_csr;
2547: CLOSE get_osp_order_type_csr;
2548: END IF;
2549:
2550: -- Set the Order Type field in the Line Record
2551: IF (p_x_line_tbl(i).order_type IS NULL OR p_x_line_tbl(i).order_type = FND_API.G_MISS_CHAR) THEN
2552: p_x_line_tbl(i).order_type := l_curr_osp_type;
2553: END IF;
2554:
2555: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2558: ', p_x_line_tbl(i).osp_line_id = ' || p_x_line_tbl(i).osp_line_id ||
2559: ', p_x_line_tbl(i).osp_line_flag = ' || p_x_line_tbl(i).osp_line_flag ||
2560: ', p_x_line_tbl(i).line_id = ' || p_x_line_tbl(i).line_id);
2561: END IF;
2562: 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
2563: p_x_line_tbl(i).osp_line_id IS NOT NULL AND p_x_line_tbl(i).osp_line_flag = 'Y') THEN
2564: -- Shipment Line is for a OSP Line
2565: IF p_x_line_tbl(i).line_id IS NULL THEN
2566: -- Ship Line Id is not known: Get the OSP Line Details from the OSP Line Id
2570: IF osp_line_details_csr%NOTFOUND THEN
2571: Fnd_Message.set_name('AHL', 'AHL_OSP_PRIMARY_KEY_NULL');
2572: Fnd_Msg_Pub.ADD;
2573: CLOSE osp_line_details_csr;
2574: RAISE Fnd_Api.g_exc_error;
2575: END IF;
2576: CLOSE osp_line_details_csr;
2577: ELSE
2578: /*
2596: END IF;
2597: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_NO_DATA_FOUND');
2598: FND_MSG_PUB.ADD;
2599: CLOSE get_so_line_details;
2600: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2601: END IF;
2602: CLOSE get_so_line_details;
2603:
2604: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2610:
2611: IF(nvl(l_get_so_line_details.open_flag,'Y') = 'N') THEN
2612: FND_MESSAGE.SET_NAME('AHL', 'AHL_OSP_OM_LINE_CLOSED');
2613: FND_MSG_PUB.ADD;
2614: RAISE FND_API.G_EXC_ERROR;
2615: END IF;
2616: --mpothuku End
2617: -- Get the OSP Line Details from the Ship Line Id
2618: OPEN osp_line_details_csr3(p_x_line_tbl(i).osp_order_id,
2621: IF osp_line_details_csr3%NOTFOUND THEN
2622: Fnd_Message.set_name('AHL', 'AHL_OSP_PRIMARY_KEY_NULL');
2623: Fnd_Msg_Pub.ADD;
2624: CLOSE osp_line_details_csr3;
2625: RAISE Fnd_Api.g_exc_error;
2626: END IF;
2627: CLOSE osp_line_details_csr3;
2628: END IF;
2629:
2664: FND_MSG_PUB.ADD;
2665: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2666: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
2667: END IF;
2668: RAISE Fnd_Api.g_exc_error;
2669: END IF;
2670:
2671: l_service_duration := FND_PROFILE.VALUE('AHL_VENDOR_SERVICE_DURATION');
2672:
2735: (p_x_line_tbl(i).order_type = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE)) THEN
2736:
2737: -- yazhou 26-Apr-2006 ends
2738: /*
2739: IF (l_wo_rec.exchange_instance_id IS NULL OR l_wo_rec.exchange_instance_id = FND_API.G_MISS_NUM) THEN
2740: */
2741: --mpothuku updated on 06-Mar-06 to remove the ref to l_wo_rec as its not being used
2742:
2743:
2742:
2743:
2744: /* Commented out since exchange instance can be null
2745: IF (p_x_line_tbl(i).operation <> 'D') THEN
2746: 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
2747: -- Need to set exchange instance before creating return shipment line for exchange orders
2748: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2749: Fnd_Message.set_name('AHL', 'AHL_OSP_EXC_INST_ID_NULL');
2750: Fnd_Msg_Pub.ADD;
2748: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2749: Fnd_Message.set_name('AHL', 'AHL_OSP_EXC_INST_ID_NULL');
2750: Fnd_Msg_Pub.ADD;
2751: END IF;
2752: RAISE Fnd_Api.g_exc_error;
2753: END IF;
2754: END IF;
2755: */
2756:
2754: END IF;
2755: */
2756:
2757: IF (l_osp_line_det_type.exchange_instance_id IS NOT NULL AND
2758: l_osp_line_det_type.exchange_instance_id <> FND_API.G_MISS_NUM) THEN
2759:
2760: p_x_line_tbl(i).csi_item_instance_id:= l_osp_line_det_type.exchange_instance_id;
2761: -- Get Details about the Exchange Instance
2762: OPEN ahl_exc_inst_details(p_x_line_tbl(i).csi_item_instance_id);
2788: p_x_line_tbl(i).order_quantity_uom <> l_old_uom OR
2789: NVL(p_x_line_tbl(i).lot_number, 'X') <> NVL(l_old_lot_number, 'X')) THEN
2790: Fnd_Message.set_name('AHL', 'AHL_OSP_ITEM_ATTR_NO_CHANGE');
2791: Fnd_Msg_Pub.ADD;
2792: RAISE Fnd_Api.g_exc_error;
2793: END IF;
2794: --Bug fix 4580226 ends
2795:
2796: ELSE -- Exchange instance is null
2890: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2891: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_COMPONENT');
2892: Fnd_Msg_Pub.ADD;
2893: END IF;
2894: RAISE Fnd_Api.g_exc_error;
2895: END IF;
2896: CLOSE ahl_csi_unit_test_csr;
2897: END IF;
2898:
2910: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2911: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processing a Ship-Only Line');
2912: END IF;
2913: -- Default the Ship Date if not already Set
2914: 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
2915:
2916: -- yazhou 31-Jul-2006 starts
2917: -- bug fix#5442904
2918: IF p_x_line_tbl(i).order_type = 'BORROW' THEN
2941: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2942: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_LINE_DEFINED');
2943: Fnd_Msg_Pub.ADD;
2944: END IF;
2945: RAISE Fnd_Api.g_exc_error;
2946: END IF;
2947: CLOSE ahl_oe_ship_id_csr;
2948: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2949: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'No Duplicate Shipment Lines Found.');
2964: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2965: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_BORROW_ORDER');
2966: Fnd_Msg_Pub.ADD;
2967: END IF;
2968: RAISE Fnd_Api.g_exc_error;
2969: END IF;
2970: */
2971: -- Check that the schedule ship dates are correct.
2972: IF (l_return_date IS NOT NULL) THEN
2977: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2978: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
2979: Fnd_Msg_Pub.ADD;
2980: END IF;
2981: RAISE Fnd_Api.g_exc_error;
2982: END IF;
2983: -- For exchange orders, the ship date can be after the return date (Advance Exchange)
2984: ELSIF (p_x_line_tbl(i).order_type <> AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE) THEN
2985: --For others, ship date must be before return date
2988: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2989: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
2990: Fnd_Msg_Pub.ADD;
2991: END IF;
2992: RAISE Fnd_Api.g_exc_error;
2993: END IF; -- Return Date < Ship Date
2994: END IF; -- Borrow or Exchange or Other
2995: END IF; -- Return Date is not null
2996: CLOSE ahl_oe_schedule_date_csr;
2998: -- Return Line
2999: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3000: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processing a Return Line');
3001: END IF;
3002: 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
3003:
3004: -- yazhou 31-Jul-2006 starts
3005: -- bug fix#5442904
3006: IF p_x_line_tbl(i).order_type = 'BORROW' THEN
3032: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3033: Fnd_Message.set_name('AHL', 'AHL_OSP_RETURN_LINE_DEFINED');
3034: Fnd_Msg_Pub.ADD;
3035: END IF;
3036: RAISE Fnd_Api.g_exc_error;
3037: END IF;
3038: CLOSE ahl_oe_return_id_csr;
3039:
3040: OPEN ahl_oe_schedule_date_csr(p_x_line_tbl(i).osp_order_id,
3053: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3054: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3055: Fnd_Msg_Pub.ADD;
3056: END IF;
3057: RAISE Fnd_Api.g_exc_error;
3058: END IF;
3059: -- For exchange orders, the ship date can be after the return date (Advance Exchange)
3060: ELSIF (p_x_line_tbl(i).order_type <> AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE) THEN
3061: --For others, return date must be after the ship date
3064: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3065: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3066: Fnd_Msg_Pub.ADD;
3067: END IF;
3068: RAISE Fnd_Api.g_exc_error;
3069: END IF; -- Ship Date > Return Date
3070: END IF; -- Borrow or Exchange or Other
3071: END IF; -- Ship Date is not null
3072: CLOSE ahl_oe_schedule_date_csr;
3130:
3131: -- yazhou 26-Apr-2006 ends
3132:
3133: /*
3134: IF (l_wo_rec.exchange_instance_id IS NULL OR l_wo_rec.exchange_instance_id = FND_API.G_MISS_NUM) THEN
3135: */
3136: --mpothuku updated on 06-Mar-06 to remove the ref to l_wo_rec as its not being used
3137:
3138:
3137:
3138:
3139: /* Commented out since exchange instance can be null
3140: IF (p_x_line_tbl(i).operation <> 'D') THEN
3141: 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
3142: -- Need to set exchange instance before creating return shipment line for exchange orders
3143: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3144: Fnd_Message.set_name('AHL', 'AHL_OSP_EXC_INST_ID_NULL');
3145: Fnd_Msg_Pub.ADD;
3143: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3144: Fnd_Message.set_name('AHL', 'AHL_OSP_EXC_INST_ID_NULL');
3145: Fnd_Msg_Pub.ADD;
3146: END IF;
3147: RAISE Fnd_Api.g_exc_error;
3148: END IF;
3149: END IF;
3150: */
3151:
3149: END IF;
3150: */
3151:
3152: IF (l_osp_line_det_type.exchange_instance_id IS NOT NULL AND
3153: l_osp_line_det_type.exchange_instance_id <> FND_API.G_MISS_NUM) THEN
3154:
3155: p_x_line_tbl(i).csi_item_instance_id:= l_osp_line_det_type.exchange_instance_id;
3156: -- Get Details about the Exchange Instance
3157: OPEN ahl_exc_inst_details(p_x_line_tbl(i).csi_item_instance_id);
3183: p_x_line_tbl(i).order_quantity_uom <> l_old_uom OR
3184: NVL(p_x_line_tbl(i).lot_number, 'X') <> NVL(l_old_lot_number, 'X')) THEN
3185: Fnd_Message.set_name('AHL', 'AHL_OSP_ITEM_ATTR_NO_CHANGE');
3186: Fnd_Msg_Pub.ADD;
3187: RAISE Fnd_Api.g_exc_error;
3188: END IF;
3189: --Bug fix 4580226 ends
3190:
3191: ELSE -- Exchange instance is null
3285: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3286: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_COMPONENT');
3287: Fnd_Msg_Pub.ADD;
3288: END IF;
3289: RAISE Fnd_Api.g_exc_error;
3290: END IF;
3291: CLOSE ahl_csi_unit_test_csr;
3292: END IF;
3293:
3305: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3306: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processing a Ship-Only Line');
3307: END IF;
3308: -- Default the Ship Date if not already Set
3309: 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
3310:
3311: -- yazhou 31-Jul-2006 starts
3312: -- bug fix#5442904
3313: IF p_x_line_tbl(i).order_type = 'BORROW' THEN
3343: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3344: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_LINE_DEFINED');
3345: Fnd_Msg_Pub.ADD;
3346: END IF;
3347: RAISE Fnd_Api.g_exc_error;
3348: END IF;
3349: CLOSE ahl_oe_ship_id_csr;
3350:
3351: --yazhou 06-Jun-2006 ends
3374: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3375: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_BORROW_ORDER');
3376: Fnd_Msg_Pub.ADD;
3377: END IF;
3378: RAISE Fnd_Api.g_exc_error;
3379: END IF;
3380: */
3381: --Check that the schedule ship dates are correct.
3382: IF (l_return_date IS NOT NULL) THEN
3387: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3388: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3389: Fnd_Msg_Pub.ADD;
3390: END IF;
3391: RAISE Fnd_Api.g_exc_error;
3392: END IF;
3393: -- For exchange orders, the ship date can be after the return date (Advance Exchange)
3394: ELSIF (p_x_line_tbl(i).order_type <> AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE) THEN
3395: --For others, ship date must be before return date
3398: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3399: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3400: Fnd_Msg_Pub.ADD;
3401: END IF;
3402: RAISE Fnd_Api.g_exc_error;
3403: END IF; -- Return Date < Ship Date
3404: END IF; -- Borrow or Exchange or Other
3405: END IF; -- Return Date is not null
3406: CLOSE ahl_oe_Inv_schedule_date_csr;
3407: ELSIF (p_x_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID')) THEN
3408: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3409: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Processing a Return Line');
3410: END IF;
3411: 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
3412:
3413: -- yazhou 31-Jul-2006 starts
3414: -- bug fix#5442904
3415: IF p_x_line_tbl(i).order_type = 'BORROW' THEN
3452: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3453: Fnd_Message.set_name('AHL', 'AHL_OSP_RETURN_LINE_DEFINED');
3454: Fnd_Msg_Pub.ADD;
3455: END IF;
3456: RAISE Fnd_Api.g_exc_error;
3457: END IF;
3458: CLOSE ahl_oe_return_id_csr;
3459:
3460: --yazhou 06-Jun-2006 ends
3480: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3481: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3482: Fnd_Msg_Pub.ADD;
3483: END IF;
3484: RAISE Fnd_Api.g_exc_error;
3485: END IF;
3486: -- For exchange orders, the ship date can be after the return date (Advance Exchange)
3487: ELSIF (p_x_line_tbl(i).order_type <> AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE) THEN
3488: --For others, return date must be after the ship date
3491: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3492: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3493: Fnd_Msg_Pub.ADD;
3494: END IF;
3495: RAISE Fnd_Api.g_exc_error;
3496: END IF; -- Ship Date > Return Date
3497: END IF; -- Borrow or Exchange or Other
3498: END IF; -- Ship Date is not null
3499: CLOSE ahl_oe_Inv_schedule_date_csr;
3510:
3511: IF p_x_line_tbl(i).schedule_ship_date < TRUNC(sysdate) THEN
3512: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_DATE_LT_SYS');
3513: Fnd_Msg_Pub.ADD;
3514: RAISE Fnd_Api.g_exc_error;
3515: END IF;
3516:
3517: IF (p_x_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID')) THEN
3518: p_x_line_tbl(i).line_type := 'SHIP';
3556: IF validate_item%NOTFOUND THEN
3557: Fnd_Message.set_name('AHL', 'AHL_OSP_INVALID_INV_ITEM');
3558: Fnd_Msg_Pub.ADD;
3559: CLOSE validate_item;
3560: RAISE Fnd_Api.g_exc_error;
3561: END IF;
3562: CLOSE validate_item;
3563: END IF; -- IF p_x_line_tbl(i).line_id IS NULL
3564: END IF; -- OSP Line Flag is Y or Not Y
3623: -- @@@@@ jaramana June 4, 2004: May become a translation issue
3624: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: OM Line Return Reason');
3625: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_OE_LINE_RET_REASON_CODE'));
3626: FND_MSG_PUB.ADD;
3627: RAISE Fnd_Api.g_exc_error;
3628: END IF;
3629: p_x_line_tbl(l_index).return_reason := NULL;
3630:
3631: -- yazhou 31-Jul-2006 starts
3652: FND_MSG_PUB.ADD;
3653: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3654: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
3655: END IF;
3656: RAISE Fnd_Api.g_exc_error;
3657: END IF;
3658:
3659: l_service_duration := FND_PROFILE.VALUE('AHL_VENDOR_SERVICE_DURATION');
3660:
3708: IF(ahl_osp_work_csr%NOTFOUND) THEN
3709: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_OSP_LN_INV_WO');
3710: FND_MESSAGE.Set_Token('WORKORDER_ID', I.WORKORDER_ID);
3711: CLOSE ahl_osp_work_csr;
3712: RAISE Fnd_Api.g_exc_error;
3713: END IF;
3714: CLOSE ahl_osp_work_csr;
3715: p_x_line_tbl(l_index).inventory_item_id := l_work_det.inventory_item_id;
3716: p_x_line_tbl(l_index).serial_number := l_work_det.serial_number;
3737: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3738: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_COMPONENT');
3739: Fnd_Msg_Pub.ADD;
3740: END IF;
3741: RAISE Fnd_Api.g_exc_error;
3742: END IF;
3743: CLOSE ahl_csi_unit_test_csr;
3744: END IF;
3745: --mpothuku on 04-May-06 Ends
4027: FND_MESSAGE.set_name('AHL', 'AHL_OSP_SHIP_FROM_ORG_INV');
4028: FND_MESSAGE.SET_TOKEN('SHIP_FROM_ORG', p_line_tbl(i).ship_from_org);
4029: FND_MSG_PUB.ADD;
4030: END IF;
4031: RAISE Fnd_Api.g_exc_error;
4032: END IF;
4033: CLOSE ahl_ship_from_orgs_csr;
4034: END IF;
4035: ELSE
4045: END IF;
4046:
4047: IF (p_module_type = 'JSP') THEN
4048: -- Set all Ids to G_MISS Values
4049: l_line_rec.fob_point_code := FND_API.G_MISS_CHAR ;
4050: l_line_rec.freight_carrier_code:= FND_API.G_MISS_CHAR ;
4051: l_line_rec.freight_terms_code := FND_API.G_MISS_CHAR ;
4052: l_line_rec.shipment_priority_code := FND_API.G_MISS_CHAR;
4053: l_line_rec.shipping_method_code := FND_API.G_MISS_CHAR ;
4046:
4047: IF (p_module_type = 'JSP') THEN
4048: -- Set all Ids to G_MISS Values
4049: l_line_rec.fob_point_code := FND_API.G_MISS_CHAR ;
4050: l_line_rec.freight_carrier_code:= FND_API.G_MISS_CHAR ;
4051: l_line_rec.freight_terms_code := FND_API.G_MISS_CHAR ;
4052: l_line_rec.shipment_priority_code := FND_API.G_MISS_CHAR;
4053: l_line_rec.shipping_method_code := FND_API.G_MISS_CHAR ;
4054: ELSE
4047: IF (p_module_type = 'JSP') THEN
4048: -- Set all Ids to G_MISS Values
4049: l_line_rec.fob_point_code := FND_API.G_MISS_CHAR ;
4050: l_line_rec.freight_carrier_code:= FND_API.G_MISS_CHAR ;
4051: l_line_rec.freight_terms_code := FND_API.G_MISS_CHAR ;
4052: l_line_rec.shipment_priority_code := FND_API.G_MISS_CHAR;
4053: l_line_rec.shipping_method_code := FND_API.G_MISS_CHAR ;
4054: ELSE
4055: l_line_rec.fob_point_code := p_line_tbl(i).fob_point_code;
4048: -- Set all Ids to G_MISS Values
4049: l_line_rec.fob_point_code := FND_API.G_MISS_CHAR ;
4050: l_line_rec.freight_carrier_code:= FND_API.G_MISS_CHAR ;
4051: l_line_rec.freight_terms_code := FND_API.G_MISS_CHAR ;
4052: l_line_rec.shipment_priority_code := FND_API.G_MISS_CHAR;
4053: l_line_rec.shipping_method_code := FND_API.G_MISS_CHAR ;
4054: ELSE
4055: l_line_rec.fob_point_code := p_line_tbl(i).fob_point_code;
4056: l_line_rec.freight_carrier_code := p_line_tbl(i).freight_carrier_code;
4049: l_line_rec.fob_point_code := FND_API.G_MISS_CHAR ;
4050: l_line_rec.freight_carrier_code:= FND_API.G_MISS_CHAR ;
4051: l_line_rec.freight_terms_code := FND_API.G_MISS_CHAR ;
4052: l_line_rec.shipment_priority_code := FND_API.G_MISS_CHAR;
4053: l_line_rec.shipping_method_code := FND_API.G_MISS_CHAR ;
4054: ELSE
4055: l_line_rec.fob_point_code := p_line_tbl(i).fob_point_code;
4056: l_line_rec.freight_carrier_code := p_line_tbl(i).freight_carrier_code;
4057: l_line_rec.freight_terms_code := p_line_tbl(i).freight_terms_code;
4098:
4099: -- NEED TO FIX: 'Return'
4100: IF (p_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID') AND
4101: p_line_tbl(i).serial_number IS NOT NULL AND
4102: p_line_tbl(i).serial_number <> FND_API.G_MISS_CHAR) THEN
4103: IF (p_line_tbl(i).operation = 'C') THEN
4104: l_lot_serial_rec := OE_ORDER_PUB.G_MISS_LOT_SERIAL_REC;
4105: l_lot_serial_rec.from_serial_number := p_line_tbl(i).serial_number;
4106: l_lot_serial_rec.lot_number := p_line_tbl(i).lot_number;
4249: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
4250: Fnd_Message.set_name('AHL', 'AHL_OSP_OSP_ID_NULL');
4251: Fnd_Msg_Pub.ADD;
4252: END IF;
4253: RAISE Fnd_Api.g_exc_error;
4254: END IF;
4255: CLOSE ahl_osp_order_csr;
4256:
4257: AHL_OSP_ORDERS_PKG.UPDATE_ROW(
4377: FOR l_osp_line_rec IN ahl_osp_lines_csr(p_osp_order_id, p_osp_line_id)
4378: LOOP
4379: l_row_check := 'Y';
4380: IF ( p_oe_ship_line_id IS NOT NULL
4381: AND p_oe_ship_line_id <> FND_API.G_MISS_NUM) THEN
4382: l_oe_ship_line_id := p_oe_ship_line_id;
4383: ELSE
4384: l_oe_ship_line_id := l_osp_line_rec.oe_ship_line_id;
4385: END IF;
4384: l_oe_ship_line_id := l_osp_line_rec.oe_ship_line_id;
4385: END IF;
4386:
4387: IF (p_oe_return_line_id IS NOT NULL
4388: AND p_oe_return_line_id <> FND_API.G_MISS_NUM) THEN
4389: l_oe_return_line_id := p_oe_return_line_id;
4390: ELSE
4391: l_oe_return_line_id := l_osp_line_rec.oe_return_line_id;
4392: END IF;
4443:
4444: IF l_row_check = 'N' THEN
4445: Fnd_Message.set_name('AHL', 'AHL_OSP_INVALID_LINE_ITEM');
4446: Fnd_Msg_Pub.ADD;
4447: RAISE Fnd_Api.g_exc_error;
4448: END IF;
4449:
4450: END Update_OSP_Order_Lines;
4451:
4589: FOR l_osp_line_rec IN ahl_osp_lines_csr(p_osp_order_id, p_item_instance_id)
4590: LOOP
4591: l_row_check := 'Y';
4592: IF ( p_oe_ship_line_id IS NOT NULL
4593: AND p_oe_ship_line_id <> FND_API.G_MISS_NUM) THEN
4594: l_oe_ship_line_id := p_oe_ship_line_id;
4595: ELSE
4596: l_oe_ship_line_id := l_osp_line_rec.oe_ship_line_id;
4597: END IF;
4596: l_oe_ship_line_id := l_osp_line_rec.oe_ship_line_id;
4597: END IF;
4598:
4599: IF (p_oe_return_line_id IS NOT NULL
4600: AND p_oe_return_line_id <> FND_API.G_MISS_NUM) THEN
4601: l_oe_return_line_id := p_oe_return_line_id;
4602: ELSE
4603: l_oe_return_line_id := l_osp_line_rec.oe_return_line_id;
4604: END IF;
4655:
4656: IF l_row_check = 'N' THEN
4657: Fnd_Message.set_name('AHL', 'AHL_OSP_INVALID_LINE_ITEM');
4658: Fnd_Msg_Pub.ADD;
4659: RAISE Fnd_Api.g_exc_error;
4660: END IF;
4661:
4662: END Update_OSP_Order_Lines;
4663:
4753: IF (val_exg_instance_id_csr %NOTFOUND) THEN
4754: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_SHIP_COMPONENT');
4755: FND_MSG_PUB.ADD;
4756: CLOSE val_exg_instance_id_csr;
4757: RAISE Fnd_Api.g_exc_error;
4758: END IF;
4759: CLOSE val_exg_instance_id_csr;
4760:
4761: FOR l_osp_line_rec IN ahl_osp_lines_csr(p_osp_order_id, p_osp_line_id)
4814:
4815: IF l_row_check = 'N' THEN
4816: Fnd_Message.set_name('AHL', 'AHL_OSP_INVALID_LINE_ITEM');
4817: Fnd_Msg_Pub.ADD;
4818: RAISE Fnd_Api.g_exc_error;
4819: END IF;
4820:
4821: END Update_OSP_Line_Exch_Instance;
4822:
4908: END Delete_OE_Lines;
4909:
4910: -- Create IB sub-txn for OSP order.
4911: PROCEDURE Create_IB_Transaction(
4912: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4913: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4914: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4915: x_return_status OUT NOCOPY VARCHAR2,
4916: x_msg_count OUT NOCOPY NUMBER,
4909:
4910: -- Create IB sub-txn for OSP order.
4911: PROCEDURE Create_IB_Transaction(
4912: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4913: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4914: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4915: x_return_status OUT NOCOPY VARCHAR2,
4916: x_msg_count OUT NOCOPY NUMBER,
4917: x_msg_data OUT NOCOPY VARCHAR2,
4910: -- Create IB sub-txn for OSP order.
4911: PROCEDURE Create_IB_Transaction(
4912: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4913: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4914: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4915: x_return_status OUT NOCOPY VARCHAR2,
4916: x_msg_count OUT NOCOPY NUMBER,
4917: x_msg_data OUT NOCOPY VARCHAR2,
4918: p_OSP_order_type IN VARCHAR2,
5001:
5002: BEGIN
5003:
5004: -- Initialize return status.
5005: x_return_status := FND_API.G_RET_STS_SUCCESS;
5006:
5007: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5008: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
5009: END IF;
5032: CLOSE csi_txn_types_csr;
5033: FND_MESSAGE.Set_Name('AHL','AHL_OSP_IB_TXN_NOTFOUND');
5034: FND_MESSAGE.Set_Token('TYPE',G_OM_ORDER);
5035: FND_MSG_PUB.ADD;
5036: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5037: RETURN;
5038: END IF;
5039: CLOSE csi_txn_types_csr;
5040:
5047: --FND_MESSAGE.Set_Token('TYPE','Exchange Order Ship');
5048: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
5049: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_IB_SUBTXN_EXC_SHIP'));
5050: FND_MSG_PUB.ADD;
5051: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5052: RETURN;
5053: END IF;
5054: OPEN get_sold_to_org(p_oe_line_id);
5055: FETCH get_sold_to_org INTO l_new_party_id, l_new_party_account_id;
5059: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(p_csi_instance_id));
5060: Fnd_Msg_Pub.ADD;
5061: END IF;
5062: CLOSE get_sold_to_org;
5063: RAISE Fnd_Api.g_exc_error;
5064: END IF;
5065: CLOSE get_sold_to_org;
5066: -- Populate Party Details
5067: l_party_dtl_rec.PARTY_SOURCE_TABLE := 'HZ_PARTIES';
5082: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(p_csi_instance_id));
5083: Fnd_Msg_Pub.ADD;
5084: END IF;
5085: CLOSE get_owner_ip_id;
5086: RAISE Fnd_Api.g_exc_error;
5087: END IF;
5088: CLOSE get_owner_ip_id;
5089: l_party_dtl_rec.INSTANCE_PARTY_ID := l_curr_inst_pty_id;
5090:
5111: --FND_MESSAGE.Set_Token('TYPE','Service Order Ship');
5112: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
5113: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_IB_SUBTXN_SER_SHIP'));
5114: FND_MSG_PUB.ADD;
5115: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5116: RETURN;
5117: END IF;
5118: ELSIF p_OSP_order_type = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_BORROW THEN
5119: --l_subtxn_name := G_SUBTXN_ORDER;
5123: --FND_MESSAGE.Set_Token('TYPE','Borrow Order Ship');
5124: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
5125: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_IB_SUBTXN_BOR_SHIP'));
5126: FND_MSG_PUB.ADD;
5127: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5128: RETURN;
5129: END IF;
5130: END IF;
5131:
5136: CLOSE csi_txn_sub_types_csr;
5137: FND_MESSAGE.Set_Name('AHL','AHL_OSP_IB_SUBTXN_NOTFOUND');
5138: FND_MESSAGE.Set_Token('TYPE',l_subtxn_name);
5139: FND_MSG_PUB.ADD;
5140: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5141: RETURN;
5142: END IF;
5143: CLOSE csi_txn_sub_types_csr;
5144: */
5151: CLOSE csi_txn_types_csr;
5152: FND_MESSAGE.Set_Name('AHL','AHL_OSP_IB_TXN_NOTFOUND');
5153: FND_MESSAGE.Set_Token('TYPE',G_OM_RETURN);
5154: FND_MSG_PUB.ADD;
5155: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5156: RETURN;
5157: END IF;
5158: CLOSE csi_txn_types_csr;
5159:
5166: --FND_MESSAGE.Set_Token('TYPE','Exchange Order Return');
5167: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
5168: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_IB_SUBTXN_EXC_RETURN'));
5169: FND_MSG_PUB.ADD;
5170: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5171: RETURN;
5172: END IF;
5173: -- Get internal Party Id
5174: OPEN get_internal_party_csr;
5178: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_INT_PARTY');
5179: Fnd_Msg_Pub.ADD;
5180: END IF;
5181: CLOSE get_internal_party_csr;
5182: RAISE Fnd_Api.g_exc_error;
5183: END IF;
5184: CLOSE get_internal_party_csr;
5185: l_party_dtl_rec.PARTY_SOURCE_TABLE := 'HZ_PARTIES';
5186: l_party_dtl_rec.PARTY_SOURCE_ID := l_internal_party_id;
5199: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(p_csi_instance_id));
5200: Fnd_Msg_Pub.ADD;
5201: END IF;
5202: CLOSE get_owner_ip_id;
5203: RAISE Fnd_Api.g_exc_error;
5204: END IF;
5205: CLOSE get_owner_ip_id;
5206: END IF;
5207: ---mpothuku End
5223: --FND_MESSAGE.Set_Token('TYPE','Service Order Return');
5224: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
5225: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_IB_SUBTXN_SER_RETURN'));
5226: FND_MSG_PUB.ADD;
5227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5228: RETURN;
5229: END IF;
5230: ELSIF p_OSP_order_type = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_BORROW THEN
5231: l_subtxn_id := FND_PROFILE.VALUE('AHL_OSP_IB_SUBTXN_BOR_RETURN');
5234: --FND_MESSAGE.Set_Token('TYPE','Borrow Order Return');
5235: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
5236: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_IB_SUBTXN_BOR_RETURN'));
5237: FND_MSG_PUB.ADD;
5238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5239: RETURN;
5240: END IF;
5241: --l_subtxn_name := G_SUBTXN_RETURN; for ER 4746426
5242: END IF;
5247: CLOSE csi_txn_sub_types_csr;
5248: FND_MESSAGE.Set_Name('AHL','AHL_OSP_IB_SUBTXN_NOTFOUND');
5249: FND_MESSAGE.Set_Token('TYPE',l_subtxn_name);
5250: FND_MSG_PUB.ADD;
5251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5252: RETURN;
5253: END IF;
5254: CLOSE csi_txn_sub_types_csr;
5255: */
5254: CLOSE csi_txn_sub_types_csr;
5255: */
5256: END IF;
5257:
5258: l_txn_line_rec.TRANSACTION_LINE_ID := fnd_api.g_miss_num;
5259: l_txn_line_rec.SOURCE_TRANSACTION_TYPE_ID := l_om_order_id;
5260: l_txn_line_rec.SOURCE_TRANSACTION_ID := p_oe_line_id;
5261: l_txn_line_rec.SOURCE_TRANSACTION_TABLE := G_TRANSACTION_TABLE;
5262:
5352: csi_t_txn_details_grp.create_transaction_dtls(
5353: p_api_version => 1.0,
5354: p_commit => p_commit,
5355: -- Changed by jaramana on January 14, 2008 for the Requisition ER 6034236
5356: p_init_msg_list => FND_API.G_FALSE, --p_init_msg_list,
5357: px_txn_line_rec => l_txn_line_rec,
5358: px_txn_line_detail_tbl => l_txn_line_dtl_tbl,
5359: px_txn_party_detail_tbl => l_txn_party_tbl,
5360: px_txn_pty_acct_detail_tbl => l_txn_pty_acct_tbl,
5378:
5379:
5380: -- Delete IB sub-txn for the oe line.
5381: PROCEDURE Delete_IB_Transaction(
5382: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5383: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5384: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5385: x_return_status OUT NOCOPY VARCHAR2,
5386: x_msg_count OUT NOCOPY NUMBER,
5379:
5380: -- Delete IB sub-txn for the oe line.
5381: PROCEDURE Delete_IB_Transaction(
5382: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5383: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5384: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5385: x_return_status OUT NOCOPY VARCHAR2,
5386: x_msg_count OUT NOCOPY NUMBER,
5387: x_msg_data OUT NOCOPY VARCHAR2,
5380: -- Delete IB sub-txn for the oe line.
5381: PROCEDURE Delete_IB_Transaction(
5382: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5383: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5384: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5385: x_return_status OUT NOCOPY VARCHAR2,
5386: x_msg_count OUT NOCOPY NUMBER,
5387: x_msg_data OUT NOCOPY VARCHAR2,
5388: p_oe_line_id IN NUMBER)
5406: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
5407: END IF;
5408:
5409: -- Initialize return status.
5410: x_return_status := FND_API.G_RET_STS_SUCCESS;
5411:
5412: OPEN csi_txn_lines_csr (p_oe_line_id);
5413: FETCH csi_txn_lines_csr INTO l_transaction_line_id;
5414: CLOSE csi_txn_lines_csr;
5422: csi_t_txn_details_grp.delete_transaction_dtls
5423: ( p_api_version => 1.0,
5424: p_commit => p_commit,
5425: -- Changed by jaramana on January 14, 2008 for the Requisition ER 6034236
5426: p_init_msg_list => FND_API.G_FALSE,--p_init_msg_list,
5427: p_validation_level => p_validation_level,
5428: p_transaction_line_id => l_transaction_line_id,
5429: x_return_status => x_return_status,
5430: x_msg_count => x_msg_count,
5453: -- Parameters :
5454: --
5455: -- Standard IN Parameters :
5456: -- p_api_version IN NUMBER Default 1.0
5457: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
5458: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
5459: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
5460: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
5461: -- p_module_type IN VARCHAR2 Default NULL.
5454: --
5455: -- Standard IN Parameters :
5456: -- p_api_version IN NUMBER Default 1.0
5457: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
5458: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
5459: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
5460: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
5461: -- p_module_type IN VARCHAR2 Default NULL.
5462: -- Standard OUT Parameters :
5455: -- Standard IN Parameters :
5456: -- p_api_version IN NUMBER Default 1.0
5457: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
5458: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
5459: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
5460: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
5461: -- p_module_type IN VARCHAR2 Default NULL.
5462: -- Standard OUT Parameters :
5463: -- x_return_status OUT NOCOPY VARCHAR2 Required
5456: -- p_api_version IN NUMBER Default 1.0
5457: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
5458: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
5459: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
5460: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
5461: -- p_module_type IN VARCHAR2 Default NULL.
5462: -- Standard OUT Parameters :
5463: -- x_return_status OUT NOCOPY VARCHAR2 Required
5464: -- x_msg_count OUT NOCOPY NUMBER Required
5479: -- End of Comments.
5480:
5481: PROCEDURE Convert_SubTxn_Type (
5482: p_api_version IN NUMBER := 1.0,
5483: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5484: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5485: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5486: p_default IN VARCHAR2 := FND_API.G_TRUE,
5487: p_module_type IN VARCHAR2 := NULL,
5480:
5481: PROCEDURE Convert_SubTxn_Type (
5482: p_api_version IN NUMBER := 1.0,
5483: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5484: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5485: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5486: p_default IN VARCHAR2 := FND_API.G_TRUE,
5487: p_module_type IN VARCHAR2 := NULL,
5488: p_osp_order_id IN NUMBER,
5481: PROCEDURE Convert_SubTxn_Type (
5482: p_api_version IN NUMBER := 1.0,
5483: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5484: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5485: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5486: p_default IN VARCHAR2 := FND_API.G_TRUE,
5487: p_module_type IN VARCHAR2 := NULL,
5488: p_osp_order_id IN NUMBER,
5489: p_old_order_type_code IN VARCHAR2,
5482: p_api_version IN NUMBER := 1.0,
5483: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5484: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5485: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5486: p_default IN VARCHAR2 := FND_API.G_TRUE,
5487: p_module_type IN VARCHAR2 := NULL,
5488: p_osp_order_id IN NUMBER,
5489: p_old_order_type_code IN VARCHAR2,
5490: p_new_order_type_code IN VARCHAR2,
5524: -- Standard start of API savepoint
5525: SAVEPOINT Convert_SubTxn_Type_Pub;
5526:
5527: -- Initialize API return status to success
5528: x_return_status := FND_API.G_RET_STS_SUCCESS;
5529:
5530: -- Standard call to check for call compatibility
5531: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
5532: G_PKG_NAME) THEN
5527: -- Initialize API return status to success
5528: x_return_status := FND_API.G_RET_STS_SUCCESS;
5529:
5530: -- Standard call to check for call compatibility
5531: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
5532: G_PKG_NAME) THEN
5533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5534: END IF;
5535:
5529:
5530: -- Standard call to check for call compatibility
5531: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
5532: G_PKG_NAME) THEN
5533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5534: END IF;
5535:
5536: -- Initialize message list if p_init_msg_list is set to TRUE
5537: IF FND_API.To_Boolean(p_init_msg_list) THEN
5533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5534: END IF;
5535:
5536: -- Initialize message list if p_init_msg_list is set to TRUE
5537: IF FND_API.To_Boolean(p_init_msg_list) THEN
5538: FND_MSG_PUB.Initialize;
5539: END IF;
5540:
5541: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5550: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5551: Fnd_Message.set_name('AHL', 'AHL_OSP_HEADER_ID_INV');
5552: Fnd_Msg_Pub.ADD;
5553: END IF;
5554: RAISE Fnd_Api.g_exc_error;
5555: END IF;
5556: CLOSE validate_osp_id_csr;
5557:
5558: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5573: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5574: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
5575: END IF;
5576: END IF;
5577: RAISE Fnd_Api.g_exc_error;
5578: END IF;
5579:
5580: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5581: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Validated Order type codes.');
5598: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
5599: END IF;
5600: END IF;
5601: CLOSE get_return_line_ids_csr;
5602: RAISE Fnd_Api.g_exc_error;
5603: END IF;
5604: -- Return line not yet shipped: Prepare to delete it
5605: l_temp_count := l_temp_count + 1;
5606: l_oe_line_ids_tbl(l_temp_count) := l_oe_return_line_id;
5617: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_Cancel_Order.');
5618: END IF;
5619:
5620: Delete_Cancel_Order (p_api_version => 1.0,
5621: p_init_msg_list => FND_API.G_FALSE,
5622: p_commit => FND_API.G_FALSE,
5623: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5624: p_oe_header_id => NULL, -- Don't delete the shipment header!
5625: p_oe_lines_tbl => l_oe_line_ids_tbl, -- Delete only the return lines
5618: END IF;
5619:
5620: Delete_Cancel_Order (p_api_version => 1.0,
5621: p_init_msg_list => FND_API.G_FALSE,
5622: p_commit => FND_API.G_FALSE,
5623: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5624: p_oe_header_id => NULL, -- Don't delete the shipment header!
5625: p_oe_lines_tbl => l_oe_line_ids_tbl, -- Delete only the return lines
5626: p_cancel_flag => FND_API.G_FALSE,
5619:
5620: Delete_Cancel_Order (p_api_version => 1.0,
5621: p_init_msg_list => FND_API.G_FALSE,
5622: p_commit => FND_API.G_FALSE,
5623: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5624: p_oe_header_id => NULL, -- Don't delete the shipment header!
5625: p_oe_lines_tbl => l_oe_line_ids_tbl, -- Delete only the return lines
5626: p_cancel_flag => FND_API.G_FALSE,
5627: x_return_status => x_return_status,
5622: p_commit => FND_API.G_FALSE,
5623: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5624: p_oe_header_id => NULL, -- Don't delete the shipment header!
5625: p_oe_lines_tbl => l_oe_line_ids_tbl, -- Delete only the return lines
5626: p_cancel_flag => FND_API.G_FALSE,
5627: x_return_status => x_return_status,
5628: x_msg_count => x_msg_count,
5629: x_msg_data => x_msg_data);
5630: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5638: END IF;
5639:
5640: -- If the deletion has succeeded, proceed with converting the
5641: -- Ship only lines
5642: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5643: Convert_Ship_Only_Lines(p_osp_order_id => p_osp_order_id,
5644: p_old_order_type_code => p_old_order_type_code,
5645: p_new_order_type_code => p_new_order_type_code);
5646: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5648: END IF;
5649: END IF;
5650:
5651: -- Standard check of p_commit
5652: IF FND_API.To_Boolean(p_commit) THEN
5653: COMMIT WORK;
5654: END IF;
5655:
5656: -- Standard call to get message count and if count is 1, get message
5656: -- Standard call to get message count and if count is 1, get message
5657: FND_MSG_PUB.Count_And_Get
5658: ( p_count => x_msg_count,
5659: p_data => x_msg_data,
5660: p_encoded => fnd_api.g_false);
5661:
5662: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5663: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
5664: END IF;
5663: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
5664: END IF;
5665:
5666: EXCEPTION
5667: WHEN FND_API.G_EXC_ERROR THEN
5668: x_return_status := FND_API.G_RET_STS_ERROR;
5669: Rollback to Convert_SubTxn_Type_Pub;
5670: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5671: p_data => x_msg_data,
5664: END IF;
5665:
5666: EXCEPTION
5667: WHEN FND_API.G_EXC_ERROR THEN
5668: x_return_status := FND_API.G_RET_STS_ERROR;
5669: Rollback to Convert_SubTxn_Type_Pub;
5670: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5671: p_data => x_msg_data,
5672: p_encoded => fnd_api.g_false);
5668: x_return_status := FND_API.G_RET_STS_ERROR;
5669: Rollback to Convert_SubTxn_Type_Pub;
5670: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5671: p_data => x_msg_data,
5672: p_encoded => fnd_api.g_false);
5673:
5674: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5676: Rollback to Convert_SubTxn_Type_Pub;
5670: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5671: p_data => x_msg_data,
5672: p_encoded => fnd_api.g_false);
5673:
5674: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5676: Rollback to Convert_SubTxn_Type_Pub;
5677: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5678: p_data => x_msg_data,
5671: p_data => x_msg_data,
5672: p_encoded => fnd_api.g_false);
5673:
5674: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5676: Rollback to Convert_SubTxn_Type_Pub;
5677: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5678: p_data => x_msg_data,
5679: p_encoded => fnd_api.g_false);
5675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5676: Rollback to Convert_SubTxn_Type_Pub;
5677: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5678: p_data => x_msg_data,
5679: p_encoded => fnd_api.g_false);
5680: WHEN OTHERS THEN
5681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5682: Rollback to Convert_SubTxn_Type_Pub;
5683: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
5677: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5678: p_data => x_msg_data,
5679: p_encoded => fnd_api.g_false);
5680: WHEN OTHERS THEN
5681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5682: Rollback to Convert_SubTxn_Type_Pub;
5683: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
5684: p_procedure_name => 'Convert_SubTxn_Type',
5685: p_error_text => SQLERRM);
5685: p_error_text => SQLERRM);
5686:
5687: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5688: p_data => x_msg_data,
5689: p_encoded => fnd_api.g_false);
5690: END Convert_SubTxn_Type;
5691:
5692:
5693: -- Local helper method that deletes IB sub transactions for ship only lines
5790: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
5791: END IF;
5792: END IF;
5793: CLOSE get_internal_party_csr;
5794: RAISE Fnd_Api.g_exc_error;
5795: END IF;
5796: CLOSE get_internal_party_csr;
5797:
5798: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5830: END IF;
5831: END IF;
5832: CLOSE get_owner_ip_id;
5833: CLOSE get_ship_only_lines_csr;
5834: RAISE Fnd_Api.g_exc_error;
5835: END IF;
5836: CLOSE get_owner_ip_id;
5837: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5838: 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);
5860: END IF;
5861: END IF;
5862: CLOSE get_sold_to_org;
5863: CLOSE get_ship_only_lines_csr;
5864: RAISE Fnd_Api.g_exc_error;
5865: END IF;
5866: CLOSE get_sold_to_org;
5867: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5868: 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);
5875: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
5876: END IF;
5877: END IF;
5878: CLOSE get_ship_only_lines_csr;
5879: RAISE Fnd_Api.g_exc_error;
5880: END IF;
5881: -- Call CSI API CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE
5882: -- Populate the Party Rec
5883: l_party_rec.instance_id := l_item_instance_id;
5891: IF (l_new_party_id <> l_internal_party_id) THEN
5892: l_party_account_rec.instance_party_id := l_curr_inst_pty_id;
5893: l_party_account_rec.party_account_id := l_new_party_acc_id;
5894: l_party_account_rec.relationship_type_code := 'OWNER';
5895: l_party_account_rec.call_contracts := FND_API.G_FALSE;
5896: l_party_account_rec.parent_tbl_index := 1;
5897: l_party_account_tbl(1) := l_party_account_rec;
5898: END IF;
5899: -- Populate the Transaction Rec
5926: -- CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE, and keep the original existing parameter i
5927: --(no change) and just adding some new parameters with blank values.
5928: CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE(
5929: p_api_version => 1.0,
5930: p_commit => FND_API.G_FALSE,
5931: p_init_msg_list => FND_API.G_FALSE,
5932: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5933: p_instance_rec => l_instance_rec,
5934: p_ext_attrib_values_tbl => l_ext_attrib_values_tbl,
5927: --(no change) and just adding some new parameters with blank values.
5928: CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE(
5929: p_api_version => 1.0,
5930: p_commit => FND_API.G_FALSE,
5931: p_init_msg_list => FND_API.G_FALSE,
5932: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5933: p_instance_rec => l_instance_rec,
5934: p_ext_attrib_values_tbl => l_ext_attrib_values_tbl,
5935: p_party_tbl => l_party_tbl,
5928: CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE(
5929: p_api_version => 1.0,
5930: p_commit => FND_API.G_FALSE,
5931: p_init_msg_list => FND_API.G_FALSE,
5932: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5933: p_instance_rec => l_instance_rec,
5934: p_ext_attrib_values_tbl => l_ext_attrib_values_tbl,
5935: p_party_tbl => l_party_tbl,
5936: p_account_tbl => l_party_account_tbl,
5944: x_msg_data => l_msg_data);
5945: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5946: 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);
5947: END IF;
5948: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5949: CLOSE get_ship_only_lines_csr;
5950: RAISE Fnd_Api.g_exc_error;
5951: END IF;
5952: ELSE
5946: 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);
5947: END IF;
5948: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5949: CLOSE get_ship_only_lines_csr;
5950: RAISE Fnd_Api.g_exc_error;
5951: END IF;
5952: ELSE
5953: -- Not yet shipped: No need to change ownership
5954: -- Delete existing IB subtransaction (with old type)
5961: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5962: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Since l_shipped_quantity = 0, No need to change owner. Calling Delete_IB_Transaction.');
5963: END IF;
5964: Delete_IB_Transaction(
5965: p_init_msg_list => FND_API.G_FALSE,
5966: p_commit => FND_API.G_FALSE,
5967: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5968: x_return_status => l_return_status,
5969: x_msg_count => l_msg_count,
5962: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Since l_shipped_quantity = 0, No need to change owner. Calling Delete_IB_Transaction.');
5963: END IF;
5964: Delete_IB_Transaction(
5965: p_init_msg_list => FND_API.G_FALSE,
5966: p_commit => FND_API.G_FALSE,
5967: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5968: x_return_status => l_return_status,
5969: x_msg_count => l_msg_count,
5970: x_msg_data => l_msg_data,
5963: END IF;
5964: Delete_IB_Transaction(
5965: p_init_msg_list => FND_API.G_FALSE,
5966: p_commit => FND_API.G_FALSE,
5967: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5968: x_return_status => l_return_status,
5969: x_msg_count => l_msg_count,
5970: x_msg_data => l_msg_data,
5971: p_oe_line_id => l_oe_ship_line_id);
5971: p_oe_line_id => l_oe_ship_line_id);
5972: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5973: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Delete_IB_Transaction, x_return_status = ' || l_return_status);
5974: END IF;
5975: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5976: -- Create new IB subtransaction (with new type)
5977: Create_IB_Transaction(
5978: p_init_msg_list => FND_API.G_FALSE,
5979: p_commit => FND_API.G_FALSE,
5974: END IF;
5975: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5976: -- Create new IB subtransaction (with new type)
5977: Create_IB_Transaction(
5978: p_init_msg_list => FND_API.G_FALSE,
5979: p_commit => FND_API.G_FALSE,
5980: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5981: x_return_status => l_return_status,
5982: x_msg_count => l_msg_count,
5975: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5976: -- Create new IB subtransaction (with new type)
5977: Create_IB_Transaction(
5978: p_init_msg_list => FND_API.G_FALSE,
5979: p_commit => FND_API.G_FALSE,
5980: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5981: x_return_status => l_return_status,
5982: x_msg_count => l_msg_count,
5983: x_msg_data => l_msg_data,
5976: -- Create new IB subtransaction (with new type)
5977: Create_IB_Transaction(
5978: p_init_msg_list => FND_API.G_FALSE,
5979: p_commit => FND_API.G_FALSE,
5980: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5981: x_return_status => l_return_status,
5982: x_msg_count => l_msg_count,
5983: x_msg_data => l_msg_data,
5984: p_OSP_order_type => p_new_order_type_code,
5987: p_csi_instance_id => l_item_instance_id);
5988: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5989: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Create_IB_Transaction, x_return_status = ' || l_return_status);
5990: END IF;
5991: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5992: -- Error creating IB Subtransaction: throw exception
5993: CLOSE get_ship_only_lines_csr;
5994: RAISE Fnd_Api.g_exc_error;
5995: END IF;
5990: END IF;
5991: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5992: -- Error creating IB Subtransaction: throw exception
5993: CLOSE get_ship_only_lines_csr;
5994: RAISE Fnd_Api.g_exc_error;
5995: END IF;
5996: ELSE
5997: -- Error deleting IB Subtransaction: throw exception
5998: CLOSE get_ship_only_lines_csr;
5995: END IF;
5996: ELSE
5997: -- Error deleting IB Subtransaction: throw exception
5998: CLOSE get_ship_only_lines_csr;
5999: RAISE Fnd_Api.g_exc_error;
6000: END IF;
6001: END IF; --Jeli added this END IF; on 01/24/2006 for ER 4746426
6002: END IF;
6003: END LOOP;
6043: --FP Bug fix: 5380842 for the Customer Change when Vendor Changes: By mpothuku on 22nd August, 2006
6044:
6045: PROCEDURE Handle_Vendor_Change (
6046: p_api_version IN NUMBER := 1.0,
6047: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6048: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6049: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6050: p_default IN VARCHAR2 := FND_API.G_TRUE,
6051: p_module_type IN VARCHAR2 := NULL,
6044:
6045: PROCEDURE Handle_Vendor_Change (
6046: p_api_version IN NUMBER := 1.0,
6047: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6048: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6049: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6050: p_default IN VARCHAR2 := FND_API.G_TRUE,
6051: p_module_type IN VARCHAR2 := NULL,
6052: p_osp_order_id IN NUMBER,
6045: PROCEDURE Handle_Vendor_Change (
6046: p_api_version IN NUMBER := 1.0,
6047: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6048: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6049: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6050: p_default IN VARCHAR2 := FND_API.G_TRUE,
6051: p_module_type IN VARCHAR2 := NULL,
6052: p_osp_order_id IN NUMBER,
6053: p_vendor_id IN NUMBER,
6046: p_api_version IN NUMBER := 1.0,
6047: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6048: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6049: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6050: p_default IN VARCHAR2 := FND_API.G_TRUE,
6051: p_module_type IN VARCHAR2 := NULL,
6052: p_osp_order_id IN NUMBER,
6053: p_vendor_id IN NUMBER,
6054: p_vendor_loc_id IN NUMBER,
6113: -- Standard start of API savepoint
6114: SAVEPOINT Handle_Vendor_Change;
6115:
6116: -- Initialize API return status to success
6117: x_return_status := FND_API.G_RET_STS_SUCCESS;
6118:
6119: -- Standard call to check for call compatibility
6120: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
6121: G_PKG_NAME) THEN
6116: -- Initialize API return status to success
6117: x_return_status := FND_API.G_RET_STS_SUCCESS;
6118:
6119: -- Standard call to check for call compatibility
6120: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
6121: G_PKG_NAME) THEN
6122: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6123: END IF;
6124:
6118:
6119: -- Standard call to check for call compatibility
6120: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
6121: G_PKG_NAME) THEN
6122: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6123: END IF;
6124:
6125: --Added by mpothuku on 11-Jul-06 to raise any validation errors that may have been accumulated by the AHL_OSP_ORDERS_PVT procedure
6126: --We do not have any warning messages hence if the message count is > 0 then it means there are validation errors and since
6126: --We do not have any warning messages hence if the message count is > 0 then it means there are validation errors and since
6127: --we call a Public API in this procedure, its better we throw the errore here itself.
6128:
6129: IF FND_MSG_PUB.count_msg > 0 THEN
6130: RAISE FND_API.G_EXC_ERROR;
6131: END IF;
6132:
6133: --mpothuku End
6134:
6132:
6133: --mpothuku End
6134:
6135: -- Initialize message list if p_init_msg_list is set to TRUE
6136: IF FND_API.To_Boolean(p_init_msg_list) THEN
6137: FND_MSG_PUB.Initialize;
6138: END IF;
6139:
6140: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6173:
6174: IF l_vendor_cust_dtls.customer_site_id IS NULL THEN
6175: Fnd_Message.set_name('AHL', 'AHL_OSP_CUST_SETUP_NOTFOUND');
6176: Fnd_Msg_Pub.ADD;
6177: RAISE Fnd_Api.g_exc_error;
6178: END IF;
6179:
6180: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6181: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to OE_ORDER_GRP.PROCESS_ORDER');
6211: --OE_ORDER_GRP uses its own message stack OE_MSG_PUB, so we should pass p_init_msg_list as true to this API
6212: --Note that this also does an FND_MSG_PUB.initialize along with clearing its own error stack
6213: OE_ORDER_GRP.PROCESS_ORDER(
6214: p_api_version_number => 1.0,
6215: p_init_msg_list => FND_API.G_TRUE,
6216: x_return_status => x_return_status,
6217: x_msg_count => x_msg_count,
6218: x_msg_data => x_msg_data,
6219: p_header_rec => l_header_rec,
6248: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6249: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed OE_ORDER_GRP.PROCESS_ORDER, x_return_status = ' || x_return_status);
6250: END IF;
6251:
6252: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6253: FOR i IN 1..x_msg_count LOOP
6254: OE_MSG_PUB.Get(p_msg_index => i,
6255: p_encoded => FND_API.G_FALSE,
6256: p_data => l_msg_data,
6251:
6252: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6253: FOR i IN 1..x_msg_count LOOP
6254: OE_MSG_PUB.Get(p_msg_index => i,
6255: p_encoded => FND_API.G_FALSE,
6256: p_data => l_msg_data,
6257: p_msg_index_out => l_msg_index_out);
6258: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
6259: p_procedure_name => 'processOrder',
6268: /*
6269: x_msg_count := FND_MSG_PUB.count_msg;
6270:
6271: IF x_msg_count > 0 THEN
6272: RAISE FND_API.G_EXC_ERROR;
6273: END IF;
6274: */
6275:
6276: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
6272: RAISE FND_API.G_EXC_ERROR;
6273: END IF;
6274: */
6275:
6276: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
6277: RAISE FND_API.G_EXC_ERROR;
6278: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6280: /*
6273: END IF;
6274: */
6275:
6276: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
6277: RAISE FND_API.G_EXC_ERROR;
6278: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6280: /*
6281: If success is returned by the Public API, clear the message stack to eat up any warning messages from OM API.
6274: */
6275:
6276: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
6277: RAISE FND_API.G_EXC_ERROR;
6278: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6280: /*
6281: If success is returned by the Public API, clear the message stack to eat up any warning messages from OM API.
6282: Note that we may need to revise this approach at a later point to show the warning messages too
6275:
6276: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
6277: RAISE FND_API.G_EXC_ERROR;
6278: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6280: /*
6281: If success is returned by the Public API, clear the message stack to eat up any warning messages from OM API.
6282: Note that we may need to revise this approach at a later point to show the warning messages too
6283: If this is not done, AHL_OSP_ORDERS_PVT assumes that there is an error if the message stack count is > 0
6284: Also note that had there been any validation errors that had been accumulated we would have thrown at the beginning
6285: of this procedure
6286: */
6287:
6288: ELSIF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
6289: --Added the message logging on January 14, 2008 to fix the Bug 5935388/6504122
6290: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6291: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
6292: FND_MSG_PUB.get (
6290: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6291: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
6292: FND_MSG_PUB.get (
6293: p_msg_index => i,
6294: p_encoded => FND_API.G_FALSE,
6295: p_data => l_msg_data,
6296: p_msg_index_out => l_msg_index_out );
6297: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'OE: Warning ' || i || ': ' || l_msg_data);
6298: END LOOP;
6302:
6303: FND_MSG_PUB.Count_And_Get
6304: ( p_count => x_msg_count,
6305: p_data => x_msg_data,
6306: p_encoded => fnd_api.g_false);
6307: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6308: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
6309: END IF;
6310:
6308: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
6309: END IF;
6310:
6311: EXCEPTION
6312: WHEN FND_API.G_EXC_ERROR THEN
6313: x_return_status := FND_API.G_RET_STS_ERROR;
6314: Rollback to Handle_Vendor_Change;
6315: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6316: p_data => x_msg_data,
6309: END IF;
6310:
6311: EXCEPTION
6312: WHEN FND_API.G_EXC_ERROR THEN
6313: x_return_status := FND_API.G_RET_STS_ERROR;
6314: Rollback to Handle_Vendor_Change;
6315: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6316: p_data => x_msg_data,
6317: p_encoded => fnd_api.g_false);
6313: x_return_status := FND_API.G_RET_STS_ERROR;
6314: Rollback to Handle_Vendor_Change;
6315: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6316: p_data => x_msg_data,
6317: p_encoded => fnd_api.g_false);
6318:
6319: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6320: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6321: Rollback to Handle_Vendor_Change;
6315: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6316: p_data => x_msg_data,
6317: p_encoded => fnd_api.g_false);
6318:
6319: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6320: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6321: Rollback to Handle_Vendor_Change;
6322: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6323: p_data => x_msg_data,
6316: p_data => x_msg_data,
6317: p_encoded => fnd_api.g_false);
6318:
6319: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6320: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6321: Rollback to Handle_Vendor_Change;
6322: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6323: p_data => x_msg_data,
6324: p_encoded => fnd_api.g_false);
6320: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6321: Rollback to Handle_Vendor_Change;
6322: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6323: p_data => x_msg_data,
6324: p_encoded => fnd_api.g_false);
6325: WHEN OTHERS THEN
6326: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6327: Rollback to Handle_Vendor_Change;
6328: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
6322: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6323: p_data => x_msg_data,
6324: p_encoded => fnd_api.g_false);
6325: WHEN OTHERS THEN
6326: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6327: Rollback to Handle_Vendor_Change;
6328: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
6329: p_procedure_name => 'Handle_Vendor_Change',
6330: p_error_text => SQLERRM);
6330: p_error_text => SQLERRM);
6331:
6332: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6333: p_data => x_msg_data,
6334: p_encoded => fnd_api.g_false);
6335:
6336: END;
6337:
6338:
6560: -- Parameters :
6561: --
6562: -- Standard IN Parameters :
6563: -- p_api_version IN NUMBER Default 1.0
6564: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
6565: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
6566: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
6567: -- p_module_type IN VARCHAR2 Default NULL.
6568: -- Standard OUT Parameters :
6561: --
6562: -- Standard IN Parameters :
6563: -- p_api_version IN NUMBER Default 1.0
6564: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
6565: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
6566: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
6567: -- p_module_type IN VARCHAR2 Default NULL.
6568: -- Standard OUT Parameters :
6569: -- x_return_status OUT NOCOPY VARCHAR2 Required
6562: -- Standard IN Parameters :
6563: -- p_api_version IN NUMBER Default 1.0
6564: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
6565: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
6566: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
6567: -- p_module_type IN VARCHAR2 Default NULL.
6568: -- Standard OUT Parameters :
6569: -- x_return_status OUT NOCOPY VARCHAR2 Required
6570: -- x_msg_count OUT NOCOPY NUMBER Required
6585: -- End of Comments.
6586:
6587: PROCEDURE Process_Osp_SerialNum_Change(
6588: p_api_version IN NUMBER := 1.0,
6589: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6590: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6591: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6592: p_module_type IN VARCHAR2 := NULL,
6593: p_serialnum_change_rec IN Sernum_Change_Rec_Type,
6586:
6587: PROCEDURE Process_Osp_SerialNum_Change(
6588: p_api_version IN NUMBER := 1.0,
6589: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6590: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6591: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6592: p_module_type IN VARCHAR2 := NULL,
6593: p_serialnum_change_rec IN Sernum_Change_Rec_Type,
6594: x_return_status OUT NOCOPY VARCHAR2,
6587: PROCEDURE Process_Osp_SerialNum_Change(
6588: p_api_version IN NUMBER := 1.0,
6589: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6590: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6591: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6592: p_module_type IN VARCHAR2 := NULL,
6593: p_serialnum_change_rec IN Sernum_Change_Rec_Type,
6594: x_return_status OUT NOCOPY VARCHAR2,
6595: x_msg_count OUT NOCOPY NUMBER,
6727: -- Standard start of API savepoint
6728: SAVEPOINT Process_Osp_SerialNum_Change;
6729:
6730: -- Initialize API return status to success
6731: x_return_status := FND_API.G_RET_STS_SUCCESS;
6732:
6733: l_oe_line_tbl := OE_ORDER_PUB.G_MISS_LINE_TBL;
6734: l_oe_lot_serial_tbl := OE_ORDER_PUB.G_MISS_LOT_SERIAL_TBL;
6735:
6734: l_oe_lot_serial_tbl := OE_ORDER_PUB.G_MISS_LOT_SERIAL_TBL;
6735:
6736:
6737: -- Standard call to check for call compatibility
6738: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
6739: G_PKG_NAME) THEN
6740: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6741: END IF;
6742:
6736:
6737: -- Standard call to check for call compatibility
6738: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
6739: G_PKG_NAME) THEN
6740: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6741: END IF;
6742:
6743: -- Initialize message list if p_init_msg_list is set to TRUE
6744: IF FND_API.To_Boolean(p_init_msg_list) THEN
6740: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6741: END IF;
6742:
6743: -- Initialize message list if p_init_msg_list is set to TRUE
6744: IF FND_API.To_Boolean(p_init_msg_list) THEN
6745: FND_MSG_PUB.Initialize;
6746: END IF;
6747:
6748: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6760: --osp_order_line_id should not be null
6761: IF(p_serialnum_change_rec.osp_line_id is NULL) THEN
6762: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_CHG_OSPLID_NLL');
6763: FND_MSG_PUB.ADD;
6764: RAISE FND_API.G_EXC_ERROR;
6765: END IF;
6766:
6767: --validate the osp_order_line_id
6768: OPEN get_osp_order_line_dtls(l_serialnum_change_rec.osp_line_id);
6770: IF (get_osp_order_line_dtls%NOTFOUND) THEN
6771: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_INVOP_OSP_LN_NFOUND');
6772: FND_MSG_PUB.ADD;
6773: CLOSE get_osp_order_line_dtls;
6774: RAISE FND_API.G_EXC_ERROR;
6775: END IF;
6776: CLOSE get_osp_order_line_dtls;
6777:
6778: --check that the osp line is valid for the part number change
6778: --check that the osp line is valid for the part number change
6779: IF(Is_part_chg_valid_for_ospline(p_serialnum_change_rec.osp_line_id) = 'N') THEN
6780: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_CHG_OSPL_INV');
6781: FND_MSG_PUB.ADD;
6782: RAISE FND_API.G_EXC_ERROR;
6783: END IF;
6784:
6785: --Validate the passed new_item_number
6786: 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
6782: RAISE FND_API.G_EXC_ERROR;
6783: END IF;
6784:
6785: --Validate the passed new_item_number
6786: 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
6787: -- Retrieve inventory_item_id from item_number
6788: OPEN c_get_inv_item_id(l_serialnum_change_rec.new_item_number);
6789: FETCH c_get_inv_item_id INTO l_inventory_item_id;
6790: CLOSE c_get_inv_item_id;
6791: IF l_inventory_item_id IS NULL THEN
6792: FND_MESSAGE.Set_Name('AHL','AHL_OSP_ITEM_INVALID');
6793: FND_MESSAGE.Set_token('ITEM',l_serialnum_change_rec.new_item_number);
6794: FND_MSG_PUB.ADD;
6795: RAISE FND_API.G_EXC_ERROR;
6796: END IF;
6797: ELSE
6798: FND_MESSAGE.Set_Name('AHL','AHL_OSP_INV_ITEM_NULL');
6799: FND_MSG_PUB.ADD;
6796: END IF;
6797: ELSE
6798: FND_MESSAGE.Set_Name('AHL','AHL_OSP_INV_ITEM_NULL');
6799: FND_MSG_PUB.ADD;
6800: RAISE FND_API.G_EXC_ERROR;
6801: END IF;
6802:
6803: /*
6804: Get the instance present at the ship line
6817: IF (get_ship_line_instance%NOTFOUND) THEN
6818: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_SHIPLINE_NO_INST');
6819: FND_MSG_PUB.ADD;
6820: CLOSE get_ship_line_instance;
6821: RAISE FND_API.G_EXC_ERROR;
6822: END IF;
6823: CLOSE get_ship_line_instance;
6824:
6825: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6830: ELSE
6831: IF(l_serialnum_change_rec.instance_id <> l_ship_line_instance_id) THEN
6832: FND_MESSAGE.Set_Name('AHL','AHL_INVALID_INSTANCE');
6833: FND_MSG_PUB.ADD;
6834: RAISE FND_API.G_EXC_ERROR;
6835: END IF;
6836: END IF;
6837:
6838: -------------------------------------------------------------------------------------
6844: CLOSE get_instance_details;
6845: IF l_instance_dtls_rec.instance_id IS NULL THEN
6846: FND_MESSAGE.Set_Name('AHL','AHL_INVALID_INSTANCE');
6847: FND_MSG_PUB.ADD;
6848: RAISE FND_API.G_EXC_ERROR;
6849: END IF;
6850:
6851: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6852: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_instance_dtls_rec.inventory_item_id =>' ||l_instance_dtls_rec.inventory_item_id);
6876: --------------------------------------------
6877: -- Convert meaning to lookup code
6878: -- For Serialnum_tag_code.
6879: --------------------------------------------
6880: 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)
6881: THEN
6882: -- Check if meaning exists.
6883: 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)
6884: THEN
6879: --------------------------------------------
6880: 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)
6881: THEN
6882: -- Check if meaning exists.
6883: 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)
6884: THEN
6885: Convert_To_LookupCode('AHL_SERIALNUMBER_TAG',
6886: l_serialnum_change_rec.New_Serial_Tag_Mean,
6887: l_lookup_code,
6889: IF NOT(l_return_val) THEN
6890: FND_MESSAGE.Set_Name('AHL','AHL_PRD_TAGMEANING_INVALID');
6891: FND_MESSAGE.Set_Token('TAG',l_serialnum_change_rec.New_Serial_Tag_Mean);
6892: FND_MSG_PUB.ADD;
6893: RAISE FND_API.G_EXC_ERROR;
6894: ELSE
6895: l_serialnum_change_rec.New_Serial_Tag_Code := l_lookup_code;
6896: END IF;
6897: END IF;
6904: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_ITEM_INVALID');
6905: FND_MESSAGE.Set_token('ITEM',l_inventory_item_id);
6906: FND_MSG_PUB.ADD;
6907: CLOSE mtl_system_items_csr;
6908: RAISE FND_API.G_EXC_ERROR;
6909: END IF;
6910: CLOSE mtl_system_items_csr;
6911:
6912: --Item has to serial controlled and IB trackable
6917: END IF;
6918: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_CHG_ITEM_SER_TR');
6919: FND_MESSAGE.Set_token('ITEM',l_mtl_system_items_rec.concatenated_segments);
6920: FND_MSG_PUB.ADD;
6921: RAISE FND_API.G_EXC_ERROR;
6922: END IF;
6923:
6924: ------------------------------------------------------
6925: -- Call local procedure to validate the serial number
6932: IF FND_MSG_PUB.count_msg > 0 THEN
6933: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6934: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count after calling Validate_SerialNumber: '||FND_MSG_PUB.count_msg);
6935: END IF;
6936: RAISE FND_API.G_EXC_ERROR;
6937: END IF;
6938:
6939: -- Retrieve existing value of serialNum_Tag_Code if present.
6940: AHL_UTIL_UC_PKG.GetCSI_Attribute_Value (l_serialnum_change_rec.instance_id,
6985:
6986: --If it is only a serial number change, just delete the IB transation.
6987: IF(l_instance_dtls_rec.inventory_item_id = l_inventory_item_id) THEN
6988: IF((l_instance_dtls_rec.serial_number <> l_serialnum_change_rec.new_serial_number) OR
6989: (nvl(l_instance_dtls_rec.inventory_revision,FND_API.G_MISS_CHAR) <>
6990: nvl(l_serialnum_change_rec.new_item_rev_number,FND_API.G_MISS_CHAR)) OR
6991: (nvl(l_instance_dtls_rec.lot_number,FND_API.G_MISS_CHAR) <>
6992: nvl(l_serialnum_change_rec.new_lot_number,FND_API.G_MISS_CHAR)))
6993:
6986: --If it is only a serial number change, just delete the IB transation.
6987: IF(l_instance_dtls_rec.inventory_item_id = l_inventory_item_id) THEN
6988: IF((l_instance_dtls_rec.serial_number <> l_serialnum_change_rec.new_serial_number) OR
6989: (nvl(l_instance_dtls_rec.inventory_revision,FND_API.G_MISS_CHAR) <>
6990: nvl(l_serialnum_change_rec.new_item_rev_number,FND_API.G_MISS_CHAR)) OR
6991: (nvl(l_instance_dtls_rec.lot_number,FND_API.G_MISS_CHAR) <>
6992: nvl(l_serialnum_change_rec.new_lot_number,FND_API.G_MISS_CHAR)))
6993:
6994: THEN --Serial Number/Item Revision/Lot Number Changed
6987: IF(l_instance_dtls_rec.inventory_item_id = l_inventory_item_id) THEN
6988: IF((l_instance_dtls_rec.serial_number <> l_serialnum_change_rec.new_serial_number) OR
6989: (nvl(l_instance_dtls_rec.inventory_revision,FND_API.G_MISS_CHAR) <>
6990: nvl(l_serialnum_change_rec.new_item_rev_number,FND_API.G_MISS_CHAR)) OR
6991: (nvl(l_instance_dtls_rec.lot_number,FND_API.G_MISS_CHAR) <>
6992: nvl(l_serialnum_change_rec.new_lot_number,FND_API.G_MISS_CHAR)))
6993:
6994: THEN --Serial Number/Item Revision/Lot Number Changed
6995: l_serial_num_changed := 'Y';
6988: IF((l_instance_dtls_rec.serial_number <> l_serialnum_change_rec.new_serial_number) OR
6989: (nvl(l_instance_dtls_rec.inventory_revision,FND_API.G_MISS_CHAR) <>
6990: nvl(l_serialnum_change_rec.new_item_rev_number,FND_API.G_MISS_CHAR)) OR
6991: (nvl(l_instance_dtls_rec.lot_number,FND_API.G_MISS_CHAR) <>
6992: nvl(l_serialnum_change_rec.new_lot_number,FND_API.G_MISS_CHAR)))
6993:
6994: THEN --Serial Number/Item Revision/Lot Number Changed
6995: l_serial_num_changed := 'Y';
6996: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6997: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Serial Number has been Changed');
6998: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calling Delete_IB_Transaction' );
6999: END IF;
7000: Delete_IB_Transaction(
7001: p_init_msg_list => FND_API.G_FALSE, --p_init_msg_list,
7002: p_commit => FND_API.G_FALSE,
7003: p_validation_level => p_validation_level,
7004: x_return_status => x_return_status,
7005: x_msg_count => x_msg_count,
6998: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calling Delete_IB_Transaction' );
6999: END IF;
7000: Delete_IB_Transaction(
7001: p_init_msg_list => FND_API.G_FALSE, --p_init_msg_list,
7002: p_commit => FND_API.G_FALSE,
7003: p_validation_level => p_validation_level,
7004: x_return_status => x_return_status,
7005: x_msg_count => x_msg_count,
7006: x_msg_data => x_msg_data,
7008:
7009: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7010: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After calling Delete_IB_Transaction: x_return_status =>'||x_return_status );
7011: END IF;
7012: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7013: RAISE FND_API.G_EXC_ERROR;
7014: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7016: END IF;
7009: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7010: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After calling Delete_IB_Transaction: x_return_status =>'||x_return_status );
7011: END IF;
7012: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7013: RAISE FND_API.G_EXC_ERROR;
7014: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7016: END IF;
7017:
7010: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After calling Delete_IB_Transaction: x_return_status =>'||x_return_status );
7011: END IF;
7012: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7013: RAISE FND_API.G_EXC_ERROR;
7014: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7016: END IF;
7017:
7018: ELSE --Item Number is same and Serial Number are same, rest of the item attributes are same.
7011: END IF;
7012: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7013: RAISE FND_API.G_EXC_ERROR;
7014: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7016: END IF;
7017:
7018: ELSE --Item Number is same and Serial Number are same, rest of the item attributes are same.
7019: --If the serial tag code is also the same, there is no need to proceed further. Ideally we may also
7046:
7047: l_del_oe_lines_tbl(1) := l_osp_order_line_dtls.oe_return_line_id;
7048: Delete_Cancel_Order (
7049: p_api_version => 1.0,
7050: p_init_msg_list => FND_API.G_FALSE, -- Don't initialize the Message List
7051: p_commit => FND_API.G_FALSE, -- Don't commit independently
7052: p_oe_header_id => null, -- Not deleting the shipment header: Only the lines
7053: p_oe_lines_tbl => l_del_oe_lines_tbl, -- Lines to be deleted/Cancelled
7054: p_cancel_flag => FND_API.G_FALSE, -- Do Deletes if possible, Cancels if not
7047: l_del_oe_lines_tbl(1) := l_osp_order_line_dtls.oe_return_line_id;
7048: Delete_Cancel_Order (
7049: p_api_version => 1.0,
7050: p_init_msg_list => FND_API.G_FALSE, -- Don't initialize the Message List
7051: p_commit => FND_API.G_FALSE, -- Don't commit independently
7052: p_oe_header_id => null, -- Not deleting the shipment header: Only the lines
7053: p_oe_lines_tbl => l_del_oe_lines_tbl, -- Lines to be deleted/Cancelled
7054: p_cancel_flag => FND_API.G_FALSE, -- Do Deletes if possible, Cancels if not
7055: x_return_status => x_return_status ,
7050: p_init_msg_list => FND_API.G_FALSE, -- Don't initialize the Message List
7051: p_commit => FND_API.G_FALSE, -- Don't commit independently
7052: p_oe_header_id => null, -- Not deleting the shipment header: Only the lines
7053: p_oe_lines_tbl => l_del_oe_lines_tbl, -- Lines to be deleted/Cancelled
7054: p_cancel_flag => FND_API.G_FALSE, -- Do Deletes if possible, Cancels if not
7055: x_return_status => x_return_status ,
7056: x_msg_count => x_msg_count ,
7057: x_msg_data => x_msg_data
7058: );
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, 'Returned from Delete_Cancel_Order, 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, 'Returned from Delete_Cancel_Order, 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, 'Returned from Delete_Cancel_Order, 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: END IF; --IF(l_instance_dtls_rec.inventory_item_id = l_inventory_item_id)
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: END IF; --IF(l_instance_dtls_rec.inventory_item_id = l_inventory_item_id)
7069: END IF; --IF (l_osp_order_line_dtls.oe_return_line_id is not null) THEN
7078: IF (l_serial_tag_rec_found = 'Y' ) THEN
7079: IF(l_serialnum_change_rec.New_Serial_Tag_Code IS NULL AND l_serial_tag_code IS NOT NULL) OR
7080: (l_serial_tag_code IS NULL AND l_serialnum_change_rec.New_Serial_Tag_Code IS NOT NULL) OR
7081: (l_serialnum_change_rec.New_Serial_Tag_Code IS NOT NULL AND l_Serial_tag_code IS NOT NULL AND
7082: l_serialnum_change_rec.New_Serial_Tag_Code <> FND_API.G_MISS_CHAR AND
7083: l_serialnum_change_rec.New_Serial_Tag_Code <> l_Serial_tag_code) THEN
7084:
7085: -- changed value. update attribute record.
7086: l_csi_extend_attrib_rec.attribute_value_id := l_attribute_value_id;
7123: -- get transaction_type_id .
7124: -- Balaji modified the transaction id type to 205--ITEM_SERIAL_CHANGE
7125: AHL_UTIL_UC_PKG.GetCSI_Transaction_ID('ITEM_SERIAL_CHANGE',l_transaction_type_id, l_return_val);
7126: IF NOT(l_return_val) THEN
7127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7128: END IF;
7129:
7130: l_csi_transaction_rec.transaction_type_id := l_transaction_type_id;
7131: l_csi_transaction_rec.source_line_ref := G_CSI_T_SOURCE_LINE_REF;
7149: x_return_status => x_return_status,
7150: x_msg_count => x_msg_count,
7151: x_msg_data => x_msg_data );
7152:
7153: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7154: RAISE FND_API.G_EXC_ERROR;
7155: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7156: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7157: END IF;
7150: x_msg_count => x_msg_count,
7151: x_msg_data => x_msg_data );
7152:
7153: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7154: RAISE FND_API.G_EXC_ERROR;
7155: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7156: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7157: END IF;
7158:
7151: x_msg_data => x_msg_data );
7152:
7153: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7154: RAISE FND_API.G_EXC_ERROR;
7155: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7156: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7157: END IF;
7158:
7159: -------------------------------------------------------------
7152:
7153: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7154: RAISE FND_API.G_EXC_ERROR;
7155: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7156: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7157: END IF;
7158:
7159: -------------------------------------------------------------
7160: -- for extended attributes.
7168: x_return_status => x_return_status,
7169: x_msg_count => x_msg_count,
7170: x_msg_data => x_msg_data );
7171:
7172: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7173: RAISE FND_API.G_EXC_ERROR;
7174: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7176: END IF;
7169: x_msg_count => x_msg_count,
7170: x_msg_data => x_msg_data );
7171:
7172: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7173: RAISE FND_API.G_EXC_ERROR;
7174: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7176: END IF;
7177: END IF;
7170: x_msg_data => x_msg_data );
7171:
7172: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7173: RAISE FND_API.G_EXC_ERROR;
7174: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7176: END IF;
7177: END IF;
7178:
7171:
7172: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7173: RAISE FND_API.G_EXC_ERROR;
7174: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7176: END IF;
7177: END IF;
7178:
7179: -----------------------------------------------------------------------------------------
7197: 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.
7198: */
7199: l_oe_line_tbl(1) := l_oe_line_rec;
7200: l_oe_line_tbl(1).inventory_item_id := l_inventory_item_id;
7201: l_oe_line_tbl(1).line_id := FND_API.G_MISS_NUM;
7202: l_oe_line_tbl(1).line_number := FND_API.G_MISS_NUM;
7203: l_oe_line_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
7204: --l_oe_lot_serial_tbl(1) := l_oe_lot_serial_rec;
7205: --Do not use the lot serial record as is.
7198: */
7199: l_oe_line_tbl(1) := l_oe_line_rec;
7200: l_oe_line_tbl(1).inventory_item_id := l_inventory_item_id;
7201: l_oe_line_tbl(1).line_id := FND_API.G_MISS_NUM;
7202: l_oe_line_tbl(1).line_number := FND_API.G_MISS_NUM;
7203: l_oe_line_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
7204: --l_oe_lot_serial_tbl(1) := l_oe_lot_serial_rec;
7205: --Do not use the lot serial record as is.
7206: l_oe_lot_serial_tbl(1).lot_serial_id := FND_API.G_MISS_NUM;
7202: l_oe_line_tbl(1).line_number := FND_API.G_MISS_NUM;
7203: l_oe_line_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
7204: --l_oe_lot_serial_tbl(1) := l_oe_lot_serial_rec;
7205: --Do not use the lot serial record as is.
7206: l_oe_lot_serial_tbl(1).lot_serial_id := FND_API.G_MISS_NUM;
7207: l_oe_lot_serial_tbl(1).lot_number := l_serialnum_change_rec.new_lot_number;
7208: l_oe_lot_serial_tbl(1).from_serial_number := l_serialnum_change_rec.new_serial_number;
7209: l_oe_lot_serial_tbl(1).quantity := l_oe_lot_serial_rec.quantity;
7210: l_oe_lot_serial_tbl(1).line_index := 1;
7231: END IF;
7232:
7233: OE_ORDER_GRP.PROCESS_ORDER(
7234: p_api_version_number => 1.0,
7235: p_init_msg_list => FND_API.G_TRUE,
7236: x_return_status => x_return_status,
7237: x_msg_count => x_msg_count,
7238: x_msg_data => x_msg_data,
7239: p_header_rec => x_header_rec,
7273: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed OE_ORDER_GRP.PROCESS_ORDER, x_return_status = ' || x_return_status);
7274: 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);
7275: END IF;
7276:
7277: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7278: FOR i IN 1..x_msg_count LOOP
7279: OE_MSG_PUB.Get(p_msg_index => i,
7280: p_encoded => FND_API.G_FALSE,
7281: p_data => l_msg_data,
7276:
7277: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7278: FOR i IN 1..x_msg_count LOOP
7279: OE_MSG_PUB.Get(p_msg_index => i,
7280: p_encoded => FND_API.G_FALSE,
7281: p_data => l_msg_data,
7282: p_msg_index_out => l_msg_index_out);
7283: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
7284: p_procedure_name => 'processOrder',
7289:
7290: END LOOP;
7291: END IF;
7292:
7293: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7294: RAISE FND_API.G_EXC_ERROR;
7295: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7297: END IF;
7290: END LOOP;
7291: END IF;
7292:
7293: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7294: RAISE FND_API.G_EXC_ERROR;
7295: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7297: END IF;
7298:
7291: END IF;
7292:
7293: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7294: RAISE FND_API.G_EXC_ERROR;
7295: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7297: END IF;
7298:
7299:
7292:
7293: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7294: RAISE FND_API.G_EXC_ERROR;
7295: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7297: END IF;
7298:
7299:
7300: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7302: END IF;
7303:
7304: --Whether its the part number and/or the serial number that was changed, we need to call Create_IB_Transaction
7305: Create_IB_Transaction(
7306: p_init_msg_list => FND_API.G_FALSE, --p_init_msg_list,
7307: p_commit => FND_API.G_FALSE,
7308: p_validation_level => p_validation_level,
7309: x_return_status => x_return_status,
7310: x_msg_count => x_msg_count,
7303:
7304: --Whether its the part number and/or the serial number that was changed, we need to call Create_IB_Transaction
7305: Create_IB_Transaction(
7306: p_init_msg_list => FND_API.G_FALSE, --p_init_msg_list,
7307: p_commit => FND_API.G_FALSE,
7308: p_validation_level => p_validation_level,
7309: x_return_status => x_return_status,
7310: x_msg_count => x_msg_count,
7311: x_msg_data => x_msg_data,
7317: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7318: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Create_IB_Transaction: ' || x_return_status);
7319: END IF;
7320:
7321: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7322: RAISE FND_API.G_EXC_ERROR;
7323: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7325: END IF;
7318: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Create_IB_Transaction: ' || x_return_status);
7319: END IF;
7320:
7321: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7322: RAISE FND_API.G_EXC_ERROR;
7323: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7325: END IF;
7326:
7319: END IF;
7320:
7321: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7322: RAISE FND_API.G_EXC_ERROR;
7323: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7325: END IF;
7326:
7327: /*
7320:
7321: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7322: RAISE FND_API.G_EXC_ERROR;
7323: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7325: END IF;
7326:
7327: /*
7328: We need to update the osp_order_line with the new return_line_id, if part number change has happened.
7349: END IF;
7350: Update_OSP_Order_Lines(
7351: p_osp_order_id => l_osp_order_line_dtls.osp_order_id,
7352: p_osp_line_id => l_order_line_id,
7353: p_oe_ship_line_id => FND_API.G_MISS_NUM ,
7354: p_oe_return_line_id => l_osp_order_line_dtls.oe_return_line_id);
7355:
7356: END LOOP;
7357: CLOSE get_same_phyitem_order_lines;
7358: END IF;
7359: END IF; --IF(l_part_num_changed = 'Y' OR l_serial_num_changed := 'Y') THEN
7360: END IF;--IF (l_osp_order_line_dtls.oe_return_line_id is not null) THEN
7361:
7362: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
7363: COMMIT;
7364: END IF;
7365:
7366: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7369:
7370: FND_MSG_PUB.Count_And_Get
7371: ( p_count => x_msg_count,
7372: p_data => x_msg_data,
7373: p_encoded => fnd_api.g_false);
7374:
7375: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7376: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
7377: END IF;
7376: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
7377: END IF;
7378:
7379: EXCEPTION
7380: WHEN FND_API.G_EXC_ERROR THEN
7381: x_return_status := FND_API.G_RET_STS_ERROR;
7382: Rollback to Process_Osp_SerialNum_Change;
7383: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7384: p_data => x_msg_data,
7377: END IF;
7378:
7379: EXCEPTION
7380: WHEN FND_API.G_EXC_ERROR THEN
7381: x_return_status := FND_API.G_RET_STS_ERROR;
7382: Rollback to Process_Osp_SerialNum_Change;
7383: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7384: p_data => x_msg_data,
7385: p_encoded => fnd_api.g_false);
7381: x_return_status := FND_API.G_RET_STS_ERROR;
7382: Rollback to Process_Osp_SerialNum_Change;
7383: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7384: p_data => x_msg_data,
7385: p_encoded => fnd_api.g_false);
7386:
7387: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7389: Rollback to Process_Osp_SerialNum_Change;
7383: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7384: p_data => x_msg_data,
7385: p_encoded => fnd_api.g_false);
7386:
7387: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7389: Rollback to Process_Osp_SerialNum_Change;
7390: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7391: p_data => x_msg_data,
7384: p_data => x_msg_data,
7385: p_encoded => fnd_api.g_false);
7386:
7387: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7389: Rollback to Process_Osp_SerialNum_Change;
7390: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7391: p_data => x_msg_data,
7392: p_encoded => fnd_api.g_false);
7388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7389: Rollback to Process_Osp_SerialNum_Change;
7390: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7391: p_data => x_msg_data,
7392: p_encoded => fnd_api.g_false);
7393: WHEN OTHERS THEN
7394: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7395: Rollback to Process_Osp_SerialNum_Change;
7396: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
7390: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7391: p_data => x_msg_data,
7392: p_encoded => fnd_api.g_false);
7393: WHEN OTHERS THEN
7394: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7395: Rollback to Process_Osp_SerialNum_Change;
7396: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
7397: p_procedure_name => 'Process_Osp_SerialNum_Change',
7398: p_error_text => SQLERRM);
7398: p_error_text => SQLERRM);
7399:
7400: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7401: p_data => x_msg_data,
7402: p_encoded => fnd_api.g_false);
7403:
7404:
7405: END Process_Osp_SerialNum_Change;
7406: END AHL_OSP_SHIPMENT_PUB;